hedgewars/GSHandlers.inc
changeset 8838 aa2ffd427f6a
parent 8822 fc9877ff7f1a
child 8847 ff7fbab7cd56
child 8898 0ccaa19c6367
child 8906 82756a90a343
--- a/hedgewars/GSHandlers.inc	Wed Apr 03 00:46:19 2013 +0200
+++ b/hedgewars/GSHandlers.inc	Wed Apr 03 23:56:59 2013 +0200
@@ -173,23 +173,11 @@
     land: word;
 begin
     // clip velocity at 2 - over 1 per pixel, but really shouldn't cause many actual problems.
-{$IFNDEF WEB}
     if Gear^.dX.Round > 2 then
         Gear^.dX.QWordValue:= 8589934592;
     if Gear^.dY.Round > 2 then
         Gear^.dY.QWordValue:= 8589934592;
-{$ELSE}
-    if Gear^.dX.Round > 2 then
-        begin
-        Gear^.dX.Round:= 2;
-        Gear^.dX.Frac:= 0
-        end;
-    if Gear^.dY.QWordValue > 2 then
-        begin
-        Gear^.dY.Round:= 2;
-        Gear^.dY.Frac:= 0
-        end;
-{$ENDIF}
+
     Gear^.State := Gear^.State and (not gstCollision);
     collV := 0;
     collH := 0;