update zmp

Space_mars_elevation.zmp/GetUrlScript.txt

@@ -1,3 +1,38 @@
+var res:string;
+	i:byte;
+	osX,osY,prX,prY:integer;
 begin
- ResultURL:=GetUrlBase+'&x='+inttostr(GetX)+'&y='+inttostr(GetY)+'&zoom='+inttostr(18-GetZ)+'&s='+copy('Galileo',1,random(7)+1);
+   res:='t';	
+   osX:=round(intpower(2,GetZ-1)) div 2;
+   osY:=round(intpower(2,GetZ-1)) div 2;
+   prX:=osX; prY:=osY;
+   for i:=2 to GetZ do
+    begin
+    prX:=prX div 2;
+    prY:=prY div 2;
+    if GetX<osX
+     then begin
+           osX:=osX-prX;
+           if GetY<osY then begin
+                            osY:=osY-prY;
+                            res:=res+'q';
+                           end
+                      else begin
+                            osY:=osY+prY;
+                            res:=res+'t';
+                           end;
+          end
+     else begin
+           osX:=osX+prX;
+           if Gety<osy then begin
+                             osY:=osY-prY;
+                             res:=res+'r';
+                            end
+                     else begin
+                           osY:=osY+prY;
+                           res:=res+'s';
+                          end;
+         end;
+     end;
+ ResultURL:=GetURLBase+res+'.jpg';
 end.

space_mars_infrared.zmp/GetUrlScript.txt

@@ -1,3 +1,38 @@
+var res:string;
+	i:byte;
+	osX,osY,prX,prY:integer;
 begin
- ResultURL:=GetUrlBase+'&x='+inttostr(GetX)+'&y='+inttostr(GetY)+'&zoom='+inttostr(18-GetZ)+'&s='+copy('Galileo',1,random(7)+1);
+   res:='t';	
+   osX:=round(intpower(2,GetZ-1)) div 2;
+   osY:=round(intpower(2,GetZ-1)) div 2;
+   prX:=osX; prY:=osY;
+   for i:=2 to GetZ do
+    begin
+    prX:=prX div 2;
+    prY:=prY div 2;
+    if GetX<osX
+     then begin
+           osX:=osX-prX;
+           if GetY<osY then begin
+                            osY:=osY-prY;
+                            res:=res+'q';
+                           end
+                      else begin
+                            osY:=osY+prY;
+                            res:=res+'t';
+                           end;
+          end
+     else begin
+           osX:=osX+prX;
+           if Gety<osy then begin
+                             osY:=osY-prY;
+                             res:=res+'r';
+                            end
+                     else begin
+                           osY:=osY+prY;
+                           res:=res+'s';
+                          end;
+         end;
+     end;
+ ResultURL:=GetURLBase+res+'.jpg';
 end.

space_moon_terrain.zmp/GetUrlScript.txt

@@ -1,3 +1,3 @@
-begin
- ResultURL:=GetUrlBase+'&x='+inttostr(GetX)+'&y='+inttostr(GetY)+'&zoom='+inttostr(18-GetZ)+'&s='+copy('Galileo',1,random(7)+1);
+begin 
+ ResultURL:=GetURLBase+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(round(intpower(2,GetZ-1))-1-GetY)+'.jpg'; 
 end.