Sponsored Links


Topic Options
Rate This Topic
#21 - 08/01/06 01:26 AM #poker script
usrbingeek Administrator Offline
WyldRyde Staff

Registered: 07/31/06
Posts: 431
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


Recent Posts
Happy birthday usrbingeek!
by sbushfan11
6 seconds ago
MyNick
by KtecK
Today at 08:50 AM
Automated Ban removal
by iPhone
Yesterday at 11:32 PM
Linkinus Help
by iPhone
Yesterday at 11:29 PM
Who uses Twitter?
by techman224
Yesterday at 11:15 PM
Thank You Moderators
by iPhone
Yesterday at 10:11 PM
Hello, And Welcome To The #SamF Forums
by techman224
Yesterday at 09:01 PM
Trigger Script.
by jwire4
Yesterday at 04:16 PM
How do I identify on Rooms app for iPhone?
by iPhone
Yesterday at 04:09 PM
Topic setter's username is appended to topic
by techman224
Yesterday at 02:59 PM
Away notification script
by evanrocks010
Yesterday at 02:43 PM
Im having trouble with mode commands
by techman224
Yesterday at 02:31 PM
Recent Pics
Old school IRC
How to use Google!
TIX
Who's Online
1 Registered (sbushfan11), 2 Guests and 4 Spiders online.
Key: Admin, Global Mod, Mod
Top Posters
usrbingeek 431
Kat 233
iPhone 94
Phil 87
Freekie 78
CCMike 66
techman224 64
Justin 59
wirelesspacket 52
tengrrl 50
Terms Of Use
Use of this community signifies your agreement to the Terms Of Service and Conditions of Use.