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

Toukou/人生ゲームもどき の変更点

パンくずリスト


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

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

*もどき [#Title]
4人で遊べるゲームをつくってみました。(一応)CPU対戦もあります。~
もどきなので、所持金が増減するマスしかありません。


* 概要 [#Summary]
"劣化"人生ゲームです。

** 操作方法 [#Komidashi]
Aボタンでサイコロを止めます。
メッセージが出たら、Aボタンで進めます。

/////////////////////////////////
// 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%);|
&ref(qr500.png,,200%);&ref(qr501.png,,200%);&ref(qr502.png,,200%);&ref(qr503.png,,200%);

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

* プログラムリスト [#List]
#region(ネタバレ注意)
#basic{{
'2015/11/11:8:8
@INIT
DATA"┿       ┿","┿   ┿   ┿","┿       ┿"
DATA"┿ ┿     ┿","┿       ┿","┿     ┿ ┿"
DATA"┿ ┿     ┿","┿   ┿   ┿","┿     ┿ ┿"
DATA"┿ ┿   ┿ ┿","┿       ┿","┿ ┿   ┿ ┿"
DATA"┿ ┿   ┿ ┿","┿   ┿   ┿","┿ ┿   ┿ ┿"
DATA"┿ ┿ ┿ ┿ ┿","┿       ┿","┿ ┿ ┿ ┿ ┿"

DATA"START",0
DATA"ジドウシャホケン",-50
DATA"ナンプレノケンショウガアタッタ",10
DATA"ホームノセンロニキップヲオトシタ",-1
DATA"ジドウハンバイキガコワレタ",20
DATA"DSノガメンガカケタ",-5
DATA"ガチャガチャヲヤッタ",-5
DATA"3ビョウルールデタイムオーバー",-1
DATA"センプウキニユビヲツッコンダ",-1
DATA"キンノエンゼルガデタ",12
DATA"クワガタヲカッタ ケドニゲラレタ",-9
DATA"コロッケヲフミツブシタ",-1
DATA"カレーヲコボシタ クリーニングダイ",-4
DATA"クワガタヲツカマエタ",8
DATA"クスダマトオモッタラハチノスダッタ",-9
DATA"セイメイホケン",-200
DATA"ドロボウガハイッタ",-13
DATA"ドロボウヲツカマエタ",40
DATA"キセルガバレテツカマル",-12
DATA"カブガアガッタ",100
DATA"イエヲカウ",-100
DATA"イエヲカウ",-150
DATA"マンションヲカウ",-50
DATA"ムジツノツミデツカマッタ",50
DATA"BBダンガメニハイッタ",-16
DATA"アカチャンニオサツヲタベラレタ",-10
DATA"ディズニーシーニイッタ",-10
DATA"パチンコデオオモウケ",50
DATA"カブガサガッタ",-50
DATA"マイゾウキンヲミツケタ",100
DATA"myゾウキンヲミツケタ",0
DATA"シンゴウムシデバッキン",-25
DATA"PS2ガヒヲフイタ",-20
DATA"オトコノコガウマレタ",150
DATA"キャンプデオカネヲヒダネニツカッタ",-35
DATA"オンナノコガウマレタ",150
DATA"トイレでカミガナイ",-30
DATA"ヘソクリヲミツケタ",30
DATA"タカラクジガハズレタ",-100
DATA"タカラクジガハズレタ",-100
DATA"タカラクジガハズレタ",-100
DATA"タカラクジガアタッタ",10000
DATA"カブガアガッタ",150
DATA"ジサクゲームがバカウレ",150
DATA"カブガサガッタ",-100
DATA"フタゴガウマレタ",300
DATA"カセツトイレヲカッタ",-200
DATA"ゴッホノエヲカッタ シカシニソモノナノデ",-500
DATA"クイズデユウショウ!",4444
DATA"ゴール",0

DATA"ビジネスマン",500
DATA"ビジネスマン",500
DATA"ビジネスマン",500
DATA"ビジネスマン",500
DATA"ビジネスマン",500
DATA"キョウシ",800
DATA"キョウシ",800
DATA"シンブンキシャ",1000
DATA"シンブンキシャ",1000
DATA"ベンゴシ",1500
DATA"イシャ",2000
DATA"ニート",-50

CLS:CLEAR:VISIBLE 1,1,0,0,0,0
COLOR 0:BGMSTOP:RESTORE@INIT
DIM MASU$(50),MASU(50)
DIM SC(4),CP(4),PCL(4),PCO(4)
DIM Y(4),SAI$(6,3),R(4)
DIM SYO$(12),PSY$(4)
DIM SYC(12),PSC(4)
DIM GOAL(4),BONUS(4)

PCL(0)=12:PCL(1)=9
PCL(2)=7:PCL(3)=4
?"┌──────────┐
?"│ジンセイ GAME│
?"└──────────┘
?
?"А:1P+3CPU
?"Б:2P+2CPU
?"Ф:3P+1CPU
?"Х:4P
?"START:END
@MENULOOP
WAIT 10:B=BUTTON()
IF B<16 THEN @MENULOOP
IF B<=64 THEN CP(3)=1
IF B<=32 THEN CP(2)=1
IF B<=16 THEN CP(1)=1
IF B==1024 THEN @GEND
?
?"А:EASY
?"Б:NORMAL
?"Ф:HARD
?"Х:HARDEST
?"К:INFERNO
?"н:BACK
@MENU2
WAIT 10:B=BUTTON()
IF B==16 THEN _WAIT=20
IF B==32 THEN _WAIT=15
IF B==64 THEN _WAIT=10
IF B==128 THEN _WAIT=5
IF B==256 THEN _WAIT=3
IF B==512 THEN @INIT
IF _WAIT==0 THEN @MENU2

CLS
Y(0)=1:Y(0)=2:Y(2)=3:Y(3)=4
BONUS(0)=40000
BONUS(1)=30000
BONUS(2)=20000
BONUS(3)=10000

FOR I=0 TO 5
FOR J=0 TO 2
READ SAI$(I,J)
NEXT:NEXT

READ MASU$(0),MASU(0)
COLOR 3
LOCATE 0,0:?"●"
FOR I=1 TO 24
READ MASU$(I),MASU(I)
IF MASU(I)>=0 THEN COLOR 9
IF MASU(I)<0 THEN COLOR 12
LOCATE I,0:?"●"
NEXT
FOR I=25 TO 48
READ MASU$(I),MASU(I)
IF MASU(I)>=0 THEN COLOR 9
IF MASU(I)<0 THEN COLOR 12
LOCATE I-25,5:?"●"
NEXT
COLOR 3
LOCATE 24,5:?"●"
READ MASU$(49),MASU(49)

FOR I=0 TO 11
READ SYO$(I),SYC(I)
NEXT

FOR I=0 TO 3
R(I)=RND(12)
NEXT
R(0)=RND(12)
@R2
R(1)=RND(12)
IF R(1)==R(0) THEN @R2
@R3
R(2)=RND(12)
IF R(2)==R(0) OR R(2)==R(1) THEN @R3
@R4
R(3)=RND(12)
IF R(3)==R(0) OR R(3)==R(1) OR R(3)==R(2) THEN @R4
FOR I=0 TO 3
PSY$(I)=SYO$(R(I))
PSC(I)=SYC(R(I))
NEXT

COLOR 0

LOCATE 12,10:?"┿┿┿┿┿┿┿┿┿
LOCATE 12,10:?"┿       ┿
LOCATE 12,10:?"┿       ┿
LOCATE 12,10:?"┿       ┿
LOCATE 12,10:?"┿       ┿
LOCATE 12,10:?"┿┿┿┿┿┿┿┿┿

FOR I=0 TO 3
COLOR PCL(I):PCO(I)=100
LOCATE 0,I+1:?"г"
NEXT

GOSUB@PCO
GOSUB@COMCL
@LOOP
IF GOAL(TU)==1 THEN @SKIP
SAI=SAI+1
IF SAI==6 THEN SAI=0
LOCATE 12,12:? SAI$(SAI,0);
LOCATE 12,14:? SAI$(SAI,1);
LOCATE 12,16:? SAI$(SAI,2);
BEEP 0
WAIT _WAIT
IF CP(TU)==1 AND RND(10)==0 THEN @S
IF BUTTON()!=16 THEN @LOOP
@S
COME1$="オッ!アナタハ"+STR$(SAI+1)+"デスネ!!"
GOSUB@COMCL:GOSUB@WAIT
IF SAI==5 THEN GOSUB@_6
COME1$="デハ、ススンデイキマショウ!!"
GOSUB@COMCL:GOSUB@WAIT

FOR WALK=0 TO SAI
LOCATE SC(TU),Y(TU):?" ";
IF SC(TU)>24 THEN LOCATE SC(TU)-25,Y(TU):?" ";
SC(TU)=SC(TU)+1:COLOR PCL(TU)
IF SC(TU)==25 THEN Y(TU)=Y(TU)+5
IF Y(TU)<5 THEN GOSUB@F1
IF Y(TU)>5 THEN GOSUB@F2
IF SC(TU)==49 THEN @GOAL
IF SC(TU)%10==0 THEN GOSUB@KYU
BEEP 4:WAIT 20:NEXT
COLOR 0
COME1$="エエット・・・ココノマスハ‥・「"
GOSUB@COMCL:GOSUB@WAIT
COME2$=MASU$(SC(TU))
GOSUB@COMCL:GOSUB@WAIT
COME1$=STR$(ABS(MASU(SC(TU))))
IF MASU(SC(TU))>=0 THEN GOSUB@UP
IF MASU(SC(TU))<0 THEN GOSUB@DOWN
COME1$=COME1$+"」デスネ!!"
COME2$=""
GOSUB@COMCL:GOSUB@WAIT
COME1$=""
PCO(TU)=PCO(TU)+MASU(SC(TU))
GOSUB@COMCL:GOSUB@PCO:GOSUB@OVER
@SKIP
TU=TU+1:IF TU==4 THEN TU=0
BGMSTOP:WAIT 10
GOTO@LOOP

@UP
COME1$=COME1$+"0$モラウ"
BEEP 7:RETURN
@DOWN
COME1$=COME1$+"0$ハラウ"
BEEP 11:RETURN

@KYU
COME1$="キュウリョウ "+STR$(PSC(TU))+"0$!!"
BEEP 32
PCO(TU)=PCO(TU)+PSC(TU)
GOSUB@COMCL:GOSUB@WAIT:GOSUB@PCO
RETURN

@F1
LOCATE SC(TU),Y(TU):?"г";
RETURN
@F2
LOCATE SC(TU)-25,Y(TU):?"г";
RETURN

@COMCL
LOCATE 0,19:COLOR 0
?"├─────────┴─────────────┐
?"│Ж:                     │
?"│                       │
?"└───────────────────────┘
LOCATE 3,20:? COME1$
LOCATE 1,21:? COME2$
RETURN

@WAIT
WAIT 10
IF CP(TU)==1 AND RND(3)==0 THEN WAIT 60:RETURN
IF BUTTON()!=16 THEN @WAIT
RETURN

@_6
COME1$="スゴイ!!6デスヨ!!"
BGMPLAY 3
GOSUB@COMCL:GOSUB@WAIT:RETURN

@PCO
LOCATE 0,10:COLOR 0
?"┌─────────┐
?"│         │
?"│         │
?"│         │
?"│         │
?"│         │
?"│         │
?"│         │
?"│         │

FOR I=0 TO 3
COLOR PCL(I)
LOCATE 1,11+I*2:?"         "
LOCATE 1,11+I*2:?"г:"PCO(I)"0$"
LOCATE 1,12+I*2:? PSY$(I)
NEXT:COLOR 0:RETURN

@OVER
IF PCO(TU)>99999 THEN PCO(TU)=99999
IF PCO(TU)<-9999 THEN PCO(TU)=-9999
RETURN

@GOAL
BGMPLAY 9
COME1$="オメデトウ!!ゴールデス!!"
COME2$="ボーナス"+str$(bonus(go))+"0$!!"
GOSUB@COMCL:GOSUB@WAIT
PCO(TU)=PCO(TU)+BONUS(GO)
GOAL(TU)=1:BGMSTOP:GOSUB@OVER
GOSUB@PCO:GO=GO+1
TU=TU+1:IF TU==4 THEN TU=0
COME1$="":COME2$=""
GOSUB@COMCL
IF GO<4 THEN @LOOP

CLS:BGMPLAY 19
FOR I=0 TO 3
COLOR PCL(I)
?"г:"PCO(I)"0$"
? PSY$(I),PSC(I)
NEXT:COLOR 0:WAIT 60
?"А:モウイチド Б:オワリ"
@ENDLOOP
WAIT 10:B=BUTTON()
IF B==16 THEN @INIT
IF B!=32 THEN @ENDLOOP
@GEND
CLS:BGMSTOP:?"オツカレサマ!"
BEEP 34:WAIT 180:END
'2016/3/1:18:45
}}
#endregion

* これから [#Next]
これから、このプログラムに、いろいろな機能を付け足そうと思っています。

* ご感想をどうぞ [#Question]
#vote(読み込んでみた[4],楽しかった![2],普通[1],微妙…[0],改造してみた[0])
#vote(読み込んでみた[5],楽しかった![2],普通[1],微妙…[0],改造してみた[0])

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

* CHECKER FLAG (ひとことコメント) [#Comments]
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は[[掲示板>Board]]へ)

#comment

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