hedgewars/GSHandlers.inc
changeset 3075 b4ef08187d22
parent 3072 b18038b3a0f4
child 3080 b7fa8ad60e3b
--- a/hedgewars/GSHandlers.inc	Fri Mar 26 12:16:12 2010 +0000
+++ b/hedgewars/GSHandlers.inc	Fri Mar 26 12:34:18 2010 +0000
@@ -2733,7 +2733,10 @@
 if Gear^.Timer < 500 then
     inc(Gear^.Timer, 1)
 else
+    begin
     DeleteGear(Gear);
+    AfterAttack
+    end
 end;
 
 ////////////////////////////////////////////////////////////////////////////////
@@ -2744,7 +2747,7 @@
 begin
 HHGear:= CurrentHedgehog^.Gear;
 
-move:= _0_1;
+move:= _0_1 * _0_5;
 fuel:= 50;
 
 if Gear^.Pos > 0 then
@@ -2768,7 +2771,7 @@
 if (HHGear^.Message and gm_Left) <> 0 then move.isNegative:= true;
 if (HHGear^.Message and (gm_Left or gm_Right)) <> 0 then
     begin
-    HHGear^.dX:= HHGear^.dX + (move * _0_2);
+    HHGear^.dX:= HHGear^.dX + (move * _0_5);
     dec(Gear^.Health, fuel div 5);
     Gear^.MsgParam:= Gear^.MsgParam or (HHGear^.Message and (gm_Left or gm_Right));
     end;