egghelp/eggheads community

Tcl scripting help

2003-07-31T11:16:12-04:00

the file remains in

I see two possible reasons for this:
1) You're not providing the right path. (check if {[file exists $yourfile]} before you try to delete it and add a warning message if it doesn't exist.)
2) You forgot to close the file/don't have permission to delete it for some other reason. (this should cause an error)

Statistics: Posted by user — Thu Jul 31, 2003 11:16 am

Tcl scripting help

2003-07-31T07:57:10-04:00

i make the command like

file delete -force pathname , and the file remains in

Statistics: Posted by the_crow — Thu Jul 31, 2003 7:57 am

Re: :)

2003-07-31T05:00:18-04:00

How can i make in tcl, to eggdrop del a file

http://www.tcl.tk/man/tcl8.4/TclCmd/file.htm#M12

Statistics: Posted by user — Thu Jul 31, 2003 5:00 am

:)

2003-07-30T20:36:15-04:00

I have solved all my problems thanks to you. Thank you man
Can i make one more question?!?!
How can i make in tcl, to eggdrop del a file, after he created the file??
Thanks
I try to use the command exec rm $file but it didn't work

Statistics: Posted by the_crow — Wed Jul 30, 2003 8:36 pm

and by the way

2003-07-30T18:30:02-04:00

Yes, i really understood

No, you didn't, or you would not have asked the question you asked.

So if i want to put another text in other variable after the first one text insert, should i do this?!
set test $a
unset triggedBy
putserv "PRIVMSG $n :ok"
putserv "PRIVMSG $n : Insert another thing:"
set test2 $a
unset triggedBy
putserv "PRIVMSG $n : Ok again"

This is what happens: Each time you trigger the msgm bind, the enire body of the proc is evaluated, and it has to return before anything else (except from the code currently being executed) can happen. There's no magic pause inserted at runtime to wait for more messages to arrive, just because you send a msg to a user asking for more info. The message is sent after the proc has returned, so you'll end up storing the same answer twice and asking more info that you won't store. (because the variable that is used to identify the user is unset (see complete code in your original post))

Statistics: Posted by user — Wed Jul 30, 2003 6:30 pm

Re: again me 3 :)

2003-07-30T18:08:55-04:00

But the putserv "PRIVMSG $n: this message don't appear" the bot dont say in pvt , why can it be!??!?!

Probably because "$n:" ain't on irc.

Statistics: Posted by user — Wed Jul 30, 2003 6:08 pm

Tcl scripting help

2003-07-30T14:42:09-04:00

I solved the problem, i made a proc, and call him, after i close the file and worked

Statistics: Posted by the_crow — Wed Jul 30, 2003 2:42 pm

again me 3 :)

2003-07-30T11:04:17-04:00

Hello.
I have made some thing like you said.
But i cant understand one thing.
I have made the tcl to put the variable inside a file so, i made the following

Code:

.... proc survey:msgm {n u h a} {    global surveyQ surveyA    if {[info exists surveyA($u)]} {       lappend surveyA($u) $a       if {[llength $surveyA($u)]<[llength $surveyQ]} {          # there are more questions to be asked...          putserv "PRIVMSG $n :[lindex $surveyQ [llength $surveyA($u)]]"       } {          # completed         set fp [open $n a]         puts $fp "..."         .......          close $fp         putserv "PRIVMSG $n: This message don't appear "         putserv "PRIVMSG $n :We're done. Now go away!"          putlog "$n has completed the survey:"          foreach q $surveyQ a $surveyA($u) {             putlog "Q: $q"             putlog "A: $a"          }          # DON'T keep surveyA($u) after completion. If you want tokeepthe          # list of answers use a different variable.          unset surveyA($u)

But the putserv "PRIVMSG $n: this message don't appear" the bot dont say in pvt , why can it be!??!?!

Thks one more time

Statistics: Posted by the_crow — Wed Jul 30, 2003 11:04 am

Tcl scripting help

2003-07-29T08:27:08-04:00

lindex $surveyA($u) will give you the answers by number...just set the variables from within the "completed" part. (before it's unset)
Or insert this (at the same point):

Code:

global Question1 Question2 Question3foreach {Question1 Question2 Question3} $surveyA($u) break

Statistics: Posted by user — Tue Jul 29, 2003 8:27 am

sorry

2003-07-29T07:00:24-04:00

Sorry just respond now, i went in a trip

Yes, i really understood

But can it be possible, each question, have one variable separate, just imagine:

First question to variable Qestion1
Second question to variable Question2
Third Question to variable question3

to when i want to access the variable i make $question1, $question2 or $question3

If this possible??

Thks one more time

Statistics: Posted by the_crow — Tue Jul 29, 2003 7:00 am

Re: Again me 2 :)

2003-07-27T13:09:17-04:00

I understood

No you didn't...at least not entirely ;P

Try this:

Code:

# some questionsset surveyQ {"How old are you?""Where do you live?""Can I come over to your place?"}# the bindsbind pub - !survey survey:pubbind msgm - * survey:msgm# startproc survey:pub {n u h c a} { global surveyQ surveyAset surveyA($u) {}putserv "PRIVMSG $n :[lindex $surveyQ 0]"}# fetching the answersproc survey:msgm {n u h a} {global surveyQ surveyAif {[info exists surveyA($u)]} {lappend surveyA($u) $aif {[llength $surveyA($u)]<[llength $surveyQ]} {# there are more questions to be asked...putserv "PRIVMSG $n :[lindex $surveyQ [llength $surveyA($u)]]"} {# completedputserv "PRIVMSG $n :We're done. Now go away!"putlog "$n has completed the survey:"foreach q $surveyQ a $surveyA($u) {putlog "Q: $q"putlog "A: $a"}# DON'T keep surveyA($u) after completion. If you want to keep the# list of answers use a different variable.unset surveyA($u)}}}

Was that clear? If you have questions about parts of the code, please don't re-post the entire thing, and please use the code tag to keep it readable.

Statistics: Posted by user — Sun Jul 27, 2003 1:09 pm

Again me 2 :)

2003-07-27T10:35:56-04:00

I understood

So if i want to put another text in other variable after the first one text insert, should i do this?!

bind pub - !trigger trigged
bind msgm - * input

proc trigged {n u h c a} {
global triggedBy
set triggedBy $u
putserv "PRIVMSG $n :Type something:"
}

proc input {n u h a} {
global triggedBy test
global triggedBy test2
if {[info exists triggedBy]&&[string eq $triggedBy $u]} {
set test $a
unset triggedBy
putserv "PRIVMSG $n :ok"
putserv "PRIVMSG $n : Insert another thing:"
set test2 $a
unset triggedBy
putserv "PRIVMSG $n : Ok again"
}
}

thks one more time

Statistics: Posted by the_crow — Sun Jul 27, 2003 10:35 am

Re: again me

2003-07-27T09:57:36-04:00

i put a trigger in a channel, like !teste, and then the bot, enter contact with me by pvt like this:

Put a name:

then i put a name

teste

Then the bot keeps the text "teste" in the variable test

You mean GLOBAL variable, right? To catch the reply use a msgm bind. If you need to make sure the message you get is from the user typing the trigger you could store the nick and/or uhost of the person typing the trigger some where and check for the existance of a matching value in the proc triggered by the msgm bind.

eg:

Code:

bind pub - !trigger triggedbind msgm - * inputproc trigged {n u h c a} {  global triggedBy  set triggedBy $u  putserv "PRIVMSG $n :Type something:"}proc input {n u h a} {  global triggedBy test  if {[info exists triggedBy]&&[string eq $triggedBy $u]} {    set test $a    unset triggedBy    putserv "PRIVMSG $n :ok"  }}

Statistics: Posted by user — Sun Jul 27, 2003 9:57 am

again me

2003-07-27T08:14:21-04:00

Hi.
Thks by that, but it wasn't what i want to learn

imagine this.
i put a trigger in a channel, like !teste, and then the bot, enter contact with me by pvt like this:

Put a name:

then i put a name

teste

Then the bot keeps the text "teste" in the variable test

Can you explain me this!!?!?
Thks

Statistics: Posted by the_crow — Sun Jul 27, 2003 8:14 am

Tcl scripting help

2003-07-27T06:45:43-04:00

You must be a bot master or the bot owner for this to work.
In the pvt of the bot, you type - free me and the bot will store the value "free me" in the local variable test

Code:

bind msg m "-" mypvtcommandproc mypvtcommand {nick host hand arg} {   if {$arg == ""} {       putserv "PRIVMSG $nick :You must enter a command"   } else {     set test $arg  }}

Statistics: Posted by z_one — Sun Jul 27, 2003 6:45 am