equal
deleted
inserted
replaced
923 |
923 |
924 HHGear.Y:= HHGear.Y + cGravity * 100; |
924 HHGear.Y:= HHGear.Y + cGravity * 100; |
925 end; |
925 end; |
926 |
926 |
927 //////////////////////////////////////////////////////////////////////////////// |
927 //////////////////////////////////////////////////////////////////////////////// |
928 const cAirPlaneSpeed = 0.8; |
928 const cAirPlaneSpeed = 1.1; |
929 cBombsDistance = 30; |
929 cBombsDistance = 30; |
930 cBombsSpeed = 0.1; |
930 cBombsSpeed = 0.1; |
931 |
931 |
932 procedure doStepAirAttackWork(Gear: PGear); |
932 procedure doStepAirAttackWork(Gear: PGear); |
933 begin |
933 begin |
937 begin |
937 begin |
938 dec(Gear.Health); |
938 dec(Gear.Health); |
939 AddGear(round(Gear.X), round(Gear.Y), gtAirBomb, 0, cBombsSpeed, 0.0); |
939 AddGear(round(Gear.X), round(Gear.Y), gtAirBomb, 0, cBombsSpeed, 0.0); |
940 Gear.dX:= Gear.dX + cBombsDistance |
940 Gear.dX:= Gear.dX + cBombsDistance |
941 end; |
941 end; |
942 if Gear.X > 2560 then DeleteGear(Gear) |
942 if Gear.X > 3072 then DeleteGear(Gear) |
943 end; |
943 end; |
944 |
944 |
945 procedure doStepAirAttack(Gear: PGear); |
945 procedure doStepAirAttack(Gear: PGear); |
946 begin |
946 begin |
947 AllInactive:= false; |
947 AllInactive:= false; |
948 Gear.X:= -512; |
948 Gear.X:= -1024; |
949 Gear.Y:= -128; |
949 Gear.Y:= -128; |
950 Gear.dX:= TargetPoint.X - |
950 Gear.dX:= TargetPoint.X - |
951 cBombsDistance * 5 / 2 - |
951 cBombsDistance * 5 / 2 - |
952 cBombsSpeed * sqrt(2 * (TargetPoint.Y - Gear.Y) / cGravity); |
952 cBombsSpeed * sqrt(2 * (TargetPoint.Y - Gear.Y) / cGravity); |
953 Gear.Health:= 6; |
953 Gear.Health:= 6; |