diff -r b467a681c5e0 -r 3e057dfa601f gameServer/HWProtoCore.hs --- 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