Forums Scripts & Popups hand recognition

var %x = 1
while (%x <= $numtok(%players,44)) {
if ($wildtok($($+(%,player.,$gettok(%players,%x,44)),2),*-S,0,44) >= 5) {
set $+(%,player.,$gettok(%players,%x,44),.,hand) flush
inc %x
}

hand {
  ;var %hand = 2-S.1-C.13-C.4-D.8-H
  ;var %hand = 2-S.A-C.K-C.4-D.8-H
  var %hand = $$1

  echo -a -
  echo 3 -a Cards: %hand

  var %sa = 1, %sb, %t

  ; Check for high card, 1 pair, 2 pair, 3 of a kind, 4 of a kind, full house
  %t = $remove(%hand,-C,-D,-H,-S)
  %t = $replace(%t,J,11,Q,12,K,13,A,14)
  %t = $sorttok(%t,46,nr)

  var %c = 15, %w
  while (%c > 0) {
    dec %c
    %w = $wildtok(%t,%c,0,46)

    if (%w == 4) {
      %sa = 8
      %sb = $instok(%sb,%c,1,46)
    }

    ;3 matching cards
    elseif (%w == 3) {

      ;Full house
      if (%sa == 2) {
        %sa = 7
        %sb = $instok(%sb,%c,1,46)
      }

      ;3 of a kind
      elseif (%sa <= 4) {
        %sa = 4
        %sb = $instok(%sb,%c,1,46)
      }
    }

    ;2 matching cards
    elseif (%w == 2) {

      ;Full house
      if (%sa == 4) {
        %sa = 7
        %sb = $instok(%sb,%c,2,46)
      }

      ;2 pair
      elseif (%sa == 2) {
        %sa = 3
        %sb = $instok(%sb,%c,2,46)
      }

      ;1 pair
      elseif (%sa <= 2) {
        %sa = 2
        %sb = $instok(%sb,%c,1,46)
      }
    }

    ;1 matching card and no other matches
    elseif (%w == 1) {
      %sb = $addtok(%sb,%c,46)
    }

    ;remove current card from hand
    while ($istok(%t,%c,46)) %t = $remtok(%t,%c,1,46)
  }
  if (%t != $null) echo -a Invalid card(s): %t



  ;Check for straight, straight flush, royal flush

  var %suits = $remove(%hand,14,13,12,11,10,9,8,7,6,5,4,3,2,1,A,K,Q,J)
  var %f = $iif($count(%suits,$gettok(%suits,1,46)) >= 5,1,0)

  %t = $remove(%hand,-C,-D,-H,-S)
  %t = $replace(%t,J,11,Q,12,K,13,A,1.14)
  %t = $sorttok(%t,46,nr)

  var %s = 0, %prevcard, %card, %c = 0

  while (%c < 6) {
    inc %c
    %card = $gettok(%t,%c,46)

    if ((!%prevcard) || (%card == $calc(%prevcard - 1))) inc %s
    %prevcard = %card

  }

  if ($gettok(%t,1,46) == 14) {
    if ($gettok(%t,2,46) == 13) %t = $deltok(%t,6,46)
    else %t = $deltok(%t,1,46)
  }

  ;5 sequential cards
  if (%s >= 5) {

    ;royal flush
    if ((%f) && (%t == 14.13.12.11.10)) %sa = 10

    ;straight flush
    elseif (%f) %sa = 9

    ;straight
    elseif (%sa <= 5) %sa = 5

    %sb = %t
  }
  ;flush
  elseif ((%sa <= 6) && (%f)) {
    %sa = 6
    %sb = %t
  }


  var %hands = High Card,One Pair,Two Pairs,Three of a Kind,Straight,Flush,Full House,Four of a Kind,Straight Flush,Royal Flush
  echo 5 -a Hand: $gettok(%hands,%sa,44) 
  echo 7 -a Comparison: %sb

  return %sa $+ : %sb

}

#cards on
alias reset {
  unset %play
  unset %deck
  unset %player.*
  unset %comcards
}
alias make.deck {
  set %deck A-S,A-C,A-H,A-D,K-S,K-C,K-H,K-D,Q-S,Q-C,Q-H,Q-D,J-S,J-C,J-H,J-D,10-S,10-C,10-H,10-D,9-S,9-C,9-H,9-D,8-S,8-C,8-H,8-D,7-S,7-C,7-H,7-D,6-S,6-C,6-H,6-D,5-S,5-C,5-H,5-D,4-S,4-C,4-H,4-D,3-S,3-C,3-H,3-D,2-S,2-C,2-H,2-D
}
alias deal {
  var %i = 1
  while (%i <= 2) {
    var %card = $gettok(%deck,$rand(1,$numtok(%deck,44)),44)    
    set -s $+(%,player.,$$1) $($+(%,player.,$$1),2) $+ %card $+ $chr(44)
    notice $$1 %card    
    set %deck $remtok(%deck,%card,1,44)
    inc %i
  }
}
alias flop {
  var %i = 1
  while (%i <= 3) {
    var %card = $gettok(%deck,$rand(1,$numtok(%deck,44)),44)    
    set -s %comcards %comcards $+ %card $+ $chr(44)
    msg %cardroom The Flop : %card    
    set %deck $remtok(%deck,%card,1,44)
    inc %i
  }
}
alias turn {
  var %card = $gettok(%deck,$rand(1,$numtok(%deck,44)),44)    
  set -s %comcards %comcards $+ %card $+ $chr(44)
  msg %cardroom The Turn : %comcards     
  set %deck $remtok(%deck,%card,1,44)
}
alias river {
  var %card = $gettok(%deck,$rand(1,$numtok(%deck,44)),44)    
  set -s %comcards %comcards $+ %card $+ $chr(44)
  msg %cardroom The River : %comcards     
  set %deck $remtok(%deck,%card,1,44)
  var %x = 1
  while (%x <= $numtok(%players,44)) {
    set -s $+(%,player.,$gettok(%players,%x,44)) $($+(%,player.,$gettok(%players,%x,44)),2) $+ %comcards 
    inc %x    
  }      
}
on *:text:!sit:#:{
  if ($nick !isin %players) {  
    set %players %players $+ $nick $+ ,
  }
}

on *:text:!play:#:{
  if ((%play == $null) && ($numtok(%players,44) >= 2)) {
    set %play on
    make.deck    
    var %n = 1
    while (%n <= %numtok(%players,44)) {
      set %player. $+ $gettok(%players,%n,44) $chr(44)
      inc %n
    }
    var %x = 1
    while (%x <= $numtok(%players,44)) {
      deal $gettok(%players,%x,44)
      inc %x    
    }
  }
  .timer $+ flop 1 5 flop
  .timer $+ turn 1 10 turn
  .timer $+ river 1 15 river
}

#cards end