hedgewars/uGearsHandlersMess.pas
changeset 14284 a3531b520efb
parent 14282 6015b74eea55
child 14286 7a7c090f96f6
--- a/hedgewars/uGearsHandlersMess.pas	Fri Nov 23 16:03:10 2018 -0500
+++ b/hedgewars/uGearsHandlersMess.pas	Fri Nov 23 16:20:55 2018 -0500
@@ -1443,6 +1443,7 @@
 procedure CreateBubblesForBullet(Gear: PGear);
 var i, iInit: LongWord;
 begin
+iInit:= 0;
 if ((Gear^.State and gstDrowning) <> 0) and (Gear^.Health > 0) then
     begin
     // draw bubbles
@@ -2067,6 +2068,7 @@
     isUnderwater: Boolean;
     sparkle: PVisualGear;
 begin
+	targ:= nil;
 	if (Gear^.State and gstFrozen) <> 0 then
 		begin
 		if Gear^.Damage > 0 then
@@ -6630,6 +6632,7 @@
     tX, tY: hwFloat;
     vg: PVisualGear;
 begin
+	targ:= nil;
     doStepFallingGear(Gear);
 	if (Gear^.State and gstFrozen) <> 0 then
 		begin