equal
deleted
inserted
replaced
1022 Gear^.X:= Gear^.X + Gear^.Tag * cAirPlaneSpeed; |
1022 Gear^.X:= Gear^.X + Gear^.Tag * cAirPlaneSpeed; |
1023 if (Gear^.Health > 0)and( not (Gear^.X < Gear^.dX))and(Gear^.X < Gear^.dX + cAirPlaneSpeed) then |
1023 if (Gear^.Health > 0)and( not (Gear^.X < Gear^.dX))and(Gear^.X < Gear^.dX + cAirPlaneSpeed) then |
1024 begin |
1024 begin |
1025 dec(Gear^.Health); |
1025 dec(Gear^.Health); |
1026 case Gear^.State of |
1026 case Gear^.State of |
1027 0: AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtAirBomb, 0, Gear^.Tag * cBombsSpeed, 0, 0); |
1027 0: FollowGear:= AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtAirBomb, 0, Gear^.Tag * cBombsSpeed, 0, 0); |
1028 1: AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtMine, 0, Gear^.Tag * cBombsSpeed, 0, 0); |
1028 1: FollowGear:= AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtMine, 0, Gear^.Tag * cBombsSpeed, 0, 0); |
1029 end; |
1029 end; |
1030 Gear^.dX:= Gear^.dX + Gear^.Tag * cBombsDistance |
1030 Gear^.dX:= Gear^.dX + Gear^.Tag * cBombsDistance |
1031 end; |
1031 end; |
1032 if (Gear^.X > 3072) or (Gear^.X < -1024) then DeleteGear(Gear) |
1032 if (Gear^.X > 3072) or (Gear^.X < -1024) then DeleteGear(Gear) |
1033 end; |
1033 end; |