equal
deleted
inserted
replaced
1310 procedure doStepAirAttack(Gear: PGear); |
1310 procedure doStepAirAttack(Gear: PGear); |
1311 begin |
1311 begin |
1312 AllInactive:= false; |
1312 AllInactive:= false; |
1313 |
1313 |
1314 if Gear^.X.QWordValue = 0 then |
1314 if Gear^.X.QWordValue = 0 then |
1315 Gear^.Tag:= 1 |
1315 begin |
|
1316 Gear^.Tag:= 1; |
|
1317 Gear^.X:= -_1024; |
|
1318 end |
1316 else |
1319 else |
|
1320 begin |
1317 Gear^.Tag:= -1; |
1321 Gear^.Tag:= -1; |
1318 |
1322 Gear^.X:= int2hwFloat(LAND_WIDTH + 1024); |
1319 Gear^.X:= _1024 - _2048 * Gear^.Tag; |
1323 end; |
|
1324 |
1320 Gear^.Y:= -_300; |
1325 Gear^.Y:= -_300; |
1321 Gear^.dX:= int2hwFloat(TargetPoint.X - 5 * Gear^.Tag * 15); |
1326 Gear^.dX:= int2hwFloat(TargetPoint.X - 5 * Gear^.Tag * 15); |
1322 |
1327 |
1323 if int2hwFloat(TargetPoint.Y) - Gear^.Y > _0 then |
1328 if int2hwFloat(TargetPoint.Y) - Gear^.Y > _0 then |
1324 Gear^.dX:= Gear^.dX - cBombsSpeed * hwSqrt((int2hwFloat(TargetPoint.Y) - Gear^.Y) * 2 / cGravity) * Gear^.Tag; |
1329 Gear^.dX:= Gear^.dX - cBombsSpeed * hwSqrt((int2hwFloat(TargetPoint.Y) - Gear^.Y) * 2 / cGravity) * Gear^.Tag; |