equal
deleted
inserted
replaced
1114 TeamGoneEffect(Team^) |
1114 TeamGoneEffect(Team^) |
1115 else |
1115 else |
1116 doStepHedgehogDriven(Gear) |
1116 doStepHedgehogDriven(Gear) |
1117 end; |
1117 end; |
1118 |
1118 |
1119 if ((GameTicks mod 100) = 0) and (Gear^.State and (gstMoving or gstHHJumping or gstHHHJump) = 0) and ((Gear^.Message and gmAllStoppable) = 0) and |
1119 if ((GameTicks mod 50) = 0) and (Gear^.State and (gstMoving or gstHHJumping or gstHHHJump) = 0) and ((Gear^.Message and gmAllStoppable) = 0) and |
1120 (TestCollisionYwithGear(Gear, 1) and lfIce <> 0) then |
1120 (TestCollisionYwithGear(Gear, 1) and lfIce <> 0) then |
1121 begin |
1121 begin |
1122 if CheckLandValue(hwRound(Gear^.X), hwRound(Gear^.Y)+cHHRadius, lfIce) then |
1122 if CheckLandValue(hwRound(Gear^.X), hwRound(Gear^.Y)+cHHRadius, lfIce) then |
1123 begin |
1123 begin |
1124 Gear^.dX.QWordValue:= Gear^.dX.QWordValue + cGravity.QWordValue * 150; |
1124 Gear^.dX.QWordValue:= Gear^.dX.QWordValue + cGravity.QWordValue * 75; |
1125 Gear^.State:= Gear^.State or gstMoving; |
1125 Gear^.State:= Gear^.State or gstMoving; |
1126 end |
1126 end |
1127 (* |
1127 (* |
1128 // check land slope, and impart a dX based on it |
1128 // check land slope, and impart a dX based on it |
1129 tdX:= Gear^.dX; |
1129 tdX:= Gear^.dX; |