• Home
  • Servers
  • Chat
  • Channels
  • Commands
  • Forum
  • FAQ
  • Software
  • Quotes
Topic Options
Rate This Topic
#21 - 08/01/06 01:26 AM #poker script
usrbingeek Offline

WyldRyde Staff

Registered: 07/31/06
Posts: 646
Loc: Burlington, VT
This is 100% FoF and Dukemaster, just posted it for anyone else

Code:
on *:JOIN:#poker:{
  if ($nick == $me) {
    poker_window
  }
}

alias poker_window {
  window  -eik0nz @Poker
}
on *:text:$( * $+ $me $+ * ):#poker: {
  if ( $nick == PokerBot ) {
    if ( $me isin $1 ) {
      if  ( $2 isnum ) {
        %poker_cash = $2
        %poker_cash2 = $2
      }
      if ( $remove( $3 , $chr(36) , $chr(46) ) isnum ) {
        %poker_cash = $calc( %poker_cash - $remove( $3 , $chr(36) , $chr(46) ) )
      }
    }
    if ( $me isin $3 ) && ( $4 isnum ) {
      %poker_cash = $4
      %poker_cash2 = $4
    }
    if ( $me isin $5 ) && ( $6 isnum ) {
      %poker_cash = $6
      %poker_cash2 = $6
    }
    poker_update
  }
}

on *:text:*pot*:#poker {
  if ( $remove( $7 , $chr(36) , $chr(46) ) isnum ) {
    %poker_pot = $remove( $7 , $chr(36) , $chr(46) )
  }
  if ( $remove( $10 , $chr(36) , $chr(46) ) isnum ) {
    %poker_pot = $remove( $10 , $chr(36) , $chr(46) )
  }
  if ( $remove( $11 , $chr(36) , $chr(46) ) isnum ) {
    %poker_pot = $remove( $11 , $chr(36) , $chr(46) )
  }
  poker_update
}
on *:text:*The blinds are currently*:#poker: {
  %poker_small_blinds = $5
  %poker_big_blinds = $remove( $7 , $chr(46) )
  poker_update
}

on *:TEXT:Game *:#poker:{
  if ($nick == PokerBot) {
    %poker_board = $null
    %poker_hole = $null
    %poker_pot = $null
    %poker_cash2 = $null
    poker_update
  }
}


on *:text:*The blinds are currently*:#poker: {
  %poker_small_blinds = $5
  %poker_big_blinds = $remove( $7 , $chr(46) )
  poker_update
}
on *:TEXT:Game *:#poker:{
  if ($nick == PokerBot) {
    %poker_board = $null
    %poker_hole = $null
    %poker_pot = $null
    %poker_cash2 = $null
    poker_update
  }
}
on *:TEXT:Board*:#poker:{
  if ($nick == PokerBot) {
    %poker_board = $replace( $gettok($1-,2-,32),C,1C,S,1S,H,4H,D,4D )
    poker_update
  }
}
on *:NOTICE:Board*:*:{
  if ($nick == PokerBot) {
    %poker_board = $replace( $gettok($1-,2-,32),C,1C,S,1S,H,4H,D,4D )
    poker_update
  }
}
on *:NOTICE:Your hole cards are*:*:{
  if ($nick == PokerBot) {
    %poker_hole = $replace( $gettok($1-,5-,32),C,1C,S,1S,H,4H,D,4D )
    poker_update
  }
}
alias poker_update {
  clear @Poker
  echo @Poker Cash at Start of Hand: %poker_cash2
  echo @Poker Big Blinds: %poker_big_blinds Small Blinds: %poker_small_blinds
  echo @Poker Currrent Cash: %poker_cash
  echo @Poker Current Pot: %poker_pot
  echo @Poker Board: %poker_board
  echo @Poker Cards: %poker_hole
}

Top
Sponsored Links
Sponsored Links
Member
*****

Registered: 27/08/04
Posts: 10136
Loc: Mountain View, CA
Top


Moderator:  Jeff, mandy, usrbingeek