Unnamed

on *:LOAD:{

if (%gametime == 1) { notice $nick A game is in progress. | HALT }

/unset %player
/unset %banker
/unset %case*
/unset %playerflag
/unset %caseflag

%g = $rand(1,9999999)
%playerflag = 0
%banker = Crono0001
%caseflag = 0
%pickcaseflag1 = 0
%pickcaseflag2 = -1
%pickcaseflag3 = 0
%pickcaseflag4 = -1
%pickcaseflag5 = 0
%round = 1

/msg #finalstest Deal or No Deal has been activated by an op.
/msg #finalstest An op must now type the name of the game player by typing .setplayer <nick>

}


on *:TEXT:.setplayer*:#finalstest:{



if (%playerflag == 0) {
%player = $2
/msg #finalstest %player is our game player!
/inc %playerflag 1
}


if (%playerflag > 0) {

var %i = 1

while (%i <= 14) {
if (%i == 1) {
%c = $rand(1,14)
if ($readini(cases.ini,%c,g) != %g) {
/writeini cases.ini %c g %g
%case1 = $readini(cases.ini,%c,v)
/inc %i
}
}
if (%i == 2) {
%c = $rand(1,14)
if ($readini(cases.ini,%c,g) != %g) {
/writeini cases.ini %c g %g
%case2 = $readini(cases.ini,%c,v)
/inc %i
}
}
if (%i == 3) {
%c = $rand(1,14)
if ($readini(cases.ini,%c,g) != %g) {
/writeini cases.ini %c g %g
%case3 = $readini(cases.ini,%c,v)
/inc %i
}
}
if (%i == 4) {
%c = $rand(1,14)
if ($readini(cases.ini,%c,g) != %g) {
/writeini cases.ini %c g %g
%case4 = $readini(cases.ini,%c,v)
/inc %i
}
}
if (%i == 5) {
%c = $rand(1,14)
if ($readini(cases.ini,%c,g) != %g) {
/writeini cases.ini %c g %g
%case5 = $readini(cases.ini,%c,v)
/inc %i
}
}
if (%i == 6) {
%c = $rand(1,14)
if ($readini(cases.ini,%c,g) != %g) {
/writeini cases.ini %c g %g
%case6 = $readini(cases.ini,%c,v)
/inc %i
}
}
if (%i == 7) {
%c = $rand(1,14)
if ($readini(cases.ini,%c,g) != %g) {
/writeini cases.ini %c g %g
%case7 = $readini(cases.ini,%c,v)
/inc %i
}
}
if (%i == 8) {
%c = $rand(1,14)
if ($readini(cases.ini,%c,g) != %g) {
/writeini cases.ini %c g %g
%case8 = $readini(cases.ini,%c,v)
/inc %i
}
}
if (%i == 9) {
%c = $rand(1,14)
if ($readini(cases.ini,%c,g) != %g) {
/writeini cases.ini %c g %g
%case9 = $readini(cases.ini,%c,v)
/inc %i
}
}
if (%i == 10) {
%c = $rand(1,14)
if ($readini(cases.ini,%c,g) != %g) {
/writeini cases.ini %c g %g
%case10 = $readini(cases.ini,%c,v)
/inc %i
}
}
if (%i == 11) {
%c = $rand(1,14)
if ($readini(cases.ini,%c,g) != %g) {
/writeini cases.ini %c g %g
%case11 = $readini(cases.ini,%c,v)
/inc %i
}
}
if (%i == 12) {
%c = $rand(1,14)
if ($readini(cases.ini,%c,g) != %g) {
/writeini cases.ini %c g %g
%case12 = $readini(cases.ini,%c,v)
/inc %i
}
}
if (%i == 13) {
%c = $rand(1,14)
if ($readini(cases.ini,%c,g) != %g) {
/writeini cases.ini %c g %g
%case13 = $readini(cases.ini,%c,v)
/inc %i
}
}
if (%i == 14) {
%c = $rand(1,14)
if ($readini(cases.ini,%c,g) != %g) {
/writeini cases.ini %c g %g
%case14 = $readini(cases.ini,%c,v)
/inc %i
}
}

}
/msg #finalstest Ok... The cases have now been all randomly set. The banker will be %banker .
/msg #finalstest Now the player will choose a case number by saying .setcase <number> (1-14).
}
}

on *:TEXT:.setcase*:#finalstest:{
if (%caseflag == 0) {
if ($nick == %player) {
%playercase = $2
/inc %caseflag 1
/msg #finalstest %player has chosen Case Number %playercase .
}
else {
/notice $nick You are not the player!
}
}



if (%caseflag == 1) {
/inc %caseflag 1
/msg # The cases left are:
var %l = 1
while (%l <= 14) {
if (%l != %playercase) {
/msg # %l
}
/inc %l 1
}
/msg # 0 .
/msg # Ok %player $+ , please pick 3 cases to get rid of.
}
}

on *:TEXT:& & &:#finalstest:{
if (%pickcaseflag1 == 0) {
if ($1 <= 14 && $1 >= 1 && $1 != %playercase && $2 <= 14 && $2 >= 1 && $2 != %playercase && $3 <= 14 && $3 >= 1 && $3 != %playercase && $1 != %casepicked1 && $1 != %casepicked2 && $1 != %casepicked3 && $1 != %casepicked4 && $1 != %casepicked5 && $1 != %casepicked6 && $1 != %casepicked7 && $1 != %casepicked8 && $1 != %casepicked9 && $1 != %casepicked10 && $1 != %casepicked11 && $2 != %casepicked1 && $2 != %casepicked2 && $2 != %casepicked3 && $2 != %casepicked4 && $2 != %casepicked5 && $2 != %casepicked6 && $2 != %casepicked7 && $2 != %casepicked8 && $2 != %casepicked9 && $2 != %casepicked10 && $2 != %casepicked11 && $3 != %casepicked1 && $3 != %casepicked2 && $3 != %casepicked3 && $3 != %casepicked4 && $3 != %casepicked5 && $3 != %casepicked6 && $3 != %casepicked7 && $3 != %casepicked8 && $3 != %casepicked9 && $3 != %casepicked10 && $3 != %casepicked11) {
var %m = 1
while (%m <= 3) {
/msg # You picked case $ [ $+ [ $calc(1 + $calc(%m - 1)) ] ] and it contained %case [ $+ [ $ [ $+ [ $calc(1 + $calc(%m - 1)) ] ] ] ]
%casepicked [ $+ [ %m ] ] = $ [ $+ [ $calc(1 + $calc(%m - 1)) ] ]
/unset %case $+ $ [ $+ [ $calc(1 + $calc(%m - 1)) ] ]
/inc %m 1
}
/inc %pickcaseflag1 1
/msg # Those values and cases are now completely out of the game!
/msg # That is the end of round %round $+ !
/inc %round 1
/msg # The Banker is calling! 
%offer = 0
var %n = 1
while (%n <= 14) {
if (%n != %casepicked1 && %n != %casepicked2 && %n != %casepicked3 && %n != %casepicked4 && %n != %casepicked5 && %n != %casepicked6 && %n != %casepicked7 && %n != %casepicked8 && %n != %casepicked9 && %n != %casepicked10) {
/set %offer $calc( %offer + %case [ $+ [ %n ] ] )
}
/inc %n 1
}
%offer = $int($calc(.5 * $calc(%offer / 10)))
/msg # The Banker's offer is %offer $+ .
/msg # Now you, %player $+ , must decide.... DEAL or NO DEAL!
}
}

if (%pickcaseflag2 == 0) {
if ($1 <= 14 && $1 >= 1 && $1 != %playercase && $2 <= 14 && $2 >= 1 && $2 != %playercase && $3 <= 14 && $3 >= 1 && $3 != %playercase && $1 != %casepicked1 && $1 != %casepicked2 && $1 != %casepicked3 && $1 != %casepicked4 && $1 != %casepicked5 && $1 != %casepicked6 && $1 != %casepicked7 && $1 != %casepicked8 && $1 != %casepicked9 && $1 != %casepicked10 && $1 != %casepicked11 && $2 != %casepicked1 && $2 != %casepicked2 && $2 != %casepicked3 && $2 != %casepicked4 && $2 != %casepicked5 && $2 != %casepicked6 && $2 != %casepicked7 && $2 != %casepicked8 && $2 != %casepicked9 && $2 != %casepicked10 && $2 != %casepicked11 && $3 != %casepicked1 && $3 != %casepicked2 && $3 != %casepicked3 && $3 != %casepicked4 && $3 != %casepicked5 && $3 != %casepicked6 && $3 != %casepicked7 && $3 != %casepicked8 && $3 != %casepicked9 && $3 != %casepicked10 && $3 != %casepicked11) {
var %m = 4
while (%m <= 6) {
/msg # You picked case $ [ $+ [ $calc(1 + $calc(%m - 4)) ] ] and it contained %case [ $+ [ $ [ $+ [ $calc(1 + $calc(%m - 4)) ] ] ] ]
%casepicked [ $+ [ %m ] ] = $ [ $+ [ $calc(1 + $calc(%m - 4)) ] ]
/unset %case $+ $ [ $+ [ $calc(1 + $calc(%m - 4)) ] ]
/inc %m 1
}
/inc %pickcaseflag2 1
/msg # Those values and cases are now completely out of the game!
/msg # That is the end of round %round $+ !
/inc %round 1
/msg # The Banker is calling! 
%offer = 0
var %n = 1
while (%n <= 14) {
if (%n != %casepicked1 && %n != %casepicked2 && %n != %casepicked3 && %n != %casepicked4 && %n != %casepicked5 && %n != %casepicked6 && %n != %casepicked7 && %n != %casepicked8 && %n != %casepicked9 && %n != %casepicked10) {
/set %offer $calc( %offer + %case [ $+ [ %n ] ] )
}
/inc %n 1
}
%offer = $int($calc(.55 * $calc(%offer / 7)))
/msg # The Banker's offer is %offer $+ .
/msg # Now you, %player $+ , must decide.... DEAL or NO DEAL!
}
}
/inc %pickcaseflag2 1
}


on *:TEXT:no deal:#finalstest:{
/msg #  $+ %player has chosen NO DEAL!!
/msg # The cases left are:
var %l = 1
while (%l <= 14) {
if (%l != %playercase && %l != %casepicked1 && %l != %casepicked2 && %l != %casepicked3 && %l != %casepicked4 && %l != %casepicked5 && %l != %casepicked6 && %l != %casepicked7 && %l != %casepicked8 && %l != %casepicked9 && %l != %casepicked10) {
/msg # %l
}
/inc %l 1
}
/msg # 0 .
if (%round == 1 || %round == 2) {
/msg # Ok, now pick 3 more cases to get rid of.
}
elseif (%round == 3 || %round == 4) {
/msg # Ok, now pick 2 more cases to get rid of.
}
else {
/msg # Ok, now pick just one case to get rid of.
}
}



on *:TEXT:& &:#finalstest:{
if (%pickcaseflag3 == 0) {
if ($1 <= 14 && $1 >= 1 && $1 != %playercase && $2 <= 14 && $2 >= 1 && $2 != %playercase && $1 != %casepicked1 && $1 != %casepicked2 && $1 != %casepicked3 && $1 != %casepicked4 && $1 != %casepicked5 && $1 != %casepicked6 && $1 != %casepicked7 && $1 != %casepicked8 && $1 != %casepicked9 && $1 != %casepicked10 && $1 != %casepicked11 && $2 != %casepicked1 && $2 != %casepicked2 && $2 != %casepicked3 && $2 != %casepicked4 && $2 != %casepicked5 && $2 != %casepicked6 && $2 != %casepicked7 && $2 != %casepicked8 && $2 != %casepicked9 && $2 != %casepicked10 && $2 != %casepicked11) {
var %m = 1
while (%m <= 2) {
/msg # You picked case $ [ $+ [ $calc(1 + $calc(%m - 1)) ] ] and it contained %case [ $+ [ $ [ $+ [ $calc(1 + $calc(%m - 1)) ] ] ] ]
%casepicked [ $+ [ %m ] ] = $ [ $+ [ $calc(1 + $calc(%m - 1)) ] ]
/unset %case $+ $ [ $+ [ $calc(1 + $calc(%m - 1)) ] ]
/inc %m 1
}
/inc %pickcaseflag3 1
/msg # Those values and cases are now completely out of the game!
/msg # That is the end of round %round $+ !
/inc %round 1
/msg # The Banker is calling! 
%offer = 0
var %n = 1
while (%n <= 14) {
if (%n != %casepicked1 && %n != %casepicked2 && %n != %casepicked3 && %n != %casepicked4 && %n != %casepicked5 && %n != %casepicked6 && %n != %casepicked7 && %n != %casepicked8 && %n != %casepicked9 && %n != %casepicked10) {
/set %offer $calc( %offer + %case [ $+ [ %n ] ] )
}
/inc %n 1
}
%offer = $int($calc(.65 * $calc(%offer / 5)))
/msg # The Banker's offer is %offer $+ .
/msg # Now you, %player $+ , must decide.... DEAL or NO DEAL!
}
}

if (%pickcaseflag4 == 0) {
if ($1 <= 14 && $1 >= 1 && $1 != %playercase && $2 <= 14 && $2 >= 1 && $2 != %playercase && $1 != %casepicked1 && $1 != %casepicked2 && $1 != %casepicked3 && $1 != %casepicked4 && $1 != %casepicked5 && $1 != %casepicked6 && $1 != %casepicked7 && $1 != %casepicked8 && $1 != %casepicked9 && $1 != %casepicked10 && $1 != %casepicked11 && $2 != %casepicked1 && $2 != %casepicked2 && $2 != %casepicked3 && $2 != %casepicked4 && $2 != %casepicked5 && $2 != %casepicked6 && $2 != %casepicked7 && $2 != %casepicked8 && $2 != %casepicked9 && $2 != %casepicked10 && $2 != %casepicked11) {
var %m = 3
while (%m <= 4) {
/msg # You picked case $ [ $+ [ $calc(1 + $calc(%m - 3)) ] ] and it contained %case [ $+ [ $ [ $+ [ $calc(1 + $calc(%m - 3)) ] ] ] ]
%casepicked [ $+ [ %m ] ] = $ [ $+ [ $calc(1 + $calc(%m - 3)) ] ]
/unset %case $+ $ [ $+ [ $calc(1 + $calc(%m - 3)) ] ]
/inc %m 1
}
/inc %pickcaseflag4 1
/msg # Those values and cases are now completely out of the game!
/msg # That is the end of round %round $+ !
/inc %round 1
/msg # The Banker is calling! 
%offer = 0
var %n = 1
while (%n <= 14) {
if (%n != %casepicked1 && %n != %casepicked2 && %n != %casepicked3 && %n != %casepicked4 && %n != %casepicked5 && %n != %casepicked6 && %n != %casepicked7 && %n != %casepicked8 && %n != %casepicked9 && %n != %casepicked10) {
/set %offer $calc( %offer + %case [ $+ [ %n ] ] )
}
/inc %n 1
}
%offer = $int($calc(.7 * $calc(%offer / 3)))
/msg # The Banker's offer is %offer $+ .
/msg # Now you, %player $+ , must decide.... DEAL or NO DEAL!
}
}
/inc %pickcaseflag4 1
}