Program post site for everyone
IchigoJamSWITCH用 ミニゲーム
ボードゲームの"ソリティア"です。
○玉を持ち
隣の○を飛び越えて
●マスに動かす。
飛び越えられた○を取り除く。
残り1個になったら成功
プログラムはカーソルを移動と○●の反転をするだけ
ルールに従って操作します。
・飛び越された○を自動的に取り除こう
・ルール違反の移動はできないようにしよう。
・
10 'ｿﾘﾃｨｱ
20 SWITCH1:FORI=1TO4:OUTI,-1:NEXT
30 LC0,0,1:?"ｿﾘﾃｨｱ";:GSB@W
40 CLS
50 ?" ~E8~E8~E8 "
60 ?" ~E8~E8~E8 "
70 ?"~E8~E8~E8~E8~E8~E8~E8"
80 ?"~E8~E8~E8~E9~E8~E8~E8"
90 ?"~E8~E8~E8~E8~E8~E8~E8"
100 ?" ~E8~E8~E8 "
110 ?" ~E8~E8~E8 "
120 X=3:Y=3:LCX,Y,1
130 @LP
140 IF!IN(5)X=X-(X>0):LCX,Y,1:BEEP:WAIT30
150 IF!IN(6)Y=Y+(Y<6):LCX,Y,1:BEEP:WAIT30
160 IF!IN(7)Y=Y-(Y>0):LCX,Y,1:BEEP:WAIT30
170 IF!IN(8)X=X+(X<6):LCX,Y,1:BEEP:WAIT30
180 IFIN(9)GOTO@SK
190 IFSCR(X,Y)=ASC("~E8"):?"~E9":LCX,Y:BEEP30:GOTO@C
200 IFSCR(X,Y)=ASC("~E9"):?"~E8":LCX,Y:BEEP30
210 @C:IF!IN(9)CONT
220 LCX,Y,1:BEEP10:WAIT30
230 @SK:IF!IN(5)*!IN(8)GOTO@ED
240 GOTO@LP
250 @ED:BEEP100:WAIT10:BEEP200:CLS:?"STOP";
260 GSB@W:F=FILE():LRUN0
270 @W:IF!BTN()CONT:ELSEBEEP2
280 IFBTN()CONT:ELSEBEEP5:RTN
