n153= set %broadstring <Channel Hub> link to $blue($parm5) on $grey(%server) now open, with %rnames present.
n154= if ($me ison %mychan) msg %mychan %broadstring
n155= send2all
n156= set %tmp $nick
n157= if ($nick !isin %seclist) msg = $+ $nick PRIVMSG $parm5 : $+ 10 $+ Welcome to TikiNet. There are $lines(info.txt) channels linked. Type $red(!update) $+ to get stats. Type 4/msg $nick chatlink nickname to request a DCC chat with someone on a linked channel.
n171= if ($me ison %mychan) msg %mychan %broadstring
n172= send2all
n173= halt
n174= }
n175= if ($parm2 == NICK) {
n176= set %nick $astrip($gettok($parm1,1,33))
n177= set %dontsend $nick
n178= set %broadstring <Channel Hub> 3*** %nick $+ is now known as $astrip($parm3)
n179= if ($me ison %mychan) msg %mychan %broadstring
n180= send2all
n181= halt
n182= }
n183= if ($parm2 == TOPIC) {
n184= set %nick $astrip($gettok($parm1,1,33))
n185= set %dontsend $nick
n186= set %broadstring <Channel Hub> 2*** %nick $+ changes topic to " $+ $astrip($parm4) $parm5* $+ "
n187= if ($me ison %mychan) msg %mychan %broadstring
n188= send2all
n189= halt
n190= }
n191= if ($parm2 == JOIN) {
n192= set %nick $astrip($gettok($parm1,1,33))
n193= if (%nick == $nick) {
n194= set %mejoin true
n195= unset %sec
n196= tut
n197= halt
n198= }
n199= set %tmpline $read -s $+ $nick info.txt
n200= set %dontsend $nick
n201= set %broadstring <Channel Hub> $+ %nick $+ has joined $blue($gettok(%tmpline,2,126)) on $grey($gettok(%tmpline,1,126)) $+ .
n202= if ($me ison %mychan) msg %mychan %broadstring
n203= send2all
n204= halt
n205= }
n206= if ($parm2 == KICK) {
n207= set %nick $remove($gettok($parm1,1,33),:)
n208= set %tmpline $read -s $+ $nick info.txt
n209= set %dontsend $nick
n210= if ($parm4 == $nick) {
n211= set %broadstring <Channel Hub> *** Link to $blue($gettok(%tmpline,2,126)) on server $grey($gettok(%tmpline,1,126)) forcibly terminated on remote end by %nick $+ .
n212= if ($me ison %mychan) msg %mychan %broadstring
n213= send2all
n214= write -ds $+ $nick info.txt
n215= reflist
n216= halt
n217= }
n218= set %broadstring <Channel Hub> *** $+ $parm4 $+ was kicked from $blue($gettok(%tmpline,2,126)) on $grey($gettok(%tmpline,1,126)) by %nick $+ .
n219= if ($me ison %mychan) msg %mychan %broadstring
n220= send2all
n221= halt
n222= }
n223= if ($parm2 == PART) {
n224= set %nick $remove($gettok($parm1,1,33),:)
n225= set %tmpline $read -s $+ $nick info.txt
n226= set %dontsend $nick
n227= if (%nick == $nick) {
n228= set %broadstring <Channel Hub> *** Link to $blue($gettok(%tmpline,2,126)) on server $grey($gettok(%tmpline,1,126)) now closed.
n229= if ($me ison %mychan) msg %mychan %broadstring
n230= send2all
n231= write -ds $+ $nick info.txt
n232= reflist
n233= halt
n234= }
n235= set %broadstring <Channel Hub> *** $+ %nick $+ has left $blue($gettok(%tmpline,2,126)) on $grey($gettok(%tmpline,1,126)) $+ .
n236= if ($me ison %mychan) msg %mychan %broadstring
n237= send2all
n238= halt
n239= }
n240= if ($parm2 == QUIT) {
n241= set %nick $astrip($gettok($parm1,1,33))
n242= set %tmpline $read -s $+ $nick info.txt
n243= set %dontsend $nick
n244= set %broadstring <Channel Hub> *** $+ %nick $+ has quit IRC from $blue($gettok(%tmpline,2,126)) on $grey($gettok(%tmpline,1,126)) ( $+ $astrip($parm3) $parm4* $+ )
n245= if ($me ison %mychan) msg %mychan %broadstring
n246= send2all
n247= halt
n248= }
n249= if ($parm2 == RLINK) {
n250= set %dontsend $nick
n251= if ($parm3 == $null) halt
n252= if (sound isin $parm3) {
n253= set %broadstring SOUND $parm4 $parm5*
n254= if ($me ison %mychan) raw -q PRIVMSG %mychan : $+ SOUND $parm4 $parm5*
n255= send2all
n256= halt
n257= }
n258= set %broadstring $astrip($replace($parm3,Channel,Remote)) $parm4*
n259= if ($me ison %mychan) msg %mychan %broadstring
n260= send2all
n261= }
n262=}
n263=on 1:TEXT:!update:%mychan: {
n264= if (%upflood > 5) halt
n265= inc %upflood
n266= .timer 1 5 unset %upflood
n267=
n268= set %intnick $nick
n269= set %localper true
n270= localper
n271=}
n272=on 1:TEXT:*:?: {
n273= if ($parm1 == chatlink) {
n274= if (%linkchat == true) {
n275= if (%chflood > 4) halt
n276= inc %chflood
n277= .timer 1 5 unset %chflood
n278= msg $nick Other connection pending -- please try in a minute.
n279= halt
n280= }
n281= set %whochat $nick
n282= set %whowant $parm2
n283= set %fromnick $me
n284= set %linkchat true
n285= .msg $nick Information accepted -- Plese type 4/dcc chat $me $+ to initiate DCC connection.
n286= .timer 1 20 reschat
n287= halt
n288= }
n289= ; msg $nick Sorry, no personal messages. ; uncomment these if you don't want to be bothered.
n290= ; close -m $nick ;
n291=}
n292=on 1:TEXT:*:%mychan: {
n293= set %broadstring < $+ $nick $+ > $1-
n294= send2all
n295=}
n296=on 1:CHATOPEN: {
n297= nick %botnick
n298= .rlevel 10
n299= msg = $+ %rnick USER SB SB SB SB
n300= msg = $+ %rnick NICK %rnick
n301=}
n302=on 1:DNS:{
n303= if ($iaddress == $null) {
n304= if (%linkchat == true) goto whattodo
n305= secho Unable to resolve server. Please try a different one.
n306= nick %botnick
n307= halt
n308= }
n309= if (%linkchat == true) goto whattodo
n310= secho Server found, attempting to connect --
n326= set %broadstring <Channel Hub> Closed link to remote Channel Hub.
n327= goto skip
n328= }
n329= if (%tmpline != $null) set %broadstring <Channel Hub> Closed link to $blue($gettok(%tmpline,2,126)) on $grey($gettok(%tmpline,1,126))
n330= :skip
n331= if ($me ison %mychan) msg %mychan %broadstring
n332= secho Link to $gettok(%tmpline,2,126) on $gettok(%tmpline,1,126) lost.
n333= send2all
n334=
n335= close -c $nick
n336=}
n337=on 1:JOIN:#: {
n338= if ($nick == $me) {
n339= set %mychan $chan
n340= set %botnick $me
n341= if ($chat(0) > 0 ) {
n342= set %broadstring <Channel Hub> *** Link to $blue($chan) on $grey($server) now open $+ .
n343= send2all
n344= if ($me ison %mychan) msg %mychan <Channel Hub> 10 $+ Welcome to TikiNet. Please be patient while the link is established. Type $red(!update) to get current stats. Type 4/msg $nick chatlink nickname to request a DCC chat with someone on a linked channel.