addCommandHandler( "commands", 

   function(player)

      local commandsList = {}



      for _, subtable in pairs( getCommandHandlers() ) do

     local commandName = subtable[1]

     local theResource = subtable[2]

            

         if not commandsList[theResource] then

        commandsList[theResource] = {}

     end

            

     table.insert( commandsList[theResource], commandName )

      end



      for theResource, commands in pairs( commandsList ) do

      local resourceName = getResourceInfo( theResource, "name" ) or getResourceName( theResource ) 

      outputChatBox( "== "..resourceName.. " ==", player, 0, 255, 0 )

            

      for _, command in pairs( commands ) do

         outputChatBox( "/"..command, player, 255, 255, 255 )

      end

      end

  end

)