|
|
@@ -1,10 +1,12 @@ |
|
|
|
var xx,yy,zz:string;
|
|
|
|
begin
|
|
|
|
GetURLBase[10]:=chr(ord('1')+random(2));
|
|
|
|
xx:=inttostr(GetX);
|
|
|
|
yy:=inttostr(round(intpower(2,getz-1)-GetY)-1);
|
|
|
|
zz:=inttostr(GetZ-1);
|
|
|
|
while length(xx)<8 do xx:='0'+xx;
|
|
|
|
while length(yy)<8 do yy:='0'+yy;
|
|
|
|
while length(zz)<2 do zz:='0'+zz;
|
|
|
|
ResultURL:=GetUrlBase+xx+','+yy+','+zz;
|
|
|
|
ResultURL:=GetUrlBase+xx+','+yy+','+zz+'&hl=ru';
|
|
|
|
RequestHead:='Referer: http://map.navitel.su/' + #13#10;
|
|
|
|
end. |