敵が出現してSPSETした時にSPFUNCも設定をして、 「CALL SPRITE」を実行したときに毎回ENE_MOVEの処理（移動＆撃沈チェック）を繰り返させます。 撃沈されたら、APANIMしつつ、「CALL SPRITE」の飛び先をENE_MOVEからSP_CLRに変更します。 SP_CHKを繰り返し、ANIMが終わったらそのSPを開放します。（SPFUNCの内容も消えます）

シンプルにしてみました。

自作を呼び出すなら、１つ１つ呼びますよね。 FOR I=o TO 511 IF SPUSED(I) && ENE[oo,0]==1 THEN ENE_MOVE I みたいに。 でもSPFUNCは SPFUNC oo,ENE_MOVE としておけば、「CALL SPRITE」された時に、一斉に実行されます。 で、それだと「DEF ENE_MOVE」内でのSP番号が分からないので、 SP=CALLIDX みたいなのを最初に書くわけです。 で、そのSPに対して処理すれば、ENE_MOVEに飛ぶべきSPキャラ全てに対して同じ処理が行われます。

「DEF ENE_MOVE」には移動処理と、爆破されたらSPANIMとSPFUNC oo,"SP_CLR"を実行します。（公開PGの１７～１９行目） （これにより、このSPはENE_MOVEには飛ばす、SP_CLRに飛ぶようになる） 「DEF SP_CLR」には、アニメが止まった（！SPCHK(oo)）ら、SPCLR oo する処理を書いておきます。（公開ＰＧ33行目～）

昨日公開したのがSPFUNCで書いた例ですよ。 SPSETする時は空き番号を自動的に割り当てるようにします。 （公開PGの４行目） そして６行目ですが、 こうさんのプログラム内でいえば、 敵が出現してSPSETした時にENE[○○,0]=1 していると思いますが、それを、 SPFUNC oo,"ENE_MOVE"に。 そしてメインループに「CALL SPRITE」とだけ記載します。 これによって、このように設定したSPは全て「DEF ENE_MOVE」に勝手に飛ぶようになります。

エラー後、 ？Ｉ ３０ ？SPUSED(Ｉ+101) ０ ですので、存在のないＳＰ番号にＳＰＯＦＳしてますね。

「SPUSEDは必須」は言い過ぎでした。SPの番号と数が固定だったり増えるだけであれば不要です。事故防止用に書いておくのも策ですけど。

す、すごいの作ってるんですね・・・ でもこれくらいで画面がチカチカするのはおかしいです。 コメントはずしてもエラーが再現しなかったので想像ですが、SP系のIllegal～は、SPSETされていない番号に対してSP系命令を出した場合が多いです。 ５５２行のループ開始直後に IF ！SPUSED(I+101) THEN CONTINUE を入れてみたらどうでしょうか？ SPFUNCを使用しない場合は、SPUSEDは必須です。 ５５３は書くなら「＆＆！」ではなく「＆＆　！SPCHK(～」ですよ。

とりあえず１７行目に記述ミスが。

そういうのがないのがBASICのいいところ。 そういうのを作って楽しめるのもいいところ。

It is SMILE BASIC OGIRI Works by Japanese. https://miiverse.nintendo.net/posts/AYIHAAAEAAASVZKgDmjUAg

SPANIMは連続実行しちゃダメです・・・・ SPFUNCを使うと色々便利ですよ。 想像されているものか分かりませんが、SPFUNCの使用例です。 EKCYA3L4

＆＆、｜｜は、論理演算です。正しいか正しくないかの式を連結します。「かつ」「または」という意味です。 IF A==3 && B==4 THEN ～　’Aが３かつBが４ならば～ AND、ORは、２進数のビット演算です。 11011 AND ’両方が１なら１ 10010 --------- 10010 11011 OR　’どちらかが１なら１ 10010 --------- 11011

あ、文を読んで今分かりました。 そうです、変動する数は評価されません。SPANIM実行時の値のみが有効です。

部分的過ぎて何が何やら・・・

符号を取るSGNという関数を使えば楽ですよ。 ３６～４５行目は、 INC X,SGN(SX) DEC Y,SGN(SY) だけでいけると思います。

パソコンからしか見れないかもだけど、 http://petitcom.net/3gou/graph

#ZRはbit11なので2048（&H800） #ZLはbit12なので4096（&H1000） で正しいです。 BUTTONのヘルプの記載が一部間違ってるんです。

カベのキャラクターが「&H1A0」（スマイルツールの「マップ」の下画面右上に表示されている）だとして、 描かれているBGスクリーン番号がBG、 スプライトの座標がX,Yなら、 IF (BGGET(BG,X,Y,1) AND &HFFF)==&H1A0 THEN ～～～当たったときの処理～～ ENDIF

動作が遅いのは、動いていないものを毎ループ再描画したりしているのが原因である可能性もありますけどね。 スコアとか自機とか・・・