- Fix baseball bat
authorunc0rr
Sun, 27 Apr 2008 10:14:00 +0000 (2008-04-27)
changeset 878 45bff6dadfce
parent 877 ebb801acd8b9
child 879 dfb29b135a5f
- Fix baseball bat - Small formatting changes in newhwserv
hedgewars/uGears.pas
netserver/newhwserv.hs
--- 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;
--- 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