botcontrol.ini

[script]
n0=on 500,543:TEXT:*:#: { halt }
n1=on *:LOAD: {
n2=  echo -at Loaded Bot control
n3=  echo -at No new variables added, all are global
n4=}
n5=on *:UNLOAD: {
n6=  echo -at Unloaded Bot control
n7=  echo -at No variables unset, all are global
n8=}
n9=on *:TEXT:!Global*:#:{
n10=  if ($nick == %owner && $1 == !global && $me == %bot1) {
n11=    if ($2) {
n12=      scon $bot_say($chan) amsg 4Global Announcement:1 $2-
n13=    }
n14=    else {
n15=      scon $bot_say($chan) msg $chan 4ERROR:1 Usage: !global <message>
n16=    }
n17=  }
n18=  elseif ($1 == !global && $me == %bot1) {
n19=    scon $bot_say($chan) msg $chan 4ERROR:1 You are not authorized to use this command
n20=  }
n21=}
n22=on *:TEXT:!warn*:#: {
n23=  if ($chan != #mini-missions && $chan != #UGP.echo) {
n24=    if ($1 == !warn && $nick == %owner && $me == %bot1) {
n25=      if (!$2) {
n26=        scon $bot_say($chan) msg $chan 4ERROR:1 Usage: !warn <reason>
n27=      }
n28=      elseif ($calc($gmt - $chan_warnt($chan)) < 86400) {
n29=        writeini channels\ $+ $chan $+ .ini control warnt $gmt
n30=        inc_warns $chan
n31=        scon $bot_say($chan) msg #[MM]IKKE 4WARNING:1 Channel $chan got a warning! Reason: $2- ( $+ $chan_warns($chan) $+ /5)
n32=        scon $bot_say($chan) msg $chan 4WARNING:1 Channel $chan got a warning! Reason: $2- ( $+ $chan_warns($chan) $+ /5)
n33=        if ($chan_warns($chan) == 5) {
n34=          warn_chan_leave $1
n35=        }
n36=      }
n37=      else {
n38=        scon $bot_say($chan) msg $chan 4ERROR:1 Channel already got a warning within last 24 hours!
n39=      }
n40=    }
n41=    elseif ($1 == !warn && $me == %bot1) {
n42=      scon $bot_say($chan) msg $chan 4ERROR:1 You are not authorized to use this command
n43=    }
n44=  }
n45=}
n46=on *:TEXT:!changenick*:#: {
n47=  if ($nick == %owner && $1 == !changenick) {
n48=    if ($2 == $null && $me == %bot1) { scon $bot_say($chan) msg $chan 4ERROR:1 Usage: !changenick <newnick> <oldnick> }
n49=    elseif ($3 == $null && $me == %bot1) { scon $bot_say($chan) msg $chan 4ERROR:1 Usage: !changenick <newnick> <oldnick> }
n50=    elseif (!$mybots($3) && $me == %bot1) {
n51=      .timer 1 5 if (!$mybots($3)) {  scon $bot_say($chan) msg $chan 4ERROR:1 $3 is not a bot }
n52=    }
n53=    elseif ($me == $3) {
n54=      if ($2 == IKKE1) {
n55=        ghostbot1
n56=        nick $2
n57=      }
n58=      elseif ($2 == IKKE2) {
n59=        ghostbot2
n60=        nick $2
n61=      }
n62=
n63=
n64=      /*
n65=      elseif ($2 == IKKE3) {
n66=        ghostbot3
n67=        nick $2
n68=      }
n69=      elseif ($2 == IKKE4) {
n70=        ghostbot4
n71=        nick $2
n72=      }
n73=      */
n74=
n75=
n76=      else {
n77=        if ($me == %bot1) {
n78=          nick $2
n79=        }
n80=        elseif ($me == %bot2) {
n81=          nick $2
n82=        }
n83=
n84=
n85=        /*
n86=        elseif ($me == %bot3) {
n87=          nick $2
n88=        }
n89=        elseif ($me == %bot4) {
n90=          nick $2
n91=        }
n92=        */
n93=
n94=
n95=      }
n96=    }
n97=  }
n98=  elseif ($me == %bot1 && $1 == !changenick) { scon $bot_say($chan) msg $chan 4ERROR:1 You are not authorized to use this command }
n99=}
n100=on *:TEXT:!login:#: {
n101=  if ($nick == %owner) {
n102=    botsajoin
n103=    if ($me == %bot1) { scon $bot_say($chan) msg $chan Successfully logged in! }
n104=  }
n105=  elseif ($me == %bot1) { scon $bot_say($chan) msg $chan 4ERROR:1 You are not authorized to use this command }
n106=}
n107=on *:TEXT:!ajoin:#: {
n108=  if ($nick == %owner) {
n109=    botsaddajoin $chan
n110=  }
n111=  elseif ($nick != %owner && $me == %bot1) { scon $bot_say($chan) msg $chan 4ERROR:1 You are not authorized to use this command }
n112=}
n113=on *:TEXT:!deljoin:#: {
n114=  if ($nick == %owner) {
n115=    botsdelajoin $chan
n116=  }
n117=  elseif ($nick != %owner && $me == %bot1) { scon $bot_say($chan) msg $chan 4ERROR:1 You are not authorized to use this command }
n118=}
n119=on *:TEXT:!unloadbots*:#: {
n120=  if ($nick == %owner && $1 == !unloadbots) {
n121=    if ($2) {
n122=      .quit $2-
n123=    }
n124=    else {
n125=      .quit Exit requested (BotScript %version by [MM]IKKE)
n126=    }
n127=  }
n128=  elseif ($me == %bot1 && $1 == !unloadbots) {
n129=    scon $bot_say($chan) msg $chan 4ERROR:1 You are not authorized to use this command
n130=  }
n131=}
n132=on *:TEXT:!leave*:#: {
n133=  if ($nick == %owner && $1 == !leave) {
n134=    if ($2) { .leave $chan $2- }
n135=    else { .leave $chan Leaving requested }
n136=  }
n137=  elseif ($me == %bot1 && $1 == !leave) {
n138=    scon $bot_say($chan) msg $chan 4ERROR:1 You are not authorized to use this command
n139=  }
n140=}
n141=on *:TEXT:!rejoin*:#: {
n142=  if ($nick == %owner && $1 == !rejoin) {
n143=    if ($me == %bot1) { .timer -o 1 $rand(3,15) .server -e %irc.server 6697 -i IKKE1 }
n144=    elseif ($me == %bot2) { .timer -o 1 $rand(3,15) .server -e %irc.server 6697 -i IKKE2 }
n145=
n146=    .timer -o 1 $rand(15,20) msg $chan Rejoined succesfully!
n147=
n148=    if ($2) { .quit $2- }
n149=    else { .quit Rejoining... }
n150=  }
n151=  elseif ($me == %bot1 && $1 == !rejoin) { scon $bot_say($chan) msg $chan 4ERROR:1 You are not authorized to use this command }
n152=}
n153=on *:TEXT:!hop*:#: {
n154=  if ($nick == %owner && $1 == !hop) {
n155=    if ($me == $2) {
n156=      if ($3) { .hop -n $chan $3- }
n157=      else { .hop -n $chan Hop requested }
n158=    }
n159=    elseif ($2 == $null && $me == %bot1) { scon $bot_say($chan) msg $chan 4ERROR:1 Usage: !hop <botnick> }
n160=    elseif ($me == %bot1 && !$mybots($2)) { scon $bot_say($chan) msg $chan 4ERROR:1 $2 is not a bot }
n161=  }
n162=  elseif ($me == %bot1 && $1 == !hop) { scon $bot_say($chan) msg $chan 4ERROR:1 You are not authorized to use this command }
n163=}
n164=on *:TEXT:!allbotshop*:#: {
n165=  if ($nick == %owner && $1 == !allbotshop) {
n166=    if ($2) { .hop -n $chan $2- }
n167=    else { .hop  -n $chan Hop requested }
n168=  }
n169=  elseif ($me == %bot1 && $1 == !allbotshop) { scon $bot_say($chan) msg $chan 4ERROR:1 You are not authorized to use this command }
n170=}
n171=on *:TEXT:!join*:#: {
n172=  if ($nick == %owner && $1 == !join) {
n173=    if (($2 == $null || $left($2,1) != $chr(35)) && $me == %bot1) { scon $bot_say($chan) msg $chan 4ERROR:1 Usage: !join <channel> }
n174=    elseif ($2) {
n175=      if ($me ison $2) { msg $chan 4ERROR:1 I'm already at $chan($2) }
n176=      elseif ($me ison $chr(35) $+ $2) { msg $chan 4ERROR:1 I'm already at $chan( $chr(35) $+ $2 ) }
n177=      elseif ($left($2,1) == $chr(35)) { join -n $2 }
n178=      else { join -n $chr(35) $+ $2 }
n179=    }
n180=  }
n181=  elseif ($me == %bot1 && $1 == !join) { scon $bot_say($chan) msg $chan 4ERROR:1 You are not authorized to use this command }
n182=}