bind pubm - lmsg msg_fantasy
proc msg_fantasy {nick uhost hand chan text} {
  global botnick
  if {[isop $nick $chan] || [ishalfop $nick $chan]} {
    set komut [lindex $text 0]
    set person [lindex $text 1]
    set reason [lrange $text 2 end]
    if {[string match -nocase "!op" $komut]} {
      putquick "MODE $chan +o $person"
    }
    if {[string match -nocase "!deop" $komut]} {
      putquick "MODE $chan -o $person"
    }
    if {[string match -nocase "!voice" $komut]} {
      putquick "MODE $chan +v $person"
    }
    if {[string match -nocase "!devoice" $komut]} {
      putquick "MODE $chan -v $person"
    }
    if {[string match -nocase "!ban" $komut]} {
      putquick "MODE $chan +b $person"
    }
    if {[string match -nocase "!kick" $komut]} {
      putquick "KICK $chan $person $reason"
    }
    if {[string match -nocase "!kb" $komut]} {
      putquick "MODE $chan +b $person"
      putquick "KICK $chan $person $reason"
    }
    if {[string match -nocase "!op" $komut]} {
      putquick "MODE $chan +o $person"
    }
    if {[string match -nocase "!temizle" $komut]} {
      putquick "PRIVMSG $chan LMSG "
      putquick "PRIVMSG $chan LMSG "
      putquick "PRIVMSG $chan LMSG "
      putquick "PRIVMSG $chan LMSG "
      putquick "PRIVMSG $chan LMSG "
      putquick "PRIVMSG $chan LMSG "
      putquick "PRIVMSG $chan LMSG "
      putquick "PRIVMSG $chan LMSG "
      putquick "PRIVMSG $chan LMSG "
      putquick "PRIVMSG $chan LMSG "
      putquick "PRIVMSG $chan LMSG "
      putquick "PRIVMSG $chan LMSG "
      putquick "PRIVMSG $chan LMSG "
      putquick "PRIVMSG $chan LMSG "
      putquick "PRIVMSG $chan LMSG "
      putquick "PRIVMSG $chan LMSG "
      putquick "PRIVMSG $chan LMSG "
      putquick "PRIVMSG $chan LMSG "
      putquick "PRIVMSG $chan LMSG "
      putquick "PRIVMSG $chan LMSG "
      putquick "PRIVMSG $chan LMSG "
      putquick "PRIVMSG $chan LMSG "
      putquick "PRIVMSG $chan LMSG "
      putquick "PRIVMSG $chan LMSG "
      putquick "PRIVMSG $chan LMSG "
      putquick "PRIVMSG $chan LMSG "
      putquick "PRIVMSG $chan LMSG "
      putquick "PRIVMSG $chan LMSG "
      putquick "PRIVMSG $chan LMSG "
      putquick "PRIVMSG $chan LMSG "
      putquick "PRIVMSG $chan LMSG "
      putquick "PRIVMSG $chan LMSG "
      putquick "PRIVMSG $chan LMSG "
      putquick "PRIVMSG $chan LMSG "
      putquick "PRIVMSG $chan LMSG "
      putquick "PRIVMSG $chan LMSG "
      putquick "PRIVMSG $chan LMSG "
      putquick "PRIVMSG $chan LMSG "
      putquick "PRIVMSG $chan LMSG "
      putquick "PRIVMSG $chan LMSG "
      putquick "PRIVMSG $chan LMSG "
      putquick "PRIVMSG $chan LMSG "
      putquick "PRIVMSG $chan LMSG "
    }
  }
}