eViL-gEnIuS — File Browser

eViL-gEnIuSv2.0 / eViL-gEnIuSv2.0 / gEnIuS / aliases.ini

aliases.ini — 28.06 KB — Download this file

[aliases]
n0=;[][][][] =====  [ Function Keys ] ====== [][][][]
n1=/f1 {
n2=  echo 12 -a  Listing  Function Keys
n3=  echo 12 -a F1 List Function keys
n4=  echo 12 -a F3 War Mode
n5=  echo 12 -a F3 Peace Mode
n6=  echo 12 -a F4 List Channel Options
n7=  echo 12 -a --
n8=  echo 12 -a F5 Enable/Disable Text Flood Protection
n9=  echo 12 -a F6 Enable/Disable Action Flood Protection
n10=  echo 12 -a F7 Enable/Disable Nick Flood Protection
n11=  echo 12 -a F8 List Friends
n12=  echo 12 -a --
n13=  echo 12 -a F9 List Notify
n14=  echo 12 -a F10 List Arch-Enemies
n15=  echo 4 -a F11 PANIC !!
n16=  echo 12 -a F12 Auto Quit
n17=  echo 12 -a %evil.genius
n18=}
n19=/F2 {
n20=  .raw silence *!*@*
n21=  loadwar
n22=  echo 12 -a  War Mode  now active %evil.genius
n23=}
n24=/F3 {
n25=  .raw silence -*!*@*
n26=  loadpeace
n27=  echo 12 -a  Peace Mode  now active %evil.genius
n28=}
n29=/F4 {
n30=  echo 12 -a  Listing  Channel Options
n31=  echo 12 -a  Swear Kick  :  %status.swearkick
n32=  if (%status.swearkick == on) { echo 12 -a  Watching  %swearchan1 %swearchan2 }
n33=  echo 12 -a  Pervert Kick  :  %status.pervkick
n34=  echo 12 -a  Moron Kick  :  %status.moron
n35=  echo 12 -a  Ad Kicker  :  %status.adkick
n36=  if (%revolve.wait != $null) { echo 12 -a  Revolving Door Ban  enabled and banning for %revolve.wait }
n37=  elseif (%revolve.wait == $null) { echo 12 -a  Revolving Door Ban  disabled. }
n38=  echo 12 -a  Offensive Nick Kick  :  %status.stupidnick
n39=  echo 12 -a  Offensive Username Kick  : %status.username
n40=  echo 12 -a  Text Flood Protection  :  %status.floodprot
n41=  echo 12 -a  Action Flood Protection  :  %status.actionprot
n42=  echo 12 -a  Nick Flood Protection  :  %status.nickprot
n43=  echo 12 -a  Clone Detector  : %clonecheck
n44=  if (%clonecheck == on) {
n45=    if (%clone.kick == off) { echo 12 -a  Clone Detector  set to watch }
n46=    elseif (%clone.kick == on) { echo 12 -a  Clone Detector  set to kick }
n47=    elseif (%clone.kick == ban) { echo 12 -a  Clone Detector  set to kick and ban }
n48=  }
n49=  echo 12 -a  Server Op Protection  :  %status.servopprot
n50=  echo 12 -a  Mac Detector  : %status.macdtct
n51=  if (%status.macdtct == on) {
n52=    if (%mac.kick == off) { echo 12 -a  Mac Detector  set to watch }
n53=    elseif (%mac.kick == on) { echo 12 -a  Mac Detector  set to kick }
n54=    elseif (%mac.kick == ban) { echo 12 -a  Mac Detector  set to kick and ban }
n55=  }
n56=  echo 12 -a  Spell Checker  :  %status.spellcheck
n57=  echo 12 -a  End  of Channel Options
n58=  echo 12 -a %evil.genius
n59=}
n60=/F5 {
n61=  if (%status.floodprot == off) {
n62=    set %spaces $?="How Many Seconds between lines??" 
n63=    .enable #Floodprot
n64=    set %total 12 * %spaces 
n65=    msg $chan 12 Text Flood Protection  Enabled.  No more than 12 line every %total seconds. %evil.genius
n66=    set %status.floodprot on
n67=    halt
n68=  }
n69=  if (%status.floodprot == on) {
n70=    unset %spaces
n71=    .disable #Floodprot 
n72=    echo 12 -a  Text Flood Protection  disabled. %evil.genius 
n73=    set %status.floodprot off
n74=    halt
n75=  }
n76=  else { halt }
n77=}
n78=/F6 {
n79=  if (%status.actionprot == off) {
n80=    set %spaces2 $?="How Many Seconds Between Actions??"
n81=    .enable #Actionprot
n82=    set %total2 6 * %spaces2
n83=    msg $chan 12 Action Flood Protetion  Enabled. No more than 6 actions in %total2 seconds. %evil.genius
n84=    set %status.actionprot on
n85=    halt
n86=  }
n87=  if (%status.actionprot == on) {
n88=    unset %spaces2
n89=    .disable #Actionprot
n90=    echo 12 -a  Action Flood Protection  Disabled. %evil.genius
n91=    set %status.actionprot off
n92=    halt
n93=  }
n94=  else { halt }
n95=}
n96=/F7 {
n97=  if (%status.nickprot == off) {
n98=    set %spaces3 $?="How Many Seconds Between Nick Changes??"
n99=    .enable #Nickprot
n100=    set %total3 6 * %spaces3
n101=    msg $chan 12 Nick Flood Protetion  Enabled. No more than 6 nick changes in %total3 seconds. %evil.genius
n102=    set %status.nickprot on
n103=    halt    
n104=  }
n105=  if (%status.nickprot == on) {
n106=    unset %spaces3
n107=    .disable #Nickprot
n108=    echo 12 -a  Nick Flood Protection  Disabled. %evil.genius
n109=    set %status.nickprot off
n110=    halt
n111=  }
n112=  else { halt }
n113=}
n114=/F8 /listusers $mircdir $+ friends.txt
n115=/F9 /listusers $mircdir $+ notify.txt
n116=/F10 /listusers $mircdir $+ enemies.txt
n117=/F11 {
n118=  if (%status.panic == off) {
n119=    set %status.panic on
n120=    .enable #panicsys
n121=    .enable #panic.raw
n122=    .enable #panic.ctcp
n123=    ignore *!*@*
n124=    echo 4 -a  Panic System  Enabled
n125=    halt
n126=  }
n127=  if (%status.panic == on) {
n128=    set %status.panic off
n129=    .disable #panicsys
n130=    .disable #panic.raw
n131=    .disable #panic.ctcp
n132=    ignore -r *!*@*
n133=    echo 4 -a  Panic System  Disabled
n134=    halt
n135=  }
n136=  else { halt }
n137=}
n138=/quitmessage {
n139=  if (%quit.count > 0) {
n140=    ame 12 %quit.count
n141=    dec %quit.count 1
n142=  }
n143=  if (%quit.count == 0) {
n144=    ame 12 %quit.count
n145=    .timer717 off
n146=    .unset %quit.count
n147=    quit %evil.genius
n148=    exit
n149=  }
n150=  if (%quit.count == $null) { halt }
n151=  else { halt }
n152=}
n153=/F12 {
n154=  set %quit.count 10
n155=  ame 12Auto Shut-down initiated ...
n156=  sound trick.wav
n157=  .timer717 10 1 /quitmessage 
n158=}
n159=;[][][][] ===== [ Mode Shit ] ===== [][][][]
n160=/loadwar {
n161=  .load -pn popups2.ini
n162=  .load -pm popups2.ini
n163=  .load -ps popups2.ini
n164=  .load -pc popups2.ini
n165=  splay alert3.wav
n166=}
n167=/loadpeace {
n168=  .load -pn popups.ini
n169=  .load -pm popups.ini
n170=  .load -ps popups.ini
n171=  .load -pc popups.ini
n172=  splay sedation.wav
n173=}
n174=/CF1 {
n175=  echo 12 -a  Listing  Control-Function keys ...
n176=  echo 12 -a  Control-F1  List Control-Function keys
n177=  echo 12 -a  Control-F2  List Protection Options
n178=  echo 12 -a  Control-F3  Enable/Disable Kick Protection
n179=  echo 12 -a  Control-F4  Enable/Disable Ban Protecion
n180=  echo 12 -a  Control-F5  Enable/Disable Message Flood Protection
n181=  echo 12 -a  Control-F6  Enable/Disable Notice Flood Protection
n182=  echo 12 -a  Control-F7  Enable/Disable CTCP Flood Protection
n183=  echo 12 -a  Control-F8  Enable/Disable Invite Flood Protection
n184=  echo 12 -a  Control-F9  Enable/Disable Deop Protection
n185=  echo 12 -a  Control-F10  Turn On/Off Away System
n186=  echo 12 -a  Control-F11  Enable/Disable Wave Grabber
n187=  echo 12 -a  Control-F12  Yet to be Decided
n188=  echo 12 -a  End  of Control-Function Keys
n189=}
n190=/CF2 {
n191=  echo 12 -a  Listing  Protection Options ...
n192=  echo 12 -a  Ban Protection  :  %status.banprot
n193=  echo 12 -a  Kick Protection  : %status.kickprot
n194=  echo 12 -a  Deop Protecion  : %status.deopprot
n195=  if (%per.msg.flood != $null) { echo 12 -a  Msg Flood Protection  allowing 1 message every %per.msg.flood seonds. }
n196=  elseif (%per.msg.flood == $null) { echo 12 -a  Msg Flood Protection  is off }
n197=  if (%per.notice.fld != $null) { echo 12 -a  Notice Flood Protection  allowing 1 notice every %per.notice.fld seconds. }
n198=  elseif (%per.notice.fld == $null) { echo 12 -a  Notice Flood Protection  is off }
n199=  if (%per.invite.fld != $null) { echo 12 -a  Invite Flood Protection  allowing 1 Invite every %per.invite.fld seconds. }
n200=  elseif (%per.invite.fld == $null) { echo 12 -a  Invite Flood Protection  is off }
n201=  if (%per.ctcp.fld != $null) { echo 12 -a  CTCP Flood Protection  allowing 1 CTCP every %per.ctcp.fld seconds. }
n202=  elseif (%per.ctcp.fld == $null) { echo 12 -a  CTCP Flood Protection  is off }
n203=  echo 12 -a  End  of Protection Options
n204=  echo 12 -a %evil.genius
n205=}
n206=/CF3 {
n207=  if (%status.kickprot == off) {
n208=    .enable #kick.prot
n209=    echo 12 -a  Kick Protection  enabled. %evil.genius
n210=    set %status.kickprot on
n211=    halt
n212=  }
n213=  elseif (%status.kickprot == on) {
n214=    .disable #kick.prot
n215=    echo 12 -a  Kick Protection  disabled. %evil.genius
n216=    set %status.kickprot off
n217=    halt
n218=  }
n219=}
n220=/CF5 {
n221=  if (%per.msg.flood == $null) {
n222=    .enable #msg.fld.prot
n223=    set %per.msg.flood $?="How many seconds between /msg's?"
n224=    set %msg.total 7 * %per.msg.flood
n225=    echo 12 -a  Personal Flood Protection  enabled.  Ignore user if exceeds 7 /msg's in %msg.total seconds.  %evil.genius
n226=  }
n227=  else {
n228=    .disable #msg.fld.prot
n229=    unset %per.msg.flood
n230=    unset %msg.total
n231=    echo 12 -a  Personal Flood Protection  is no longer watching for message floods. %evil.genius
n232=  }
n233=}
n234=/CF6 {
n235=  if (%per.notice.fld == $null) {
n236=    .enable #notice.fld.prot
n237=    set %per.notice.fld $?="How many seconds between notices?"
n238=    set %notice.total 7 * %per.notice.flood
n239=    echo 12 -a  Personal Flood Protection  enabled.  Ignore user if exceeds 7 notices in %notice.total seconds.  %evil.genius
n240=  }
n241=  else {
n242=    .disable #notice.fld.prot
n243=    unset %per.notice.fld
n244=    unset %notice.total
n245=    echo 12 -a  Personal Flood Protection  is no longer watching for notice floods. %evil.genius
n246=  }
n247=}
n248=/CF7 {
n249=  if (%per.ctcp.fld == $null) {
n250=    .enable #ctcp.fld.prot
n251=    set %per.ctcp.fld $?="How many seconds between CTCPs?"
n252=    set %ctcp.total 7 * %per.ctcp.fld
n253=    echo 12 -a  Personal Flood Protection  enabled.  Ignore user if exceeds 5 CTCPs in %ctcp.total seconds.  %evil.genius
n254=  }
n255=  else {
n256=    .disable #ctcp.fld.prot
n257=    unset %per.ctcp.fld
n258=    unset %ctcp.total
n259=    echo 12 -a  Personal Flood Protection  is no longer watching for CTCP floods. %evil.genius
n260=  }
n261=}
n262=/CF8 {
n263=  if (%per.invite.fld == $null) {
n264=    .enable #invite.fld.prt
n265=    set %per.invite.fld $?="How many seconds between invites?"
n266=    set %ctcp.total 7 * %per.invite.flood
n267=    echo 12 -a  Personal Flood Protection  enabled.  Ignore user if exceeds 5 invites in %invite.total seconds.  %evil.genius
n268=  }
n269=  else {
n270=    .disable #invite.fld.prot
n271=    unset %per.invite.fld
n272=    unset %invite.total
n273=    echo 12 -a  Personal Flood Protection  is no longer watching for invite floods. %evil.genius
n274=  }
n275=}
n276=/CF9 {
n277=  if (%status.deopprot == off) {
n278=    .enable #deopprot
n279=    echo 12 -a  Deop Protection  enabled.  %evil.genius
n280=    set %status.deopprot on
n281=    halt
n282=  }
n283=  elseif (%status.deopprot == on) {
n284=    .disable #deopprot
n285=    echo 12 -a  Deop Protection  disabled. %evil.genius
n286=    set %status.deopprot off
n287=    halt
n288=  }
n289=}
n290=/CF10 {
n291=  if (%away.status == off) {
n292=    set %timeleft $ctime
n293=    set %awaynick $me
n294=    set %othernick $$?="Enter your away nickname"
n295=    set %reason $$?="Enter your reason"
n296=    nick %othernick
n297=    away %reason
n298=    enable #pager
n299=    ignore -p *!*@*
n300=    ame is away %reason $+ . To page him, type /ctcp %othernick page [message] $+ . %evil.genius
n301=    timer999 0 600 /awaymsg
n302=    .events off
n303=    set %away.status on
n304=    halt
n305=  }
n306=  elseif (%away.status == on) {
n307=    set %duration $ctime - %timeleft
n308=    set %timegone $duration(%duration)
n309=    ame %awaynick is back. He was %reason $+ , and has been gone for %timegone $+ .  %evil.genius
n310=    timer999 off
n311=    disable #pager
n312=    away
n313=    .events on
n314=    ignore -r *!*@*
n315=    nick %awaynick
n316=    unset %timegone
n317=    unset %timeleft
n318=    unset %awaynick
n319=    unset %reason
n320=    set %away.status off
n321=  }
n322=}
n323=/CF11 {
n324=  if (%status.autograb == on) { .disable #autograb | set %status.autograb off | echo 12 -a  Wave Grabber  Disabled %evil.genius }
n325=  elseif (%status.autograb == off) { .enable #autograb | set %status.autograb on | echo 12 -a  Wave Grabber  Enabled %evil.genius }
n326=  else { echo 4 -a  Error  Illegal Variable Assignment }
n327=}
n328=/SF1 {
n329=  echo 12 -a  Listing  Shift-Function Keys ...
n330=  echo 12 -a  Shift-F1  List Shift-Function Keys
n331=  echo 12 -a  Shift-F2  Reset Lag Monitor
n332=  echo 12 -a  Shift-F3  Ping Active window
n333=  echo 12 -a  Shift-F4 - Shift-F12  To be decided
n334=  echo 12 -a  End  of Shift-Function Keys ...
n335=}
n336=/SF2 {
n337=  unset %lag.*
n338=  set %lag.count 0
n339=  set %lag.adj.avg 0
n340=  set %lag.adj.total 0
n341=  set %lag.adj.time 0
n342=  set %lag.avg 0
n343=  titlebar    êVï£-«G»êÑïµ§    ( Current Lag: %lag.avg seconds. )
n344=}
n345=;[][][][] ==== [ Mass Shit ] ==== [][][][]
n346=/filterkick {
n347=  set %filter.chan $$1
n348=  set %filter.ban $$2
n349=  set %filter.string $$3
n350=  set %filter.total $nick(0,%filter.chan)
n351=  set %filter.count 1
n352=  sound $chan 5cannons.wav See ya later, %filter.string
n353=  if (%filter.ban == on) { mode %filter.chan +b %filter.string }
n354=  :start
n355=  set %filter.curr.nick $nick(%filter.count,%filter.chan)
n356=  set %filter.curr.address $address(%filter.curr.nick,5)
n357=  if (%filter.count > %filter.total) { echo 12 -a  Filter Kick  finished %evil.genius | halt }
n358=  elseif (%filter.count <= %filter.total) {
n359=    if ((%filter.string iswm %filter.curr.address) && (%filter.curr.nick != $me)) {
n360=      kick %filter.chan %filter.curr.nick 12 Filter Kick  You matched %filter.string %evil.genius
n361=      inc %filter.count 1
n362=      goto start
n363=    }
n364=    else {
n365=      inc %filter.count 1
n366=      goto start
n367=    }
n368=  }
n369=}
n370=/massmode {
n371=  set %mode.chan $$1
n372=  set %mode.mode $$2
n373=  set %mode.total $nick(0,%mode.chan)
n374=  set %mode.count 1
n375=  :start
n376=  set %mode.nick $nick(%mode.count,%mode.chan)
n377=  if (%mode.nick == $me) { inc %mode.count 1 | goto start }
n378=  if (%mode.count <= %mode.total) {
n379=    mode %mode.chan %mode.mode %mode.nick
n380=    inc %mode.count 1
n381=    goto start
n382=  }
n383=  else { halt }
n384=}
n385=/massinvite {
n386=  set %invite.chan $$1
n387=  set %invite.target.chan $$2
n388=  set %invite.total $nopnick(0,%invite.chan)
n389=  set %invite.count 1
n390=  :start
n391=  set %invite.nick $nopnick(%invite.count,%invite.chan)
n392=  if (%invite.nick == $me) { inc %invite.count 1 | goto start }
n393=  if (%invite.count <= %invite.total) {
n394=    invite %invite.nick %invite.target.chan
n395=    inc %invite.count 1
n396=    goto start
n397=  }
n398=  else { halt }
n399=}
n400=/massban {
n401=  set %ban.chan $$1
n402=  set %ban.mask $$2
n403=  set %ban.total $nick(0,%ban.chan)
n404=  set %ban.count 1
n405=  :start
n406=  set %ban.nick(%ban.count,%ban.chan)
n407=  if (%ban.nick == $me) { inc %ban.count 1 | goto start }
n408=  if (%ban.count <= %ban.total) {
n409=    ban %ban.chan %ban.nick %ban.mask
n410=    inc %ban.count 1
n411=  }
n412=  else { halt }
n413=}
n414=/masskick {
n415=  set %kick.chan $$1
n416=  set %kick.count 1
n417=  set %kick.victim 1
n418=  set %kick.total $nick(0,%kick.chan)
n419=  :start
n420=  set %kick.curr.nick $nick(%kick.count,%kick.chan)
n421=  if (%kick.count > %kick.total) {
n422=    mode %kick.chan +i
n423=    msg %kick.chan HA HA HA %evil.genius
n424=  }
n425=  elseif ((%kick.count <= %kick.total) && (%kick.curr.kick != $me)) {
n426=    kick %kick.chan %kick.curr.nick 12 Mass Kicker  I guess you fucked up !! You are victim # %kick.victim %evil.genius
n427=    inc %kick.victim 1
n428=    inc %kick.count 1
n429=    goto start
n430=  }
n431=}
n432=;[][][][] ===== [ Protection ] ===== [][][][]
n433=/banprot.500 {
n434=  set %ban.off.level $$1
n435=  set %ban.off.nick $$2
n436=  set %ban.vict.nick $$3
n437=  set %ban.vict.mask $$4
n438=  set %ban.chan $$5
n439=  if ((%ban.vict.nick == $me) || (%ban.vict.mask iswm $address($me,5))) {
n440=    msg chanserv unban %ban.chan me
n441=    join %ban.chan
n442=    if (%ban.off.level == 500) { notice %ban.off.nick What was that about ??  I thought we were on the same team !! }
n443=    elseif (%ban.off.level == 50) { ban -u20 %ban.chan %ban.off.nick 3 | kick %ban.chan %ban.off.nick 12You really shouldn't ban me. %evil.genius }
n444=    else { ban %ban.chan %ban.off.nick 3 | sound $chan 9mm.wav says, "Take that, fool !!" | kick %ban.chan %ban.off.nick 12What the hell do you think you're doing ?? %evil.genius }
n445=  }
n446=}
n447=/deopprot {
n448=  set %deop.offender $$1
n449=  set %deop.victim $$2
n450=  set %deop.chan $$3
n451=  set %deop.off.address $address(%deop.offender,3)
n452=  if ((%opnick == ChanServ) && (%deop.victim == $me)) { halt }
n453=  elseif ((%opnick == ChanServ) && (%deop.victim != $me)) { halt }
n454=  elseif ((%opnick != ChanServ) && (%deop.victim == $me)) {
n455=    if ($level(%deop.off.address) == 500) { msg chanserv op %deop.chan %deop.nick | notice %deop.offender Why did you deop me ??  %evil.genius }
n456=    elseif ($level(%deop.off.address) == 50) {
n457=      msg ChanServ op %deop.chan $me
n458=      .timer1 1 10 /kick %deop.chan %deop.offender 12 Deop Protection  Why would you deop one of your friends ??  %evil.genius
n459=    }
n460=    else {
n461=      .auser 900 %deop.offender
n462=      .guser 900 %deop.offender 3
n463=      addnick %deop.offender $mircdir $+ enemies.txt
n464=      kick %deop.chan %deop.offender 12 Deop Protection  What were you THINKING ??  %evil.genius
n465=      echo 12 -a  Adding  to the Arch-Enemy List for deopping you. %evil.genius
n466=    }
n467=  }
n468=}
n469=;[][][][] ===== [ Channel Shit ] ===== [][][][]
n470=/chanstats {
n471=  set %stats.total $nick(0,%stats.chan)
n472=  set %stats.ops $opnick(0,%stats.chan)
n473=  set %stats.nonops $nopnick(0,%stats.chan)
n474=  set %stats.op.percent %stats.ops * 100
n475=  set %stats.op.percent %stats.op.percent / %stats.total
n476=  if (%stats.echo == on) {
n477=    echo 12 -a  Channel Stats  for %stats.chan
n478=    echo 12 -a  Total Users  = %stats.total
n479=    echo 12 -a  Opped Users  = %stats.ops
n480=    echo 12 -a  Percent Opped  = %stats.op.percent $+ %
n481=    if (%stats.ircops == $null) { echo 12 -a  IRCops  = None }
n482=    else { echo 12 -a  IRCops  = %stats.ircops }
n483=    echo 12 -a  Nonops  = %stats.nonops
n484=    if (%stats.away == $null) { echo 12 -a  Away Users  = None }
n485=    else { echo 12 -a  Away Users  = %stats.away }
n486=    echo 12 -a  Average Lag  %lag.avg seconds
n487=    echo 12 -a  End of Channel Sats 
n488=    echo 1 -a %evil.genius
n489=    unset %stats.away
n490=    unset %stats.ircops
n491=    .disable #chanstats
n492=  }
n493=  if (%stats.echo == off) {
n494=    msg %stats.chan 12 Channel Stats  for %stats.chan
n495=    msg %stats.chan 12 Total Users  = %stats.total
n496=    msg %stats.chan 12 Opped Users  = %stats.ops
n497=    msg %stats.chan 12 Percent Opped  = %stats.op.percent $+ %
n498=    if (%stats.ircops == $null) { msg %stats.chan 12 IRCops  = None }
n499=    else { msg %stats.chan 12 IRCops  = %stats.ircops }
n500=    msg %stats.chan 12 Nonops  = %stats.nonops
n501=    if (%stats.away == $null) { msg %stats.chan 12 Away Users  = None }
n502=    else { msg %stats.chan 12 Away Users  = %stats.away }
n503=    msg %stats.chan 12 Average Lag  %lag.avg seconds
n504=    msg %stats.chan 12 End of Channel Sats 
n505=    msg %stats.chan %evil.genius
n506=    ;unset %stats.away
n507=    ;unset %stats.ircops
n508=    .disable #chanstats
n509=  }
n510=  else { halt }
n511=}
n512=/clonescan {
n513=  set %clone.nick $$1
n514=  set %clone.chan $$2
n515=  set %clone.count 0
n516=  set %clone.total $nopnick(0,%clone.chan)
n517=  set %clone.address $address(%clone.nick,3)
n518=  :next
n519=  inc %clone.count 1
n520=  set %clone.curr.nick $nopnick(%clone.count,%clone.chan)
n521=  set %clone.curr.address $address(%clone.curr.nick,3)
n522=  if (%clone.count > %clone.total) {
n523=    halt
n524=    unset %clone.*
n525=  }
n526=  elseif (%clone.count <= %clone.total) {
n527=    if ((%clone.address == %clone.curr.address) && (%clone.nick != %clone.curr.nick)) {
n528=      splay alert.wav
n529=      set %clone.found 1
n530=      echo 12 -a  Clone Detector  has found clones on %clone.chan
n531=      echo 12 -a  Listing  Clones sharing %clone.address
n532=      echo 12 -a  %clone.found  %clone.nick
n533=      inc %clone.found 1
n534=      echo 12 -a  %clone.found  %clone.curr.nick
n535=      if (%clone.kick == ban) {
n536=        ban -u600 %clone.chan %clone.nick 3
n537=        notice %clone.nick 12 Clone Detector  You have been banned from %clone.chan for running clones. %evil.genius
n538=        onotice %clone.chan 12 Clone Detector  %clone.nick was given a 10 minute ban for running clones on %clone.chan
n539=      }
n540=      if ((%clone.kick == on) || (%clone.kick == ban)) {
n541=        kick %clone.chan %clone.curr.nick 12 Clone Detector  No Clones allowed on %clone.chan !! %evil.genius
n542=        onotice %clone.chan 12 Clone Detector  has kicked %clone.curr.nick ( a clone of %clone.nick ) from %clone.chan
n543=      }
n544=      inc %clone.count 1
n545=      goto clone.found
n546=    }
n547=    else {
n548=      goto next
n549=    }
n550=  }
n551=  else { echo 4 -a  WARNING  Clone Checker Has Over Stepped It's Bounds !! }
n552=  :clone.found
n553=  set %clone.curr.nick $nopnick(%clone.count,%clone.chan)
n554=  set %clone.curr.address $address(%clone.curr.nick,3)
n555=  if (%clone.count > %clone.total) {   
n556=    if ((%clone.kick == on) || (%clone.kick == ban)) {
n557=      kick %clone.chan %clone.nick 12 Clone Detector  Auto-kick.  No Cloning Allowed on %clone.chan !! %evil.genius
n558=      onotice %clone.chan 12 Clone Detector  has kicked %clone.nick for having clones in %clone.chan
n559=      echo 12 -a  End  of Clones List 
n560=      echo 12 -a %evil.genius
n561=      unset %clone.*
n562=    }
n563=    else {
n564=      echo 12 -a  End  of Clones List 
n565=      echo 12 -a %evil.genius
n566=      unset %clone.*
n567=    }
n568=  }
n569=  elseif (%clone.count <= %clone.total) {
n570=    if ((%clone.address == %clone.curr.address) && (%clone.nick != %clone.curr.nick)) {
n571=      inc %clone.found 1
n572=      echo 12 -a  %clone.found  %clone.curr.nick
n573=      if ((%clone.kick == on) || (%clone.kick == ban)) {
n574=        kick %clone.chan %clone.curr.nick 12 Clone Detector  Auto-Kick. You are a clone of %clone.nick !! %evil.genius
n575=        onotice %clone.chan 12 Clone Detector  has kicked %clone.curr.nick ( a clone of %clone.nick ) from %clone.chan
n576=      }
n577=      inc %clone.count 1
n578=      goto clone.found
n579=    }
n580=    else {
n581=      inc %clone.count 1
n582=      goto clone.found
n583=    }
n584=  }
n585=}
n586=/crazytopics {
n587=  set %desynch.topics $mircdir $+ topics.txt
n588=  set %fuckup.string $read %desynch.topics
n589=  topic $$1 %fuckup.string
n590=}
n591=/crazybans {
n592=  set %desynch.bans $mircdir $+ bans.txt
n593=  set %crazybans.string $read %desynch.bans
n594=  mode $$1 +b %crazybans.string
n595=}
n596=/talkinshit {
n597=  set %talkinshit.file  $mircdir $+ talkshit.txt
n598=  set %talkshit.string $read %talkinshit.file
n599=  msg $$1  $+ $rand(1,15) $+ %talkshit.string
n600=}
n601=/desynch {
n602=  .timer1 0 1 /crazytopics $$1
n603=  .timer2 0 1 /crazybans $$1
n604=  .timer3 0 5 /talkinshit $$1
n605=}  
n606=/addnick {
n607=  set %add.nick $$1
n608=  set %add.file $$2
n609=  set %total.lines $lines(%add.file)
n610=  set %add.line %total.lines + 1
n611=  write -l $+ %add.line %add.file %add.nick
n612=  unset %add.nick
n613=  unset %add.file
n614=  unset %total.lines
n615=}
n616=/delnick {
n617=  set %del.line 1
n618=  set %del.nick $$1
n619=  set %del.file $$2
n620=  set %total.lines $lines(%del.file)
n621=  :start
n622=  set %del.string $read -l $+ %del.line %del.file
n623=  if (%del.line <= %total.lines ) {
n624=    if (%del.nick isin %del.string) {
n625=      write -dl $+ %del.line %del.file
n626=      echo 12 -s deleted %del.nick from %del.file
n627=      unset %del.file
n628=      unset %del.nick
n629=      unset %total.lines
n630=      halt
n631=    }
n632=    else {
n633=      inc %del.line 1
n634=      goto start
n635=    }
n636=  }
n637=  else {
n638=    echo 4  Error  is not on the list
n639=    halt
n640=  }
n641=}
n642=/listusers {
n643=  set %list.file $$1
n644=  set %list.line 1
n645=  set %total.lines $lines($$1)
n646=  :start
n647=  if (%list.line <= %total.lines) {
n648=    echo 10 -a %list.line $+ . $read -nl $+ %list.line %list.file
n649=    inc %list.line 1
n650=    goto start
n651=  }
n652=  else {
n653=    echo 10 -a  Listing  complete 
n654=    if (%list.del == on) {
n655=      write -c %list.file
n656=      set %list.del off
n657=    }
n658=    unset %list.file
n659=    unset %total.lines
n660=    halt
n661=  }
n662=}
n663=/setup {
n664=  /set %nickpass $?="What is your NickServ password??"
n665=  /set %botnick $?="What will the oringal nickname of your helper-bot be??"
n666=  set %your.city $?="What is Your City?"
n667=  set %your.province $?="What is your State/Province/County?"
n668=  set %your.country $?="What is your Country?"
n669=}
n670=/killall {
n671=  dde warbot command "" /exit
n672=  dde warbot2 command "" /exit
n673=  dde warbot3 command "" /exit
n674=  dde warbot4 command "" /exit
n675=  dde warbot5 command "" /exit
n676=  dde warbot6 command "" /exit
n677=  dde warbot7 command "" /exit
n678=  dde warbot8 command "" /exit
n679=  dde warbot9 command "" /exit
n680=  dde warbot10 command "" /exit
n681=  echo 12 -a  War Bots  killing all Warbots now ...
n682=}
n683=/silence {
n684=  dde $$1 command "" /raw silence *!*@*
n685=  dde $$1 command "" /ignore*!*@*
n686=}
n687=/warmode {
n688=  silence warbot
n689=  silence warbot2
n690=  silence warbot3
n691=  silence warbot4
n692=  silence warbot5
n693=  silence warbot6
n694=  silence warbot7
n695=  silence warbot8
n696=  silence warbot9
n697=  silence warbot10
n698=}
n699=;[[===========================[[ Away System ]]=======================]]
n700=/awaymsg {
n701=  set %duration $ctime - %timeleft
n702=  set %timegone $duration(%duration)
n703=  ame %awaynick is %reason $+ , and has been gone for %timegone $+ . %evil.genius
n704=}
n705=/awaysys {
n706=  set %away.status $$1
n707=  if (%away.status == on) {
n708=    set %timeleft $ctime
n709=    set %awaynick $$2
n710=    set %othernick $$3
n711=    set %reason *4
n712=    nick %othernick
n713=    away %reason
n714=    enable #pager
n715=    ignore -p *!*@*
n716=    ame is away %reason $+ . To page him, type /ctcp %othernick page [message] $+ . %evil.genius
n717=    timer999 0 600 /awaymsg
n718=    .events off
n719=  }
n720=  if (%away.status == off) {
n721=    set %duration $ctime - %timeleft
n722=    set %timegone $duration(%duration)
n723=    ame %awaynick is back. He was %reason $+ , and has been gone for %timegone $+ .  %evil.genius
n724=    timer999 off
n725=    disable #pager
n726=    away
n727=    .events on
n728=    ignore -r *!*@*
n729=    nick %awaynick
n730=    unset %timegone
n731=    unset %timeleft
n732=    unset %awaynick
n733=    unset %reason
n734=  }
n735=}