6 lines
229 B

  1. var
  2. ts: string;
  3. begin
  4. ts := RegExprReplaceMatchSubStr(GetURLBase, 't\.beta\.itoworld\.com', 't'+inttostr( Random(4) )+'.beta.itoworld.com' );
  5. ResultURL := ts + inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY);
  6. end.