equal
deleted
inserted
replaced
784 begin |
784 begin |
785 if (Gear^.Message and gm_Destroy) > 0 then |
785 if (Gear^.Message and gm_Destroy) > 0 then |
786 begin |
786 begin |
787 DeleteGear(Gear); |
787 DeleteGear(Gear); |
788 FreeActionsList; |
788 FreeActionsList; |
|
789 with CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog] do |
|
790 if Gear <> nil then Gear^.Message:= Gear^.Message and not (gm_LJump or gm_HJump); |
789 exit |
791 exit |
790 end; |
792 end; |
791 |
793 |
792 if Gear^.Damage > 0 then |
794 if Gear^.Damage > 0 then |
793 begin |
795 begin |