delta[x_,y_,s_,t_,e_]:=(e/((((x-s))^2)+(((y-t))^2)));

e0 = 0.1;e1 = 0.00001;

forrest[x_,y_]:=delta[x,y,60,80,e0]+delta[x,y,63,99,e0]+delta[x,y,88,78,e0]+delta[x,y,86,99,e0]+delta[x,y,76,89,e0]+delta[x,y,80,90,e0]+delta[x,y,65,83,e0]+delta[x,y,71,94,e0]+delta[x,y,78,83,e0]+delta[x,y,75,81,e0];

forrest_plot=Plot3D[100*forrest[x,y],{x,0,100},{y,0,100},PlotRange->{-1,100},PlotPoints->50]

hillside[x_,y_]:=(((x+1.5*y-130+7*Sin[x*(y/15)]))/3);

cliff[x_,y_]:=Piecewise[{{Abs[(10000/(((y-2.5*x-10.7))^2))],y<2.5*x},{0,y>2.5*x}},{x,-5,105}];

plat[x_,y_]:=Piecewise[{{73+2Sin[1+(100/(x*y+0.1))+x*(y/7.5)]*Cos[1+(100/(x*y+0.1))-x*(y/6.3)],y>2.5*x-3},{0,y<2.5*x-3}},{x,-5,105}];

p1[x_,y_,p_]:=p*Sqrt[16-(((x-70))^2)-(((y-85))^2)]+27;

p2[x_,y_,p_]:=p*Sqrt[16-(((x-60))^2)-(((y-35))^2)]+7;

p3[x_,y_,p_]:=p*Sqrt[16-(((x-15))^2)-(((y-67))^2)]+73;

basin_plot=Plot3D[{plat[x,y],hillside[x,y],cliff[x,y],100*forrest[x,y],5*Sin[x]*Sin[y]*Cos[x*(y/10)]+3,p1[x,y,1],p1[x,y,-1],p2[x,y,1],p2[x,y,-1],p3[x,y,1],p3[x,y,-1]},{x,0,200},{y,0,150},PlotRange->{-1,100},PlotPoints->100,BoxRatios->{2, 1.5, 1},Boxed->False,Axes->False,Background->Black]

Landscape = Show[Graphics[forrest_plot], Graphics[basin_plot]]