i dont recall if i mentioned that its texas holdem
so the hand check will draw from seven cards 2 of the players and 5 community

trying to make the best 5 card hand
ill try to make the necessary modification myself though

here the initial code ive got
(bear in mind this is so far from done)
Code:
#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


right now the flop turn and river are on timers as im not dealing with the betting system that will provide the delay later yet