354 newGear^.SoundChannel := LoopSound(sndResurrector); |
354 newGear^.SoundChannel := LoopSound(sndResurrector); |
355 end; |
355 end; |
356 //amMelonStrike: AddGear(CurWeapon^.Pos, 0, gtAirAttack, 4, _0, _0, 0); |
356 //amMelonStrike: AddGear(CurWeapon^.Pos, 0, gtAirAttack, 4, _0, _0, 0); |
357 amStructure: newGear:= AddGear(hwRound(lx) + hwSign(dX) * 7, hwRound(ly), gtStructure, gstWait, SignAs(_0_02, dX), _0, 3000); |
357 amStructure: newGear:= AddGear(hwRound(lx) + hwSign(dX) * 7, hwRound(ly), gtStructure, gstWait, SignAs(_0_02, dX), _0, 3000); |
358 amTardis: newGear:= AddGear(hwRound(X), hwRound(Y), gtTardis, 0, _0, _0, 5000); |
358 amTardis: newGear:= AddGear(hwRound(X), hwRound(Y), gtTardis, 0, _0, _0, 5000); |
|
359 amIceGun: newGear:= AddGear(hwRound(X), hwRound(Y), gtIceGun, 0, _0, _0, 0); |
359 end; |
360 end; |
360 |
361 |
361 case CurAmmoType of |
362 case CurAmmoType of |
362 amGrenade, amMolotov, |
363 amGrenade, amMolotov, |
363 amClusterBomb, amGasBomb, |
364 amClusterBomb, amGasBomb, |
377 amKamikaze, amCake, |
378 amKamikaze, amCake, |
378 amSeduction, amBallgun, |
379 amSeduction, amBallgun, |
379 amJetpack, amBirdy, |
380 amJetpack, amBirdy, |
380 amFlamethrower, amLandGun, |
381 amFlamethrower, amLandGun, |
381 amResurrector, amStructure, |
382 amResurrector, amStructure, |
382 amTardis, amPiano: CurAmmoGear:= newGear; |
383 amTardis, amPiano, |
|
384 amIceGun: CurAmmoGear:= newGear; |
383 end; |
385 end; |
384 |
386 |
385 if ((CurAmmoType = amMine) or (CurAmmoType = amSMine)) and (GameFlags and gfInfAttack <> 0) then |
387 if ((CurAmmoType = amMine) or (CurAmmoType = amSMine)) and (GameFlags and gfInfAttack <> 0) then |
386 newGear^.FlightTime:= GameTicks + 1000 |
388 newGear^.FlightTime:= GameTicks + 1000 |
387 else if CurAmmoType = amDrill then |
389 else if CurAmmoType = amDrill then |
609 end; |
611 end; |
610 |
612 |
611 end; |
613 end; |
612 posCaseHealth: begin |
614 posCaseHealth: begin |
613 inc(HH^.Health, Gear^.Health); |
615 inc(HH^.Health, Gear^.Health); |
614 HH^.Hedgehog^.Effects[hePoisoned] := false; |
616 HH^.Hedgehog^.Effects[hePoisoned] := 0; |
615 str(Gear^.Health, s); |
617 str(Gear^.Health, s); |
616 s:= '+' + s; |
618 s:= '+' + s; |
617 AddCaption(s, HH^.Hedgehog^.Team^.Clan^.Color, capgrpAmmoinfo); |
619 AddCaption(s, HH^.Hedgehog^.Team^.Clan^.Color, capgrpAmmoinfo); |
618 RenderHealth(HH^.Hedgehog^); |
620 RenderHealth(HH^.Hedgehog^); |
619 RecountTeamHealth(HH^.Hedgehog^.Team); |
621 RecountTeamHealth(HH^.Hedgehog^.Team); |
1155 PrvInactive:= false; |
1157 PrvInactive:= false; |
1156 AllInactive:= false; |
1158 AllInactive:= false; |
1157 |
1159 |
1158 if (Gear^.State and gstHHGone) = 0 then |
1160 if (Gear^.State and gstHHGone) = 0 then |
1159 begin |
1161 begin |
1160 Gear^.Hedgehog^.Effects[hePoisoned] := false; |
1162 Gear^.Hedgehog^.Effects[hePoisoned] := 0; |
1161 if Gear^.Hedgehog^.Effects[heResurrectable] then |
1163 if Gear^.Hedgehog^.Effects[heResurrectable] <> 0 then |
1162 begin |
1164 begin |
1163 ResurrectHedgehog(Gear); |
1165 ResurrectHedgehog(Gear); |
1164 end |
1166 end |
1165 else |
1167 else |
1166 begin |
1168 begin |