16 Zeilen
273 B

  1. var
  2. i:integer;
  3. begin
  4. case getz of
  5. 1: i:= 16384;
  6. 2: i:= 8192;
  7. 3: i:= 4096;
  8. 4: i:= 2048;
  9. 5: i:= 1024;
  10. 6: i:= 512;
  11. 7: i:= 256;
  12. else i:=256;
  13. end;
  14. ResultURL:=GetURLBase+version+'&l='+inttostr(getz-1)+'&r='+inttostr(gety*i)+','+inttostr(getx*i)+',256,256';
  15. end.