egghelp/eggheads community

A little script needed

2003-05-29T00:42:32-04:00

Yes, remove the " from the :" .. eg:
from:

Code:

putserv "PRIVMSG $chan :"On tähtis et kuu oleks kujul JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC. (ega kui valesti paned midagi ei juhtu kah, aga õige on nii)"

to:

Code:

putserv "PRIVMSG $chan :On tähtis et kuu oleks kujul JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC. (ega kui valesti paned midagi ei juhtu kah, aga õige on nii)"

Notice that I have removed the " after the : because there is no need of it. Do the same with all of them and will work.

Statistics: Posted by caesar — Thu May 29, 2003 12:42 am

A little script needed

2003-05-29T00:25:51-04:00

Code:

bind pub - !synna synna_pub bind pub - !ops ops_pub bind pub - !reeglid rules_pub bind pub - !cyber cyber_pubproc synna_pub {nick host handle chan args} { putserv "PRIVMSG $chan :"Kui tahad oma sünnipäeva Botmani andmebaasi sisestada tee seda kujul !date   " putserv "PRIVMSG $chan :"On tähtis et kuu oleks kujul JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC. (ega kui valesti paned midagi ei juhtu kah, aga õige on nii)"putserv "PRIVMSG $chan :"Ja nüüd kui sünnipäev on andmebaasi sisestatud saad sa jälgida mitu päeva/nädalat su sünnipäevani on. "putserv "PRIVMSG $chan :"Selleks kasuta !date  Kui tahad oma sõbra sünnipäeva jälgida pane !date  "} proc ops_pub {nick host handle chan args} {putserv "PRIVMSG $chan :"Kui mina olen sulle andnud vastava staatuse siis sul on võimalik kanalis kasutada järgnevaid võimalusi-"putserv "PRIVMSG $chan :"!op Annad endale opi."putserv "PRIVMSG $chan :"!op  - Annad opi inimsesle."putserv "PRIVMSG $chan :"!deop  - Võtad opi inimseslt."putserv "PRIVMSG $chan :"!voice  - Annad voici inimsele."putserv "PRIVMSG $chan :"!devoice  - Võtad voici inimselt."putserv "PRIVMSG $chan :"!kick   - Kickid inimese kanalilt. Põhjus pole kohustuslik."putserv "PRIVMSG $chan :"!ban   - Bannid inimese kanalilt. Põhjus pole kohustuslik"putserv "PRIVMSG $chan :"!topic  - Paneb sinu kirjutatud topicu kanali topicuks."} proc reeglid_pub {nick host handle chan args} { putserv "PRIVMSG $chan :"Keelatud on teiste solvamine roppude sõnadega. (Solvata võivad ainult omad tuttavad inimesed)"putserv "PRIVMSG $chan :"Keelatud on reklaamida teisi kanaleid. Vahest võib läbi lipsata vaid need kanalid mis võivad aidata inimsest. (#Ircworld #mp3 JNE)"putserv "PRIVMSG $chan :"Kui keegi soovib mingeid reegleidlisada võtku ühendust Kaareliga"} proc cyber_pub {nick host handle chan args} { putserv "PRIVMSG $chan :"Kui soovid, et teised ja sa ise teaksid  millal su sünnip2ev on kirjuta !synna (seal kõik paremini kirjas)"putserv "PRIVMSG $chan :"Kõik kes on saanud minu käest vastavad astmed v6ivad vaadata !opid"putserv "PRIVMSG $chan :"Kui soovid et Botman annaks sulle ulevaate mingist filmist kirjuta !imdb "putserv "PRIVMSG $chan :"Kui soovid vaadata Botmani staatust kitjuta !status või .besttimes"putserv "PRIVMSG $chan :"Reeglitega on soovitatav tutvuda kah. Selleks kirjuta !reeglid"putserv "PRIVMSG $chan :"Kui soovid teada kui palju inimsei on kanalis #cyberworld kokku olnud korraga kirjuta !visitors , samuti ilmub kiri  iga liitumise ajal mitmes külastaja sa oled. (-Botman- Tere, sa oled  475 inimene või muu olevus kes on  kanalisse #cyberworld sattunud alates 8 May 2003.)"putserv "PRIVMSG $chan :"Kui tahad vaadata millal mingi inimene viimati olnud on kirjuta kanalis !seen "}

CAn anydoby tell me what is wrong with that code, my BOT says [07:24] Tcl error [cyber_pub]: extra characters after close-quote

Statistics: Posted by Kaarel — Thu May 29, 2003 12:25 am

A little script needed

2003-05-28T13:11:35-04:00

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:

putserv "PRIVMSG $chan :hi!"

Code:

putserv "PRIVMSG $nick :hi!"

or whatevah you want it to say.

Statistics: Posted by ReaLz — Wed May 28, 2003 1:11 pm

A little script needed

2003-05-28T12:59:23-04:00

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:
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 [19:58] Tcl error [rules_pub]: invalid command name "your"

Statistics: Posted by Kaarel — Wed May 28, 2003 12:59 pm

A little script needed

2003-05-28T04:39:45-04:00

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).

Statistics: Posted by ppslim — Wed May 28, 2003 4:39 am

A little script needed

2003-05-28T02:35:23-04:00

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:

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..

Statistics: Posted by caesar — Wed May 28, 2003 2:35 am

A little script needed

2003-05-27T16:42:51-04:00

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

Statistics: Posted by ReaLz — Tue May 27, 2003 4:42 pm

A little script needed

2003-05-27T14:38:42-04:00

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

Statistics: Posted by Kaarel — Tue May 27, 2003 2:38 pm

A little script needed

2003-05-27T09:05:02-04:00

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

Statistics: Posted by ppslim — Tue May 27, 2003 9:05 am

A little script needed

2003-05-27T08:58:14-04:00

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

Code:

set fourth "Here write the fourth command

and

Code:

puthelp "NOTICE $nick :$fourth

Statistics: Posted by ReaLz — Tue May 27, 2003 8:58 am

A little script needed

2003-05-27T08:55:15-04:00

But if I want to put over 3 triggers

Do I have to use that code

Code:

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 commandputhelp "NOTICE $nick :$first" puthelp "NOTICE $nick :$second" puthelp "NOTICE $nick :$third"puthelp "NOTICE $nick :$fourthreturn 1 }

Statistics: Posted by Kaarel — Tue May 27, 2003 8:55 am

A little script needed

2003-05-26T13:24:51-04:00

it's so easy...

Code:

bind pub - !commands com_pubproc 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

Statistics: Posted by ReaLz — Mon May 26, 2003 1:24 pm

A little script needed

2003-05-26T11:45:22-04:00

I cant`t underestand what you try to say me

Statistics: Posted by Kaarel — Mon May 26, 2003 11:45 am

A little script needed

2003-05-25T09:43:07-04:00

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

Statistics: Posted by spock — Sun May 25, 2003 9:43 am

A little script needed

2003-05-25T05:00:14-04:00

Still need help

Statistics: Posted by Kaarel — Sun May 25, 2003 5:00 am