GetUrlScript.txt 226 B

před 4 roky
123
  1. begin
  2. ResultURL:=GetURLBase+'&s='+inttostr(8-GetZ)+'&w=256&h=256&lt=0&ws=0&u=umap&x='+inttostr(round((GetX-intpower(2,GetZ-2))*256+10))+'&y='+inttostr(round(intpower(2,GetZ-1)-GetY)*-256+round(128*intpower(2,GetZ-2)));
  3. end.