619 Inc(MultiShootAttacks); |
619 Inc(MultiShootAttacks); |
620 |
620 |
621 if (Ammoz[a].Ammo.NumPerTurn >= MultiShootAttacks) and ((GameFlags and gfMultiWeapon) = 0) then |
621 if (Ammoz[a].Ammo.NumPerTurn >= MultiShootAttacks) and ((GameFlags and gfMultiWeapon) = 0) then |
622 begin |
622 begin |
623 s:= ansistring(inttostr(Ammoz[a].Ammo.NumPerTurn - MultiShootAttacks + 1)); |
623 s:= ansistring(inttostr(Ammoz[a].Ammo.NumPerTurn - MultiShootAttacks + 1)); |
624 AddCaption(formatA(trmsg[sidRemaining], s), cWhiteColor, capgrpAmmostate); |
624 AddCaption(formatA(trmsg[sidRemaining], s), capcolDefault, capgrpAmmostate); |
625 end; |
625 end; |
626 |
626 |
627 if (Ammoz[a].Ammo.NumPerTurn >= MultiShootAttacks) |
627 if (Ammoz[a].Ammo.NumPerTurn >= MultiShootAttacks) |
628 or ((GameFlags and gfMultiWeapon) <> 0) then |
628 or ((GameFlags and gfMultiWeapon) <> 0) then |
629 begin |
629 begin |
1260 inc(Gear^.FlightTime); |
1260 inc(Gear^.FlightTime); |
1261 if (Gear^.FlightTime > 1500) and ((hwRound(Gear^.X) < LongInt(leftX)-250) or (hwRound(Gear^.X) > LongInt(rightX)+250)) then |
1261 if (Gear^.FlightTime > 1500) and ((hwRound(Gear^.X) < LongInt(leftX)-250) or (hwRound(Gear^.X) > LongInt(rightX)+250)) then |
1262 begin |
1262 begin |
1263 Gear^.FlightTime:= 0; |
1263 Gear^.FlightTime:= 0; |
1264 s:= ansistring(CurrentHedgehog^.Name); |
1264 s:= ansistring(CurrentHedgehog^.Name); |
1265 AddCaption(FormatA(GetEventString(eidHomerun), s), cWhiteColor, capgrpMessage); |
1265 AddCaption(FormatA(GetEventString(eidHomerun), s), capcolDefault, capgrpMessage); |
1266 PlaySound(sndHomerun) |
1266 PlaySound(sndHomerun) |
1267 end; |
1267 end; |
1268 end |
1268 end |
1269 else |
1269 else |
1270 begin |
1270 begin |
1302 begin |
1302 begin |
1303 AddVoice(sndBoring, Hedgehog^.Team^.voicepack); |
1303 AddVoice(sndBoring, Hedgehog^.Team^.voicepack); |
1304 if (GameFlags and gfInfAttack = 0) then |
1304 if (GameFlags and gfInfAttack = 0) then |
1305 begin |
1305 begin |
1306 s:= Hedgehog^.Name; |
1306 s:= Hedgehog^.Name; |
1307 AddCaption(FormatA(GetEventString(eidTimeout), s), cWhiteColor, capgrpMessage); |
1307 AddCaption(FormatA(GetEventString(eidTimeout), s), capcolDefault, capgrpMessage); |
1308 end; |
1308 end; |
1309 end; |
1309 end; |
1310 isCursorVisible:= false; |
1310 isCursorVisible:= false; |
1311 HHGear^.State:= HHGear^.State and (not (gstHHDriven or gstAnimation or gstAttacking)); |
1311 HHGear^.State:= HHGear^.State and (not (gstHHDriven or gstAnimation or gstAttacking)); |
1312 AttackBar:= 0; |
1312 AttackBar:= 0; |
1471 Gear^.State:= (Gear^.State or gstHHDeath) and (not gstAnimation); |
1471 Gear^.State:= (Gear^.State or gstHHDeath) and (not gstAnimation); |
1472 Gear^.doStep:= @doStepHedgehogDead; |
1472 Gear^.doStep:= @doStepHedgehogDead; |
1473 // Death message |
1473 // Death message |
1474 s:= ansistring(Gear^.Hedgehog^.Name); |
1474 s:= ansistring(Gear^.Hedgehog^.Name); |
1475 if Gear^.Hedgehog^.King then |
1475 if Gear^.Hedgehog^.King then |
1476 AddCaption(FormatA(GetEventString(eidKingDied), s), cWhiteColor, capgrpMessage) |
1476 AddCaption(FormatA(GetEventString(eidKingDied), s), capcolDefault, capgrpMessage) |
1477 else |
1477 else |
1478 AddCaption(FormatA(GetEventString(eidDied), s), cWhiteColor, capgrpMessage); |
1478 AddCaption(FormatA(GetEventString(eidDied), s), capcolDefault, capgrpMessage); |
1479 end; |
1479 end; |
1480 end |
1480 end |
1481 else |
1481 else |
1482 begin |
1482 begin |
1483 Gear^.State:= Gear^.State and (not gstAnimation); |
1483 Gear^.State:= Gear^.State and (not gstAnimation); |
1484 Gear^.doStep:= @doStepHedgehogGone; |
1484 Gear^.doStep:= @doStepHedgehogGone; |
1485 |
1485 |
1486 // Gone message |
1486 // Gone message |
1487 s:= ansistring(Gear^.Hedgehog^.Name); |
1487 s:= ansistring(Gear^.Hedgehog^.Name); |
1488 AddCaption(FormatA(GetEventString(eidGone), s), cWhiteColor, capgrpMessage); |
1488 AddCaption(FormatA(GetEventString(eidGone), s), capcolDefault, capgrpMessage); |
1489 end |
1489 end |
1490 end; |
1490 end; |
1491 exit |
1491 exit |
1492 end; |
1492 end; |
1493 |
1493 |