maps/_Space/space_mars_infrared.zmp/GetUrlScript.txt

var res:string;
	i:byte;
	osX,osY,prX,prY:integer;
begin
   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.