hedgewars/uGearsHedgehog.pas
changeset 13771 9fdb13633bcb
parent 13758 885404cdf07a
child 13797 5d46b4fae757
equal deleted inserted replaced
13770:3d2a7c563d8e 13771:9fdb13633bcb
   908         PlaySoundV(sndJump3, Gear^.Hedgehog^.Team^.voicepack);
   908         PlaySoundV(sndJump3, Gear^.Hedgehog^.Team^.voicepack);
   909         exit
   909         exit
   910         end;
   910         end;
   911 
   911 
   912     if (Gear^.Message and (gmLeft or gmRight) <> 0) and (Gear^.State and gstMoving = 0) and 
   912     if (Gear^.Message and (gmLeft or gmRight) <> 0) and (Gear^.State and gstMoving = 0) and 
   913 		(CheckGearNear(Gear, gtPortal, 26, 26) <> nil) then 
   913 		(CheckGearNear(Gear, gtPortal, 26, 26) = nil) then
   914 		Gear^.PortalCounter:= 0;
   914 		Gear^.PortalCounter:= 0;
   915     PrevdX:= hwSign(Gear^.dX);
   915     PrevdX:= hwSign(Gear^.dX);
   916     if (Gear^.Message and gmLeft  )<>0 then
   916     if (Gear^.Message and gmLeft  )<>0 then
   917         Gear^.dX:= -cLittle else
   917         Gear^.dX:= -cLittle else
   918     if (Gear^.Message and gmRight )<>0 then
   918     if (Gear^.Message and gmRight )<>0 then