GetUrlScript.txt 213 B

54 年之前
123456
  1. var
  2. tile: string;
  3. begin
  4. tile := RegExprReplaceMatchSubStr(GetURLBase, 'tile.maps', 'tile'+inttostr( Random(4) )+'.maps' );
  5. ResultURL:=tile+inttostr(getx)+'&y='+inttostr(GetY)+'&z='+inttostr(GetZ-1);
  6. end.