add this your bot's remotes. commands are 'reset; hit; stand and !start and have fun requiers minimum of 4 players.

on *:load: {
  set %1 ace
  set %2 2
  set %3 3
  set %4 4
  set %5 5
  set %6 6
  set %7 7
  set %8 8
  set %9 9
  set %10 10
  set %11 jack
  set %12 queen
  set %13 king
  set %chan $?="enter channel name"
  set %game on
  writeini bj.ini bj player1 none
  writeini bj.ini bj player2 none
  writeini bj.ini bj player3 none
  writeini bj.ini bj player4 none
  writeini bj.ini bj player5 Start game
}

menu MenuBar {
  -
  Black Jack
  .On:set %game on
  ..Off:set %game off
  ...Set Channel: set %chan $$?="Enter channel name where you'd like to play 
  Black Jack, EG: #BlackJack"
}

on *:text:!start:%chan: {
  if %game == on {
    msg $nick Please type 4!bet in main to add yourself into the next round
    writeini bj.ini money $nick 100
  }
  else msg %chan 4Sorry no game in progress...
}

on *:text:!bet:%chan: {
  if %game == on {
    entergame $nick
  }
  else msg %chan 4Sorry no game in progress...
}

alias entergame {
  if $readini(bj.ini , Bj , player1) == none {
    if $readini(bj.ini,money, $nick) > 0 ) {
      writeini bj.ini bj player1 $1
      writeini bj.ini bj player1m $readini(bj.ini, money, $1 )
      msg %chan 4 $+ $1 6added to this round4 3 6more player required!
      writeini bj.ini money $nick $calc( $readini(bj.ini,money, $nick) - 1 )
      msg $nick 6You have 4R $+ $readini(bj.ini,money, $nick) 6left
      halt
    }
    else msg $nick 6Sorry but you have no more money left please type 4!start64 to reset your account!!!
  }
  elseif $readini(bj.ini , Bj , player2) == none {
    if $readini(bj.ini,money, $nick) > 0 ) {
      writeini bj.ini bj player2 $1
      writeini bj.ini bj player2m $readini(bj.ini, money, $1 )
      msg %chan 4 $+ $1 6added to this round4 2 6more player required!
      halt
    }
    else msg $nick 6Sorry but you have no more money left please type 4!start6 to reset your account!!!
  }
  elseif $readini(bj.ini , Bj , player3) == none {
    if $readini(bj.ini,money, $nick) > 0 ) {
      writeini bj.ini bj player3 $1
      writeini bj.ini bj player3m $readini(bj.ini, money, $1 )
      msg %chan 4 $+ $1 6added to this round4 1 6more player required!
      halt
    }
    else msg $nick 6Sorry but you have no more money left please type 4!start6 to reset your account!!!
  }
  elseif $readini(bj.ini , Bj , player4) == none {
    if $readini(bj.ini,money, $nick) > 0 ) {
      writeini bj.ini bj player4 $1
      writeini bj.ini bj player4m $readini(bj.ini, money, $1 )
      msg %chan 13Game full.. Game now starting.
      deal
      halt
    }
    else msg $nick 6Sorry but you have no more money left please type 4!start6 to reset your account!!!
  }
  else msg $1 4Sorry game is full!! please wait to enter the next game
}

alias deal {
  writeini bj.ini bj player1c1 % $+ $rand(1,13)
  writeini bj.ini bj player1c2 % $+ $rand(1,13)
  writeini bj.ini bj player2c1 % $+ $rand(1,13)
  writeini bj.ini bj player2c2 % $+ $rand(1,13)
  writeini bj.ini bj player3c1 % $+ $rand(1,13)
  writeini bj.ini bj player3c2 % $+ $rand(1,13)
  writeini bj.ini bj player4c1 % $+ $rand(1,13)
  writeini bj.ini bj player4c2 % $+ $rand(1,13)
  calc_hands
  show_hands
}

alias calc_hands {
  if $readini(bj.ini , bj , player1c1) == 1 {
    set %card1 1
  }
  if $readini(bj.ini, bj, player1c1) == 2 {
    set %card1 2
  }
  if $readini(bj.ini, bj, player1c1) == 3 {
    set %card1 3
  }
  if $readini(bj.ini, bj, player1c1) == 4 {
    set %card1 4
  }
  if $readini(bj.ini, bj, player1c1) == 5 {
    set %card1 5
  }
  if $readini(bj.ini, bj, player1c1) == 6 {
    set %card1 6
  }
  if $readini(bj.ini, bj, player1c1) == 7 {
    set %card1 7
  }
  if $readini(bj.ini, bj, player1c1) == 8 {
    set %card1 8
  }
  if $readini(bj.ini, bj, player1c1) == 9 {
    set %card1 9
  }
  if $readini(bj.ini, bj, player1c1) == 10 {
    set %card1 10
  }
  if $readini(bj.ini, bj, player1c1) == 11 {
    set %card1 10
  }
  if $readini(bj.ini, bj, player1c1) == 12 {
    set %card1 10
  }
  if $readini(bj.ini, bj, player1c1) == 13 {
    set %card1 10
  }
  if $readini(bj.ini, bj, player1c2) == 1 {
    set %card2 1
  }
  if $readini(bj.ini, bj, player1c2) == 2 {
    set %card2 2
  }
  if $readini(bj.ini, bj, player1c2) == 3 {
    set %card2 3
  }
  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
}