;;;;;;;;;;;;;;;;;
; Initial Setup ;
;;;;;;;;;;;;;;;;;

on *:CONNECT: {
  if (%trig == $null) {
    set %trig $$?="What would you like to set your trigger as?"
  }
  if ($ulist(*) == $null) {
    auser 4 $$?="What nickname do you want to give access to?"
  }
  echo -a Bot coded by: Morgan`
  echo -a Version: 1.0
  echo -a First release: March 28, 2007
  echo -a If you run into any problems, please email me at: mklaif@gmail.com
}

;;;;;;;;;;;;;;;;;;;
; Custom Commands ;
;;;;;;;;;;;;;;;;;;;

on *:TEXT:*:?:{
  if ($1 == %trig $+ requirements) {
    msg $nick SPONSORSHIP REQUIREMENTS.
    msg $nick If you meet these requirements, please type: %trig $+ continue to complete the sponsorship application.
  }
  if ($1 == %trig $+ continue) {
    set %sponsor.nick $nick
    msg $nick Now starting the application questions.
    set %x 1
    msg $nick 1. What is your organizations name?
    halt
  }
  if (%sponsor.nick != $null && $nick == %sponsor.nick) {
    if (%x == 1) {
      write Sponsorships/ $+ %sponsor.nick $+ .txt Sponsorship Application: $nick
      write Sponsorships/ $+ %sponsor.nick $+ .txt  1. What is your organizations name?
      write Sponsorships/ $+ %sponsor.nick $+ .txt $1-
      inc %x
      msg $nick 2. What is your organizations channel?
      halt
    }
    if (%x == 2) {
      write Sponsorships/ $+ %sponsor.nick $+ .txt 2. What is your organizations channel?
      write Sponsorships/ $+ %sponsor.nick $+ .txt $1-
      inc %x 
      msg $nick 3. Please list your main means of contact.  (Example: MSN - test@hotmail.com or EMAIL - test@email.com)
      halt
    }
    if (%x == 3) {
      write Sponsorships/ $+ %sponsor.nick $+ .txt 3. Please list your main means of contact.  (Example: MSN - test@hotmail.com or EMAIL - test@email.com)
      write Sponsorships/ $+ %sponsor.nick $+ .txt $1-
      inc %x
      msg $nick 4. Please describe your organization.
      halt        
    }
    if (%x == 4) {
      write Sponsorships/ $+ %sponsor.nick $+ .txt 4. Please describe your organization.
      write Sponsorships/ $+ %sponsor.nick $+ .txt $1-
      inc %x
      msg $nick 5. How would we benefit from sponsoring your organization?
      halt
    }
    if (%x == 5) {
      write Sponsorships/ $+ %sponsor.nick $+ .txt 5. How would we benefit from sponsoring your organization?
      write Sponsorships/ $+ %sponsor.nick $+ .txt $1-
      unset %x
      timersponsor off
      msg $nick Congratulations! You have finished the sponsorship application questions.  Our staff has been notified.
      msg #mklaiff $nick has just completed a sponsorship application.  Stored as $nick $+ .txt. Type %trig $+ sponsor review $nick to review it.
      close -m $nick
      unset %sponsor.*
    }
  }
}

on *:TEXT:*say*:#: {
  if ($1 == %trig $+ say) {
    if ($ulevel >= 4) {
      msg $chan $2-
    }
    else {
      notice $nick Error >> You do not have enough access to use this command.
    }
  }
}

on *:TEXT:*action*:#: {
  if ($1 == %trig $+ action) {
    if ($ulevel >= 4) {
      /describe $chan $2-
    }
    else {
      notice $nick Error >> You do not have enough access to use this command.
    }
  }
}

on *:TEXT:*sponsor*:#: {
  if ($1 == %trig $+ sponsor) {
    if ($2 == apply) {
      if (%sponsor.nick == $null) {
        msg $nick SPONSORSHIP RULES HERE.
        msg $nick Before you continue with our sponsorship application, please type: %trig $+ requirements to see our sponsorship requirements.
      }
      if (%sponsor.nick != $null) {
        query $nick %sponsor.nick is currently in the middle of their sponsorship application.  Please wait for them to be finshed.
      }
    }
    if ($2 == review) {
      if ($exists(Sponsorships\ $+ $3 $+ .txt)) {
        msg $chan Sending sponsorship application to you.
        var %p 1
        while (%p <= $lines(Sponsorships\ $+ $3 $+ .txt)) {
          notice $nick $read(Sponsorships\ $+ $3 $+ .txt,%p) 
          inc %p
        }
      }
      else {
        msg $chan You cannot review something that doesn't exist.
      }
    }
    if ($2 == deny) {
      /remove $+(Sponsorships\,$3,.txt)
      notice $nick $3 $+ 's application has been removed.
    }
  }
}

;;;;;;;;;;;;;;;;;;;;;;;;
; General Bot Commands ;
;;;;;;;;;;;;;;;;;;;;;;;;

on *:TEXT:?trigger:#: {
  notice $nick The trigger is currently: %trig
}

on *:TEXT:*skin*:#: {
  if ($1 == %trig $+ skin) {
    if ($ulevel >= 4) {
      if ($2 == set) { 
        set %skin $3-
        notice $nick Skin successfully set as: $3-
      }
    }
  }
}

on *:TEXT:*trig*:#: {
  if ($1 == %trig $+ trig) {
    if ($ulevel >= 4) {
      if ($2 == $null) {
        notice $nick Please use the correct syntax.  %trig $+ trig <newtrig>
      }
      if ($2 != $null) {
        set %trig $2
        notice $nick Trigger now set to: %trig
      }
    }
    else {
      notice $nick Error >> You do not have enough access to use this command.
    }
  }
}

on *:TEXT:*auser*:#: {
  if ($1 == %trig $+ auser) {
    if ($ulevel >= 4) {
      /auser $2-
    }
    else {
      notice $nick Error >> You do not have enough access to use this command.
    }
  }
}

on *:TEXT:*ruser*:#: {
  if ($1 == %trig $+ ruser) {
    if ($ulevel >= 4) {
      /ruser $2
    }
    else {
      notice $nick Error >> You do not have enough access to use this command.
    }
  }
}

on *:TEXT:*nick*:#: {
  if ($1 == %trig $+ nick) {
    if ($ulevel >= 4) {
      /nick $2
    }
    else {
      notice $nick Error >> You do not have enough access to use this command.
    }
  }
}

on *:TEXT:*join*:#: {
  if ($1 == %trig $+ join) {
    if ($ulevel >= 4) {
      /join $2
    }
    else {
      notice $nick Error >> You do not have enough access to use this command.
    }
  }
}

on *:TEXT:*part*:#: {
  if ($1 == %trig $+ part) {
    if ($ulevel >= 4) {
      /part $2
    }
    else {
      notice $nick Error >> You do not have enough access to use this command.
    }
  }
}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; ChanServ Channel Commands ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

on *:TEXT:*topic*:#: {
  if ($1 == %trig $+ topic) {
    if ($ulevel >= 4) {
      /cs $chan topic $2-
    }
    else {
      notice $nick Error >> You do not have enough access to use this command.
    }
  }
}

on *:TEXT:*greeting*:#: {
  if ($1 == %trig $+ greeting) {
    if ($ulevel >= 4) { 
      /cs $chan set greeting $2-
    }
    else {
      notice $nick Error >> You do not have enough access to use this command.
    }
  }
}

on *:TEXT:*kick*:#: {
  if ($1 == %trig $+ kick) {
    if ($ulevel >= 4) {  
      /cs $chan kick $2-
    }
    else {
      notice $nick Error >> You do not have enough access to use this command.
    }
  }
}

on *:TEXT:*kb*:#: {
  if ($1 == %trig $+ kb) {
    if ($ulevel >= 4) {
      /cs $chan kb $2-
    }
    else {
      notice $nick Error >> You do not have enough access to use this command.
    }
  }
}

on *:TEXT:*resync*:#: {
  if ($1 == %trig $+ resync) {
    if ($ulevel >= 4) {
      /cs $chan resync
    }
    else {
      notice $nick Error >> You do not have enough access to use this command.
    }
  }
}

on *:TEXT:*addcoowner*:#: {
  if ($1 == %trig $+ addcoowner) {
    if ($ulevel >= 4) {
      /cs $chan addcoowner $2
      /cs $chan resync
    }
    else {
      notice $nick Error >> You do not have enough access to use this command.
    }
  }
}

on *:TEXT:*delcoowner*:#: {
  if ($1 == %trig $+ delcoowner) {
    if ($ulevel >= 4) {
      /cs $chan delcoowner $2
      /cs $chan resync
    }
    else {
      notice $nick Error >> You do not have enough access to use this command.
    }
  }
}

on *:TEXT:*addmaster*:#: {
  if ($1 == %trig $+ addmaster) {
    if ($ulevel >= 4) {
      /cs $chan addmaster $2
      /cs $chan resync
    }
    else {
      notice $nick Error >> You do not have enough access to use this command.
    }
  }
}

on *:TEXT:*delmaster*:#: {
  if ($1 == %trig $+ delmaster) {
    if ($ulevel >= 4) {
      /cs $chan delmaster $2
      /cs $chan resync
    }
    else {
      notice $nick Error >> You do not have enough access to use this command.
    }
  }
}

on *:TEXT:*addop*:#: {
  if ($1 == %trig $+ addop) {
    if ($ulevel >= 4) {
      /cs $chan addop $2
      /cs $chan resync
    }
    else {
      notice $nick Error >> You do not have enough access to use this command.
    }
  }
}

on *:TEXT:*delop*:#: {
  if ($1 == %trig $+ delop) {
    if ($ulevel >= 4) {
      /cs $chan delop $2
      /cs $chan resync
    }
    else {
      notice $nick Error >> You do not have enough access to use this command.
    }
  }
}

on *:TEXT:*addpeon*:#: {
  if ($1 == %trig $+ addpeon) {
    if ($ulevel >= 4) {
      /cs $chan addpeon $2
      /cs $chan resync
    }
    else {
      notice $nick Error >> You do not have enough access to use this command.
    }
  }
}

on *:TEXT:*delpeon*:#: {
  if ($1 == %trig $+ delpeon) {
    if ($ulevel >= 4) {
      /cs $chan delpeon $2
      /cs $chan resync
    }
    else {
      notice $nick Error >> You do not have enough access to use this command.
    }
  }
}

on *:TEXT:*clvl*:#: {
  if ($1 == %trig $+ clvl) {
    if ($ulevel >= 4) {
      /cs $chan clvl $2-
      /cs $chan resync
    }
    else {
      notice $nick Error >> You do not have enough access to use this command.
    }
  }
}

on *:TEXT:*adduser*:#: {
  if ($1 == %trig $+ adduser) {
    if ($ulevel >= 4) {
      /cs $chan adduser $2-
      /cs $chan resync
    }
    else {
      notice $nick Error >> You do not have enough access to use this command.
    }
  }
}

on *:TEXT:*deluser*:#: {
  if ($1 == %trig $+ deluser) {
    if ($ulevel >= 4) {
      /cs $chan deluser $2
      /cs $chan resync
    }
    else {
      notice $nick Error >> You do not have enough access to use this command.
    }
  }
}

on *:TEXT:*deop*:#: {
  if ($1 == %trig $+ deop) {
    if ($ulevel >= 4) {
      /cs $chan deop $2
    }
    else {
      notice $nick Error >> You do not have enough access to use this command.
    }
  }
}

on *:TEXT:*op*:#: {
  if ($1 == %trig $+ op) {
    if ($ulevel >= 4) {
      /cs $chan op $2
    }
    else {
      notice $nick Error >> You do not have enough access to use this command.
    }
  }
}

on *:TEXT:*devoice*:#: {
  if ($1 == %trig $+ devoice) {
    if ($ulevel >= 4) {
      /cs $chan devoice $2
    }
    else {
      notice $nick Error >> You do not have enough access to use this command.
    }
  }
}

on *:TEXT:*voice*:#: {
  if ($1 == %trig $+ voice) {
    if ($ulevel >= 4) {
      /cs $chan voice $2
    }
    else {
      notice $nick Error >> You do not have enough access to use this command.
    }
  }
}

on *:TEXT:*unsuspend*:#: {
  if ($1 == %trig $+ unsuspend) {
    if ($ulevel >= 4) {
      /cs $chan unsuspend $2
    }
    else {
      notice $nick Error >> You do not have enough access to use this command.
    }
  }
}

on *:TEXT:*suspend*:#: {
  if ($1 == %trig $+ suspend) {
    if ($ulevel >= 4) {
      /cs $chan suspend $2
    }
    else {
      notice $nick Error >> You do not have enough access to use this command.
    }
  }
}

on *:TEXT:*trim*:#: {
  if ($1 == %trig $+ trim) {
    if ($ulevel >= 4) {
      /cs $chan trim $2-
    }
    else {
      notice $nick Error >> You do not have enough access to use this command.
    }
  }
}

on *:TEXT:*delban*:#: {
  if ($1 == %trig $+ delban) {
    if ($ulevel >= 4) {
      /cs $chan delban $2
    }
    else {
      notice $nick Error >> You do not have enough access to use this command.
    }
  }
}

on *:TEXT:*ban*:#: {
  if ($1 == %trig $+ ban) {
    if ($ulevel >= 4) {
      /cs $chan addban $2
    }
    else {
      notice $nick Error >> You do not have enough access to use this command.
    }
  }
}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Bind Commands / Output of Binded Commands ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

on *:text:*:#:{
  if ($hget(binds) == $null) { hmake binds }
  if ($exists(binds.db) == $true) { hload binds binds.db }
  if ($mid($1-,1,$len(%trig)) == %trig) {
    tokenize 32 $mid($1-,$calc($len(%trig) + 1) $+ -)
  }
  else { halt }
  if ($hget(binds,$1) != $null) {
    if (%skin != *) {
      msg $chan $replace(%skin,<cmd>,$1,<info>,$hget(binds,$1))
    }
    elseif (%skin == *) {
      msg $chan $hget(binds,$1)
    }
  }
  if ($ulevel >= 4) {
    if ($1 == bind) {
      if ($3 == $null) { notice $nick Please use the correct syntax.  %trig $+ bind <command> <text> }
      else {
        hadd binds $2 $3-
        notice $nick Command $2 successfully bound to: $3-
        hsave binds binds.db
      }
    }
  }
  if ($ulevel >= 4) {
    if ($1 == unbind) {
      if ($2 == $null) { notice $nick Please use the correct syntax.  %trig $+ unbind <command>
      }
      else {
        if ($hget(binds,$2) == $null) { notice $nick Command doesnt exist. }
        else {
          hdel binds $2
          notice $nick Successfully unbound command: $2
          hsave binds binds.db
        }
      }
    }
  }
}