hedgewars/uGearsUtils.pas
changeset 10828 9867dd60a66a
parent 10827 2b717f687c72
child 11046 47a8c19ecb60
equal deleted inserted replaced
10827:2b717f687c72 10828:9867dd60a66a
   712 
   712 
   713         if isSkip then
   713         if isSkip then
   714             ScriptCall('onGearWaterSkip', Gear^.uid);
   714             ScriptCall('onGearWaterSkip', Gear^.uid);
   715         end
   715         end
   716     else
   716     else
   717         begin
       
   718         if (not ((Gear^.Kind = gtJetpack) or (Gear^.Kind = gtBee))) then
       
   719             Gear^.State:= (Gear^.State and (not gstSubmersible));  // making it temporary for most gears is more attractive I think
       
   720         CheckGearDrowning := false
   717         CheckGearDrowning := false
   721         end
       
   722 end;
   718 end;
   723 
   719 
   724 
   720 
   725 procedure ResurrectHedgehog(var gear: PGear);
   721 procedure ResurrectHedgehog(var gear: PGear);
   726 var tempTeam : PTeam;
   722 var tempTeam : PTeam;