--- a/gameServer/HWProtoCore.hs Sat Mar 06 18:21:05 2010 +0000
+++ b/gameServer/HWProtoCore.hs Sat Mar 06 18:23:25 2010 +0000
@@ -63,20 +63,6 @@
else ""
-handleCmd_loggedin clID clients rooms ["FOLLOW", asknick] =
- if inLobby || noSuchClient then
- []
- else
- handleCmd_lobby clID clients rooms ["JOIN_ROOM", roomname]
- where
- maybeClient = find (\cl -> asknick == nick cl) clients
- noSuchClient = isNothing maybeClient
- client = fromJust maybeClient
- room = rooms IntMap.! roomID client
- roomname = (name room)
- inLobby = roomname == ""
-
-
handleCmd_loggedin clID clients rooms cmd =
if roomID client == 0 then
handleCmd_lobby clID clients rooms cmd