equal
deleted
inserted
replaced
783 procedure PickUp(HH, Gear: PGear); |
783 procedure PickUp(HH, Gear: PGear); |
784 var ag, gi: PGear; |
784 var ag, gi: PGear; |
785 healthBoost: LongInt; |
785 healthBoost: LongInt; |
786 begin |
786 begin |
787 if Gear^.State and gstFrozen <> 0 then exit; |
787 if Gear^.State and gstFrozen <> 0 then exit; |
|
788 if Gear^.Message and gmDestroy <> 0 then exit; |
788 |
789 |
789 Gear^.Message:= gmDestroy; |
790 Gear^.Message:= gmDestroy; |
790 if (Gear^.Pos and posCaseExplode) <> 0 then |
791 if (Gear^.Pos and posCaseExplode) <> 0 then |
791 if (Gear^.Pos and posCasePoison) <> 0 then |
792 if (Gear^.Pos and posCasePoison) <> 0 then |
792 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 25, HH^.Hedgehog, EXPLAutoSound + EXPLPoisoned) |
793 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 25, HH^.Hedgehog, EXPLAutoSound + EXPLPoisoned) |