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
}