on *:LOAD:{
if (%gametime == 1) { 
/msg #dealornodeal A game is in progress, please try again in a minute.  
HALT
}
%gametime = 1

/unset %player
/unset %banker
/unset %case*
/unset %playerflag
/unset %caseflag
/unset %casepicked*
/unset %pickcaseflag*
/unset %lastcaseflag
/unset %round
/unset %offer

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

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

}

//////////////////////////////////////////////////////////////////////////////////////////////////


on *:TEXT:.changeplayer*:#dealornodeal:{
if ($nick isop #) {
if (%playerflag == 2) {
if ($2 != %player) {
/notice $nick You have changed the player from %player to $2 .
%player = $2
/notice %player You are now the player of the game.
/msg # The new player is %player $+ . 
}
}
}
else {
/notice $nick You are not an op. Ask an op to do this for you.
}
}


//////////////////////////////////////////////////////////////////////////////////////////////////

on *:TEXT:.setplayer*:#dealornodeal:{
if ($nick isop #) {
if (%playerflag == 0) {
%player = $2
/msg #dealornodeal %player is our game player!
/inc %playerflag 1
}
}
else {
/notice $nick You are not an op. Ask an op to do this for you.
}



if (%playerflag == 1) {
/inc %playerflag 1
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 #dealornodeal Ok... The cases have now been all randomly set. The banker will be %banker .
/msg #dealornodeal Now the player will choose a case number by saying ".setcase <number>" (1-14).
}
}


/msg # 1
//////////////////////////////////////////////////////////////////////////////////////////////////

on *:TEXT:.setcase*:#dealornodeal:{
if ($nick == %player) {
if ($2 <= 14 && $2 >= 1) {
if (%caseflag == 0) {
%playercase = $2
/inc %caseflag 1
/msg #dealornodeal %player has chosen Case Number %playercase $+ .
}
}
else {
/notice $nick The cases only go from 1 to 14.
}





if (%caseflag == 1) {
/inc %caseflag 1
/msg # The cases left are:
/msg # 0 .
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 && %l != %casepicked11 && %l != %casepicked12) {
var %caseoutput [ $+ [ %l ] ] [= %l =]
}
/inc %l 1
}
/msg #  $+ %caseoutput1 %caseoutput2 %caseoutput3 %caseoutput4 %caseoutput5 %caseoutput6 %caseoutput7 %caseoutput8 %caseoutput9 %caseoutput10 %caseoutput11 %caseoutput12 %caseoutput13 %caseoutput14 $+  
/msg # 0 .
/msg # Ok %player $+ , please pick 3 cases to get rid of. Type the numbers spaced out.
}
}
else {
/notice $nick You are not the player. Only the player may do that.
}
}


/msg # 2
//////////////////////////////////////////////////////////////////////////////////////////////////


on *:TEXT:& & &:#dealornodeal:{
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 && $1 != $2 && $1 != $3 && $2 != $3) {
if ($nick == %player) {
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! 
%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(.15 * $calc(%offer / 11)))
/msg # That is the end of round %round $+ ! The banker is calling... and his offer is %offer gp.
/inc %round 1
var %l 1
while (%l <= 14) {
if (%case [ $+ [ %l ] ] == 1 gp) { var %caseshow1 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 5 gp) { var %caseshow2 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 25 gp) { var %caseshow3 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 100 gp) { var %caseshow4 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 250 gp) { var %caseshow5 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 500 gp) { var %caseshow6 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 1000 gp) { var %caseshow7 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 2500 gp) { var %caseshow8 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 5000 gp) { var %caseshow9 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 10000 gp) { var %caseshow10 [= %case [ $+ [ %l ] =] ] }
if (%case [ $+ [ %l ] ] == 25000 gp) { var %caseshow10 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 100000 gp) { var %caseshow12 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 250000 gp) { var %caseshow13 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 1000000 gp) { var %caseshow14 [= %case [ $+ [ %l ] ] =] }
/inc %l 1
}
/msg # The amounts you have left are:  $+ %caseshow1 %caseshow2 %caseshow3 %caseshow4 %caseshow5 %caseshow6 %caseshow7 %caseshow8 %caseshow9 %caseshow10 %caseshow11 %caseshow12 %caseshow13 %caseshow14
/msg # Now you, %player $+ , must decide.... DEAL! or NO DEAL!
%dealflag = 1
/timer 1 2 /inc %pickcaseflag2 1
}
else {
/notice $nick You are not the player. Only the player may do that. 1
}
}
}
elseif (%pickcaseflag1 == 0) {
/dec %pickcaseflag2 1
}
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 && $1 != $2 && $1 != $3 && $2 != $3) {
if ($nick == %player) {
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! 
%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(.25 * $calc(%offer / 8)))
/msg # That is the end of round %round $+ ! The banker is calling... and his offer is %offer gp.
/inc %round 1
var %l 1
while (%l <= 14) {
if (%case [ $+ [ %l ] ] == 1 gp) { var %caseshow1 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 5 gp) { var %caseshow2 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 25 gp) { var %caseshow3 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 100 gp) { var %caseshow4 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 250 gp) { var %caseshow5 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 500 gp) { var %caseshow6 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 1000 gp) { var %caseshow7 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 2500 gp) { var %caseshow8 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 5000 gp) { var %caseshow9 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 10000 gp) { var %caseshow10 [= %case [ $+ [ %l ] =] ] }
if (%case [ $+ [ %l ] ] == 25000 gp) { var %caseshow10 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 100000 gp) { var %caseshow12 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 250000 gp) { var %caseshow13 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 1000000 gp) { var %caseshow14 [= %case [ $+ [ %l ] ] =] }
/inc %l 1
}
/msg # The amounts you have left are:  $+ %caseshow1 %caseshow2 %caseshow3 %caseshow4 %caseshow5 %caseshow6 %caseshow7 %caseshow8 %caseshow9 %caseshow10 %caseshow11 %caseshow12 %caseshow13 %caseshow14
/msg # Now you, %player $+ , must decide.... DEAL! or NO DEAL!
%dealflag = 1
%pickcaseflag3 = 0
%pickcaseflag4 = -1
}
else {
/notice $nick You are not the player. Only the player may do that. 2 
}
}
}
}


/msg # 3
//////////////////////////////////////////////////////////////////////////////////////////////////


on *:TEXT:no deal:#dealornodeal:{
if ($nick == %player) { 
if (%dealflag == 1) {
%dealflag = 0
/msg #  $+ %player has chosen NO DEAL!!
if (!%casepicked12) {
/msg # The cases left are:
/msg # 0 .
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 && %l != %casepicked11 && %l != %casepicked12) {
var %caseoutput [ $+ [ %l ] ] [= %l =]
}
/inc %l 1
}
/msg #  $+ %caseoutput1 %caseoutput2 %caseoutput3 %caseoutput4 %caseoutput5 %caseoutput6 %caseoutput7 %caseoutput8 %caseoutput9 %caseoutput10 %caseoutput11 %caseoutput12 %caseoutput13 %caseoutput14 $+  
/msg # 0 .
if (%round == 1 || %round == 2) {
/msg # Ok, now pick 3 more cases to get rid of. Type the numbers spaced out.
}
elseif (%round == 3 || %round == 4) {
/msg # Ok, now pick 2 more cases to get rid of. Type the numbers spaced out.
}
else {
/msg # Ok, now pick just one case to get rid of.
}
}
else {
%dealflag = 0
var %r = 1
while (%r <= 14) {
if (%r != %playercase && %r != %casepicked1 && %r != %casepicked2 && %r != %casepicked3 && %r != %casepicked4 && %r != %casepicked5 && %r != %casepicked6 && %r != %casepicked7 && %r != %casepicked8 && %r != %casepicked9 && %r != %casepicked10 && %r != %casepicked11 && %r != %casepicked12) {
%lastcase = %r
}
/inc %r 1
}
/msg #  $+ %player has only two cases left, his case, case %playercase $+ , and the only remaining case, case %lastcase $+ . 
/msg #  $+ %player $+ , choose one case, for the last time. Whatever is in that case you get to keep, whatever is in the other is removed!
var %l 1
while (%l <= 14) {
if (%case [ $+ [ %l ] ] == 1 gp) { var %caseshow1 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 5 gp) { var %caseshow2 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 25 gp) { var %caseshow3 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 100 gp) { var %caseshow4 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 250 gp) { var %caseshow5 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 500 gp) { var %caseshow6 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 1000 gp) { var %caseshow7 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 2500 gp) { var %caseshow8 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 5000 gp) { var %caseshow9 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 10000 gp) { var %caseshow10 [= %case [ $+ [ %l ] =] ] }
if (%case [ $+ [ %l ] ] == 25000 gp) { var %caseshow10 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 100000 gp) { var %caseshow12 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 250000 gp) { var %caseshow13 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 1000000 gp) { var %caseshow14 [= %case [ $+ [ %l ] ] =] }
/inc %l 1
}
/msg # The amounts you have left are:  $+ %caseshow1 %caseshow2 %caseshow3 %caseshow4 %caseshow5 %caseshow6 %caseshow7 %caseshow8 %caseshow9 %caseshow10 %caseshow11 %caseshow12 %caseshow13 %caseshow14
}
}
}
else {
/notice $nick You are not the player. Only the player may do that.
}
}

//////////////////////////////////////////////////////////////////////////////////////////////////


on *:TEXT:no deal!:#dealornodeal:{
if ($nick == %player) { 
if (%dealflag == 1) {
%dealflag = 0
/msg #  $+ %player has chosen NO DEAL!!
if (!%casepicked12) {
/msg # The cases left are:
/msg # 0 .
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 && %l != %casepicked11 && %l != %casepicked12) {
var %caseoutput [ $+ [ %l ] ] [= %l =]
}
/inc %l 1
}
/msg #  $+ %caseoutput1 %caseoutput2 %caseoutput3 %caseoutput4 %caseoutput5 %caseoutput6 %caseoutput7 %caseoutput8 %caseoutput9 %caseoutput10 %caseoutput11 %caseoutput12 %caseoutput13 %caseoutput14 $+  
/msg # 0 .
if (%round == 1 || %round == 2) {
/msg # Ok, now pick 3 more cases to get rid of. Type the numbers spaced out.
}
elseif (%round == 3 || %round == 4) {
/msg # Ok, now pick 2 more cases to get rid of. Type the numbers spaced out.
}
else {
/msg # Ok, now pick just one case to get rid of.
}
}
else {
%dealflag = 0
var %r = 1
while (%r <= 14) {
if (%r != %playercase && %r != %casepicked1 && %r != %casepicked2 && %r != %casepicked3 && %r != %casepicked4 && %r != %casepicked5 && %r != %casepicked6 && %r != %casepicked7 && %r != %casepicked8 && %r != %casepicked9 && %r != %casepicked10 && %r != %casepicked11 && %r != %casepicked12) {
%lastcase = %r
}
/inc %r 1
}
/msg #  $+ %player has only two cases left, his case, case %playercase $+ , and the only remaining case, case %lastcase $+ . 
/msg #  $+ %player $+ , choose one case, for the last time. Whatever is in that case you get to keep, whatever is in the other is removed!
var %l 1
while (%l <= 14) {
if (%case [ $+ [ %l ] ] == 1 gp) { var %caseshow1 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 5 gp) { var %caseshow2 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 25 gp) { var %caseshow3 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 100 gp) { var %caseshow4 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 250 gp) { var %caseshow5 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 500 gp) { var %caseshow6 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 1000 gp) { var %caseshow7 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 2500 gp) { var %caseshow8 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 5000 gp) { var %caseshow9 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 10000 gp) { var %caseshow10 [= %case [ $+ [ %l ] =] ] }
if (%case [ $+ [ %l ] ] == 25000 gp) { var %caseshow10 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 100000 gp) { var %caseshow12 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 250000 gp) { var %caseshow13 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 1000000 gp) { var %caseshow14 [= %case [ $+ [ %l ] ] =] }
/inc %l 1
}
/msg # The amounts you have left are:  $+ %caseshow1 %caseshow2 %caseshow3 %caseshow4 %caseshow5 %caseshow6 %caseshow7 %caseshow8 %caseshow9 %caseshow10 %caseshow11 %caseshow12 %caseshow13 %caseshow14
}
}
}
else {
/notice $nick You are not the player. Only the player may do that.
}
}

/msg # 4
//////////////////////////////////////////////////////////////////////////////////////////////////


on *:TEXT:deal:#dealornodeal:{
if ($nick == %player) {
if (%dealflag == 1) {
/msg #  $+ %player $+ , you have chosen to take the banker's deal! You have won %offer gp!
%dealflag = 0
/msg # The game is now OVER!
/msg # 0 .
/msg # This game is maintained and written by Finalultima. I hope you've enjoyed it.
/unset %gametime
/unload -rs dealornodealtdt.mrc
}
}
else {
/notice $nick You are not the player. Only the player may do that.
}
}


/////////////////////////////////////////////////////////////////////////////////////////////////


on *:TEXT:deal!:#dealornodeal:{
if ($nick == %player) {
if (%dealflag == 1) {
/msg #  $+ %player $+ , you have chosen to take the banker's deal! You have won %offer gp!
%dealflag = 0
/msg # The game is now OVER!
/msg # 0 .
/msg # This game is maintained and written by Finalultima. I hope you've enjoyed it.
/unset %gametime
/unload -rs dealornodealtdt.mrc
}
}
else {
/notice $nick You are not the player. Only the player may do that.
}
}


/msg # 5
//////////////////////////////////////////////////////////////////////////////////////////////////


on *:TEXT:.quitgame:#dealornodeal:{
if ($nick isop #) {
/msg # The game has been QUIT.
/msg # The game is now OVER!
/msg # 0 .
/msg # This game is maintained and written by Finalultima. I hope you've enjoyed it.
/unset %gametime
/unload -rs dealornodealtdt.mrc
}
else {
/notice $nick You are not an op. Ask an op to do this for you.
}
}


/msg # 6
//////////////////////////////////////////////////////////////////////////////////////////////////


on *:TEXT:& &:#dealornodeal:{
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 && $1 != $2) {
if ($nick == %player) {
var %m = 7
while (%m <= 8) {
/msg # You picked case $ [ $+ [ $calc(1 + $calc(%m - 7)) ] ] and it contained %case [ $+ [ $ [ $+ [ $calc(1 + $calc(%m - 7)) ] ] ] ]
%casepicked [ $+ [ %m ] ] = $ [ $+ [ $calc(1 + $calc(%m - 7)) ] ]
/unset %case $+ $ [ $+ [ $calc(1 + $calc(%m - 7)) ] ]
/inc %m 1
}
/inc %pickcaseflag3 1
/msg # Those values and cases are now completely out of the game! 
%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(.35 * $calc(%offer / 6)))
/msg # That is the end of round %round $+ ! The banker is calling... and his offer is %offer gp.
/inc %round 1
var %l 1
while (%l <= 14) {
if (%case [ $+ [ %l ] ] == 1 gp) { var %caseshow1 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 5 gp) { var %caseshow2 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 25 gp) { var %caseshow3 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 100 gp) { var %caseshow4 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 250 gp) { var %caseshow5 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 500 gp) { var %caseshow6 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 1000 gp) { var %caseshow7 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 2500 gp) { var %caseshow8 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 5000 gp) { var %caseshow9 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 10000 gp) { var %caseshow10 [= %case [ $+ [ %l ] =] ] }
if (%case [ $+ [ %l ] ] == 25000 gp) { var %caseshow10 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 100000 gp) { var %caseshow12 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 250000 gp) { var %caseshow13 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 1000000 gp) { var %caseshow14 [= %case [ $+ [ %l ] ] =] }
/inc %l 1
}
/msg # The amounts you have left are:  $+ %caseshow1 %caseshow2 %caseshow3 %caseshow4 %caseshow5 %caseshow6 %caseshow7 %caseshow8 %caseshow9 %caseshow10 %caseshow11 %caseshow12 %caseshow13 %caseshow14
/msg # Now you, %player $+ , must decide.... DEAL! or NO DEAL!
%dealflag = 1
/timer 1 2 /inc %pickcaseflag4 1
}
else {
/notice $nick You are not the player. Only the player may do that. 3
}
}
}
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 && $1 != $2) {
if ($nick == %player) {
var %m = 9
while (%m <= 10) {
/msg # You picked case $ [ $+ [ $calc(1 + $calc(%m - 9)) ] ] and it contained %case [ $+ [ $ [ $+ [ $calc(1 + $calc(%m - 9)) ] ] ] ]
%casepicked [ $+ [ %m ] ] = $ [ $+ [ $calc(1 + $calc(%m - 9)) ] ]
/unset %case $+ $ [ $+ [ $calc(1 + $calc(%m - 9)) ] ]
/inc %m 1
}
/inc %pickcaseflag4 1
/msg # Those values and cases are now completely out of the game!
%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 / 4)))
/msg # That is the end of round %round $+ ! The banker is calling... and his offer is %offer gp.
/inc %round 1
var %l 1
while (%l <= 14) {
if (%case [ $+ [ %l ] ] == 1 gp) { var %caseshow1 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 5 gp) { var %caseshow2 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 25 gp) { var %caseshow3 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 100 gp) { var %caseshow4 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 250 gp) { var %caseshow5 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 500 gp) { var %caseshow6 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 1000 gp) { var %caseshow7 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 2500 gp) { var %caseshow8 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 5000 gp) { var %caseshow9 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 10000 gp) { var %caseshow10 [= %case [ $+ [ %l ] =] ] }
if (%case [ $+ [ %l ] ] == 25000 gp) { var %caseshow10 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 100000 gp) { var %caseshow12 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 250000 gp) { var %caseshow13 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 1000000 gp) { var %caseshow14 [= %case [ $+ [ %l ] ] =] }
/inc %l 1
}
/msg # The amounts you have left are:  $+ %caseshow1 %caseshow2 %caseshow3 %caseshow4 %caseshow5 %caseshow6 %caseshow7 %caseshow8 %caseshow9 %caseshow10 %caseshow11 %caseshow12 %caseshow13 %caseshow14
/msg # Now you, %player $+ , must decide.... DEAL! or NO DEAL!
%dealflag = 1
%pickcaseflag5 = 0
%pickcaseflag6 = -1
%lastcaseflag = -1
}
else {
/notice $nick You are not the player. Only the player may do that. 4
}
}
}
}



/msg # 7
/////////////////////////////////////////////////////////////////////////////////////////////////////////


on *:TEXT:&:#dealornodeal:{
if (%pickcaseflag5 == 0) {
if ($1 <= 14 && $1 >= 1 && $1 != %playercase && $1 != %casepicked1 && $1 != %casepicked2 && $1 != %casepicked3 && $1 != %casepicked4 && $1 != %casepicked5 && $1 != %casepicked6 && $1 != %casepicked7 && $1 != %casepicked8 && $1 != %casepicked9 && $1 != %casepicked10 && $1 != %casepicked11 && $1 != %casepicked12) {
if ($nick == %player) {
var %m = 11
/msg # You picked case $ [ $+ [ $calc(1 + $calc(%m - 11)) ] ] and it contained %case [ $+ [ $ [ $+ [ $calc(1 + $calc(%m - 11)) ] ] ] ]
%casepicked [ $+ [ %m ] ] = $1
/unset %case $+ $ [ $+ [ $calc(1 + $calc(%m - 11)) ] ]
/inc %pickcaseflag5 1
/msg # That value and case is now completely out of the game!
%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(.6 * $calc(%offer / 3)))
/msg # That is the end of round %round $+ ! The banker is calling... and his offer is %offer gp.
/inc %round 1
var %l 1
while (%l <= 14) {
if (%case [ $+ [ %l ] ] == 1 gp) { var %caseshow1 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 5 gp) { var %caseshow2 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 25 gp) { var %caseshow3 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 100 gp) { var %caseshow4 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 250 gp) { var %caseshow5 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 500 gp) { var %caseshow6 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 1000 gp) { var %caseshow7 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 2500 gp) { var %caseshow8 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 5000 gp) { var %caseshow9 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 10000 gp) { var %caseshow10 [= %case [ $+ [ %l ] =] ] }
if (%case [ $+ [ %l ] ] == 25000 gp) { var %caseshow10 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 100000 gp) { var %caseshow12 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 250000 gp) { var %caseshow13 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 1000000 gp) { var %caseshow14 [= %case [ $+ [ %l ] ] =] }
/inc %l 1
}
/msg # The amounts you have left are:  $+ %caseshow1 %caseshow2 %caseshow3 %caseshow4 %caseshow5 %caseshow6 %caseshow7 %caseshow8 %caseshow9 %caseshow10 %caseshow11 %caseshow12 %caseshow13 %caseshow14
/msg # Now you, %player $+ , must decide.... DEAL! or NO DEAL!
%dealflag = 1
/timer 1 2 /inc %pickcaseflag6 1
}
else {
/notice $nick You are not the player. Only the player may do that. 5
}
}
}
if (%pickcaseflag6 == 0) {
if ($1 <= 14 && $1 >= 1 && $1 != %playercase && $1 != %casepicked1 && $1 != %casepicked2 && $1 != %casepicked3 && $1 != %casepicked4 && $1 != %casepicked5 && $1 != %casepicked6 && $1 != %casepicked7 && $1 != %casepicked8 && $1 != %casepicked9 && $1 != %casepicked10 && $1 != %casepicked11 && $1 != %casepicked12) {
if ($nick == %player) {
var %m = 12
/msg # You picked case $ [ $+ [ $calc(1 + $calc(%m - 12)) ] ] and it contained %case [ $+ [ $ [ $+ [ $calc(1 + $calc(%m - 12)) ] ] ] ]
%casepicked [ $+ [ %m ] ] = $1
/unset %case $+ $ [ $+ [ $calc(1 + $calc(%m - 12)) ] ]
/inc %pickcaseflag6 1
/msg # Those values and cases are now completely out of the game! 
%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(.8 * $calc(%offer / 2)))
/msg # That is the end of round %round $+ ! The banker is calling... and his offer is %offer gp.
/inc %round 1
var %l 1
while (%l <= 14) {
if (%case [ $+ [ %l ] ] == 1 gp) { var %caseshow1 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 5 gp) { var %caseshow2 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 25 gp) { var %caseshow3 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 100 gp) { var %caseshow4 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 250 gp) { var %caseshow5 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 500 gp) { var %caseshow6 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 1000 gp) { var %caseshow7 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 2500 gp) { var %caseshow8 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 5000 gp) { var %caseshow9 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 10000 gp) { var %caseshow10 [= %case [ $+ [ %l ] =] ] }
if (%case [ $+ [ %l ] ] == 25000 gp) { var %caseshow10 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 100000 gp) { var %caseshow12 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 250000 gp) { var %caseshow13 [= %case [ $+ [ %l ] ] =] }
if (%case [ $+ [ %l ] ] == 1000000 gp) { var %caseshow14 [= %case [ $+ [ %l ] ] =] }
/inc %l 1
}
/msg # The amounts you have left are:  $+ %caseshow1 %caseshow2 %caseshow3 %caseshow4 %caseshow5 %caseshow6 %caseshow7 %caseshow8 %caseshow9 %caseshow10 %caseshow11 %caseshow12 %caseshow13 %caseshow14
/msg # Now you, %player $+ , must decide.... DEAL! or NO DEAL!
%dealflag = 1
/timer 1 2 /inc %lastcaseflag 1
}
else {
/notice $nick You are not the player. Only the player may do that. 6
}
}
}
if (%lastcaseflag == 0) {
if ($1 == %lastcase || $1 == %playercase) {
if ($nick == %player) {
if ($1 == %lastcase) {
%nopick = %playercase
}
if ($1 == %playercase) {
%nopick = %lastcase
}
/msg # You did NOT pick case %nopick $+ . It contained %case [ $+ [ %nopick ] ] $+ .
/msg # 0 .
/msg # You picked case $1 $+ ! It contained %case [ $+ [ $1 ] ] $+ !
/msg # 0 .
/msg # The game is now OVER and you have won %case [ $+ [ $1 ] ] $+ !
/msg # 0 .
/msg # This game is maintained and written by Finalultima. I hope you've enjoyed it.
/unset %gametime
/unload -rs dealornodealtdt.mrc
}
else {
/notice $nick You are not the player. Only the player may do that. 6
}
}
}

}