22 lignes
335 B

  1. var
  2. z:integer;
  3. begin
  4. case getZ of
  5. 0:z:=120000;
  6. 1:z:=120000;
  7. 2:z:=120000;
  8. 3:z:=120000;
  9. 4:z:=90000;
  10. 5:z:=60000;
  11. 6:z:=30000;
  12. 7:z:=15000;
  13. 8:z:=10000;
  14. 9:z:=5000;
  15. 10:z:=2000;
  16. end;
  17. ResultURL:=GetURLBase+inttostr(z)+'/MainLayer/'+inttostr(GetX)+'_'+inttostr(round(intpower(2,GetZ-1)-GetY-1))+'.png';
  18. end.