Code:

bind msg - chattr chattrFirstProcproc chattrFirstProc { n u h t } {# using [lindex $t 0] for non globalset nick [lindex $t 0]set channel [lindex $t 1]set flags [lindex $t 2]# some global variablesset ::chattrUser $nset ::chattrWho [lindex $t 0]set ::chattrNonGlobalChannel [lindex $t 1]set ::chattrOldFlags [chattr [nick2hand [lindex $t 0]] $channel]set ::chattrNewFlags [chattr [nick2hand [lindex $t 0]] -|[lindex $t 2] $channel]bind raw - 318 chattrSecondProcbind raw - 401 chattrSecondProcunset -nocomplain ::chattrOfflineputquick "WHOIS $nick"# put input verification in the first procif {[lindex $t 0] == "-global" && [lindex $t 1] == ""} {putnotc $n "No nickname when -global is provided"return 1}if {[lindex $t 0] == "-global" && [lindex $t 2] == ""} {putnotc $n "No flags provided"return 1}if { $nick == "" } {putnotc $n "No nickname"return 1}if { $channel == "" } {putnotc $n "No channel"return 1}if { $flags == "" } {putnotc $n "No flags"return 1}}proc chattrSecondProc { from key text } {#  receiving a 401 reply will probably require setting another global variable so when we get the 318, we know how to reply as online or offlineputnotc $::chattrUser "$from $key $text"if {$key == "401"} {set ::chattrOffline "1"return}unbind raw - "318" chattrSecondProcunbind raw - "401" chattrSecondProcif [info exists ::chattrOffline] {putnotc $::chattrUser "User is offline"}# [07:40:13 pm] <SpiKe^^> then we add the user and/or flags to the user, or what ever we want to do if the user is online as we just proved or disprovedputnotc $::chattrUser "Changed nonglobal flags for $::chattrWho from $::chattrOldFlags to $::chattrNewFlags in $::chattrNonGlobalChannel"unset -nocomplain ::chattrOffline}