Code:

# Author: tomekk# Edited by GaRfWeN## Version 0.1## This file is Copyrighted under the GNU Public License.# http://www.gnu.org/copyleft/gpl.html###Simple lottery script#Commands:#!reg !regs#!remove#!start#!stop#well just read the script, you'll understand :pbind pub M !start start_procbind pub M !prize prize_procbind pub - !reg reg_procbind pub - !regs regs_procbind pub M !setwinner setwinnerbind pub M !stop stopbind pub M !setprize setprizebind pub M !max maxusersbind pub - "-m" menosmbind pub - "+m" maismbind pub - .not pub:serverbind pub - .notice pub:serverbind pub - !remove removebind pub - !del delbind pub - !last lastbind pub - !lotterys numberset lotterynumber "1"set corinicial "10,15\[6«5"  set corfinal "6»10\]"  set game_status 0set game_prize ""set reg_status 0set max_players 0set player_list [list]set the_winner_is ""set lotterychan "#Your Lottery Chan"set mainchan "$lotterychan"set lastwinner "None"set lastlottery ""set lastadmin ""set lastprize ""set onjoinchan "$mainchan"set lotteryadmin ""set lotterychan ""proc number {nick uhost hand chan rest} {        global lotterynumber      putquick "privmsg $chan :$::corinicial Total Lotteries: $lotterynumber $::corfinal"}bind part - * holm-join_greetproc holm-join_greet {nick uhost hand channel args} {global onjoinchan greet reg_status player_list max_players game_status game_prize the_winner_is lotteryadmin mainchan  lotteryadmin lastwinner lotterynumber      if {$game_status == 1} {        if {(([lsearch -exact [string tolower $onjoinchan] [string tolower $channel]] != -1) || ($onjoinchan == "*"))} {if { $nick == $lotteryadmin } {      putquick "PRIVMSG $mainchan :$::corinicial $nick (admin) parted, Lottery canceled  $::corfinal"       utimer 10 [list putquick "TOPIC $channel :$::corinicial Welcome² $channel $::corfinal$::corinicial Lotteries: $lotterynumber $::corfinal$::corinicial Last winner: $lastwinner $::corfinal"]      utimer 10 [list putquick "TOPIC $mainchan :$::corinicial Welcome² $channel $::corfinal$::corinicial Lotteries: $lotterynumber $::corfinal$::corinicial Last winner: $lastwinner $::corfinal"]            set game_status 0            set game_prize ""            set reg_status 0            set max_players 0            set player_list [list]            set the_winner_is ""      } else {      set searchnode "$nick;$uhost"   set pos [lsearch $player_list $searchnode]      set player_list [lreplace $player_list $pos 0]      }   }}}proc last {nick uhost hand chan rest} {        global lastadmin lastlottery lastwinner lastprize              if {$lastlottery == ""} {      putquick "privmsg $chan :$::corinicial No stats yet, sorry. $::corfinal"              } else {      putquick "privmsg $chan :$::corinicial Last Lottery was on $lastlottery, by $lastadmin $::corfinal$::corinicial Winner was: $lastwinner , and his prize was: $lastprize $::corfinal"}}proc pub:server { nick userhost handle channel text } {if {[isop $nick $channel]} {        global botnick        putquick "mode $::mainchan -N"        putquick "notice $::mainchan :$::corinicial $text ($nick) $::corfinal"        putquick "notice $::mainchan :$::corinicial $text ($nick) $::corfinal"        putquick "notice $::mainchan :$::corinicial $text ($nick) $::corfinal"        putquick "mode $::mainchan +N"}}proc setwinner {nick uhost hand chan rest} {   global the_winner_is game_status      if {$game_status == 1} {if {[isop $nick $chan]} {set the_winner_is $rest      putquick "notice $nick :$::corinicial Winner added ($rest) $::corfinal"}}}proc remove {nick uhost hand chan rest} {   global reg_status player_list max_players game_status game_prize the_winner_is       if {$game_status == 1} {        set searchnode "$nick;$uhost"   set pos [lsearch $player_list $searchnode]   if { $pos > -1 } {            set player_list [lreplace $player_list $pos 0]      putserv "NOTICE $nick :$::corinicial Removed! $::corfinal"   } else {      putserv "NOTICE $nick :$::corinicial You are not registered! $::corfinal"   }}}proc setprize {nick uhost hand chan rest} {   global game_prize max_players lastadmin game_status      if {$game_status == 1} {      putquick "privmsg $chan :$::corinicial Prize changed to: $rest $::corfinal"set game_prize $rest    utimer 5 [list putquick "TOPIC $chan :$::corinicial Lottery started $::corfinal$::corinicial Max users: $max_players $::corfinal$::corinicial Prize: $game_prize $::corfinal"]}}proc stop {nick uhost hand chan rest} {   global reg_status player_list max_players game_status game_prize the_winner_is lotterynumber lastwinner      if {$game_status == 1} {      putquick "PRIVMSG $chan :$::corinicial The game has been stopped by $nick $::corfinal"             putquick "TOPIC $chan :$::corinicial Welcome² $chan $::corfinal$::corinicial Lotteries: $lotterynumber $::corfinal$::corinicial Last winner: $lastwinner $::corfinal"            set game_status 0            set game_prize ""            set reg_status 0            set max_players 0            set player_list [list]set the_winner_is ""set lotterychan ""}}proc maxusers {nick uhost hand chan rest} {   global reg_status player_list max_players game_status game_prize the_winner_is lastadmin lastlottery lastwinner lastprize lotterychan lotterynumber mainchan      if {$game_status == 1} {      putquick "PRIVMSG $chan :$::corinicial Max-users is now $rest $::corfinal"             putquick "TOPIC $chan :$::corinicial Lottery started $::corfinal$::corinicial Max users: $max_players $::corfinal$::corinicial Prize: $game_prize $::corfinal"            set max_players $rest         if {[llength $player_list] == $max_players} {              if {$the_winner_is == ""} {            set lottery_winner [expr {int(rand() * $max_players)}]            set the_winner_is [lindex [split [lindex $player_list $lottery_winner] ";"] 0]     putquick "MODE $chan +v $the_winner_is"        putquick "mode $chan +m"set time "[clock format [clock seconds] -format {%H:%M:%S %x}]"set lastlottery $timeset lastwinner $the_winner_isset lastprize $game_prizeset lotterynumber [expr $lotterynumber +1]            putquick "PRIVMSG $chan :$::corinicial $the_winner_is you have just won the lottery! your prize is $game_prize $::corfinal"      putquick "TOPIC $chan :$::corinicial Lottery had finished. $::corfinal$::corinicial Number of Users: $max_players $::corfinal$::corinicial Prize: $game_prize $::corfinal$::corinicial Winner: $the_winner_is $::corfinal$::corinicial Brought to you by:  #aBNC - #iBots $::corfinal"            putquick "PRIVMSG $the_winner_is :$::corinicial $the_winner_is congrats ! your prize is: $game_prize $::corfinal$::corinicial Please contact the Lottery admin.$::corfinal"          utimer 15 [list putquick "TOPIC $chan :$::corinicial Welcome² $chan $::corfinal$::corinicial Lotteries: $lotterynumber $::corfinal$::corinicial Last winner: $the_winner_is $::corfinal"]          utimer 15 [list putquick "TOPIC $mainchan :$::corinicial Welcome² $chan $::corfinal$::corinicial Lotteries: $lotterynumber $::corfinal$::corinicial Last winner: $the_winner_is $::corfinal"]          utimer 16 [list putquick "mode $chan -m"]            set game_status 0            set game_prize ""            set reg_status 0            set max_players 0            set player_list [list]set the_winner_is ""set lotterychan ""                    } else {        putquick "mode $chan +m"set time "[clock format [clock seconds] -format {%H:%M:%S %x}]"set lastlottery $timeset lastwinner $the_winner_isset lastprize $game_prizeset lotterynumber [expr $lotterynumber +1]     putquick "MODE $chan +v $the_winner_is"            putquick "PRIVMSG $chan :$::corinicial $the_winner_is you have just won the lottery! your prize is $game_prize $::corfinal"      putquick "TOPIC $chan :$::corinicial Lottery had finished. $::corfinal$::corinicial Number of Users: $max_players $::corfinal$::corinicial Prize: $game_prize $::corfinal$::corinicial Winner: $the_winner_is $::corfinal$::corinicial Brought to you by:  #aBNC - #iBots $::corfinal"            putquick "PRIVMSG $the_winner_is :$::corinicial $the_winner_is congrats ! your prize is: $game_prize $::corfinal$::corinicial Please contact the Lottery admin.$::corfinal"          utimer 15 [list putquick "TOPIC $chan :$::corinicial Welcome² $chan $::corfinal$::corinicial Lotteries: $lotterynumber $::corfinal$::corinicial Last winner: $the_winner_is $::corfinal"]          utimer 15 [list putquick "TOPIC $mainchan :$::corinicial Welcome² $chan $::corfinal$::corinicial Lotteries: $lotterynumber $::corfinal$::corinicial Last winner: $the_winner_is $::corfinal"]          utimer 16 [list putquick "mode $chan -m"]            set game_status 0            set game_prize ""            set reg_status 0            set max_players 0            set player_list [list]set the_winner_is ""set lotterychan ""            }         }   }}proc start_proc { nick uhost hand chan arg } {   global max_players game_status   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            putquick "PRIVMSG $chan :$::corinicial Trying to start a lottery with $max_players users (please type !prize <prize> to start.) $::corfinal"      }   }}proc prize_proc { nick uhost hand chan arg } {   global game_status reg_status max_players game_prize lastadmin lotteryadmin lotterychan   if {$game_prize == ""} {      if {$game_status == 1} {         if {$arg != ""} {            set game_prize $arg            set reg_status 1        putquick "mode $chan +m"set lastadmin $nickset lotteryadmin $nick set lotterychan $chan      putquick "TOPIC $chan :$::corinicial Lottery starting! $::corfinal$::corinicial Be ready !!! $::corfinal$::corinicial Lottery admin: $nick $::corfinal"            putquick "PRIVMSG $chan :$::corinicial Removing Moderated in 10 seconds $::corfinal"    utimer 10 [list putquick "mode $chan -m"]    utimer 9 [list putquick "TOPIC $chan :$::corinicial Lottery started $::corfinal$::corinicial Max users: $max_players $::corfinal$::corinicial Prize: $game_prize $::corfinal"]         }      }   }}proc reg_proc { nick uhost hand chan arg } {   global reg_status player_list max_players game_status game_prize the_winner_is lastadmin lastlottery lastwinner lastprize lotterychan lotterynumber mainchan   if {$reg_status == 0} {            putquick "PRIVMSG $chan :$::corinicial There is no lottery game started ! $::corfinal"         } else {      set player_exists 0      foreach new_player $player_list {   set gimme_host [lindex [split $new_player ";"] 1]   set current_in [llength $player_list]       if {$gimme_host == $uhost} {            set player_exists 1            putquick "NOTICE $nick :$::corinicial You can only add one time with that adress $::corfinal"            break    }  }      if {$player_exists == 0} {         lappend player_list "$nick;$uhost"         if {[llength $player_list] == $max_players} {              if {$the_winner_is == ""} {            set lottery_winner [expr {int(rand() * $max_players)}]            set the_winner_is [lindex [split [lindex $player_list $lottery_winner] ";"] 0]     putquick "MODE $chan +v $the_winner_is"        putquick "mode $chan +m"set time "[clock format [clock seconds] -format {%H:%M:%S %x}]"set lastlottery $timeset lastwinner $the_winner_isset lastprize $game_prizeset lotterynumber [expr $lotterynumber +1]            putquick "PRIVMSG $chan :$::corinicial $the_winner_is you have just won the lottery! your prize is $game_prize $::corfinal"      putquick "TOPIC $chan :$::corinicial Lottery had finished. $::corfinal$::corinicial Number of Users: $max_players $::corfinal$::corinicial Prize: $game_prize $::corfinal$::corinicial Winner: $the_winner_is $::corfinal$::corinicial Brought to you by:  #aBNC - #iBots $::corfinal"          utimer 15 [list putquick "TOPIC $chan :$::corinicial Welcome² $chan $::corfinal$::corinicial Lotteries: $lotterynumber $::corfinal$::corinicial Last winner: $the_winner_is $::corfinal"]          utimer 15 [list putquick "TOPIC $mainchan :$::corinicial Welcome² $chan $::corfinal$::corinicial Lotteries: $lotterynumber $::corfinal$::corinicial Last winner: $the_winner_is $::corfinal"]            putquick "PRIVMSG $the_winner_is :$::corinicial $the_winner_is congrats ! your prize is: $game_prize $::corfinal$::corinicial Please contact the Lottery admin.$::corfinal"                     utimer 16 [list putquick "mode $chan -m"]            set game_status 0            set game_prize ""            set reg_status 0            set max_players 0            set player_list [list]            set the_winner_is ""set lotterychan ""                    } else {     putquick "MODE $chan +v $the_winner_is"        putquick "mode $chan +m"set time "[clock format [clock seconds] -format {%H:%M:%S %x}]"set lastlottery $timeset lastwinner $the_winner_isset lastprize $game_prizeset lotterynumber [expr $lotterynumber +1]            putquick "PRIVMSG $chan :$::corinicial $the_winner_is you have just won the lottery! your prize is $game_prize $::corfinal"      putquick "TOPIC $chan :$::corinicial Lottery had finished. $::corfinal$::corinicial Number of Users: $max_players $::corfinal$::corinicial Prize: $game_prize $::corfinal$::corinicial Winner: $the_winner_is $::corfinal$::corinicial Brought to you by:  #aBNC - #iBots $::corfinal"          utimer 15 [list putquick "TOPIC $chan :$::corinicial Welcome² $chan $::corfinal$::corinicial Lotteries: $lotterynumber $::corfinal$::corinicial Last winner: $the_winner_is $::corfinal"]            putquick "PRIVMSG $the_winner_is :$::corinicial $the_winner_is congrats ! your prize is: $game_prize $::corfinal$::corinicial Please contact the Lottery admin.$::corfinal"          utimer 16 [list putquick "mode $chan -m"]            set game_status 0            set game_prize ""            set reg_status 0            set max_players 0            set player_list [list]set the_winner_is ""set lotterychan ""            }         }      }   }}proc regs_proc { nick uhost hand chan arg } {   global reg_status max_players game_prize player_list   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 {$reg_status == 1} {      putquick "PRIVMSG $chan :$::corinicial Total regs: $current_in/$max_players: $rdy_player_list $::corfinal$::corinicial Prize: $game_prize $::corfinal"   }}proc menosm {nick host hand chan text} {if {[isop $nick $chan]} {        putquick "mode $chan -m"}}proc maism {nick host hand chan text} {if {[isop $nick $chan]} {        putquick "mode $chan +m"}}putlog "lottery.tcl by tomekk, edited by GaRfWeN loaded"