Forbit guest checkers
authorunc0rr
Thu, 21 Feb 2013 00:15:11 +0400
changeset 8523 f13ae07d82d7
parent 8521 80229928563f
child 8525 81630d47dc0f
Forbit guest checkers
gameServer/Actions.hs
--- a/gameServer/Actions.hs	Wed Feb 20 23:57:01 2013 +0400
+++ b/gameServer/Actions.hs	Thu Feb 21 00:15:11 2013 +0400
@@ -402,8 +402,12 @@
             when (not b) $ (if c then checkerLogin else playerLogin) passwd isAdmin
         Guest -> do
             b <- isBanned
+            c <- client's isChecker
             when (not b) $
-                processAction JoinLobby
+                if c then
+                    checkerLogin "" False
+                    else
+                    processAction JoinLobby
         Admin -> do
             mapM_ processAction [ModifyClient (\cl -> cl{isAdministrator = True}), JoinLobby]
             chan <- client's sendChan