Forums Scripts & Popups $rand

$rand(v1,v2)
This works in two ways. If you supply it with numbers for v1 and v2, it returns a random number between v1 and v2. If you supply it with letters, it returns a random letter between letters v1 and v2.

$rand(a,z)   returns a letter in the range a,b,c,...,z
$rand(A,Z)  returns a letter in the range A,B,C,...,Z
$rand(0,N)  returns a number in the range 0,1,2,...,N

 var %card = 1
while %card <= 5 {
  var %hand = 1
  while %hand <= 2 {
    while $istok(%deck,%draw,32) || !%draw {
      var %draw = $r(1,52)
      set %deck $addtok(%deck,%draw,32)
    }
    set $+(%,hand.,%hand) $addtok($($+(%,hand.,%hand),2),%draw,32)
    inc %hand
  }
  inc %card
}
 

alias deal {
  var %cardplayer = $r(1,52)
  cardcheck %cardplayer
}
alias cardcheck {
  var %cardplayer = $1
  if (%cardplayer isin %cardsused) { deal | return }
  if (%cardplayer !isin %cardsused) { set %cardsused %cardsused %cardplayer }
  ;for testing echo to status
  echo card is %cardplayer of %cardsused
  ;whatever other code
} 

alias ShuffleDeck {
  hmake Deck 5
  hadd Deck 1 AH
  hadd Deck 2 2H
  hadd Deck 3 3H
  [color:red]...etc...[/color]
}

alias MakeHands {
  hmake Hand1 1
  hmake Hand2 1
}

alias Draw {
  if ($hget(Deck,0) == 0) { ShuffleDeck }
  var %card = $rand(1,$hget(Deck,0))
  hadd Hand $+ $1 $hget(Deck,%card)
  hdel Deck %card
}

  var %deck = SAce,S2,S3,S4,S5,S6,S7,S8,S9,S10,SJack,SQueen,SKing,CAce,C2,C3,C4,C5,C6,C7,C8,C9,C10,CJack,CQueen,CKing,DAce,D2,D3,D4,D5,D6,D7,D8,D9,D10,DJack,DQueen,DKing,HAce,H2,H3,H4,H5,H6,H7,H8,H9,H10,HJack,HQueen,HKing
  var %shuffled.deck, %i = 52
  while (%i) {
    var %n = $rand(1,$numtok(%Deck,44))
    var %shuffled.deck = $addtok(%shuffled.deck,$gettok(%deck,%n,44),44)
    var %deck = $deltok(%deck,%n,44)
    dec %i
  }

var %rank = 1
while (%rank <= 13) {
  var %suit = 1
  while (%suit <= 4) {
    hadd Deck $replacex(%rank,10,10,11,J,12,Q,13,K,1,A) $+ $replace(%suit,1,C,2,S,3,H,4,D)
    hinc %suit
  }
  hinc %rank
}

;
;assumes a hashtable "cards" has been loaded with itemnames 1 to 52, each holding a card name ie: 1 = AS, 2 = AC, 3 = AH, 4 = AD, 5 = 2S etc etc
;
alias deal.card {
  if ($hget(cards,0).item) {
    var %n = $rand(1,$hget(cards,0).item)
    var %r = $hget(cards,$hget(cards,%n).item)
    hdel cards $hget(cards,%n).item
    return %r
  }
}