A little script needed

[Kaarel]

I need a script where can I put together all the command that can use in bot

Like someone says in channel !command and then bot answer him/her commands

[caesar]

See in the docs/tcl-commands.doc file the bind pub and start making yourself one.

[Kaarel]

Still need help

[spock]

read the suninet.nl tcl guide aswell.
searching the forum would return 375492726348 examples :>

[Kaarel]

I cant`t underestand what you try to say me

[ReaLz]

it's so easy...

Code: Select all

bind pub - !commands com_pub

proc com_pub {nick host handle chan args} {
set first "Here write the first command"
set second "Here write the second command"
set third "Here write the third command"
puthelp "NOTICE $nick :$first"
puthelp "NOTICE $nick :$second"
puthelp "NOTICE $nick :$third"
return 1
}

You can do it much better if you read the tcl-commands.doc or read a guide to write your own TCL scripts

[Kaarel]

But if I want to put over 3 triggers

Do I have to use that code

Code: Select all

bind pub - !commands com_pub 

proc com_pub {nick host handle chan args} { 
set first "Here write the first command" 
set second "Here write the second command" 
set third "Here write the third command" 
ser fourth "Here write the third command
puthelp "NOTICE $nick :$first" 
puthelp "NOTICE $nick :$second" 
puthelp "NOTICE $nick :$third"
puthelp "NOTICE $nick :$fourth
return 1 
}

[ReaLz]

yes you can do that but don't forget the " in the end of:

Code: Select all

set fourth "Here write the fourth command

and

Code: Select all

puthelp "NOTICE $nick :$fourth

[ppslim]

Also make sure you use "set" and not "ser"

[Kaarel]

I have that problem that I made 3 different

date.tcl
ops.tcl
rules.tcl

But I cant use them together. Even when I use ops trigger I get rules text. Where is the problem

[ReaLz]

what do you have in these files? I didn't understand

[caesar]

If you have all the 3 binds (public commands) to the same proc then that's a problem. You should change them to a different one for each of them. Use something like:

Code: Select all

bind pub - !date date_pub 
bind pub - !ops ops_pub 
bind pub - !rules rules_pub 

proc date_pub {nick host handle chan args} {
your code goes here..
}

proc ops_pub {nick host handle chan args} {
your code goes here..
}

proc rules_pub {nick host handle chan args} {
your code goes here..
}

Take this as an example not as a code..

[ppslim]

Do as caesar said.

Tcl doesn't operate in a fasion where each file is 100% indepenant of each other.

When the files are read, they go into a single memory buffer, which is read, as if the entire contents where stored in a single files, rather than the seperate ones.

As such, any names that are the same, either overwrite each other (as in your case) or cause an error.

This means that the names of the procedures need adjusting to a unique name (making sure the binds are also changed to unique names).

[Kaarel]

If you have all the 3 binds (public commands) to the same proc then that's a problem. You should change them to a different one for each of them. Use something like:

Code: Select all

bind pub - !date date_pub 
bind pub - !ops ops_pub 
bind pub - !rules rules_pub 

proc date_pub {nick host handle chan args} {
your code goes here..
}

proc ops_pub {nick host handle chan args} {
your code goes here..
}

proc rules_pub {nick host handle chan args} {
your code goes here..
}

Take this as an example not as a code..

Even I try that code my bot says me <Botman> [19:58] Tcl error [rules_pub]: invalid command name "your"

[ReaLz]

when caesar says "your code goes here" you have to put what you want your bot to do.
for example in the date_pub put a code like this:

Code: Select all

putserv "PRIVMSG $chan :hi!"

or

Code: Select all

putserv "PRIVMSG $nick :hi!"

or whatevah you want it to say.