| View previous topic :: View next topic |
| Author |
Message |
Zohaib
Voice
Joined: 18 May 2011
Posts: 22
|
 Posted: Fri Feb 06, 2015 3:38 am Post subject: help with this script |
 |
|
hello,
I need help wit his script, it will read a vhost from list and say it on channel and then remove it from list too so it dont give the same reply again. I am able to made this to read random vhosts from list but how do I make it to delete that vhost from list so it is not repeated again. thanks in advance
| Code: | set vhostlist {
"vhost1.balabla.balabala"
"vhost2.balabla.balabala"
"vhost3.balabla.balabala"
"vhost4.balabla.balabala"
"vhost5.balabla.balabala"
"vhost6.balabla.balabala"
}
bind pub _ !vhost pub_vhost
proc pub_vhost {nick host hand channel args} {
putserv "PRIVMSG $channel : [randvhost $args]"
}
proc randvhost {nick} {
global vhostlist
return [lindex $vhostlist [expr int(rand()*[llength $vhostlist])]]
} |
_________________
<Zohaib> |
|
| Back to top |
|
 |
SpiKe^^
Owner
Joined: 12 May 2006
Posts: 792
Location: Tennessee, USA
|
| Posted: Fri Feb 06, 2015 12:31 pm Post subject: |
|
|
Try this... | Code: | set vhostlist {
"vhost1.balabla.balabala"
"vhost2.balabla.balabala"
"vhost3.balabla.balabala"
"vhost4.balabla.balabala"
"vhost5.balabla.balabala"
"vhost6.balabla.balabala"
}
bind pub _ !vhost pub_vhost
proc pub_vhost {nick host hand channel text} {
putserv "PRIVMSG $channel : [randvhost $text]"
}
proc randvhost {nick} {
global vhostlist
# save the index number of the chosen list item #
set ret [lindex $vhostlist [set idx [rand [llength $vhostlist]]]]
# remove the chosen item from the list #
set vhostlist [lreplace $vhostlist $idx $idx]
return $ret
} |
Note: rehashing/restarting the bot will start again with all items in the provided list.
_________________
SpiKe^^
Get BogusTrivia 2.06.4.7 at www.mytclscripts.com
or visit the New Tcl Acrhive at www.tclarchive.org
. |
|
| Back to top |
|
|
Zohaib
Voice
Joined: 18 May 2011
Posts: 22
|
| Posted: Sat Feb 07, 2015 12:59 pm Post subject: |
|
|
thanks SpiK^^ ok I try to modify it by Saving it in a vhost.txt file, then it will not start again after rehash/restart right?
_________________
<Zohaib> |
|
| Back to top |
|
|
SpiKe^^
Owner
Joined: 12 May 2006
Posts: 792
Location: Tennessee, USA
|
| Posted: Sat Feb 07, 2015 2:11 pm Post subject: |
|
|
Yes, you could put the vhosts in a text file, read them and pick one, then rewrite the file without the chosen vhost....
That would make the script remember where it was with the provided list.
When you have some of that wrote, post it back here for review:)
Goodluck,
_________________
SpiKe^^
Get BogusTrivia 2.06.4.7 at www.mytclscripts.com
or visit the New Tcl Acrhive at www.tclarchive.org
. |
|
| Back to top |
|
|
Zohaib
Voice
Joined: 18 May 2011
Posts: 22
|
| Posted: Mon Feb 09, 2015 1:27 pm Post subject: |
|
|
| Code: |
bind pub _ !vhost pub_vhost
proc pub_vhost {nick host hand channel text} {
putserv "PRIVMSG $channel : [randvhost $text]"
}
proc randvhost {nick} {
set vhostlist "/home/fun/eggdrop/scripts/vhosts.cfg"
set f [open $vhostlist r ]
set data [read -nonewline $f]
set lines [split $data "\n"]
set randline [lindex $lines [set idx [rand [llength $lines]]]]
set lines [lreplace $lines $idx $idx]
set f [open $f "w"]
puts $f [join $lines "\n"]
close $f
return $randline
} |
it reads from the line but it is not removing it. please tell me where i am doing it wrong
_________________
<Zohaib> |
|
| Back to top |
|
|
SpiKe^^
Owner
Joined: 12 May 2006
Posts: 792
Location: Tennessee, USA
|
| Posted: Mon Feb 09, 2015 10:57 pm Post subject: |
|
|
Very close, but no cigar:)
1) You opened the file for reading only, which is fine, read the contents to a variable and close the file.
2) You can't do [open $f "w"], $f is just the channel reference to the file we opened earlier, not a route/file.name
You should try something more like this...
| Code: |
bind pub _ !vhost pub_vhost
proc pub_vhost {nick host hand channel text} {
putserv "PRIVMSG $channel : [randvhost $text]"
}
proc randvhost {nick} {
set vhostlist "/home/fun/eggdrop/scripts/vhosts.cfg"
# open the vhost file, read it to a var, and close the file #
set f [open $vhostlist r]
set data [read -nonewline $f]
close $f
# split $data to a list, choose one to show, and remove it from list #
set lines [split $data "\n"]
set randline [lindex $lines [set idx [rand [llength $lines]]]]
set lines [lreplace $lines $idx $idx]
# open vhost file for writing, write the file, and close the file #
set f [open $vhostlist w]
puts $f [join $lines "\n"]
close $f
return $randline
}
|
_________________
SpiKe^^
Get BogusTrivia 2.06.4.7 at www.mytclscripts.com
or visit the New Tcl Acrhive at www.tclarchive.org
. |
|
| Back to top |
|
|
Zohaib
Voice
Joined: 18 May 2011
Posts: 22
|
| Posted: Tue Feb 10, 2015 1:13 am Post subject: |
|
|
I see. Thanks SpiKe^^ wasn't possible for me without your help. Thanks again 
_________________
<Zohaib> |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
