hedgewars/GSHandlers.inc
changeset 4155 9160dbe77118
parent 4153 6bd94e4c5d65
child 4160 043c17a8b3ca
equal deleted inserted replaced
4154:20b300499340 4155:9160dbe77118
  3066     Gear^.X := HHGear^.X;
  3066     Gear^.X := HHGear^.X;
  3067     Gear^.Y := HHGear^.Y;
  3067     Gear^.Y := HHGear^.Y;
  3068     // For some reason I need to reapply followgear here, something else grabs it otherwise.
  3068     // For some reason I need to reapply followgear here, something else grabs it otherwise.
  3069     if not bShowAmmoMenu and not CurrentTeam^.ExtDriven then FollowGear := HHGear;
  3069     if not bShowAmmoMenu and not CurrentTeam^.ExtDriven then FollowGear := HHGear;
  3070 
  3070 
       
  3071     if not isUnderWater and hasBorder and ((HHGear^.X < _0) or (hwRound(HHGear^.X) > LAND_WIDTH)) then HHGear^.dY.isNegative:= false;
  3071     if ((Gear^.State and gsttmpFlag) = 0) or (HHGear^.dY < _0) then doStepHedgehogMoving(HHGear);
  3072     if ((Gear^.State and gsttmpFlag) = 0) or (HHGear^.dY < _0) then doStepHedgehogMoving(HHGear);
  3072 
  3073 
  3073     if // (Gear^.Health = 0)
  3074     if // (Gear^.Health = 0)
  3074         (HHGear^.Damage <> 0)
  3075         (HHGear^.Damage <> 0)
  3075         //or CheckGearDrowning(HHGear)
  3076         //or CheckGearDrowning(HHGear)