Você não pode selecionar mais de 25 tópicos Os tópicos devem começar com uma letra ou um número, podem incluir traços ('-') e podem ter até 35 caracteres.

GetUrlScript.txt 461 B

54 anos atrás
123456789101112131415161718
  1. var
  2. sh_x:array[0..24] of integer;
  3. sh_y:array[0..24] of integer;
  4. begin
  5. sh_x[0]:=301; sh_y[0]:=589;
  6. sh_x[1]:=301; sh_y[1]:=589;
  7. sh_x[2]:=301; sh_y[2]:=589;
  8. sh_x[3]:=301; sh_y[3]:=589;
  9. sh_x[4]:=0; sh_y[4]:=0;
  10. sh_x[5]:=0; sh_y[5]:=0;
  11. sh_x[6]:=0; sh_y[6]:=0;
  12. sh_x[7]:=0; sh_y[7]:=0;
  13. sh_x[8]:=0; sh_y[8]:=0;
  14. sh_x[9]:=0; sh_y[9]:=0;
  15. ResultURL:=GetUrlBase+'/'+inttostr(Getz-3)+'/'+inttostr(GetY+sh_y[getz])+'/'+inttostr(GetX+sh_x[getz])+'.png';
  16. end.