;;;;;;;;;;;;;;
;; Commands ;;
;;;;;;;;;;;;;;

on *:JOIN:#: {
  if ($greeting1) {
    notice $nick $v1
  }
  if ($greeting2) {
    notice $nick $v1
  }
  if ($greeting3) {
    notice $nick $v1
  }
}

on *:TEXT:*:#: {
  if ($mid($1-,1,$len($trig)) == $trig) {
    var %access = $readini(bot/users.ini,$address($2,2),access)
    var %info = $readini(bot/users.ini,$address($2,2),info)
    tokenize 32 $mid($1-,$calc($len($trig) + 1) $+ -)
    ;; Start User Commands ;;
    ;; Start Adduser/Deluser/Cuser Commands ;;
    if ($1 == adduser) {
      if ($access >= 5) {
        if (!$2-3) {
          notice $nick Invalid syntax.  Please use: $+($trig,adduser) [nick] [access] <info>.
        }
        elseif ($ini(bot/users.ini,$address($2,2))) {
          notice $nick $2 is already on the userlist.
        }
        else {
          if ($4) {
            writeini bot/users.ini $address($2,2) info $4-
            writeini bot/users.ini $address($2,2) access $3
            notice $nick $2 added to the userlist.
          }
          else {
            writeini bot/users.ini $address($2,2) access $3
            notice $nick $2 added to the userlist.
          }
        }
      }
      else {
        notice $nick $noaccess
      }
    }
    if ($1 == deluser) {
      if ($access >= 5) {
        if (!$2) {
          notice $nick Invalid syntax.  Please use: $+($trig,deluser) [nick].
        }
        elseif (!$ini(bot/users.ini,$address($2,2))) {
          notice $nick $2 isn't on the userlist.
        }
        else {
          remini bot/users.ini $address($2,2)
          notice $nick $2 removed from the userlist.
        }
      }
      else {
        notice $nick $noaccess
      }
    }
    if ($1 == cuser) {
      if ($access >= 5) {
        if (!$2-3) {
          notice $nick Invalid syntax.  Please use: $+($trig,clvl) [nick] [access] <info>.
        }
        elseif (!$ini(bot/users.ini,$address($2,2))) {
          notice $nick $2 isn't on the user list.
        }
        else {
          if ($4) {
            writeini bot/users.ini $address($2,2) info $4-
            writeini bot/users.ini $address($2,2) access $3
            notice $nick $2 $+ 's access changed.
          }
          else {
            remini bot/users.ini $address($2,2) info
            writeini bot/users.ini $address($2,2) access $3
            notice $nick $2 $+ 's access changed.
          }
        }
      }
      else {
        notice $nick $noaccess
      }
    }
    ;; End Adduser/Deluser/Cuser Commands ;;
    ;; Start Bind/Unbind Commands ;;
    if ($1 == bind) {
      if ($access >= 4) {
        if (!$2-3) {
          notice $nick Invalid syntax.  Please use: $+($trig,bind) [command] [info].
        }
        elseif ($readini(bot/binds.ini,binds,$2)) {
          notice $nick Command $+(',$2,') is already binded.
        }
        else {
          writeini bot/binds.ini binds $2 $encode($3-,m)
          notice $nick Command $+(',$2,') successfully binded as: $3-
        }
      }
      else {
        notice $nick $noaccess
      }
    }
    if ($1 == unbind) {
      if ($access >= 4) {
        if (!$2) {
          notice $nick Invalid syntax.  Please use: $+($trig,unbind) [command].
        }
        elseif (!$readini(bot/binds.ini,binds,$2)) {
          notice $nick Command $+(',$2,') doesn't exist.
        }
        else {
          remini bot/binds.ini binds $2
          notice $nick Command $+(',$2,') successfully unbinded.
        }
      }
      else {
        notice $nick $noaccess
      }
    }
    ;; End Bind/Unbind Commands ;;
    ;; Start Set Commands ;;
    if ($1 == set) {
      if ($access >= 4) {
        if (!$2-3) {
          notice $nick Invalid syntax.  Please use: $+($trig,set) [skin/trigger/greeting1/greeting2/greeting3/nick/bindmsg/(Binded Command)] [information]
        }
        elseif ($2 == skin) {
          writeini bot/settings.ini settings skin $encode($3-,m)
          notice $nick Skin set to: $3-
        }
        elseif ($2 == trigger) {
          writeini bot/settings.ini settings trigger $3
          notice $nick Skin set to: $3
        }
        elseif ($2 == greeting1) {
          writeini bot/settings.ini greetings greeting1 $encode($3-,m)
          notice $nick Greeting1 set to: $3-
        }
        elseif ($2 == greeting2) {
          writeini bot/settings.ini greetings greeting2 $encode($3-,m)
          notice $nick Greeting2 set to: $3-
        }
        elseif ($2 == greeting3) {
          writeini bot/settings.ini greetings greeting3 $encode($3-,m)
          notice $nick Greeting3 set to: $3-
        }
        elseif ($2 == nick) {
          nick $3
          notice $nick Successfully changed nick to: $3
        }
        elseif ($2 == bindmsg) {
          writeini bot/settings.ini settings bindmsg $3
          notice $nick Bindmsg set to: $3
        }
        elseif ($readini(bot/binds.ini,binds,$2)) {
          writeini bot/binds.ini binds $2 $encode($3-,m)
          notice $nick Command $+(',$2,') successfully changed to: $3-
        }
      }
      else {
        notice $nick $noaccess
      }
    }
    ;; End Set Commands ;;
    ;; Start Join/Part Commands ;;
    if ($1 == join) {
      if ($access >= 4) {
        if (!$2) {
          notice $nick Invalid syntax.  Please use: $+($trig,join) [channel].
        }
        elseif ($me ison $2) {
          notice $nick I'm already in $+($2,.)
        }
        else {
          join $2
          notice $nick Successfully joined $+($2,.)
        }
      }
      else {
        notice $nick $noaccess
      }
    }
    if ($1 == part) {
      if ($access >= 4) {
        if (!$2) {
          notice $nick Invalid syntax.  Please use: $+($trig,part) [channel].
        }
        elseif ($me !ison $2) {
          notice $nick I'm not in $+($2,.)
        }
        else {
          part $2
          notice $nick Successfully parted $+($2,.)
        }
      }
      else {
        notice $nick $noaccess
      }
    }
    if ($1 == hop) {
      if ($access >= 4) {
        if (!$2) {
          notice $nick Invalid syntax.  Please use: $+($trig,hop) [channel].
        }
        elseif ($me !ison $2) {
          notice $nick I'm not in $+($2,.)
        }
        else {
          hop $2
          notice $nick Successfully hopped $+($2,.)
        }
      }
      else {
        notice $nick $noaccess
      }
    }
    ;; End Join/Part Commands ;;
    ;; End User Commands ;;
    ;; Start Public Commands ;;
    ;; Start Access Command ;;
    if ($1 == a || $1 == access) {
      if ($2) {
        notice $nick $2 currently has level $iif(%access,$v1,0) $iif(%info,$+($chr(40),$v1,$chr(41))) access to $+($me,.)
      }
      else {
        notice $nick $nick $+ , you currently have level $iif($access,$v1,0) $iif($info,$+($chr(40),$v1,$chr(41))) access to $+($me,.)
      }
    }
    ;; End Access Command ;;
    ;; Start Binded Command Output ;;
    if ($readini(bot/binds.ini,binds,$1)) {
      var %bindinfo = $readini(bot/binds.ini,binds,$1)
      if ($bindmsg == notice) {
        if ($1 == eval && $+($chr(36),ip) isin $2-) {
          notice $nick Hell no.
        }
        else {
          notice $nick [ [ $replace($skin,$+(%,command,%),$1,$+(%,info,%),$decode(%bindinfo,m)) ] ]
        }
      }
      elseif ($bindmsg == public) {
        if ($1 == eval && $+($chr(36),ip) isin $2-) {
          notice $nick Hell no.
        }
        else {
          msg $chan [ [ $replace($skin,$+(%,command,%),$1,$+(%,info,%),$decode(%bindinfo,m)) ] ]
        }
      }
    }
    ;; End Binded Command Output ;;
    ;; Start Binded Commands List ;;
    if ($1 == binds || $1 == commands) {
      var %num = 2
      while (%num <= $lines(bot/binds.ini)) {
        set %blist %blist $trig $+ $gettok($read(bot/binds.ini,%num),1,61)
        inc %num
      }
      notice $nick $iif(%blist,$replace($skin,$+(%,command,%),$1,$+(%,info,%),$v1),$replace($skin,$+(%,command,%),$1,$+(%,info,%),No binded commands.))
      unset %blist
    }
    ;; Start Binded Commands List ;;
    ;; End Public Commands ;;
  }
}



;;;;;;;;;;;;;
;; Aliases ;;
;;;;;;;;;;;;;

alias access { return $readini(bot/users.ini,$wildsite,access) }
alias bindmsg { return $readini(bot/settings.ini,settings,bindmsg) }
alias greeting1 { return $decode($readini(bot/settings.ini,settings,greeting1),m) }
alias greeting2 { return $decode($readini(bot/settings.ini,settings,greeting2),m) }
alias greeting3 { return $decode($readini(bot/settings.ini,settings,greeting3),m) }
alias info { return $readini(bot/users.ini,$wildsite,info) }
alias noaccess { return Error.  You do not have enough access to use that command. }
alias skin { return $decode($readini(bot/settings.ini,settings,skin),m) }
alias trig { return $readini(bot/settings.ini,settings,trigger) }