equal
deleted
inserted
replaced
1112 Gear^.Y:= -_128; |
1112 Gear^.Y:= -_128; |
1113 Gear^.dX:= int2hwFloat(TargetPoint.X - 5 * Gear^.Tag * 15); |
1113 Gear^.dX:= int2hwFloat(TargetPoint.X - 5 * Gear^.Tag * 15); |
1114 |
1114 |
1115 if int2hwFloat(TargetPoint.Y) - Gear^.Y > _0 then |
1115 if int2hwFloat(TargetPoint.Y) - Gear^.Y > _0 then |
1116 Gear^.dX:= Gear^.dX - cBombsSpeed * hwSqrt((int2hwFloat(TargetPoint.Y) - Gear^.Y) * 2 / cGravity) * Gear^.Tag; |
1116 Gear^.dX:= Gear^.dX - cBombsSpeed * hwSqrt((int2hwFloat(TargetPoint.Y) - Gear^.Y) * 2 / cGravity) * Gear^.Tag; |
1117 addfilelog('attack: x = '+floattostr(gear^.dx)); |
|
1118 |
1117 |
1119 Gear^.Health:= 6; |
1118 Gear^.Health:= 6; |
1120 Gear^.doStep:= @doStepAirAttackWork |
1119 Gear^.doStep:= @doStepAirAttackWork; |
|
1120 PlaySound(sndIncoming, false) |
1121 end; |
1121 end; |
1122 |
1122 |
1123 //////////////////////////////////////////////////////////////////////////////// |
1123 //////////////////////////////////////////////////////////////////////////////// |
1124 |
1124 |
1125 procedure doStepAirBomb(Gear: PGear); |
1125 procedure doStepAirBomb(Gear: PGear); |