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.
  }
}