changeset 7395 | d0d38cd0d27c |
parent 7394 | 789d7831ec53 |
child 7396 | 7c0e07c23aad |
7394:789d7831ec53 | 7395:d0d38cd0d27c |
---|---|
2945 dy := -dy; |
2945 dy := -dy; |
2946 FrameTicks:= random(400) + 250 |
2946 FrameTicks:= random(400) + 250 |
2947 end |
2947 end |
2948 end; |
2948 end; |
2949 AfterAttack; |
2949 AfterAttack; |
2950 DeleteGear(HHGear); |
2950 HHGear^.Message:= HHGear^.Message or gmDestroy; |
2951 DeleteGear(Gear); |
2951 DeleteGear(Gear); |
2952 end |
2952 end |
2953 else |
2953 else |
2954 begin |
2954 begin |
2955 dec(Gear^.Health, Gear^.Damage); |
2955 dec(Gear^.Health, Gear^.Damage); |