sample\game\poker.hsp » Plain Format
title "ポーカーゲーム"
randomize
celload "trump.bmp"
trump=stat
screen 0,640,480
gosub *creset
sdim ylist,1024
dim ybai,16
dim hand,16
dim hand2,16
ylist={"0 なし
1 ツーペア
2 スリーカード
3 ストレート
4 フラッシュ
5 フルハウス
6 フォーカード
7 ストレートフラッシュ
8 ロイヤルストレートフラッシュ
"}
ybai=0,2,5,10,20,30,50,100,500
credit=30
bet=1
*main
cls 1
if credit=0 {
dialog "コインがありません" : end
}
sdim s1,256
dim cbox,5
pos 480,24
color 0,0,120
font msgothic,18,1
mes "残りコイン="+credit
yaku=0:gosub *putlist
ibet=bet
credit=credit-bet
objsize 90,24
repeat 5
gosub *cdraw:hand.cnt=a
pos cnt*100+22,430
chkbox "そのまま",cbox.cnt
loop
pos 530,430
button "交換",*change
*turn
gosub *csort
repeat 5
x=cnt*100+20:y=300
a=hand.cnt:gosub *cput
loop
stop
*change
clrobj
repeat 5
if cbox.cnt=0 {
x=cnt*100+20:y=300
gosub *cdraw
hand.cnt=a:gosub *cput
}
loop
gosub *csort
gosub *putlist
plus=ybai.yaku * ibet
if plus>0 : dialog "コイン"+plus+"枚が増えました"
credit+=plus
pos 530,430
button "スタート",*main
stop
*putlist
notesel ylist
repeat 9:y=cnt*30+24
noteget s1,cnt:a=ybai(cnt)
color 0,0,0
if cnt=yaku : color 255,0,0
pos 24,y:mes s1
pos 320,y:mes "x"+a
loop
*csort
; 手札をソート
dim count,14
mark=hand.0&3:markc=0
yaku=0:pair=0:lastnum=-10:st=0
repeat 5:hand2.cnt=hand.cnt:loop
i=0:repeat 52:chk=cnt
repeat 5
if hand2.cnt=chk {
a=chk/4:count.a++
if lastnum+1=a : st++
lastnum=a
a=chk&3:if a=mark : markc++
hand2.cnt=-1
hand.i=chk:i++
}
loop
if i>=5 : break
loop
repeat 14:a=count.cnt
if a=2 : pair++
if a=3 : yaku=2
if a=4 : yaku=6
loop
if (yaku=2)&(pair=1) : yaku=5
if pair=2 {
if yaku=0 : yaku=1
}
if markc=5 : yaku=4
if (st=3)&(yaku=4) {
if lastnum=12 {
if hand.0/4=0 : yaku=8 : return
}
}
if st=4 {
if yaku=0 : yaku=3
if yaku=4 : yaku=7
}
return
*creset
; カードをシャッフル
dim card,52:cnum=0
repeat 52:card.cnt=cnt:loop
repeat 52
a=rnd(52):b=card.cnt
card.cnt=card.a:card.a=b
loop
return
*cdraw
; カード１枚を引く
if cnum>=52 : gosub *creset
a=card.cnum:cnum=cnum+1
return
*cput
; カード１枚を表示するサブルーチン
px=a/4*96:py=(a&3)*128
gmode 2,96,128
pos x,y:gcopy trump,px,py
return