LinkBot — File Browser
LinkBotv1.07 / LinkBotv1.07 / remote.ini
remote.ini — 13.22 KB — Download this file
[Variables]
n0=%error2 Server is full
n1=%error1 No more connections
n2=%error3 Status Window
n3=%mywin LinkBot $+ $chr(160) $+ Status $+ $chr(160) $+ Window $+ $chr(160) $+ --- $+ $chr(160) $+ by $+ $chr(160) $+ [SB] $+ $chr(160) $+ Tikiman
n4=================================
n5=%botnick cynicl
n6=%hostname lunt37.resnet.haverford.edu
n7=%mychan #ifrag
n8=%server voyager.ca.us.dal.net
n9=%rnick [SB]Bot
n10=%rchannel #clan_scatter_brains
n11=%ip 207.10.80.5
n12=%nick [SB]GuapOh
n13=%rnames [SB]Asmodeus Gluestick-LagPL @[SB]Lael @[SB]Dingo @[SB]Torak @SB2 @[SB]Tikiman
n14=%chan #CLAN_SCATTER_BRAINS
n15=%nickchan .SB2. #CLAN_SCATTER_BRAINS
n16=%tmp1 2
n17=%total 0
n18=%tmpline cynicl ~irc.voicenet.com~ #ifrag ~ Someguy @cynicl
[Commands]
n0=1:SOUND: {
n1= set %dontsend $nick
n2= set %broadstring SOUND $parm2 < $+ $parm2 via $nick) $+ >
n3= send2all
n4= halt
n5=}
n6=1:DCC CHAT: {
n7= if (%linkchat == true) {
n8= set %theip $parm4
n9= set %theport $parm5
n10= chatlink
n11= halt
n12= }
n13= halt
n14=}
n15=10:DCC CHAT:
n16=1:LINKUP: {
n17= beep 3 60
n18= secho $greenbold(==================================================)
n19= secho Incoming Link Request from $nick $+ .
n20= secho Hit shift-F3 to initiate Link.
n21= set %chatnick $nick
n22=}
n23=10:LINKUP: {
n24= write info.txt %chatnick ~ $+ Remote_Linkup $+ ~ RLINK ~
n25= reflist
n26= secho Connection Accepted.
n27= secho $greenbold(==================================================)
n28= set %broadstring <Channel Hub> Opened link to remote Channel Hub.
n29= if (%mychan != $null) msg %mychan %broadstring
n30= send2all
n31= unset %chatnick
n32=}
[Events]
n0=1:ON CHAT:PING *:/msg =$nick PONG $parm2 | if ($me != %botnick) nick %botnick | .rlevel 10
n1=1:ON CHAT:*: {
n2= if ((%error1 isin $parms) || (%error2 isin $parms)) {
n3= if (%counter > 3) {
n4= secho Sorry, the server seems to be unavailable. You may hit F2 to try this server again, or hit F1 to spawn a clone to a different server.
n5= close -c %rnick
n6= nick %botnick
n7= .rlevel 10
n8= halt
n9= }
n10= secho Error in connecting for attempt # $+ %counter -- retrying in 10 seconds
n11= .timer 1 10 respawn
n12= inc %counter
n13= close -c %rnick
n14= }
n15= if ($parm1 == WHOIS) {
n16= msg = $+ $nick :Remote_Link 319 $nick $nick :RLINK
n17= }
n18= if ($parm2 == PRIVMSG) {
n19= if ($parm3 == $nick) {
n20= if (DCC isin $parm4) {
n21= set %theip $parm7
n22= set %theport $parm8
n23= chatlink
n24= halt
n25= }
n26= if ($parm4 == :!chatlink) {
n27= if (%linkchat == true) {
n28= msg = $+ $nick PRIVMSG $astrip($gettok($parm1,1,33)) :Other connection pending -- please try in a minute.
n29= halt
n30= }
n31= set %whochat $remove($gettok($parm1,1,33),:)
n32= set %whowant $parm5
n33= set %fromnick $nick
n34= set %linkchat true
n35= msg = $+ $nick PRIVMSG $astrip($gettok($parm1,1,33)) :Information accepted -- Plese type /dcc chat $nick to initiate DCC connection.
n36= .timer 1 20 reschat
n37= halt
n38= }
n39= if ($nick !isin %seclist) msg = $+ $nick PRIVMSG $astrip($gettok($parm1,1,33)) :Sorry, I am just a clone -- no personal messages or CTCP requests.
n40= halt
n41= }
n42= if (sound isin $parm4) {
n43= set %dontsend $nick
n44= set %broadstring SOUND $parm5 < $+ $parm5 via $remove($gettok($parm1,1,33),:) $+ >
n45= if (%mychan != $null) raw -q PRIVMSG %mychan : $+ SOUND $parm5 < $+ $parm5 via $remove($gettok($parm1,1,33),:) >
n46= send2all
n47= halt
n48= }
n49= if (action isin $parm4) {
n50= set %dontsend $nick
n51= set %broadstring 6** $+ $remove($gettok($parm1,1,33),:) $+ $parm5*
n52= if (%mychan != $null) msg %mychan %broadstring
n53= send2all
n54= halt
n55= }
n56= if ($parm4 == :!update) {
n57= set %intnick $remove($gettok($parm1,1,33),:)
n58= set %intchat $nick
n59= update
n60= halt
n61= }
n62= if ($parm4 == :!chatlink) {
n63= if (%linkchat == true) halt
n64= set %whochat $remove($gettok($parm1,1,33),:)
n65= set %whowant $parm5
n66= set %fromnick $nick
n67= set %linkchat true
n68= }
n69= set %dontsend $nick
n70= SEND2ALL
n71= halt
n72= }
n73= if ($parm2 == 001) {
n74= secho Connection accepted, joining channel.
n75= set %nickchan %nickchan $+ . $+ %rnick $+ . $+ %rchannel
n76= set %mejoin true
n77= msg = $+ $nick JOIN %rchannel
n78= nick %botnick
n79= }
n80= if ($parm2 == 319) {
n81= if ($remove($parm5,@) != $null) write info.txt $nick ~ $+ $astrip($parm1) $+ ~ $astrip($remove($parm5,@)) ~
n82= }
n83= if ($parm2 == 433) {
n84= secho $active Sorry, the nickname you chose is in use. Please select another.
n85= msg = $+ $nick QUIT
n86= .rlevel 10
n87= nick %botnick
n88= }
n89= if (353 isin $parm2) {
n90= unset %counter
n91= set %server $astrip($parm1)
n92= set %rnames $astrip($parm6) $parm7*
n93= set %tmpline $read -s $+ $nick info.txt
n94= write -s $+ $nick info.txt $nick ~ $astrip($parm1) ~ $parm5 ~ $astrip($parm6) $parm7*
n95= reflist
n96= if (%mejoin == true) {
n97= secho Opening link to $parm5 $+ .
n98= secho $greenbold(==================================================)
n99= set %dontsend $nick
n100= set %broadstring <Channel Hub> link to $blue($parm5) on $grey(%server) now open, with %rnames present.
n101= if (%mychan != $null) msg %mychan %broadstring
n102= send2all
n103= if ($nick !isin %seclist) msg = $+ $nick PRIVMSG $parm5 : $+ <Channel Hub> 10 $+ Welcome to TikiNet. There are currently $lines(info.txt) channels linked. Type $red(!update) to get current stats. Type /msg $nick !CHATLINK nickname to request a DCC chat with someone on a linked channel.
n104= unset %mejoin
n105= halt
n106= }
n107= }
n108= if ($parm2 == JOIN) {
n109= set %nick $astrip($gettok($parm1,1,33))
n110= if (%nick == $nick) {
n111= set %mejoin true
n112= unset %sec
n113= halt
n114= }
n115= set %tmpline $read -s $+ $nick info.txt
n116= set %dontsend $nick
n117= set %broadstring <Channel Hub> $+ %nick $+ has joined $blue($gettok(%tmpline,2,126)) on $grey($gettok(%tmpline,1,126)) $+ .
n118= if (%mychan != $null) msg %mychan %broadstring
n119= send2all
n120= halt
n121= }
n122= if ($parm2 == KICK) {
n123= set %nick $remove($gettok($parm1,1,33),:)
n124= set %tmpline $read -s $+ $nick info.txt
n125= set %dontsend $nick
n126= if ($parm4 == $nick) {
n127= 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 $+ .
n128= if (%mychan != $null) msg %mychan %broadstring
n129= send2all
n130= write -ds $+ $nick info.txt
n131= reflist
n132= halt
n133= }
n134= set %broadstring <Channel Hub> $+ $parm4 $+ was kicked from $blue($gettok(%tmpline,2,126)) on $grey($gettok(%tmpline,1,126)) $+ by %nick $+ .
n135= if (%mychan != $null) msg %mychan %broadstring
n136= send2all
n137= halt
n138= }
n139= if ($parm2 == PART) {
n140= set %nick $remove($gettok($parm1,1,33),:)
n141= set %tmpline $read -s $+ $nick info.txt
n142= set %dontsend $nick
n143= if (%nick == $nick) {
n144= set %broadstring <Channel Hub> link to $blue($gettok(%tmpline,2,126)) on server $grey($gettok(%tmpline,1,126)) now closed.
n145= if (%mychan != $null) msg %mychan %broadstring
n146= send2all
n147= write -ds $+ $nick info.txt
n148= reflist
n149= halt
n150= }
n151= set %broadstring <Channel Hub> $+ %nick $+ has left $blue($gettok(%tmpline,2,126)) on $grey($gettok(%tmpline,1,126)) $+ .
n152= if (%mychan != $null) msg %mychan %broadstring
n153= send2all
n154= halt
n155= }
n156= if ($parm2 == QUIT) {
n157= set %nick $astrip($gettok($parm1,1,33))
n158= set %tmpline $read -s $+ $nick info.txt
n159= set %dontsend $nick
n160= set %broadstring <Channel Hub> $+ %nick $+ has quit IRC from $blue($gettok(%tmpline,2,126)) on $grey($gettok(%tmpline,1,126)) ( $+ $astrip($parm3) $parm4* $+ )
n161= if (%mychan != $null) msg %mychan %broadstring
n162= send2all
n163= halt
n164= }
n165= if ($parm2 == RLINK) {
n166= set %dontsend $nick
n167= if ($parm3 == $null) halt
n168= if (sound isin $parm3) {
n169= set %broadstring SOUND $parm4 $parm5*
n170= if (%mychan != $null) raw -q PRIVMSG %mychan : $+ SOUND $parm4 $parm5*
n171= send2all
n172= halt
n173= }
n174= set %broadstring $astrip($replace($parm3,Channel,Remote)) $parm4*
n175= if (%mychan != $null) msg %mychan %broadstring
n176= send2all
n177= }
n178=}
n179=1:ON TEXT:!update:%mychan: {
n180= set %intnick $nick
n181= localper
n182=}
n183=1:ON TEXT:*:?: {
n184= if ($parm1 == !chatlink) {
n185= if (%linkchat == true) {
n186= msg $nick Other connection pending -- please try in a minute.
n187= halt
n188= }
n189= set %whochat $nick
n190= set %whowant $parm2
n191= set %fromnick $me
n192= set %linkchat true
n193= .msg $nick Information accepted -- Plese type /dcc chat $me to initiate DCC connection.
n194= .timer 1 20 reschat
n195= halt
n196= }
n197= msg $nick Sorry, no personal messages.
n198= close -m $nick
n199=}
n200=1:ON TEXT:*:%mychan: {
n201= set %broadstring < $+ $nick $+ > $parms*
n202= send2all
n203=}
n204=1:ON CHATOPEN: {
n205= .rlevel 10
n206= msg = $+ %rnick USER SB SB SB SB
n207= msg = $+ %rnick NICK %rnick
n208=}
n209=1:ON DNS:{
n210= if ($iaddress == $null) {
n211= if (%linkchat -- true) goto whattodo
n212= secho Unable to resolve server. Please try a different one.
n213= nick %botnick
n214= halt
n215= }
n216= if (%linkchat == true) goto whattodo
n217= secho Server found, attempting to connect --
n218= set %ip $iaddress
n219= raw -q privmsg %rnick :DCC CHAT CHAT $longip(%ip) 6667
n220= halt
n221= :whattodo
n222=}
n223=1:ON CHATCLOSE: {
n224= set %tmpline $read -s $+ $nick info.txt
n225= write -ds $+ $nick info.txt
n226= if (%tmpline == $null) {
n227= close -c $nick
n228= reflist
n229= halt
n230= }
n231= if (Remote_Linkup isin %tmpline) {
n232= set %broadstring <Channel Hub> Closed link to remote Channel Hub.
n233= goto skip
n234= }
n235= if (%tmpline != $null) set %broadstring <Channel Hub> Closed link to $blue($gettok(%tmpline,2,126)) on $grey($gettok(%tmpline,1,126))
n236= :skip
n237= if (%mychan != $null) msg %mychan %broadstring
n238= send2all
n239= reflist
n240= close -c $nick
n241=}
n242=1:ON JOIN:#: {
n243= if ($nick == $me) {
n244= set %mychan $chan
n245= set %botnick $me
n246= if ($chat(0) > 0 ) {
n247= set %broadstring <Channel Hub> Link to $blue($chan) on $grey($server) now open $+ .
n248= send2all
n249= if (%mychan != $null) msg %mychan <Channel Hub> 10 $+ Welcome to TikiNet. Please be patient while the link is established. Type $red(!update) to get current stats. Type /msg $nick !CHATLINK nickname to request a DCC chat with someone on a linked channel.
n250= recon
n251= halt
n252= }
n253= write -il 1 info.txt $nick ~ $+ $server $+ ~ $chan
n254= set %mychan $chan
n255= secho Ready to Spawn Clones
n256= secho F1 for a normal LinkBot, shift-F1 for a SpyBot
n257= }
n258= if ($nick != $me) {
n259= set %broadstring <Channel Hub> $+ $nick $+ has joined $blue($chan) on $grey($server) $+ .
n260= send2all
n261= halt
n262= }
n263=}
n264=1:ON ACTION:*:%mychan: {
n265= set %dontsend $nick
n266= set %broadstring 6 $+ ** $nick $parms $+
n267= send2all
n268=}
n269=1:ON PART:%mychan: {
n270= if ($nick == $me) {
n271= unset %mychan
n272= write -ds $+ $me info.txt
n273= set %broadstring <Channel Hub> Closed link to $blue($chan) on $grey($server) $+ .
n274= send2all
n275= }
n276= if ($nick != $me) {
n277= set %broadstring <Channel Hub> $+ $nick $+ has left $blue($chan) on $grey($server) $+ .
n278= send2all
n279= halt
n280= }
n281=}
n282=1:ON KICK:%mychan: {
n283= if ($knick == $me) {
n284= unset %mychan
n285= write -ds $+ $me info.txt
n286= set %broadstring <Channel Hub> Link to $blue($chan) on $grey($server) forcibly closed by $nick $+ .
n287= send2all
n288= }
n289= if ($knick != $me) {
n290= set %broadstring <Channel Hub> $+ $knick $+ was kicked from $blue($chan) on $grey($server) by $nick $+ .
n291= send2all
n292= }
n293=}
n294=1:ON QUIT: {
n295= if ($nick == $me) {
n296= unset %mychan
n297= write -ds $+ $me info.txt
n298= }
n299= if ($nick != $me) {
n300= set %broadstring <Channel Hub> $+ $nick $+ has quit IRC from $blue($chan) on $grey($server) by $nick ( $+ $parms $+ )
n301= send2all
n302= halt
n303= }
n304=}
[Raw]
n0=353:*: {
n1= write -s $+ $me info.txt $me ~ $+ $server $+ ~ %mychan ~ $parm4*
n2=}