The Unsorted BBS Collection/thegreatunsorted.tar/thegreatunsorted/hacking/internet/toolbox.irc

Text File | 2001-02-10 | 50.4 KB | 2,433 lines

#  ToolZ V1.433b from EnCiNo (c) '94 hope it makes ya feel warm.
# '/on -ctcp "% % Ver%" /notice $0 Running : $running'
# Or summit simular :]
#
^echo |                      WELCOME TO EnCiNo's toolbox                               |
^echo | ! Auto Ban Kick now fixed.                                                 |
^echo | > Automatic away message can now be changed (/idlemes)                     |
^echo | > Default away message has been added. So you just type /Setaway for it to |
^echo |     work. (/defmes)                                                        |
^echo | ! Logging fixed.                                                           |
^echo |          If you have any questions email me :[e-mail]
      |
      |
^echo |  File size : 53101 if your ToolZ.irc is not this size, then DONT USE IT!   |
^echo |      EnCiNo's Toolie box now loaded. for list of commands : /Commands
      |
^echo `------------------------------------------------------------------------<E>-'
^assign tlzsize 53101
^assign version V1.433b
^assign adop autostuf.yaz
^assign backadop autoback.yaz
^assign awayfle awaymes.yaz
^assign mdautos On
^assign adautod On
^assign Adadcc On
^assign adbnusd Notused
^assign lckdmod None
^assign mdzmdp On
^assign isaway Nope
^assign AInv On
^assign Overwrite Off
^assign -Killpw
^assign -mdautop
^assign -mdautpw
^assign -mdautlk
^assign -mdautbk
^assign -mdautjn
^assign -mdautof
^assign alarm Off
^assign alarmt 00:00
^assign megames !NONE!
^assign idleaway 5
^assign autoaway On
^assign toolz ToolZ
^assign dstog Off
^assign defumes Detached.
^assign idlemes Automatically set away.
@ ajnflag = 0
/eval ^assign running ToolZ $version ${running}
^set exec_protection off
^set status_user  ToolZ V1.433b
^set novice off
^set max_recursions 100
^set client_information Running ToolZ V1.433b
^set hold_mode off
^set beep on
^set hold_mode off
^bind ^b Self_insert
^bind ^v Self_insert
^bind ^w next_window
alias n
{
  ^notify $left($index(! $0) $0)
  if ([$1])
  {
    /notif $1-
  }
}
alias dovar
{
  ^assign $0 $1-
}
alias adaddem
{
  ^assign mdautop $0- ${mdautop}
}
alias adaddlk
{
  ^assign mdautlk $0- ${mdautlk}
}
alias adaddak
{
  ^assign mdautbk $0- ${mdautbk}
}
alias adaddjn
{
  ^assign mdautjn $0- ${mdautjn}
}
alias adaddof
{
  ^assign mdautof $0- ${mdautof}
}
alias ADadd
{
  if ([$0])
  {
    ^echo [$toolz] Adding $0 to your excellent list.
    userhost $0 -CMD if ([$3]!=[<UNKNOWN>])
    {
      if (rmatch($0!$3@$4 $mdautop))
      {
        ^echo [$toolz] $0 is already on your list.
      }
      {
        ^notice $0 You have been added to $N 's auto op list.
        ^notice $0 Do a /ctcp $N Help for more info.
        adaddem $0!$3@$4
      }
    }
    {
      ^echo [$toolz] I cannot find $0 on IRC.
    }
  }
  {
    ^echo [$toolz] You must specify the nick of the person you are adding.
  }
}
alias ADstat
{
  if ([$0]==[on])
  {
    ^assign mdautos On
    ^echo [$toolz] Ctcp op/invite now on.
  }
  {
    if ([$0]==[off])
    {
      ^assign mdautos Off
      ^echo [$toolz] Ctcp op/invite now off.
    }
    {
      ^echo [$toolz] Ctcp op/invite is $mdautos
    }
  }
}
^on -ctcp *
{
  if (([$1]==[$N])&&([$2]!=[VERSION]))
  {
    if ([$adbnusd]==[Notused])
    {
      ^assign adbnusd Inuse
      if ([$3])
      {
        ^assign adchannl $3
      }
      {
        ^assign adchannl $C
      }
      if (rmatch($0!$userhost() $mdautop))
      {
        adcomm $0-
      }
      ^assign adbnusd Notused
    }
    {
      ^notice $0 Sorry script in use at the moment, please try again in a few seconds.
      ^echo [$toolz] $0 tryed CTCP $2- but script was busy.
    }
  }
}
^on -ctcp "% % DCC SEND *"
{
  if ([$1]==[$N])
  {
    if ([$adautod]==[On])
    {
      /exec -name DCG$0/$4 ls $4
    }
    {
      ^echo [$toolz] DCC Send received ! $0 has offered $4
    }
  }
}
^on -ctcp "% % DCC CHAT *"
{
  if ([$1]==[$N])
  {
    /dcc chat $0
    ^echo [$toolz] Dcc Chat received. Use '/M =$0 <Message>' To chat via dcc.
  }
}
^on ^exec_error "DCG* *"
{
  @ dcclen = [$0]
  @ getf = [$right(${@dcclen-3} $0)]
  @ idx = [$index(/ $getf)]
  @ filenme = [$right(${@getf-idx+1} $0)]
  @ nicknme = [$left($idx $getf)]
  ^dcc get $nicknme $filenme
  ^echo [$toolz] Auto-Getting $filenme from $nicknme .
}
^on ^exec "DCG* *"
{
  @ dcclen = [$0]
  @ getf = [$right(${@dcclen-3} $0)]
  @ idx = [$index(/ $getf)]
  @ filenme = [$right(${@getf-idx+1} $0)]
  @ nicknme = [$left($idx $getf)]
  if ([$overwrite]==[On])
  {
    ^echo [$toolz] Auto-Getting $filenme from $nicknme . (Overwriting file)
    /dcc get $nicknme $filenme
  }
  {
    ^echo [$toolz] $nicknme offered $filenme but it already exists.
  }
}
^on -ctcp "% % FINGER"
{
  ^echo [$toolz] $0 has fingered you.
  /notice $0 Why don't you just ask me?
}
^on -ctcp "% % RUNNING"
{
  /notice $0 Running : $running
  ^echo [$toolz] $0 has asked for your 'running' list.
}
^on -ctcp "% % VER%"
{
  ^echo [$toolz] $0 has asked for my version.
  ^notice $0 Running : $running
}
^on -ctcp "% % PING "
{
  ^echo [$toolz] $0 has pinged you.
  ^notice $0 PONG !!
}
^on -ctcp "% % Toolz"
{
  /notice $0 I am running ToolZ $version
}
^on -join *
{
  ^assign jnconf $1
  Userhost $0 -CMD if ([$3])
  {
    if (match($0!$3@$4 $mdautop))
    {
      if ([$mdautos]==[On])
      {
        /mode $jnconf +o $0
      }
      {
        ^notice $0 Auto-op is disabled.
      }
    }
    if (rmatch($0 $mdautlk))
    {
      /kick $jnconf $0 <LNK>
    }
    if (rmatch($0!$3@$4 $mdautbk))
    {
      /mode $jnconf -o+b $0 $word(${rmatch($0!$3@$4 $mdautbk)-1} $mdautbk)
      /kick $jnconf $0 <ABK>
    }
  }
}
alias adcomm
{
  if (([$2]==[OP])&&(!ischanop($0 $adchannl)))
  {
    if ([$mdautos]==[On])
    {
      ^notice $0 You have been opped via ToolZ.
      /mode $adchannl +o $0
      ^echo [$toolz] $0 has been opped via a request on ctcp.
    }
    {
      ^notice $0 Ctcp op has been disabled.
      ^echo [$toolz] $0 asked for op but ctcp op is disabled.
    }
  }
  {
    if (([$2]==[OP])&&(ischanop($0 $adchannl)))
    {
      ^notice $0 You are already opped.
    }
  }
  if ([$2]==[INVITE])
  {
    if ([$mdautos]==[On])
    {
      /invite $0 $adchannl
      ^echo [$toolz] Inviting $0 under request from a ctcp.
      ^notice $0 You have been invited via ToolZ.
    }
    {
      ^notice $0 Ctcp invite has been disabled.
      ^echo [$toolz] $0 asked for a invite but ctcp invite is disabled.
    }
  }
  if ([$2]==[FLIST])
  {
    ^msg $0 I have $adfiles available.
    ^echo [$toolz] $0 asked for my file list.
  }
  if ([$2]==[GET])
  {
    if (rmatch($3 $adfiles))
    {
      ^dcc send $0 $3
      ^msg $0 $3 is being sent.
      ^echo [$toolz] $0 has been dcc'd $3 via request on ctcp.
    }
    {
      ^msg $0 You must specify a file to be DCC'd.
    }
  }
  if ([$2]==[HELP])
  {
    ^notice $0 -----------------------------------------------------------
    ^notice $0                      ToolZ from EnCiNo
    ^notice $0                     ~~~~~~~~~~~~~~~~~~
    ^notice $0 You are included in the most excellent list of $N
    ^notice $0 the following commands are available to you:
    ^notice $0   /ctcp $N op <Channel>                :For ops. *
    ^notice $0   /ctcp $N invite <Channel>            :For a invite. *
    ^notice $0   /ctcp $N flist                       :For file list.
    ^notice $0   /ctcp $N get <Filename>              :For Dcc of a file.
    ^notice $0 * : If you leave the Channel you will be opped/invited to
    ^notice $0     current channel which is : $C
    ^notice $0 If you abuse this privilege you will be removed from the
    ^notice $0 list. If you have any questions /msg $N !
    ^notice $0 -------------------------------------------------------<Y>-
    ^echo [$toolz] $0 has asked for help.
  }
}
alias ADDcc
{
  if ([$0]==[On])
  {
    ^assign Adautod On
    ^echo [$toolz] Auto DCC get is now on.
  }
  {
    if ([$0]==[Off])
    {
      ^assign Adautod Off
      ^echo [$toolz] Auto DCC get is now off.
    }
    {
      ^echo [$toolz] Auto DCC is $adautod .
    }
  }
}
alias ADOver
{
  if ([$0]==[On])
  {
    ^assign Overwrite On
    ^echo [$toolz] Auto DCC Overwrite is now On.
  }
  {
    if ([$0]==[Off])
    {
      ^assign Overwrite Off
      ^echo [$toolz] Auto DCC Overwrite is now Off.
    }
    {
      ^echo [$toolz] Auto DCC Overwrite is currently $overwrite .
    }
  }
}
alias ADFile
{
  if ([$0])
  {
    ^echo [$toolz] Adding $0- to your file list.
    ^assign adfiles $0- ${adfiles}
  }
  {
    ^echo [$toolz] You have : $adfiles : in your file list.
  }
}
alias ADRfile
{
  if ([$0])
  {
    @ adrfil = 0
    ^assign -adrfilt
    ^assign -adrfilr
    ^assign adtemp Nop
    while ([$(#adfiles)]>arfil)
    {
      if (match($0 $word($arfil $adfiles)))
      {
        ^assign adtemp Yeup
        ^assign adrfilt $word($adrfil $adfiles) ${adrfilt}
      }
      {
        ^assign adrfilr $word($adrfil $adfiles) ${adrfilr}
      }
      @ arfil = arfil + 1
    }
    if ([$adtemp]==[Yeup])
    {
      ^assign $adfiles $adrfilt
      ^echo [$toolz] $adrfilr has/have been removed from your file list.
    }
    {
      ^echo [$toolz] No files with that name/filter were found.
    }
  }
  {
    ^echo [$toolz] You must specify a filename/filter.
  }
}
alias ADAdcc
{
  if ([$0]==[on])
  {
    ^assign Adadcc On
    ^echo [$toolz] Auto DCC is now On.
  }
  {
    if ([$0]==[off])
    {
      ^assign Adadcc Off
      ^echo [$toolz] Auto DCC is now Off.
    }
    {
      ^echo [$toolz] Auto DCC is $adadcc .
    }
  }
}
alias ADList
{
  ^echo [$toolz] You have the following people in your excellent list.
  @ ADListv = 0
  while ([$(#mdautop)]>adlistv)
  {
    ^echo [$toolz] $word($adlistv $mdautop)
    @ adlistv = adlistv + 1
  }
  ^echo [$toolz] End of the list. A total of $Adlistv people.
}
alias ADCheck
{
  if ([$0])
  {
    userhost $0 -CMD if ([$3]!=[<UNKNOWN>])
    {
      ^assign adcheckv $0!$3@$4
      if (rmatch($adcheckv $mdautop))
      {
        ^echo [$toolz] $0 is on your excellent list.
      }
      {
        ^echo [$toolz] $0 is not on your excellent list.
      }
    }
    {
      ^echo [$toolz] I cannot find $0 on IRC.
    }
  }
  {
    ^echo [$toolz] You must specify a nick.
  }
}
alias bk
{
  ^Bkick $0-
}
alias nk
{
  ^nkick $0-
}
alias rk
{
  ^rkick
}
alias lk
{
  ^lkick
}
alias fk
{
  ^fkick $0-
}
alias fbk
{
  ^fbkick $0-
}
alias nkick
{
  if ([$0])
  {
    if ([$1])
    {
      ^assign nkres $1- <NK>
    }
    {
      ^assign nkres <NK>
    }
    ^Kick * $0 $nkres
  }
  {
    ^kcerror
  }
}
alias rkick
{
  ^set display off
  ^on names *
  {
    ^assign rndkck $1-
  }
  ^names $C
  wait
  ^set display on
  ^assign rktmp no
  @ rcnt = 0
  ^echo [$toolz] RKick started...
  while ([$(#rndkck)]>rcnt)
  {
    if (!match(@* $word($rcnt $rndkck)))
    {
      if ([$word($rcnt $rndkck)]!=[$N])
      {
        if ([!$word($rcnt $rndkck)]!=[!])
        {
          ^assign lamerz $word($rcnt $rndkck) ${lamerz}
          ^assign rktmp ppl
        }
      }
    }
    @ rcnt = rcnt + 1
  }
  @ rcnt = 0
  @ hikik = 1
  @ hinum = 0
  while ([$(#lamerz)]>=rcnt)
  {
    @ rkrnd = rand(100)
    if (rkrnd>=hinum)
    {
      @ hinum = rkrnd
      @ hikik = rcnt
    }
    @ rcnt = rcnt + 1
  }
  if ([$rktmp]==[ppl])
  {
    ^assign kiklamr $word($hikik $lamerz)
    ^kick * $kiklamr <RandomKick>
    ^notice $kiklamr You have been randomly kicked from $C by RKick.
    ^echo [$toolz] $kiklamr has been kicked by RKick.
  }
  {
    ^Echo [$toolz] No one to kick! Everyone is opped on $C .
  }
  ^assign -lamerz
  ^on names -
}
alias lkick
{
  ^set display off
  ^on names *
  {
    ^assign lamkick $1-
  }
  ^names $C
  wait
  ^set display on
  ^assign lktmp no
  @ lcnt = 0
  ^echo [$toolz] LKick started...
  while ([$(#lamkick)]>lcnt)
  {
    if (!match(@* $word($lcnt $lamkick)))
    {
      if ([$word($lcnt $lamkick)]!=[$N])
      {
        if ([!$word($lcnt $lamkick)]!=[!])
        {
          ^assign bkicked $word($lcnt $lamkick) ${bkicked}
          ^assign lktmp ppl
        }
      }
    }
    @ lcnt = lcnt + 1
  }
  if ([$lktmp]==[ppl])
  {
    @ lcnt = 0
    while ([$(#bkicked)]>=lcnt)
    {
      ^kick * $word($lcnt $bkicked) <LK>
      @ lcnt = lcnt + 1
    }
    ^echo [$toolz] $bkicked has been kicked with LKick.
    ^say $bkicked has been kicked by LKick.
  }
  {
    ^echo [$toolz] No one to kick! Everyone is opped on $C .
  }
  ^on names -
  ^assign -bkicked
}
alias fkick
{
  if ([$0])
  {
    if ([$1])
    {
      ^assign fkres $1- <FK $0>
    }
    {
      ^assign fkres <FK $0>
    }
    ^echo [$toolz] FKick on $0 started.
    ^assign fkfilt $0
    ^assign -ftbkick
    ^on -who *
    {
      if (match($fkfilt $1!$3@$4))
      {
        /assign ftbkick $1 ${ftbkick}
      }
    }
    ^set display off
    /who $C
    wait
    ^set display on
    @ fkcnt = 0
    while ([$(#ftbkick)]>fkcnt)
    {
      /kick * $word($fkcnt $ftbkick) $fkres
      @ fkcnt = fkcnt + 1
    }
    ^echo [$toolz] $ftbkick was kicked from $C with the filter $0 .
    ^on who -
  }
  {
    ^echo [$toolz] You must specify a filter to kick. (/fkick <Filter> <Reason>)
  }
}
alias fbkick
{
  if ([$0])
  {
    if ([$1])
    {
      ^assign fkres $1- <FBK $0>
    }
    {
      ^assign fkres <FBK $0>
    }
    ^echo [$toolz] FBKick on $0 started.
    ^assign fkfilt $0
    ^assign -ftbkick
    ^on -who *
    {
      if (match($fkfilt $1!$3@$4))
      {
        /assign ftbkick $1 ${ftbkick}
      }
    }
    ^set display off
    /who $C
    wait
    ^set display on
    @ fkcnt = 0
    /mode * +b $fkfilt
    while ([$(#ftbkick)]>fkcnt)
    {
      /kick * $word($fkcnt $ftbkick) $fkres
      @ fkcnt = fkcnt + 1
    }
    ^echo [$toolz] $ftbkick was kicked from $C with the filter $0 .
    ^on who -
  }
  {
    ^echo [$toolz] You must specify a filter to kick. (/fkick <Filter> <Reason>)
  }
}

alias knerror
{
  ^echo [$toolz] Error, you need to specify a nick.
}
alias kccant
{
  ^echo [$toolz] You cannot do this as you are not a channel op.
}
^assign defban n
alias bandef
{
  if ([$0]==[n])
  {
    @ defban = [n]
  }
  if ([$0]==[e])
  {
    @ defban = [e]
  }
  if ([$0]==[h])
  {
    @ defban = [h]
  }
  if ([$0]==[s])
  {
    @ defban = [s]
  }
  if ([$defban]==[n])
  {
    ^echo [$toolz] Default ban is normal.
  }
  if ([$defban]==[e])
  {
    ^echo [$toolz] Default ban is elite.
  }
  if ([$defban]==[h])
  {
    ^echo [$toolz] Default ban is host.
  }
  if ([$defban]==[s])
  {
    ^echo [$toolz] Default ban is screw.
  }
}
alias Ban
{
  if ([$0])
  {
    @ param = [$0]
    if (index(! $0)!=-1)
    {
      @ band = [$1]
    }
    {
      @ band = [$0]
    }
    if ([$param]==[$band])
    {
      @ param = [!$defban]
    }
    Userhost $band -CMD if ([$4]!=[<UNKNOWN>])
    {
      @ theban = []
      if ([$param]==[!n])
      {
        /nban $3 $4 theban
        wait
        ^echo [$toolz] Banning $0 with a normal ban.
      }
      if ([$param]==[!e])
      {
        /eban $3 $4 theban
        wait
        ^echo [$toolz] Banning $0 with a elite ban.
      }
      if ([$param]==[!h])
      {
        /hban $3 $4 theban
        wait
        ^echo [$toolz] Banning $0 with a host ban.
      }
      if ([$param]==[!s])
      {
        /sban $3 $4 theban
        wait
        ^echo [$toolz] Banning $0 with a screw ban.
      }
      if ([$param]==[!?])
      {
        /bantype
      }
      {
        if ([$theban]==[])
        {
          /nban $3 $4 theban
          wait
          ^echo [$toolz] Banning $0 with a normal (Default) ban.
        }
        /mode * +b $theban
      }
    }
    {
      /echo [$toolz] Cannot find $0 on IRC.
    }
  }
  {
    /echo [$toolz] Useage : /Ban <BanType> <Nick> : /BanType for info on bans.
  }
}
alias bkick
{
  if ([$0])
  {
    @ param = [$0]
    if (index(! $0)!=-1)
    {
      @ band = [$1]
      @ kbreason = [$2-]
    }
    {
      @ band = [$0]
      @ kbreason = [$1-]
    }
    if ([$kbreason])
    {
      ^assign kbreason ${kbreason} <BK>
    }
    {
      ^assign kbreason <BK>
    }
    if ([$param]==[$band])
    {
      @ param = [!$defban]
    }
    Userhost $band -CMD if ([$4]!=[<UNKNOWN>])
    {
      @ theban = []
      if ([$param]==[!n])
      {
        /nban $3 $4 theban
        wait
      }
      if ([$param]==[!e])
      {
        /eban $3 $4 theban
        wait
      }
      if ([$param]==[!h])
      {
        /hban $3 $4 theban
        wait
      }
      if ([$param]==[!s])
      {
        /sban $3 $4 theban
        wait
      }
      if ([$param]==[!?])
      {
        /bantype
      }
      {
        if ([$theban]==[])
        {
          /nban $3 $4 theban
          wait
        }
        /mode * -o+b $0 $theban
        /kick * $0 $kbreason
      }
    }
    {
      /echo [$toolz] Cannot find $0 on IRC.
    }
  }
  {
    /echo [$toolz] Useage : /BKick <BanType> <Nick> <Reason>
    /echo [$toolz] /BanType for info on bans.
  }
}
alias bantype
{
  /echo [$toolz] Ban types : (Blah![e-mail])
  /echo [$toolz] !N - Normal *!*xample@*.bans.com
  /echo [$toolz] !S - Screw  *!*E??mp?e@*.b??s.?om
  /echo [$toolz] !E - Elite  *!*?x?m?l?@*.????.???
  /echo [$toolz] !H - Host   *!*@*.bans.com
}
alias sban
{
  @ cnt = 0
  @ tomake = [$0@$1]
  @ temp = [$1]
  ^assign tomake $0@*$right(${@temp-index(. $1)} $1)
  @ temp = []
  if ((mid($cnt 1 $0)==[~])||(mid($cnt 1 $0)==[#]))
  {
    @ cnt = 1
  }
  while (mid($cnt 1 $tomake)!=[])
  {
    @ rnd = rand(10)
    if ((mid($cnt 1 $tomake)==[*])||(mid($cnt 1 $tomake)==[@])||(mid($cnt 1 $tomake)==[.])||(mid($cnt 1 $tomake)==[])||(mid($cnt 1 $tomake)==[]))
    {
      @ temp = [$temp$mid($cnt 1 $tomake)]
    }
    {
      if (rnd>4)
      {
        @ temp = [$temp?]
      }
      {
        @ temp = [$temp$mid($cnt 1 $tomake)]
      }
    }
    @ cnt = cnt + 1
  }
  ^assign $2 *!*$temp
}
alias eban
{
  @ cnt = 0
  @ flag = 0
  @ temp2 = []
  if ((mid($cnt 1 $0)==[~])||(mid($cnt 1 $0)==[#]))
  {
    @ cnt = 1
  }
  while (mid($cnt 1 $0)!=[])
  {
    if ((mid($cnt 1 $0)!=[])&&(mid($cnt 1 $0)!=[]))
    {
      if (flag==0)
      {
        ^assign temp2 ${temp2}$mid($cnt 1 $0)
        @ flag = 1
      }
      {
        ^assign temp2 ${temp2}?
        @ flag = 0
      }
    }
    {
      ^assign temp2 ${temp2}$mid($cnt 1 $0)
    }
    @ cnt = cnt + 1
  }
  @ tstr = [$1]
  @ tstr = [$right(${@tstr-index(. $1)} $1)]
  @ cnt = 0
  @ temp = []
  while (mid($cnt 1 $tstr)!=[])
  {
    if (mid($cnt 1 $tstr)!=[.])
    {
      ^assign temp ${temp}?
    }
    {
      ^assign temp ${temp}.
    }
    @ cnt = cnt + 1
  }
  ^assign $2 *!*$temp2@*$temp
}
alias nban
{
  @ uname = [$0]
  @ uname = [uname] - 1
  @ tamp = [$1]
  ^assign $2 *!*$mid(1 $uname $0)@*$right(${@tamp-index(. $1)} $1)
}
alias hban
{
  @ tamp = [$1]
  ^assign $2 *!*@*$right(${@tamp-index(. $1)} $1)
}
^on -raw_irc "% MODE *"
{
  @ mdcnt = 0
  @ nixcnt = 0
  ^assign mde +
  ^assign mdech $3
  ^assign nix $4-
  ^assign mdchnl $2
  ^assign mdlam $0
  Userhost $N -cmd if ([$3])
  {
    ^assign ownadd $0!$3@$4
  }
  if (([$3]==[-ooo])&&([$left($index(! $0) $0)]!=[$N])&&([$mdzmdp]==[On]))
  {
    /kick $mdchnl $left($index(! $0) $0) <MegaDeop>
  }
  while (mid($mdcnt 1 $mdech)!=[])
  {
    ^assign mdecc $mid($mdcnt 1 $mdech)
    if (([$mdecc]==[-])||([$mdecc]==[+]))
    {
      ^assign mde $mdecc
    }
    {
      if (match($mde$mdecc +b -b +o -o +k -k +l +v -v))
      {
        if ([$mde$mdecc]==[+b])
        {
          if (match($word($nixcnt $nix) $ownadd))
          {
            ^echo [$toolz] Ban On You Detected by $mdlam !
            if ([$isaway]==[Yeup])
            {
              ^eval exec echo "/echo :*: You were banned by $mdlam  on $2 . - $word($nixcnt $nix)" >> $awayfle
            }
            if ([$left($index(! $mdlam) $mdlam)]!=[$N])
            {
              /mode $mdchnl -ob $left($index(! $mdlam) $mdlam) $word($nixcnt $nix)
            }
          }
        }
        if ([$mde$mdecc]==[-o])
        {
          if (([$isaway]==[Yeup])&&([$word($nixcnt $nix)]==[$N]))
          {
            ^eval exec echo "/echo :*: You were deopped by $mdlam  on $2 ." >> $awayfle
          }
          Userhost $word($nixcnt $nix) -CMD if ([$4]!=[<UNKNOWN>])
          {
            ^assign mddeop $0!$3@$4
          }
          if ((match($mddeop $mdautop))&&([$mdautos]==[On])&&(!ischanop($left($index(! $mddeop) $mddeop) $mdchnl)))
          {
            /mode $mdchnl +o $left($index(! $mddeop) $mddeop)
          }
        }
        if ([$mde$mdecc]==[+k])
        {
          ^assign chankey $word($nixcnt $nix)
        }
        if ([$mde$mdecc]==[+o])
        {
          if (([$isaway]==[Yeup])&&([$word($nixcnt $nix)]==[$N]))
          {
            ^eval exec echo "/echo :*: You were opped by $mdlam  on $2 ." >> $awayfle
          }
        }
        @ nixcnt = nixcnt + 1
      }
    }
    @ mdcnt = mdcnt + 1
  }
  if ([$lckdmod]!=[none])
  {
    if ([$left($index(! $mdlam) $mdlam)]!=[$N])
    {
      /mode $mdchnl $lckdmod
    }
  }
}
alias nokey
{
  /mode * -k $chankey
}
alias MDLock
{
  if ([$0])
  {
    if ([$0]==[none])
    {
      ^assign lckdmod None
      ^echo [$toolz] Mode unlocked.
    }
    {
      ^assign lckdmod $0-
      ^echo [$toolz] Mode locked with $0- .
    }
  }
  {
    ^echo [$toolz] Mode lock is $lckdmod .
  }
}
alias MDProt
{
  if ([$0]==[off])
  {
    ^echo [$toolz] MegaDeop Protection is now off.
    ^assign mdzmdp Off
  }
  {
    if ([$0]==[on])
    {
      ^echo [$toolz] MegaDeop Protection is now on.
      ^assign mdzmdp On
    }
    {
      ^Echo [$toolz] MegaDeop Protection is $mdzmdp
    }
  }
}
alias CDBan
{
  ^echo [$toolz] Clearing bans.
  ^set display off
  ^assign cdbanz $0!$3@$4
  ^assign -cbunband
  ^on -367 *
  {
    ^assign cbunband $2 ${cbunband}
  }
  ^mode $C +b
  wait
  ^unbanlop $cbunband
  ^assign -cdbanz
  ^set display on
  ^on 367 -
}
alias DBan
{
  Userhost $0 -CMD if ([$3])
  {
    ^set display off
    ^assign dbanz $0!$3@$4
    ^assign -bunband
    ^on -367 *
    {
      if (match($2 $dbanz))
      {
        ^assign bunband $2 ${bunband}
      }
    }
    ^mode $C +b
    wait
    ^unbanlop $bunband
    ^assign -dbanz
    ^set display on
  }
}
alias unbanlop
{
  if ([$3])
  {
    /mode * -bbb $0 $1 $2
    /unbanlop $3-
  }
  {
    if ([$2])
    {
      /mode * -bbb $0 $1 $2
    }
    {
      if ([$1])
      {
        /mode * -bb $0 $1
      }
      {
        if ([$0])
        {
           /mode * -b $0
        }
      }
    }
  }
}
alias banlop
{
  if ([$3])
  {
    /mode * +bbb $0 $1 $2
    /banlop $3-
  }
  {
    if ([$2])
    {
      /mode * +bbb $0 $1 $2
    }
    {
      if ([$1])
      {
        /mode * +bb $0 $1
      }
      {
        if ([$0])
        {
           /mode * +b $0
        }
      }
    }
  }
}
alias dobans
{
  ^echo [$toolz] Doing bans.
  banlop $mdautbk
}
alias mdcant
{
  ^echo [$toolz] You can not do this as your are not a channel op.
}
alias mdop
{
  ^echo [$toolz] Megadeoping $C , its on your head dewd.
  ^set display off
  ^on -who *
  {
    if (([$1]!=[$N])&&(ischanop($1 $C)))
    {
      ^assign mdopz $1 ${mdopz}
    }
  }
  ^who *
  wait
  ^set display on
  @ mdopcnt = 1
  while ([$(#mdopz)]>=mdopcnt)
  {
    /quote mode $C -oo $word(${mdopcnt-1} $mdopz) $word($mdopcnt $mdopz)
    @ mdopcnt = mdopcnt + 2
  }
}
alias op
{
  if ([$3])
  {
    /op $3-
    /mode * +ooo $0 $1 $2
  }
  {
    /mode * +ooo $0 $1 $2
  }
}
alias chanst
{
  if ([$0])
  {
    ^assign chnl $0
  }
  {
    ^assign chnl $C
  }
  @ cnscnt = 0
  @ opedpl = 0
  @ unoppl = 0
  @ awaypl = 0
  @ herepl = 0
  @ ircopl = 0
  ^assign -ircopz
  ^on -who *
  {
    if (index(@ $2)!=-1)
    {
      @ opedpl = opedpl + 1
    }
    {
      @ unoppl = unoppl + 1
    }
    if (index(H $2)!=-1)
    {
      @ herepl = herepl + 1
    }
    if (index(G $2)!=-1)
    {
      @ awaypl = awaypl + 1
    }
    if (index(* $2)!=-1)
    {
      @ ircopl = ircopl + 1
      ^assign ircopz ${ircopz} $1
    }
    @ cnscnt = cnscnt + 1
  }
  ^set display off
  /who $chnl
  wait
  ^on who -
  ^set display on
  /echo [$toolz] Channel stats for $chnl :
  /echo [$toolz] There are $cnscnt assholes on the channel.
  /echo [$toolz] There are $opedpl opped idiots and $unoppl unoped lamers.
  /echo [$toolz] There are $herepl here losers and $awaypl away fags.
  if ([$ircopz])
  {
    /echo [$toolz] There are $ircopl IRC-Ops. -$ircopz
  }
  {
    /echo [$toolz] There are $ircopl IRC-Ops.
  }
}
^on ^msg "% ?DCC"
{
  Userhost $0 -CMD if ([$4]!=[<UNKNOWN>])
  {
    ^echo [$toolz] Possible flood from $0!$3@$4 .
    ^ignore *@$4 all
    ^notice $0 A Possible flood has been detected by you.
    ^notice $0 You are now being ignored.
  }
}
^on ^msg *
{
  if ([$1]==[KILL])
  {
    ^assign testkill $2
    Userhost $N -CMD if ([$4])
    {
      ^assign youraddy $3@$4
    }
    Userhost $0 -CMD if ([$4])
    {
      if ([$killpw])
      {
        if ([$killpw]==[$testkill])
        {
          if ([$3@$4]==[$youraddy])
          {
            /notice $0 Terminating under request. (User@Host + PW match)
            ^echo [$toolz] $0 has killed you.
            //exit <Killed by $0>
          }
        }
      }
    }
  }
  if (match(*** $1-))
  {
    Userhost $0 -CMD if ([$3])
    {
      ^echo [$toolz] Possible MSG flood by someone on $0!$3@$4 .
      ^ignore *@$4 msgs
      ^notice $0 A possible MSG flood has been detected by you.
      ^notice $0 All MSG's from you are now being ignored.
    }
  }
  {
    ^echo *$0* $1-
    if ([$isaway]==[Yeup])
    {
      ^assign logtext $strip(;[](){}"'` :$0: $1-)
      ^eval exec echo "/echo $logtext " >> $awayfle
      ^notice $0 Your message has been logged. ToolZ $version
    }
    if ([*$0* $1-]==[$lastmes])
    {
      ^echo [$toolz] Possible message flood, from $0 triggered by Multiple Message.
      ^notice $0 Possible message flood has been detected by you.
      ^notice $0 Never send me more than one msg containing the same letters
      ^notice $0 Everthing apart from public messages are now being ignored.
      ^notice $0 Now you are paying for your mistakes! Better luck next time!
      Userhost $0 -CMD if ([$3])
      {
        ^ignore *@$4 All -public
      }
    }
    ^assign lastmes *$0* $1-
  }
}
^on ^send_msg *
{
  /echo -> *$0* $1-
}
^on ^notice *
{
  if (match(*** $1-))
  {
    Userhost $0 -CMD if ([$3])
    {
      ^echo [$toolz] Possible notice flood by someone on $0!$3@$4 .
      ^ignore *@$4 notices
      ^notice $0 A possible NOTICE flood has been detected by you.
      ^notice $0 All NOTICE's from you are now being ignored.
    }
  }
  {
    ^echo -$0- $1-
  }
}
alias unignore
{
  Userhost $0 -CMD if ([$4]!=[<UNKNOWN>])
  {
    /ignore *@$4 none
  }
}
alias setaway
{
  if ([$0])
  {
    ^assign reason $0-
  }
  {
    ^assign reason $defumes
  }
  ^away I am away - $reason
  /me is away - $reason - any messages will be logged.
  ^assign isaway Yeup
  ^eval exec echo "/echo >> Set away - $reason <<" >> $awayfle
}
alias setback
{
  ^assign isaway Nope
  /me is back.
  ^away
  /load awaymes.yaz
}
alias idlemes
{
  if ([$0])
  {
    ^assign idlemes $0-
    ^echo [$toolz] Auto away message now : ' $0- '
  }
  {
    ^echo [$toolz] Auto away message : ' $idlemes '
  }
}
alias defmes
{
  if ([$0])
  {
    ^assign defumes $0-
    ^echo [$toolz] Default away message now : ' $0- '
  }
  {
    ^echo [$toolz] Default away message : ' $defumes '
  }
}
alias clearmes
{
  ^exec rm awaymes.yaz
}
alias dirlm
{
  if ([$0])
  {
    /msg $0 $lastmes
  }
  {
    /say $lastmes
  }
}
alias sve
{
  ^echo [$toolz] Save started.
  ^exec rm $backadop
  wait %exec
  ^exec mv $adop $backadop
  wait %exec
  ^exec -name toolzsve cat > $adop
  ^msg %toolzsve # Data file for toolz.irc
  wait
  ^msg %toolzsve dovar mdautos $mdautos
  wait
  ^msg %toolzsve dovar adautod $adautod
  wait
  ^msg %toolzsve dovar overwrite $overwrite
  wait
  ^msg %toolzsve dovar mdzmdp $mdzmdp
  wait
  ^msg %toolzsve dovar lckdmod $lckdmod
  wait
  ^msg %toolzsve dovar ainv $ainv
  wait
  ^msg %toolzsve dovar alarmt $alamrt
  wait
  ^msg %toolzsve dovar alarm $alarm
  wait
  ^msg %toolzsve dovar autoaway $autoaway
  wait
  ^msg %toolzsve dovar idleaway $idleaway
  wait
  ^msg %toolzsve dovar dstog $dstog
  wait
  ^msg %toolzsve dovar killpw $killpw
  wait
  ^msg %toolzsve dovar defban $defban
  wait
  ^msg %toolzsve dovar defumes $defumes
  wait
  ^msg %toolzsve dovar idlemes $idlemes
  wait
  ^msg %toolzsve adaddem $mdautop
  wait
  ^msg %toolzsve adaddlk $mdautlk
  wait
  ^msg %toolzsve adaddak $mdautbk
  wait
  ^msg %toolzsve adaddjn $mdautjn
  wait
  ^msg %toolzsve adaddof $mdautof
  wait
  ^exec -CLOSE %toolzsve
  ^echo [$toolz] Same completed.
}
alias adlnk
{
  if ([$0])
  {
    @ lnkcnt = 0
    ^assign lnktoba $0-
    ^assign -lnkadadd
    while ([$(#lnktoba)]>lnkcnt)
    {
      if (!rmatch($word($lnkcnt $lnktoba) $mdautlk))
      {
        adaddlk $word($lnkcnt $lnktoba)
        ^assign lnkadadd $word($lnkcnt $lnktoba) ${lnkadadd}
      }
      @ lnkcnt = lnkcnt + 1
    }
    ^echo [$toolz] $lnkadadd has/have been added to your LNK List.
  }
  {
    ^echo [$toolz] You must specify a nick.
  }
}
alias lnklist
{
  ^echo [$toolz] You have |$mdautlk | in yout LNK list.
}
^on -nick *
{
  @ nkccnt = 0
  while ([$(#mdautlk)]>nkccnt)
  {
    if (match($word($nkccnt $mdautlk) $1))
    {
      /kick * $1 <LNK>
    }
    @ nkccnt = nkccnt + 1
  }
}
alias adbk
{
  if ([$0])
  {
    Userhost $0 -CMD if ([$3])
    {
      if ([$4]!=[<UNKNOWN>])
      {
        ^assign tempvar $3
        @ uname = [tempvar] - 1
        @ tamp = [$4]

        ^adaddak *!*$mid(1 $uname $3)@*$right(${@tamp-index(. $4)} $4)
        ^echo [$toolz] $0 has been added to your auto BKick.
      }
      {
        ^echo [$toolz] I cannot find $0 on irc.
      }
    }
  }
  {
    ^echo [$toolz] You must specify a nick.
  }
}
alias adbkf
{
  if ([$0])
  {
    ^adaddak $0
    ^echo [$toolz] The filter $0 has been addad to your auto BKick.
  }
  {
    ^echo [$toolz] You must specify a filter.
  }
}
alias bklist
{
  ^echo [$toolz] Auto BKick list.
  @ bklcnt = 0
  while ([$(#mdautbk)]>bklcnt)
  {
    ^echo [$toolz] $word($bklcnt $mdautbk)
    @ bklcnt = bklcnt + 1
  }
  ^echo [$toolz] End of list, a total of $bklcnt entries.
}
alias remautop
{
  if ([$0])
  {
    ^assign -opdlist
    @ rmopcnt = 0
    while ([$(#mdautop)]>rmopcnt)
    {
      if (match($0!*@* $word($rmopcnt $mdautop)))
      {
        ^echo [$toolz] $0 has been removed.
      }
      {
        ^assign opdlist $word($rmopcnt $mdautop) ${opdlist}
      }
      @ rmopcnt = rmopcnt + 1
    }
    ^assign -mdautop
    ^assign mdautop $opdlist
  }
  {
    ^echo [$toolz] You must specify a nick to be removed.
  }
}
alias remlnk
{
  if ([$0])
  {
    ^assign -lnklist
    @ rmlnk = 0
    while ([$(#mdautlk)]>rmlnk)
    {
      if ([$0]!=[$word($rmlnk $mdautlk)])
      {
        ^assign lnklist $word($rmlnk $mdautlk) ${lnklist}
      }
      {
        ^echo [$toolz] $0 has been removed.
      }
      @ rmlnk = rmlnk + 1
    }
    ^assign -mdautlk
    ^assign mdautlk $lnklist
  }
  {
    ^echo [$toolz] You need to spcify a nick to be removed.
  }
}
alias rembk
{
  if ([$0])
  {
    Userhost $0 -cmd if ([$4]!=[<UNKNOWN>])
    {
      ^assign -bktlist
      @ rmbk = 0

      ^assign tempvar $3
      @ uname = [tempvar] - 1
      @ tamp = [$4]

      while ([$(#mdautbk)]>rmbk)
      {
        if (match($word($rmbk $mdautbk) $0!$3@$4))
        {
          ^echo [$toolz] $0 has been removed.
        }
        {
          ^assign bktlist $word($rmbk $mdautbk) ${bktlist}
        }
        @ rmbk = rmbk + 1
      }
      ^assign -mdautbk
      ^assign mdautbk $bktlist
    }
    {
      ^echo [$toolz] Cannot find $0 on irc.
    }
  }
  {
    ^echo [$toolz] You must specify a nick.
  }
}
alias rembkf
{
  if ([$0])
  {
    ^assign -bktlist
    @ rmbk = 0
    while ([$(#mdautbk)]>rmbk)
    {
      if ([$0]!=[$word($rmbk $mdautbk)])
      {
        ^assign bktlist $word($rmbk $mdautbk) ${bktlist}
      }
      {
        ^echo [$toolz] $0 has been removed.
      }
      @ rmbk = rmbk + 1
    }
    ^assign -mdautbk
    ^assign mdautbk $bktlist
  }
  {
    ^echo [$toolz] You must specify a filter.
  }
}
alias docow
{
  /msg $0 (__) <== $1
  /msg $0 /oo\\________
  /msg $0 \\  /        \\;/msg $0  \\/      /   \\;/msg $0    \\_|___\\_|/.\\;/msg $0     ||   YY| o '
  /msg $0     ||    || O <== $2-
  /msg $0     ^^    ^^
}
alias dop
{
  if ([$1])
  {
    /mode * -o $0
    /dop $1-
  }
  {
    /mode * -o $0
  }
}
alias FBan
{
  /BanLop $0-
}
alias m
{
  /msg $0 $1-
}
/on -raw_irc "% KICK *"
{
  if ([$3]==[$N])
  {
    /quote join $2
    if ([$isaway]==[Yeup])
    {
      ^assign logtext $strip(;[](){}"'` :$0: You were kicked by $0 from $2 - $3- .)
      ^eval exec echo "/echo $logtext" >> $awayfle
    }
  }
  if (rmatch($3 $mdautop))
  {
    /inv $0 $2
  }
}
/on -msg "% *invite*"
{
  if ([$ainv]==[On])
  {
    /notice $0 AInv Usage : /msg $N Invite <Channel>
  }
  {
    /notice $0 AInv Usage : /msg $N Invite <Channel> (Auto Invite is disabled)
  }
}
/on -msg "% invite #%"
{
  if ([$ainv]==[On])
  {
    /inv $0 $2
  }
  {
    /notice $0 -Auto Invite is disabled.-
  }
}
/alias AInv
{
  if ([$0]==[On])
  {
    ^assign AInv On
    ^echo [$toolz] Auto Invite now on.
  }
  {
    if ([$0]==[Off])
    {
      ^assign AInv Off
      ^echo [$toolz] Auto Invite now off.
    }
    {
      ^echo [$toolz] Auto invite is $ainv
    }
  }
}
/on -timer *
{
  if (([$0]==[$alarmt])&&([$alarm]==[On]))
  {
    clock
  }
}
/alias ALTime
{
  ^assign alarmt $0
  /echo [$toolz] Alarm is now set to $0 . (Alarm is now set on.)
  ^assign alarm On
}
/alias clock
{
  /echo [$toolz]     _____               
  /echo [$toolz]    /     \\    Alarm !! 
  /echo [$toolz]   /   |   \\   Alarm !! 
  /echo [$toolz]   |   |/  |   Alarm !! 
  /echo [$toolz]   |   o   |   Alarm !! 
  /echo [$toolz]   |       |   Alarm !! 
  /echo [$toolz]   \\       /   Alarm !! 
  /echo [$toolz]    \\_____/    Alarm !! 
  /echo [$toolz]                         
}
/alias Alarm
{
  if ([$0])
  {
    if ([$0]==[On])
    {
      /echo [$toolz] Alarm is now On.
      ^assign alarm On
    }
    {
      if ([$0]==[Off])
      {
        /echo [$toolz] Alarm is now Off.
        ^assign alarm off
      }
    }
  }
  {
    /echo [$toolz] Alarm is $alarm . Alarm is set for $alarmt .
  }
}
^on -idle *
{
  if (([$0]==[$idleaway])&&([$isaway]==[Nope])&&([$autoaway]==[On]))
  {
    /setaway $idleaway
    /echo [$toolz] Automatically setting you away.
  }
}
alias autoaway
{
  if ([$0]==[On])
  {
    ^assign autoaway On
    ^echo [$toolz] Auto away is now On.
  }
  {
    if ([$0]==[Off])
    {
      ^assign autoaway Off
      ^echo [$toolz] Auto away is now Off.
    }
    {
      ^echo [$toolz] Auto away is $autoaway .
    }
  }
}
alias autotime
{
  if ([$0])
  {
    ^assign idleaway $0
    ^echo [$toolz] Auto setaway idle time is now $0 .
  }
  {
    ^echo [$toolz] Auto setaway idle time is $idleaway .
  }
}
alias clearaop
{
  ^assign -mdautop
  /echo [$toolz] Auto-Op list now cleared.
}
alias clearabk
{
  ^assign -mdautbk
  /echo [$toolz] Auto Ban Kick list now cleared.
}
alias clearlnk
{
  ^assign -mdautlk
  /echo [$toolz] LNK list now cleared.
}
alias clearajn
{
  ^assign -mdautjn
  ^echo [$toolz] Auto Join list now cleared.
}
alias adautojn
{
  if ([$0])
  {
    ^assign mdautjn $0- ${mdautjn}
    /echo [$toolz] $0- has been added to your auto join list.
  }
  {
    /echo [$toolz] You must specify the channel name.
  }
}
alias remajn
{
  if ([$0])
  {
    @ ajncnt = 0
    ^assign -tempjn
    while ([$(#mdautjn)]>ajncnt)
    {
      if ([$word($ajncnt $mdautjn)]==[$0])
      {
        /echo [$toolz] $0 has been removed.
      }
      {
        ^assign tempjn $word($ajncnt $mdautjn) ${tempjn}
      }
      @ ajncnt = ajncnt + 1
    }
    ^assign mdautjn $tempjn
  }
}
alias ajnlist
{
  /echo [$toolz] You have | $mdautjn | in your auto join list.
}
^on -invite *
{
  if (rmatch($1 $mdautjn))
  {
    if ([$ajnflag]==[0])
    {
      @ ajnflag = 1
      if ([$1]!=[$C])
      {
        /echo [$toolz] Auto-joining $1 on invite from $0.
        /join $1
        wait
      }
      @ ajnflag = 0
    }
  }
}
alias SM
{
  if ([$0])
  {
    ^assign megames $0-
    /echo [$toolz] Mega Message set to : $0-
  }
  {
    /echo [$toolz] A message is needed.
  }
}
alias VMM
{
  if ([$megames]!=[!NONE!])
  {
    /echo [$toolz] Mega message is set to : $megames
  }
  {
    /echo [$toolz] No mega message set.
  }
}
alias MM
{
  if ([$0])
  {
    if ([$megames]!=[!NONE!])
    {
      @ megcnt = 0
      ^assign megton $0-
      while ([$(#megton)]>megcnt)
      {
        ^msg $word($megcnt $megton) $megames
        @ megcnt = megcnt + 1
      }
      /echo [$toolz] Mega message sent to $0- .
    }
    {
      /echo [$toolz] No Mega Message set.
    }
  }
  {
    /echo [$toolz] You must specify some nicks to send the message to.
  }
}
alias inv
{
  if ([$0])
  {
    if ([$1])
    {
      /invite $0-
    }
    {
      /invite $0 $C
    }
  }
  {
    /echo [$toolz] You need to specify a nick to invite.
  }
}
alias uptime
{
  /exec -name UPTIME uptime
}
alias si
{
  /echo [$toolz] Dont be a sucker. /si quits you from IRC.
  /echo [$toolz] Use //Si or /Exit to quit IRC.
}
alias sign
{
  /echo [$toolz] Dont be a sucker. /sign quits you from IRC.
  /echo [$toolz] Use //Sign or /Exit to quit IRC.
}
alias signo
{
  /echo [$toolz] Dont be a sucker. /signo quits you from IRC.
  /echo [$toolz] Use //Signo or /Exit to quit IRC.
}
alias addfo
{
  if ([$0])
  {
    @ addfo = 0
    ^assign toaddfo $0-
    ^assign -foadded
    ^assign -foreject
    while ([$(#toaddfo)]>addfo)
    {
      if (!rmatch($word($addfo $toaddfo) $mdautof))
      {
        /adaddof $word($addfo $toaddfo)
        ^assign foadded $word($addfo $toaddfo) ${foadded}
      }
      {
        ^assign foreject $word($addfo $toaddfo) ${foreject}
      }
      @ addfo = addfo + 1
    }
    if ([$foadded])
    {
      ^echo [$toolz] $foadded added to OpFind list.
    }
    if ([$foreject])
    {
      ^echo [$toolz] $foreject are already on your FindOp list.
    }
  }
  {
    ^echo [$toolz] You needs to specify nicks to add.
  }
}
alias folist
{
  if ([$mdautof])
  {
    ^echo [$toolz] Current nicks in your OpFind list :
    ^echo [$toolz] $mdautof
  }
  {
    ^echo [$toolz] There are no nicks in your FindOp list.
  }
}
alias findop
{
  if ([$0])
  {
    @ focnt = 0
    ^assign -fonicks
    ^echo [$toolz] Sending message $0- to all on findop list. Please wait.
    while ([$(#mdautof)]>focnt)
    {
      ^assign fonicks $word($focnt $mdautof),${fonicks}
      @ focnt = focnt + 1
    }
    ^set display off
    ^msg $fonicks $0-
    wait
    ^set display on
    ^echo [$toolz] Messages sent.
  }
  {
    ^echo [$toolz] You have to specify a message to send.
  }
}
alias n
{
  /notice $0-
}
alias c
{
  /ctcp $0-
}
alias ClearFO
{
  ^assign -mdautof
  ^echo [$toolz] FindOp list now cleared.
}
alias RemFO
{
  if ([$0])
  {
    @ remfo = 0
    ^assign -tempfo
    while ([$(#mdautof)]>remfo)
    {
      if ([$word($remfo $mdautof)]!=[$0])
      {
        ^assign tempfo $word($remfo $mdautof) ${tempfo}
      }
      {
        ^echo [$toolZ] $0 removed.
      }
      @ remfo = remfo + 1
    }
    ^assign -mdautof
    ^assign mdautof $tempfo
  }
  {
    ^echo [$toolz] You must specify a nick to remove!
  }
}
alias Aop2Fo
{
  ^echo [$toolz] Copying all nicks from your AOp list to your FindOp list.
  ^assign -newnick
  @ aoptfo = 0
  while ([$(#mdautop)]>aoptfo)
  {
    ^assign temp $word($aoptfo $mdautop)
    ^assign newnick $left($index(! $temp) $temp) ${newnick}
    @ aoptfo = aoptfo + 1
  }
  /addfo $newnick
}
alias wallit
{
  @ opcnt = 0
  ^assign namescnt $0-
  while ([$(#namescnt)]>opcnt)
  {
    if ([$[1]namescnt]==[@])
    {
      /notice $0 [*WallOp*] $wallnote
    }
    @ opcnt = opcnt + 1
  }
  ^assign temp $C
  ^echo -> !$temp! $wallnote
}
alias wallop
{
  if ([$0])
  {
    ^assign wallnote $0-
    ^on ^names *
    {
      /wallit $1-
      ^on -names -
    }
    /names $C
    wait
  }
}
/on ^notice "% %[%WallOp%]% *"
{
  /echo !$0! $2-
}
alias killpass
{
  if ([$0])
  {
    ^echo [$toolz] Kill Password now : $0
    ^echo [$toolz] You can now '/Msg $N Kill $0' if your client freezes.
    ^echo [$toolz] This will 'kill' the dead client. For security both the
    ^echo [$toolz] Password and the USER@HOST are checked. ONLY YOU CAN USE THIS.
    ^assign killpw $0
  }
  {
    if ([$killpw])
    {
      ^echo [$toolz] Kill Password is currently : $killpw
    }
    {
      ^echo [$toolz] No Kill Password is currently set.
    }
  }
}
alias status
{
  ^echo [$toolz] Current configuration -
  ^echo [$toolz] ~~~~~~~~~~~~~~~~~~~~~~~~
  ^echo [$toolz] Version                 : $version
  ^echo [$toolz] CTCP Op / Invite        : $mdautos
  ^echo [$toolz] Auto DCC Get            : $adautod
  ^echo [$toolz] Auto DCC get Overwrite  : $overwrite
  ^echo [$toolz] Mega Deop Protection    : $mdzmdp
  ^echo [$toolz] Mode lock               : $lckdmod
  ^echo [$toolz] Auto Invite             : $Ainv
  ^echo [$toolz] Alarm time              : $alarmt
  ^echo [$toolz] Alarm status            : $alarm
  ^echo [$toolz] Auto Setaway            : $autoaway
  ^echo [$toolz] Auto Setaway Time       : $idleaway
  ^echo [$toolz] Notify on dsynch        : $dstog
  if ([$killpw])
  {
    ^echo [$toolz] Kill Password           : $killpw
  }
  {
    ^echo [$toolz] Kill Password           : None Set
  }
  if ([$defban]==[n])
  {
    ^echo [$toolz] Default Ban             : Normal
  }
  if ([$defban]==[e])
  {
    ^echo [$toolz] Default Ban             : Elite
  }
  if ([$defban]==[h])
  {
    ^echo [$toolz] Default Ban             : Host
  }
  if ([$defban]==[s])
  {
    ^echo [$toolz] Default Ban             : Screw
  }
}
alias notaop
{
  ^echo [$toolz] Adding all yout Auto Ops to your Notify list.
  ^notif $mdautop
}
alias version
{
  ^echo [$toolz] Version : $version
}
/on ^exec "lstest *"
{
  @ lstcnt = 0
  @ totest = [$0-]
  while ([$(#totest)]>lstcnt)
  {
    if ([$word($lstcnt $totest)]==[toolz.irc])
    {
      ^assign namepos $lstcnt
    }
    if ([$word($lstcnt $totest)]==[$tlzsize])
    {
      ^assign sizepos $lstcnt
    }
    @ lstcnt = lstcnt + 1
  }
  /echo [$toolz] Name = $namepos , Size = $sizepos
}
/on ^exec_error "lstest *"
{
  /echo [$toolz] Cannot find ToolZ.IRC. Make sure toolz.irc is in your
  /echo [$toolz] Current directory. (SetLS has failed)
}
/alias SetLS
{
  ^exec -name lstest ls -l toolz.irc
}
/alias Mdcc
{
  if ([$0]==[send])
  {
    if (namepos>0)
    {
      if ([$2])
      {
        ^assign dcsfiles $2-
        userhost $1 -CMD if ([$4]!=[<UNKNOWN>])
        {
          /exec -name DCS$0 ls -l $dcsfiles
        }
        {
          /echo [$toolz] Cannot find $0 on IRC.
        }
      }
      {
        /echo [$toolz] Use : /MDcc send <Nick> <Files>
      }
    }
    {
      /echo [$toolz] You must use /SetLS first!
    }
  }
  {
    /dcc $0-
  }
}
/on ^exec "DCS* *"
{
  ^assign dcsnick $0
  ^assign dcsnick $right(${@dcsnick-3} $0)
  ^assign dcspars $0-
  ^echo [$toolz] Sending $dcsnick $word($namepos $dcspars)
  ^dcc send $dcsnick $word($namepos $dcspars)
}
/on ^exec_error "DCS* *"
{
  ^echo [$toolz] $1-
}
alias j
{
  if ([$0[1]]==[#])
  {
    /join $0-
  }
  {
    /join #$0-
  }
}
alias l
{
  if ([$0])
  {
    /leave $0-
  }
  {
    /leave *
  }
}
alias wi
{
  /whois $0-
}
/on ^server_notice *
{
  if ([$4]==[Fake:])
  {
    if (rmatch($7 $mychannels()))
    {
      /echo *** FAKE '$5 - $7-' from $0
      if ([$dstog]==[On])
      {
        ^notice $5 *** FAKE '$5 - $7-' from $0
      }
    }
  }
}
/alias notfake
{
  if ([$0]==[on])
  {
    ^assign dstog On
    /echo [$toolz] Fake mode notify is now on.
  }
  {
    if ([$0]==[off])
    {
      ^assign dstog Off
      /echo [$toolz] Fake mode notify is now off.
    }
    {
      /echo [$toolz] Fake mode notify is $dstog
    }
  }
}
alias about
{
  ^echo ------------------------------------------------------------------------------
  ^echo                               EnCiNo's Toolbox.
  ^echo                              ~~~~~~~~~~~~~~~~~~
  ^echo Welcome to my toolbox :] /msg me if ya have any problems :]
  ^echo I am not going to explain everything this does.. i am sure you will find out..
  ^echo Enjoy it !
  ^echo Special thanx to Barney for the spell checkin :]
  ^echo More special thanx to stone for catching what Barney missed :D
  ^echo eddy there ya go mon.. your name is lights .. :P
  ^echo --------------------------------------------------------------------------<Y>-
}
alias Commands
{
  ^echo ------------------------------------------------------------------------------
  ^echo                        EnCiNo's toolbox List of commands.
  ^echo                       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  ^echo /M        (Nick) (Mess)   - Mesages <Nick> with <Mess>.
  ^echo /N        (Nick) (Mess)   - Notices <Nick> with <Mess>.
  ^echo /C        (Nick) (Mess)   - CTCP's <Nick> with <Mess>.
  ^echo /L        (Channels)      - Leave <Channels>.
  ^echo /L                        - Leave all channels.
  ^echo /J        (Channels)      - Join <Channels>.
  ^echo /Wi       (Nick)          - Whois <Nick>.
  ^echo /Op       (Nicks)         - Ops all <Nicks>.
  ^echo /DOp      (Nicks)         - Deops all <Nicks>.
  ^echo /ADAdd    (Nick)          - Adds <Nick> to your list.
  ^echo /ADStat   (On/Off)        - Turns off ctcp op and invite.
  ^echo /ADStat                   - Shows current status.
  ^echo /ADCheck  (Nick)          - Checks if <Nick> is on your list.
  ^echo /ADList                   - Shows all ppl on your list.
  ^echo /ADDcc    (On/Off)        - Turns auto DCC GET on/off.
  ^echo /ADDcc                    - Shows auto DCC status.
  ^echo /ADOver   (On/Off)        - Turns auto DCC GET overwrite on/off.
  ^echo /AdOver                   - Shows auto DCC GET overwrite status.
  ^echo /ADFile   (Filenames)     - Add file(s) to your file list.
  ^echo /ADFile                   - Shows current files in your list.
  ^echo /ADRFile  (Filename)      - Removes a file from your file list.
  ^echo /ADRFile  (Filter)        - Removes files with a filter from your list.
  ^echo /Rkick                    - Kicks 1 unopped person by random. (Or /RK)
  ^echo /LKick                    - Kicks all unopped ppl from the channel. (Or /LK)
  ^echo /BKick    (T) (N) (R)     - Kicks and bans <N> with reason <R> with ban <T>.
  ^echo /NKick    (Nick) (Reason) - Kicks someone. (Or /NK)
  ^echo /FKick    (Filt) (Reason) - Kicks all from current channel with (Filt)
  ^echo /KBKick   (Filt) (Reason) - Same as FKick, but does a ban with the filter.
  ^echo /Ban      (Type) (Nick)   - Bans the nick specified, with ban <Type>.
  ^echo /FBan     (Bans)          - Does all <Bans> in current channel.
  ^echo /DBan     (Nick)          - Un-Bans a specified nick.
  ^echo /CDBan                    - Clears bans.
  ^echo /MDProt   (On/Off)        - Turns megadeop protection on or off.
  ^echo /MDProt                   - Shows megadeop protection status.
  ^echo /MDLock   (Mode)          - Locks the mode with <Mode>.
  ^echo /MDLock   (None)          - Clears mode lock.
  ^echo /MDLock                   - Shows locked mode.
  ^echo /MDop                     - Megadeops current channel.
  ^echo /NoKey                    - Removes last set channel key.
  ^echo /ChanSt   (Channel)       - Gives info of the channel.
  ^echo /SetAway  (Reason)        - Sets you away, starts logging of msg's.
  ^echo /SetBack                  - Sets you back, and replays msg's.
  ^echo /ClearMes                 - Clears all recorded msg's.
  ^echo /Dirlm                    - Redirects last message to the current channel.
  ^echo /Dirlm    (Nick)          - Redirects last message to (Nick).
  ^echo /Sve                      - Saves all the auto stuff to file.
  ^echo /AdLNK    (Nick/Filter)   - Adds a nick/filter to the LNK list.
  ^echo /LNKList                  - Lists the Lame Nick Kick list.
  ^echo /AdBK     (Nick)          - Adds a nick to auto BKick list.
  ^echo /AdBKf    (Filter)        - Adds a filter to auto BKick list.
  ^echo /BKList                   - Lists the auto BKick list.
  ^echo /RemAutop (Nick)          - Removes a nick from your AutoOp List.
  ^echo /RemLNK   (Nick)          - Removes a nick from your LNK list.
  ^echo /RemBK    (Nick)          - Removes a nick from your Auto BKick list.
  ^echo /RemBKf   (Filter)        - Removes a filter from your Auto BKick list.
  ^echo /RemFo    (Nick)          - Removes a nick from your FindOp list.
  ^echo /AInv     (On/Off)        - Turns Auto Invite On or Off.
  ^echo /DoBans                   - Does all bans in your auto BKick list.
  ^echo /DoCow    (Dest) (1) (2)  - Sends a cow to the <Dest>.
  ^echo /ALTime   (HH|MM)         - Sets alarm time. HH:MM
  ^echo /Alarm    (On/Off)        - Turns the alarm on or off.
  ^echo /Alarm                    - Shows current alarm status and alarm time.
  ^echo /AdAutoJN (Channel)       - Adds <Channel> to your AJN list. (include #)
  ^echo /RemAJN   (Channel)       - Removes <Channel> from your AJN list.
  ^echo /AJNList                  - Shows all channels in your AJN list.
  ^echo /ClearAop                 - Clears Auto-Op list.
  ^echo /ClearABK                 - Clears Auto Ban Kick list.
  ^echo /ClearLNK                 - Clears LNK list.
  ^echo /ClearAJN                 - Clears Auto join list.
  ^echo /ClearFO                  - Clears FindOp list.
  ^echo /SM       (Message)       - Sets message for Mega Message.
  ^echo /MM       (Nicks)         - Sends Mega Message to all Nicks.
  ^echo /VMM                      - Shows current Mega Message.
  ^echo /Inv      (Nick) (Chanl)  - Invites <Nick> to <Chan>.
  ^echo /AddFO    (Nicks)         - Adds <Nicks> to your FindOp list.
  ^echo /FOList                   - Shows who is on your FindOp list.
  ^echo /FindOp   (Message)       - Sends <Message> to all on your FindOp list.
  ^echo /Aop2Fo                   - Copies all nicks on your Aop to yout FO list.
  ^echo /Wallop   (Message)       - Sends a Wallop to your current channel.
  ^echo /Killpass (Password)      - Sets your private kill password.
  ^echo /Status                   - Shows current ToolZ configuration.
  ^echo /Notaop                   - Adds all your Aop's to your notify list.
  ^echo /UpTime                   - Executes Uptime.
  ^echo /AutoAway (On/Off)        - Turns automatic setting away on or off.
  ^echo /AutoAway                 - Shows current automatic setaway status.
  ^echo /AutoTime (Time)          - Sets automatic setting away time.
  ^echo /AutoTime                 - Shows automatic setting away time.
  ^echo /SetLS                    - Checks your systems ls -l, needed for MDcc.
  ^echo /MDcc     (Nick) (Files)  - Dcc's <Nick>, <Files> (you can use wildcards).
  ^echo /Bandef   (N/E/S/H)       - Sets Default Ban
  ^echo /NotFake  (On/Off)        - Turns notify on dsynch on or off.
  ^ehco /NotFake                  - Shows current notify on dsynch .
  ^echo /Version                  - Shows current ToolZ Version.
  ^echo /About                    - Gives you an about text.
  ^echo --------------------------------------------------------------------------<Y>-
}
/load autostuf.yaz
^eval mode $N +s