;BlaBlaBla - 0/02/2012 - Version #1.3
;Made by Code-Y of Rizon.net
;This bot will only work when it's using its official nickname
;This official nickname is set below:
on *:start: {
  ;Right here V
  set %name $iif(%pname,%pname,CAFBot)
  ;Right there^
  server -m irc.rizon.net -j #eCanCAF
  nick %name
}
on $*:TEXT:/[.!@]setup/Si:*: {
  if ($me == %name) {
    if ($nick == sawc) {
      if (!$2) {
        msg $nick To set me up, type !setup [My name] [a list of people who can use .list and .setprio]
        msg $nick Example: !setup CAFBot Termz Sawc Snowblade
      }
      else {
        set %pname $2
        set %owner $3-
        msg $nick Setup Complete!
        nick %name
      }
    }
  }
}
on $*:TEXT:/[.!@](battle|orders|prio)/Si:#: {
  if ($me == %name) {
    if (!%nospam) {
      set -u3 %nospam Spam Protection, dur!!
      if (%prio) {
        msg # Priority #1: $replace($gettok(%prio,1,153),[,[03,],]) - Updated by: $gettok(%prio,2,153)
      }
      else msg # There are currently no priorities set! Ask Sawc to set some with the !setprio command in PM.. Lazy bitch.
    }
  }
}
on $*:TEXT:/[.!@]setprio/Si:*: {
  if ($me == %name) {
    if (!%owner) notice $nick You have not set any owners! Type !setup please.
    else {
      if ($nick isin %owner) {
        if ($2) {
          set %prio $2- $chr(153) $nick
          msg $nick Priorites have been set to the following: %prio1 %prio2 %prio3
        }
        else msg $nick The syntax is: !setprio Priority1 link (optional)priority2 link (optional)priority 3 link!
      }
      else msg $nick Fark off. Admins only!
    }
  }
}
on $*:TEXT:/[.!@]call/Si:#: {
  if ($me == %name) {
    if ($nick isin %owner) {
      var %x $nick($chan,0)
      while (%x) {
        var %g %g $nick($chan,%x)
        dec %x
      }
      msg # %g
      if ($2) {
        msg # 8,4 $+ $2-
      }
      else {
        notice $nick Highlight complete. No sentence was inputted so no message shall be displayed.
      }
    }
    else notice $nick Bitch please, I'm protected. Ask sawc to get on this list.
  }
}

on *:join:#EcanCAF: {
  if ($readini(blank.ini,entries,$nick)) {
    msg # [02 $+ $nick $+ ] $readini(blank.ini,entries,$nick)
  }
}
on $*:TEXT:/[.!@]Entrymsg/Si:#: {
  writeini blank.ini entries $nick $2-
  notice $nick Your entry message for # has been set to "04 $+ $2- $+ "
}