499 amLandGun: newGear:= AddGear(hwRound(X), hwRound(Y), gtLandGun, 0, xx * _0_5, yy * _0_5, 0); |
499 amLandGun: newGear:= AddGear(hwRound(X), hwRound(Y), gtLandGun, 0, xx * _0_5, yy * _0_5, 0); |
500 amResurrector: begin |
500 amResurrector: begin |
501 newGear:= AddGear(hwRound(lx), hwRound(ly), gtResurrector, 0, _0, _0, 0); |
501 newGear:= AddGear(hwRound(lx), hwRound(ly), gtResurrector, 0, _0, _0, 0); |
502 newGear^.SoundChannel := LoopSound(sndResurrector); |
502 newGear^.SoundChannel := LoopSound(sndResurrector); |
503 end; |
503 end; |
504 //amStructure: newGear:= AddGear(hwRound(lx) + hwSign(dX) * 7, hwRound(ly), gtStructure, gstWait, SignAs(_0_02, dX), _0, 3000); |
|
505 amTardis: newGear:= AddGear(hwRound(X), hwRound(Y), gtTardis, 0, _0, _0, 0); |
504 amTardis: newGear:= AddGear(hwRound(X), hwRound(Y), gtTardis, 0, _0, _0, 0); |
506 amIceGun: newGear:= AddGear(hwRound(X), hwRound(Y), gtIceGun, 0, _0, _0, 0); |
505 amIceGun: newGear:= AddGear(hwRound(X), hwRound(Y), gtIceGun, 0, _0, _0, 0); |
507 end; |
506 end; |
508 if altUse and (newGear <> nil) and |
507 if altUse and (newGear <> nil) and |
509 ((CurAmmoGear = nil) or (CurAmmoGear^.AmmoType <> amJetpack) or (Gear^.Message and gmPrecise = 0)) then |
508 ((CurAmmoGear = nil) or (CurAmmoGear^.AmmoType <> amJetpack) or (Gear^.Message and gmPrecise = 0)) then |
534 amSwitch, amRCPlane, |
533 amSwitch, amRCPlane, |
535 amKamikaze, amCake, |
534 amKamikaze, amCake, |
536 amSeduction, amBallgun, |
535 amSeduction, amBallgun, |
537 amJetpack, amBirdy, |
536 amJetpack, amBirdy, |
538 amFlamethrower, amLandGun, |
537 amFlamethrower, amLandGun, |
539 amResurrector, //amStructure, |
538 amResurrector, amTardis, |
540 amTardis, amPiano, |
539 amPiano, amIceGun, |
541 amIceGun, amRubber, |
540 amRubber, amMinigun: CurAmmoGear:= newGear; |
542 amMinigun: CurAmmoGear:= newGear; |
|
543 end; |
541 end; |
544 if CurAmmoType = amCake then FollowGear:= newGear; |
542 if CurAmmoType = amCake then FollowGear:= newGear; |
545 if CurAmmoType = amAirMine then newGear^.Hedgehog:= nil; |
543 if CurAmmoType = amAirMine then newGear^.Hedgehog:= nil; |
546 |
544 |
547 if ((CurAmmoType = amMine) or (CurAmmoType = amSMine) or (CurAmmoType = amAirMine)) and (GameFlags and gfInfAttack <> 0) then |
545 if ((CurAmmoType = amMine) or (CurAmmoType = amSMine) or (CurAmmoType = amAirMine)) and (GameFlags and gfInfAttack <> 0) then |