bind pub omn !ks proc_kicks
bind pub omn !kbs proc_kickbans
bind pub omn !DECAPITATION proc_decap
bind pub omn !DUEL proc_duel
bind pub omn !LAZOR proc_lazor
bind pub omn !GOATSE proc_goatse
bind pub omn !DERP proc_derp
bind pub omn !RAEP proc_raep
bind pub omn !MORDOR proc_mord
bind pub omn !BEARTRAP proc_bear
bind pub omn !HUH_ proc_huh

proc proc_kicks { nick uhost hand chan text } {
  putquick "Nothing yet"
}

proc proc_kickbans { nuck uhost hand chan text } {
  putquick "PRIVMSG $chan :Methods are \: \002 !RAEP !MORDOR !BEARTRAP !HUH_ \002"
}

proc proc_raep { nick uhost hand chan text } {
  global botnick
  if {[onchan $text]} {
    if {$text == $botnick} { return 0 }
    set banmask [getchanhost $text $chan]
    putquick "PRIVMSG $chan :$text is far too innocent. He needs a DAMN good RAEPing."
    putquick "PRIVMSG $chan :$\0034With blood. \0032\:3"
    putquick "MODE $chan +b $banmask"
    putquick "KICK $chan $text :$botnick RAEPs $text with his large collection of anatomically correct animal dildos"
  } else { putserv "PRIVMSG $chan :$text Is Not In The Channel" }
}

proc proc_mord { nick uhost hand chan text } {
  global botnick
  if {[onchan $text]} {
    if {$text == $botnick} { return 0 }
    set banmask [getchanhost $text $chan]
    putquick "PRIVMSG $chan :YOU SHALL NOT"
    putquick "PRIVMSG $chan :FUCKING"
    putquick "PRIVMSG $chan :PASS"
    putquick "MODE $chan +b $banmask"
    putquick "KICK $chan $text :Gandalf"
  } else { putserv "PRIVMSG $chan :$text Is Not In The Channel" }
}

proc proc_bear { nick uhost hand chan text } {
  global botnick
  if {[onchan $text]} {
    if {$text == $botnick} { return 0 }
    set banmask [getchanhost $text $chan]
    putquick "PRIVMSG $chan :$nick places beartraps in a circle around $chan, to keep $text out"
    putquick "MODE $chan +b $banmask"
    putquick "KICK $chan $text :CRUNCH"
  } else { putserv "PRIVMSG $chan :$text Is Not In The Channel" }
}

proc proc_huh { nick uhost hand chan text } {
  global botnick
  if {[onchan $text]} {
    if {$text == $botnick} { return 0 }
    set banmask [getchanhost $text $chan]
    putquick "PRIVMSG $chan :Huh_ hears $nick's pleas, and banished the fuck out of $text"
    putquick "MODE $chan +b $banmask"
    putquick "KICK $chan $text :http://en.wikipedia.org/wiki/Huh_\(god\)"
  } else { putserv "PRIVMSG $chan :$text Is Not In The Channel" }
}


proc proc_kick { nick uhost hand chan text } {
  if {[onchan $text]} {
    putquick "KICK $chan $text :Requested"
  } else { putserv "PRIVMSG $chan :\002$text\002 Not In Channel" }
}

putlog "my large anus is loaded"