i.dodonov
/
maps
複製自 sasgis/maps
1
0
複製 0
程式碼 問題管理 0 合併請求 0 版本發佈 0 Wiki Activity
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
395 Commit
1 分支
6.1 MiB
 
目錄樹: 8b999fad5c
分支列表 標籤列表
${ item.name }
Create branch ${ searchTerm }
from '8b999fad5c'
${ noResults }
maps/Other/Navitel.zmp/GetUrlScript.txt

12 line
381 B
原始文件 Blame 文件歷史 

  1. var xx,yy,zz:string;

  2. begin

  3. GetURLBase[10]:=chr(ord('1')+random(2));

  4. xx:=inttostr(GetX);

  5. yy:=inttostr(round(intpower(2,getz-1)-GetY)-1);

  6. zz:=inttostr(GetZ-1);

  7. while length(xx)<8 do xx:='0'+xx;

  8. while length(yy)<8 do yy:='0'+yy;

  9. while length(zz)<2 do zz:='0'+zz;

  10. ResultURL:=GetUrlBase+xx+','+yy+','+zz+'&hl=ru';

  11. RequestHead:='Referer: http://map.navitel.su/' + #13#10;

  12. end.