connection.ini

[script]
n0=on *:LOAD: {
n1=  echo -at Loaded Connection script
n2=  echo -at No new variables added, all are global
n3=}
n4=on *:UNLOAD: {
n5=  echo -at Unloaded Connection script
n6=  echo -at No variables unset, all are global
n7=}
n8=
n9=on *:EXIT: {
n10=  set %owner [MM]IKKE
n11=  set %bot1 IKKE1
n12=  set %bot2 IKKE2
n13=  set %leet 0
n14=  set %colored 0
n15=  set %bot_say %bot1_s
n16=  set %logbot %bot1_s
n17=  .quit BotScript %version by [MM]IKKE
n18=}
n19=
n20=on *:DISCONNECT: {
n21=  if ($me == %bot1 || $me == %bot2) {
n22=    .timer 1 3 scon %owner_s check_bot_disconnect $me
n23=  }
n24=}
n25=alias -l check_bot_disconnect {
n26=  ;Syntax: <botnick>
n27=  ;Usage: Checks if the bot disconnected or timed out. If it timed out, it ghosts the idling bot
n28=  if ($1 ison #[MM]IKKE) {
n29=    if ($1 == %bot1) { ghostbot1 }
n30=    elseif ($1 == %bot2) { ghostbot2 }
n31=  }
n32=}
n33=on *:CONNECT: {
n34=  if ($me == [MM]IKKE) {
n35=    set %owner [MM]IKKE
n36=    if (irc.tl isin $server) {
n37=      ikke
n38=      ;.timer 1 10 ajoin
n39=      ;if ($?!="Enable automated AFK?") { .timer 0 300 getidle }
n40=
n41=    }
n42=  }
n43=  elseif ($me == IKKE) {
n44=    if (irc.tl isin $server && $cid == $scon(%owner_s)) {
n45=      ghost
n46=
n47=      ;.timer 1 1 ns release [MM]IKKE t7(`35[CEwtCF30]CZ0_-Ga
n48=
n49=      .timer 1 3 nick [MM]IKKE
n50=      .timer 1 3 ikke
n51=
n52=      ;.timer -o 1 10 .server -e %irc.server 6697
n53=      ;.timer 1 5 .quit Rejoining...
n54=    }
n55=    else {
n56=      .quit
n57=    }
n58=  }
n59=  elseif ($mybots($me)) {
n60=    if (irc.tl isin $server) {
n61=      bot
n62=      .timer 1 10 botsajoin
n63=    }
n64=    mode $me +B
n65=    if ($me == %bot1) {
n66=      if ($asctime($gmt,mm) != $readini(channels\default.ini,control,warnm)) {
n67=        .timer 1 30 dec_warns_month
n68=      }
n69=      .timer 1 10 .timer 0 300 checkchannels
n70=      .timer 1 70 .timer 0 600 count_average
n71=      .timer 1 130 .timer 0 1800 check_owner_online
n72=      .timer 1 190 .timer 0 3600 check_users_online
n73=    }
n74=    if (%quotesamount > 1000) { .timer 1 $rand(120,240) randomquote }
n75=  }
n76=}
n77=alias -l getidle {
n78=  ;Syntax: none
n79=  ;Usage: Internally used to automatically AFK after a certain amount of idle time. Triggers each 5 minutes
n80=  if ($idle >= 600 && %afk == 0) {
n81=    window -m @Management
n82=    beep
n83=    aline @Management Automatically set AFK mode at $time
n84=    nick [MM]IKKE|AFK
n85=    set %owner [MM]IKKE|AFK
n86=    set %afk 1
n87=    set %ig 0
n88=    if (%ig_server) { unset %ig_server }
n89=    if (%time == 0) {
n90=      msg #[MM]IKKE Automatically marked "AFK", time set to: $time
n91=      set %time $time
n92=    }
n93=  }
n94=}
n95=alias -l checkchannels {
n96=  ;Syntax: none
n97=  ;Usage: internally used to check if the owner is on a channel - if not, leaves
n98=
n99=  var %i = 1
n100=  while (%i <= $chan(0)) {
n101=    if ($me ison $chan(%i) && %owner !ison $chan(%i)) {
n102=      scon %bot1_s leave $chan(%i) Owner is not on this channel!
n103=      scon %bot2_s  leave $chan(%i) Owner is not on this channel!
n104=      scon %owner_s window @Management
n105=      beep
n106=      scon %owner_s aline @Management  Left $chan(%i) ( $+ $me $+ ) at $time (owner is not in the channel)
n107=    }
n108=    inc %i
n109=  }
n110=}
n111=alias -l randomquote {
n112=  ;Syntax: none
n113=  ;Usage: Internally used by the random quote engine to actually send the message. Sends a randomly chosen quote to a randomly chosen channel (with exceptions) with a random delay between 4 and 8 minutes
n114=
n115=  if ($chan(0) > 0) {
n116=    :channel
n117=    var %j = $rand(1, $chan(0))
n118=    if (!$chan_quotes($chan(%j))) { goto channel }
n119=
n120=    var %i = $rand(1,%quotefile)
n121=    qcheckexceptions $read(quotes\quotes $+ %i $+ .txt, n)
n122=
n123=    .timer 1 2 msg $chan(%j)  $+ $read(quotes\quotes $+ %i $+ .txt, n, $readn)
n124=
n125=  }
n126=
n127=  var %k = $rand(240,480)
n128=  .timer 1 %k randomquote
n129=}
n130=alias -l qcheckexceptions {
n131=  ;Syntax: <text>
n132=  ;Usage: Internally used to check if a certain sentence might nickalert a potentially angry person
n133=  if (!$1) {
n134=    randomquote
n135=    halt
n136=  }
n137=  elseif ($left($1, 1) == !) {
n138=    randomquote
n139=    halt
n140=  }
n141=  elseif ($chr(35) isin $1-) {
n142=    randomquote
n143=    halt
n144=  }
n145=  elseif (http isin $1- && youtube !isin $1-) {
n146=    randomquote
n147=    halt
n148=  }
n149=  elseif (www. isin $1-) {
n150=    randomquote
n151=    halt
n152=  }
n153=  elseif (.com isin $1-) {
n154=    randomquote
n155=    halt
n156=  }
n157=  elseif (Hiddos isin $1-) {
n158=    randomquote
n159=    halt
n160=  }
n161=  elseif (Redirect_Left isin $1-) {
n162=    randomquote
n163=    halt
n164=  }
n165=  elseif (RDL isin $1-) {
n166=    randomquote
n167=    halt
n168=  }
n169=  elseif ([jS]Thomas isin $1-) {
n170=    randomquote
n171=    halt
n172=  }
n173=  elseif (Somoon isin $1-) {
n174=    randomquote
n175=    halt
n176=  }
n177=  elseif (King_Hual isin $1-) {
n178=    randomquote
n179=    halt
n180=  }
n181=  elseif (Meshary isin $1-) {
n182=    randomquote
n183=    halt
n184=  }
n185=  elseif (Kara isin $1-) {
n186=    randomquote
n187=    halt
n188=  }
n189=  elseif (RZK isin $1-) {
n190=    randomquote
n191=    halt
n192=  }
n193=  elseif (Beremix isin $1-) {
n194=    randomquote
n195=    halt
n196=  }
n197=  elseif (Popz isin $1-) {
n198=    randomquote
n199=    halt
n200=  }
n201=  elseif (DamianC isin $1-) {
n202=    randomquote
n203=    halt
n204=  }
n205=  elseif (Mow isin $1-) {
n206=    randomquote
n207=    halt
n208=  }
n209=  elseif (krisk isin $1-) {
n210=    randomquote
n211=    halt
n212=  }
n213=  elseif (BlueG isin $1-) {
n214=    randomquote
n215=    halt
n216=  }
n217=  elseif (Doerfler isin $1-) {
n218=    randomquote
n219=    halt
n220=  }
n221=  elseif (Dugi isin $1-) {
n222=    randomquote
n223=    halt
n224=  }
n225=  elseif (cessil isin $1-) {
n226=    randomquote
n227=    halt
n228=  }
n229=  elseif (BlackHawk isin $1-) {
n230=    randomquote
n231=    halt
n232=  }
n233=  elseif (Muti isin $1-) {
n234=    randomquote
n235=    halt
n236=  }
n237=  elseif (Potassium isin $1-) {
n238=    randomquote
n239=    halt
n240=  }
n241=  elseif (Djole isin $1-) {
n242=    randomquote
n243=    halt
n244=  }
n245=  elseif (Foxeh isin $1-) {
n246=    randomquote
n247=    halt
n248=  }
n249=}
n250=
n251=
n252=on 543:JOIN:#[MM]IKKE,#[MM]IKKE.echo: {
n253=  if ($me == %owner) {
n254=    .timer 1 3 botban.join $chan $nick
n255=  }
n256=}
n257=alias -l botban.join {
n258=  ;Syntax: <chan> <nick>
n259=  ;Usage: Used to kick/ban someone who's evading his botban
n260=  if ($2 ison $1) {
n261=    mode $1 -ohv $2 $2 $2
n262=    mode $1 +bb $address($2,0) $2
n263=    mode $1 -ee $nick * $+ $2 $+ *
n264=    kick $1 $2 You are on my banlist.
n265=  }
n266=}
n267=
n268=on *:JOIN:#: {
n269=  {
n270=    if ($nick == [MM]IKKE && %owner != [MM]IKKE && $me == %owner) { ghost }
n271=    elseif ($nick == IKKE1 && %bot1 != IKKE1 && $me == %owner) { ghostbot1 }
n272=    elseif ($nick == IKKE2 && %bot2 != IKKE2 && $me == %owner) { ghostbot2 }
n273=
n274=    /*
n275=    elseif ($nick == IKKE3 && %bot3 != IKKE3 && $me == %owner) { ghostbot3 }
n276=    elseif ($nick == IKKE4 && %bot4 != IKKE4 && $me == %owner) { ghostbot4 }
n277=    */
n278=
n279=
n280=  }
n281=
n282=  {
n283=    if ($me == %owner) {
n284=      if ($chan == #[MM]IKKE) {
n285=        if ($nick !isin $read(lists\joinedmychannel.txt,w, $nick)) {
n286=          .timer 1 5 write lists\joinedmychannel.txt $nick
n287=        }
n288=      }
n289=    }
n290=    elseif ($me == %bot1 && !$mybots($nick)) {
n291=      if ($nick == %owner) {
n292=        if (%bot2 ison $chan) {
n293=          msg $chan %owner is our owner. We like him a lot.
n294=        }
n295=        else {
n296=          msg $chan %owner is my owner. I like him a lot.
n297=        }
n298=
n299=      }
n300=      elseif ($nick !isin $read(lists\userbots.txt,w, $nick) && $nick !isin $read(lists\bots.txt,w, $nick) && $nick !isin $read(lists\joinedmychannel.txt,w, $nick) && $chan == #[MM]IKKE) {
n301=        .timer 1 2 msg $chan 0,1Welcome to %owner $+ 's crib. You can use the bots :-) Add this to your auto-join list using 11,1/ns ajoin add #[MM]IKKE
n302=      }
n303=    }
n304=    elseif ($me == %bot2 && !$mybots($nick)) {
n305=      if ($chan == #[MM]IKKE) {
n306=        if ($nick != %owner && $nick !isin $read(lists\userbots.txt,w, $nick) && $nick !isin $read(lists\bots.txt,w, $nick)) {
n307=          describe $chan slaps $nick around a bit with a large trout 9[ $+ %slaps slaps $+ ]
n308=          inc %slaps
n309=        }
n310=      }
n311=    }
n312=
n313=
n314=    /*
n315=    elseif ($me == %bot3 && !$mybots($nick)) {
n316=      if ($nick != %owner && $chan == #[MM]IKKE) {
n317=        if ($chan == #[MM]IKKE && $nick !isin $read(lists\userbots.txt,w, $nick) && $nick !isin $read(lists\joinedmychannel.txt,w, $nick)) {
n318=          .timer 1 3 msg $chan 0,1Welcome to %owner $+ 's crib. You can use the bots :-) Add this to your auto-join list using 11,1/ns ajoin add #[MM]IKKE
n319=        }
n320=        elseif ($nick isin $read(lists\userbots.txt,w, $nick)) {
n321=          .timer 1 1 msg $chan Hell yeah, a bot!
n322=        }
n323=      }
n324=    }
n325=    elseif ($me == %bot4 && !$mybots($nick)) {
n326=      if ($nick != %owner) {
n327=        if ($chan == #[MM]IKKE && $nick !isin $read(lists\userbots.txt,w, $nick) && $nick !isin $read(lists\joinedmychannel.txt,w, $nick)) {
n328=          .timer 1 2 msg $chan 2Ohai, I used to be the RPG bot but now I'm quite useless :'(
n329=        }
n330=      }
n331=    }
n332=    */
n333=
n334=
n335=  }
n336=}
n337=
n338=
n339=
n340=on *:PART:#[MM]IKKE, #[MM]IKKE.echo: {
n341=  if ($nick == %owner && $me != %owner) {
n342=    scon %owner_s join $chan
n343=  }
n344=}
n345=on *:PART:#: {
n346=  if ($nick == %owner && $me != %owner) {
n347=    .timer 1 3 ownerleave $chan
n348=  }
n349=}
n350=alias -l ownerleave {
n351=  ;Syntax: <chan>
n352=  ;Usage: Internally used to leave a channel if the owner isn't on it anymore
n353=  if (%owner !ison $1 && $me ison $1) {
n354=    scon %owner_s window @Management
n355=    beep
n356=    scon %owner_s aline @Management  Left $1 (owner left) at $time ( $+ $me $+ )
n357=    .leave $1 1We follow our owner.
n358=  }
n359=}
n360=
n361=
n362=
n363=on *:QUIT: {
n364=
n365=  if ($nick == [MM]IKKE && $me == IKKE && $1 == Ping) {
n366=    nick [MM]IKKE
n367=    .timer 1 1 ikke
n368=  }
n369=
n370=  if ($nick == %owner && $me != %owner) {
n371=    ;.quit 1We follow our owner.
n372=  }
n373=  elseif ($nick == %bot1) {
n374=    set %bot1 IKKE1
n375=  }
n376=  elseif ($nick == %bot2) {
n377=    set %bot2 IKKE2
n378=  }
n379=}