バレンタインデーに義理でチロルチョコを配る方がいらっしゃるようですが、チロルチョコってたくさんあると積んで遊びたくなりますよね(^_^)
という訳で、チョコを積むプログラムを作ってみました。
- 起動すると、画面の一番上に台形のチョコが表示されます。矢印キーの←→で左右に動かして場所を決め、スペースキーを押すと落下して画面の一番下に積まれます。
- 2個目以降のチョコは、落下した時に下にチョコがあると、その上に積まれます。好きな形に積んでいってください。BackSpaceキーを押すと、全部のチョコがクリアされます。
「下にチョコがある場所しか上に積めない」「既にあるチョコの下には積めない」のがミソです。うまいこと積んでみてください。
プログラム
10 '*CHOCO-TSUMI 20 CLV:CLS 30 POKE #780,0,#3F,#3F,#3F,#7F,#7F,#7F,#FF 40 POKE #788,0,#FC,#FC,#FC,#FE,#FE,#FE,#FF 50 @LOOP 60 Y=0 70 LC X,Y:?CHR$(0,0) 80 X=X-BTN(28)*(X>0)+BTN(29)*(X<29) 90 LC X,Y:?CHR$(240,241) 100 WAIT 3 110 K=INKEY() 120 IF K=32 GSB @DOWN:BEEP 130 IF K=8 CLS 140 GOTO @LOOP 150 @DOWN 160 V=Y+1:IF V>23 RTN 170 IF SCR(X,V)+SCR(X+1,V) RTN 180 LC X,Y:?CHR$(0,0) 190 LC X,V:?CHR$(240,241); 200 Y=V:WAIT 1 210 GOTO @DOWN
★IchigoJam web版はこちら。
動物シェア＝アイアイ,ブタ,ジュゴン
