BASIC(RNDとINKEY$)

映画『LIAR GAME The Final Stage』

ギャンブルに費やす時間を他のことに充てた方がよい気がするので、私は宝くじ以外のギャンブルはしてません。でもギャンブルは好きです。
「BASICを使う」でせっかくFreeBASICをインストールしたので、しばらくはBASICを懐かしみます。今回はRNDとINKEY$を使ってみます。

偶数と奇数、どちらが半だったか丁だったかすぐ忘れてしまうのですが、丁度2で割れるから偶数と覚えてしまいましょう。

test.bas

takk@ubu16:~/basictest$ cat test.bas | nl -ba -i10 -v10
    10  '$lang: "qb"
    20
    30  money = 1
    40  while 1
    50    die1 = INT(RND * 6) + 1
    60    die2 = INT(RND * 6) + 1
    70    dice = die1 + die2
    80    PRINT ""
    90    PRINT "半か丁か (半=y  丁=n) 所持金は" & money & "円です"
   100    PRINT ""
   110    do
   120      let k$ = INKEY$
   130    loop until k$ <> ""
   140    PRINT "賽の目の合計は、" & dice & "でした"
   150    hancho = dice mod 2
   160    if k$ = "y" and hancho = 0 then
   170      PRINT "あたりです"
   180      money = money * 2
   190    elseif k$ = "n" and hancho = 1 then
   200      PRINT "あたりです"
   210      money = money * 2
   220    else
   230      PRINT "はずれです"
   240      money = money * 0
   250    end if
   260    PRINT ""
   270  wend
   280
takk@ubu16:~/basictest$

実行するには、fbcでビルドして、testファイルを実行すればよいです。

takk@ubu16:~/basictest$ fbc test.bas
takk@ubu16:~/basictest$ ./test

RANDOMIZEしてないので、記憶ゲームになっています。このゲームで100万円ぐらい稼げるでしょうか。