これでスロットマシーンみたいなのができるらしいのですがどうしてもエラーになってしまいます。 誰かわかる人がいたら原因を教えてください

エラー時に0:9みたいなことが出るので9列目だとは思うんですけど

GOTOは数値指定ではなく定義済ラベルを指定します

ありがとうございます。つまりこれだと9列目より前にラベルがないから不可能ということですね

ただ9行目より後にあるラベルにも飛べます

ありがとうございます！ちなみに打ち間違いで本当は100は10列目で30は3列目のことでしたすいません

なので3列目の前に@3をつけて10列目の前に@10をつけて9列目のGOTOも@10にしてみたけど駄目でした

ELSE GOTO @10では？

駄目っぽいです。いろいろとすいません

元はN88BASIC準拠のプログラムかな？ 記述方法がプチコンと違う所があるので、プチコン用に変えてあげる必要がありますよ。

間開けても無理みたいです9列目のなにが駄目なんでしょうか””ってなってるところでしょうか

なりほど！プチコンのとは違うのか。知らずに迷惑かけてしまってすいません

　る

ELSEを抜いて@10を@3にしてみては？なぜならGOTO@10をしなくてもTHENの条件にあてはまらなかった場合@10に行くからてほす

てほす>です

こうですか？

あと条件分岐の=は==で記述します。 あとCONSOLEという命令はありません。

INTという命令もありません。 それぞれどのような役割をするのでしょうか？教えてくだされば探しますし、なければDEFで定義し公開しますのでそれをそのプログラムに貼れば使えます。

INTはINT(○○)というように()の中に数字を入れるとそれを整数化するそうです

INTは端数処理、FLOORかROUNDにして様子を見たらいい

コンソール　ほにゃらら CLS 3 は画面初期化だろうから消してACLSとすりゃいい

LOCATE 20.10、ミスタイプかな。→LOCATE 20,10 INKEY$=""　→INKEY$()=="" RND(1)は意味がない。→RND(2)

RND(1)は、プチコンの RNDF()と同じ機能です。

ここは、 X=RND(7)+1 としてみたら、どうでしょうか？

こうですか？見落としあったら指摘してください。あとこんどは10列目が駄目みたいです。

ACLS @3 X=RND(7)+1 Y=RND(7)+1 Z=RND(7)+1 LOCATE 10,10:COLOR X:PRINT "X" LOCATE 15,10:COLOR X:PRINT "X" LOCATE 20,10:COLOR X:PRINT "X" IF INKEY$=="" THEN @3 IF X==Y AND Y==Z PRINT "ｵｵｱﾀﾘ!!":END IF X==Y OR Y==Z OR Z==X THEN PRINT "ｱﾀﾘ!":END たぶんこれで動くはず

もとい　こっち ACLS @3 X=RND(7)+1 Y=RND(7)+1 Z=RND(7)+1 LOCATE 10,10:COLOR X:PRINT "X" LOCATE 15,10:COLOR Y:PRINT "Y" LOCATE 20,10:COLOR Z:PRINT "Z" IF INKEY$=="" THEN @3 IF X==Y AND Y==Z PRINT "ｵｵｱﾀﾘ!!":END IF X==Y OR Y==Z OR Z==X THEN PRINT "ｱﾀﾘ!":END

またもとい 10行目 IF X==Y AND Y==Z THEN PRINT "ｵｵｱﾀﾘ!!":END

ありゃ。風呂入っている間に翻訳終わってる。 COLORの番号がＮ８８ＢＡＳＩＣとプチコンで違うので、ランダムで出した番号を、そのままカラー番号に使うと、「１」が黒色表示で見えなくなりますよ。

COLORのところは、 COLOR X*2+1などとすると よりプチコンに合っているかも知れません。

まずsayさんのをやってみます。そこから間違いなどを指摘してください。終わりが見えてきましたね

ここから文字の色とかですか？

10列目直してRUNしたら謎画面が出てきました

ちゃんと動作してるようです 8行目と9行目の間に VSYNC 10 とでも入れたら動きがゆっくりになります

動きはゆっくりになりましたが色が不安定なのとボタンを押すこともできずクルクル回り続ける用になってるので助けてください

なるほど。RNDFと同じでしたか

色が不安定なんは「そういうプログラム」だからですね ☆「色を揃えるスロットマシン」て表現すればいいのか？ INKEY$()を使ってるのでボタンやパッドには反応しませんね IF INKEY$()=="" THEN @3 を IF BUTTON()==0 THEN @3 と変えてみてください

えーとinkey$はキーボードですね。ただしくはINKEY$()かと。 公式命令表「 INKEY$ キーボードから1文字取得(入力待ちなし) 書式 文字列変数=INKEY$() 戻り キーボードからの文字(UTF-16) 入力がない場合="" 例 C$=INKEY$() 」

ボタン反応しました！色を揃えるスロットだったんですね。ありがとうございます。

たぶん、スロットゲームで想像したのは「数字を合わせる」方だと思いますが・・・ ほんの少しの修正で「数字を合わせる」に変えられますが、、、分かりますかね？ 「ＰＲＩＮＴ」について調べると・・・ごにょごにょ。

これだけでは少し寂しいのでBGMでも付けます

言語によっては、この1未満の実数乱数を 発生する関数しかなかったりして 整数の乱数が必要なときは、 それを整数倍したあと、 整数化するという方法をとっているようです。

数字にもできるんですか！でも相当きつそうですね

また書いたら同時になってしもた BGMはできるかな？ 数字は簡単　"X"の"を外すと…

乱数とかは難しいというイメージがあるのでそれはすごいですね！

乱数を出す関数RND()は簡単で　0　から　()の中身-1　の整数を返してくれるだけ。連続書き込み制限が酷い…

2分でしたっけね本当にそのシステムは要らないですね

「ＰＲＩＮＴ」の文字の上にカーソルを持って行って、キーボード右上付近の青い［？］マークをタッチすると、ＰＲＩＮＴに付いて説明が表示されます・・・ って。。。この説明じゃ初心者さん分からないよっ。 ＰＲＩＮＴの後ろの「”Ｘ”」の、「”」記号を二つ共外してみましょう。 ＹとＺも同じようにしてネ。

おっ数字出てきましたね！でもこれ奇数が出てきてない？

嘘つきました7とか5はでてるけど1が出てませんでした

BGMはついたけどスロット止めるときに効果音をつけるとしたら何列目の何処にBEEP打てばいいですか？

「１」は黒色表示ですから見えないだけですね。 先の「マギーさんのＣＯＬＯＲ設定方法」に変更してみましょう。

おぉっ！出ました。ありがとうございます！

数字にしたんだから色じゃなくて数字で揃えたいとか思ってたら1は赤とか数字によって色がついてましたね。だからアタリになると必ず数字二つは揃ってるんですね

これって保存したらジャンケンのプログラムみたいにアタリかオオアタリかわからない内に終わったりしますか？

効果音もつけたら完成しました！ここまで教えてくれた人達皆ありがとうございました！

パチパチ ようこそ茨の天国へ

作品を見るってやると結果がわからないまま終わってしまった…作品を見るから行ったら必ずこうなるんですか？

そうなります 元々プチコン用に作られてるコードではないので （故に翻訳作業も必要だった）

そうだったんですか。つまり1回やった後メニューの右下のやつからRUNってしてプレイするものなんですね

すぐに終わってしまうならボタン押し待ちのプログラムがいいと思う。(自分も初心者なのでそれくらいしか方法が分からない) プログラムの組み方まで言うとダメだと思うので言いません。GOTOとIFを使ってボタンが押されるまでループさせる…(上から目線っぽい口調ですみません…)不快に思ったら削除して下さいと言ってくれれば削除します。

頭に@STARTとでもかいて 後ろにREPEAT:VSYNC:UNTIL BUTTON(2):GOTO @START とでも書けばリプレイ対応

REPEAT:VSYNC:UNTIL BUTTON(2) は、何かボタンが押されるまで止まっててくれる謎の呪文とでも思っておけばいいかな

すいません完全に諦めて見るの忘れてました。あまさと　しおんさんととりゅふさんありがとうございます。ただ後ろにさっきのつけるだけだとアタリかオオアタリになると終わってしまうのでEND消したんですけど大丈夫ですか？

ほんにんさん»むしろそれが正解かと…

ループするたびにBGM最初からになるので真っ先に流すことにしました。あとENDを消したらオオアタリのときオオアタリ アタリ って２つとも表示されるようになってしまいました

さっきの

2つの条件が揃ったからじゃないですか？ そういう時、例えば アタリの時は@ATARIに行ってオオアタリの時は@OATARIに行き、PRINTでそれぞれアタリ、オオアタリと表示させる…という様にすればいいと思います。間違ってたら…すみません。

駄目みたいです

すいません16列目に@4をつくって14列目にPRINT“オオアタリ“GOTO @4ってしたらいけました。GOTOで15列目を抜かしたからですかね