GetUrlScript.txt 317 B

54 年之前
54 年之前
54 年之前
123456
  1. var
  2. maptile: string;
  3. begin
  4. maptile := RegExprReplaceMatchSubStr(GetURLBase, '1.\maps\.nlp', inttostr( Random(3)+1 )+'.maps.nlp' );
  5. ResultURL:=maptile+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'/256/png8?app_id=xWVIueSv6JL0aJ5xqTxb&app_code=djPZyynKsbTjIUDOBcHZ2g&lg=rus&ppi=72&pview=RUS';
  6. end.