hedgewars/uWorld.pas
changeset 3952 d6412423da45
parent 3890 e4b7b30232fd
child 3966 cbec77b5f706
equal deleted inserted replaced
3950:296cbdd85e50 3952:d6412423da45
   188 const BORDERSIZE = 2;
   188 const BORDERSIZE = 2;
   189 var x, y, i, t, g: LongInt;
   189 var x, y, i, t, g: LongInt;
   190     Slot, Pos, STurns: LongInt;
   190     Slot, Pos, STurns: LongInt;
   191     Ammo: PHHAmmo;
   191     Ammo: PHHAmmo;
   192 begin
   192 begin
   193 if  (TurnTimeLeft = 0) or (not CurrentTeam^.ExtDriven and (((CurAmmoGear = nil) or ((Ammoz[CurAmmoGear^.AmmoType].Ammo.Propz and ammoprop_AltAttack) = 0)) and hideAmmoMenu)) then bShowAmmoMenu:= false;
   193 if (TurnTimeLeft = 0) or (not CurrentTeam^.ExtDriven and (((CurAmmoGear = nil) or ((Ammoz[CurAmmoGear^.AmmoType].Ammo.Propz and ammoprop_AltAttack) = 0)) and hideAmmoMenu)) then
       
   194     bShowAmmoMenu:= false;
   194 if bShowAmmoMenu then
   195 if bShowAmmoMenu then
   195    begin
   196    begin
   196    FollowGear:= nil;
   197    FollowGear:= nil;
   197    if AMxShift = AMWidth then prevPoint.X:= 0;
   198    if AMxShift = AMWidth then prevPoint.X:= 0;
   198    if (cReducedQuality and rqSlowMenu) <> 0 then
   199    if (cReducedQuality and rqSlowMenu) <> 0 then