hedgewars/uStore.pas
changeset 3853 9bd5319d1fcc
parent 3799 5341dc5a8919
child 3862 4d462b29428e
equal deleted inserted replaced
3852:37f883cc7edb 3853:9bd5319d1fcc
  1518 // free old texture
  1518 // free old texture
  1519 FreeWeaponTooltip;
  1519 FreeWeaponTooltip;
  1520 
  1520 
  1521 // image region
  1521 // image region
  1522 i:= LongInt(atype) - 1;
  1522 i:= LongInt(atype) - 1;
  1523 r.x:= (i shr 5) * 32;
  1523 r.x:= (i shr 4) * 32;
  1524 r.y:= (i mod 32) * 32;
  1524 r.y:= (i mod 16) * 32;
  1525 r.w:= 32;
  1525 r.w:= 32;
  1526 r.h:= 32;
  1526 r.h:= 32;
  1527 
  1527 
  1528 // default (no extra text)
  1528 // default (no extra text)
  1529 extra:= '';
  1529 extra:= '';