egghelp/eggheads community

cant post text to a user

2003-10-15T03:53:07-04:00

Yep, you are right.
My script at the beginning was working in the first place.
The problem is, that i was using a "msg"-bind, which does not work with a proc that contains the "chan" variable.

Here are the final (and hopefully working ) scripts:

With a list ...

Code:

set msg_welcome {   "Text"   "more Text"   "and more"   "EOF" } proc bsd:main {nick uhost hand chan para} {   global msg_welcome     if {![string length $para] > 0} {       foreach data $msg_welcome {         putserv "PRIVMSG $nick :$data"      }     } } bind pub - !bsd bsd:main

..and the same function with a textfile which posts the contents of the file line by line..

Code:

set exFile "c:\file.txt"proc bsd:main {nick uhost hand chan para} {   global exFile    if {![string length $para] > 0} {       set fs [open $exFile r]       while {[gets $fs line]>-1} {         putserv "PRIVMSG $nick :$line"       }    } } bind pub - !bsd bsd:main

Greets!

Statistics: Posted by Spirit — Wed Oct 15, 2003 3:53 am

Re: cant post text to a user

2003-10-14T04:24:27-04:00

Sorry, I'm back on the beggining of the thread, but I'm affraid that

foreach {data} $msg_welcome {

should be better with:

Code:

foreach data $msg_welcome {

Statistics: Posted by CrazyCat — Tue Oct 14, 2003 4:24 am

cant post text to a user

2003-10-13T17:17:04-04:00

Oh man, that did it!
Sorry ..i took it out *slapmyself*
Thx very much!!!

Statistics: Posted by Spirit — Mon Oct 13, 2003 5:17 pm

cant post text to a user

2003-10-13T17:14:05-04:00

Thx, but i didn't help. [snip]

But then again, you need to include a ":" when using a PRIVMSG.

Statistics: Posted by egghead — Mon Oct 13, 2003 5:14 pm

cant post text to a user

2003-10-13T17:09:46-04:00

Thx, but i didn't help. It is pretty unusual.. is TCL reading the files different, than other languages?
Usually it should read the complete line and the bot should post it completely

Statistics: Posted by Spirit — Mon Oct 13, 2003 5:09 pm

cant post text to a user

2003-10-13T17:00:19-04:00

try [join [lrange $data 0 end]] ; just and idea.

Statistics: Posted by Sir_Fz — Mon Oct 13, 2003 5:00 pm

cant post text to a user

2003-10-13T16:32:10-04:00

You are right ..its better to use a textfile for that, but i still got the old problem!
The bot is just posting the last word of every sentence!

Code:

set cmdhelp "file.txt"proc bsd:main {nick uhost hand chan para} {    global cmdhelp    if {![string length $para] > 0} {      set fs [open $cmdhelp r]      while {[gets $fs line] != -1} {        putserv "PRIVMSG $nick $line"      }      close $fs    }}

I couldn't see, why you were using the

Code:

set command [lindex [split $para] 0]

line, because it didn't do anything.

Does anybody know, why the bot is "loosing" the first part of every line?

Statistics: Posted by Spirit — Mon Oct 13, 2003 4:32 pm

cant post text to a user

2003-10-12T10:13:28-04:00

Just re-read the post, and say you were having trouble with not reading spaces

In my example, instead of this

Code:

set command [lindex [split $para] 0]

Code:

set command [lrange [split $para] 0 end]

Think thats right....

Statistics: Posted by Darkj — Sun Oct 12, 2003 10:13 am

cant post text to a user

2003-10-12T10:10:02-04:00

oh and a close $fs at the end of that

Statistics: Posted by Darkj — Sun Oct 12, 2003 10:10 am

cant post text to a user

2003-10-12T10:08:53-04:00

Instead of hardcoding that in, I would just suggest using a file

Then to output it, just

Code:

set fs [open file.txt r]while {[gets $fs line]>-1} { set command [lindex [split $para] 0]putserv "PRIVMSG $nick :$command"}

Then in your file.txt, just list them like this
Text
more Text
and more
EOF

Statistics: Posted by Darkj — Sun Oct 12, 2003 10:08 am

cant post text to a user

2003-10-12T09:58:46-04:00

No, i want it like this:

text
more text
and more
eof

It is suppose to be a list of commands

Statistics: Posted by Spirit — Sun Oct 12, 2003 9:58 am

cant post text to a user

2003-10-12T09:56:08-04:00

So basically you want it to show up like this?

"text more text and more eof"

I don't quite understand what you are going for here.

Statistics: Posted by Darkj — Sun Oct 12, 2003 9:56 am

cant post text to a user

2003-10-12T09:42:24-04:00

Oh, but i found that before...it is already "putserv"

But after a little playing around, i almost got it!
Now the bot is posting only the last word of every sentence.

Code:

set msg_welcome {   "Text"   "more Text"   "and more"   "EOF" }

and the bot posts:
"Text"
"Text"
"more"
"EOF"

looks like is can't handle the spaces between the words, but i don't know why.

Statistics: Posted by Spirit — Sun Oct 12, 2003 9:42 am

cant post text to a user

2003-10-12T09:35:17-04:00

Code:

putsrv "PRIVMSG $nick $data

that is way off, should be something like

Code:

putserv "PRIVMSG $nick :$data"

Statistics: Posted by Darkj — Sun Oct 12, 2003 9:35 am

cant post text to a user

2003-10-12T09:07:21-04:00

I want the bot to post a couple lines to a user.
But somehow, i cant get it to work:

Code:

set msg_welcome {  "Text"  "more Text"  "and more"  "EOF"}proc bsd:main {nick uhost hand chan para} {    global msg_welcome    if {![string length $para] > 0} {      foreach {data} $msg_welcome {        putsrv "PRIVMSG $nick $data      }    }}bind msg - !bsd bsd:main

the error is:

Code:

Tcl error [bsd:main]: wrong # args: should be "bsd:main nick uhost hand chan para"

But the args are ok

Thx for your help!

Statistics: Posted by Spirit — Sun Oct 12, 2003 9:07 am