equal
deleted
inserted
replaced
616 exit |
616 exit |
617 end; |
617 end; |
618 dec(Gear^.Timer); |
618 dec(Gear^.Timer); |
619 if Gear^.Timer = 0 then |
619 if Gear^.Timer = 0 then |
620 begin |
620 begin |
|
621 PHedgehog(Gear^.Hedgehog)^.Gear^.Message:= PHedgehog(Gear^.Hedgehog)^.Gear^.Message and not gmAttack; |
|
622 PHedgehog(Gear^.Hedgehog)^.Gear^.State:= PHedgehog(Gear^.Hedgehog)^.Gear^.State and not gstAttacking; |
|
623 AttackBar:= 0; |
|
624 |
621 Gear^.SoundChannel := LoopSound(sndBee); |
625 Gear^.SoundChannel := LoopSound(sndBee); |
622 Gear^.Timer := 5000; |
626 Gear^.Timer := 5000; |
623 // save initial speed in otherwise unused Friction variable |
627 // save initial speed in otherwise unused Friction variable |
624 Gear^.Friction := Distance(Gear^.dX, Gear^.dY); |
628 Gear^.Friction := Distance(Gear^.dX, Gear^.dY); |
625 Gear^.doStep := @doStepBeeWork |
629 Gear^.doStep := @doStepBeeWork |