プチコンまとめWiki (初代/mkII)

Toukou/サイモンゲーム の変更点

パンくずリスト


#title(投稿プログラム : サイモンゲーム)
#contents
// ↑この2行は削除しないでください。
// ←このように「//」で始まる行はコメントです。ページ本文には反映されません。
//------------------------------------------------------------------------------
// ・投稿年月日は、このページを投稿しようとしている今日の日付を半角数字で入力してください。
//   この日付は、投稿プログラムを自動的に年月日順に並べる際に使用されます。
// ↓↓↓
2012年5月22日投稿
// ↑↑↑
//------------------------------------------------------------------------------
// ・投稿者名は、将来的に投稿プログラム一覧に表示するために使用します。
// ・「名無しさん」のままにしておくと、匿名の方からの投稿として扱われます。
// ↓↓↓
/ 投稿者 : Lv100
// ↑↑↑
//------------------------------------------------------------------------------
// ・適当にタグをつけることができます。半角のコンマ区切りで複数つけられます。
//   タグをつけると、同じタグが付いたページを検索することができます。
// ★次に該当するプログラムは、特定のタグを設定するようご協力お願いします。
//   これらを設定すると、将来的に投稿プログラム一覧に目立つマークが付くようになる予定です。
// ・短いプログラム → 「1行プログラム」「数行プログラム」「1画面プログラム」タグのいずれか1つ
// ・初代プチコンでも動作するプログラム → 「初代対応」タグ
// ・mkII 以降専用のプログラム → 「mkII専用」タグ
// ・QRコードを掲載している → 「QRコード」タグ
// ・該当するなら「ゲーム」「実用ツール」「音楽」タグのいずれか
// ↓↓↓
/ &tag(投稿プログラム,ゲーム,QRコード,初代対応,Lv100);
// ↑↑↑

//------------------------------------------------------------------------------
// ここに概要とか書きます。
// ・** や *** で始まる行は子見出しとなります。* の数で深さが決まります。
// ・[#英数字] はページ内リンクに使用されるアンカーですが、
//   書かなかったり、消したりしてもかまいません。ない場合はランダムな文字列が自動付与されます。
* 注意 [#l8f0a4d4]
このゲームは“MEM:REKIDAI”を使用します。
* 更新情報 [#x0ccbca7]
- 5/25 ver1.0に更新

タイトル画面を少し変えました。

タイトルで難易度を変えられるようにしました。

コマンドを入力するときに時間制限を設けました。

&basic{com turn};の前に少し時間をおきました。
- 5/23 ver0.1に更新

タイトル画面でのノイズ音を無くしました。

バージョン情報を表示するようにしました。
- 5/22 公開

サイモンゲームを公開しました。
* 概要 [#df56bc58]
あのゲームです。
//これはプログラム投稿する際のページテンプレート (雛形) です。

//** 子見出し1 [#hf780685]
//こういった子見出しの内容は適当に変えていいですよ。(「遊び方」「苦労した点」「参考にしたもの」「入力上の注意」など)

//*** 子見出しの子供1 [#ia64c5c2]
//あああああ

//*** 子見出しの子供1 [#m231f641]
//- 箇条書き
//- 箇条書き
//-- 箇条書き
//-- 箇条書き
//- 箇条書き

//** 子見出し2 [#p18fb998]
//+ 数字箇条書き
//+ 数字箇条書き
//++ 数字箇条書き
//++ 数字箇条書き
//+ 数字箇条書き

/////////////////////////////////

* スクリーンショット・動画 [#q3561572]
まだありません。
// 動作しているところを撮影した写真や動画があれば貼り付けてください。

// ページを作成すると、画像の添付ができるようになります。(作成する前はできません)
// 作成後のページの右上、ウィキメニューにある「添付」から画像をアップロードできます。
// (添付ファイルはページごとに別個に管理されています。必ず作成後のページに添付してください)
// 画像をアップロードしたら、以下の書式でページ内に貼り付けられます。
// #ref(添付ファイル名)

// 以下の書式で、YouTube やニコニコ動画を貼り付けられます。
// #youtube(0HWX7kovgY8)
// #nicovideo(sm13684820)

/////////////////////////////////
// QR コードがない場合は、この部分は削除してください

* QR コード [#l81e46a5]
プチコンmkII 向けの QR コードです。上から読み取ってください。

// 【重要】旧プチコンから mkII に転送したプログラムは、mkII で保存しなおしてから
// QR コード化すると、枚数が半分ぐらいに減ります。ぜひお試し下さい。
// 【重要】添付できるのは画像ファイルのみです。zip ファイルは解凍してください。

// ページを作成すると、QR コードの添付ができるようになります。(作成する前はできません)
// 作成後のページの右上、ウィキメニューにある「添付」から画像をアップロードできます。
// (添付ファイルはページごとに別個に管理されています。必ず作成後のページに添付してください)
// QR コードをアップロードしたら、以下の書式でページ内に貼り付けられます。

// QR コードを大きくしたい場合は、倍率指定ができます。コンマは必ず 2 つ指定してください。
// ブラウザによっては補完がかかってボケますが、それでも問題なく読み込み可能です。
// #ref(アップロードしたファイル名,,200%)

// 複数の QR コードを貼り付けるために表組みを用いる場合、&ref(); を使用します。
// (#ref() を表に埋め込んでしまうと、古い Internet Explorer でうまく表示されません)
// |>|>|~PRG:FILENAME|
// |~1/3|~2/3|~3/3|
// |&ref(qr0.png,,200%);|&ref(qr1.png,,200%);|&ref(qr2.png,,200%);|
|>|>|~PRG:SIMON|
|~1/3|~2/3|~3/3|
|&ref(qrko0.png,,200%);|&ref(qrko1.png,,200%);|&ref(qrko2.png,,200%);|

/////////////////////////////////

* プログラムリスト [#f81d033f]
#basic{{
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
}}

* 選択肢 [#se21cae4]

#vote(すごく良い[1],良い[0],普通[4],悪い[0],すごく悪い[0],QRコードでかw[13],30以上いった![0])
#vote(すごく良い[1],良い[0],普通[4],悪い[0],すごく悪い[0],QRコードでかw[13],30以上いった![1])
/////////////////////////////////
// コメントを募集したくないなら、ここから下は削除してください

* CHECKER FLAG (ひとことコメント) [#e1cfecdc]
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は[[掲示板>Board]]へ)
- ''名も無き名無し'' : あの、自分的な感想なんですが、5行目の最後に、:BGMSTOPと入れて、セーブデータをロードしたときの変な音を無くすってのをしたほうがいいと思います。 (&new{2012/05/22 (火) 22:57:56};)
- ''名無しさん'' : &basic{SYSBEEP=0};でもいいかも。 (&new{2012/05/23 (水) 03:59:12};)
- ''Lv100'' : 後で更新しておきます。 (&new{2012/05/23 (水) 13:37:10};)
- ''Lv100'' : 更新しました。 (&new{2012/05/23 (水) 14:43:35};)
- ''名無しさん'' : コレでロードした時なにも起こらない (&new{2012/05/24 (木) 16:14:56};)
- ''Lv100'' : ↑記録を更新したときのみ発動する仕組みです。 (&new{2012/05/24 (木) 19:56:29};)
- ''名無しさん'' : com turn の前に、少し間が欲しいな。 (&new{2012/05/24 (木) 21:44:35};)
- ''名無しさん'' : Ver1.0になったけど、もうちょっと時間をおいて欲しい。自分が押し終わってすぐにCOMが押し始めるのは落ち着かない。あと、自分の押すボタンも色つけを。 (&new{2012/05/25 (金) 20:28:52};)
- ''Lv100'' : ↑どのぐらい時間を置いたらよいでしょうか。 (&new{2012/05/26 (土) 16:25:57};)
- ''名無しさん'' : 自分の感覚だと、60フレーム(約1秒)くらいでちょうどよいです。 (&new{2012/05/26 (土) 16:37:56};)
- ''名無しさん'' : なぜプログラムリストの1行1行の最後に&basic{Л};があるのか (&new{2012/06/12 (火) 16:40:44};)
- ''Lv100'' : 便利ツールのやつで変換した後、数字は消したのですが、改行マークを消し忘れていました。 (&new{2012/07/06 (金) 23:40:05};)
- ''名無しさんの親'' : 何このゲーム             ンフンフ(( ̄▽ ̄) (&new{2013/05/03 (金) 08:27:54};)

#comment

表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.005 秒 | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30