New chat section Baja module - optionally use in place of CHAT_SECTION function.

exec/chat_sec.src

+# chat_sec.src
+
+# Chat Section for any/all Synchronet command shells
+
+# Requires v3.00g or later
+
+!include sbbsdefs.inc
+
+# Set return point for main menu commands (via end_cmd)
+cmd_home
+
+# Display TEXT\MENU\CHAT.* if not in expert mode
+compare_user_misc UM_EXPERT
+if_false
+	menu chat
+	end_if
+
+# Update node status
+node_action node_chat
+async
+print "\r\n\1_\1y\1hChat: \1n"
+getcmd "ACDJPQST?\r"
+cmdkey 'S'
+	TOGGLE_USER_CHAT CHAT_SPLITP
+	printf "\1n\r\nPrivate split-screen chat is now: \1h"
+	COMPARE_USER_CHAT CHAT_SPLITP
+	if_true
+		print "ON\1n"
+	else
+		print "OFF\1n"
+		end_if
+	crlf
+	end_cmd
+
+cmdkey 'A'
+	crlf
+	toggle_user_chat CHAT_NOACT
+	toggle_node_misc NODE_AOFF
+	nodelist_users
+	end_cmd
+
+cmdkey 'D'
+	crlf
+	toggle_user_chat CHAT_NOPAGE
+	toggle_node_misc NODE_POFF
+	nodelist_users
+	end_cmd
+
+cmdkey 'J'
+	multinode_chat
+	end_cmd
+
+cmdkey 'P'
+	private_chat
+	end_cmd
+
+cmdkey 'C'
+	page_sysop
+	if_false
+		page_guru
+		end_if
+	end_cmd
+
+cmdkey 'T'
+	page_guru
+	end_cmd
+
+cmdkey '?'
+	compare_user_misc UM_EXPERT
+	if_true
+		menu "chat"
+		end_if
+	end_cmd
+
+cmd_pop
+return
\ No newline at end of file