6 linhas
220 B

  1. var
  2. tile: string;
  3. begin
  4. tile := RegExprReplaceMatchSubStr(GetURLBase, 'tile.maps', 'tile'+inttostr( Random(4) )+'.maps' );
  5. ResultURL:=tile+'/'+inttostr(getz-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.png';
  6. end.