egghelp/eggheads community

Lottery

2021-04-29T14:37:35-04:00

thank you CrazyCat for the reply.. i have added the code as you posted.

see below;

Code:

# Author: tomekk# e-mail:  tomekk/@/tomekk/./org# home page: http://tomekk.org/## Version 0.2## This file is Copyrighted under the GNU Public License.# http://www.gnu.org/copyleft/gpl.html# lottery setup (stop/start/prize) only for channel ops?# 1 - only ops# 0 - everyoneset lottery_setup_for_ops 0bind pub - !start start_procbind pub - !stop stop_procbind pub - !prize prize_procbind pub - !lottery lottery_procbind pub - !reg reg_procbind pub - !regs regs_procproc set_defaults {} {   global game_status game_prize reg_status max_players player_list started_by   set game_status 0   set game_prize "0"   set reg_status 0   set max_players 0   set player_list [list]   set started_by ""}set_defaultsproc start_proc { nick uhost hand chan arg } {   global max_players game_status started_by lottery_setup_for_ops   if {$lottery_setup_for_ops == 1} {      if {[isop $nick $chan] == 0} {         putquick "PRIVMSG $chan :Sorry, @ needed."         return      }   }   putserv "PRIVMSG $chan :ok, tryin' to start"   if {$game_status == 0} {      set players_num [lindex [split $arg] 0]      if {[regexp {^([0-9]+)$} $players_num]} {         set max_players $players_num         set game_status 1         set started_by "$nick <$uhost>"      } else {         putserv "PRIVMSG $chan :Syntax is !start "      }   } else {      putquick "PRIVMSG $chan :Lottery already started by: $started_by"   }}proc stop_proc { nick uhost hand chan arg } {   global game_status lottery_setup_for_ops   if {$lottery_setup_for_ops == 1} {      if {[isop $nick $chan] == 0} {         putquick "PRIVMSG $chan :Sorry, @ needed."         return      }   }   if {$game_status == 1} {      putquick "PRIVMSG $chan :Lottery wiped."      set_defaults   } else {      putquick "PRIVMSG $chan :Lottery not started."   }}proc prize_proc { nick uhost hand chan arg } {   global game_status reg_status max_players game_prize lottery_setup_for_ops   if {$lottery_setup_for_ops == 1} {      if {[isop $nick $chan] == 0} {         putquick "PRIVMSG $chan :Sorry, @ needed."         return      }   }   if {$game_prize == ""} {      if {$game_status == 1} {         if {$arg != ""} {            set game_prize $arg            set reg_status 1            putquick "PRIVMSG $chan :Lottery starting! Max users: $max_players (prize: $game_prize)"         }      } else {         putquick "PRIVMSG $chan :Lottery not started."      }   } else {      putquick "PRIVMSG $chan :Prize already set: $game_prize"   }}proc lottery_proc { nick uhost hand chan arg } {   global game_status game_prize max_players started_by   if {$game_status == 1} {      if {$game_prize != ""} {         putquick "PRIVMSG $chan :Lottery started by: $started_by, max players: $max_players, prize: $game_prize"      } else {         putquick "PRIVMSG $chan :Lottery started by: $started_by, max players: $max_players, prize: *not set*"      }   } else {      putquick "PRIVMSG $chan :Lottery not started."   }}proc reg_proc { nick uhost hand chan arg } {   global reg_status player_list max_players game_status game_prize   if {$reg_status == 1} {      set player_exists 0      foreach new_player $player_list {         set gimme_host [lindex [split $new_player ";"] 1]         if {$gimme_host == $uhost} {            set player_exists 1            break         }      }      if {$player_exists == 0} {         lappend player_list "$nick;$uhost"         if {[llength $player_list] == $max_players} {            set lottery_winner [expr {int(rand() * $max_players)}]            set the_winner_is [lindex [split [lindex $player_list $lottery_winner] ";"] 0]            putquick "PRIVMSG $chan :Ok we have a winner ! $the_winner_is"            set_defaults            }      }   } else {      putquick "PRIVMSG $chan :Prize not set, can't register - sorry."   }}proc regs_proc { nick uhost hand chan arg } {   global reg_status max_players game_prize player_list   if {$reg_status == 1} {      set current_in [llength $player_list]      set rdy_player_list [list]      foreach lt_player $player_list {         if {$lt_player != ""} {            set need_only_nick [lindex [split $lt_player ";"] 0]            lappend rdy_player_list $need_only_nick         }      }      if {$rdy_player_list == ""} {         set rdy_player_list "-"      } {         set rdy_player_list [join $rdy_player_list ", "]      }      if {$current_in > 0} {         putquick "PRIVMSG $chan :Regs atm $current_in/$max_players: $rdy_player_list (prize: $game_prize)"      } else {         putquick "PRIVMSG $chan :No regs atm."      }   } else {      putquick "PRIVMSG $chan :Prize not set, so no regs stats."   }}putlog "lottery.tcl ver 0.2 by tomekk loaded"

but then, this script need to be modified after all.

Code:

<@JohnDoe> !start<@Janebot> ok, tryin' to start<@Janebot> Syntax is !start <@JohnDoe> !start 10<@Janebot> ok, tryin' to start<@JohnDoe> !lottery<@Janebot> Lottery started by: JohnDoe , max players: 10, prize: 1000000

Another...

Code:

<@JohnDoe> !start 4<@Janebot> ok, tryin' to start<@testers> !prize 1000000000<@Janebot> Prize already set: 1000000<@testers> !regs<@Janebot> Prize not set, so no regs stats.<@testers> !reg<@Janebot> Prize not set, so no regs stats.

Thank you for the help CrazyCat..

Statistics: Posted by aslpls — Thu Apr 29, 2021 2:37 pm

Lottery

2021-04-29T12:00:56-04:00

Replace the actual start_proc:

Code:

proc start_proc { nick uhost hand chan arg } {   global max_players game_status started_by lottery_setup_for_ops   if {$lottery_setup_for_ops == 1} {      if {[isop $nick $chan] == 0} {         putquick "PRIVMSG $chan :Sorry, @ needed."         return      }   }   if {$game_status == 0} {      set players_num [lindex [split $arg] 0]      if {[regexp {^([0-9]+)$} $players_num]} {         set max_players $players_num         set game_status 1         set started_by "$nick <$uhost>"      }   } else {      putquick "PRIVMSG $chan :Lottery already started by: $started_by"   }}

with this one:

Code:

proc start_proc { nick uhost hand chan arg } {   global max_players game_status started_by lottery_setup_for_ops   if {$lottery_setup_for_ops == 1} {      if {[isop $nick $chan] == 0} {         putquick "PRIVMSG $chan :Sorry, @ needed."         return      }   }   putserv "PRIVMSG $chan :ok, tryin' to start"   if {$game_status == 0} {      set players_num [lindex [split $arg] 0]      if {[regexp {^([0-9]+)$} $players_num]} {         set max_players $players_num         set game_status 1         set started_by "$nick <$uhost>"      } else {         putserv "PRIVMSG $chan :Syntax is !start "      }   } else {      putquick "PRIVMSG $chan :Lottery already started by: $started_by"   }}

Statistics: Posted by CrazyCat — Thu Apr 29, 2021 12:00 pm

Lottery

2021-04-29T11:25:43-04:00

i tried that option already.. but still no luck..

Statistics: Posted by aslpls — Thu Apr 29, 2021 11:25 am

Lottery

2021-04-29T10:40:38-04:00

The script lacks an error message.
The command is !start

Statistics: Posted by CrazyCat — Thu Apr 29, 2021 10:40 am

Lottery

2021-04-28T13:05:46-04:00

The documentation for the script is essentially:
#well just read the script, you'll understand :p

sorry my bad..
see here what i mean..

Code:

https://pasteboard.co/JZrJCsh.jpg

already set for everyone..

Code:

https://pasteboard.co/JZrK1ov.jpg

nothing to show in the channel..

one more thing, if the bot join multiple channels.. it will enable the game to all channels.

please help, i don't know how to do scripts, i only test and use it.. im using eggdrop1.6.21

thanks in advance.

Statistics: Posted by aslpls — Wed Apr 28, 2021 1:05 pm

Lottery

2021-04-28T11:10:10-04:00

Don't double-post, don't do thread-necrophilia

Statistics: Posted by CrazyCat — Wed Apr 28, 2021 11:10 am

Lottery

2021-04-28T02:03:00-04:00

!start not working .. its not showing in the channel

Statistics: Posted by aslpls — Wed Apr 28, 2021 2:03 am

Lottery

2015-12-27T13:44:24-04:00

added: !stop, !lottery commands, setup commands for ops or everyone (configured in script)
fixed: some logic in the script

Update on request.

Code:

# Author: tomekk# e-mail:  tomekk/@/tomekk/./org# home page: http://tomekk.org/## Version 0.2## This file is Copyrighted under the GNU Public License.# http://www.gnu.org/copyleft/gpl.html# lottery setup (stop/start/prize) only for channel ops?# 1 - only ops# 0 - everyoneset lottery_setup_for_ops 1bind pub - !start start_procbind pub - !stop stop_procbind pub - !prize prize_procbind pub - !lottery lottery_procbind pub - !reg reg_procbind pub - !regs regs_procproc set_defaults {} {global game_status game_prize reg_status max_players player_list started_byset game_status 0set game_prize ""set reg_status 0set max_players 0set player_list [list]set started_by ""}set_defaultsproc start_proc { nick uhost hand chan arg } {global max_players game_status started_by lottery_setup_for_opsif {$lottery_setup_for_ops == 1} {if {[isop $nick $chan] == 0} {putquick "PRIVMSG $chan :Sorry, @ needed."return}}if {$game_status == 0} {set players_num [lindex [split $arg] 0]if {[regexp {^([0-9]+)$} $players_num]} {set max_players $players_numset game_status 1set started_by "$nick <$uhost>"}} else {putquick "PRIVMSG $chan :Lottery already started by: $started_by"}}proc stop_proc { nick uhost hand chan arg } {global game_status lottery_setup_for_opsif {$lottery_setup_for_ops == 1} {if {[isop $nick $chan] == 0} {putquick "PRIVMSG $chan :Sorry, @ needed."return}}if {$game_status == 1} {putquick "PRIVMSG $chan :Lottery wiped."set_defaults} else {putquick "PRIVMSG $chan :Lottery not started."}}proc prize_proc { nick uhost hand chan arg } {global game_status reg_status max_players game_prize lottery_setup_for_opsif {$lottery_setup_for_ops == 1} {if {[isop $nick $chan] == 0} {putquick "PRIVMSG $chan :Sorry, @ needed."return}}if {$game_prize == ""} {if {$game_status == 1} {if {$arg != ""} {set game_prize $argset reg_status 1putquick "PRIVMSG $chan :Lottery starting! Max users: $max_players (prize: $game_prize)"}} else {putquick "PRIVMSG $chan :Lottery not started."}} else {putquick "PRIVMSG $chan :Prize already set: $game_prize"}}proc lottery_proc { nick uhost hand chan arg } {global game_status game_prize max_players started_byif {$game_status == 1} {if {$game_prize != ""} {putquick "PRIVMSG $chan :Lottery started by: $started_by, max players: $max_players, prize: $game_prize"} else {putquick "PRIVMSG $chan :Lottery started by: $started_by, max players: $max_players, prize: *not set*"}} else {putquick "PRIVMSG $chan :Lottery not started."}}proc reg_proc { nick uhost hand chan arg } {global reg_status player_list max_players game_status game_prizeif {$reg_status == 1} {set player_exists 0foreach new_player $player_list {set gimme_host [lindex [split $new_player ";"] 1]if {$gimme_host == $uhost} {set player_exists 1break}}if {$player_exists == 0} {lappend player_list "$nick;$uhost"if {[llength $player_list] == $max_players} {set lottery_winner [expr {int(rand() * $max_players)}]set the_winner_is [lindex [split [lindex $player_list $lottery_winner] ";"] 0]putquick "PRIVMSG $chan :Ok we have a winner ! $the_winner_is"set_defaults}}} else {putquick "PRIVMSG $chan :Prize not set, can't register - sorry."}}proc regs_proc { nick uhost hand chan arg } {global reg_status max_players game_prize player_listif {$reg_status == 1} {set current_in [llength $player_list]set rdy_player_list [list]foreach lt_player $player_list {if {$lt_player != ""} {set need_only_nick [lindex [split $lt_player ";"] 0]lappend rdy_player_list $need_only_nick}}if {$rdy_player_list == ""} {set rdy_player_list "-"} {set rdy_player_list [join $rdy_player_list ", "]}if {$current_in > 0} {putquick "PRIVMSG $chan :Regs atm $current_in/$max_players: $rdy_player_list (prize: $game_prize)"} else {putquick "PRIVMSG $chan :No regs atm."}} else {putquick "PRIVMSG $chan :Prize not set, so no regs stats."}}putlog "lottery.tcl ver 0.2 by tomekk loaded"

Statistics: Posted by tomekk — Sun Dec 27, 2015 1:44 pm

Lottery

2008-12-05T16:36:28-04:00

its working

thanks !!!

Statistics: Posted by garfwen — Fri Dec 05, 2008 4:36 pm

Lottery

2008-12-01T16:07:12-04:00

Code:

# Author: tomekk# e-mail:  tomekk/@/oswiecim/./eu/./org# home page: http://tomekk.oswiecim.eu.org/## Version 0.1## This file is Copyrighted under the GNU Public License.# http://www.gnu.org/copyleft/gpl.htmlbind pub - !start start_procbind pub - !prize prize_procbind pub - !reg reg_procbind pub - !regs regs_procset game_status 0set game_prize ""set reg_status 0set max_players 0set player_list [list]proc start_proc { nick uhost hand chan arg } {global max_players game_statusif {$game_status == 0} {set players_num [lindex [split $arg] 0]if {[regexp {^([0-9]+)$} $players_num]} {set max_players $players_numset game_status 1}}}proc prize_proc { nick uhost hand chan arg } {global game_status reg_status max_players game_prizeif {$game_prize == ""} {if {$game_status == 1} {if {$arg != ""} {set game_prize $argset reg_status 1putquick "PRIVMSG $chan :Lottery starting! Max users: $max_players (prize: $game_prize)"}}}}proc reg_proc { nick uhost hand chan arg } {global reg_status player_list max_players game_status game_prizeif {$reg_status == 1} {set player_exists 0foreach new_player $player_list {set gimme_host [lindex [split $new_player ";"] 1]if {$gimme_host == $uhost} {set player_exists 1break}}if {$player_exists == 0} {lappend player_list "$nick;$uhost"if {[llength $player_list] == $max_players} {set lottery_winner [expr {int(rand() * $max_players)}]set the_winner_is [lindex [split [lindex $player_list $lottery_winner] ";"] 0]putquick "PRIVMSG $chan :Ok we have a winner ! $the_winner_is"set game_status 0set game_prize ""set reg_status 0set max_players 0set player_list [list]}}}}proc regs_proc { nick uhost hand chan arg } {global reg_status max_players game_prize player_listset current_in [llength $player_list]set rdy_player_list [list]foreach lt_player $player_list {if {$lt_player != ""} {set need_only_nick [lindex [split $lt_player ";"] 0]lappend rdy_player_list $need_only_nick}}if {$rdy_player_list == ""} {set rdy_player_list "-"} {set rdy_player_list [join $rdy_player_list ", "]}if {$reg_status == 1} {putquick "PRIVMSG $chan :Regs atm $current_in/$max_players: $rdy_player_list (prize: $game_prize)"}}putlog "lottery.tcl ver 0.1 by tomekk loaded"

try it

there can't be two nicks with the same name in da lottery (based on user host)

script is working in "memory", after restart u need to start lottery again etc..

Statistics: Posted by tomekk — Mon Dec 01, 2008 4:07 pm

Lottery

2008-12-01T12:54:22-04:00

Hello

Im looking for a simple script like:

Pvt eggdrop:
!start 4
(4 is the number of max users)
!prize CSS-Acount

Channel:
Lottery starting! Max users 4
!reg
!reg
!regs
Regs atm 2/4: nick1 , nick2
!reg
!reg
Ok we have a winner ! $WinnerNick

The winner should be sorted

Can you do something like that ?

Ty.

Statistics: Posted by garfwen — Mon Dec 01, 2008 12:54 pm