Botscript / Menu Bot / Information Bot

[Cristian]

Code: Select all

# Trigger is set to ! - It requires that you are global op og channel op (o|o), to set information.
# Changeable strings: Members Sponsors Servers News Homepage Commands

# For Example:
# ! set members member1 member2
# ! members returns: member1 member2


# You can change ! to !menu.


##############################

setudef str members
setudef str sponsors
setudef str servers
setudef str news
setudef str homepage
setudef str commands


namespace eval menu {
   namespace eval variable {
      variable cmdtrigger "\!"
      variable commands "Members Sponsors Servers News Homepage Commands"
   }
   bind PUB -|- $::menu::variable::cmdtrigger [namespace current]::public

   proc public {nick uhost hand chan arg} {

      if {[string length [channel get $chan commands]] < 1} { channel set $chan commands $::menu::variable::commands }
      set cmd "[lindex [split $arg] 0]"
      if {![info exists cmd]} { return }
      switch -- $cmd {
         "set" {
            if {[matchattr $hand o|o $chan]} {
               set cmd "[lindex [split $arg] 1]"
               set arg "[lrange [split $arg] 2 end]"

               if {[catch {channel get $chan $cmd} err] == 0} {
                  channel set $chan $cmd $arg
                  putserv "NOTICE $nick :Done message for $cmd saved. [join [channel get $chan $cmd]]"
               }
            }
            return
         }
      }
      if {[catch {channel get $chan $cmd} err] == 0} { putserv "PRIVMSG $chan :[join [channel get $chan $cmd]]"; return }
   }
}
putlog "\00304[string range [info script] 0 end]\00304 \002loaded\003\002. By \002Sumsar\002 Website: \002http://sp00fed.org\002"

[Futz0r]

[21:59] Tcl error [::menu::public]: Unknown channel setting.


on "! set news text herer"

[Cristian]

I will take a look at that, when I got the time, thanks for the error info.

[Cristian]

Updated: