diff --git a/geogarage_com_route.zmp/18.bmp b/geogarage_com_route.zmp/18.bmp new file mode 100644 index 00000000..a942fa46 Binary files /dev/null and b/geogarage_com_route.zmp/18.bmp differ diff --git a/geogarage_com_route.zmp/24.bmp b/geogarage_com_route.zmp/24.bmp new file mode 100644 index 00000000..e46b7562 Binary files /dev/null and b/geogarage_com_route.zmp/24.bmp differ diff --git a/geogarage_com_route.zmp/GetUrlScript.txt b/geogarage_com_route.zmp/GetUrlScript.txt new file mode 100644 index 00000000..3285f7f2 --- /dev/null +++ b/geogarage_com_route.zmp/GetUrlScript.txt @@ -0,0 +1,56 @@ +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