update zmp

VirtualEarth/VEMap.Bing.zmp/GetUrlScript.txt

@@ -0,0 +1,38 @@
+var res:string;
+	i:byte;
+	osX,osY,prX,prY:integer;
+begin
+   res:='';	
+   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<osX
+     then begin
+           osX:=osX-prX;
+           if GetY<osY then begin
+                            osY:=osY-prY;
+                            res:=res+'0';
+                           end
+                      else begin
+                            osY:=osY+prY;
+                            res:=res+'2';
+                           end;
+          end
+     else begin
+           osX:=osX+prX;
+           if Gety<osy then begin
+                             osY:=osY-prY;
+                             res:=res+'1';
+                            end
+                     else begin
+                           osY:=osY+prY;
+                           res:=res+'3';
+                          end;
+         end;
+     end;
+ ResultURL:=GetURLBase+res+'.jpeg?g=685&mkt=en-us&lbl=l1&stl=h&shading=hill&n=z';
+end.

VirtualEarth/VEMap.Bing.zmp/params.txt

@@ -0,0 +1,27 @@
+[PARAMS]
+pnum=10
+GUID={E47F6EE4-BC40-422E-85BB-4A57C4E49175}
+name=Êàðòà (Bing Maps)
+name_en=Map (Bing Maps)
+name_uk=Êàðòà (Bing Maps)
+ParentSubMenu=Bing (Virtual Earth)
+ParentSubMenu_en=Bing (Virtual Earth)
+ParentSubMenu_uk=Bing (Virtual Earth)
+asLayer=0
+DefURLBase=http://ecn.t0.tiles.virtualearth.net/tiles/r
+projection=1
+sradiusa=6378137
+sradiusb=6378137
+NameInCache=vemap-b
+separator=0
+Ext=.png
+UseDwn=1
+Usestick=1
+UseGenPrevious=1
+Usedel=1
+Usesave=1
+UseAntiBan=0
+Sleep=0
+DefHotKey=16470
+ContentType=image/png
+BanIfLen=0

VirtualEarth/VEMap.zmp/params.txt

@@ -13,7 +13,7 @@ projection=1
 sradiusa=6378137
 sradiusb=6378137
 NameInCache=vemap
-separator=1
+separator=0
 Ext=.png
 UseDwn=1
 Usestick=1

VirtualEarth/VESat.zmp/GetUrlScript.txt

@@ -34,5 +34,5 @@ begin
                           end;
          end;
      end;
- ResultURL:=GetURLBase+res+'.jpeg?g=72';
+ ResultURL:=GetURLBase+res+'.jpeg?g=685&mkt=en-us&n=z';
 end.

VirtualEarth/VESat.zmp/params.txt

@@ -8,7 +8,7 @@ ParentSubMenu=Bing (Virtual Earth)
 ParentSubMenu_en=Bing (Virtual Earth)
 ParentSubMenu_uk=Bing (Virtual Earth)
 asLayer=0
-DefURLBase=http://a0.ortho.tiles.virtualearth.net/tiles/a
+DefURLBase=http://ecn.t0.tiles.virtualearth.net/tiles/a
 projection=1
 sradiusa=6378137
 sradiusb=6378137