GetUrlScript.txt 208 B

55 jaren geleden
55 jaren geleden
55 jaren geleden
55 jaren geleden
123456
  1. var
  2. tt: string;
  3. begin
  4. tt := RegExprReplaceMatchSubStr(GetURLBase, 't\.maps', 't'+inttostr( Random(4) )+'maps' );
  5. ResultURL := tt + inttostr(Getz-1)+'/'+inttostr(GetY)+'/'+inttostr(GetX)+'.png';
  6. end.