set novice off
set auto_rejoin 0
set verbose_ctcp on
set translation latin_1
set eight_bit_characters on
set lastlog_level all
set lastlog 5150
bind ^X switch_channels
bind ^W next_window
bind ^Z stop_irc
bind meta1-[ meta2
bind meta1-O meta2
bind meta2-A backward_history
bind meta2-B forward_history
bind meta2-C forward_character
bind meta2-D backward_character
bind ^Q quote_character
bind ^B self_insert
bind ^_ self_insert
bind ^V self_insert
^set status_window ^^CURRENT^^^^^
bind ^O self_insert
bind ^U erase_line
set show_channel_names on
umode +i
alias wi whois
alias m msg
alias k kick *
alias * say /* $0-
alias l leave
alias sendtime msg $N $stime($time())

alias op {//mode $C +oooo $0 $1 $2 $3;if ([$4])  {/op $4-}}
alias deop {//mode $C -oooo $0 $1 $2 $3;if ([$4]) {/deop $4-}}
set beep_on_msg msg
alias id whois $0 $0
bind ^I parse_command ^tk.getmsg 1 $tk.msglist
bind ^R parse_command ^tk.getmsg -1 $tk.msglist
bind ^T parse_command tk.delnick
alias nicklist echo *** Nickname List: $tk.msglist
alias addnick if ([$1]) { addnick $1- };tk.addmsg $0 $tk.msglist
@ tk.msgmax = 10
alias tk.addmsg {
        @ tk.matched = rmatch($0 $^\1-)
        if (tk.matched)
        {
                @ tk.msglist = [$(0-${tk.matched-1}) $(${tk.matched+1}-)]
        }
        #else
        {       @ tk.msglist = [$(0-${tk.msgmax-1})] }
        @ tk.msgcnt = 0
        ^assign -tk.matched
}
alias tk.getmsg {
        @ tk.msgcnt = tk.msgcnt + [$0]
        if ( #tk.msglist < tk.msgcnt ) {@ tk.msgcnt = 1}
        if (tk.msgcnt <= 0) {@ tk.msgcnt =  #tk.msglist}
        @ tk.junk = K ## [msg] 
        type ^U$tk.junk $^^{[$($tk.msgcnt)]} 
}
on #-send_msg 55 * ^tk.addmsg $0 $tk.msglist
on #-msg 55 * ^tk.addmsg $0 $tk.msglist
on #-send_dcc_chat 55 * ^tk.addmsg \=$0 $tk.msglist
on #-dcc_chat 55 * ^tk.addmsg \=$0 $tk.msglist
alias tk.delnick {
        if (tk.msgcnt == 0)
        {
                echo *** Nickname: $word(0 $tk.msglist) removed.
                @ tk.msglist = [$notword(1 $tk.msglist)]
        }
        {
                echo *** Nickname: $word(${tk.msgcnt-1} $tk.msglist) removed.
                @ tk.msglist = [$notword($tk.msgcnt $tk.msglist)]
        }
        type ^U
}
alias notword {
    if ([$0] > 0)
    {
        if (([$0] > 1) && ([$0] < rmatch($~ $1-)))
                { @ nw.sep = [ ] }
                { @ nw.sep = [] }

        @ function_return = [$(1-${[$0]-1})] ## [$nw.sep] ## [$(${[$0]+1}-)]
    }
    {
        @ function_return = [$1-]
    }
}
on -notify_signon * beep
SET INPUT_PROMPT $T>
ON ^PUBLIC * ECHO $Z $1 <$0> $2-
ON ^PUBLIC_OTHER * ECHO $Z $1 <$0> $2-
ON ^SEND_PUBLIC * ECHO $Z $0> $1-
ON ^MSG * ECHO $Z *$0* $1-
ON ^SEND_MSG * ECHO $Z -> *$0* $1-
ON ^ACTION * ECHO $Z $1 * $0 $2-
ON ^SEND_ACTION * ECHO $Z $0 * $N $1-
ON ^JOIN * ECHO $Z *** $0 \($userhost()\) joined channel $1
ON ^LEAVE * ECHO $Z *** $0 \($userhost()\) left channel $1
ON ^CHANNEL_NICK * ECHO $Z *** $1 is now known as $2 [$0]
ON ^SIGNOFF * ECHO $Z *** $0 quit \($1-\)