equal
deleted
inserted
replaced
80 procedure ShowAmmoMenu; |
80 procedure ShowAmmoMenu; |
81 const MENUSPEED = 15; |
81 const MENUSPEED = 15; |
82 var x, y, i, t, l: LongInt; |
82 var x, y, i, t, l: LongInt; |
83 Slot, Pos: LongInt; |
83 Slot, Pos: LongInt; |
84 begin |
84 begin |
85 if (TurnTimeLeft = 0) or KbdKeyPressed then bShowAmmoMenu:= false; |
85 if (TurnTimeLeft = 0) or (((CurAmmoGear = nil) or ((CurAmmoGear^.Ammo^.Propz and ammoprop_AltAttack) = 0)) and KbdKeyPressed) then bShowAmmoMenu:= false; |
86 if bShowAmmoMenu then |
86 if bShowAmmoMenu then |
87 begin |
87 begin |
88 if AMxShift = 210 then prevPoint.X:= 0; |
88 if AMxShift = 210 then prevPoint.X:= 0; |
89 if cReducedQuality then |
89 if cReducedQuality then |
90 AMxShift:= 0 |
90 AMxShift:= 0 |