equal
deleted
inserted
replaced
3428 playSound(sndRideOfTheValkyries); |
3428 playSound(sndRideOfTheValkyries); |
3429 end; |
3429 end; |
3430 |
3430 |
3431 // pickup bonuses |
3431 // pickup bonuses |
3432 t := CheckGearNear(Gear, gtCase, 36, 36); |
3432 t := CheckGearNear(Gear, gtCase, 36, 36); |
3433 if t <> nil then |
3433 if (t <> nil) and (HHGear <> nil) then |
3434 PickUp(HHGear, t); |
3434 PickUp(HHGear, t); |
3435 |
3435 |
3436 CheckCollision(Gear); |
3436 CheckCollision(Gear); |
3437 |
3437 |
3438 if ((Gear^.State and gstCollision) <> 0) or CheckGearDrowning(Gear) then |
3438 if ((Gear^.State and gstCollision) <> 0) or CheckGearDrowning(Gear) then |
3462 TagTurnTimeLeft:= TurnTimeLeft; |
3462 TagTurnTimeLeft:= TurnTimeLeft; |
3463 |
3463 |
3464 TurnTimeLeft:= 14 * 125; |
3464 TurnTimeLeft:= 14 * 125; |
3465 end; |
3465 end; |
3466 |
3466 |
3467 HHGear^.Message := 0; |
3467 if HHGear <> nil then |
|
3468 HHGear^.Message := 0; |
3468 ParseCommand('/taunt ' + #1, true) |
3469 ParseCommand('/taunt ' + #1, true) |
3469 end |
3470 end |
3470 end; |
3471 end; |
3471 |
3472 |
3472 procedure doStepRCPlane(Gear: PGear); |
3473 procedure doStepRCPlane(Gear: PGear); |