hedgewars/uWorld.pas
changeset 2226 e35b62cb7a1c
parent 2224 4f3e7bd31841
child 2268 053eb81e60ee
equal deleted inserted replaced
2225:162d8f6bca25 2226:e35b62cb7a1c
    83     Slot, Pos: LongInt;
    83     Slot, Pos: LongInt;
    84 begin
    84 begin
    85 if (TurnTimeLeft = 0) or (((CurAmmoGear = nil) or ((CurAmmoGear^.Ammo^.Propz and ammoprop_AltAttack) = 0)) and 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    FollowGear:= nil;
    88    if AMxShift = 210 then prevPoint.X:= 0;
    89    if AMxShift = 210 then prevPoint.X:= 0;
    89    if cReducedQuality then
    90    if cReducedQuality then
    90        AMxShift:= 0
    91        AMxShift:= 0
    91    else
    92    else
    92        if AMxShift > 0 then dec(AMxShift, MENUSPEED);
    93        if AMxShift > 0 then dec(AMxShift, MENUSPEED);