equal
deleted
inserted
replaced
705 end; |
705 end; |
706 end; |
706 end; |
707 end; |
707 end; |
708 Gear:= Gear^.NextGear |
708 Gear:= Gear^.NextGear |
709 end; |
709 end; |
710 if (Mask and EXPLDontDraw) = 0 then DrawExplosion(X, Y, Radius); |
710 if (Mask and EXPLDontDraw) = 0 then |
|
711 if (GameFlags and gfSolidLand) = 0 then DrawExplosion(X, Y, Radius); |
711 uAIMisc.AwareOfExplosion(0, 0, 0) |
712 uAIMisc.AwareOfExplosion(0, 0, 0) |
712 end; |
713 end; |
713 |
714 |
714 procedure ShotgunShot(Gear: PGear); |
715 procedure ShotgunShot(Gear: PGear); |
715 var t: PGear; |
716 var t: PGear; |
746 t^.Active:= true |
747 t^.Active:= true |
747 end; |
748 end; |
748 end; |
749 end; |
749 t:= t^.NextGear |
750 t:= t^.NextGear |
750 end; |
751 end; |
751 DrawExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), cShotgunRadius) |
752 if (GameFlags and gfSolidLand) = 0 then DrawExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), cShotgunRadius) |
752 end; |
753 end; |
753 |
754 |
754 procedure AmmoShove(Ammo: PGear; Damage, Power: LongInt); |
755 procedure AmmoShove(Ammo: PGear; Damage, Power: LongInt); |
755 var t: PGearArray; |
756 var t: PGearArray; |
756 i: LongInt; |
757 i: LongInt; |