瀏覽代碼

update zmp

master
sasbot 4 年之前
父節點
當前提交
2f2c499850
共有 2 個檔案被更改,包括 4 行新增2 行删除
  1. +3
    -1
      Other/Navitel.zmp/GetUrlScript.txt
  2. +1
    -1
      Other/Navitel.zmp/params.txt

+ 3
- 1
Other/Navitel.zmp/GetUrlScript.txt 查看文件

@@ -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.

+ 1
- 1
Other/Navitel.zmp/params.txt 查看文件

@@ -8,7 +8,7 @@ ParentSubMenu=
ParentSubMenu_en=Other maps
ParentSubMenu_uk=²íø³ êàðòè
asLayer=0
DefURLBase=http://maps.navitel.su/2.0/navitms.fcgi?t=
DefURLBase=http://m01.navitel.su/navitms.fcgi?t=
projection=1
sradiusa=6378137
sradiusb=6378137


Loading…
取消
儲存