Program post site for everyone
ランダム要素が全くない「がち」のスロットゲームです。なめらかスクロールで作りました。
同じ絵柄が横ラインかななめラインにそろうとコインが払いだされます。複数ラインの同時そろいも有効です。
７がそろうと１０枚の払い出し、それ以外は３枚の払い出しです。
７がそろうと次回ゲームのリール（まわるところ）の回転速度が遅くなります。７を２ライン同時にそろえるとさらに回転速度が遅くなります。
画面の数字は、持ちコイン枚数とゲーム数です。
１ゲームにかけるコインは３枚です。持ちコインが２枚以下になるとゲームオーバーです。１００枚以上獲得すると、画面に「WIN」の文字が出ます。
操作方法
ゲーム開始：スペースキー
リール停止；左、下、右のカーソルキー
再ゲーム：エンターキー
IchigoJam 1.4用です。
10 'GS 20 CLP:CLV:Y=4:S=21:U=16:X=-183 30 LET[20],X,4,X,0,2,7,2,X,7,7,7,2,2 40 LET[40],7,-94,2,7,2,2,7,X,0,0,7,-94,X 50 LET[60],4,X,4,X,7,2,2,0,7,7,7,2,X 60 LET[80],0,3,6,1,4,7,2,5,8,0,4,8,2,4,6 70 CLS:VIDEO5:?CHR$(#89):COPY#901,#900,47:COPY#701,#700,72 80 FORI=0TO8:LCI/3+2,I%3+2:?CHR$(#E0+I);:NEXT 90 IF INKEY()<>32 CONT 100 LET[0],1,1,1:G=G+1:A=2:B=-1:GSB240:VIDEO(Y<4)+5 110 FORI=0TO2:F=(#E0+I*3)*8+23:E=#EE+[20+I*20+(U-[I+3]/8)%U] 120 IF [I] COPYF,F-Y,Y-24:COPYF-23,E*8+8-Y-H,Y:[I+3]=([I+3]+Y)%(U*8):BEEP47+Y,1 130 NEXT:DRAW0,H,0,H+9,2:DRAW15,H,15,H+9,2 140 H=(H+Y)%8:IF H GOTO110 150 K=INKEY():CLK:L=(K=28)+(K=31)*2+(K=29)*3:IF L [L-1]=0:BEEP12 160 IF [0]+[1]+[2] GOTO110 170 FORJ=0TO8:Z=U-[J/3+3]/8-J%3+3:[10+J]=[20+J/3*20+Z%U]:NEXT 180 Y=4:FORM=0TO14STEP3:C=[10+[80+M]]:D=C=X 190 IF C=[10+[81+M]] AND C=[10+[82+M]] A=2+D*7:B=1:GSB240:IF D Y=Y/2 200 NEXT:IF S>99 LC42:?"WIN"; 210 IF S>2 GOTO90 220 BEEP85,90:LC8:?"GameOver"; 230 IF INKEY()=10 RUN ELSE CONT 240 FORN=0TOA:BEEP7-B,1:S=S+B:LC1:?S,G;" ";:WAIT13:NEXT:RTN
