# HG changeset patch
# User unc0rr
# Date 1209655569 0
# Node ID 35d91fa3753b2350f5606a5694d48cfc97061740
# Parent  93df8ac943823f1b583b98e46fc32a2f03f9b53c
'In room' state stub

diff -r 93df8ac94382 -r 35d91fa3753b netserver/HWProto.hs
--- a/netserver/HWProto.hs	Thu May 01 15:24:13 2008 +0000
+++ b/netserver/HWProto.hs	Thu May 01 15:26:09 2008 +0000
@@ -66,6 +66,11 @@
 
 handleCmd_noRoom client _ rooms _ = (client, rooms, [client], ["ERROR", "Bad command or incorrect parameter"])
 
+-- 'inRoom' clients state command handlers
+handleCmd_inRoom :: ClientInfo -> [ClientInfo] -> [RoomInfo] -> [String] -> (ClientInfo, [RoomInfo], [ClientInfo], [String])
+
+handleCmd_inRoom client _ rooms _ = (client, rooms, [client], ["ERROR", "Bad command or incorrect parameter"])
+
 -- state-independent comman handlers	
 handleCmd :: ClientInfo -> [ClientInfo] -> [RoomInfo] -> [String] -> (ClientInfo, [RoomInfo], [ClientInfo], [String])
 
@@ -79,5 +84,7 @@
 handleCmd client clients rooms cmd =
 	if null (nick client) || protocol client == 0 then
 		handleCmd_noInfo client clients rooms cmd
+	else if null (room client) then
+		handleCmd_noRoom client clients rooms cmd
 	else
-		handleCmd_noRoom client clients rooms cmd
+		handleCmd_inRoom client clients rooms cmd