Du kan inte välja fler än 25 ämnen Ämnen måste starta med en bokstav eller siffra, kan innehålla bindestreck ('-') och vara max 35 tecken långa.

GetUrlScript.txt 461 B

4 år sedan
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.