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

Toukou/壮大な双六ゲーム(嘘) の変更点


#title(投稿プログラム :烏天の壮大な双六ゲーム(嘘))
#title(投稿プログラム : 烏天の壮大な双六ゲーム(嘘))
#contents
//↑↑↑この2行は消さないでください。
2012年9月23日投稿
// ↑↑↑
//------------------------------------------------------------------------------
// ・投稿者名は、将来的に投稿プログラム一覧に表示するために使用します。
// ・「名無しさん」のままにしておくと、匿名の方からの投稿として扱われます。
// ↓↓↓
/ 投稿者 : 烏天
// ↑↑↑
//------------------------------------------------------------------------------
// ・適当にタグをつけることができます。半角のコンマ区切りで複数つけられます。
//   タグをつけると、同じタグが付いたページを検索することができます。
// ★次に該当するプログラムは、特定のタグを設定するようご協力お願いします。
//   これらを設定すると、将来的に投稿プログラム一覧に目立つマークが付くようになる予定です。
// ・短いプログラム → 「1行プログラム」「数行プログラム」「1画面プログラム」タグのいずれか1つ
// ・初代プチコンでも動作するプログラム → 「初代対応」タグ
// ・mkII 以降専用のプログラム → 「mkII専用」タグ
// ・QRコードを掲載している → 「QRコード」タグ
// ・該当するなら「ゲーム」「実用ツール」「音楽」タグのいずれか
// ↓↓↓
/ &tag(投稿プログラム,ゲーム,QRコード,);
// ↑↑↑
/検索用→【烏天】

//------------------------------------------------------------------------------
// ここに概要とか書きます。
// ・** や *** で始まる行は子見出しとなります。* の数で深さが決まります。
// ・[#英数字] はページ内リンクに使用されるアンカーですが、
//   書かなかったり、消したりしてもかまいません。ない場合はランダムな文字列が自動付与されます。

* 概要 [#Summary]
簡単n・・・壮大な双六ゲームです。

** ゲーム説明 [#Komidashi1]
タイトル画面が出ますのでAボタンを押してください。&br;
右上に双六みたいなものが出ますのでBボタンで止めてください。&br;
あとはAボタンを押すだけ。簡単・・・壮大でしょ?&br;
最初にゴールするのは一体誰なのか!?

*** 注意 [#Komidashi1-1]
初投稿です。お手柔らかにお願いします。&br;
これは友達が案を出してくれたものです。&br;
キレないでください。&br;
暇なときでいいです。読み込んでやってください。&br;
お願いします。&br;

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

* QR コード [#QR]
プチコンmkII 向けの QR コードです。

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

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

// 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:SUGOROKU|
|&ref(s_qr0すごろくゲーム.png,,200%);|&ref(s_qr1すごろくゲーム.png,,200%);|
/////////////////////////////////


* プログラムリスト [#List]
#region(ネタばれ注意の為、隠してあります)
#basic{{
GOSUB @TAITORU
@START
BGMSTOP:CLEAR:ACLS:X=2
?
?"┌───┐"
?"│   │"
?"│   │"
?"└───┘"
FOR I=0 TO 6
?"     "
NEXT
FOR I=0 TO 25 STEP 5
LOCATE I,8:?"┌───┐"
LOCATE I,9:?"│・〜、│"
LOCATE I,10:?"│м◎┘│"
LOCATE I,11:?"└───┘"
NEXT
FOR I=1 TO 6
LOCATE X,12:? I:X=X+5
NEXT

LOCATE 25,13:?"┌───┐":LOCATE 25,14:?"│   │":LOCATE 25,15:?"│   │":LOCATE 25,16:?"└───┘"
LOCATE 25,17:?"コ゛-ル !!"

LOCATE 2,2:?"г"
COLOR 3 :LOCATE 0,18:?"─"*32:LOCATE 0,22:?"─"*32
COLOR 13:LOCATE 20,1:?"┌─┐":LOCATE 20,2:?"│ │":LOCATE 20,3:?"└─┘"
@LOOP
P=RND(6)+1:KEEP=KEEP+1
LOCATE 21,2:? P:BEEP 7,0,10
IF 32==BUTTON() THEN @STOP
IF KEEP==500 AND TEN==0 THEN LOCATE 23,2:?"Б":TEN=1:KEEP=0
IF KEEP==500 AND TEN==1 THEN LOCATE 23,2:?" ":TEN=0:KEEP=0
GOTO @LOOP

@STOP
COLOR 0:X=0:Y=19:PUSHI=0
@KOMENT
WAIT 20
IF PUSHI==0 THEN LOCATE X,Y:?"オッ!アナタハ";P;"テ゛スネ!!    А":GOTO @PUSH
 IF P==6 AND MOU!=1 THEN BGMPLAY 3:MOU=1:LOCATE X,Y:?"スコ゛イ!!6テ゛スヨ!!    А":GOTO @PUSH
IF PUSHI==1 THEN LOCATE X,Y:?"テ゛ハ、ススンテ゛イキマショウ!!    А":GOTO @PUSH
 IF KILL!=1 THEN GOSUB @SINKOU
IF PUSHI==2 THEN LOCATE X,Y:?"エエット・・・ココノマスハ・・・    А":GOTO @PUSH
IF PUSHI==3 THEN LOCATE X,Y:?"'サイショノマスニモト゛ル'テ゛スネ!    А":GOTO @PUSH
IF PUSHI==4 THEN LOCATE X,Y:?"Good by!!    А":GOTO @PUSH
GOTO @START

@PUSH
IF 16==BUTTON(2) THEN LOCATE X,Y:?" "*40:PUSHI=PUSHI+1:GOTO @KOMENT
GOTO @PUSH

@SINKOU
KILL=1:LOCATE 2,1:?" ":LOCATE 2,6:?"г"
FOR I=0 TO 5
 FOR XO=2 TO 30 STEP 5
 
 IF P==0 THEN RETURN
 WAIT 30:LOCATE XO-5,6:?" ":LOCATE XO,6:?"г":P=P-1:BEEP 4

NEXT:NEXT
RETURN

@TAITORU
ACLS:CLEAR:KAWA=RND(101):COLOR 13
IF KAWA!=100 THEN LOCATE 8,10:?"スコ゛ロクケ゛-----ム":TALK"スコ゛ロクケ゛-----ム"
IF KAWA==100 THEN LOCATE 8,10:?"スコ゛ロクヒ゛-----ム":TALK"スコ゛ロクヒ゛-----ム"
COLOR 9:LOCATE 9,12:?"Аホ゛タンヲオシテネ♪"
@OO
IF 16==BUTTON() THEN RETURN
GOTO @OO
}}
#endregion

/////////////////////////////////
// コメントを募集したくないなら、ここから下は削除してください

* CHECKER FLAG (ひとことコメント) [#Comments]
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は[[掲示板>Board]]へ)
//- ''烏天'' : これでいいのかな? (&new{2012/09/23 (日) 18:30:54};)
//- ''名無しさん'' : 何も無いというwww (&new{2012/09/23 (日) 18:37:47};)
//- ''烏天'' : QR・・・ (&new{2012/09/23 (日) 18:43:23};)
//- ''名無しさん'' : QRがww (&new{2012/09/23 (日) 18:46:02};)
//- ''ウイング'' : うーむ・・・むずかしい・・・ (&new{2012/09/23 (日) 18:47:15};)
//- ''ウイング'' : 添付のQRを私が読み込んで私がQR化した後載せるのはどうでしょう? (&new{2012/09/23 (日) 18:51:32};)
//- ''烏天'' : 誰か・・・QRの載せ方を詳しく教えて・・・ (&new{2012/09/23 (日) 18:52:05};)
//- ''烏天'' : どういう意味ですか? (&new{2012/09/23 (日) 18:53:05};)
//- ''名無しさん'' : というかQRのファイル名が謎・・・ (&new{2012/09/23 (日) 18:53:17};)
//- ''ウイング'' : 添付にあるQR読み込む→私が再びQR化する→貼る という流れ (&new{2012/09/23 (日) 18:54:08};)
//- ''烏天'' : チャットルームに貼りますのできてくれませんか? (&new{2012/09/23 (日) 18:56:07};)
//- ''ウイング'' : 添付で読み込めるから (&new{2012/09/23 (日) 18:57:38};)
//- ''ウイング'' : それとフィルター用で入ってるとリンク貼っても読み込めないから (&new{2012/09/23 (日) 18:58:07};)
//- ''烏天'' : とりあえず、俺は何をしたらいいですか? (&new{2012/09/23 (日) 19:00:05};)
//- ''ウイング'' : 烏天さんQRが一枚足りません!おちついてもう一回やってください! (&new{2012/09/23 (日) 19:02:39};)
//- ''烏天'' : え?え?一枚は足りたの!? (&new{2012/09/23 (日) 19:04:20};)
//- ''ウイング'' : 落ち着いてもう一度手順に従って頑張ってください! (&new{2012/09/23 (日) 19:05:58};)
//- ''ウイング'' : ちなみにQRが貼ってありますが私ではありません (&new{2012/09/23 (日) 19:06:44};)
//- ''ウイング'' : もう一個貼ればQR出ますよ! (&new{2012/09/23 (日) 19:07:10};)
//- ''烏天'' : え、誰が貼ってくれたの!? (&new{2012/09/23 (日) 19:08:54};)
//- ''ウイング'' : いつのまにか完成していた件について (&new{2012/09/23 (日) 19:09:45};)
//- ''ウイング'' : 俺意味なかったw (&new{2012/09/23 (日) 19:10:07};)
//- ''烏天'' : 俺が貼ったの? (&new{2012/09/23 (日) 19:10:43};)
//- ''ウイング'' : プログラムリストまでw (&new{2012/09/23 (日) 19:11:14};)
//- ''烏天'' : プログラムリスト入れてくれたんですか!?ありがとうございます! (&new{2012/09/23 (日) 19:11:35};)
//- ''ウイング'' : 何者かがQRとプログラムを載せてくれたらしい (&new{2012/09/23 (日) 19:11:53};)
//- ''ウイング'' : 誰がやった?w (&new{2012/09/23 (日) 19:12:11};)
- ''hatena'' : &basic{P==0};は&basic{!P};と短縮できますよ。 (&new{2012/09/23 (日) 19:12:32};)
//- ''ウイング'' : www (&new{2012/09/23 (日) 19:13:51};)
- ''烏天'' : hatenaさん、そうなんですか!勉強になります! (&new{2012/09/23 (日) 19:14:14};)
//- ''ウイング'' : 俺やってないよww (&new{2012/09/23 (日) 19:16:13};)
- ''hatena'' : &basic{?"     "};は&basic{?" "*5};と短縮できますよ。 (&new{2012/09/23 (日) 19:16:21};)
- ''烏天'' : 勉強になります!! (&new{2012/09/23 (日) 19:36:12};)
- ''.EXE'' : 素晴らしい (&new{2012/09/23 (日) 21:06:40};)
- ''烏天'' : ありがとうございます! (&new{2012/09/23 (日) 21:26:43};)
- ''ベルっく'' : ま、マジかwww (&new{2012/09/24 (月) 15:13:27};)
- ''ウイング'' : す、すごい・・・なんて壮大な双六ゲームなんだ・・・ (&new{2012/09/24 (月) 17:21:19};)
- ''名無し'' : なかなか良いストーリーだった (&new{2012/09/25 (火) 16:10:04};)
- このコメントは削除されました。
- ''名無しさん'' : (´;ω;`)スタート地獄・・・。 (&new{2012/09/26 (水) 17:48:45};)
- ''あいうえお'' : &basic;エエット•••コノマスハ•••’サイシショノマスニモドル’デスネ!Good by!! (&new{2012/09/27 (木) 16:32:46};)
- ''名無しさん'' : (/ω\)オーマイガー!!! (&new{2012/09/27 (木) 19:15:48};)
- ''なーゆ'' : ゴール行かせろよw (&new{2012/09/27 (木) 19:33:27};)
- ''そんな名無しで大丈夫か?'' : 無限ループって怖くね? (&new{2012/09/27 (木) 22:40:19};)
- ''進'' : 神ゲー (&new{2012/10/04 (木) 23:02:20};)
- ''道産子の初心者'' : いつになったら終わるの〜〜〜〜〜〜!!!!!!! (&new{2012/10/08 (月) 15:19:26};)
- ''道産子の初心者'' : あとマス目の文字は何なのか… (&new{2012/10/08 (月) 15:28:16};)
- ''名無しさん'' : 絶対ゴールできないだろこれwww (&new{2012/11/13 (火) 16:41:06};)
- ''道産子の初心者'' : そういえばリストはネタバレになるので畳んで置いた方がいいのでは? (&new{2012/11/13 (火) 16:52:30};)
- ''烏天'' : ご指摘ありがとうございます。時間があればたたんどきますね (&new{2012/11/13 (火) 17:02:50};)
- ''ゆうしゃアシスタント'' : 我がいとしのゴール……(え (&new{2012/11/13 (火) 17:02:56};)
- ''道産子の初心者'' : ↑何故いとし?(笑) (&new{2012/11/13 (火) 17:07:14};)
- ''名無しさん'' : ↑逆になぜ?(笑) (&new{2012/11/13 (火) 17:29:03};)
- ''道産子の初心者'' : ↑このままじゃきりがないwww (&new{2012/11/13 (火) 20:27:16};)
- ''名無しさん'' : ↑そうだね(笑) (&new{2012/11/13 (火) 20:47:45};)
- ''.EXE'' : ゴールできないww (&new{2012/11/13 (火) 21:43:41};)
- ''観鈴'' : もうゴールしてもいいよね (&new{2012/11/13 (火) 22:22:48};)
- ''ベルック'' : よく見たら、隠し要素のようなものが (&new{2012/11/13 (火) 23:16:18};)
- ''ベルック'' : 隠し要素的なのおもろいww (&new{2012/11/13 (火) 23:21:59};)
- ''道産子の初心者'' : 7の目あったら7分の1の確率でゴールする…のに7の目無い! (&new{2012/11/14 (水) 16:22:14};)
- ''ウイング'' : 遊戯王であったね (&new{2012/11/14 (水) 17:09:16};)
- ''烏天(投稿者)'' : プログラムリストを隠しました。ところでプログラムリスト書いてくれたの誰? (&new{2012/11/14 (水) 17:10:45};)
- ''ウイング'' : hatenaさんだと思います (烏天 (&new{2012/11/14 (水) 17:15:28};)
- ''烏天(投稿者)'' : おぉ、マジですか。このころは優しかったんだ・・・。(ウイング (&new{2012/11/14 (水) 19:08:04};)
- ''進'' : ww (&new{2012/11/15 (木) 15:14:44};)
- ''道産子の初心者'' : 恐らくhatenaさんは、初代対応って書いているのに、リスト無いと初代の人が打ち込めないな、と思って書いたんだと思います。 (&new{2012/12/14 (金) 11:09:16};)
- ''グラッシュ'' : 今更だが壮大だ… (&new{2013/03/16 (土) 18:14:26};)
- ''ベルック'' : 今更だけど、ACLS使ってあるから初代対応ではないよね (&new{2013/03/16 (土) 18:40:29};)
- ''烏天(投稿者)'' : べルックさん)確かにそうですね。ご指摘ありがとうございます。 (&new{2013/03/16 (土) 20:23:55};)
- ''道産子の初心者'' : ↓ACLS部をこうすると初代対応になりますよ。(mk2説明書より)↓

#basic{{
VISIBLE 1,1,1,1,1,1: ICONCLR
COLOR 0: CLS: GDRAWMD FALSE
FOR P=1 TO 0 STEP -1
 GPAGE P,P,P: GCOLOR 0: GCLS: GPRIO 3
 BGPAGE P: BGOFS 0,0,0: BGOFS 1,0,0
 BGCLR: BGCLIP 0,0,31,23
 SPPAGE P: SPCLR
NEXT
FOR I=0 TO 255
 COLINIT "BG", I: COLINIT "SP", I
 COLINIT "GRP",I
NEXT
}}

(&new{2013/03/28 (木) 22:20:41};)
- ''名無しさん'' : ↑思いっ切りmk2専用ですやん... (&new{2013/03/29 (金) 02:37:52};)
- ''名無しさん'' : このプログラムならACLSをVISIBLE 1,1,1,1,1,1:CLSに変えてWAITをVSYNCに変えてBUTTON(2)と” ”*40の部分を変えれば初代対応になるな (&new{2013/03/29 (金) 03:05:35};)
- ''道産子の初心者'' : 勘違いしてました。(・_・;) (&new{2013/03/29 (金) 08:08:13};)
- ''名無しさん'' : 壮大ですね!Good by! (&new{2013/03/29 (金) 12:11:16};)
- ''天郷思音'' : [[代用ACLS>http://putikonclub.g.hatena.ne.jp/keyword/%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0%20%E4%B8%80%E8%A6%A7?kid=20#p1]] (&new{2013/03/29 (金) 13:14:39};)
- ''烏天(投稿者)'' : な、なんかみなさんありがとうございます! (&new{2013/03/29 (金) 17:20:06};)
- ''.EXE'' : Good bye!じゃないの? (&new{2013/03/29 (金) 19:00:01};)
- ''烏天(投稿者)'' : ほんとだ…///ありがとうございます!次回はGood by!にしないよう注意します! (&new{2013/03/29 (金) 21:22:21};)
- ''名無しさん'' : Good dye! 名ゼリフになりそう…(お…思っただけですからね!) (&new{2013/03/30 (土) 01:24:43};)
- ''ベルック'' : ひそかな神ゲー (&new{2013/08/15 (木) 19:49:22};)
- ''名無しさん'' : ↑↑グッド染料w (&new{2013/08/15 (木) 20:26:12};)

#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