# HG changeset patch
# User unc0rr
# Date 1231591466 0
# Node ID 513a2c089160bec322f0e0af8fa3b127717d4e92
# Parent  9f12da88d769dfb9d9b7267a5099920b1ba3035d
Some debug stuff for ballgun bug

diff -r 9f12da88d769 -r 513a2c089160 hedgewars/GSHandlers.inc
--- a/hedgewars/GSHandlers.inc	Sat Jan 10 12:36:05 2009 +0000
+++ b/hedgewars/GSHandlers.inc	Sat Jan 10 12:44:26 2009 +0000
@@ -1903,6 +1903,7 @@
 
 procedure doStepBallgunWork(Gear: PGear);
 var HHGear: PGear;
+	rx, ry: hwFloat;
 begin
 	AllInactive:= false;
 	dec(Gear^.Timer);
@@ -1910,7 +1911,13 @@
 	HedgehogChAngle(HHGear);
 	if (Gear^.Timer mod 100) = 0 then
 		begin
-		AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtBall, 0, SignAs(AngleSin(HHGear^.Angle) * _0_8, HHGear^.dX)+ rndSign(getRandom * _0_1), AngleCos(HHGear^.Angle) * ( - _0_8) + rndSign(getRandom * _0_1), 0);
+		rx:= rndSign(getRandom * _0_1);
+		ry:= rndSign(getRandom * _0_1);
+		addfilelog('rx, ry = '+floattostr(rx)+', '+floattostr(ry));
+		AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtBall, 0,
+				SignAs(AngleSin(HHGear^.Angle) * _0_8, HHGear^.dX) + rx,
+				AngleCos(HHGear^.Angle) * ( - _0_8) + ry,
+				0);
 		
 		PlaySound(sndGun, false);
 		end;