sdim 属性名,8,4
dim カード属性,5
属性名="火","水","風","土"
カード属性=0,1,2,3,0
repeat 5
c=cnt+1
chkbox ""+c+"枚目",chk.cnt
loop
button "push",*push
stop

*push
color 255,255,255
boxf
color 0
pos 0,160
te=0
repeat 5
if chk.cnt : te++
loop
if te>3 : mes "手札は３枚まで":stop
repeat 5
if chk.cnt{
カード番号=cnt
e=カード属性.カード番号
c=カード番号+1
mes ""+c+"枚目の"+"カード属性＝"+属性名.e
}
loop
stop