equal
deleted
inserted
replaced
840 begin |
840 begin |
841 if (Gear^.Message and gm_Destroy) > 0 then |
841 if (Gear^.Message and gm_Destroy) > 0 then |
842 begin |
842 begin |
843 DeleteGear(Gear); |
843 DeleteGear(Gear); |
844 FreeActionsList; |
844 FreeActionsList; |
845 SetAllHHToActive; // someone could be on top of the case |
845 SetAllToActive; // something (hh, mine, etc...) could be on top of the case |
846 with CurrentHedgehog^ do |
846 with CurrentHedgehog^ do |
847 if Gear <> nil then Gear^.Message:= Gear^.Message and not (gm_LJump or gm_HJump); |
847 if Gear <> nil then Gear^.Message:= Gear^.Message and not (gm_LJump or gm_HJump); |
848 exit |
848 exit |
849 end; |
849 end; |
850 |
850 |