SuperHack/SuperHack CD.bin/SCRIPTZ/LINKBOT.ZIP/aliases.ini

INI File | 1997-03-29 | 32.1 KB | 850 lines

[Aliases]
n0=/op /mode # +ooo $$1 $2 $3
n1=/dop /mode # -ooo $$1 $2 $3
n2=/j /join #$$1
n3=/p /part #
n4=/n /names #$$1
n5=/w /whois $$1
n6=/k /kick # $$1
n7=/q /query $$1
n8=/hop /part # | /join #$$1
n9=/send /dcc send $1 $2
n10=/chat /dcc chat $1
n11=/ping /ctcp $$1 ping
n12=============================| Function keys --
n13=/f1 /spawn | set %counter 1 | .timer666 1 40 timeout
n14=/sf1 set %sec true | f1
n15=/f2 /respawn | set %counter 1
n16=/sf2 /rlink $??="Enter LinkBot you wish to share network with:"
n17=/sf3 /rcon
n18=/sf4 {
n19=  if ((# isin $active) || (%error3 isin $active) || (Status $+ $chr(160) $+ Window isin $active) || (SpyBot $+ $chr(160) $+ Window isin $active)) {
n20=    echo Error - this command is to you be used on open DCC windows. Please select one and try again, or hit F1 to spawn a clone.
n21=    halt
n22=  }
n23=  set %tmp $??="Terminate Acrive Session? y/n"
n24=  if (y !isin %tmp) {
n25=    echo Excellent!
n26=    unset %tmp
n27=    halt
n28=  }
n29=  msg = $+ $nick RLINK CLOSE
n30=  write -ds $+ $nick info.txt
n31=  reflist
n32=  set %broadstring <Channel Hub> Closed link to remote Channel Hub.
n33=  if (%mychan != $null) msg %mychan %broadstring
n34=  send2all
n35=  close -c $nick
n36=}
n37=/f3 /broadcast
n38=/f4 {
n39=  .timer 1 5 report
n40=  update
n41=}
n42=/f5 {
n43=  if ((# isin $active) || (%error3 isin $active) || (Status $+ $chr(160) $+ Window isin $active) || (SpyBot $+ $chr(160) $+ Window isin $active)) {
n44=    echo Error - this command is to you be used on DCC windows. Please select one and try again, or hit F1 to spawn a clone.
n45=    halt
n46=  }
n47=  set %tmpline $read -s $+ $nick info.txt
n48=  if ( $gettok(%tmpline,2,126) != $null) {
n49=    echo Only one channel at a time, please.
n50=    halt
n51=  }
n52=  msg = $+ $nick JOIN $$?="Please enter a channel:"
n53=}
n54=/f6 {
n55=  if ((# isin $active) || (%error3 isin $active) || (Status $+ $chr(160) $+ Window isin $active) || (SpyBot $+ $chr(160) $+ Window isin $active)) {
n56=    echo Error - this command it to you be used on open DCC windows. Please select one and try again, or hit F1 to spawn a clone.
n57=    halt
n58=  }
n59=  set %tmpline $read -s $+ $nick info.txt
n60=  set %dontsend $nick
n61=  msg = $+ $nick PART $gettok(%tmpline,2,126)
n62=}
n63=/f7 {
n64=  if ((# isin $active) || (%error3 isin $active) || (Status $+ $chr(160) $+ Window isin $active) || (SpyBot $+ $chr(160) $+ Window isin $active)) {
n65=    echo Error - this command is to you be used on open DCC windows. Please select one and try again, or hit F1 to spawn a clone.
n66=    halt
n67=  }
n68=  set %tmp $??="Please enter channel to hop to:"
n69=  set %nick $remove($gettok($parm1,1,33),:)
n70=  set %tmpline $read -s $+ $nick info.txt
n71=  set %dontsend $nick
n72=  if (%tmp == $null) {
n73=    echo So why'd you change your mind?
n74=    halt
n75=  }
n76=  msg = $+ $nick PART $gettok(%tmpline,2,126)
n77=  .timer 1 3 msg = $+ $nick JOIN %tmp
n78=}
n79=/f8 {
n80=  if ((# isin $active) || (%error3 isin $active) || (Status $+ $chr(160) $+ Window isin $active) || (SpyBot $+ $chr(160) $+ Window isin $active)) {
n81=    echo Error - this command is to you be used on open DCC windows. Please select one and try again, or hit F1 to spawn a clone.
n82=    halt
n83=  }
n84=  set %tmpline $read -s $+ $nick info.txt
n85=  set %tmp $??="Terminate active session? y/n"
n86=  if (y isin %tmp) {
n87=    set %seclist $remove(%seclist,$nick)
n88=    msg = $+ $nick QUIT :LinkBot -- by [SB]Tikiman
n89=    secho Closed link to $gettok(%tmpline,2,126) on $gettok(%tmpline,1,126)
n90=    halt
n91=  }
n92=  echo Excellent!
n93=}
n94=/f9 {
n95=  if ((# isin $active) || (%error3 isin $active) || (Status $+ $chr(160) $+ Window isin $active) || (SpyBot $+ $chr(160) $+ Window isin $active)) {
n96=    echo Error - this command is to you be used on open DCC windows. Please select one and try again, or hit F1 to spawn a clone.
n97=    halt
n98=  }
n99=  if ($nick !isin %seclist) {
n100=    set %seclist %seclist $nick
n101=    echo Spy mode now -= ON =-
n102=  }
n103=  else {
n104=    set %seclist $remove(%seclist,$nick)
n105=    echo Spy mode now -= OFF =-
n106=  }
n107=}
n108=/f10 {
n109=  if ((# isin $active) || (%error3 isin $active) || (Status $+ $chr(160) $+ Window isin $active) || (SpyBot $+ $chr(160) $+ Window isin $active)) {
n110=    echo Error - this command is to you be used on open DCC windows. Please select one and try again, or hit F1 to spawn a clone.
n111=    halt
n112=  }
n113=  set %tmpline $read -s $+ $nick info.txt
n114=  if ($gettok(%tmpline,2,126) == $null) {
n115=    echo This Bot is currently not on a channel.
n116=    halt
n117=  }
n118=  msg = $+ $nick NAMES $gettok(%tmpline,2,126)
n119=  echo Information updated.
n120=}
n121=/f11 {
n122=  if ((# isin $active) || (%error3 isin $active) || (Status $+ $chr(160) $+ Window isin $active) || (SpyBot $+ $chr(160) $+ Window isin $active)) {
n123=    echo Error - this command is to you be used on open DCC windows. Please select one and try again, or hit F1 to spawn a clone.
n124=    halt
n125=  }
n126=  set %tmpline $read -s $+ $nick info.txt
n127=  echo $aquabold(=====================)
n128=  echo Bot Status
n129=  echo $aquabold(=====================)
n130=  echo Name : $nick
n131=  echo Server : $gettok(%tmpline,1,126)
n132=  echo Channel : $gettok(%tmpline,2,126)
n133=  echo Other Nicks Present: $gettok(%tmpline,3,126)
n134=  if ($nick isin %seclist) echo Spy Mode : -= ON =-
n135=  if ($nick !isin %seclist) echo Spy Mode : -= OFF =-
n136=  unset %tmpline
n137=}
n138=/f12 {
n139=  secho $aquabold(==================================================)
n140=  secho Quick Help Guide: (F12)
n141=  secho $aquabold(==================================================)
n142=  secho Commands for any window
n143=  secho $aquabold(==================================================)
n144=  secho F1 : Spawn a clone (shift F1 spawns a spy clone)
n145=  secho F2 : Reconnect after 4 failed attempts
n146=  secho F3 : Send a broadcast message to all linked channels
n147=  secho F4 : Send a connection report to all linked channels
n148=  secho $aquabold(==================================================)
n149=  secho Commands for DCC Clones
n150=  secho $aquabold(==================================================)
n151=  secho F5 : Join a channel
n152=  secho F6 : Part currently active channel
n153=  secho F7 : Hop to a new channel
n154=  secho F8 : Close current DCC clone -- (Always Use This)
n155=  secho F9 : Toggle spy mode on/off
n156=  secho F10 : Refresh names list
n157=  secho F11 : Bot status report
n158=  secho F12 : This help menu
n159=  secho $aquabold(==================================================)
n160=  secho Commands for Remote Links
n161=  secho $aquabold(==================================================)
n162=  secho shift-F2 : Request a bot link
n163=  secho shift-F3 : Accept a bot link
n164=  secho shift-F4 : Close current bot link (Not on Clones)
n165=  secho $aquabold(==================================================)
n166=}
n167=============================| Sub-Routines
n168=/startup {
n169=  close -m
n170=  titlebar LinkBot v. %version -- by [SB]Tikiman
n171=  flush
n172=  .enable #normal | .disable #vercheck | .disable #fulltransfer | .disable #comments
n173=  set %botnick $me
n174=  write -c info.txt
n175=  .rlevel 10
n176=  secho $red(><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><)
n177=  secho $greenbold([==-------) Welcome to $aquabold(LinkBot), by $aquabold([SB]Tikiman) $greenbold(-------==])
n178=  secho $red(><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><)
n179=  secho $red(><) $+ Send questions/comments to $greybold([e-mail]) $+ . $chr(160) $chr(160) $red(><)
n180=  secho $red(><) $+ Please join a channel or launch a SpyBot. $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $red(><)
n181=  secho $red(><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><)
n182=}
n183=/spawn {
n184=  set %server $$?="Enter remote server name:"
n185=  set %rnick $$?="Enter remote nickname:"
n186=  :loop
n187=  if (%rnick isin %nickchan) {
n188=    set %rnick $$?="Sorry, in use on local system. Please select another:"
n189=    goto loop
n190=  }
n191=  .auser 10 %rnick
n192=  set %rchannel $$?="Enter remote channel:"
n193=  secho $greenbold(==================================================)
n194=  if (%sec == true) {
n195=    set %seclist %seclist %rnick
n196=    secho Spawning clandestine clone to %rchannel on %server $+ .
n197=  }
n198=  if (%sec != true) {
n199=    secho Spawning link clone to %rchannel on %server $+ .
n200=  }
n201=  dns %server
n202=  nick %rnick
n203=}
n204=/respawn {
n205=  if ($me != %rnick) nick %rnick
n206=  if (%counter == 1) .timer666 1 40 timeout
n207=  .auser 10 %rnick
n208=  raw -q privmsg %rnick : $+ $chr(1) $+ DCC CHAT CHAT $longip(%ip) 6667:
n209=}
n210=/send2all {
n211=  set %sends $chat(0)
n212=  if ((%dontsend isin %seclist) && (%broadstring != $null) && (%dontsend != $null)) {
n213=    set %tmpline $read -s $+ %dontsend info.txt
n214=    set %tserver $gettok(%tmpline,1,126)
n215=    set %tchannel $gettok(%tmpline,2,126)
n216=    if (Hub> isin %broadstring) {
n217=      if (*** isin %broadstring) {
n218=        specho $mid(17,250,%broadstring)
n219=        goto loop
n220=      }
n221=      specho ** $mid(17,250,%broadstring)
n222=      goto loop
n223=    }
n224=    specho %broadstring
n225=  }
n226=  if (%broadstring != $null) goto loop
n227=  set %nick $remove($gettok($parm1,1,33),:)
n228=  set %tmp $len($parm4*) | dec %tmp
n229=  set %message $right(%tmp,$parm4*)
n230=  set %broadstring < $+ %nick $+ > %message
n231=  if (%mychan != $null) msg %mychan %broadstring
n232=  if ((%dontsend isin %seclist) && (%dontsend != $null)) {
n233=    set %tmpline $read -s $+ %dontsend info.txt
n234=    set %tserver $gettok(%tmpline,1,126)
n235=    set %tchannel $gettok(%tmpline,2,126)
n236=    specho %broadstring
n237=  }
n238=  :loop
n239=  set %tmp1 $findtok(%nickchan,$chat(%sends),46)
n240=  inc %tmp1
n241=  if ((($chat(%sends) != %dontsend) && ($chat(%sends) isin %nickchan)) && ($chat(%sends) !isin %seclist)) msg = $+ $chat(%sends) PRIVMSG $gettok(%nickchan,%tmp1,46) : $+ %broadstring
n242=  dec %sends
n243=  if (%sends > 0) goto loop
n244=  unset %broadstring | unset %dontsend | unset %sends | unset %tmp | unset %message
n245=}
n246=/update {
n247=  secho Refreshing names lists.
n248=  set %sends2 $chat(0)
n249=  if ($chan(0) = 0) {
n250=    write -ds $+ $me info.txt
n251=    goto loop
n252=  }
n253=  names %mychan
n254=  :loop
n255=  set %tmp1 $findtok(%nickchan,$chat(%sends2),46)
n256=  inc %tmp1
n257=  if (($chat(%sends2) != %dontsend) && ($chat(%sends2) isin %nickchan)) msg = $+ $chat(%sends2) NAMES $gettok(%nickchan,%tmp1,46)
n258=  dec %sends2
n259=  if (%sends2 > 0) goto loop
n260=  unset %tmp1 | unset %sends2
n261=  if (%intchat == $null) halt
n262=  elseif (%localper == true) { localper | halt }
n263=  .timer 1 2 personal
n264=}
n265=/broadcast {
n266=  set %broadstring <Channel Hub> $??="Message"
n267=  if ($len(%broadstring) == 15) {
n268=    echo $active OK, don't say anything.
n269=    unset %broadstring
n270=    halt
n271=  }
n272=  msg %mychan %broadstring
n273=  send2all
n274=}
n275=/report {
n276=  set %total $lines(info.txt)
n277=  :loop
n278=  set %tmpline $read -l $+ %total info.txt
n279=  if (Remote_Link isin %tmpline) {
n280=    set %broadstring <Channel Hub> Connection open to Remote Channel Hub.
n281=    goto skip
n282=  }
n283=  set %broadstring <Channel Hub> Now connected to $gettok(%tmpline,3,126) on server $gettok(%tmpline,2,126) with $gettok(%tmpline,4,126) present.
n284=  :skip
n285=  msg %mychan %broadstring
n286=  send2all
n287=  dec %total
n288=  if (%total > 0) goto loop
n289=  set %broadstring <Channel Hub> End of report. $aquabold(LinkBot), by $aquabold([SB]Tikiman)
n290=  msg %mychan %broadstring
n291=  send2all
n292=  unset %total | unset %tmpline
n293=}
n294=/reflist {
n295=  unset %nickchan
n296=  set %counter $lines(info.txt)
n297=  :loop
n298=  set %tmpline $read -l $+ %counter info.txt
n299=  set %nick $gettok(%tmpline,1,126)
n300=  if (%nick == $me) goto skip
n301=  set %chan $gettok(%tmpline,3,126)
n302=  set %nickchan %nickchan $+ . $+ %nick $+ . $+ %chan
n303=  :skip
n304=  dec %counter
n305=  if (%counter > 0) goto loop
n306=  unset %counter
n307=}
n308=/personal {
n309=  set %total $lines(info.txt)
n310=  :loop
n311=  set %tmpline $read -l $+ %total info.txt
n312=  if (Remote_Link isin %tmpline) {
n313=    set %string <Channel Hub> Connection open to Remote Channel Hub.
n314=    goto skip
n315=  }
n316=  set %string <Channel Hub> Now connected to $gettok(%tmpline,3,126) on server $gettok(%tmpline,2,126) with $gettok(%tmpline,4,126) present.
n317=  :skip
n318=  msg = $+ %intchat PRIVMSG %intnick : $+ %string
n319=  dec %total
n320=  if (%total > 0) goto loop
n321=  set %string <Channel Hub> End of report. $aquabold(LinkBot), by $aquabold([SB]Tikiman)
n322=  msg = $+ %intchat PRIVMSG %intnick : $+ %string
n323=  unset %string | unset %intchat | unset %intnick
n324=  unset %intnick | unset %intchat | unset %string
n325=}
n326=/echorep {
n327=  secho $greybold(==================================================)
n328=  set %total $lines(info.txt)
n329=  :loop
n330=  set %tmpline $read -l $+ %total info.txt
n331=  if ($gettok(%tmpline,1,126) isin %seclist) {
n332=    secho Clandestine SpyBot sent to $gettok(%tmpline,3,126) on server $gettok(%tmpline,2,126) with $gettok(%tmpline,4,126) present.
n333=    goto skip
n334=  }
n335=  if (Remote_Link isin %tmpline) {
n336=    secho Connection open to Remote Channel Hub.
n337=    goto skip
n338=  }
n339=  secho Now connected to $gettok(%tmpline,3,126) on server $gettok(%tmpline,2,126) with $gettok(%tmpline,4,126) present.
n340=  :skip
n341=  dec %total
n342=  if (%total > 0) goto loop
n343=  secho End of report. $aquabold(LinkBot), by $aquabold([SB]Tikiman)
n344=  secho $greybold(==================================================)
n345=  unset %string | unset %intchat | unset %intnick
n346=  unset %intnick | unset %intchat | unset %string
n347=}
n348=/localper {
n349=  unset %localper
n350=  set %total $lines(info.txt)
n351=  :loop
n352=  set %tmpline $read -l $+ %total info.txt
n353=  if (Remote_Link isin %tmpline) {
n354=    set %string <Channel Hub> Connection open to Remote Channel Hub.
n355=    goto skip
n356=  }
n357=  set %string <Channel Hub> Now connected to $gettok(%tmpline,3,126) on server $gettok(%tmpline,2,126) with $gettok(%tmpline,4,126) present.
n358=  :skip
n359=  msg %intnick %string
n360=  dec %total
n361=  if (%total > 0) goto loop
n362=  set %string <Channel Hub> End of report. $aquabold(LinkBot), by $aquabold([SB]Tikiman)
n363=  msg %intnick %string
n364=  unset %intnick | unset %string | unset %total
n365=}
n366=/recon {
n367=  secho Reconstructing link, some transmissions may be lost.
n368=  write -c info.txt %botnick ~ $+ $server $+ ~ %mychan ~
n369=  set %counter 1
n370=  :loop
n371=  if ($chat(%counter) == $null) goto end
n372=  msg = $+ $chat(%counter) WHOIS $chat(%counter)
n373=  inc %counter
n374=  goto loop
n375=  :end
n376=  .timer 1 5 reflist
n377=  .timer 1 10 update
n378=}
n379=/rlink {
n380=  if ($1 == $null) {
n381=    echo That's ok, we all make mistakes.
n382=    halt
n383=  }
n384=  secho Asking for permisson --
n385=  set %chatnick $1
n386=  .auser 10 $1
n387=  .ctcp $1 LINKUP
n388=}
n389=/rcon {
n390=  if (%chatnick == $null) {
n391=    echo No one currently wants to link with you.
n392=    halt
n393=  }
n394=  .ctcp %chatnick LINKUP
n395=  write info.txt %chatnick ~ $+ Remote_Linkup $+ ~ RLINK ~
n396=  reflist
n397=  secho Initiaiting link --
n398=  secho $greenbold(==================================================)
n399=  chat %chatnick
n400=  set %dontsend %chatnick
n401=  set %broadstring <Channel Hub> Opened link to remote Channel Hub.
n402=  if (%mychan != $null) msg %mychan %broadstring
n403=  .timer 1 4 send2all
n404=  unset %chatnick
n405=  .rlevel 10
n406=}
n407=/rclose {
n408=  msg = $+ $nick RLINK CLOSE
n409=  write -ds $+ $nick info.txt
n410=  reflist
n411=  set %broadstring <Channel Hub> Closed link to remote Channel Hub.
n412=  if (%mychan != $null) msg %mychan %broadstring
n413=  send2all
n414=  close -c $nick
n415=}
n416=/mquit {
n417=  set %total $chat(0)
n418=  :loop
n419=  set %tmpline $read -l $+ %total info.txt
n420=  if ($chat(%total) != 0) msg = $+ $chat(%total) QUIT :LinkBot -- by [SB]Tikiman
n421=  dec %total
n422=  if (%total > 0) goto loop
n423=  set %total $chat(0)
n424=  :loop2
n425=  set %tmpline $read -l $+ %total info.txt
n426=  if ($chat(%total) != 0) close -c $chat(%total)
n427=  dec %total
n428=  if (%total > 0) goto loop2
n429=  unset %string | unset %intchat | unset %intnick
n430=  unset %intnick | unset %intchat | unset %string
n431=}
n432=/chatlink {
n433=  set %total2 $lines(info.txt)
n434=  :loop
n435=  set %tmpline $read -l $+ %total2 info.txt
n436=  if (%fromnick == $gettok(%tmpline,1,126)) goto skip
n437=  if (%whowant isin %tmpline) {
n438=    if ($me isin $gettok(%tmpline,1,126)) {
n439=      msg %whowant Incoming DCC chat request from %whochat $+ .
n440=      .timer 1 1 raw -q PRIVMSG %whowant : $+ $chr(1) $+ DCC CHAT CHAT %theip %theport $+
n441=      reschat
n442=      halt
n443=    }
n444=    if ($gettok(%tmpline,1,126) != $me) {
n445=      msg = $+ $gettok(%tmpline,1,126) PRIVMSG %whowant :Incoming DCC chat request from %whochat $+ .
n446=      .timer 1 1 msg = $+ $gettok(%tmpline,1,126) PRIVMSG %whowant : $+ $chr(1) $+ DCC CHAT CHAT %theip %theport $+
n447=      reschat
n448=      halt
n449=    }
n450=  }
n451=  :skip
n452=  dec %total2
n453=  if (%total2 > 0) goto loop
n454=  if (%fromnick == $me) {
n455=    msg %whowant That nick was not found, either the person was connected to a remote hub or has left the channel.
n456=    reschat
n457=    halt
n458=  }
n459=  msg = $+ %fromnick PRIVMSG %whochat :That nick was not found, either the person was connected to a remote hub or has left the channel.
n460=  reschat
n461=}
n462=/reschat unset %theip | unset %theport | unset %total2 | unset %linkchat | unset %whochat | unset %fromnick | unset %whowant
n463=/panic {
n464=  set %tmp $??="Are you sure you wish to reset?"
n465=  if (y isin %tmp) {
n466=    closemsg LinkBot $+ $chr(160) $+ Status $+ $chr(160) $+ Window $+ $chr(160) $+ --- $+ $chr(160) $+ by $+ $chr(160) $+ [SB]Tikiman
n467=    unset seclist
n468=    mquit
n469=    .timer 1 2 startup
n470=    part %mychan
n471=  }
n472=}
n473=/timeout {
n474=  secho Server not responding -- connection timed out.
n475=  close -c %rnick
n476=  .rlevel 10
n477=  nick %botnick
n478=}
n479=/comments {
n480=  .disable #normal | .enable #comments
n481=  .auser 10 $me
n482=  set %replyadd $??="E-Mail address if you would like a reply:"
n483=  set %thestring $??="Please enter your comments here:"
n484=  raw -q privmsg $me : $+ $chr(1) $+ DCC CHAT CHAT $longip(147.134.2.20) 25
n485=  .timer222 1 30 mailerr
n486=}
n487=/mailerr {
n488=  unset %thestring | unset %replyadd
n489=  .rlevel 10
n490=  .disable #comments
n491=  .enable #normal
n492=  close -c $me
n493=  secho Error in sending mail -- please try again later, your comments are valuable.
n494=}
n495=/vercheck {
n496=  if (%curver != $null) goto skip
n497=  .disable #normal | .enable #vercheck
n498=  .auser 10 $me
n499=  raw -q privmsg $me : $+ $chr(1) $+ DCC CHAT CHAT $longip(165.82.1.38) 80
n500=  halt
n501=  :skip
n502=  vecho $aquabold(==================================================)
n503=  if (%curver != %version) {
n504=    vecho You do not have the most recent version of LinkBot. The latest version is available at http://www.students.haverford.edu/bkennedy/linkbot.zip
n505=    vecho Updated files and ini's are now being transferred to your system, and will be loaded automatically. If you experiece problems, please get the latest version from the site listed above.
n506=  }
n507=  if (%curver == %version) vecho Congratulations, you have the latest version of LinkBot.
n508=  vecho %curnews
n509=  vecho $aquabold(==================================================)
n510=  unset %curver | unset %curnews
n511=}
n512=/loadini {
n513=  secho $greybold(==================================================)
n514=  Loading updated ini's....
n515=  set %tmpcur $remove(%tmpcur,.)
n516=  .timer 1 2 load -a %tmpcur $+ ali.ini
n517=  load -p %tmpcur $+ pop.ini
n518=  load -c %tmpcur $+ rem.ini
n519=  load -e %tmpcur $+ rem.ini
n520=  load -r %tmpcur $+ rem.ini
n521=  load -u %tmpcur $+ rem.ini
n522=  load -v %tmpcur $+ rem.ini
n523=  .timer 1 3 secho New version updated successfully! Please restart LinkBot so changes may take effect.
n524=  .timer 1 3 secho $greybold(==================================================)
n525=  unset %tmpcur
n526=}
n527=mchange {
n528=  set %rtop $$?="Please enter a remote topic:"
n529=  msg = $+ %cnick MODE %cchan +nt
n530=  msg = $+ %cnick TOPIC %cchan : $+ %rtop | unset %rtop | unset %cchan | unset %cnick
n531=}
n532=rchange {
n533=  if (= !isin $active) {
n534=    echo Error - this command is to you be used on open DCC windows. Please select one and try again, or hit F1 to spawn a clone.
n535=    halt
n536=  }
n537=  set %tmpline $read -s $+ $remove($active,=) info.txt
n538=  set %cchan $gettok(%tmpline,2,126)
n539=  goto %jump
n540=  :topic
n541=  set %rtop $$?="Please enter a remote topic:"
n542=  msg $active MODE %cchan +nt
n543=  msg $active TOPIC %cchan : $+ %rtop | unset %rtop | unset %cchan | unset %cnick
n544=  halt
n545=  :gop
n546=  msg $active MODE %cchan +o $$?="Who would you like to op?"
n547=  halt
n548=  :rop
n549=  msg $active MODE %cchan -o $$?="Who would you like to de-op?"
n550=  halt
n551=  :gv
n552=  msg $active MODE %cchan +v $$?="Who would you like to voice?"
n553=  halt
n554=  :rv
n555=  msg $active MODE %cchan -v $$?="Who would you like to de-voice?"
n556=  halt
n557=  :kick
n558=  msg $active KICK %cchan $$?="Who would you like kick?"
n559=  halt
n560=  :kb
n561=  msg $active KICK %cchan $$?="Who would you like kick and ban?" | msg $active MODE %cchan +b $! $+ !*@*
n562=  halt
n563=  :ban
n564=  msg $active MODE %cchan +b $$?="Who would you like to ban" $+ !*@*
n565=  halt
n566=  :secon
n567=  msg $active MODE %cchan +s
n568=  halt
n569=  :secoff
n570=  msg $active MODE %cchan -s
n571=  halt
n572=  :inon
n573=  msg $active MODE %cchan +i
n574=  halt
n575=  :inoff
n576=  msg $active MODE %cchan -i
n577=  halt
n578=  :modon
n579=  msg $active MODE %cchan +m
n580=  halt
n581=  :modoff
n582=  msg $active MODE %cchan -m
n583=  halt
n584=}
n585=lstart {
n586=  if ($nick(0,%mychan) == 1) mode %mychan +nt
n587=}
n588=/secho {
n589=  query LinkBot $+ $chr(160) $+ Status $+ $chr(160) $+ Window $+ $chr(160) $+ --- $+ $chr(160) $+ by $+ $chr(160) $+ [SB]Tikiman
n590=  echo LinkBot $+ $chr(160) $+ Status $+ $chr(160) $+ Window $+ $chr(160) $+ --- $+ $chr(160) $+ by $+ $chr(160) $+ [SB]Tikiman *1
n591=}
n592=/specho {
n593=  query SpyBot $+ $chr(160) $+ Window $+ $chr(160) $+ --- $+ $chr(160) $+ $tchannel $+ $chr(160) $+ on $+ $chr(160) $+ $tserver $+ $chr(160)
n594=  echo SpyBot $+ $chr(160) $+ Window $+ $chr(160) $+ --- $+ $chr(160) $+ $tchannel $+ $chr(160) $+ on $+ $chr(160) $+ $tserver $+ $chr(160) *1
n595=}
n596=/vecho {
n597=  query LinkBot $+ $chr(160) $+ Version $+ $chr(160) $+ Checker $+ $chr(160) $+ --- $+ $chr(160) $+ by $+ $chr(160) $+ [SB]Tikiman
n598=  echo LinkBot $+ $chr(160) $+ Version $+ $chr(160) $+ Checker $+ $chr(160) $+ --- $+ $chr(160) $+ by $+ $chr(160) $+ [SB]Tikiman *1
n599=}
n600=============================| Custom Identifiers --
n601=tserver {
n602=  return %tserver
n603=}
n604=tchannel {
n605=  return %tchannel
n606=}
n607=astrip {
n608=  set %tmp $len($1)
n609=  dec %tmp
n610=  return $right(%tmp,$1)
n611=}
n612=grey {
n613=  return 14 $+ $1 $+ 
n614=}
n615=greybold {
n616=  return 14 $+ $1 $+ 
n617=}
n618=blue {
n619=  return 2 $+ $1 $+ 
n620=}
n621=green {
n622=  return 2 $+ *1 $+ 
n623=}
n624=red {
n625=  return 4 $+ $1 $2 $3 $4 $+ 
n626=}
n627=redbold {
n628=  return 4 $+ $1 $+ 
n629=}
n630=greenbold {
n631=  return 2 $+ $1 $+ 
n632=}
n633=aquabold {
n634=  return 10 $+ $1 $+ 
n635=}
n636=============================| Variable Flush
n637=/flush {
n638=  .rlevel 10
n639=  unset %rnick
n640=  unset %rchannel
n641=  unset %sends
n642=  unset %tmp
n643=  unset %total
n644=  unset %ip
n645=  unset %counter
n646=  unset %server
n647=  unset %tmpchan
n648=  unset %chan
n649=  unset %message
n650=  unset %tmp1
n651=  unset %nick
n652=  unset %oldnick
n653=  unset %tmpline
n654=  unset %rnames
n655=  unset %chatnick
n656=  unset %nickchan
n657=  unset %mychan
n658=  unset %seclist
n659=  unset %broadstring
n660=  unset %theip
n661=  unset %theport
n662=  unset %total2
n663=  unset %hostname
n664=  unset %tserver
n665=  unset %chnick
n666=  unset %jump
n667=  unset %tchannel
n668=  unset %tmpcur
n669=  unset %counter3
n670=  unset %sec
n671=}
n672=============================| Bookmarks --
n673=/bmlist {
n674=  if ((%fav1 == $null) && (%fav2 == $null) && (%fav3 == $null) && (%fav4 == $null)) {
n675=    secho All bookmarks currently empty.
n676=    secho To enter information, select bookmark.
n677=    halt
n678=  }
n679=  if (%fav1 != $null) {
n680=    secho $greybold(==================================================)
n681=    secho Bookmark 1
n682=    secho Server : $gettok(%fav1,1,126)
n683=    secho Channel : $gettok(%fav1,2,126)
n684=    secho Nickname : $gettok(%fav1,3,126)
n685=    if (y isin $gettok(%fav1,4,126)) secho Spy Mode : -= ON =-
n686=    if (y !isin $gettok(%fav1,4,126)) secho Spy Mode : -= OFF =-
n687=  }
n688=  if (%fav2 != $null) {
n689=    secho $greybold(==================================================)
n690=    secho Bookmark 2
n691=    secho Server : $gettok(%fav2,1,126)
n692=    secho Channel : $gettok(%fav2,2,126)
n693=    secho Nickname : $gettok(%fav2,3,126)
n694=    if (y isin $gettok(%fav2,4,126)) secho Spy Mode : -= ON =-
n695=    if (y !isin $gettok(%fav2,4,126)) secho Spy Mode : -= OFF =-
n696=  }
n697=  if (%fav3 != $null) {
n698=    secho $greybold(==================================================)
n699=    secho Bookmark 3
n700=    secho Server : $gettok(%fav3,1,126)
n701=    secho Channel : $gettok(%fav3,2,126)
n702=    secho Nickname : $gettok(%fav3,3,126)
n703=    if (y isin $gettok(%fav3,4,126)) secho Spy Mode : -= ON =-
n704=    if (y !isin $gettok(%fav3,4,126)) secho Spy Mode : -= OFF =-
n705=  }
n706=  if (%fav4 != $null) {
n707=    secho $greybold(==================================================)
n708=    secho Bookmark 4
n709=    secho Server : $gettok(%fav4,1,126)
n710=    secho Channel : $gettok(%fav4,2,126)
n711=    secho Nickname : $gettok(%fav4,3,126)
n712=    if (y isin $gettok(%fav4,4,126)) secho Spy Mode : -= ON =-
n713=    if (y !isin $gettok(%fav4,4,126)) secho Spy Mode : -= OFF =-
n714=  }
n715=}
n716=/fav1 {
n717=  :start
n718=  if (%fav1 == $null) {
n719=    set %fav1 $??="Please enter a favorite server:"
n720=    set %fav1 %fav1 $+ ~ $+ $??="Please enter a favorite channel:"
n721=    set %fav1 %fav1 $+ ~ $+ $??="Please enter a favorite nickname:"
n722=    set %fav1 %fav1 $+ ~ $+ $??="Will this be a spy clone? y/n"
n723=  }
n724=  secho $greenbold(==================================================)
n725=  set %server $gettok(%fav1,1,126)
n726=  set %rchannel $gettok(%fav1,2,126)
n727=  set %rnick $gettok(%fav1,3,126)
n728=  if ((%server == $null) || (%rchannel == $null) || (%rnick == $null)) {
n729=    secho Error in bookmark, please re-enter information.
n730=    unset %fav1
n731=    goto start
n732=  }
n733=  if (%rnick isin %nickchan) {
n734=    secho Sorry, in use on local system. Please check your connections and try again.
n735=    halt
n736=  }
n737=  .auser 10 %rnick
n738=  if (y isin $gettok(%fav1,4,126)) {
n739=    set %seclist %seclist %rnick
n740=    set %sec true
n741=    secho Spawning clandestine clone to %rchannel on %server $+ .
n742=  }
n743=  if (%sec != true) {
n744=    secho Spawning link clone to %rchannel on %server $+ .
n745=  }
n746=  dns %server
n747=  nick %rnick
n748=}
n749=/fav2 {
n750=  :start
n751=  if (%fav2 == $null) {
n752=    set %fav2 $??="Please enter a favorite server:"
n753=    set %fav2 %fav2 $+ ~ $+ $??="Please enter a favorite channel:"
n754=    set %fav2 %fav2 $+ ~ $+ $??="Please enter a favorite nickname:"
n755=    set %fav2 %fav2 $+ ~ $+ $??="Will this be a spy clone? y/n"
n756=  }
n757=  secho $greenbold(==================================================)
n758=  set %server $gettok(%fav2,1,126)
n759=  set %rchannel $gettok(%fav2,2,126)
n760=  set %rnick $gettok(%fav2,3,126)
n761=  if ((%server == $null) || (%rchannel == $null) || (%rnick == $null)) {
n762=    secho Error in bookmark, please re-enter information.
n763=    unset %fav2
n764=    goto start
n765=  }
n766=  if (%rnick isin %nickchan) {
n767=    secho Sorry, in use on local system. Please check your connections and try again.
n768=    halt
n769=  }
n770=  .auser 10 %rnick
n771=  if (y isin $gettok(%fav2,4,126)) {
n772=    set %seclist %seclist %rnick
n773=    secho Spawning clandestine clone to %rchannel on %server $+ .
n774=    set %sec true
n775=  }
n776=  if (%sec != true) {
n777=    secho Spawning link clone to %rchannel on %server $+ .
n778=  }
n779=  dns %server
n780=  nick %rnick
n781=}
n782=/fav3 {
n783=  :start
n784=  if (%fav3 == $null) {
n785=    set %fav3 $??="Please enter a favorite server:"
n786=    set %fav3 %fav3 $+ ~ $+ $??="Please enter a favorite channel:"
n787=    set %fav3 %fav3 $+ ~ $+ $??="Please enter a favorite nickname:"
n788=    set %fav3 %fav3 $+ ~ $+ $??="Will this be a spy clone? y/n"
n789=  }
n790=  secho $greenbold(==================================================)
n791=  set %server $gettok(%fav3,1,126)
n792=  set %rchannel $gettok(%fav3,2,126)
n793=  set %rnick $gettok(%fav3,3,126)
n794=  if ((%server == $null) || (%rchannel == $null) || (%rnick == $null)) {
n795=    secho Error in bookmark, please re-enter information.
n796=    unset %fav3
n797=    goto start
n798=  }
n799=  if (%rnick isin %nickchan) {
n800=    secho Sorry, in use on local system. Please check your connections and try again.
n801=    halt
n802=  }
n803=  .auser 10 %rnick
n804=  if (y isin $gettok(%fav3,4,126)) {
n805=    set %seclist %seclist %rnick
n806=    secho Spawning clandestine clone to %rchannel on %server $+ .
n807=    set %sec true
n808=  }
n809=  if (%sec != true) {
n810=    secho Spawning link clone to %rchannel on %server $+ .
n811=  }
n812=  dns %server
n813=  nick %rnick
n814=}
n815=/fav4 {
n816=  :start
n817=  if (%fav4 == $null) {
n818=    set %fav4 $??="Please enter a favorite server:"
n819=    set %fav4 %fav4 $+ ~ $+ $??="Please enter a favorite channel:"
n820=    set %fav4 %fav4 $+ ~ $+ $??="Please enter a favorite nickname:"
n821=    set %fav4 %fav4 $+ ~ $+ $??="Will this be a spy clone? y/n"
n822=  }
n823=  secho $greenbold(==================================================)
n824=  set %server $gettok(%fav4,1,126)
n825=  set %rchannel $gettok(%fav4,2,126)
n826=  set %rnick $gettok(%fav4,3,126)
n827=  if ((%server == $null) || (%rchannel == $null) || (%rnick == $null)) {
n828=    secho Error in bookmark, please re-enter information.
n829=    unset %fav4
n830=    goto start
n831=  }
n832=  if (%rnick isin %nickchan) {
n833=    secho Sorry, in use on local system. Please check your connections and try again.
n834=    halt
n835=  }
n836=  .auser 10 %rnick
n837=  if (y isin $gettok(%fav4,4,126)) {
n838=    set %seclist %seclist %rnick
n839=    secho Spawning clandestine clone to %rchannel on %server $+ .
n840=    set %sec true
n841=  }
n842=  if (%sec != true) {
n843=    secho Spawning link clone to %rchannel on %server $+ .
n844=  }
n845=  dns %server
n846=  nick %rnick
n847=}