hedgewars/uWorld.pas
changeset 2885 518e6e66239d
parent 2863 9eb53b1f1842
child 2903 e28356fe532a
equal deleted inserted replaced
2884:a2ca1f7fe6c5 2885:518e6e66239d
   136 const MENUSPEED = 15;
   136 const MENUSPEED = 15;
   137 var x, y, i, t, l, g: LongInt;
   137 var x, y, i, t, l, g: LongInt;
   138     Slot, Pos: LongInt;
   138     Slot, Pos: LongInt;
   139     Ammo: PHHAmmo;
   139     Ammo: PHHAmmo;
   140 begin
   140 begin
   141 if (TurnTimeLeft = 0) or (((CurAmmoGear = nil) or ((CurAmmoGear^.Ammo^.Propz and ammoprop_AltAttack) = 0)) and hideAmmoMenu) then bShowAmmoMenu:= false;
   141 if  (TurnTimeLeft = 0) or (not CurrentTeam^.ExtDriven and (((CurAmmoGear = nil) or ((CurAmmoGear^.Ammo^.Propz and ammoprop_AltAttack) = 0)) and hideAmmoMenu)) then bShowAmmoMenu:= false;
   142 if bShowAmmoMenu then
   142 if bShowAmmoMenu then
   143    begin
   143    begin
   144    FollowGear:= nil;
   144    FollowGear:= nil;
   145    if AMxShift = 210 then prevPoint.X:= 0;
   145    if AMxShift = 210 then prevPoint.X:= 0;
   146    if cReducedQuality then
   146    if cReducedQuality then