# HG changeset patch
# User unc0rr
# Date 1209291240 0
# Node ID 45bff6dadfce607b870338d9471b86216ec12e14
# Parent  ebb801acd8b9bb4c93467c2ef3fb3e279b9718e9
 - Fix baseball bat
 - Small formatting changes in newhwserv

diff -r ebb801acd8b9 -r 45bff6dadfce hedgewars/uGears.pas
--- a/hedgewars/uGears.pas	Sat Apr 26 18:21:03 2008 +0000
+++ b/hedgewars/uGears.pas	Sun Apr 27 10:14:00 2008 +0000
@@ -271,6 +271,7 @@
                 Result^.Elasticity:= _0_6;
                 Result^.Friction:= _0_995;
                 end;
+      gtShover: Result^.Radius:= 20;
        gtFlame: begin
                 Result^.Angle:= Counter mod 64;
                 Result^.Radius:= 1;
diff -r ebb801acd8b9 -r 45bff6dadfce netserver/newhwserv.hs
--- a/netserver/newhwserv.hs	Sat Apr 26 18:21:03 2008 +0000
+++ b/netserver/newhwserv.hs	Sun Apr 27 10:14:00 2008 +0000
@@ -39,7 +39,7 @@
 		Left (ch, h) -> do
 			mainLoop servSock acceptChan $ (ch, h):clients
 		Right (line, handle) -> do
-			clients' <- forM clients $ 
+			clients' <- forM clients $
 					\(ch, h) -> do
 						hPutStrLn h line
 						hFlush h
@@ -55,6 +55,6 @@
 	forkIO $ acceptLoop serverSocket acceptChan
 	mainLoop serverSocket acceptChan []
 
-main = withSocketsDo $ do 
+main = withSocketsDo $ do
 	serverSocket <- listenOn $ Service "hedgewars"
 	startServer serverSocket `finally` sClose serverSocket