###############################################################################
#
#Lotto 6-49 1.1 Loaded
#
#The famouse lottery game Lotto 6-49 .
#
#Commands :
#
#!lotto on - enable Lotto 6-49
#!lotto off - disable Lotto 6-49
#!lotto - start the Lotto 6-49 game
#!lotto reset - reset the game if it freezes.
#!lotto version - version info
#!lotto help - help menu
#
#              ------------- Version 1.1 --------------
#New Commands :
#             
#!lotto <nick1> <nick2>.. - start a private game with who you desire
#!lotto <botnick> - start a game against your eggdrop. offCourse <botnick> can be added with other players on a private game.
#!lotto <nick1> <botnick> <nick2> start a private game with your friends and eggdrop
#
#Repaired some bugs :)
#                                             BLaCkShaDoW ProductionS
#                                                [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
###############################################################################

bind pub -|- !lotto game:start
bind pub -|- !enter game:enter
bind pub -|- !number game:numbers

setudef flag lotto

proc game:start {nick host hand chan arg} {
global lotto
set flag [lindex [split $arg] 0]
set choose_players [lrange [split $arg] 0 end]
set ::lotto_chan $chan
switch -exact -- [string tolower $flag] {
reset {
if {[matchattr $hand mn|o $chan]} {
puthelp "PRIVMSG $chan :Reseted the game."
game:clear
return 0
}
}

on {
if {[matchattr $hand mn|o $chan]} {
channel set $chan +lotto
puthelp "PRIVMSG $chan :Enabled 3Lotto 6-49.To play type 3!lotto3"
return 0
}
}

off {
if {[matchattr $hand mn|o $chan]} {
channel set $chan -lotto
puthelp "PRIVMSG $chan :Disabled 3Lotto 6-49."
return 0
}
}

help {
if {[matchattr $hand mn|o $chan]} {
puthelp "PRIVMSG $chan :To enable 3Lotto 6-49 type 3!lotto <on> . To disable 3!lotto <off>"
puthelp "PRIVMSG $chan :To play type 3!lotto | To play a private game : !lotto <nick1> <nick2> <botnick>..etc (where <botnick> the name of your eggdrop)."
puthelp "PRIVMSG $chan :If the game freezes type 3!lotto reset"
puthelp "PRIVMSG $chan :To find out information about the script type 3!lotto version" 
return 0 
}
}

version {
puthelp "PRIVMSG $chan :3Lotto 6-49 version 1.1 by 3BLaCkShaDoW.for other TCL`s 3
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
The Next Generation TCL -"
return 0 version
}
 
}

if {[info exists lotto(start)]} {
puthelp "PRIVMSG $chan :3Lotto 6-49 is running already, please try again later"
return 0
}
if {![channel get $chan lotto]} {
puthelp "PRIVMSG $chan :3Lotto 6-49 is not enabled.To Enable type 3!lotto <on> (+o only)"
return 0 
} 

if {$choose_players != ""} {
lappend lotto(players:$chan) "[join $nick]"
foreach player $choose_players {
if {[onchan $player $chan] && ($player != $nick)} {
    lappend lotto(players:$chan) "[join $player]"
    set lotto(players:$chan) [lsort -unique $lotto(players:$chan)]
    }
}

if {[llength $lotto(players:$chan)] < 2} {
    puthelp "PRIVMSG $chan :Couldnt start 3Lotto 6-49. Reason: there are no players."
    game:clear  
    return 0 
}
if {[info exists lotto(players:$chan)]} {
puthelp "PRIVMSG $chan :3Lotto 6-49 starts with a private game. Get prepaired ! :D"
puthelp "NOTICE $nick :Added as players : $lotto(players:$chan)"
utimer 3 [list game:run $chan] 
set lotto(start) 1
}
return 0
}

puthelp "PRIVMSG $chan :3Lotto 6-49 started.Waitting 30 seconds for the users to enter. To enter type 3!enter"
lappend lotto(players:$chan) $nick
utimer 30 [list game:run $chan] 
set lotto(start) 1

}


proc game:clear {} {
global lotto
set chan $::lotto_chan
if {[info exists lotto(players:$chan)]} {
foreach playa $lotto(players:$chan) {
if {[info exists lotto(numbers:$playa:$chan)]} {
unset lotto(numbers:$playa:$chan)
}
if {[info exists lotto(setnumber:$playa:$chan)]} {
unset lotto(setnumber:$playa:$chan)
}
if {[info exists lotto(Waitnumber:$playa:$chan)]} {
unset lotto(Waitnumber:$playa:$chan)
}
if {[info exists lotto(count:results:$playa:$chan)]} {
unset lotto(count:results:$playa:$chan)
}

if {[info exists lotto(show:numbers:$playa:$chan)]} {
unset lotto(show:numbers:$playa:$chan)
}

if {[info exists lotto(cpu:numbers:$chan)]} {
unset lotto(cpu:numbers:$chan)
}

if {[info exists lotto(results:$playa:$chan)]} {
unset lotto(results:$playa:$chan)
}
}
}
foreach tmr [utimers] {
if {[string match "*game:*" [join [lindex $tmr 1]]]} {
killutimer [lindex $tmr 2]
}
}
if {[info exists lotto(start)]} {
unset lotto(start)
}
if {[info exists lotto(players:$chan)]} {
unset lotto(players:$chan)
}
if {[info exists lotto(i:$chan)]} {
unset lotto(i:$chan)
}
if {[info exists lotto(number:start:$chan)]} {
unset lotto(number:start:$chan)
}
if {[info exists lotto(won:players:$chan)]} {
unset lotto(won:players:$chan)
}

if {[info exists lotto(is:player:$chan)]} {
unset lotto(is:player:$chan)
}
if {[info exists lotto(extragere:$chan)]} {
unset lotto(extragere:$chan)
}

if {[info exists lotto(count:extragere:$chan)]} {
unset lotto(count:extragere:$chan)
}


}

proc game:enter {nick host hand chan arg} {
global lotto count
if {[channel get $chan lotto]} {
if {![info exists lotto(start)]} {
return 0
}
foreach ply $lotto(players:$chan) {
if {[string equal -nocase $ply $nick]} {
puthelp "NOTICE $nick :Your are already a player in this game."
return 0 
}
}
if {[info exists lotto(number:start:$chan)]} {
puthelp "NOTICE $nick :The game started already..you cant enter !."
return 0 
}
lappend lotto(players:$chan) "[join $nick]"
puthelp "PRIVMSG $chan :## $nick ## joined in this game of 3Lotto 6-49."
}
} 

proc game:run {chan} {
global lotto
if {[llength $lotto(players:$chan)] == "1"} {
puthelp "PRIVMSG $chan :No One joined this game. 3Lotto 6-49 stopped."
game:clear 
return 0 
}
puthelp "PRIVMSG $chan :Starting 3Lotto 6-49."
puthelp "PRiVMSG $chan :Players are : 3$lotto(players:$chan)"
puthelp "PRIVMSG $chan :Now to get the numbers.."
game:player $chan
} 

proc cpu:number:chose {chan} {
global lotto botnick
set maxnumber "48"
set randnumber [expr [rand $maxnumber] +1]
if {![info exists lotto(numbers:$botnick:$chan)]} {
lappend lotto(numbers:$botnick:$chan) "[join $randnumber]"
}
while {[lsearch -integer -exact $lotto(numbers:$botnick:$chan) $randnumber] < 0} {
lappend lotto(numbers:$botnick:$chan) "[join $randnumber]"
}
cpu:number:chose:again $chan
}

proc cpu:number:chose:again {chan} {
global lotto botnick
if {[llength $lotto(numbers:$botnick:$chan)] < 6} {
cpu:number:chose $chan
}
}


proc game:player {chan} {
global lotto botnick
if {![info exists lotto(i:$chan)]} {
set lotto(i:$chan) 0
}
set player [lindex $lotto(players:$chan) $lotto(i:$chan)]
incr lotto(i:$chan) +1
set lotto(Waitnumber:$player:$chan) 1
puthelp "PRIVMSG $chan :Its your turn 3$player please type 3!number <number1> <number2> <number3> <number4> <number5> <number6> to choose your numbers 3(from 1 to 49). You got 60 seconds."
if {[onchan $player $chan] && (![isbotnick $player])} { puthelp "NOTICE $player :ALERT ! please set your numbers for 3Lotto 6-49 on $chan" }
if {[string equal -nocase $player $botnick]} { 
cpu:number:chose $chan   
set lotto(setnumber:$player:$chan) 1
utimer 3 [list puthelp "PRIVMSG $chan :!number $lotto(numbers:$player:$chan)"]
utimer 5 [list game:player:start $chan $player]
return 0
}
set lotto(number:start:$chan) 1
utimer 60 [list game:player:start $chan $player]
}

proc game:player:start {chan player} {
global lotto
if {![info exists lotto(setnumber:$player:$chan)]} {
puthelp "PRIVMSG $chan :## $player ## didnt choose his numbers..skipping .."
if {[info exists lotto(Waitnumber:$player:$chan)]} {
unset lotto(Waitnumber:$player:$chan) 
}
}
if {[llength $lotto(players:$chan)] != $lotto(i:$chan)} {
game:player $chan
} else {
if {[info exists lotto(players:$chan)]} {
foreach playa $lotto(players:$chan) {
if {[info exists lotto(numbers:$playa:$chan)]} {
lappend lotto(is:player:$chan) $playa
}
}
}
game:extragere $chan
utimer 5 [list game:output $chan]
}
}


proc game:output {chan} {
global lotto botnick
if {![info exists lotto(is:player:$chan)]} {
puthelp "PRIVMSG $chan :No One set their numbers..stopping 3Lotto 6-49."
game:clear 
return 0
} 
puthelp "PRIVMSG $chan :The numbers where choosen. Starting the lottery .."
puthelp "PRIVMSG $chan :The lottery numbers were choosen.."
puthelp "PRIVMSG $chan :Let see the results .."
puthelp "PRIVMSG $chan :The Lottery numbers are : 3 $lotto(extragere:$chan) "
foreach player $lotto(players:$chan) {
game:results:show $chan $player
if {[info exists lotto(show:numbers:$player:$chan)]} {
array set totalnum [list]
set num [llength $lotto(show:numbers:$player:$chan)]
lappend totalnum($num) $player
puthelp "PRIVMSG $chan : ## $player ## has 3 [llength $lotto(show:numbers:$player:$chan)] from 6  numbers guessed. The numbers are (- 3 $lotto(show:numbers:$player:$chan)  -)"
if {[llength $lotto(show:numbers:$player:$chan)] > 2} {
if {[onchan $player $chan] && (![isvoice $player $chan]) && (![isop $player $chan]) && [isop $botnick $chan]} {
puthelp "PRIVMSG $chan :## $player ## gets 3VOICE (+v) because he guessed 3 [llength $lotto(show:numbers:$player:$chan)] from 6  numbers :D . Congrats !"
puthelp "MODE $chan +v $player"
}
}

} else { puthelp "PRIVMSG $chan : ## $player ## Didnt guessed any numbers !"}

}
foreach car [lsort -integer -increasing [array names totalnum]] {
set max "$car"
}
if {[info exists num]} {
lappend winners "### The winners are : 4[join $totalnum($max) ", "] with 12($max) numbers guessed. ###"
} else { set winners "### No one won :( ###" }
game:clear
if {![info exists lotto(start:$chan)]} {
if {[info exists winners]} {
puthelp "PRIVMSG $chan :[join $winners]"
}
puthelp "PRIVMSG $chan :End of game.."
}
}

proc game:results:show {chan player} {
global lotto
if {[info exists lotto(numbers:$player:$chan)]} {
foreach ex $lotto(extragere:$chan) {
if {[lsearch -exact [join $lotto(numbers:$player:$chan)] $ex] > -1} {
lappend lotto(show:numbers:$player:$chan) "[join $ex]"
}
}
}
}


proc game:extragere {chan} {
global lotto
set lotto_numbers "1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49"
set randnumber [lindex $lotto_numbers [expr {int(rand()*[llength $lotto_numbers])}]]
if {![info exists lotto(extragere:$chan)]} {
lappend lotto(extragere:$chan) "[join $randnumber]"
}
while {[lsearch -integer -exact $lotto(extragere:$chan) $randnumber] < 0} {
lappend lotto(extragere:$chan) "[join $randnumber]"
}
game:extragere:again $chan
}

proc game:extragere:again {chan} {
global lotto
if {[llength $lotto(extragere:$chan)] < 6} {
game:extragere $chan
}
}



proc game:numbers {nick host hand chan arg} {
global lotto count
set numbers [lrange [split $arg] 0 5]
if {![info exists lotto(start)]} {
return 0
}
if {![info exists lotto(Waitnumber:$nick:$chan)]} {
return 0
}
if {[info exists lotto(setnumber:$nick:$chan)]} {
puthelp "Ti-ai setat deja numerele.."
return 0
}

foreach player $lotto(players:$chan) {
if {[string match -nocase $nick $player]} {
set numbers [lsort -unique $numbers]
if {([llength $numbers] < 6)} {
puthelp "NOTICE $nick :Use !number 3<number1> <number2> <number3> <number4> <number5> <number6> (unique numbers)"
return 0 
}
foreach number $numbers {
if {![regexp {^[0-9]} $number]} {
puthelp "NOTICE $nick :Use !number 3<number1> <number2> <number3> <number4> <number5> <number6> (unique numbers)"
return 0
}
if {($number < 1) || ($number > 49)} {
puthelp "NOTICE $nick :Use numbers from 31 to 49. (unique numbers)"
return 0
}


}
set lotto(setnumber:$player:$chan) 1
lappend lotto(numbers:$player:$chan) "$numbers"

}
}
puthelp "NOTICE $nick :Your numbers are : 3 [join $lotto(numbers:$nick:$chan)] "
foreach tmr [utimers] {
if {[string match "*game:player:start*" [join [lindex $tmr 1]]]} {
killutimer [lindex $tmr 2]
game:player:start $chan $nick
}
}

}


putlog "Lotto 6-49 1.1 by BLaCkShaDoW Loaded"