equal
deleted
inserted
replaced
3612 Gear^.Damage := 0 |
3612 Gear^.Damage := 0 |
3613 end |
3613 end |
3614 end; |
3614 end; |
3615 |
3615 |
3616 procedure doStepKamikazeIdle(Gear: PGear); |
3616 procedure doStepKamikazeIdle(Gear: PGear); |
|
3617 var HHGear: PGear; |
3617 begin |
3618 begin |
3618 AllInactive := false; |
3619 AllInactive := false; |
3619 dec(Gear^.Timer); |
3620 dec(Gear^.Timer); |
|
3621 HHGear := Gear^.Hedgehog^.Gear; |
|
3622 if (HHGear = nil) or (HHGear^.Damage <> 0) then |
|
3623 begin |
|
3624 if (HHGear <> nil) then |
|
3625 AfterAttack; |
|
3626 ClearHitOrder(); |
|
3627 ClearProximityCache(); |
|
3628 DeleteGear(Gear); |
|
3629 exit; |
|
3630 end; |
3620 if Gear^.Timer = 0 then |
3631 if Gear^.Timer = 0 then |
3621 begin |
3632 begin |
3622 Gear^.Pos := 1; |
3633 Gear^.Pos := 1; |
3623 PlaySoundV(sndKamikaze, Gear^.Hedgehog^.Team^.voicepack); |
3634 PlaySoundV(sndKamikaze, Gear^.Hedgehog^.Team^.voicepack); |
3624 ClearHitOrder(); |
3635 ClearHitOrder(); |