IchigoJamに「逃げ恥」の「恋ダンス」を踊らせてみました。(^_^)

---

【遊び方】

これは曲に合わせて踊るプログラムです。まず「逃げ恥」の曲を用意して再生する準備をしておいてください。

プログラムをRUNすると「５、４、３、２、１、０」とカウントダウンが始まります。「０」が表示されるタイミングで曲をスタートさせましょう。

 

---

【プログラムについて】

このダンスはなにしろポーズが多い。拍子に合わせてポーズが変わるのですが、プログラムサイズが1KBしかないので、踊れるのは「風たちは運ぶわ　カラスと人々の群れ」の歌詞のところまで。でも、なんとかガッキーの決めポーズまでは踊ります(^_^)

 

プログラム的にいろいろ工夫しています。コメントだけの行もちゃんと動作上の意味がありますし、GOTOと数字との間のスペースを取るのも重要ですよ。メモリの残りが2バイトというギリギリ。

 

キャラクターコードは特殊なモノを避けて作ったので、IchigoJam 1.0でも2.0でも動くはず。

 

■実行時のムービー

ムービーはこちらから

---

■プログラムはこちら

10 FORI=0TO5:CLS:LC16,10:?5-I:WAIT45:NEXT:CLS
20 X=16
30 FORI=0TO30
40 LC15,10:GSB 100+I*10
50 WAIT45:NEXT:END
100 ?CHR$(140,232,140,31,28,28,124,31,28,124):RTN
110 ?CHR$(60,232,62):RTN
120 '
130 ?CHR$(32,232,62,31,28,28,28,60):RTN
140 ?CHR$(32,232,32,31,28,28,28,152,124,155):RTN
150 ?CHR$(140,232,31,28,28,152,124,32):RTN
160 ?CHR$(32,31,28,32,150,32):RTN
170 ?CHR$(31,153,124,154):RTN
180 ?CHR$(31,154,124,153):RTN
190 ?CHR$(31,152,124,155):RTN
200 ?CHR$(140,79,140,31,28,28,28,32,124,32):RTN
210 ?CHR$(140,111,140):RTN
220 GOTO200
230 GOTO210
240 ?CHR$(138,232,133):RTN
250 ?CHR$(60,232,62):RTN
260 CLS:LC15,10:?CHR$(32,232,112,31,28,28,28,113,124,31,28,124):RTN
270 '
280 ?CHR$(32,232,32,31,28,28,28,32,124,112,31,28,28,28,113):RTN
290 GOTO260
300 GOTO260
310 GOTO280
320 GOTO280
330 CLS:LCX,10:?CHR$(32,232,31,28,28,152,158,31,28,41):RTN
340 CLS:LCX,10:?CHR$(32,232,31,28,159,145,31,28,28,41):RTN
350 X=17:GOTO330
360 GOTO340
370 X=16:GOTO340
380 X=15:GOTO340
390 X=14:GOTO340
400 ?CHR$(232,31,28,28,154,124,32,31,28,28,40):RTN