Mercurial Mercurial > hedgewars / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
- Fix baseball bat
authorunc0rr
Sun, 27 Apr 2008 10:14:00 +0000
changeset 878 45bff6dadfce
parent 877 ebb801acd8b9
child 879 dfb29b135a5f
- Fix baseball bat - Small formatting changes in newhwserv
hedgewars/uGears.pas file | annotate | diff | comparison | revisions
netserver/newhwserv.hs file | annotate | diff | comparison | revisions 
--- 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
hedgewars