hedgewars/GSHandlers.inc
changeset 7649 df90970ae81a
parent 7627 e1e112687fd6
child 7658 70a874a26414
--- a/hedgewars/GSHandlers.inc	Sun Sep 02 09:36:06 2012 +0400
+++ b/hedgewars/GSHandlers.inc	Sun Sep 02 09:23:36 2012 -0400
@@ -583,13 +583,14 @@
         yy:= hwRound(Y);
         if vobVelocity <> 0 then
             begin
-            DirAngle := DirAngle + (Angle / 1250000000);
+            DirAngle := DirAngle + (Damage / 1000);
             if DirAngle < 0 then
                 DirAngle := DirAngle + 360
             else if 360 < DirAngle then
                 DirAngle := DirAngle - 360;
             end;
-
+(*
+We aren't using frametick right now, so just a waste of cycles.
         inc(Health, 8);
         if longword(Health) > vobFrameTicks then
             begin
@@ -598,6 +599,7 @@
             if Timer = vobFramesCount then
                 Timer:= 0
             end;
+*)
     // move back to cloud layer
         if yy > cWaterLine then
             move:= true