※人気投票開催中※
01/17(日)00:00-01/30(土)23:59
第二回鈴仙奮闘記キャラ人気投票
※新板できました※
ダイス創作物語板
ブログ
現行スレ
投票
最新20
板
1-
前
次
新
レス
【赤と8ビットの】キャプテン岬【物語《ロマン》】
[472]キャプテン岬 ◆ma4dP58NuI :2018/07/01(日) 13:42:56 ID:5qLfYkp6 『スターライン』 ・画面1 BALL 5 SCORE 0 ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ● ==== ・画面2(ある程度星を取り進めた時) BALL 3 SCORE 180 ● ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ====
[473]森崎名無しさん:2018/07/01(日) 13:43:53 ID:??? ★プレイ時間(試作段階なのですぐ終わります) 4 ★
[474]キャプテン岬 ◆ma4dP58NuI :2018/07/01(日) 15:04:19 ID:5qLfYkp6 ★プレイ時間(試作段階なのですぐ終わります) 4 ★ (435での移動時間も含めると)現在時刻は16:42 ―――――――――――――――――――――――――――――――――――――――――――――――――― パドルとキーボードという違いはあるが、元々が同じゲームのため、順調に星を集める事ができている。 余裕をもってプレイしていくうちに残りの星の数も少なくなっていく。 そろそろラケットの当て方に工夫が必要となってきたところで、ある事に気が付いた。 岬「(玉のスピードが速くなってきた)」 最初は散歩のようなゆったりとした速さの玉が、星がまばらになっていくにつれ早歩きになり、 小走りになってきている。ブレイクアウトの時も同じような仕様だった。 岬「(ただ星を消すだけでも大変だろうに、結構やるな、この子)」 内心左の童女の仕事ぶりに舌を巻きながら、星を集めていく。すべて取り終わってみると画面が変わった。 もうおわり〜? (H/Y) 岬「このHとYって何?」 亜美「Hは『はい』、またゲームできるよ」 岬「Yは?」 亜美「YES!」 岬「ええ、まいったなあ、これじゃ終わらせられない」 亜美「うそうそ、Yで終わらせられるよ。ほれ」 そういって亜美が勝手にYボタンを押して、ゲームを終了させる。 亜美「さあ、このゲームを作るために、三日三晩夜なべしながら昼寝して、組み上げたプログラムが、これだ→っ!」
[475]キャプテン岬 ◆ma4dP58NuI :2018/07/01(日) 15:06:16 ID:5qLfYkp6 10 REM ●●●●●●●●●●●●●●●●スターライン●●●●●●●●●●●●●●● 20 CLS 30 BX=14;A$=‶$$$$″;YD=1:SC=0:BALL=5 40 DIM B(28,21) 50 FOR R=4 TO 7 60 FOR C=1 TO 26 70 B(C,R)=1 80 NEXT C 90 NEXT R 100 FOR R=4 TO 7 110 FOR C=1 TO 26 120 LOCATE C,R:PRINT ‶★″ 130 NEXT C 140 NEXT R 150 LOCATE BX,19:PRINT A= 160 Y=10:X=BX+2:XD=INT(RND(1)*2)-.5:PAUSE=30 170 LOCATE BX ,19:PRINT A‶●″ 180 FOR R=1 TO 1200:NEXT R 190 LOCATE 0,0:PRINT ‶BALL″;BALL 200 LOCATE X,Y:PRINT ‶●″ 210 FOR R=1 TO PAUSE:NEXT R 220 GOSUB 410 230 LOCATE X,Y:PRINT ‶●″ 240 IF B〔X,Y〕<>1 THEN 270 250 YD=‐YD:BEEP:B〔X,Y〕=0:SC=SC+1 260 LOCATE 20.0:PRINT ‶SCORE″,SC*10
[476]キャプテン岬 ◆ma4dP58NuI :2018/07/01(日) 15:09:45 ID:5qLfYkp6 270 IF SC=100 THEN 540 280 IF Y=4 THEN PAUSE=1 290 IF X<2 OR X>26 THEN XD=‐XD 300 IF Y<2 THEN YD=‐YD 310 IF Y=18 AND X>=BX AND X<BX+4 THEN 360 320 BB=INT〔X〕 330 IF Y=18 AND BB>BX‐2 AND BB<BX+6 THEN 350 340 GOTO 370 350 XD=‐-XD*.8 360 YD=‐YD 370 IF Y>20 THEN GOTO 500 380 X=X+XD 390 Y=Y+YD 400 GOTO 200 410 REM ラケット 420 LOCATE BX,19:PRINT‶====″ 430 G$=INKEY$ 440 IF G$=‶Z″ THEN BX=BX‐2 450 IF G$=‶X″ THEN BX=BX+2 460 IF BX<1 THEN BX=1 470 IF BX>25 THEN BX=25 480 LOCATE BX,19:PRINT A= 490 RETURN 500 BALL=BALL‐1 510 BEEP 520 IF BALL<0 THEN GOTO 540 530 GOTO 160 540 PRINT ‶もうおわり〜?″ (H/Y) 550 INPUT D$ 560 IF D$= ‶Y〜″ THEN END 570 RUN
[477]キャプテン岬 ◆ma4dP58NuI :2018/07/01(日) 15:15:08 ID:5qLfYkp6 亜美「どう、すごいでしょ→!あずみお姉ちゃんにも『よくできてる』ってほめられたんだよ→!」 岬「うーん、分かんない。クラークに泣きつきたいぐらいだよ」 亜美「クラーク?誰それ」 岬「昔のSF小説の大作家。『十分に発達した科学技術は、魔法と見分けがつかない』って言ってた人。 これみると、まるで魔導書の呪文だよ」 亜美「ほへっ!?魔法?い、いやー前々から亜美は出来る子と思ってましたが、ここまで言われるとは思いませんでしたなー」 ほっこりした顔になって喜ぶ亜美。よほど嬉しかったらしく、腕がパタパタしている。 真美「さ、今度は真美の番だよ!乳臭い小娘は引っこんでな」 右隣の真美が僕の腕に上半身を引っ付けて座っていた椅子から引きはがし、自分の机へと座らせた。 真美「んっふっふ〜真美ののーみつテクで兄ちゃんをメロメロにしてやるかんね〜」 亜美「ふーんだ、年頃の女の子の部屋に入って紳士を貫いた兄ちゃんが、はすっぱ女にやられたりするもんかー」 にたにた笑いながら修羅場ごっこを繰り広げる姉妹に、あいまいな笑みを浮かべながらマイコンの方に目を向ける。 今度の画面上には線で囲まれた道と思われる空間に、米印のようなマークがいくつかと、1つの星が映っていた。
[478]キャプテン岬 ◆ma4dP58NuI :2018/07/01(日) 15:16:47 ID:5qLfYkp6 真美「ところで兄ちゃん、ポールポジション(※)ってゲーム知ってる?」 ポールポジション、聞き覚えのある名前だ。パリにきてからゲームに触れたのはアタリフランスしかない。 岬「筐体だけは見た事ある。あずみちゃんのゲームセンターで、覆いを被ったやつだっけ」 真美「そうそれ。あれって面白かったよ。他のやつとは違って真っ正面から操作出来て、本物を動かしてるみたいだった。 まだ真美にはそこまでは出来ないけど、スピード感やコーナリングの感覚は負けてないからね」 そう自信満々に自分のゲームに太鼓判を押した後、説明を付け加えてレースをはじめさせた。 真美「Zボタンで車が左折、Xボタンで右折するよ、それじゃ、がんばってね!」 上から『スピードスター』とゲームのタイトルが現れる。上から3分の1のところで止まり、 かき消えた後、車が動き始めレースが始まった。 先着で以下の投稿を行ってください。その際、!とdiceの隙間は埋めてください。 ★『スタートスター』プレイ時間(試作段階なのですぐ終わります) !dice★ ※ポールポジション:https://www.youtube.com/watch?v=BcEvrXYWVsI
[479]キャプテン岬 ◆ma4dP58NuI :2018/07/01(日) 15:19:51 ID:5qLfYkp6 『スピードスター』のゲーム画面 ・画面1(★が車、*は岩) | * | | * | | | | * | | | | ★ | | * | | | | | ・画面2 | * | |* | | ★ | | | | ** | | | | * *| | * | | |
[480]キャプテン岬 ◆ma4dP58NuI :2018/07/01(日) 17:34:19 ID:5qLfYkp6 よく考えたら特に行動を特定するような選択肢ではないため、 続きを書き進めます。引き続き、478の投稿はお願い致します。 ポチポチとボタンを交互に押しながら、星のようにしか見えない車を動かして障害物をよける。 真美「なかなかいい具合だねえ、兄ちゃんプレイしたことあるの?」 岬「いや、はじめて」 真美「ほほう、いい筋してますなあ、じゃ、これでどう」 真美が言い終わるか終わらないかといったところで、急に道が曲がりはじめた。 すぐにZボタンを押して左にカーブするも、立て続けに右カーブ、左カーブと蛇のように道がうねりはじめた。 しかも進むごとに障害物は増え、道は狭くなっていく。何度か交わしながら進んでいくも、 カーブを曲がり切れずに壁へ衝突してしまった。 やらないか (H/Y) 岬「……ノーコメント」 真美「あれ、面白くなかった?」 岬「いや、最後のメッセージが分からなかっただけで、レースは面白かったよ」 真美「そりゃそ→だよ!この真美ちゃんがゲーセンやる時間も、亜美とコレコやる時間も削って作ったんだよ、これでダメなら詐欺だね」 ふふーという特異然とした表情が文字になって浮かびそうになるほど、愉快な顔になった。 真美「さ、この真美ちゃんの努力の成果、存分に感じてくれたまへ」 亜美に続き、真美もキーボードを叩いてプログラムを見せつけた。
[481]キャプテン岬 ◆ma4dP58NuI :2018/07/01(日) 17:38:09 ID:5qLfYkp6 10 REM ●●●●●●●●●●●●●●●●スピ→ドスタ→●●●●●●●●●●●●●●● 20 DIM L(5),R(5),S(5) 30 CLS 40 P1=10 50 P2=P1+8 60 Q=0 70 X=15 80 FOR S=1 TO 3 90 FOR I=1 TO 2 100 LOCATE P1,21PRINT‶|″ 110 LOCATE P2,21PRINT‶|″ 120 PRINT 130 NEXT 1 140 L〔5〕= L〔4〕: R〔5〕= S〔5〕= S〔4〕 150 L〔4〕= L〔3〕: R〔4〕= S〔4〕= S〔3〕 160 L〔3〕= L〔2〕: R〔3〕= S〔3〕= S〔2〕 170 L〔2〕= L〔1〕: R〔2〕= S〔2〕= S〔1〕 180 L〔1〕=P1+1: R〔1〕=P2 190 P1=P1+Q 200 P2=P1+8 210 BEEP 220 LOCATE X,11:PRINT ‶★″ 230 G$=INKEY$ 240 IF G$=‶Z″ THEN X=X‐1 250 IF G$=‶X″ THEN X=X+1 260 IF X=L〔5〕 OR X=R〔5〕 OR X=S〔5〕 THEN 410 270 S〔1〕=0 280 NEXT S 290 LX=P1+2+INT〔RND〔1〕*5〕 300 LOCATE LX,19:PRINT ‶*″ 310 S〔1〕=LX:LX=0 320 BEEP
[482]キャプテン岬 ◆ma4dP58NuI :2018/07/01(日) 17:39:25 ID:5qLfYkp6 330 READ Q:IF Q=999 THEN 390 340 GOTO 80 350 DATA 0,0,0,1,0,0, ‐1, ‐1,0,0,1,1,0, ‐0,2, ‐0,5 360 DATA ‐0,5, ‐0,5,1,0,0,0, ‐0,5,0,5, ‐1,0,1,0, ‐1 370 DATA ‐0,3,1,0,5,0,5, ‐0,7, ‐1,0,1,0,7,0,0, ‐1, ‐1 380 DATA 999 390 LOCATE 0,0:PRINT ‶やるねえ!″ 400 GOTO 450 410 FOR I=1 TO 20 420 K=INT〔RND〔1〕*5〕+128 430 LOCATE X,11:PRINT CHR$〔K〕 440 NEXT 1 450 LOCATE 5,22 460 INPUT‶やらないか″(H/Y) ″:A$ 470 IF A$=‶H″ THEN RUN 480 END 岬「(ふう、ただのゲーム好き双子姉妹だと思ったけど、なかなかやるなあ。 せっかく彼女達に付き合ってみたんだし、そろそろこっちからも話を切り出してみようかな)」 そろそろこちらの利益を引っ張り出す時間だ。僕の知らない事はまだまだある。どんな事を聞き出してみようか。
前
次
写
名前
E-mail
0ch BBS 2007-01-24