かいりーさん：　遊べません><　なにあの弾幕ｗ りゅうさん：１フレーム時間で画面のはじからはじへ飛んでいきますねｗ。画面の幅/SD～なので 2*60だと1秒で画面の半分すすむ、4*60だと画面の１／４すすむという指示になってます．うーん，わかりにくいねこれ。つぎのバージョンで修正だな。

横シューVer1.1.0。公開コードVKA844JS。改造大歓迎。ちょこっとSPANIMがんばってみた。

I=0 @P WAIT 60 BEEP 3,6000 INC I PRINT I 'せっかくかぞえたんだからひょうじしてみよう GOTO @P INC IのかわりにI=I+1でもOK。

手を入れたプログラムはこうなります。円を書いておきましたから、円の内部をさわったときだけ音が鳴ることを確かめて下さい。

もしさわる範囲を指定したいなら、たとえば12行目と13行目の間にIF文を入れて、範囲を絞ってやればいいと思います。 ちょっと凝って、中心(160,120)から半径50の円内をさわったときだけ音を鳴らしたければ IF SQR(POW(TX-160,2)+POW(TY-120,2))<=50 THEN を12-13行目の間に入れ、 18行目のELSEの前にENDIFを入れるとできます。

7行目からが本番です。このぷろぐらむでは、タッチしていないときは，11行目のTOUCH命令によって、変数STTMに0が入ります。0じゃなくなったらタッチしたということ（12行目のIF文）。押し続けるとSTTMの値はどんどん増えていきます。離すと0に戻ります。変数Tは、STTMが0から0じゃない値に変わったときだけ15行目のBEEPを鳴らしたいので設けています。16行目を通過してT=TRUEになったらば、STTMが0じゃない間は、13行目のIF文の働きで、15行目は通らなくなります。タッチを離すとSTTMが0になって19行目が実行され、T=FALSEにもどって、つぎにタッチしてSTTMが0でなくなるのを待つことになります。16行目のT=TRUEを'T=TRUEとして注釈文にしてしまうと、タッチしている間ビーーーッという感じでうるさく鳴ります。

これは下画面をタッチすると音がするプログラムです。

公開コードはVK7QA3QJです．ちゃんとしたものはいずれまた．

とりあえずやっつけでスライムふよふよバージョン作りました。公開コードはつぎの投稿で。

ごめんなさい、少なからず改造しないとうまくできないことがわかってきたので、スプライトのアニメ化をやりやすくしたバージョンに更新できたらまた投稿します。しばしご猶予を。

はじめて作ったプログラムがこんなのだったなー。問題は乱数で作って、１０問出して、最後に何問正解しました、ってやるの。IF文とPRINT文とINPUT文とGOTO文でがんばったっけ。あ、MUSIC文もつかったな。プチコンで言うBGMPLAYね。36年ぐらい前のお話し。電気屋さんの店先で展示されていたマイコンをいじってたの。しまいに姿をみかけると電気を消されるようになった…プチコン３号はそんなおじさんがみるみるとれるおじさんホイホイでもありますｗ。

小さなバグがあちらこちらにあると思いますが、探して直すのも楽しいものです。いましがた自機が姿を現す前から弾が打てる、というバグをみつけましたｗ。ひどいなあオレ。３５０行目の IF SHOT THEN を IF SHOT&&&STMB==STEX THEN に直すと直ります。

うひゃひゃ，これはすごいな。ええと、０番スプライトが自機、自機の弾が１０番から最大９９番まで、敵機のスプライトが１００番から１９９番まで、敵機の弾が２００番以降、という割り当てになっているので、１０１機だと無理です笑。プログラムでは２７～３１行目。もっと増やしたければ数をずらしてください。

スライムだとふにょふにょさせたいですね！ ２３５～２４０行あたりが、自機の弾を表示している部分です。ここにSPANIMをつっこむといいかな。ああ、でもここ、手抜きコードになってるｗ。１回だけ実行されるようにうまく書き換えてください。

敵機は最大５機まで同時にやってきます。プログラムの２２行めから２５行目あたりをいじると，増やしたり減らしたり自由にできます。

Aから１個,Bから2個,...,Eから5個と取り出して はかりに載せる。ぜんぶ10gなら10x15=150gのはずだが， 11gの重りの分だけ重くなる。1g重ければA,2g重ければB,...,5g重ければE、という具合。はかりの感度が書いていないので、1gの差を正しく測れるはかりなのかは疑問。

あ、自機は十字キーでもスライドパッドでも動きます。弾の発射はＡボタンです。話題のSPANIMは使っていません。使うともっと凝った動きを簡単に指示できることでしょう。弾を大きくしたり小さくしたりするとか、ね。

Xbボタンってなんだｗ。Xボタンです。

自機は左から右へ攻撃します。敵機は右からやってきます。自分の弾は白、敵の弾は赤。敵機は１機あたり３発まで同時に打てます。自機の弾は最大８発です。プログラムの頭のほうで定義しているので簡単に変えられます。敵は１機１００点。ただし自機と衝突した分は点数になりません。自機は３つ。やられるたびにＢＧＭが変わります。ゲームオーバになったら、Ｘｂボタンで終了、Ａボタンでリプレイです。

横シューティング作ってみました。公開コードLK7VY34J。背景なし、ボスなし笑。改造して遊んでもらえたら本望です。ゲームが作りたいという質問への答えでもあります。