1127 if Team^.hasGone then |
1127 if Team^.hasGone then |
1128 TeamGoneEffect(Team^) |
1128 TeamGoneEffect(Team^) |
1129 else |
1129 else |
1130 doStepHedgehogDriven(Gear) |
1130 doStepHedgehogDriven(Gear) |
1131 end; |
1131 end; |
1132 |
1132 if (Gear^.Message and (gmAllStoppable or gmLJump or gmHJump) = 0) and |
1133 if ((GameTicks mod 50) = 0) and (Gear^.Message and (gmAllStoppable or gmLJump or gmHJump) = 0) and |
|
1134 (Gear^.State and (gstHHJumping or gstHHHJump or gstAttacking) = 0) and |
1133 (Gear^.State and (gstHHJumping or gstHHHJump or gstAttacking) = 0) and |
1135 not Gear^.dY.isNegative and |
1134 not Gear^.dY.isNegative and |
|
1135 (GameTicks mod (100*hwRound(cMaxWindSpeed/(cGravity/2))) = 0) and |
1136 (TestCollisionYwithGear(Gear, 1) and lfIce <> 0) then |
1136 (TestCollisionYwithGear(Gear, 1) and lfIce <> 0) then |
1137 begin |
1137 begin |
1138 slope:= CalcSlopeBelowGear(Gear); |
1138 slope:= CalcSlopeBelowGear(Gear); |
1139 Gear^.dX:=Gear^.dX+cGravity*_128*slope; |
1139 Gear^.dX:=Gear^.dX+slope*_0_07; |
1140 if slope.QWordValue <> 0 then Gear^.State:= Gear^.State or gstMoving; |
1140 if slope.QWordValue <> 0 then Gear^.State:= Gear^.State or gstMoving; |
1141 (* |
1141 (* |
1142 x:= hwRound(Gear^.X); |
1142 x:= hwRound(Gear^.X); |
1143 y:= hwRound(Gear^.Y); |
1143 y:= hwRound(Gear^.Y); |
1144 AddVisualGear(x, y, vgtSmokeTrace); |
1144 AddVisualGear(x, y, vgtSmokeTrace); |