rendered paste body if $readini(bj.ini, bj, player1c2) == 4 {
set %card2 4
}
if $readini(bj.ini, bj, player1c2) == 5 {
set %card2 5
}
if $readini(bj.ini, bj, player1c2) == 6 {
set %card2 6
}
if $readini(bj.ini, bj, player1c2) == 7 {
set %card2 7
}
if $readini(bj.ini, bj, player1c2) == 8 {
set %card2 8
}
if $readini(bj.ini, bj, player1c2) == 9 {
set %card2 9
}
if $readini(bj.ini, bj, player1c2) == 10 {
set %card2 10
}
if $readini(bj.ini, bj, player1c2) == 11 {
set %card2 10
}
if $readini(bj.ini, bj, player1c2) == 12 {
set %card2 10
}
if $readini(bj.ini, bj, player1c2) == 13 {
set %card2 10
}
if $readini(bj.ini, bj, player2c1) == 1 {
set %card3 1
}
if $readini(bj.ini, bj, player2c1) == 2 {
set %card3 2
}
if $readini(bj.ini, bj, player2c1) == 3 {
set %card3 3
}
if $readini(bj.ini, bj, player2c1) == 4 {
set %card3 4
}
if $readini(bj.ini, bj, player2c1) == 5 {
set %card3 5
}
if $readini(bj.ini, bj, player2c1) == 6 {
set %card3 6
}
if $readini(bj.ini, bj, player2c1) == 7 {
set %card3 7
}
if $readini(bj.ini, bj, player2c1) == 8 {
set %card3 8
}
if $readini(bj.ini, bj, player2c1) == 9 {
set %card3 9
}
if $readini(bj.ini, bj, player2c1) == 10 {
set %card3 10
}
if $readini(bj.ini, bj, player2c1) == 11 {
set %card3 10
}
if $readini(bj.ini, bj, player2c1) == 12 {
set %card3 10
}
if $readini(bj.ini, bj, player2c1) == 13 {
set %card3 10
}
if $readini(bj.ini, bj, player2c2) == 1 {
set %card4 1
}
if $readini(bj.ini, bj, player2c2) == 2 {
set %card4 2
}
if $readini(bj.ini, bj, player2c2) == 3 {
set %card4 3
}
if $readini(bj.ini, bj, player2c2) == 4 {
set %card4 4
}
if $readini(bj.ini, bj, player2c2) == 5 {
set %card4 5
}
if $readini(bj.ini, bj, player2c2) == 6 {
set %card4 6
}
if $readini(bj.ini, bj, player2c2) == 7 {
set %card4 7
}
if $readini(bj.ini, bj, player2c2) == 8 {
set %card4 8
}
if $readini(bj.ini, bj, player2c2) == 9 {
set %card4 9
}
if $readini(bj.ini, bj, player2c2) == 10 {
set %card4 10
}
if $readini(bj.ini, bj, player2c2) == 11 {
set %card4 10
}
if $readini(bj.ini, bj, player2c2) == 12 {
set %card4 10
}
if $readini(bj.ini, bj, player2c2) == 13 {
set %card4 10
}
if $readini(bj.ini, bj, player3c1) == 1 {
set %card5 1
}
if $readini(bj.ini, bj, player3c1) == 2 {
set %card5 2
}
if $readini(bj.ini, bj, player3c1) == 3 {
set %card5 3
}
if $readini(bj.ini, bj, player3c1) == 4 {
set %card5 4
}
if $readini(bj.ini, bj, player3c1) == 5 {
set %card5 5
}
if $readini(bj.ini, bj, player3c1) == 6 {
set %card5 6
}
if $readini(bj.ini, bj, player3c1) == 7 {
set %card5 7
}
if $readini(bj.ini, bj, player3c1) == 8 {
set %card5 8
}
if $readini(bj.ini, bj, player3c1) == 9 {
set %card5 9
}
if $readini(bj.ini, bj, player3c1) == 10 {
set %card5 10
}
if $readini(bj.ini, bj, player3c1) == 11 {
set %card5 10
}
if $readini(bj.ini, bj, player3c1) == 12 {
set %card5 10
}
if $readini(bj.ini, bj, player3c1) == 13 {
set %card5 10
}
if $readini(bj.ini, bj, player3c2) == 1 {
set %card6 1
}
if $readini(bj.ini, bj, player3c2) == 2 {
set %card6 2
}
if $readini(bj.ini, bj, player3c2) == 3 {
set %card6 3
}
if $readini(bj.ini, bj, player3c2) == 4 {
set %card6 4
}
if $readini(bj.ini, bj, player3c2) == 5 {
set %card6 5
}
if $readini(bj.ini, bj, player3c2) == 6 {
set %card6 6
}
if $readini(bj.ini, bj, player3c2) == 7 {
set %card6 7
}
if $readini(bj.ini, bj, player3c2) == 8 {
set %card6 8
}
if $readini(bj.ini, bj, player3c2) == 9 {
set %card6 9
}
if $readini(bj.ini, bj, player3c2) == 10 {
set %card6 10
}
if $readini(bj.ini, bj, player3c2) == 11 {
set %card6 10
}
if $readini(bj.ini, bj, player3c2) == 12 {
set %card6 10
}
if $readini(bj.ini, bj, player3c2) == 13 {
set %card6 10
}
if $readini(bj.ini, bj, player4c1) == 1 {
set %card7 1
}
if $readini(bj.ini, bj, player4c1) == 2 {
set %card7 2
}
if $readini(bj.ini, bj, player4c1) == 3 {
set %card7 3
}
if $readini(bj.ini, bj, player4c1) == 4 {
set %card7 4
}
if $readini(bj.ini, bj, player4c1) == 5 {
set %card7 5
}
if $readini(bj.ini, bj, player4c1) == 6 {
set %card7 6
}
if $readini(bj.ini, bj, player4c1) == 7 {
set %card7 7
}
if $readini(bj.ini, bj, player4c1) == 8 {
set %card7 8
}
if $readini(bj.ini, bj, player4c1) == 9 {
set %card7 9
}
if $readini(bj.ini, bj, player4c1) == 10 {
set %card7 10
}
if $readini(bj.ini, bj, player4c1) == 11 {
set %card7 10
}
if $readini(bj.ini, bj, player4c1) == 12 {
set %card7 10
}
if $readini(bj.ini, bj, player4c1) == 13 {
set %card7 10
}
if $readini(bj.ini, bj, player4c2) == 1 {
set %card8 1
}
if $readini(bj.ini, bj, player4c2) == 2 {
set %card8 2
}
if $readini(bj.ini, bj, player4c2) == 3 {
set %card8 3
}
if $readini(bj.ini, bj, player4c2) == 4 {
set %card8 4
}
if $readini(bj.ini, bj, player4c2) == 5 {
set %card8 5
}
if $readini(bj.ini, bj, player4c2) == 6 {
set %card8 6
}
if $readini(bj.ini, bj, player4c2) == 7 {
set %card8 7
}
if $readini(bj.ini, bj, player4c2) == 8 {
set %card8 8
}
if $readini(bj.ini, bj, player4c2) == 9 {
set %card8 9
}
if $readini(bj.ini, bj, player4c2) == 10 {
set %card8 10
}
if $readini(bj.ini, bj, player4c2) == 11 {
set %card8 10
}
if $readini(bj.ini, bj, player4c2) == 12 {
set %card8 10
}
if $readini(bj.ini, bj, player4c2) == 13 {
set %card8 10
}
set %player1 $calc( %card1 + %card2 )
set %player2 $calc( %card3 + %card4 )
set %player3 $calc( %card5 + %card6 )
set %player4 $calc( %card7 + %card8 )
}
alias show_hands {
describe %chan Draws a(n)7 $readini(bj.ini,bj,player1c1) and places it infront of9 $readini(bj.ini, bj,player1)
describe %chan Draws a(n)7 $readini(bj.ini,bj,player2c1) and places it infront of9 $readini(bj.ini, bj,player2)
describe %chan Draws a(n)7 $readini(bj.ini,bj,player3c1) and places it infront of9 $readini(bj.ini, bj,player3)
describe %chan Draws a(n)7 $readini(bj.ini,bj,player4c1) and places it infront of9 $readini(bj.ini, bj,player4)
describe %chan Draws a(n)7 $readini(bj.ini,bj,player1c2) and places it infront of9 $readini(bj.ini, bj,player1)
describe %chan Draws a(n)7 $readini(bj.ini,bj,player2c2) and places it infront of9 $readini(bj.ini, bj,player2)
describe %chan Draws a(n)7 $readini(bj.ini,bj,player3c2) and places it infront of9 $readini(bj.ini, bj,player3)
describe %chan Draws a(n)7 $readini(bj.ini,bj,player4c2) and places it infront of9 $readini(bj.ini, bj,player4)
describe %chan Draws 2 cards for himself!!
msg %chan 4 $readini(bj.ini, bj,player1) has4 %player1
msg %chan 4 $readini(bj.ini, bj,player2) has4 %player2
msg %chan 4 $readini(bj.ini, bj,player3) has4 %player3
msg %chan 4 $readini(bj.ini, bj,player4) has4 %player4
writeini bj.ini BJ player1t %player1
writeini bj.ini BJ player2t %player2
writeini bj.ini BJ player3t %player3
writeini bj.ini BJ player4t %player4
set %dealer $rand(16,26)
set %bj 1
play_game
}
alias play_game {
msg %chan 9 $readini(bj.ini , Bj , player $+ %bj ) It's your turn! Would you like to 4hit or4 stand?
set %player $readini(bj.ini , Bj , player $+ %bj )
}
on *:text:hit:%chan: {
if $nick == %player {
writeini bj.ini bj cardhit % $+ $rand(1,13)
describe %chan draws a(n)4 $readini(bj.ini, bj , cardhit)
if $readini(bj.ini , bj , cardhit) == %1 {
writeini BJ.ini BJ player $+ %bj $+ t $calc( $readini(BJ.ini, BJ, player $+ %bj $+ t ) + 1 )
}
if $readini(bj.ini , bj , cardhit) == %2 {
writeini BJ.ini BJ player $+ %bj $+ t $calc( $readini(BJ.ini , BJ, player $+ %bj $+ t ) + 2 )
}
if $readini(bj.ini , bj , cardhit) == %3 {
writeini BJ.ini BJ player $+ %bj $+ t $calc( $readini(BJ.ini , BJ, player $+ %bj $+ t ) + 3 )
}
if $readini(bj.ini , bj , cardhit) == %4 {
writeini BJ.ini BJ player $+ %bj $+ t $calc( $readini(BJ.ini , BJ, player $+ %bj $+ t ) + 4 )
}
if $readini(bj.ini , bj , cardhit) == %5 {
writeini BJ.ini BJ player $+ %bj $+ t $calc( $readini(BJ.ini , BJ, player $+ %bj $+ t ) + 5 )
}
if $readini(bj.ini , bj , cardhit) == %6 {
writeini BJ.ini BJ player $+ %bj $+ t $calc( $readini(BJ.ini , BJ, player $+ %bj $+ t ) + 6 )
}
if $readini(bj.ini , bj , cardhit) == %7 {
writeini BJ.ini BJ player $+ %bj $+ t $calc( $readini(BJ.ini , BJ, player $+ %bj $+ t ) + 7 )
}
if $readini(bj.ini , bj , cardhit) == %8 {
writeini BJ.ini BJ player $+ %bj $+ t $calc( $readini(BJ.ini , BJ, player $+ %bj $+ t ) + 8 )
}
if $readini(bj.ini , bj , cardhit) == %9 {
writeini BJ.ini BJ player $+ %bj $+ t $calc( $readini(BJ.ini , BJ, player $+ %bj $+ t ) + 9 )
}
if $readini(bj.ini , bj , cardhit) == %10 {
writeini BJ.ini BJ player $+ %bj $+ t $calc( $readini(BJ.ini , BJ, player $+ %bj $+ t ) + 10 )
}
if $readini(bj.ini , bj , cardhit) == %11 {
writeini BJ.ini BJ player $+ %bj $+ t $calc( $readini(BJ.ini , BJ, player $+ %bj $+ t ) + 10 )
}
if $readini(bj.ini , bj , cardhit) == %12 {
writeini BJ.ini BJ player $+ %bj $+ t $calc( $readini(BJ.ini , BJ, player $+ %bj $+ t ) + 10 )
}
if $readini(bj.ini , bj , cardhit) == %13 {
writeini BJ.ini BJ player $+ %bj $+ t $calc( $readini(BJ.ini , BJ, player $+ %bj $+ t ) + 10 )
}
msg %chan 6You now have4 $readini(BJ.ini, BJ, player $+ %bj $+ t )
if $readini(BJ.ini, BJ, player $+ %bj $+ t ) > 21 {
msg %chan 4sorry you've busted!!!
inc %bj
set %player $readini(bj.ini , bj , player $+ %bj )
if %player == $readini(bj.ini , bj , player1 ) {
msg %chan 6It is now9 $readini(bj.ini , Bj , player $+ %bj ) $+ 's 6turn..
}
if %player == $readini(bj.ini , bj , player2 ) {
msg %chan 6It is now9 $readini(bj.ini , Bj , player $+ %bj ) $+ 's 6turn..
}
if %player == $readini(bj.ini , bj , player3 ) {
msg %chan 6It is now9 $readini(bj.ini , Bj , player $+ %bj ) $+ 's 6turn..
}
if %player == $readini(bj.ini , bj , player4 ) {
msg %chan 6It is now9 $readini(bj.ini , Bj , player $+ %bj ) $+ 's 6turn..
}
elseif %player == $readini(bj.ini, bj, player5 ) {
end_game
}
}
}
}
on *:text:stand:%chan: {
if $nick == %player {
msg %chan 6You have chosen to stand on4 $readini(bj.ini, BJ, player $+ %bj $+ t )
inc %bj
set %player $readini(bj.ini , bj , player $+ %bj )
if %player == $readini(bj.ini , bj , player1 ) {
msg %chan 6It is now9 $readini(bj.ini , Bj , player $+ %bj ) $+ 's 6turn..
}
if %player == $readini(bj.ini , bj , player2 ) {
msg %chan 6It is now9 $readini(bj.ini , Bj , player $+ %bj ) $+ 's 6turn..
}
if %player == $readini(bj.ini , bj , player3 ) {
msg %chan 6It is now9 $readini(bj.ini , Bj , player $+ %bj ) $+ 's 6turn..
}
if %player == $readini(bj.ini , bj , player4 ) {
msg %chan 6It is now9 $readini(bj.ini , Bj , player $+ %bj ) $+ 's 6turn..
}
elseif %player == $readini(bj.ini, bj, player5 ) {
end_game
}
}
}
alias end_game {
describe %chan 6Turns over his cards and reveals4 %dealer
if %dealer > 21 {
msg %chan 4BUSTED
if ( ( $readini(bj.ini, BJ, player1t ) < 22 ) ) {
msg %chan $readini(bj.ini, bj, player1) wins
writeini bj.ini money $readini(bj.ini, bj, player1) $calc(
$readini(bj.ini, money, $readini(bj.ini, bj, player1)) + 3 )
msg $readini(bj.ini, bj, player1) 6You have now have $readini(bj.ini , money, $readini(bj.ini, bj, player1)
}
if ( ( $readini(bj.ini, BJ, player2t ) < 22 ) ) {
msg %chan $readini(bj.ini, bj, player2) wins
writeini bj.ini money $readini(bj.ini, bj, player2) $calc(
$readini(bj.ini, money, $readini(bj.ini, bj, player2)) + 3 )
msg $readini(bj.ini, bj, player2) 6You have now have $readini(bj.ini , money, $readini(bj.ini, bj, player2)
}
if ( ( $readini(bj.ini, BJ, player3t ) < 22 ) ) {
msg %chan $readini(bj.ini, bj, player3) wins
writeini bj.ini money $readini(bj.ini, bj, player3) $calc(
$readini(bj.ini, money, $readini(bj.ini, bj, player3)) + 3 )
msg $readini(bj.ini, bj, player3) 6You have now have $readini(bj.ini , money, $readini(bj.ini, bj, player3)
}
if ( ( $readini(bj.ini, BJ, player4t ) < 22 ) ) {
msg %chan $readini(bj.ini, bj, player4) wins
writeini bj.ini money $readini(bj.ini, bj, player4) $calc(
$readini(bj.ini, money, $readini(bj.ini, bj, player4)) + 3 )
msg $readini(bj.ini, bj, player4) 6You have now have $readini(bj.ini , money, $readini(bj.ini, bj, player4)
}
}
else {
msg %chan $readini(bj.ini, bj, player1) had $readini(bj.ini, BJ, player1t )
msg %chan $readini(bj.ini, bj, player2) had $readini(bj.ini, BJ, player2t )
msg %chan $readini(bj.ini, bj, player3) had $readini(bj.ini, BJ, player3t )
msg %chan $readini(bj.ini, bj, player4) had $readini(bj.ini, BJ, player4t )
if (( $readini(bj.ini, BJ, player1t ) > %dealer )) && (( $readini(bj.ini, BJ, player1t ) < 22 )) {
msg %chan $readini(bj.ini, bj, player1) wins
writeini bj.ini money $readini(bj.ini, bj, player1) $calc($readini(bj.ini, money, $readini(bj.ini, bj, player1)) + 3 )
msg $readini(bj.ini, bj, player1) 6You have now have $readini(bj.ini , money, $readini(bj.ini, bj, player1))
}
if (( $readini(bj.ini, BJ, player2t ) > %dealer )) && (($readini(bj.ini, BJ, player2t ) < 22 )) {
msg %chan $readini(bj.ini, bj, player2) wins
writeini bj.ini money $readini(bj.ini, bj, player2) $calc($readini(bj.ini, money, $readini(bj.ini, bj, player2)) + 3 )
msg $readini(bj.ini, bj, player2) 6You have now have $readini(bj.ini , money, $readini(bj.ini, bj, player2))
}
if (( $readini(bj.ini, BJ, player3t ) > %dealer )) && (($readini(bj.ini, BJ, player3t ) < 22 )) {
msg %chan $readini(bj.ini, bj, player3) wins
writeini bj.ini money $readini(bj.ini, bj, player3) $calc($readini(bj.ini, money, $readini(bj.ini, bj, player3)) + 3 )
msg $readini(bj.ini, bj, player3) 6You have now have $readini(bj.ini , money, $readini(bj.ini, bj, player3))
}
if (( $readini(bj.ini, BJ, player4t ) > %dealer )) && (($readini(bj.ini, BJ, player4t ) < 22 )) {
msg %chan $readini(bj.ini, bj, player4) wins
writeini bj.ini money $readini(bj.ini, bj, player4) $calc($readini(bj.ini, money, $readini(bj.ini, bj, player4)) + 3 )
msg $readini(bj.ini, bj, player4) 6You have now have $readini(bj.ini , money, $readini(bj.ini, bj, player4))
}
}
writeini bj.ini bj player1 none
writeini bj.ini bj player2 none
writeini bj.ini bj player3 none
writeini bj.ini bj player4 none
}
on *:text:`reset:?: {
writeini bj.ini bj player1 none
writeini bj.ini bj player2 none
writeini bj.ini bj player3 none
writeini bj.ini bj player4 none
}