Preset topics

[neilpkemp]

i would like to have say 3 preset topics which could be used by a command in 1 chat room to change another chat rooms topic, any idea how i would do this?

[]Kami[]

This should work:

Code: Select all

bind pub n "!topic" pub:topic

set topic1 "topic 1"
set topic2 "topic 2"
set topic3 "topic 3"

set topicchan "#yourchan"

proc pub:topic {nick uhost hand chan text}
{
   switch -- [string tolower [lindex $text 0]] 
   {
   
	"1"
    {
       putquick "TOPIC $::topicchan :$::topic1"
       return
    }
   
    "2"
    {
       putquick "TOPIC $::topicchan :$::topic2"
       return
    }
   
    "3"
    {
       putquick "TOPIC $::topicchan :$::topic3"
       return
    }
  }
}
      

Use command !topic 1 or !topic 2 or !topic 3 in any channel you want and bot will set topic for channel you defined in variable $topicchan.

[neilpkemp]

i get this when i try to rehash the bot

[15:36] <ToF> [07:35] Tcl error in file 'bot.conf':
[15:36] <ToF> [07:35] wrong # args: should be "proc name args body"
[15:36] <ToF> while executing
[15:36] <ToF> "proc pub:topic {nick uhost hand chan text}"
[15:36] <ToF> (file "scripts/Topic.tcl" line 9)
[15:36] <ToF> invoked from within
[15:36] <ToF> "source scripts/Topic.tcl"
[15:36] <ToF> (file "bot.conf" line 177)
[15:36] <ToF> [07:35] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)

[Sir_Fz]

Code: Select all

proc pub:topic {nick uhost hand chan text}
{

should be

Code: Select all

proc pub:topic {nick uhost hand chan text} {

[neilpkemp]

getting this error now :/

<ToF> [11:53] Tcl error [pub:topic]: wrong # args: should be "switch ?switches? string pattern body ... ?default body?"

[Sir_Fz]

I guess ]Kami[ got used to C or something

Code: Select all

bind pub n "!topic" pub:topic

set topic1 "topic 1"
set topic2 "topic 2"
set topic3 "topic 3"

set topicchan "#yourchan"

proc pub:topic {nick uhost hand chan text} {
   switch -- [string tolower [lindex $text 0]] {
   "1" {
       putquick "TOPIC $::topicchan :$::topic1"
       return
    }
    "2" {
       putquick "TOPIC $::topicchan :$::topic2"
       return
    }
    "3" {
       putquick "TOPIC $::topicchan :$::topic3"
       return
    }
  }
}

[neilpkemp]

thank you works now

[]Kami[]

You are right, didn't use TCL for some time now (only C++)

[neilpkemp]

sorry o be a pain, is thier anyway i can have public command like !topic and it shows the topic either in a message or notice on the channel?

[]Kami[]

Don't understand what you want.

Please explain it better

[Alchera]

Seems we want a variation on the original request. The topic not only being set but also when !topic is used the topic on the channel is sent to the user who triggered it?

[neilpkemp]

ye when someone says does !topic in a channel i would like the bot to either msg the channel the topic or notice the person , just wondered if anyone could show me how to do this

[]Kami[]

If i understood you good:

Code: Select all

bind pub n "!topic" pub:topic

set topic1 "topic 1"
set topic2 "topic 2"
set topic3 "topic 3"

set topicchan "#yourchan"

proc pub:topic {nick uhost hand chan text} {
   switch -- [string tolower [lindex $text 0]] {
   "1" {
       putquick "TOPIC $::topicchan :$::topic1"
       putquick "NOTICE $nick :Topic for channel $::topicchan is now $::topic1"	   
       return
    }
    "2" {
       putquick "TOPIC $::topicchan :$::topic2"
       putquick "NOTICE $nick :Topic for channel $::topicchan is now $::topic2"	 
       return
    }
    "3" {
       putquick "TOPIC $::topicchan :$::topic3"
       putquick "NOTICE $nick :Topic for channel $::topicchan is now $::topic3"	 
       return
    }
  } 

[neilpkemp]

i just need it so if anyone wishes to view the topic in the channel they can just do a certain command like !topic and the bot will message them it (sorry if im not making sense)