egghelp/eggheads community

help with this script

2015-02-10T01:13:17-04:00

I see. Thanks SpiKe^^ wasn't possible for me without your help. Thanks again

Statistics: Posted by Zohaib — Tue Feb 10, 2015 1:13 am

help with this script

2015-02-09T22:57:31-04:00

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_vhostproc 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}

Statistics: Posted by SpiKe^^ — Mon Feb 09, 2015 10:57 pm

help with this script

2015-02-09T13:27:11-04:00

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

Statistics: Posted by Zohaib — Mon Feb 09, 2015 1:27 pm

help with this script

2015-02-07T14:11:38-04:00

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,

Statistics: Posted by SpiKe^^ — Sat Feb 07, 2015 2:11 pm

help with this script

2015-02-07T12:59:51-04:00

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?

Statistics: Posted by Zohaib — Sat Feb 07, 2015 12:59 pm

help with this script

2015-02-06T12:31:10-04:00

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.

Statistics: Posted by SpiKe^^ — Fri Feb 06, 2015 12:31 pm

help with this script

2015-02-06T03:38:13-04:00

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_vhostproc 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])]]}

Statistics: Posted by Zohaib — Fri Feb 06, 2015 3:38 am