[Aliases]
n0=;================================================================================
n1=;NOTE:  find any bugs or errors let me know; email me at fukn@usa.net
n2=;================================================================================
n3=fkick {
n4=  if ( $$1 == $null ) {  echo 12 -a [BüGGëD] Missing Parameters. }
n5=  set %filterchan #
n6=  if ($ial($$1,0) != 0) {
n7=    set %num $nick(0,%filterchan)
n8=    :next
n9=    if ($$1 iswm $address($nick(%num,%filterchan),5)) {
n10=      if ( %filterban == on ) { mode %filterchan +b $address($nick(%num,%filterchan),2) }
n11=      kick %filterchan $nick(%num,%filterchan)  FilterKICK: ( $+ $$1 $+ )  [BüGGëD] v2.5 
n12=    }
n13=    dec %num
n14=    if ($ial($$1,0) == 0) goto done
n15=    if (%num > 0) goto next
n16=    :done
n17=  }
n18=  unset %num %filterchan %filterban
n19=  echo 12 -a [BüGGëD] Filter of ( $+ $$1 $+ ) Completed. Kicking...
n20=}
n21=/awayon {
n22=  set %awaytime $atime | set %page on
n23=  away [BüGGëD] v2.5 Away: $$?="Enter Away Message:"  Pager < %page >  Since < %awaytime on $adate >
n24=  set %awaymsg $! | .timer239 0 670 ame is away! 4< %awaymsg 4>  Pager < %page >  Since < %awaytime on $adate >
n25=  ame is away! 4< %awaymsg 4>  Pager < %page >  Since < %awaytime on $adate >
n26=  echo 12 -a [BüGGëD] Set Away: Pager 4< %page 4> At 4< $atime on $adate 4>
n27=}
n28=/back {
n29=  .timer239 off | away | .set %page off | unset %awaytime %awaymsg
n30=  echo 12 -a [BüGGëD] Set Back: Pager 4< %page 4> At 4< $atime on $adate 4>
n31=}
n32=/awayoff {
n33=  set %awaytime $atime | set %page off
n34=  away [BüGGëD] v2.5 Away: $$?="Enter Away Message:"  Pager < %page >  Since < %awaytime on $adate >
n35=  set %awaymsg $! | .timer239 0 670 ame is away! 4< %awaymsg 4>  Pager < %page >  Since < %awaytime on $adate >
n36=  ame is away! 4< %awaymsg 4>  Pager < %page >  Since < %awaytime on $adate >
n37=  echo 12 -a [BüGGëD] Set Away: Pager < %page > At < $atime on $adate >
n38=}
n39=atime {
n40=  set %hours $token(1,58,$time)
n41=  if (%hours > 12) { dec %hours 12 | /set %sub pm } 
n42=  elseif (%hours == 12) { set %sub pm }
n43=  elseif (%hours == 0) { set %hours 12 | /set %sub am }
n44=  else { set %sub am }
n45=  .set %time %hours $+ : $+ $token(2,58,$time) $+ %sub
n46=  return %time
n47=}
n48=/F1 {
n49=  echo 12 -a [BüGGëD] Processing Request...
n50=  if ( $me != %defnick ) { nick %defnick | .msg nickserv identify %nickpass | halt }
n51=  else { .msg nickserv identify %nickpass }
n52=  .msg chanserv op %defchan $me
n53=}
n54=/F2  {
n55=  set %wav $$dir="Wav To Play:" $wavedir | set %wavcomment $?="Comment: (optional)"
n56=  if ( %wcom != $null ) { sound $nopath(%wav) < $nopath(%wav) > %wavcomment [( [ [ $lof(%wav) ] $+ b ] )] }
n57=  else { sound $nopath(%wav) < $nopath(%wav) > [( [ [ $lof(%wav) ] $+ b ] )] }
n58=  unset %wav*
n59=}
n60=/F8 {
n61=  echo 4 -a [BüGGëD] Commencing Manual Ass Kicking of %slnick
n62=  ban %slchan %slnick 4 | kick %slchan %slnick %slmsg | ignore -u200 %slnick 2
n63=  unset %slchan %slnick %slmsg
n64=}
n65=/ops /onotice [ $+ # $+ ]OPs] *1
n66=/note /notice $$1 [Private] *2
n67=/www /amsg http://www.geocities.com/SiliconValley/Park/5246/
n68=/dns { set %dns $$1 | dns $$1 | echo 4 -a [BüGGëD] Looking up 4< $$1 4> }
n69=/fserv {
n70=  if ( %fserve == on ) { msg # [BüGGëD] v2.5 Fserve 4< enabled 4> Type %command to Access! }
n71=  else { echo 12 -a [BüGGëD] Fserve is 4< disabled 4> }
n72=}
n73=/cls /clear
n74=/fssetup { 
n75=  echo 4 # [BüGGëD] Fserve Settings:
n76=  echo 12 # [BüGGëD] Access Command 4< %command 4>
n77=  echo 12 # [BüGGëD] Fserve Directory 4< %directory 4>
n78=  echo 12 # [BüGGëD] Welcome File 4< %welcome 4>
n79=  echo 12 # [BüGGëD] Max Gets 4< %maxgets 4>
n80=}
n81=/whois { .enable #whois | whois $$1 }
n82=/whowas { .enable #whowas | whowas $$1 }
n83=/fdsetup {
n84=  echo 4 # [BüGGëD] Flood Detection Settings:
n85=  echo 12 # [BüGGëD] Text Flood 4< %chanflood 4>
n86=  echo 12 # [BüGGëD] Action Flood 4< %chanflood 4>
n87=  echo 12 # [BüGGëD]  Nick Flood 4<  %nickflood 4> 
n88=  echo 12 # [BüGGëD] CTCP Flood 4< %ctcpflood 4>
n89=  echo 12 # [BüGGëD] Ban Protection 4< %pban 4>
n90=}
n91=/csetup {
n92=  echo 4 -a [BüGGëD] Current Default Setup:
n93=  echo 12 -a [BüGGëD] Default Channel 4< %defchan 4>
n94=  echo 12 -a [BüGGëD] Default Nick 4< %defnick 4>
n95=  echo 12 -a [BüGGëD] NickServ Password 4< %nickpass 4>
n96=}
n97=/opers {
n98=  if ( $1 == $null ) || ( # == $null ) { echo 12 -a [BüGGëD] Missing Parameters! | halt }
n99=  else { .enable #echooper | set %chan $$1 | echo 4 -a [BüGGëD] Listing IRCops on %chan $+ : | who # }
n100=}
n101=;====================================================================
n102=;NOTE: the XDCC is based upon that in Li0n v3.0 by Li0nHeart with additions solely
n103=;            by me (FukNGrvN).
n104=;====================================================================
n105=/xlist {
n106=  set %total $readini $mircdir $+ xdcc.ini main total  
n107=  if (%total == $null) { echo 12 -a [BüGGëD] No packets offered. | halt }
n108=  set %counter 1
n109=  :begin
n110=  if (%counter <= %total) {
n111=    set %packet $readini $mircdir $+ xdcc.ini main %counter
n112=    echo 12 -a [BüGGëD]  $+ $chr(35) $+ %counter $+  [ $readini $mircdir $+ xdcc.ini %packet dl ] $+ x $chr(91) $+  $+ [ $readini $mircdir $+ xdcc.ini %packet size ] $+ B $+  $+ $chr(93) $readini $mircdir $+ xdcc.ini %packet name
n113=    inc %counter | goto begin
n114=  }
n115=  unset %counter %total %packet
n116=}
n117=/xadd {
n118=  set %total $readini $mircdir $+ xdcc.ini main total
n119=  set %packet $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z)
n120=  set %name $$?="Description of Packet:"
n121=  set %path $$dir="Full Path of Packet:" c:\
n122=  set %comment $?="Enter Pack Comment: (optional)"
n123=  :begin
n124=  if ($exists(%path) == $false) {
n125=    set %path $?="Full Path of Packet:"
n126=    goto begin
n127=  }
n128=  set %size $lof(%path)
n129=  if (%size < 1000) { set %size [ %size ] $+ b }
n130=  elseif (%size > 1000000) {
n131=    %m = %size / 1000000 | %k = %size % 1000000
n132=    %k = %k / 100000
n133=    set %size [ %m ] $+ . $+ [ %k ] $+ m
n134=  }
n135=  else { %k = %size / 1000 | set %size [ %k ] $+ k }
n136=  unset %k %m
n137=  inc %total
n138=  if ( %comment != $null ) { writeini $mircdir $+ xdcc.ini %packet comment %comment }
n139=  writeini $mircdir $+ xdcc.ini %packet path %path
n140=  writeini $mircdir $+ xdcc.ini %packet name %name
n141=  writeini $mircdir $+ xdcc.ini %packet size %size
n142=  writeini $mircdir $+ xdcc.ini %packet dl 0
n143=  writeini $mircdir $+ xdcc.ini main total %total
n144=  writeini $mircdir $+ xdcc.ini main %total %packet
n145=  echo 12 -a [BüGGëD] Packet  $+ $chr(35) $+ %total $+  ' $+ %name $+ ' has been added
n146=  unset %packet %path %name %size %total %comment
n147=}
n148=/xdel {
n149=  if ($1 == $null) { set %packet $$?="What packet number? (/xlist for list)" }
n150=  else { set %packet $1 }
n151=  set %total $readini $mircdir $+ xdcc.ini main total
n152=  if (%packet !isnum) || (%packet > %total) { echo 12 -a [BüGGëD] Incorrect Packet Number. | halt }
n153=  remini $mircdir $+ xdcc.ini [ $readini $mircdir $+ xdcc.ini main %packet ]
n154=  set %counter %packet
n155=  :begin
n156=  if (%counter < %total) {
n157=    %getpack = %counter + 1
n158=    set %packname $readini $mircdir $+ xdcc.ini main %getpack
n159=    writeini $mircdir $+ xdcc.ini main %counter %packname
n160=    inc %counter
n161=    goto begin
n162=  }
n163=  remini $mircdir $+ xdcc.ini main %counter
n164=  dec %total
n165=  writeini $mircdir $+ xdcc.ini main total %total
n166=  unset %packet %counter %packname %getpack
n167=}
n168=/xoffer {
n169=  set %total $readini $mircdir $+ xdcc.ini main total
n170=  if (%total == $null) { echo 12 -a [BüGGëD] No packets offered. | halt }
n171=  set %counter 1
n172=  %slots = %maxslots - $send(0)
n173=  msg # [BüGGëD] ** %total pack(s) * %slots of %maxslots slots open * Record: [ %cpsrecord ] $+ cps * Min: [ %minspeed ] $+ cps **
n174=  msg # [BüGGëD] Type '/ctcp $me XDCC SEND #n' To get pack n
n175=  :begin
n176=  if (%counter <= %total) {
n177=    set %packet $readini $mircdir $+ xdcc.ini main %counter
n178=    set %xcomm [ $readini $mircdir $+ xdcc.ini %packet comment ]
n179=    if ( %xcomm == $null ) {
n180=      msg #  $+ $chr(35) $+ %counter $+  [ $readini $mircdir $+ xdcc.ini %packet dl ] $+ x $chr(91) $+  $+ [ $readini $mircdir $+ xdcc.ini %packet size ] $+ B $+  $+ $chr(93) $readini $mircdir $+ xdcc.ini %packet name
n181=    }
n182=    else {
n183=      msg #  $+ $chr(35) $+ %counter $+  [ $readini $mircdir $+ xdcc.ini %packet dl ] $+ x $chr(91) $+  $+ [ $readini $mircdir $+ xdcc.ini %packet size ] $+ B $+  $+ $chr(93) $readini $mircdir $+ xdcc.ini %packet name
n184=      msg # ^: [ %xcomm ]
n185=    }
n186=    inc %counter
n187=    goto begin
n188=  }
n189=  unset %counter %total %packet %xcomm
n190=}
n191=/xsum {
n192=  %slots = %maxslots - $send(0)
n193=  set %total $readini $mircdir $+ xdcc.ini main total
n194=  msg # [BüGGëD] ** %total pack(s) * %slots of %maxslots slots open * Record: [ %cpsrecord ] $+ cps * Min: [ %minspeed ] $+ cps **
n195=  msg # [BüGGëD] Type '/ctcp $me XDCC LIST' for a summary of all packs
n196=  unset %total
n197=}
n198=/minspeed {
n199=  set %one 0
n200=  :start
n201=  inc %one
n202=  if ( $send(%one).cps == $null ) { goto end }
n203=  if ( % [ $+ [ $nick [ $+ [ xdcc ] ] ] ] == checked ) { goto start }
n204=  if ( $send(%one).status == waiting ) {
n205=    .notice $send(%one) [BüGGëD] You have DCCs Pending... Type '/ctcp $me XDCC GET'
n206=    %file = $send(%one).file 
n207=    %files = $findfile(%directory,%file,1) | close -s $send(%one) | halt
n208=  }
n209=  if ( $send(%one).cps < %minspeed ) {
n210=    .notice $send(%one) [BüGGëD] MinSpeed: [ $send(%one).cps ] $+ cps < [ %minspeed ] $+ cps - Closing Link
n211=    echo 12 -a [BüGGëD] DCC Send Check 4< FAILED 4> $send(%one) 4< [ $send(%one).cps ] $+ cps < [ %minspeed ] $+ cps 4> Closing Link
n212=    close -s $send(%one)
n213=  }
n214=  if ( $send(%one).cps > %minspeed ) {
n215=    .notice $send(%one) [BüGGëD] MinSpeed: [ $send(%one).cps ] $+ cps > [ %minspeed ] $+ cps - Please Drive Thru
n216=    echo 12 -a [BüGGëD] DCC Send Check 4< PASSED 4> $send(%one) [ $send(%one).cps ] $+ cps > [ %minspeed ] $+ cps
n217=    set % [ $+ [ $send(%one) [ $+ [ xdcc ] ] ] ] checked | .timer 1 200 unset % [ $+ [ $send(%one) [ $+ [ xdcc ] ] ] ]
n218=  }
n219=  goto start
n220=  :end
n221=}
n222=;====================================================================
n223=;NOTE: the Clone Detection is  based upon that in Hawkee 2.0 Pro by Hawkee with 
n224=;            no credit what-so-ever to me. http://www.hawkee.com/
n225=;====================================================================
n226=in {
n227=  set %loop 1
n228=  set %number 0
n229=  :loop
n230=  if %loop > $ial(*,0) goto end
n231=  if (($ial(*,%loop).host == $$1) && ($ial(*,%loop).nick ison $$2)) { inc %number
n232=  set % $+ $ial(*,%loop).host [ % [ $+ [ $ial(*,%loop).host ] ] ] $+ $ial(*,%loop).nick $+ , $+ $chr(160) }
n233=  inc %loop
n234=  goto loop
n235=  :end
n236=  set %nicks % [ $+ [ $$1 ] ]
n237=  set %letters [ [ [ $len(%nicks) - 2 ] ] ]
n238=  set % $+ $$1 $left(%letters,%nicks)
n239=  unset %nicks | unset %letters
n240=  return %number
n241=}
n242=inchan {
n243=  set %loop 1
n244=  set %number 0
n245=  :loop
n246=  if %loop > $ial(*,0) goto end
n247=  if (($ial(*,%loop).host == $$1) && ($ial(*,%loop).nick ison $$2)) inc %number
n248=  inc %loop
n249=  goto loop
n250=  :end
n251=  return %number
n252=}
n253=opin {
n254=  set %loop 1
n255=  :loop
n256=  if %loop > $opnick(0,$$1) goto end
n257=  if $opnick(%loop,$$1) == $me { return true | halt }
n258=  inc %loop
n259=  goto loop
n260=  :end
n261=  return false
n262=}
n263=clones {
n264=  echo 4 -a [BüGGëD] Clone Scanning $$1 $+ :
n265=  set %loops 1
n266=  set %count 1
n267=  :loop
n268=  if %loops > $nick(%loops,$$1) { goto finish | set %loops 1 }
n269=  if $ial($address($nick(%loops,$$1),2),0) > 1 {
n270=    if $inchan($remove($address($nick(%loops,$$1),2),*!*@),$$1) == $ial($address($nick(%loops,$$1),2),0) {
n271=      if %done [ $+ [ $address($nick(%loops,$$1),2) ] ] == $null { set % $+ clone $+  $remove($address($nick(%loops,$$1),2),*!*@) $nick(%loops,$$1) | set %done $+ $address($nick(%loops,$$1),2) 0  }
n272=      else set % $+ clone $+ $remove($address($nick(%loops,$$1),2),*!*@)  [ % [ $+ [ clone [ $+  [ $remove($address($nick(%loops,$$1),2),*!*@) ] ] ] ] ]  $+ , $+ $chr(160) $+ $nick(%loops,$$1) 
n273=      inc %done $+ $address($nick(%loops,$$1),2) 
n274=      if %done [ $+ [ $address($nick(%loops,$$1),2) ] ] == $ial($address($nick(%loops,$$1),2),0) {
n275=        echo 12 -a [BüGGëD] Clone Set: % [ $+ [ clone [ $+ [ $remove($address($nick(%loops,$$1),2),*!*@) ] ] ] ] 4< $remove($address($nick(%loops,$$1),2),*!*@) 4>
n276=      inc %count }
n277=    }
n278=    if ( %clonefilter == on ) { mode # +b $ial($address($nick,2),0) | fkick $ial($address($nick,2),0) Clones? }
n279=  }
n280=  inc %loops | goto loop
n281=  :finish
n282=  set %count [ [ %count ] - 1 ]
n283=  if %count != $null echo 12 [BüGGëD] 4< %count 4> Clone set(s) Listed!
n284=  unset %count %loop* %chan %number %done* %clone*
n285=}