equal
deleted
inserted
replaced
6064 PlaySound(sndVaporize); |
6064 PlaySound(sndVaporize); |
6065 iter^.Health := 0; |
6065 iter^.Health := 0; |
6066 iter^.Damage := 0; |
6066 iter^.Damage := 0; |
6067 iter^.State := iter^.State and (not gstAttacking) |
6067 iter^.State := iter^.State and (not gstAttacking) |
6068 end |
6068 end |
6069 else if iter^.Kind = gtSMine then // disabe sticky mine |
6069 else if iter^.Kind = gtSMine then // disabe sticky mine and drop it into the water |
6070 begin |
6070 begin |
6071 iter^.State:= iter^.State or gstFrozen; |
6071 iter^.State:= iter^.State or gstFrozen; |
|
6072 iter^.CollisionMask:= 0; |
6072 vg:= AddVisualGear(hwRound(iter^.X) - 2 + Random(4), hwRound(iter^.Y) - 2 - Random(2), vgtSmoke); |
6073 vg:= AddVisualGear(hwRound(iter^.X) - 2 + Random(4), hwRound(iter^.Y) - 2 - Random(2), vgtSmoke); |
6073 if vg <> nil then |
6074 if vg <> nil then |
6074 vg^.Scale:= 0.4; |
6075 vg^.Scale:= 0.4; |
6075 PlaySound(sndVaporize); |
6076 PlaySound(sndVaporize); |
6076 iter^.State := iter^.State and (not gstAttacking) |
6077 iter^.State := iter^.State and (not gstAttacking) |