equal
deleted
inserted
replaced
492 if (Gear^.Health <= 0) |
492 if (Gear^.Health <= 0) |
493 or (hwRound(Gear^.X) and LAND_WIDTH_MASK <> 0) |
493 or (hwRound(Gear^.X) and LAND_WIDTH_MASK <> 0) |
494 or (hwRound(Gear^.Y) and LAND_HEIGHT_MASK <> 0) then |
494 or (hwRound(Gear^.Y) and LAND_HEIGHT_MASK <> 0) then |
495 begin |
495 begin |
496 if (Gear^.Kind = gtSniperRifleShot) and ((GameFlags and gfLaserSight) = 0) then cLaserSighting:= false; |
496 if (Gear^.Kind = gtSniperRifleShot) and ((GameFlags and gfLaserSight) = 0) then cLaserSighting:= false; |
497 if (Gear^.Ammo^.NumPerTurn <= CurrentHedgehog^.AttacksNum) and |
497 if (Gear^.Ammo^.NumPerTurn <= CurrentHedgehog^.MultiShootAttacks) and |
498 ((GameFlags and gfArtillery) = 0) then cArtillery:= false; |
498 ((GameFlags and gfArtillery) = 0) then cArtillery:= false; |
499 Gear^.doStep:= @doStepShotIdle |
499 Gear^.doStep:= @doStepShotIdle |
500 end; |
500 end; |
501 end; |
501 end; |
502 |
502 |
539 |
539 |
540 if (TurnTimeLeft > 0) then |
540 if (TurnTimeLeft > 0) then |
541 dec(TurnTimeLeft) |
541 dec(TurnTimeLeft) |
542 else |
542 else |
543 begin |
543 begin |
544 PHedgehog(Gear^.Hedgehog)^.AttacksNum:= Gear^.Ammo^.NumPerTurn+1; |
|
545 DeleteGear(Gear); |
544 DeleteGear(Gear); |
546 AfterAttack; |
545 AfterAttack |
547 TurnTimeLeft:= 0 |
|
548 end; |
546 end; |
549 end; |
547 end; |
550 |
548 |
551 //////////////////////////////////////////////////////////////////////////////// |
549 //////////////////////////////////////////////////////////////////////////////// |
552 procedure doStepActionTimer(Gear: PGear); |
550 procedure doStepActionTimer(Gear: PGear); |