IF文を使わずにキャラクタを動かしてみた

CLS WHILE 1 PRINT RIGHT$("00"+HEX$(RND(256));" "; IF CSRX>47 THEN PRINT WEND こうすると、もっとそれっぽくなりそう

5行目を PRINT HEX$(RND(16)) にしてもおもしろいかもね

サンプルゲームみたいなのを作ってみました すぐ飽きますが

ごめんなさい　その上にありました もそっとよく見てみます

B1がどこにも定義されてませんね（つまり0） TRUEはシステム変数で常時1ですね て、ことは B1==TRUE は成り立ちません

ありゃ、グレイさんに答え書かれちゃってた まあいいや 短縮版でないグレイさんの答えの方の処理(IF～～のあるやつね)を、一発で終わらせる目的て配列変数を説明しようと思ったんだが…。とは言え要定義なんで行数から言えばさほど変わらんけど どのみち極論から言えば、グレイさんの短縮版のやり方が一番エレガントだったりします

おうけい その前にいくつか質問 変数はわかりますか？ 配列変数はわかりますか？

DTREADと言う命令を使います 但し数値なので、日、月、火などと表示には工夫が必要です

英語よりもコンピュータの五大機能を理解するほうが重要ですよ 結び目は固いけど、ほころべば簡単に外れます

B=ABS(FLOOR(X*500)) こう？

読んだだけだから的を外してたらごめんなさいだけど、これはBGにスプライトが引っかかってくれないという感じ？

１３行目 X=X+XX:Y=X+YY ↓ X=X+XX:Y=Y+YY 他にもあるかも？

@MENUSUB GOSUB @メニュ表示 WHILE 1'0だっけ？とりあえず無限ループのこと WHILE B==0:B=BUTTON(2):WEND GOSUB @カーソル消去 IF B==上 AND Y>メニュ下限 THEN Y-=1 IF B==下 AND Y<メニュ上限 THEN Y+=1 IF B==Aボタン THEN 戻り値=Y:GOSUB @メニュ消去:RETURN IF B==Bボタン THEN 戻り値=-1:GOSUB @メニュ消去:RETURN GOSUB @カーソル表示 WHILE B!=0:B=BUTTON(2):WEND WEND RETURN 思考の参考にどうぞ

サブルーチンジャンプのこと？ それともセーブデータの共有のこと？

あら、しののめさんとてっくさんに答え書かれちゃってたｗ

サブルーチンから抜けた先がまたサブルーチンだったってだけの話ですよ 画面が消えてから、エラーが出たでしょ？ 画面が消えてない時はサブルーチン中ぐるぐる回ってて、 ボタンを押したらRETURNでサブルーチンから抜ける 画面が消える で、サブルーチンのところの処理をする そしたらまたRETURNがあった プチコン＜おい、どこに戻んねん(RETURNwithoutGOSUB)

あ、1/20て２０分の１のことなのね @A WAIT 1 B=BUTTON(2) F=RND(20) IF B==16 AND F!=1 THEN PRINT "そう" IF B==16 AND F==1 THEN PRINT "GAME OVER":END'<-このENDはおまけ GOTO @A これも、前も、実機で試してないけど動くはずです

こうかな？ F1=1:F2=2 @A WAIT 1 B=BUTTON(2) IF B==16 AND F1==1 THEN PRINT "そう" IF B==16 AND F1==2 THEN PRINT "食べられた" SWAP F1,F2 GOTO @A