equal
deleted
inserted
replaced
7293 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), Gear^.Boom, Gear^.Hedgehog, EXPLAutoSound); |
7293 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), Gear^.Boom, Gear^.Hedgehog, EXPLAutoSound); |
7294 DeleteGear(Gear); |
7294 DeleteGear(Gear); |
7295 exit; |
7295 exit; |
7296 end; |
7296 end; |
7297 |
7297 |
|
7298 if ((Gear^.Health * 100) < random(cSentryHealth * 90)) and ((GameTicks and $FF) = 0) then |
|
7299 if Gear^.Health * 2 < cSentryHealth then |
|
7300 AddVisualGear(hwRound(Gear^.X) - 8 + Random(16), hwRound(Gear^.Y) - 2, vgtSmoke) |
|
7301 else |
|
7302 AddVisualGear(hwRound(Gear^.X) - 8 + Random(16), hwRound(Gear^.Y) - 2, vgtSmokeWhite); |
|
7303 |
7298 if Gear^.dY.isNegative or (TestCollisionYwithGear(Gear, 1) = 0) then |
7304 if Gear^.dY.isNegative or (TestCollisionYwithGear(Gear, 1) = 0) then |
7299 begin |
7305 begin |
7300 doStepFallingGear(Gear); |
7306 doStepFallingGear(Gear); |
7301 if Gear^.Tag <> sentry_Idle then |
7307 if Gear^.Tag <> sentry_Idle then |
7302 begin |
7308 begin |