rendered paste body######################################
#### Deal or No deal #################
#### Brought to you by the makers of #
#### "Sam Egner Likes men" ###########
######################################
On *:LOAD: dond.settings 1
ON *:START: {
if ( !$hget($_table) ) hmake $_table 10
if ( !$hget($_players) ) hmake $_players 10
if ( $isfile($_data) ) hload $_table $_data
if ( $isfile($_playdata) ) hload $_players $_playdata
dond.settings
}
On *:EXIT: dond.save
On *:DISCONNECT: dond.save
On *!:NICK: {
if ( !$readini($_ini,config,enable) ) return
if ( $hget($_players,$+($network,:,$dondchan,:,$nick)) ) {
hdel $_players $+($network,:,$dondchan,:,$nick)
hadd $_players $+($network,:,$dondchan,:,$newnick) 1
}
elseif ( $nick == %dond.player ) set %dond.player $newnick
}
On *!:QUIT: {
if ( !$readini($_ini,config,enable) ) return
if ( $hget($_players,$+($network,:,$dondchan,:,$nick)) ) hdel $_players $+($network,:,$dondchan,:,$nick)
elseif ( $nick == %dond.player ) {
unset %dond.player
msg $dondchan 10 $+ $nick just quitted. A new player will be picked shortly...
.timerdond.rpick 1 2 dond.rpick $network $chan new
}
}
On *!:KICK:$($dondchan): {
if ( !$readini($_ini,config,enable) ) return
if ( $hget($_players,$+($network,:,#,:,$knick)) ) hdel $_players $+($network,:,#,:,$knick)
elseif ( $knick == %dond.player ) {
unset %dond.player
msg $dondchan 10 $+ $nick was kicked. A new player will be picked shortly...
.timerdond.rpick 1 2 dond.rpick $network $chan new
}
}
On *!:PART:$($dondchan): {
if ( !$readini($_ini,config,enable) ) return
if ( $hget($_players,$+($network,:,#,:,$nick)) ) hdel $_players $+($network,:,#,:,$nick)
elseif ( $nick == %dond.player ) {
unset %dond.player
msg $dondchan 10 $+ $nick just left the channel. A new player will be picked shortly...
.timerdond.rpick 1 2 dond.rpick $network $chan new
}
}
On !*:JOIN:$($dondchan): {
$+(.timerdondjoinmsg,$cid,$chan,$nick) 1 2 .notice $nick Welcome to $chan $+ , $nick $+ ! $dond.logo v $+ $dond.version is $iif($readini($_ini,config,enable),10ON. Type 03!dond to start the game.,04OFF.)
}
On *:TEXT:!*:$($dondchan): {
if ( !$readini($_ini,config,enable) ) return
if ( $1 isin !dond!start ) {
if ( !%dond.status ) {
if ( !%dond.start ) {
dond.start $network $chan
}
else msg $chan The game is about to start in %dond.start secs. Type 3!join now.
}
else {
if ( %dond.player == $nick ) msg $chan 07You are already playing the game!
elseif ( %dond.player ) msg $chan 12Please wait after07 %dond.player 12finishes the game.
}
}
elseif ( $1 == !stop ) && ( $nick isop $chan ) dond.end $nick
elseif ( $1 == !pass ) && ( %dond.player == $nick ) {
unset %dond.player
msg $chan 10 $+ $nick has passed playing the game. 12A new player will be picked shortly...
if ( $me isop $chan ) mode $chan -v $nick
.timerdond.* off
.timerdond.rpick 1 2 dond.rpick $network $chan new
}
elseif ( $1 == !stats ) {
var %n = $iif($2,$2,$nick)
msg $chan $dond.logo stats for12 %n $+ :03 $comma($hget($_table,$+($network,:,$chan,:,%n))) Total Points
}
elseif ( $1 == !join ) {
if ( %dond.start ) || ( %dond.status == playing ) {
if ( !$hget($_players,$+($network,:,$chan,:,$nick)) ) {
hadd -m $_players $+($network,:,$chan,:,$nick) 1
msg $chan Thank you for joining,10 $nick $+ . Player will be randomly picked $iif(%dond.start,in07 %dond.start secs.,after10 %dond.player finishes the game.)
}
else msg $chan You already joined the game. Please wait for the game to start.
}
}
elseif ( $1 == !confirm ) {
if ( %dond.status == confirm ) && ( %dond.player.temp == $nick ) {
set %dond.status playing
.timerdond.noconfirm off
set %dond.player $nick
unset %dond.player.temp
msg $chan GOOD! Then let's play $dond.logo $+ !
if ( $me isop $chan ) && ( $readini($_ini,config,avplayer) ) mode $chan +v $nick
;hadd -m $_prevplayers $+($network,:,$chan,:,$nick)
dond.createboxes
.timerdond.chooseanybox 1 2 msg $chan There are 26 boxes. Choose any box (from 1 to 26) so we can start playing. Type 3!choose <number>. You have $dond.time(randomchoosebox) secs or I will randomly select for you.
.timerdond.random.choose 1 $calc($dond.time(randomchoosebox) + 2) dond.randomchoosebox
set %dond.level 0
}
}
elseif ( $istok(!deal !nodeal,$1,32) ) && ( %dond.player == $nick ) && ( %dond.answerdond ) {
if ( $timer(dond.autoaccept) ) .timerdond.autoaccept off
if ( $1 == !deal ) {
unset %dond.player
tokenize 32 $hget($_table,$+($network,:,$chan,:,$nick))
hadd -m $_table $+($network,:,$chan,:,$nick) $calc($1 + %dond.bankerdeal) $2 $3
msg $chan You have accepted the Banker's offer. You get10 $comma(%dond.bankerdeal) points. Your total points is now03 $comma($hget($_table,$+($network,:,$chan,:,$nick))) $+ . Thank you for playing.
if ( $me isop $chan ) mode $chan -v $nick
.timerdond.rpick 1 2 dond.rpick $network $chan new
}
else {
msg $chan You declined the Banker's offer. Let's continue playing!
inc %dond.level
if ( %dond.level == 8 ) {
unset %dond.player
tokenize 58 %dond.boxwdamts
msg $chan We eliminate the last box, which is12 Box $chr(35) $+ $1 with10 $comma($2) $+ .
tokenize 58 %dond.chosenbox
hinc -m $_table $+($network,:,$chan,:,$nick) $2
msg $chan Your chosen box, which is Box12 $chr(35) $+ $1 with10 $comma($2) and will be added to your total points, which is now03 $comma($hget($_table,$+($network,:,$chan,:,$nick))) $+ . Thank you for Playing.
if ( $me isop $chan ) mode $chan -v $nick
.timerdond.rpick 1 2 dond.rpick $network $chan new
}
else {
var %d = $dond.casesperlevel
msg $chan Now, you have to eliminate04 %d boxes. Type 03!choose $str($+(<number>,$chr(32)),%d) to eliminate the boxes. You have07 $dond.time(timelimit) secs to respond.
.timerdond.timelimit 1 $dond.time(timelimit) dond.timelimit $network $chan %dond.player
}
}
unset %dond.answerdond %dond.pickednum
}
elseif ( $1 == !choose ) {
if ( %dond.player == $nick ) {
dond.choose $nick $network $chan $2-
}
}
}
;############ ALIASES #############
alias -l dondchan return $readini($_ini,config,channel)
alias dond.version return 0.17 BETA
alias -l _table return dond.scores
alias -l _players return dond.players
alias -l _prevplayers return dond.prevplayers
alias -l _playdata return $qt($scriptdirdondplayers.dat)
alias -l _data return $qt($scriptdirdondscores.dat)
alias -l _ini return $qt($scriptdirdond.ini)
alias -l dond.logo return 01,08DEALor08,01NODEAL
alias -l dond.rpick {
if ( $3 == new ) msg $dondchan 12Let's continue the game. Picking a random player now....
if ( $dond.players($1,$2) ) {
var %n = $dond.players($1,$2).rand
set %dond.player.temp $gettok(%n,3,58)
hdel $_players %n
.timerdond.newplayer 1 5 msg $dondchan The new player is ->07 %dond.player.temp <- Please type 03!confirm within04 $dond.time(confirmtime) secs, to confirm that you want to play.
set %dond.status confirm
.timerdond.noconfirm 1 $dond.time(confirmtime) dond.noconfirm %dond.player.temp %n
}
else {
msg $dondchan 07Seems like the players are inactive.
dond.end System Console Auto
}
}
alias -l dond.noconfirm {
msg $dondchan 10 $+ $1 did not confirm. Too bad, you lose your chance to play. We will pick another player...
unset %dond.player
tokenize 58 $2
dond.rpick $1 $2
}
alias -l dond.createboxes {
unset %dond.boxwdamts
var %amt = .1 1 5 10 25 50 75 100 200 300 400 500 750 1000 5000 10000 25000 50000 75000 100000 200000 300000 400000 500000 750000 1000000
var %b = 26, %g
while %b {
%g = $gettok(%amt,$r(1,$numtok(%amt,32)),32)
set %dond.boxwdamts $+(%b,:,%g) %dond.boxwdamts
%amt = $remtok(%amt,%g,1,32)
dec %b
}
}
alias -l dond.getboxes {
if ( %dond.boxwdamts ) {
var %n = $numtok($v1,32), %o
while %n {
tokenize 58 $gettok(%dond.boxwdamts,%n,32)
%o = 09,01 $+ $iif($1 isnum 1-9,$+(01,009,$1),$1) $+ %o
dec %n
}
return %o
}
}
alias -l dond.getamts {
if ( %dond.boxwdamts ) {
var %n = $numtok($v1,32), %o, %p , %o2
while %n {
tokenize 58 $gettok(%dond.boxwdamts,%n,32)
%o = $2 %o
dec %n
}
%o = $addtok(%o,$gettok(%dond.chosenbox,2,58),32)
%o = $sorttok(%o,32,n)
%p = $numtok(%o,32)
while %p {
%o2 = 09,01 $+ $gettok(%o,%p,32) $+ %o2
dec %p
}
return %o2
}
}
alias -l dond.bankerdeal {
if ( %dond.boxwdamts ) {
var %n = $numtok($v1,32), %o, %p = %n, %t = $1 * 2
while %n {
tokenize 58 $gettok(%dond.boxwdamts,%n,32)
inc %o $2
dec %n
}
;inc %o $calc($gettok(%dond.chosenbox,2,58) * .25)
inc %o $gettok(%dond.chosenbox,2,58)
set %dond.bankerdeal $round($calc(%o / %p * %t / 10),2)
return %dond.bankerdeal
; return $calc(%o / 10)
}
}
alias -l dond.getboxnum return $wildtok(%dond.boxwdamts,$iif($1 isnum 1-9,$remove($1,0),$1) $+ :*,1,32)
alias -l dond.removebox {
var %c = $dond.getboxnum($1)
if ( !%dond.chosenbox ) set %dond.chosenbox %c
set %dond.boxwdamts $remtok(%dond.boxwdamts,%c,1,32)
}
alias -l dond.casesperlevel {
var %dond.cpl = 6 5 4 3 3 2 1
set %dond.casesperlevel $gettok(%dond.cpl,%dond.level,32)
return %dond.casesperlevel
}
alias -l dond.randomchoosebox {
var %d = %dond.boxwdamts, %c = $iif(%dond.casesperlevel,$v1,1), %r, %o
while %c {
%r = $gettok(%d,$r(1,$numtok(%d,32)),32)
%d = $remtok(%d,%r,1,32)
%o = $addtok(%o,$gettok(%r,1,58),32)
dec %c
}
echo -a ** %o
dond.choose dond.random a a %o
}
alias -l dond.start {
var %os = $dond.time(onstart)
set %dond.status 1
msg $dondchan It's time for another game of $dond.logo $+ ! For those who wants to play, type 03!join to join the game. $&
The player will be randomly picked from those who joined. 4You have %os seconds to join.
set -z %dond.start %os
.timerdond.rpick 1 %os dond.rpick $1-
}
alias -l dond.end {
if ( %dond.status ) {
.timerdond.* off
msg $dondchan $dond.logo 04has been $iif($3,$+($3,-)) $+ stopped by07 $iif($1,$1-2,System Console) $+ . Type03 !dond to start another game.
unset %dond.*
if ( $hget($_players) ) hfree $_players
}
}
alias -l dond.choose {
if ( %dond.level == 0 ) {
if ( $4 isnum 1-26 ) {
.timerdond.* off
inc %dond.level
var %cpl = $dond.casesperlevel
msg $dondchan $iif(dond.random == $1,A Random box has been selected for you $+ :,You have chosen Box) 10 $+ $chr(35) $+ $4
dond.removebox $4
msg $dondchan Here are the Boxes left: $dond.getboxes
.timerdond.eliminate 1 2 msg $dondchan Now, you have to eliminate %cpl boxes. Type 3!choose $str($+(<number>,$chr(32)),%cpl) to eliminate the boxes. You have07 $dond.time(timelimit) secs to respond.
.timerdond.timelimit 1 $calc($dond.time(timelimit) + 2) dond.timelimit $2 $3 %dond.player
}
else msg $dondchan %dond.player $+ : 12There are only 0426 12boxes.
}
elseif ( %dond.level isnum 1-7 ) {
if ( $4 ) {
if ( $timer(dond.timelimit) ) .timerdond.timelimit off
var %d = $dond.casesperlevel, %net = $2, %ch = $3, %nn, %nb, %ae
if ( !%dond.pickednum ) set %dond.pickednum 0
if ( %dond.pickednum < %dond.casesperlevel ) {
var %w = 1, %n, %f = $4-, %eb
while ( %dond.pickednum < %dond.casesperlevel ) && $gettok(%f,%w,32) {
%n = $v1
if ( $dond.getboxnum(%n) ) {
tokenize 58 $v1
%eb = $addtok(%eb,12 $+ $chr(35) $+ $1 10 $+ $comma($2) $+ ,44)
dond.removebox %n
inc %dond.pickednum
}
elseif ( %n !isnum ) %nn = $addtok(%nn,12 $+ %n $+ ,44)
elseif ( %n == $gettok(%dond.chosenbox,1,58) ) msg $dondchan Box12 $chr(35) $+ %n is already your chosen box.
elseif ( %n !isnum 1-26 ) %nb = $addtok(%nb,12 $+ %n $+ ,44)
else %ae = $addtok(%ae,12 $+ %n $+ ,44)
inc %w
}
if ( %nn ) msg $dondchan %nn $iif($numtok(%nn,44) > 1,are,is) not a number.
if ( %nb ) msg $dondchan There $iif($numtok(%nb,44) > 1,are,is) no Box $chr(35) $+ $iif($numtok(%nb,44) > 1,s) %nb
if ( %ae ) msg $dondchan You have already eliminated Box $chr(35) $+ $iif($numtok(%ae,44) > 1,s) %ae
if ( %eb ) msg $dondchan You have eliminated07 %dond.pickednum of12 %dond.casesperlevel Boxe(s): %eb
if ( %dond.pickednum < %dond.casesperlevel ) {
.timerdond.pickednum 1 3 msg $dondchan 04 $+ $calc(%dond.casesperlevel - %dond.pickednum) more to eliminate.
.timerdond.timelimit 1 $calc($dond.time(timelimit) + 3) dond.timelimit %net %ch %dond.player
}
else {
.timerdond.getboxes1 1 1 msg $dondchan Here's the rest of the boxes: $!dond.getboxes
.timerdond.getamts1 1 2 msg $dondchan Here's the remaining amounts: $!dond.getamts
.timerbanker1 1 3 msg $dondchan 04! B A N K E R !
.timerbanker2 1 5 msg $dondchan The Banker's offer is:10 $comma($dond.bankerdeal(2))
.timerdond.msg.dond 1 6 $({, ) msg $dondchan To accept the offer, type 12!deal. If you don't accept, type 04!nodeal. You have07 $dond.time(autoaccept) secs to respond. $(|, ) set % $+ dond.answerdond 1 $(}, )
.timerdond.autoaccept 1 $calc($dond.time(autoaccept) + 6) dond.autoacceptoffer %net %ch %dond.player
}
}
else msg $dondchan You have already eliminated %dond.casesperlevel boxes at this time.
}
else msg $dondchan Choose %dond.casesperlevel boxes to elimnate from the remaining ones. Type 3!choose $str($+(<number>,$chr(32)),%dond.casesperlevel) $+ .
}
}
alias -l comma {
;By Fiberoptics
var %a, %b = $regsub($ticks,$1,/\G([+-]?\d+?)(?=(?:\d{3})++(?=\.\d++$|$))/g,\1 $+ $chr(44),%a)
return %a
}
alias -l dond.save {
hsave -o $_table $_data
hsave -o $_players $_playdata
}
alias -l dond.players {
var %n = $hfind($_players,$+($1,:,$2,:*),0,w)
if ( $prop == rand ) return $hfind($_players,$+($1,:,$2,:*),$r(1,%n),w)
return %n
}
alias -l dond.timelimit {
unset %dond.player
msg $dondchan $+ $3 12seems to be inactive. We will now select a new player...
.timerdond.rpick 1 2 dond.rpick $1 $2
}
alias -l dond.autoacceptoffer {
hinc -m $_table $+($1,:,$2,:,$3) %dond.bankerdeal
msg $dondchan 12The Banker's offer has been auto-accepted .10 $comma(%dond.bankerdeal) 12will be added to your points. Your new total points:03 $comma($hget($_table,$+($1,:,$2,:,$3)))
dond.timelimit $1-
}
alias -l dond.time return $readini($_ini,config,$1)
alias -l dond.settings {
if ( !$readini($_ini,config,avplayer) ) writeini -n $_ini config avplayer 1
if ( !$readini($_ini,config,onstart) ) writeini -n $_ini config onstart 30
if ( !$readini($_ini,config,timelimit) ) writeini -n $_ini config timelimit 45
if ( !$readini($_ini,config,randomchoosebox) ) writeini -n $_ini config randomchoosebox 45
if ( !$readini($_ini,config,autoaccept) ) writeini -n $_ini config autoaccept 45
if ( $1 ) echo $colour(info) -a ** $dond.logo v $+ $dond.version - Default Settings has been set.
}
alias -l dond.setchan {
writeini -n $_ini config channel $1
unset %dond.*
}
;############ MENU #############
menu * {
DOND v $+ $dond.version
.$style(1) $iif($readini($_ini,config,enable),Enabled,Disabled)
..$iif($readini($_ini,config,enable),Disable,Enable) game: {
writeini -n $_ini config enable $iif($readini($_ini,config,enable),0,1)
if ( !$readini($_ini,config,enable) ) && ( %dond.status ) dond.end System Console
}
.-
.$iif( $readini($_ini,config,enable), Status)
..$iif( !%dond.status, Start, Stop) DoND: {
if ( $me ison $dondchan ) $iif( !%dond.status , dond.start $network $dondchan, dond.end System Console)
else echo 04 -a $dond.logo Error: I am not on $dondchan $+ .
}
.-
.Settings
..Channel ( $+ $dondchan $+ )
...$iif($chan,Set Current $chr(40) $+ $chan $+ $chr(41)) : dond.setchan $chan
...Set Other? : dond.setchan #$$?="Enter the Channel name to play DEAL or NODEAL"
..-
..$iif($readini($_ini,config,avplayer),$style(1)) Auto voice Player
...$iif( !$readini($_ini,config,avplayer), Enable, Disable) : writeini -n $_ini config avplayer $iif($readini($_ini,config,avplayer),0,1)
..-
..Time
...On Start ( $+ $readini($_ini,config,onstart) $+ ) : writeini -n $_ini config onstart $$?="Enter time when starting the game (seconds)"
...Time to Confirm ( $+ $readini($_ini,config,confirmtime) $+ ) : writeini -n $_ini config confirmtime $$?="Enter time for user to confirm before starting the game (seconds)"
...Time Limit ( $+ $readini($_ini,config,timelimit) $+ ) : writeini -n $_ini config timelimit $$?="Enter time limit for user to respond (seconds)"
...Random 1st box ( $+ $readini($_ini,config,randomchoosebox) $+ ) : writeini -n $_ini config randomchoosebox $$?="Enter time limit when choosing the 1st box randomly (seconds)"
...Auto Accept Offer ( $+ $readini($_ini,config,autoaccept) $+ ) : writeini -n $_ini config autoaccept $$?="Enter time limit for user to respond before offer is auto-accepted (seconds)"
..-
..Scores
...Save {
var %w = $input(Do you really want to set the default settings?,uy,Deal or No Deal)
if ( $! ) {
hsave -o $_table $_data
echo $colour(info) -a $dond.logo v $+ $dond.version - Scores has been saved!
}
}
...Reset {
var %w = $input(Do you really want to reset All the scores?,uy,Deal or No Deal - Confirm Reset)
if ( $! ) {
hfree $_table
hmake $_table 10
}
}
..-
..Reset : {
var %w = $input(Do you really want to set the default settings?,uy,Deal or No Deal - Confirm Reset)
if ( $! ) {
dond.settings 1
}
}
}
;############ EOF #############