您最多选择25个主题 主题必须以字母或数字开头,可以包含连字符 (-),并且长度不得超过35个字符

GetUrlScript.txt 381 B

4 年前
4 年前
4 年前
4 年前
4 年前
123456789101112
  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.