# HG changeset patch
# User unc0rr
# Date 1361391311 -14400
# Node ID f13ae07d82d782672ce49508eda405ada0a54683
# Parent  80229928563f96aba418a3762a97908391b4d335
Forbit guest checkers

diff -r 80229928563f -r f13ae07d82d7 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