竹達彩奈スロット for IchigoJam

2024年1月4日 23:46

たつ年にちなんで、竹達彩奈 (たけたつあやな) さんが演じているキャラクターでスロットを作ってみた。

今回は、対象のプラットフォームとして IchigoJam を選んだ。
なぜなら、本体を持っていなくてもブラウザで実行できるので、手軽に試してもらえそうだからである。

※IchigoJamはjig.jpの登録商標です。

プログラム

10 ' ﾀｹﾀﾂｱﾔﾅ ｽﾛｯﾄ
20 POKE#700,124,68,126,80,188,16,254,0,86,186,214,186,254,0,198,0,254,40,254,170,206,130,254,0,252,84,200,246,92,200,126,0,8,126,84,108,126,106,182,0,16,254,40,56,254,170,186,0
30 POKE#730,72,126,72,212,254,196,20,0,16,18,244,56,84,146,48,0,254,178,244,190,246,36,252,0,36,254,36,36,254,36,68,0,20,126,18,18,18,34,70,0,94,80,254,90,90,228,26,0
40 POKE#760,254,106,126,234,126,200,62,0,16,124,254,40,254,124,16,0,136,28,136,62,148,156,148,0,190,34,190,40,168,164,194,0,0,0,128,126,0,0,0,0,94,242,94,242,222,94,82,0
50 POKE#790,12,112,254,56,214,124,124,0,124,8,16,254,16,16,48,0,254,56,56,56,104,16,238,0,16,254,124,84,124,202,186,0,8,40,40,40,42,76,136,0,248,40,46,34,66,66,134,0
60 CLS:E=0:F=0:G=0:H=0
70 A=RND(6):B=RND(6):C=RND(6):D=RND(6)
80 A=(A+E)%6:B=(B+F)%6:C=(C+G)%6:D=(D+H)%6:VIDEO5+(E+F+G+H=0ANDA=BANDB=CANDC=D):LOCATE2,2:?CHR$(#E0+A,#E6+B,#EC+C,#F2+D);
90 K=INKEY():IFK=10ANDE+F+G+H=0E=1:F=1:G=1:H=1:GOTO70
100 K=K|#20:E=EANDK-#7A:F=FANDK-#78:G=GANDK-#63:H=HANDK-#76
110 WAIT1
120 GOTO80