IchigoJamに「逃げ恥」の「恋ダンス」を踊らせてみました。(^_^)
【遊び方】
これは曲に合わせて踊るプログラムです。まず「逃げ恥」の曲を用意して再生する準備をしておいてください。
プログラムをRUNすると「5、4、3、2、1、0」とカウントダウンが始まります。「0」が表示されるタイミングで曲をスタートさせましょう。
【プログラムについて】
このダンスはなにしろポーズが多い。拍子に合わせてポーズが変わるのですが、プログラムサイズが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