スロットゲーム by ryotakami
ふたたびBASIC初心者からの投稿だぞ。
ゲームはスロットマシン形式。スロットの中を3つの数がランダムに動いていくので、ココだ! というところで下画面の「停止」キー(SELECTボタン)を押してストップしよう。
私が作りました
ryotakami
初投稿です。よろしくお願いします。
CHECK POiNT
スロットを止めるのが×ボタンかと思ったら、文字通り下画面の方の「×停止」キーを押すのかよ! ストレートだな、オイ!
ふははは、よかろうよかろう。やりたいことのために一番シンプルな手段を選ぶ、それもプログラムの正解じゃ! ワシも一本とられたぞい。
こうして作ってみたところで、「BREAK in ~」の字がジャマだったらどうすればいいか、見た目をカッコよくするには、ゲーム性を高めるには……と改良していくのがステップアップの手段じゃな。
あんまり無計画にやりすぎるとプログラムがゴチャゴチャしてしまうのが泣き所じゃが。
見た目はCOLORやLOCATEと記号を使いこなすだけでかなり変わってくるよね。
最終的にはドラムの数字がその場のランダムじゃなく、回る数字が見えて「目押し」ができるように作るのがスロットマシンの免許皆伝かな。
一気に増やしてくるなあ。でもまああんまり先を考えずに、やりたい事から順にやるのが一番だよね。それで最後にカンペキなスロットマシンができれば最高かな。
プログラムリスト
- ’スロットケ゛-ム
- CLS
- LOCATE 0,2
- PRINT”Жスロットケ゛-ムЖ”
- PRINT” ┌─┬─┬─┐”
- PRINT” │ │ │ │”
- PRINT” └─┴─┴─┘”
- PRINT”Ж:[мテイシ]ホ゛タンテ゛ストッフ゜”
- @LOOP
- A=RND(10)
- C=RND(10)
- LOCATE 2,4
- PRINT A
- LOCATE 4,4
- PRINT A
- LOCATE 6,4
- PRINT C
- IF INKEY$()==”” THEN @LOOP
- LOCATE 0,8
- END