Mercurial Mercurial > hedgewars / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Some debug stuff
authorunc0rr
Thu, 25 Feb 2010 18:34:30 +0000
changeset 2868 ccb20ecd3503
parent 2867 9be6693c78cb
child 2869 93cc73dcc421
Some debug stuff
gameServer/CoreTypes.hs file | annotate | diff | comparison | revisions
gameServer/HWProtoNEState.hs file | annotate | diff | comparison | revisions 
--- a/gameServer/CoreTypes.hs	Thu Feb 25 18:28:33 2010 +0000
+++ b/gameServer/CoreTypes.hs	Thu Feb 25 18:34:30 2010 +0000
@@ -61,6 +61,11 @@
         hedgehogs :: [HedgehogInfo]
     }
 
+instance Show TeamInfo where
+    show ti = "owner: " ++ (teamowner ti)
+            ++ "name: " ++ (teamname ti)
+            ++ "color: " ++ (teamcolor ti)
+
 data RoomInfo =
     RoomInfo
     {
@@ -87,6 +92,7 @@
             ++ ", players ids: " ++ show (IntSet.size $ playersIDs ri)
             ++ ", players: " ++ show (playersIn ri)
             ++ ", ready: " ++ show (readyPlayers ri)
+            ++ ", teams: " ++ show (teams ri)
 
 instance Eq RoomInfo where
     (==) = (==) `on` roomUID
--- a/gameServer/HWProtoNEState.hs	Thu Feb 25 18:28:33 2010 +0000
+++ b/gameServer/HWProtoNEState.hs	Thu Feb 25 18:34:30 2010 +0000
@@ -47,8 +47,8 @@
         adminNotice = [AnswerThisClient ["ADMIN_ACCESS"] | isAdministrator client]
 
 
---handleCmd_NotEntered _ _ _ ["DUMP"] =
---	[Dump]
+handleCmd_NotEntered clID clients _ ["DUMP"] =
+    if isAdministrator (clients IntMap.! clID) then [Dump] else []
 
 
 handleCmd_NotEntered clID _ _ _ = [ProtocolError "Incorrect command (state: not entered)"]
hedgewars