2012年5月22日投稿 / 投稿者 : Lv100 / タグ : 投稿プログラム ゲーム QRコード 初代対応 Lv100
このゲームは“MEM:REKIDAI”を使用します。
タイトル画面を少し変えました。
タイトルで難易度を変えられるようにしました。
コマンドを入力するときに時間制限を設けました。
com turnの前に少し時間をおきました。
タイトル画面でのノイズ音を無くしました。
バージョン情報を表示するようにしました。
サイモンゲームを公開しました。
あのゲームです。
まだありません。
プチコンmkII 向けの QR コードです。上から読み取ってください。
- CLEAR:GCLS 0:STAGE=1
- DIM ANKI(100),BOTAN(100),J(100)
- @TITLE
- CLS:SYSBEEP=0
- LOAD ”MEM:REKIDAI”,FALSE:SYSBEEP=1
- IF SAIKOU<STAGE THEN SAIKOU=STAGE
- REKI=VAL(MEM$)
- IF REKI<SAIKOU THEN MEM$=STR$(SAIKOU)
- IF REKI<SAIKOU THEN ?”アナタノキロクカ゛レキタ゛イノキロクヲ、ヤフ゛リマシタ!”
- IF REKI<SAIKOU THEN ?”ホソ゛ンスルノテ゛、「ハイ」ヲタッチシテネ。”
- IF REKI<SAIKOU THEN SAVE ”MEM:REKIDAI”:CLS
- REKI=VAL(MEM$)
- BGMPLAY 0:STAGE=1
- FOR I=0 TO 19
- ANKI(I)=0:BOTAN(I)=0
- NEXT I
- COLOR 9:LOCATE 0,5
- ?” ││ ┌──┬─ ── │ ├┤ ┌─ ”
- ?” ─┼┼──┬┘ ─┼── ┌ ├─┬─┐ │ ”
- COLOR 11
- ?” ││ │ │ │ ┘ │ └───┤ ┐”
- COLOR 10
- ?” ┘ │ └─────┘ ─┘ └──┤”
- ?” ver 1.0 ”
- COLOR 4:LOCATE 0,12
- ?”ル−ルハカンタン。”
- ?”ヒカッタホ゛タンヲ、シ゛ュンニオスタ゛ケ!”
- COLOR 10
- ?”ホンシ゛ツノ サイコウキロク ”;SAIKOU;” stage”
- ?”レキタ゛イ オウシ゛ャ ”;REKI;” stage”
- COLOR 0:LOCATE 6,17
- ?”A テ゛ ケ゛−ムスタ−ト!(EASY)”
- LOCATE 6,18
- ?”X テ゛ ケ゛−ムスタ−ト!(HARD)”
- LOCATE 6,19
- ?”B テ゛ テ゛−タノウケワタシ”
- @OSITE
- IF BUTTON()==32 GOTO @FAIL
- IF BUTTON()==16 THEN HYOUJI=10:GOTO @HAJIMARU
- IF BUTTON()==64 THEN HYOUJI=5 :GOTO @HAJIMARU
- GOTO @OSITE
- @HAJIMARU
- BGMPLAY 4
- CLS:LOCATE 10,11
- ?”Let′s start!”
- @KYOKU
- IF BGMCHK()==1 GOTO @KYOKU
- CLS:BGMPLAY 23
- LOCATE 0,8
- ?” Xй
- ?” и з
- ?” Yй жAй
- ?” и з и з
- ?” жBй ж
- ?” и з
- ?” ж
- @STAGE
- LOCATE 0,1
- ?”com turn ”
- LOCATE 0,0 ?”STAGE ”;STAGE
- LOCATE 0,2 ?” ”
- @MAIN
- J(STAGE−1)=RND(4)+4:OBOERU=1
- WAIT 15
- FOR I=1 TO J(STAGE−1)
- OBOERU=OBOERU*2
- NEXT I
- ANKI(STAGE−1)=OBOERU
- FOR I=0 TO STAGE−1
- BEEP 3
- IF J(I)==4 THEN LOCATE 17,11
- IF J(I)==5 THEN LOCATE 15,13
- IF J(I)==6 THEN LOCATE 15,9
- IF J(I)==7 THEN LOCATE 13,11
- COLOR 3:?”┿”:WAIT HYOUJI
- IF J(I)==4 THEN LOCATE 17,11
- IF J(I)==5 THEN LOCATE 15,13
- IF J(I)==6 THEN LOCATE 15,9
- IF J(I)==7 THEN LOCATE 13,11
- ?” ”:WAIT 2*HYOUJI
- NEXT I
- ABC=0:COLOR 0
- LOCATE 0,1 ?”your turn”
- MATU=60*(STAGE*HYOUJI/5+1):JIKAN=0
- FOR I=0 TO STAGE−1
- @OSE
- WAIT 1:JIKAN=JIKAN+1
- LOCATE 0,2 ?”ノコリ”;FLOOR((MATU−JIKAN)/60+1);”ヒ゛ョウ ”
- IF JIKAN==MATU GOTO @OVER
- PPP=0:III=0:EEE=AAA
- AAA=BUTTON()
- IF AAA!=EEE THEN III=1
- IF BUTTON()<16 OR BUTTON()>128 GOTO @OSE
- IF (BUTTON() OR 16)!=16 THEN PPP=PPP+1
- IF (BUTTON() OR 32)!=32 THEN PPP=PPP+1
- IF (BUTTON() OR 64)!=64 THEN PPP=PPP+1
- IF (BUTTON() OR 128)!=128 THEN PPP=PPP+1
- IF III==0 GOTO @OSE
- IF PPP==4 GOTO @OSE
- IF ANKI(I)!=BUTTON() THEN @OVER
- BEEP 3
- NEXT I
- IF STAGE==100 GOTO @CLEA
- STAGE=STAGE+1
- GOTO @STAGE
- @OVER
- LOCATE 0,2 ?” ”
- LOCATE 11,15
- ?”GAME OVER”
- BGMPLAY 6
- @OWARI
- IF BGMCHK()!=0 GOTO @OWARI
- GOTO @TITLE
- @CLEA
- LOCATE 0,15
- ?”COM:マケマシタ・・・。アナタハテンサイテ゛ス!”
- BGMPLAY 7
- ?:?”PUSH START BUTTON”
- @OMEDETO
- IF BUTTON()==1024 GOTO @TITLE
- GOTO @OMEDETO
- @FAIL
- CLS:BGMPLAY 26
- LOCATE 0,1
- ?”レキタ゛イキロクヲモラウナラ、「L」ヲオシテクタ゛サイ。”:?:?
- ?”レキタ゛イキロクヲソウシンスルナラ、「R」ヲオシテクタ゛サイ。”:?:?
- ?”モト゛ルナラ、「START」ヲオシテクタ゛サイ。”
- @DOSURU
- IF BUTTON()==256 GOTO @MOLAU
- IF BUTTON()==1024 GOTO @TITLE
- IF BUTTON()!=512 GOTO @DOSURU
- @SOSIN
- SENDFILE”MEM:REKIDAI”
- GOTO @DOSURU
- @MOLAU
- REKI=VAL(MEM$)
- RECVFILE”MEM:REKIDAI”
- NEWLEKI=VAL(MEM$)
- IF REKI>NEWREKI THEN MEM$=STR$(REKI)
- SAVE”MEM:REKIDAI”
- GOTO @DOSURU
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)
表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.120 秒 | このページの最終更新 : 2022/09/20 (火) 12:43:57 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30