equal
deleted
inserted
replaced
683 var s: shortstring; |
683 var s: shortstring; |
684 i: LongInt; |
684 i: LongInt; |
685 vga: PVisualGear; |
685 vga: PVisualGear; |
686 ag, gi: PGear; |
686 ag, gi: PGear; |
687 begin |
687 begin |
|
688 if Gear^.State and gstFrozen <> 0 then exit; |
|
689 |
688 Gear^.Message:= gmDestroy; |
690 Gear^.Message:= gmDestroy; |
689 if (Gear^.Pos and posCaseExplode) <> 0 then |
691 if (Gear^.Pos and posCaseExplode) <> 0 then |
690 if (Gear^.Pos and posCasePoison) <> 0 then |
692 if (Gear^.Pos and posCasePoison) <> 0 then |
691 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 25, HH^.Hedgehog, EXPLAutoSound + EXPLPoisoned) |
693 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 25, HH^.Hedgehog, EXPLAutoSound + EXPLPoisoned) |
692 else |
694 else |
1251 and (HHGear^.dY > _0_39) |
1253 and (HHGear^.dY > _0_39) |
1252 and (CurAmmoType = amParachute) then |
1254 and (CurAmmoType = amParachute) then |
1253 HHGear^.Message:= HHGear^.Message or gmAttack; |
1255 HHGear^.Message:= HHGear^.Message or gmAttack; |
1254 // check for case with ammo |
1256 // check for case with ammo |
1255 t:= CheckGearNear(HHGear, gtCase, 36, 36); |
1257 t:= CheckGearNear(HHGear, gtCase, 36, 36); |
1256 if (t <> nil) and (t^.State and gstFrozen = 0) then |
1258 if (t <> nil) then |
1257 PickUp(HHGear, t) |
1259 PickUp(HHGear, t) |
1258 end; |
1260 end; |
1259 |
1261 |
1260 if (CurAmmoGear = nil) then |
1262 if (CurAmmoGear = nil) then |
1261 if (((HHGear^.Message and gmAttack) <> 0) |
1263 if (((HHGear^.Message and gmAttack) <> 0) |