Decrease king buff from 150% bonus to 50% bonus, disable warning sound in placement mode
authornemo
Mon, 08 Feb 2010 16:03:58 +0000
changeset 2770 851313907bcb
parent 2769 82bfcc006afb
child 2771 477957a89881
Decrease king buff from 150% bonus to 50% bonus, disable warning sound in placement mode
hedgewars/uGears.pas
hedgewars/uTeams.pas
--- a/hedgewars/uGears.pas	Mon Feb 08 15:56:43 2010 +0000
+++ b/hedgewars/uGears.pas	Mon Feb 08 16:03:58 2010 +0000
@@ -673,6 +673,7 @@
 				and not isInMultiShoot then
 				begin
 				if (TurnTimeLeft = 5000)
+                    and (not PlacingHogs)
 					and (CurrentHedgehog^.Gear <> nil)
 					and ((CurrentHedgehog^.Gear^.State and gstAttacked) = 0) then
 						PlaySound(sndHurry, CurrentTeam^.voicepack);
--- a/hedgewars/uTeams.pas	Mon Feb 08 15:56:43 2010 +0000
+++ b/hedgewars/uTeams.pas	Mon Feb 08 16:03:58 2010 +0000
@@ -354,7 +354,7 @@
           begin
           Hedgehogs[0].King:= true;
           Hedgehogs[0].Hat:= 'crown';
-          inc(Hedgehogs[0].Gear^.Health, hwRound(int2hwFloat(Hedgehogs[0].Gear^.Health)*_1_5))
+          inc(Hedgehogs[0].Gear^.Health, hwRound(int2hwFloat(Hedgehogs[0].Gear^.Health)*_0_5))
           end;
       for i:= 0 to cMaxHHIndex do
           if Hedgehogs[i].Gear <> nil then