rendered paste body
on *:TEXT:!blackjack:#:{
if ($read(casinoacc.txt, s, $nick) != $null) {
if ($read(casinoacc.txt, s, $nick) != $null) && ($eval(%casino. [ $+ [ $nick ] $+ ] .log)) {
if (%casino. [ $+ [ $nick ] $+ ] .on) {
.notice $nick 2You are already playing a game in the casino.
halt
}
.notice $nick 2You have asked to play a hand of blackjack. Here are your first two cards.
set %blackjack. [ $+ [ $nick ] $+ ] .player $nick
set %casino. [ $+ [ $nick ] $+ ] .on 1
set %blackjack. [ $+ [ $nick ] $+ ] .cards.1 $rand(2,14)
set %blackjack. [ $+ [ $nick ] $+ ] .cards.2 $rand(2,14)
if (%blackjack. [ $+ [ $nick ] $+ ] .cards.1 == 14) {
set %blackjack. [ $+ [ $nick ] $+ ] .cards.1.value 11
}
elseif (%blackjack. [ $+ [ $nick ] $+ ] .cards.1 isnum 11-13) {
set %blackjack. [ $+ [ $nick ] $+ ] .cards.1.value 10
}
else {
set %blackjack. [ $+ [ $nick ] $+ ] .cards.1.value $eval(%blackjack. [ $+ [ $nick ] $+ ] .cards.1)
}
if (%blackjack. [ $+ [ $nick ] $+ ] .cards.2 == 14) {
set %blackjack. [ $+ [ $nick ] $+ ] .cards.2.value 11
}
elseif (%blackjack. [ $+ [ $nick ] $+ ] .cards.2 isnum 11-13) {
set %blackjack. [ $+ [ $nick ] $+ ] .cards.2.value 10
}
else {
set %blackjack. [ $+ [ $nick ] $+ ] .cards.2.value $eval(%blackjack. [ $+ [ $nick ] $+ ] .cards.2)
}
set %blackjack. [ $+ [ $nick ] $+ ] .hand $+($chr(91),$replace($eval(%blackjack. [ $+ [ $nick ] $+ ] .cards.1),11,J,12,Q,13,K,14,A),$chr(93)) $+($chr(91),$replace($eval(%blackjack. [ $+ [ $nick ] $+ ] .cards.2),11,J,12,Q,13,K,14,A),$chr(93))
.notice $nick 2Your cards are: %blackjack. [ $+ [ $nick ] $+ ] .hand
set %blackjack. [ $+ [ $nick ] $+ ] .dealer.cards.1 $rand(2,11)
set %blackjack. [ $+ [ $nick ] $+ ] .dealer.cards.2 $rand(2,11)
if ($calc(%blackjack. [ $+ [ $nick ] $+ ] .dealer.cards.1 + %blackjack. [ $+ [ $nick ] $+ ] .dealer.cards.2) > 21) {
.notice $nick 2The dealer has gone bust and drawn [A] and [A], 22! You win! Since no betting has taken place, you will recieve $200.
write -s $+ $eval(%casino. [ $+ [ $nick ] $+ ] .log) casino.txt $eval(%casino. [ $+ [ $nick ] $+ ] .log) $calc($read(casino.txt, s, $eval(%casino. [ $+ [ $nick ] $+ ] .log)) + 200)
.notice $nick 2Your new account total is: $read(casino.txt, s, $nick)
unset %blackjack. [ $+ [ $nick ] $+ ] .*
unset %casino. [ $+ [ $nick ] $+ ] .on
}
if ($calc(%blackjack. [ $+ [ $nick ] $+ ] .cards.1 + %blackjack. [ $+ [ $nick ] $+ ] .cards.2) > 21) {
.notice $nick 2You has gone bust and drawn [A] and [A], 22! You lose. Since no betting has taken place, your account will be deducted $200.
write -s $+ $eval(%casino. [ $+ [ $nick ] $+ ] .log) casino.txt $eval(%casino. [ $+ [ $nick ] $+ ] .log) $calc($read(casino.txt, s, $eval(%casino. [ $+ [ $nick ] $+ ] .log)) - 200)
.notice $nick 2Your new account total is: $read(casino.txt, s, $nick)
unset %blackjack. [ $+ [ $nick ] $+ ] .*
unset %casino. [ $+ [ $nick ] $+ ] .on
}
if ($calc(%blackjack. [ $+ [ $nick ] $+ ] .cards.1 + %blackjack. [ $+ [ $nick ] $+ ] .cards.2) == 21) {
.notice $nick 2You've got blackjack! Congratulations, you win! Your account will be credited with $1,000.
write -s $+ $eval(%casino. [ $+ [ $nick ] $+ ] .log) Casino.txt $eval(%casino. [ $+ [ $nick ] $+ ] .log) $calc($read(Casino.txt, s, $eval(%casino. [ $+ [ $nick ] $+ ] .log)) + 1000)
unset %blackjack. [ $+ [ $nick ] $+ ] .*
unset %casino. [ $+ [ $nick ] $+ ] .on
}
else {
.notice $nick 2Please place your bet using !bet <amount>.
}
}
else {
.notice $nick 2Please log in to your account to play.
}
}
else {
.notice $nick 2You have not made an Aurora Casino account, to do so, type !Casino.
}
}
on *:TEXT:!hit:#:{
if ($read(casinoacc.txt, s, $nick) != $null) {
if ($read(casinoacc.txt, s, $nick) != $null) && ($eval(%casino. [ $+ [ $nick ] $+ ] .log)) {
if (%blackjack. [ $+ [ $nick ] $+ ] .player == $nick) {
if (%blackjack. [ $+ [ $nick ] $+ ] .bet) {
if (!%a) {
var %a = 3
}
else {
inc %a
}
set %blackjack. [ $+ [ $nick ] $+ ] .cards. [ $+ [ %a ] ] $rand(2,14)
if (%blackjack. [ $+ [ $nick ] $+ ] .cards. [ $+ [ %a ] ] == 14) {
set %blackjack. [ $+ [ $nick ] $+ ] .cards. [ $+ [ %a ] $+ ] .value 11
}
elseif (%blackjack. [ $+ [ $nick ] $+ ] .cards. [ $+ [ %a ] ] isnum 11-13) {
set %blackjack. [ $+ [ $nick ] $+ ] .cards. [ $+ [ %a ] $+ ] .value 10
}
else {
set %blackjack. [ $+ [ $nick ] $+ ] .cards. [ $+ [ %a ] $+ ] .value $eval(%blackjack. [ $+ [ $nick ] $+ ] .cards. [ $+ [ %a ] ])
}
var %b = 0
var %y = 0
while (%b < %a) {
inc %b
inc %y %blackjack. [ $+ [ $nick ] $+ ] .cards. [ $+ [ %b ] $+ ] .value
}
.notice $nick 2Your new card is: $+($chr(91),$replace(%blackjack. [ $+ [ $nick ] $+ ] .cards. [ $+ [ %a ] ],11,J,12,Q,13,K,14,A),$chr(93))
set %blackjack. [ $+ [ $nick ] $+ ] .hand $eval(%blackjack. [ $+ [ $nick ] $+ ] .hand) $eval($+($chr(91),$replace(%blackjack. [ $+ [ $nick ] $+ ] .cards. [ $+ [ %a ] ],11,J,12,Q,13,K,14,A),$chr(93)))
.notice $nick 2Your hand is now: %blackjack. [ $+ [ $nick ] $+ ] .hand
set %blackjack. [ $+ [ $nick ] $+ ] .y %y
if (%y > 21) {
.notice $nick 2You have gone bust, your hand is worth %y $+ . Try again soon!
unset %blackjack. [ $+ [ $nick ] $+ ] .*
unset %casino. [ $+ [ $nick ] $+ ] .on
}
}
else {
.notice $nick 2Please bet before getting another card.
}
}
else {
.notice $nick 2You're not playing a game of blackjack.
}
}
else {
.notice $nick 2Please login to your account to play.
}
}
else {
.notice $nick 2You have not made an Aurora Casino accout, to do so, type !Casino.
}
}
on *:TEXT:!stay:#:{
if ($read(casinoacc.txt, s, $nick) != $null) {
if ($read(casinoacc.txt, s, $nick) != $null) && ($eval(%casino. [ $+ [ $nick ] $+ ] .log)) {
if (%blackjack. [ $+ [ $nick ] $+ ] .player == $nick) {
if (%blackjack. [ $+ [ $nick ] $+ ] .bet) {
.notice $nick 2The dealer has: $+($chr(91),$replace(%blackjack. [ $+ [ $nick ] $+ ] .dealer.cards.2,11,J,12,Q,13,K,14,A),$chr(93)) $+($chr(91),$replace(%blackjack. [ $+ [ $nick ] $+ ] .dealer.cards.1,11,J,12,Q,13,K,14,A),$chr(93)) You have: $eval(%blackjack. [ $+ [ $nick ] $+ ] .hand) $+ .
var %b = 0
var %c = 0
var %x = 0
var %z = 0
if (!%blackjack. [ $+ [ $nick ] $+ ] .y) {
while (%b < 2) {
inc %b
inc %c %blackjack. [ $+ [ $nick ] $+ ] .cards. [ $+ [ %b ] $+ ] .value
}
}
while (%z < 2) {
inc %z
inc %x %blackjack. [ $+ [ $nick ] $+ ] .dealer.cards. [ $+ [ %z ] ]
}
if ($iif(%blackjack. [ $+ [ $nick ] $+ ] .y,%blackjack. [ $+ [ $nick ] $+ ] .y,%c) > %x) {
.notice $nick 2Congratulations! You won! Your account will now be credited with double your bet.
write -s $+ $eval(%casino. [ $+ [ $nick ] $+ ] .log) Casino.txt $eval(%casino. [ $+ [ $nick ] $+ ] .log) $calc($read(casino.txt, s, $eval(%casino. [ $+ [ $nick ] $+ ] .log)) + $calc(%blackjack. [ $+ [ $nick ] $+ ] .bet * 2))
}
else {
.notice $nick 2You didn't win the hand, but don't be discouraged, try again soon!
}
unset %blackjack. [ $+ [ $nick ] $+ ] .*
unset %casino. [ $+ [ $nick ] $+ ] .on
}
else {
.notice $nick 2You have not bet yet, please bet before continuing.
}
}
else {
.notice $nick 2You're not playing a game of blackjack.
}
}
else {
.notice $nick 2Please log in to your account to play.
}
}
else {
.notice $nick 2You have not made an Aurora Casino accout, to do so, type !Casino.
}
}
on *:TEXT:!fold:#:{
if ($read(casinoacc.txt, s, $nick) != $null) {
if ($read(casinoacc.txt, s, $nick) != $null) && ($eval(%casino. [ $+ [ $nick ] $+ ] .log)) {
if (%blackjack. [ $+ [ $nick ] $+ ] .player == $nick) {
.notice $nick 2You have folded.
unset %blackjack. [ $+ [ $nick ] $+ ] .*
unset %casino. [ $+ [ $nick ] $+ ] .on
}
else {
.notice $nick 2You're not playing a game of blackjack.
}
}
else {
.notice $nick 2Please log in to your account to play.
}
}
else {
.notice $nick 2You have not made an Aurora Casino accout, to do so, type !Casino.
}
}
on *:TEXT:!bet*:#:{
if ($read(casinoacc.txt, s, $nick) != $null) {
if ($read(casinoacc.txt, s, $nick) != $null) && ($eval(%casino. [ $+ [ $nick ] $+ ] .log)) {
if ($nick == %blackjack. [ $+ [ $nick ] $+ ] .player) {
if (!%blackjack. [ $+ [ $Nick ] $+ ] .bet) {
if (!$2) {
.notice $nick 2Please specify an amount.
}
else {
if ($2 !isnum) {
.notice $nick 2Please specify a number amount without using commas.
halt
}
else {
if ($2 > $read(casino.txt, s, $nick)) {
.notice $nick 2That amount is more than you have in your account. You have $chr(36) $+ $read(casino.txt, s, $nick) left.
}
else {
write -s $+ $eval(%casino. [ $+ [ $nick ] $+ ] .log) casino.txt $eval(%casino. [ $+ [ $nick ] $+ ] .log) $calc($read(casino.txt, s, $eval(%casino. [ $+ [ $nick ] $+ ] .log)) - $2)
set %blackjack. [ $+ [ $nick ] $+ ] .bet $2
.notice $nick 2You have bet $chr(36) $+ $2 $+ , would you like another card, or stay? Respond with !hit for another card, or !stay to finish the game.
}
}
}
}
else {
.notice $nick 2You have already bet.
}
}
else {
.notice $nick 2Please log in to your account to play.
}
}
}
else {
.notice $nick 2You have not made an Aurora Casino account, to do so, type !Casino.
}
}