Script MSG Problem !

[stalix]

Code: Select all

set dbfile "scripts/hello.txt"

bind pub - hello aleatory

proc aleatory {nick uhost hand chan arg} {
 global dbfile
 set r [lindex [set d [split [read [set f [open $dbfile]]] \n]] [rand [llength $d]]]
 puthelp "PRIVMSG $chan : $r"
 close $f
}

I have this scripts but i want have a similar script simultanion with this, i want hello and bye but in other file bye.txt. is possible?

thanks.

[Sir_Fz]

That's very simple since you already have everything done, just bind to bye, create a file for byes and a similar proc to the one you have for hello.

[stalix]

i make this but the "bye" takes the file of "hello"

[Sir_Fz]

That because you're using dbfile in the bye proc, create another variable for example

Code: Select all

set dbfile2 "scripts/bye.txt"

and instead of

Code: Select all

[open $dbfile]

use

Code: Select all

[open $dbfile2]

[stalix]

dont work the eggdrop To continue use the DB of first TCL. :S

[metroid]

post your code and we might see what your doing wrong.

[stalix]

set dbfile2 "scripts/bye.txt"

bind pub - bye aleatory

proc aleatory {nick uhost hand chan arg} {
global dbfile
set r [lindex [set d [split [read [set f [open $dbfile2]]] \n]] [rand [llength $d]]]
puthelp "PRIVMSG $chan : $r"
close $f
}

and goes to first txt hello.txt

[Sir_Fz]

You have to change the name of the proc too (i.e. aleatory2 instead of aleatory) since you're still using aleatory for hello. Also, dbfile should be dbfile2 (in the global).

[stalix]

You have to change the name of the proc too (i.e. aleatory2 instead of aleatory) since you're still using aleatory for hello. Also, dbfile should be dbfile2 (in the global).

i dont undersantd can modify the script ? thx

[Sir_Fz]

I hope you finally understand after you see this, I really really hope so.

Code: Select all

set dbfile "scripts/hello.txt"
set dbfile2 "scripts/bye.txt"

bind pub - hello aleatory
bind pub - bye aleatory2

proc aleatory {nick uhost hand chan arg} {
 global dbfile
 set r [lindex [set d [split [read [set f [open $dbfile]]] \n]] [rand [llength $d]]]
 puthelp "PRIVMSG $chan : $r"
 close $f
}

proc aleatory2 {nick uhost hand chan arg} {
 global dbfile2
 set r [lindex [set d [split [read [set f [open $dbfile2]]] \n]] [rand [llength $d]]]
 puthelp "PRIVMSG $chan : $r"
 close $f
}

[stalix]

very thanks !