// 定数 1 su1=1 2 su2=2 3 su32=32 4 s128=128 5 subk=728 // ブランクセル // 初期化 100 hp=3 110 huku=su0 120 gsub 1000 // ハート初期化 180 for 200 i=536 to 600 32 190 cell(i)=cell(760) // ハートセル 200 next // 札クリア 210 for 250 j=527 to 751 32 220 for 240 k=1 to 8 1 230 cell(j+k-1)=cell(subk) // ブランクセル 240 next 250 next // プレイヤー1,2枚目配布 300 prnt 15,"1MORE-SL" 301 prnt 47,"NO -SR" 302 tone no1 309 s=su0 310 p=su0 320 i=su0 330 gsub 1500 340 i=su1 350 gsub 1500 380 key 1 j,k 390 if k=su2 then 430 400 if k<>su1 then 380 // プレイヤー3枚目配布 410 i=su2 420 gsub 1500 430 mypt=s // CPU1,2枚目配布 500 s=su0 510 p=su1 520 i=su0 530 gsub 1500 540 i=su1 550 gsub 1500 551 if s>mypt then 600 552 if s=9 then 600 // CPU3枚目配布 560 i=su2 570 gsub 1500 600 prnt 47,"PUSH PAD" // 引き分け 610 if s<>mypt then 640 620 prnt 15,"DRAW" 621 tone no2 630 goto 800 // 負け 640 if ssu0 then 689 681 huku=4 682 tone no4 683 goto 800 689 tone no2 690 goto 800 // 勝ち 700 prnt 15,"YOU WIN!" 701 tone no3 710 huku=huku+su1 720 gsub 1000 // キー入力待ち 800 key 1 j,k 810 if j=su0 then 800 811 tone no3 820 if huku>=4 then 100 830 goto 210 // キャラ絵転送(huku=0～4) 1000 i=129+huku*4 1010 if huku<3 then 1100 1020 i=i+12 1100 for 1210 j=207 to 495 32 1110 for 1200 k=1 to 8 1 1130 cell(j+k-1)=cell(i) 1140 i=i+su32 1160 if i<=768 then 1200 1180 i=i-639 //(20*32-1) 1200 next 1210 next 1220 rtn // 札配布・描画(p=0～1,i=0～2,s=現在の合計ポイント) 1500 fuda=rand(9) 1501 a=fuda*su2+su1 1510 if fuda<6 then 1530 1520 a=a+12 1530 k=527+p*s128+i*3 1550 for 1600 j=32 to 96 32 1551 x=j-su32 1560 cell(k+x)=cell(a+x) 1580 cell(k+x+1)=cell(a+x+1) 1600 next 1610 s=s+fuda 1620 s=s-s/10*10 1625 k=623+p*s128 1630 prnt k,s 1640 rtn 9999 end