6 рядки
218 B

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