１０ ＣＬＳ
２０ ＩＦ ＩＮＫＥＹ＄ ＝゛ ゛ ＴＨＥＮ ３０ ＥＬＳＥ ２０
３０ ＣＬＳ
４０ ＰＲＩＮＴ ＲＮＤ （６）
５０ ＧＯＴＯ ２０
１０ ＣＬＳ
２０ ＩＦ ＩＮＫＥＹ＄ ＝゛ ゛ ＴＨＥＮ ３０ ＥＬＳＥ ２０
３０ ＣＬＳ
４０ ＰＲＩＮＴ ＲＮＤ （６）
５０ ＧＯＴＯ ２０
すごいだろ
読めないからわからないけどこれ終わる？
終わらないよ
20は何してんの
もしスペースキーが押されたら30行目に行けそうでなければ20行へ
もしスペースキーが押されたら30行目に行け そうでなければ20行へ
スペースキーを押すごとにさいころを振るのかなるほどね
BASICのRNDって引数6なら整数で1～6返すんだっけ? 0～5でなく?
方言いろいろあるからなんとも言えないけど1～を返すのって見たことないんだけれどな
普通は INT(RND(1)*6)+1 だわよね。
わかんね
RND(5)+1でやったら1が出なくなった
何BASICなんよ?
PC-G850VSちゃんでやってる
ポケコンか・・・
１０ ＣＬＳ
２０ ＩＦ ＩＮＫＥＹ＄ ＝゛ ゛ ＴＨＥＮ ３０ ＥＬＳＥ ２０
３０ ＧＯＴＯ ４０
４０ ＰＲＩＮＴ ＲＮＤ （１）
５０ ＧＯＴＯ ２０
とやったら変な数字が出たけどなんだこれ
RND(0)でも同様
あー、その機種だとRND(6)でいいみたい
すまんかった
機種によって違ったりするんだ
じゃあ0～3の乱数を出したいときはどうすればいいですかね
乱数使うときは>>11のやり方が普通と言うか多い
0以上1未満の少数が出るからそれを6倍してINTで整数にし(0～5になる)+1
>>20
んーと、そのRNDが引数に与えた数値まで(1～引数)が出るのなら、
0～3なら1～4を出して-1すれば良いんじゃない?
普通に引けばいいのか
まあこれからはINT(RND(1)*6)+1を使うわ
１０ ＣＬＳ
２０ ＩＦ ＩＮＫＥＹ＄ ＝゛ ゛ ＴＨＥＮ ３０ ＥＬＳＥ ２０
３０ ＣＬＳ
４０ ＰＲＩＮＴ ＩＮＴ （ＲＮＤ（１）＊４）－１
５０ ＧＯＴＯ ２０
これで星をみるひとごっこができる
素手か
http://www.tutorialspoint.com/compile_freebasic_online.php?PID=0Bw_CjBb95KQMaWhQSC1ITnlIUUU
動いた
１０ ＣＬＳ
２０ Ａ＝ ＩＮＴ（ＲＮＤ（１）＊３）＋１
３０ ＩＮＰＵＴ ゛１＝パー ２＝チョキ ３＝グー゛，ＧＵＥＳＳ
４０ ＩＦ ＧＵＥＳＳ＞Ａ ＴＨＥＮ ７０ ＥＬＳＥ ５０
５０ ＩＦ ＧＵＥＳＳ＜Ａ ＴＨＥＮ ８０ ＥＬＳＥ ６０
６０ ＰＲＩＮＴ ゛アイコ゛：ＧＯＴＯ ２０
７０ ＩＦ ＧＵＥＳＳ＝３ ＴＨＥＮ ７５ ＥＬＳＥ ９０
７５ ＩＦ Ａ＝１ ＴＨＥＮ １００ ＥＬＳＥ ９０
８０ ＩＦ ＧＵＥＳＳ＝１ ＴＨＥＮ ８５ ＥＬＳＥ １００
８５ ＩＦ Ａ＝３ ＴＨＥＮ ９０ ＥＬＳＥ １００
９０ ＰＲＩＮＴ゛カチ！゛
９５ ＧＯＴＯ １１０
１００ ＰＲＩＮＴ゛マケ・・・゛
１１０ ＩＮＰＵＴ ゛モウイチド＝１ オワル＝２゛，ＧＵＥＳＳ
１２０ ＩＦ ＧＵＥＳＳ＝１ ＴＨＥＮ １３０ ＥＬＳＥ １５０
１３０ ＣＬＳ
１４０ ＧＯＴＯ ２０
１５０ ＥＮＤ
超すごいだろ
ifの使い勝手が良すぎる
魔法の言葉 if then eles
elseでした
次は何を作ろうかなー
安価で決めよう>>33
井戸
井戸とかどうしたらいいんだよ
今の自分にできるか分からんが思い付いた
井戸から水をいっぱい出すゲーム
テンキーの1と3を交互に連打すると水（スコア）が増える この際画面にある井戸のドット絵が1か3が押されるごとに1コマ動く（全3コマのループ）
制限時間は10秒
水の単位はL
できればハイスコアを保存したい
当たり前だけど現状無理
これを目標にしたい
制限時間の付け方が分かんない…
現在時刻を取得する命令ないの
WAITでループ回してなんとかならんかな
時刻は拾えないよなー
ちょうど今waitに目をつけてるところ
でもこれやると全部止まるからなー
プログラムを2つ同時に進行するとかできる？
あともうひとつ案があった
x軸を用意してその左端から右端を一定の速度で移動する点が右端に着いた瞬間にタイムアップとなる
これだったらいけそう
x軸を制限時間バーにする案
http://www.nextftp.com/toshi_home/program/bird.txt
これを弄ったらいけそうだか弄り方が分かんない
x軸を一定の速度で移動する点のプログラムを教えてください
残念だけど実機持ってないからなあ
ドット打つのは専用の命令になってるからさっぱり分からん
ひとまず||||||||||的な文字ゲージで妥協するのはどうだろ
PC-G850シリーズのエミュがあるらしい
http://yasuho.hatenablog.com/entry/20100413/p1
というか「文字のゲージを一定時間で1つ消える」が分からんのや
10 CLS :DIM M(2,2):FOR I=0TO 2:FOR J=0TO 2:READ M(J,I):NEXT :NEXT
20 GOSUB *HYOJI
30 GOTO 30
40 *HYOJI LINE (0,0)-(63,31),B
50 IF M(2,0)=1 LINE (0,0)-(10,5):LINE -(10,27):LINE -(0,31)ELSE LINE (0,5)-(10,27),B
60 IF M(0,0)=1 LINE (63,0)-(53,5):LINE -(53,27):LINE -(63,31)ELSE LINE (53,5)-(63,27),B
70 IF M(1,1)=1 LINE (11,5)-(52,27),B:RETURN
80 IF M(2,1)=1 LINE (10,5)-(19,9):LINE -(19,22):LINE -(10,27)ELSE LINE (10,9)-(19,22),B
90 IF M(0,1)=1 LINE (52,5)-(43,9):LINE -(43,22):LINE -(52,27)ELSE LINE (43,9)-(53,22),B
100 IF M(1,2)=1 LINE (19,9)-(43,22),B:RETURN
1000 DATA 0,0,1
1010 DATA 1,0,0
1020 DATA 1,1,1
これ写して実行したらワクワクしてきた
これを動かせるようになりたいな