Miscellany

n81=on *:TEXT:-Poker*:#:{ /msg $chan Texas Holdem V1.2 By Lukee25 (1 code from chess so far) (a few ideas from DX) } 
n82=on *:TEXT:-Bet*:#:{ if $2 >= %chips [ $+ [ $nick ] ] || halt { set %Pot $calc( %pot + $2 )  
n83=    { /msg $chan $nick has bet $2 } 
n84=    { set %chips [ $+ [ $nick ] ] $calc( %chips [ $+ [ $nick ] ]  - $2- )  }
n85=    { set %lastbet $2 }
n86=  }
n87=}
n88=on *:TEXT:-call*:#:{ /msg $chan $nick bet %lastbet 
n89=  { set %chips [ $+ [ $nick ] ] $calc( %chips [ $+ [ $nick ] ]  - [ %lastbet ] ) }
n90=}
n91=on *:TEXT:-Allin*:#:{ /Msg $chan $nick went all in with %chips [ $+ [ $nick ] ]
n92=  { set %lastbet %chips [ $+ [ $nick ] ] }
n93=  { set %chips [ $+ [ $nick ] ] 0 }
n94=}
n95=on *:TEXT:-CheckPot*:#:{ /msg $chan the pot is %pot }
n96=on *:TEXT:-Join*:#:{ set %chips [ $+ [ $nick ] ] 10000 } { /msg $chan $nick has joined the game with 10,000 Chips! }
n97=on *:TEXT:-Fold*:#:{ set % [ $+ [ $nick ] ] Folded } { /msg $chan $nick has folded }
n98=on *:TEXT:-chips*:#:{ /msg $chan $nick has %chips [ $+ [ $nick ] ] }
n99=on *:TEXT:-ShowCards*:#:{ /msg $chan $nick $+ 's cards are % [ $+ [ $nick ] ] }
n100=menu nicklist { 
n101=  .Texas Holdem:
n102=  ...Deal Cards:{ set % $+ $1 $read(cards.txt) | $read(cards.txt)
n103=    { /msg $1 your cards are % [ $+ [ $1 ] ] }
n104=  }
n105=}
n106=menu nicklist { 
n107=  .Texas Holdem:
n108=  ...Winner:{ /msg $chan And the winner is!! $$1
n109=    { set %chips [ $+ [ $1 ] ] $calc( %chips [ $+ [ $1 ] ]  + %pot ) 
n110=      { set %pot 0 } 
n111=    }
n112=  }
n113=}
n114=menu channel { 
n115=  .Texas Holdem: 
n116=  ...Flop(1):{ set %Flop | $read(cards.txt) | $read(cards.txt) | $read(cards.txt)
n117=    { /msg $chan Flop cards are, %flop }
n118=  }
n119=  ...Turn(2):{ set %turn %flop | $read(cards.txt)
n120=    { /msg $chan Turn cards are, %turn } 
n121=  }
n122=  ...River(3):{ set %river %turn | $read(cards.txt)
n123=    { /msg $chan River Cards are %river }
n124=  }
n125=}