equal
deleted
inserted
replaced
1298 SetLittle(HHGear^.dX); |
1298 SetLittle(HHGear^.dX); |
1299 HHGear^.dY := _0; |
1299 HHGear^.dY := _0; |
1300 end |
1300 end |
1301 else |
1301 else |
1302 begin |
1302 begin |
1303 if CheckLandValue(hwRound(Gear^.X), hwRound(Gear^.Y + Gear^.dY + cGravity), lfIndestructible) then |
1303 if CheckLandValue(hwRound(Gear^.X), hwRound(Gear^.Y + Gear^.dY + cGravity), $FF00) then |
1304 begin |
1304 begin |
1305 Gear^.dY := Gear^.dY + cGravity; |
1305 Gear^.dY := Gear^.dY + cGravity; |
1306 Gear^.Y := Gear^.Y + Gear^.dY |
1306 Gear^.Y := Gear^.Y + Gear^.dY |
1307 end; |
1307 end; |
1308 if hwRound(Gear^.Y) > cWaterLine then Gear^.Timer := 1 |
1308 if hwRound(Gear^.Y) > cWaterLine then Gear^.Timer := 1 |
1309 end; |
1309 end; |
1310 |
1310 |
1311 Gear^.X := Gear^.X + HHGear^.dX; |
1311 Gear^.X := Gear^.X + HHGear^.dX; |
1312 if CheckLandValue(hwRound(Gear^.X), hwRound(Gear^.Y)-cHHRadius, lfIndestructible) then |
1312 if CheckLandValue(hwRound(Gear^.X), hwRound(Gear^.Y)-cHHRadius, $FF00) then |
1313 begin |
1313 begin |
1314 HHGear^.X := Gear^.X; |
1314 HHGear^.X := Gear^.X; |
1315 HHGear^.Y := Gear^.Y - int2hwFloat(cHHRadius) |
1315 HHGear^.Y := Gear^.Y - int2hwFloat(cHHRadius) |
1316 end; |
1316 end; |
1317 |
1317 |