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

Toukou/プチコロボの戦い の変更点

パンくずリスト


#title(投稿プログラム : プチコロボの戦い)
2014年8月23日投稿 / 投稿者 : まげ / &tag(投稿プログラム,ゲーム,QRコード,mkII専用,マルチゲーム,プチコちゃん);

#contents

今日のアクセス:&counter(today);  トータルアクセス:&counter(total);

* 概要 [#w098082d]
#ref(pckrobo_op1.jpg)
侵略者が迫ってきた! 防衛チーム「ディーエス」出動! 合体、プチコロボ!!&br;
まったく違う4種類のゲームを、物語に沿って進める「ストーリーモード」と、個別に選べる「フリーモード」で遊べます。&br;
コンソール表現の限界に迫る(?)演出を、ぜひご体験ください。&br;
#ref(pckrobo_op2.jpg)
※「プチコちゃん」はオリジナルキャラであり、同名の他のキャラとは無関係です。

* ゲームの種類 [#n6ef8157]
それぞれの具体的な遊び方については、ゲーム内のチュートリアルを参照してください。
** STAGE 1 「合体」 [#jb2a4bc3]
#ref(pckrobo_gm1.jpg)
バラバラに動く3機のメカが、タテ1列に並んだ瞬間に、ボタンを押して「プチコロボ」へと合体させてください。
** STAGE 2 「誘導」 [#r2e903c9]
#ref(pckrobo_gm2.jpg)
ワイヤーを伸ばしながら進むパンチを誘導し、人質や壁や自分のワイヤーに当たらないよう、UFO10体を撃退してください。
** STAGE 3 「怪獣」 [#x1a5865b]
#ref(pckrobo_gm3.jpg)
「攻撃」「防御」「溜め」の3コマンドを駆使して、同じコマンドを操るロボット怪獣を撃退してください。
** LAST STAGE 「突入」 [#y816d493]
#ref(pckrobo_gm4.jpg)
敵母艦内部で、左右の壁を左右にかわし、迫る障害物を上下にかわして、中枢目指して進んでください。

* 戯れ言 [#fd582fe6]
コンソール表現ですから…と逃げるつもりはありません。逃げたくても逃げられない時代を過ごした者のこだわりです。&br;

少なくとも、「プチコンmkII」で作る当シリーズとしては、集大成と言っていいと思います。&br;
ぶっちゃけ、どれも単純なゲームなんですけど(^^;)、何度も試しプレイをして適度な難易度にし、その上で様々な演出を盛り込み、「クリアする喜び」を追求したつもりです。&br;
なお、ストーリーモードで、一度もゲームオーバーにならずにクリアした方には、ちょっとした「ゴホービ」があります。ちょっとした、ですよ?(^^)&br;

よろしければ拙HP・[[【プチコRoom】:http://mage.kir.jp/puchiko_hp]]へもお越しください。こちらには絶対に載せられない作品もあります(^^;)。&br;

* アンケート [#yd26c091]
特に楽しめた「STAGE」は?
#vote(STAGE 1 「合体」[0],STAGE 2 「誘導」[1],STAGE 3 「怪獣」[3],LAST STAGE 「突入」[4],該当なし[1])

* QR コード [#w3519474]
プチコンmkII 向けの QR コードです(全部で17枚あります)。

|&ref(qr000.gif);|&ref(qr001.gif);|&ref(qr002.gif);|&ref(qr003.gif);|&ref(qr004.gif);|&ref(qr005.gif);|&ref(qr006.gif);|&ref(qr007.gif);|&ref(qr008.gif);|&ref(qr009.gif);|&ref(qr010.gif);|&ref(qr011.gif);|&ref(qr012.gif);|&ref(qr013.gif);|&ref(qr014.gif);|&ref(qr015.gif);|&ref(qr016.gif);|

* プログラムリスト [#a0dd641d]

#region(プログラムリスト/2420行)
#basic{{
CLEAR:ACLS:PNLTYPE "OFF":COLOR 0,0:BGMSTOP


'ショキセッテイ<------------------
DIM MP$(23),MP(23),FX(700),FY(700),IX(11),IY(11),UX(11),UY(11)
DIM S3P$(5,12),S3T$(5,13),S3B$(4),S3M$(3,5)

TB$="@S9@E10@N2450@T70"
B$(0)="┿┿л       ╂л ╂л "*2
B$(1)="┿┿ з╂л  ┿л╂ ╂╂ з"*2
B$(2)="┿┿ ┿┿┿л┿┿ ╂ ╂┿┿л"*2
B$(3)="┿┿ ┿┿┿ ┿┿ ┿┿┿┿┿ "*2
B$(4)=B$(3)
B$(5)=B$(3)
TCL(0)=14:TCL(1)=2:TCL(2)=0
NBO$="     ┝ ナニカ ホ゛タンヲ オシテクタ゛サイ ┰     "
GM=1:BT=0

'テスト<----------------------
'MD$="STORY":GOSUB @STAGE4
'CPO=4:GOSUB @HAPPY
GOTO @TITLE
INPUT "1〜5";TEST
TEST$="@OPEN"+STR$(TEST)
IF TEST==5 THEN TEST$="@ENDING"
BEEP 42
GOSUB TEST$
END

'┿┿┿┿┿ メインル-チン ┿┿┿┿┿┿┿┿┿┿┿┿

'メインタイトル<------------------
@TITLE
IF BUTTON()!=0 THEN @TITLE
CLS
FOR V=0 TO 127 STEP 2
BEEP 25,0,V,127-V
WAIT 1
NEXT V

BGMPLAY 29
CT=0
@TTLOOP
CTB=24
LOCATE 0,23:COLOR 14:? NBO$;
COLOR TCL(CT)
LOCATE 0,5:GOSUB @ROGO

@TTLOOPB
GOSUB @BILLVIEW
IF BUTTON()!=0 THEN @TTSKIP
WAIT 2
GOSUB @BILLMOVE
CTB=CTB-1
IF CTB>0 THEN @TTLOOPB
CT=CT+1
IF CT<3 THEN @TTLOOP

CLS
CTB=120
@TTDEMO0
COLOR 13
LOCATE 0,5:GOSUB @ROGO
COLOR 14
LOCATE 3,0:?"(C)MAGE/Studio LOVEMARINE"
LOCATE 0,23:COLOR 14:? NBO$;
COLOR 2
GOSUB @BILLVIEW
GOSUB @BILLMOVE
IF BUTTON()!=0 THEN @TTSKIP
WAIT 2
CTB=CTB-1
IF CTB>0 THEN @TTDEMO0

CTB=170
DM1=0
GOSUB @DEMO1
@TTDEMO1
IF DM1==0 THEN CRX=0:CRY=7:GOSUB @CHARA3
IF DM1==22 THEN CRX=8:CRY=10:GOSUB @CHARA1
IF DM1==44 THEN CRX=16:CRY=6:GOSUB @CHARA2
IF DM1==66 THEN CRX=24:CRY=4:GOSUB @CHARA0
IF DM1==68 THEN GOSUB @DEMO1S
IF DM1==90 THEN CRX=0:CRY=7:GOSUB @CHARA3B
IF DM1==112 THEN CRX=8:CRY=10:GOSUB @CHARA1B
IF DM1==134 THEN CRX=16:CRY=6:GOSUB @CHARA2B
IF DM1==156 THEN CRX=24:CRY=4:GOSUB @CHARA0B
IF BUTTON()!=0 THEN @TTSKIP
WAIT 2
CTB=CTB-1
DM1=DM1+1
IF CTB>0 THEN @TTDEMO1

GOSUB @DEMO2
QQ=0
@TTDEMO2B
CTB=355
KDX=1:KDY=0
@TTDEMO2
DM2B$=CHR$(CHKCHR(KDX-1,KDY))
DM2$=CHR$(CHKCHR(KDX,KDY))
COLOR 4
LOCATE KDX-1,KDY:? DM2B$
LOCATE KDX,KDY:? DM2$
IF BUTTON()!=0 THEN @TTSKIP
WAIT 1
COLOR 5
LOCATE KDX-1,KDY:? DM2B$
LOCATE KDX,KDY:? DM2$
KDX=KDX+2:IF KDX>31 THEN KDX=1:KDY=KDY+1
IF KDY>22 THEN KDY=0
CTB=CTB-1
IF CTB>0 THEN @TTDEMO2
QQ=QQ+1
IF QQ<2 THEN @TTDEMO2B

CTB=193:CLS:GOTO @TTDEMO0

@TTSKIP
IF BUTTON()!=0 THEN @TTSKIP

BGMSTOP
BEEP 55
CLS
COLOR 13
LOCATE 0,2:GOSUB @ROGO
COLOR 14
LOCATE 3,0:?"(C)MAGE/Studio LOVEMARINE"
COLOR 9
LOCATE 11,10:?"Аスト-リ-モ-ト゛"
LOCATE 11,12:?"Бフリ-モ-ト゛"
LOCATE 11,14:?"Фエント゛"

COLOR 2
FFF=0
@TTLOOP2
FFF=FFF+1
IF FFF>400 THEN @TITLE
GOSUB @BILLVIEW
BN=BUTTON()
WAIT 2
IF BN==BT THEN @TTBPASS
BT=BN
IF BT==16 THEN BEEP 3:GOSUB @OPFADE:GOTO @STORY
IF BT==32 THEN BEEP 3:GOTO @FREE
IF BT==64 THEN @QUIT
@TTBPASS
GOSUB @BILLMOVE
GOTO @TTLOOP2

'フリ-タイトル<------------------
@FREE
IF BUTTON()!=0 THEN @FREE

CLS
BT=0:CPO=0:MD$="FREE"
COLOR 13
GOSUB @ROGO
COLOR 8
LOCATE 7,8: ?"──┐│ │   ─┬─   │││"
LOCATE 7,9: ?" ┌┘│ │── ─┼─ ──├──"
LOCATE 7,10:?"─┘  ─┘    └─   │"
COLOR 9
COLOR 7:LOCATE 8,13:?"STAGE1「カ゛ッタイ」"
COLOR 9:LOCATE 8,15:?"STAGE2「ユウト゛ウ」"
COLOR 4:LOCATE 8,17:?"STAGE3「カイシ゛ュウ」"
COLOR 12:LOCATE 8,19:?"LAST STAGE「トツニュウ」"
COLOR 0
LOCATE 7,22:?"↑↓センタク Аケッテイ Хモト゛ル"
COLOR 5

@FRWAIT
LOCATE 7,13+(GM-1)*2:?"→"
BN=BUTTON()
WAIT 1
IF BN==BT THEN @FRWAIT
BT=BN
IF BT==128 THEN BT=0:GOTO @TTSKIP
IF BT==16 THEN @FRPASS
LOCATE 7,13+(GM-1)*2:?" "
IF BT==1 THEN GM=GM-1:IF GM<1 THEN GM=4
IF BT==2 THEN GM=GM+1:IF GM>4 THEN GM=1
GOTO @FRWAIT

@FRPASS
CLS:BGMSTOP:BEEP 38
GM2=GM
GOSUB ("@STAGE"+STR$(GM))

IF GAME$=="OVER" THEN GOSUB @GAMEOVER

GOTO @FREE

'スト-リ-モ-ト゛<----------------
@STORY
IF BUTTON()!=0 THEN @STORY
CLS
WAIT 60

GAME$="":GM2=1:CPO=0:MD$="STORY"
@STLOOP

BGMSTOP
BEEP 38:BEEP 42
GOSUB ("@OPEN"+STR$(GM2))
@STGAME
GOSUB ("@STAGE"+STR$(GM2))
IF GAME$=="CLEAR" THEN @STPASS

GOSUB @GAMEOVER
GOTO @TITLE

@STPASS
IF GM2!=4 THEN GOSUB @STAGECLEAR
CLS
BGMSTOP 0,1
WAIT 30
GM2=GM2+1
IF GM2<=4 THEN @STLOOP

CLS
WAIT 60
GOSUB @ENDING
CLS
BGMSTOP 0,2
WAIT 120

GOTO @TITLE

'オワリ<----------------------
@QUIT
COLOR 0,0:CLS
BGMSTOP 0,1
WAIT 30
COLOR 0:LOCATE 0,8
?"     ┌─────────┐  ┝┿┿┿┰    "
?"     │         │  ┸┥┥┥┥    "
?"     │ マ タ ネ ♪ ├ ┝│^ ^│┰   "
?"     │         │ ┸└ ▽ ┘┥   "
?"     └─────────┘  к   л";:COLOR 12:?"フ゜チコ"
COLOR 0

TALK TB$+"マタ'ネ-?"
WAIT 60

END

'┿┿┿┿┿ スト-リ-オ-フ゜ニンク゛ ┿┿┿┿┿┿

'タイトルテ゛モ1<----------------
@DEMO1
DEMO$="@DEMO1"
CLS
COLOR 3:?"       ホ゛ウエイチ-ム 「テ゛ィ-エス」"
COLOR 8:?"     (Defence Specialist)"
COLOR 0:?:?"          メンハ゛- ショウカイ"
LOCATE 0,23:COLOR 14:? NBO$;
RETURN

@DEMO1S
COLOR 0
LOCATE 0,20:?" フ゜チコ    ホ゜ケコ    スハ゜コ    マイコ  "
LOCATE 0,21:?"  タイイン    タイイン    タイイン   タイチョウ"
RETURN

'タイトルテ゛モ2<----------------
@DEMO2
DEMO$="@DEMO2"
COLOR 1
CLS
?"                    │    テ゛ィ-エス":?"  ┝┸ж┥┰   ●Pスワロ-    │     メカニック"
?"  ┿┰ ┝┿             │     ショウカイ":?"  ┥┥┿┸┸   ハ゜イロット:   ├──────────"
?"  ┰┝┿┰┝             │":?"  ┿┸▼┥┿   フ゜チコ タイイン │   ┝жжж┰"
?"────────────────────┤  └┸┥┥┥┥┘":?"    ▲               │  ┝│▽ ▽│┰"
?"    ▲     ●Pクレイン    │  ┸└┬─┬┘┥":?"  △┝│┰△             │  ◎┥┿И┿┸◎"
?"  ┿┿И┿┿   ハ゜イロット:   │ ┝┸()▲()┥┰":?"┥┿┿   ┿┿┸           │ ╂ л┏▲┏к ╂"
?"  ╂┏ ┏╂   スハ゜コ タイイン │ ●  з и  ●":?"  к│ж│л             │   к│ж│л"
?"  ж│ж│ж             │  ┝┿┿┿┿┿┰":?"────────────────────┤  ┷┷┷┷┷┷┷"
?"   ┌─┐    ●Pアウル     │  и─з и─з":?"  ┌┼△┼┐             │  и─з и─з"
?"┝┝┿┿┿┿┿┰┰ ハ゜イロット:   │  и─з и─з":?"┿┿┿┿┿┿┿┿┿           │  ┝┿┰ ┝┿┰"
?"┥┷┷┷┷┷┷┷┸ ホ゜ケコ タイイン │":?" ┝┿┰ ┝┿┰            │ ●フ゜チコロホ゛"
LOCATE 0,23:COLOR 14:? NBO$;
RETURN

'オ-フ゜ニンク゛1<----------------
@OPEN1
COLOR 0:CLS
OPC=7:GOSUB @OPMOVE
'サフ゛タイトル1<----
COLOR 1,7
LOCATE 0,0:?"         PUCHIKO ROBO NO TATAKAI";
LOCATE 0,22:?"PUCHIKO ROBO NO TATAKAI         ";
COLOR 0,0
CRX=24:CRY=4:GOSUB @CHARA0
COLOR 7:LOCATE 22,20:?"マイコ タイチョウ"
COLOR 13:LOCATE 1,5:?"STAGE 1"
COLOR 1,15
LOCATE 1,7:?"┸";" "*19;"┥"
LOCATE 1,8: ?"  ┌──┐        ┌  │   "
LOCATE 1,9: ?" ┌┘  └┐       │──┼── "
LOCATE 1,10:?" ┘────└       ┤ ┌┼┐  "
LOCATE 1,11:?" ┌────┐ ";:COLOR 2:?"カ゛ッタイ";:COLOR 1:?" │ │││  "
LOCATE 1,12:?" │    │       │┌┘│└┐ "
LOCATE 1,13:?" │    │       ││─┼─│ "
LOCATE 1,14:?" └────┘       │┘ │ └ "
LOCATE 1,15:?"┰";" "*19;"┝"
COLOR 0,0
WAIT 30
COLOR 7
LOCATE 26,9:?"○┿○":LOCATE 25,10:?"┿┿┿┿┿"
LOCATE 25,11:?" ┝┿┰ ":LOCATE 25,12:?"┝┿┿┿┰"
GOSUB @BTNWAIT
IF BTW==1024 THEN @OPEND1

'スト-リ-1<----
BGMSTOP
CLS
WAIT 30
BEEP 41
COLOR 0,14:CLS:WAIT 5:COLOR 0,8:CLS:WAIT 5
COLOR 0,13:CLS:WAIT 30:COLOR 0,8:CLS:WAIT 5
COLOR 0,14:CLS:WAIT 5:COLOR 0,0:CLS
WAIT 60
COLOR 2:LOCATE 0,17:?"キチ ホウソウ:";:COLOR 13:?"キンキュウシ゛タイ ハッセイ!"
GOSUB @BTNWAIT
IF BTW==1024 THEN @OPEND1
BGMPLAY 29
COLOR 7
LOCATE 1,1: ?" ┝┿┿┿┰":LOCATE 1,2: ?" ┿┸┥┥┿ ←マイコ"
LOCATE 1,3: ?"┝┿Р Р┿┰":LOCATE 1,4: ?" ┥л・к┸ "
LOCATE 1,5: ?" ┝┿┿И┿┿┿○":LOCATE 1,6: ?"┝┿┿┿┿┸"
LOCATE 1,7: ?"┥┰┥┿┸":LOCATE 1,8: ?" ○┝┿┰"
LOCATE 1,9: ?" ┝┿┿┿┰":LOCATE 1,10:?" ┿┿┿┿┿"
LOCATE 1,11:?" ┿┿┿┿┿":LOCATE 1,12:?"  ╂ ╂"
LOCATE 1,13:?"  ╂ ╂":LOCATE 1,14:?"  ╂ ╂"
LOCATE 1,15:?"  ┿ ┿"
COLOR 7
LOCATE 0,19:?"マイコ「チ-ム・テ゛ィ-エス、シュツト゛ウ ヨ!」"
GOSUB @BTNWAIT
IF BTW==1024 THEN @OPEND1
COLOR 14
FOR I=0 TO 4
LOCATE 14-I,I*3:?"┿":LOCATE 14-I,I*3+1:?"┿":LOCATE 13-I,I*3+2:?"┝┸"
NEXT I
LOCATE 9,15:?"┿"
BEEP 38
COLOR 9:LOCATE 15,2: ?"     スハ゜コ→ ┝┿┰"
COLOR 4:LOCATE 15,3: ?"ホ゜ケコ      ";:COLOR 9:?"┝┸ハ┥┰"
COLOR 4:LOCATE 15,4: ?"↓         ";:COLOR 9:?"●□ж□●"
COLOR 4:LOCATE 15,5: ?" кжжжл    ";:COLOR 9:?"●л-к●"
COLOR 4:LOCATE 15,6: ?"к ллл л   ";:COLOR 9:?"б┥┿┸б"
COLOR 4:LOCATE 15,7: ?"зк┃ ━ли   ";:COLOR 9:?"к ▼Ил"
COLOR 4:LOCATE 15,8: ?"л└ ▽ ┘к   ";:COLOR 9:?" з илл"
COLOR 4:LOCATE 15,9: ?" к┥И┸ ";:COLOR 12:?"┝┿┿┿┰ ";:COLOR 9:?"┿┰л○"
COLOR 4:LOCATE 15,10:?" ○з▼и ";:COLOR 12:?"┸┥┥┥┥"
COLOR 12
LOCATE 20,11:?"┝│・ ・│┰":LOCATE 20,12:?"┸└ ▽ ┘┥"
LOCATE 20,13:?" к┥┿┸л ←フ゜チコ":LOCATE 20,14:?"к( ▼И)л"
LOCATE 20,15:?"○ з и ○"
COLOR 3
LOCATE 0,21:?"チ-ム「リョウカイ!!」"
GOSUB @BTNWAIT
IF BTW==1024 THEN @OPEND1
CLS
BEEP 10

COLOR 12
FOR I=17 TO 2 STEP -1
MCX=13:MCY=I:GOSUB @MCVIEW0
LOCATE MCX,MCY+5:?"     "
WAIT 2
NEXT I
COLOR 12
FOR I=25 TO 13 STEP -1:LOCATE I,8:?"Pスワロ- ":WAIT 1:NEXT I
BEEP 10,,,127
COLOR 12
FOR I=14 TO 4 STEP -1
MCX=21:MCY=I:GOSUB @MCVIEW1
LOCATE MCX,MCY+8:?"         "
WAIT 2
NEXT I
COLOR 9
FOR I=0 TO 22:LOCATE I,13:?" Pクレイン":WAIT 1:NEXT I
BEEP 10,,,0
COLOR 12
FOR I=16 TO 7 STEP -1
MCX=1:MCY=I:GOSUB @MCVIEW2
LOCATE 1,I+6:?"         "
WAIT 2
NEXT I
COLOR 4
FOR I=26 TO 4 STEP -1:LOCATE I,14:?"Pアウル ":WAIT 1:NEXT I
GOSUB @BTNWAIT
IF BTW==1024 THEN @OPEND1
LOCATE 13,8:?"     ":LOCATE 23,13:?"     ":LOCATE 4,14:?"    "
WAIT 30
BEEP 36
COLOR 3
LOCATE 0,18:?"チ-ム「カ゛ッタイ フ゜チコロホ゛!!」"

GOSUB @BTNWAIT
IF BTW==1024 THEN @OPEND1
COLOR 0
LOCATE 0,18:?" "*31
BGMSTOP 0,1
WAIT 120
BEEP 64
COLOR 4
LOCATE 1,6: ?"┌───────┐":LOCATE 1,7: ?"│       │"
LOCATE 1,8: ?"│ кжжжл │":LOCATE 1,9: ?"│к ллл л│"
LOCATE 1,10:?"│зк┃ ━ли│":LOCATE 1,11:?"│┌└ ・ ┘┐│"
LOCATE 1,12:?"│○ж┥И┸ж○│":LOCATE 1,13:?"└───────┘"
LOCATE 0,15:?"ホ゜ケコ「アレ? カ゛ッタイ シマセンヨ?」"
GOSUB @BTNWAIT
IF BTW==1024 THEN @OPEND1
BEEP 60
COLOR 9
LOCATE 21,4: ?"┌───────┐":LOCATE 21,5: ?"│ ┝┸ハ┥┰ │"
LOCATE 21,6: ?"│ ●□ж□● │":LOCATE 21,7: ?"│ ●л^к● │"
LOCATE 21,8: ?"│ б┥┿┸б │":LOCATE 21,9: ?"│┌к ▼Ил┐│"
LOCATE 21,10:?"│○кз ил○│":LOCATE 21,11:?"└───────┘"
LOCATE 0,17:?"スハ゜コ「シ゛ト゛ウ ソウチ カ゛ サト゛ウ シナイソ゛。"
LOCATE 0,18:?"     イッタン キチ ニ ヒキカエスカ?」"
GOSUB @BTNWAIT
IF BTW==1024 THEN @OPEND1
BGMPLAY 29
COLOR 12
LOCATE 11,1: ?"┌───────┐":LOCATE 11,2: ?"│ ┝┿┿┿┰ │"
LOCATE 11,3: ?"│ ┸┥┥┥┥ │":LOCATE 11,4: ?"│┝│・ ・│┰│"
LOCATE 11,5: ?"│┸└ O ┘┥│":LOCATE 11,6: ?"│┌к┥┿┸л┐│"
LOCATE 11,7: ?"│○( ▼И)○│":LOCATE 11,8: ?"└───────┘"
LOCATE 0,20:?"フ゜チコ「シ゛カン カ゛ ナイヨ!"
LOCATE 0,21:?"     シュト゛ウ テ゛ カ゛ッタイ シヨウ!」"
GOSUB @BTNWAIT
@OPEND1
CLS
BGMSTOP 0,1
WAIT 60
RETURN

'オ-フ゜ニンク゛2<----------------
@OPEN2
COLOR 0:CLS
OPC=9:GOSUB @OPMOVE
'サフ゛タイトル2<----
COLOR 1,9
LOCATE 0,0:?"         PUCHIKO ROBO NO TATAKAI";
LOCATE 0,22:?"PUCHIKO ROBO NO TATAKAI         ";
COLOR 0,0
CRX=24:CRY=6:GOSUB @CHARA2
COLOR 9:LOCATE 22,20:?"スハ゜コ タイイン"
COLOR 13:LOCATE 1,5:?"STAGE 2"
COLOR 1,15
LOCATE 1,7:?"┸";" "*19;"┥"
LOCATE 1,8: ?"  ─ ─┬┘       ┐ ┴┬┴─ "
LOCATE 1,9: ?" ── ─┼─       ─┐┌┴─┐ "
LOCATE 1,10:?"  ─ ┌┼┐        ┤├──┤ "
LOCATE 1,11:?"  ─ ┘│└ ";:COLOR 2:?"ユウト゛ウ ";:COLOR 1:?"┌┘├──┤ "
LOCATE 1,12:?" ┌─┐┬┐        ┴─┴──┴ "
LOCATE 1,13:?" │ ││└┐       ────┼─ "
LOCATE 1,14:?" └─┘┘ ┘         ─ ┘  "
LOCATE 1,15:?"┰";" "*19;"┝"
COLOR 0,0
WAIT 30
COLOR 9
LOCATE 25,8:?"○":LOCATE 24,9:?"ии"
LOCATE 24,10:?"и ":LOCATE 25,11:?"л"
LOCATE 24,12:?"  з ик ":LOCATE 24,13:?" к┝┿┰л "
GOSUB @BTNWAIT
IF BTW==1024 THEN @OPEND2
'スト-リ-2<----
BGMSTOP
COLOR 0:CLS
BGMPLAY 27
COLOR 7
LOCATE 0,8: ?"┌───────┐":LOCATE 0,9: ?"│ ┝┿┿┿┰ │"
LOCATE 0,10:?"│ ┿┸┥┥┿ │":LOCATE 0,11:?"│┝┿Р Р┿┰│"
LOCATE 0,12:?"│ ┥л-к┸ │":LOCATE 0,13:?"│ ┝┿┿И┰ │"
LOCATE 0,14:?"│ ┿┿┿┿┿ │":LOCATE 0,15:?"└───────┘"
COLOR 9
LOCATE 10,2: ?"  ┝┿┰":LOCATE 10,3: ?"  з и"
LOCATE 10,4: ?" ┝┿┿┿┰":LOCATE 10,5: ?"  ●●●"
COLOR 3:LOCATE 10,6: ?" к   л      ";:COLOR 8:?"╂╂╂╂"
COLOR 3:LOCATE 10,7: ?"к и к л     ";:COLOR 8:?"╂╂╂╂ ";:COLOR 9:?"М~"
COLOR 3:LOCATE 10,8: ?"  л┿●    ";:COLOR 13:?"┰  ";:COLOR 8:?"╂╂╂╂"
COLOR 3:LOCATE 10,9: ?"    л    ";:COLOR 13:?"┸  ";:COLOR 8:?"╂╂╂╂  ";:COLOR 9:?"М~"
COLOR 8:LOCATE 10,10:?" "*12;"╂╂╂╂"
COLOR 8:LOCATE 10,11:?" "*12;"╂╂╂╂"
COLOR 8:LOCATE 10,12:?" "*12;"╂╂╂ ";:COLOR 2:?"←";:COLOR 14:?"Ш";:COLOR 2:?"=";:COLOR 13:?"*"
COLOR 8:LOCATE 10,13:?" "*12;"╂╂╂╂"
COLOR 7
LOCATE 0,17:?"マイコ「テキ ノ ";:COLOR 9:?"UFO";:COLOR 7:?" カ゛ ";:COLOR 3:?"ヒト";:COLOR 7:?" ヲ サラッテ、"
COLOR 8
LOCATE 0,19:?"    ハ゛クタ゛ン ヲ シカケタ ヒ゛ル";:COLOR 7:?" ニ"
LOCATE 0,21:?"    センフ゜クチュウ ヨ」"
GOSUB @BTNWAIT
IF BTW==1024 THEN @OPEND2
COLOR 12
LOCATE 10,1: ?" "*10;"┝жжж┰":LOCATE 10,2: ?" "*9;"└┸┥┥┥┥┘"
LOCATE 10,3: ?" "*9;"┝│▽ ▽│┰":LOCATE 10,4: ?" "*9;"┸└┬─┬┘┥"
LOCATE 10,5: ?"      ●╂┿◎┥┿И┿┸◎":LOCATE 10,6: ?" "*10;"()▲()┥┰"
LOCATE 10,7: ?" "*20
COLOR 13
LOCATE 10,8: ?"           ┥┸      "
LOCATE 10,9: ?" "*20
COLOR 12
LOCATE 10,10:?" "*10;"┝жжж┰ ":LOCATE 10,11:?" "*9;"└┸┥┥┥┥┘"
LOCATE 10,12:?" "*9;"┝│▽ ▽│┰    ":LOCATE 10,13:?" "*9;"┸└┬─┬┘┥"
LOCATE 10,14:?" ●";:COLOR 10:?"─────";:COLOR 12:?"╂┿◎┥┿И┿┸◎"
LOCATE 10,15:?" "*10;"()▲()┥┰"
COLOR 7
LOCATE 0,17:?"マイコ「タスケルニハ、";:COLOR 12:?"フ゜チコロホ゛";:COLOR 7:?" ノ ソウヒ゛、"
LOCATE 0,19:?"    チョウキョリ ユウト゛ウ カ゛ カノウ ナ、"
LOCATE 0,21:?"    ワイヤ-ト゛ ハ゜ンチ ニヨル キシュウ シカナイワ」"
GOSUB @BTNWAIT
IF BTW==1024 THEN @OPEND2
COLOR 0:CLS
COLOR 8
LOCATE 11,3: ?"╂╂╂╂╂╂╂╂╂╂"
COLOR 12:LOCATE 11,4: ?" ●";:COLOR 11:?"・・・・・OUT"
COLOR 10:LOCATE 11,5: ?" │"
LOCATE 11,6: ?" ┌─";:COLOR 12:?"●";:COLOR 9:?"М";:COLOR 13:?"・・OK "
COLOR 10:LOCATE 11,7: ?" │"
LOCATE 11,8: ?" ┌";:COLOR 12:?"●";:COLOR 3:?"г";:COLOR 11:?"・・・OUT"
COLOR 10:LOCATE 11,9: ?" │"
LOCATE 11,10:?" ┌─┐"
LOCATE 11,11:?" │";:COLOR 12:?"●";:COLOR 10:?"┘";:COLOR 11:?"・・・OUT"
COLOR 10:LOCATE 11,12:?" │"
BGMSTOP
BEEP 55
COLOR 7
LOCATE 0,8: ?"┌───────┐":LOCATE 0,9: ?"│ ┝┿┿┿┰ │"
LOCATE 0,10:?"│ ┿┸┥┥┿ │":LOCATE 0,11:?"│┝┿Р Р┿┰│"
LOCATE 0,12:?"│ ┥л・к┸ │":LOCATE 0,13:?"│ ┝┿┿И┰ │"
LOCATE 0,14:?"│ ┿┿┿┿┿ │":LOCATE 0,15:?"└───────┘"
LOCATE 0,17:?"マイコ「";:COLOR 3:?"ヒト";:COLOR 7:?"ヤ ";:COLOR 8:?"カヘ゛";
COLOR 7:?"ヤ ";:COLOR 10:?"ハ゜ンチノワイヤ-";:COLOR 7:?" ニ アテス゛ニ、"
COLOR 9
LOCATE 0,19:?"    UFO";:COLOR 7:?" タ゛ケヲ ケ゛キタイ シテチョウタ゛イ」"
GOSUB @BTNWAIT
IF BTW==1024 THEN @OPEND2
BEEP 38
COLOR 12
LOCATE 0,0:?"┌───────┐":LOCATE 0,1:?"│ ┝┿┿┿┰ │"
LOCATE 0,2:?"│ ┸┥┥┥┥ │":LOCATE 0,3:?"│┝│・ ・│┰│"
LOCATE 0,4:?"│┸└ ▽ ┘┥│":LOCATE 0,5:?"│┌к┥┿┸л┐│"
LOCATE 0,6:?"│○( ▼И)○│":LOCATE 0,7:?"└───────┘"
COLOR 9
LOCATE 23,0:?"┌───────┐":LOCATE 23,1:?"│ ┝┸ハ┥┰ │"
LOCATE 23,2:?"│ ●□ж□● │":LOCATE 23,3:?"│ ●л-к● │"
LOCATE 23,4:?"│ б┥┿┸б │":LOCATE 23,5:?"│┌к ▼Ил┐│"
LOCATE 23,6:?"│○кз ил○│":LOCATE 23,7:?"└───────┘"
COLOR 4
LOCATE 23,8:?"┌───────┐":LOCATE 23,9:?"│       │"
LOCATE 23,10:?"│ кжжжл │":LOCATE 23,11:?"│к ллл л│"
LOCATE 23,12:?"│зк┃ ━ли│":LOCATE 23,13:?"│┌└ ▽ ┘┐│"
LOCATE 23,14:?"│○ж┥И┸ж○│":LOCATE 23,15:?"└───────┘"
COLOR 3
LOCATE 0,21:?"チ-ム「リョウカイ!!」"
GOSUB @BTNWAIT
@OPEND2
CLS
BGMSTOP 0,1
WAIT 60
RETURN

'オ-フ゜ニンク゛3<----------------
@OPEN3
COLOR 0:CLS
OPC=4:GOSUB @OPMOVE
'サフ゛タイトル3<----
COLOR 1,4
LOCATE 0,0:?"         PUCHIKO ROBO NO TATAKAI";
LOCATE 0,22:?"PUCHIKO ROBO NO TATAKAI         ";
COLOR 0,0
CRX=24:CRY=10:GOSUB @CHARA1
COLOR 4:LOCATE 22,20:?"ホ゜ケコ タイイン"
COLOR 13:LOCATE 1,5:?"STAGE 3"
COLOR 1,15
LOCATE 1,7:?"┸";" "*19;"┥"
LOCATE 1,8: ?"  │ ──┐       ┐┐│ │┐ "
LOCATE 1,9: ?" │││ ┐│       ┌┬┐─┼─ "
LOCATE 1,10:?" │││┌┼┘       ├┼┤ │  "
LOCATE 1,11:?"  │ ┘└─ ";:COLOR 2:?"カイシ゛ュウ";:COLOR 1:?"└┴┘┌┴┐ "
LOCATE 1,12:?"  │ ─┼─       ───│ │ "
LOCATE 1,13:?"  │  │        ┌─┐│ │ "
LOCATE 1,14:?"  │ ─┴─       └─┘┘ └ "
LOCATE 1,15:?"┰";" "*19;"┝"
COLOR 0,0
WAIT 30
COLOR 4
LOCATE 26,12:?"┷ ┷":LOCATE 24,13:?"○└ ▽ ┘○"
LOCATE 25,14:?"л┥И┸к":LOCATE 25,15:?" з▼и "
LOCATE 28,17:?"┥╂"
LOCATE 28,18:?" "
GOSUB @BTNWAIT
IF BTW==1024 THEN @OPEND3
'スト-リ-3<----
BGMSTOP
COLOR 0:CLS
BEEP 44,-8100,127
COLOR 5
?:?" "*17;"┰┝┿┰┝":?" "*16;"┰┿┿┿┥┿"
?" "*15;"┝┿┿┿┿┿┿┿":?" "*15;"┝┿┿┿┿┗┗┃"
?" "*13;"┰ ┝┿┿┿┿┿┸":?" "*12;"┝┿┿┿┿┿┿┸"
?" "*12;"┝┿┿┿┿┿┿  ┝┰":?" "*11;"┰ ┝┿┿┿┿┿┿┿┸┥"
?" "*10;"┝┿┿┿┿┿┿┿┿ ┝┰":?" "*10;"┝┿┿┿┿┿┿┿┿┿┸┥"
?" "*9;"┰┝┿┿┿┿┿┿┿┿":?" "*8;"┝┿┿┿┿┿┿┿┿┿┸"
COLOR 2
LOCATE 0,13:?"┿┿л ╂╂л";:COLOR 5:?"┝┿┿";:COLOR 2:?"╂";
COLOR 5:?"┥┿";:COLOR 2:?"╂";:COLOR 5:?"┥┿┿┿┰";:COLOR 2:?" ╂╂л   ╂л ╂л"
LOCATE 0,14:?"┿┿ з╂╂ ┿┿";:COLOR 5:?"┥";:COLOR 2:?"╂ ╂╂ ";
COLOR 5:?"┿";:COLOR 2:?"┿┿";:COLOR 5:?"┥";:COLOR 2:?" ╂╂ ┿┿л╂ ╂╂ з";
LOCATE 0,15:?"┿┿ ┿┿┿л┿┿ ╂ ╂┿┿";:COLOR 5:?"┥";:COLOR 2:?"┿┿ ┿┿┿л┿┿ ╂ ╂┿┿л";
WAIT 60
BX=25:BY=13:GOSUB @S3BOMB
GOSUB @BTNWAIT
IF BTW==1024 THEN @OPEND3
BGMPLAY 25
COLOR 12
LOCATE 0,0:?"┌───────┐":LOCATE 0,1:?"│ ┝┿┿┿┰ │"
LOCATE 0,2:?"│ ┸┥┥┥┥ │":LOCATE 0,3:?"│┝│・ ・│┰│"
LOCATE 0,4:?"│┸└ o ┘┥│":LOCATE 0,5:?"│┌к┥┿┸л┐│"
LOCATE 0,6:?"│○( ▼И)○│":LOCATE 0,7:?"└───────┘"
LOCATE 0,17:?"フ゜チコ「ワ! ";:COLOR 5:?"カ、カイシ゛ュウ";:COLOR 12:?" シュツケ゛ン!」"
GOSUB @BTNWAIT
IF BTW==1024 THEN @OPEND3
COLOR 9
LOCATE 23,0:?"┌───────┐":LOCATE 23,1:?"│ ┝┸ハ┥┰ │"
LOCATE 23,2:?"│ ●□ж□● │":LOCATE 23,3:?"│ ●л`к● │"
LOCATE 23,4:?"│ б┥┿┸б │":LOCATE 23,5:?"│┌к ▼Ил┐│"
LOCATE 23,6:?"│○кз ил○│":LOCATE 23,7:?"└───────┘"
LOCATE 0,19:?"スハ゜コ「・・イヤ。アレハ、ロホ゛ット タ゛ナ」"
GOSUB @BTNWAIT
IF BTW==1024 THEN @OPEND3
COLOR 4
LOCATE 23,8:?"┌───────┐":LOCATE 23,9:?"│       │"
LOCATE 23,10:?"│ кжжжл │":LOCATE 23,11:?"│к ллл л│"
LOCATE 23,12:?"│зк┃ ━ли│":LOCATE 23,13:?"│┌└ ▽ ┘┐│"
LOCATE 23,14:?"│○ж┥И┸ж○│":LOCATE 23,15:?"└───────┘"
LOCATE 0,21:?"ホ゜ケコ「シ゛ャア、";:COLOR 5:?"ロホ゛ット カイシ゛ュウ";:COLOR 4:?" テ゛スネ?」"
GOSUB @BTNWAIT
IF BTW==1024 THEN @OPEND3
BEEP 55
COLOR 7
LOCATE 0,8: ?"┌───────┐":LOCATE 0,9: ?"│ ┝┿┿┿┰ │"
LOCATE 0,10:?"│ ┿┸┥┥┿ │":LOCATE 0,11:?"│┝┿Р Р┿┰│"
LOCATE 0,12:?"│ ┥л・к┸ │":LOCATE 0,13:?"│ ┝┿┿И┰ │"
LOCATE 0,14:?"│ ┿┿┿┿┿ │":LOCATE 0,15:?"└───────┘"
LOCATE 0,17:?" "*32;:LOCATE 0,19:?" "*32;
LOCATE 0,21:?" "*32;
LOCATE 0,17:?"マイコ「スキャン ハ、 UFOト オナシ゛ハンノウ タ゛ッタワ。"
LOCATE 0,19:?"    コウショウ ハ フノウ。 ケ゛キタイ シテチョウタ゛イ」"
GOSUB @BTNWAIT
IF BTW==1024 THEN @OPEND3
BEEP 38
COLOR 12:LOCATE 4,4:?"-"
COLOR 9:LOCATE 27,3:?"-"
COLOR 3
LOCATE 0,21:?"チ-ム「リョウカイ!!」"
GOSUB @BTNWAIT
@OPEND3
CLS
BGMSTOP 0,1
WAIT 60
RETURN

'オ-フ゜ニンク゛4<----------------
@OPEN4
COLOR 0:CLS
OPC=12:GOSUB @OPMOVE
'サフ゛タイトル4<----
COLOR 1,12
LOCATE 0,0:?"         PUCHIKO ROBO NO TATAKAI";
LOCATE 0,22:?"PUCHIKO ROBO NO TATAKAI         ";
COLOR 0,0
CRX=24:CRY=7:GOSUB @CHARA3
COLOR 12:LOCATE 22,20:?"フ゜チコ タイイン"
COLOR 13:LOCATE 1,5:?"LAST STAGE"
COLOR 1,15
LOCATE 1,7:?"┸";" "*19;"┥"
LOCATE 1,8: ?" ┌┬┴┬─┐        ─┐    "
LOCATE 1,9: ?" ││ │ │         │    "
LOCATE 1,10:?"  ┘ └┘         ┌┴┐   "
LOCATE 1,11:?" ──┼─── ";:COLOR 2:?"トツニュウ";:COLOR 1:?"  │ │   "
LOCATE 1,12:?"  ┌┴┐          │ └┐  "
LOCATE 1,13:?" ┌┘ └┐        ┌┘  └┐ "
LOCATE 1,14:?" ┘   └─       ┘    └ "
LOCATE 1,15:?"┰";" "*19;"┝"
COLOR 0,0
WAIT 30
COLOR 12
LOCATE 26,9:?"^ ^":LOCATE 26,10:?"///"
LOCATE 24,11:?"○к┥┿┸л○":LOCATE 24,12:?"л( ▼И)к"
LOCATE 24,13:?"  з и  "
GOSUB @BTNWAIT
IF BTW==1024 THEN @OPEND4
'スト-リ-4<----
BGMSTOP
COLOR 12:CLS
LOCATE 0,9: ?" "*14;"┝жжж┰":LOCATE 0,10:?" "*13;"└┸┥┥┥┥┘"
LOCATE 0,11:?" "*13;"┝│▽ ▽│┰":LOCATE 0,12:?" "*13;"┸└┬─┬┘┥"
LOCATE 0,13:?" "*13;"◎┥┿И┿┸◎":LOCATE 0,14:?" "*12;"┝┸()▲()┥┰"
COLOR 2
LOCATE 0,15:?"┿┿л ╂╂л   ╂л ╂л ┿┿л ╂╂л   ╂л ╂л"
WAIT 60
BX=9:BY=5:GOSUB @S3BOMB
BX=23:BY=10:GOSUB @S3BOMB
COLOR 0
WAIT 60
BEEP 55
COLOR 7
LOCATE 0,0:?"┌───────┐":LOCATE 0,1:?"│ ┝┿┿┿┰ │"
LOCATE 0,2:?"│ ┿┸┥┥┿ │":LOCATE 0,3:?"│┝┿Р Р┿┰│"
LOCATE 0,4:?"│ ┥л^к┸ │":LOCATE 0,5:?"│ ┝┿┿И┰ │"
LOCATE 0,6:?"│ ┿┿┿┿┿ │":LOCATE 0,7:?"└───────┘"
LOCATE 0,19:?"マイコ「! ";:COLOR 10:?"テキ キョタ゛イホ゛カン";:COLOR 7:?" セッキン!」"
GOSUB @BTNWAIT
IF BTW==1024 THEN @OPEND4
FOR I=0 TO 7
LOCATE 0,I:?" "*9
NEXT I
LOCATE 0,19:?" "*31
FOR Q=0 TO 90
IF Q%10!=0 THEN BEEP 1
WAIT 1:NEXT Q
COLOR 10
LOCATE 0,0:?"┿"*32;
FOR Q=0 TO 30
IF Q%10!=0 THEN BEEP 1
WAIT 1:NEXT Q
FOR I=0 TO 3
LOCATE I,I+1:?"┥";"┿"*(30-I*2);"┸";
FOR Q=0 TO 30
IF Q%10!=0 THEN BEEP 1
WAIT 1:NEXT Q
NEXT I
BGMPLAY 29
BX=23:BY=7:GOSUB @S3BOMB
BX=9:BY=10:GOSUB @S3BOMB
GOSUB @BTNWAIT
IF BTW==1024 THEN @OPEND4
COLOR 9
LOCATE 0,6: ?"┌───────┐":LOCATE 0,7: ?"│ ┝┸ハ┥┰ │"
LOCATE 0,8: ?"│ ●□ж□● │":LOCATE 0,9: ?"│ ●л^к● │"
LOCATE 0,10:?"│ б┥┿┸б │":LOCATE 0,11:?"│┌к ▼Ил┐│"
LOCATE 0,12:?"│○кз ил○│":LOCATE 0,13:?"└───────┘"
LOCATE 0,17:?"スハ゜コ「モウ、 ロホ゛ ノ エネルキ゛-カ゛ ナイソ゛!」"
GOSUB @BTNWAIT
IF BTW==1024 THEN @OPEND4
COLOR 4
LOCATE 23,6: ?"┌───────┐":LOCATE 23,7: ?"│       │"
LOCATE 23,8: ?"│ кжжжл │":LOCATE 23,9: ?"│к ллл л│"
LOCATE 23,10:?"│зкX Xли│":LOCATE 23,11:?"│┌└ △ ┘┐│"
LOCATE 23,12:?"│○ж┥И┸ж○│":LOCATE 23,13:?"└───────┘"
LOCATE 0,19:?"ホ゜ケコ「タ゛メ-! ウコ゛ケマセ-ン!」"
GOSUB @BTNWAIT
IF BTW==1024 THEN @OPEND4
BGMSTOP
FOR I=6 TO 13
LOCATE 23,I:?" "*9
NEXT I
LOCATE 0,17:?" "*32:LOCATE 0,19:?" "*32
COLOR 12
LOCATE 0,6: ?"┌───────┐":LOCATE 0,7: ?"│ ┝┿┿┿┰ │"
LOCATE 0,8: ?"│ ┸┥┥┥┥ │":LOCATE 0,9: ?"│┝│・ ・│┰│"
LOCATE 0,10:?"│┸└ ^ ┘┥│":LOCATE 0,11:?"│┌к┥┿┸л┐│"
LOCATE 0,12:?"│○( ▼И)○│":LOCATE 0,13:?"└───────┘"
WAIT 60
LOCATE 0,17:?"フ゜チコ「・・・Pスワロ- タ゛ケナラ ウコ゛ケルヨ!」"
GOSUB @BTNWAIT
IF BTW==1024 THEN @OPEND4
COLOR 4
LOCATE 23,6: ?"┌───────┐":LOCATE 23,7: ?"│       │"
LOCATE 23,8: ?"│ кжжжл │":LOCATE 23,9: ?"│к ллл л│"
LOCATE 23,10:?"│зк┃ ━ли│":LOCATE 23,11:?"│┌└   ┘┐│"
LOCATE 23,12:?"│○ж┥И┸ж○│":LOCATE 23,13:?"└───────┘"
LOCATE 0,19:?"ホ゜ケコ「ト゛ユコト?」"
GOSUB @BTNWAIT
IF BTW==1024 THEN @OPEND4
COLOR 9
LOCATE 0,6: ?"┌───────┐":LOCATE 0,7: ?"│  ┝┿┰  │"
LOCATE 0,8: ?"│б┝┸ハ┥┰б│":LOCATE 0,9: ?"│●●□ж□●●│"
LOCATE 0,10:?"│  лOк  │":LOCATE 0,11:?"│┌к ▼Ил┐│"
LOCATE 0,12:?"│○кз ил○│":LOCATE 0,13:?"└───────┘"
LOCATE 0,21:?"スハ゜コ「マサカ・・・、ヨセ! フ゜チコ!」"
GOSUB @BTNWAIT
IF BTW==1024 THEN @OPEND4
CLS
COLOR 10
?"┿"*32;:?"┥";"┿"*30;"┸";:?" ┥";"┿"*28;"┸ ";
?"  ┥";"┿"*26;"┸  ";:?"   ┥";"┿"*24;"┸   ";
COLOR 12
LOCATE 0,14:?" "*12;"┝┸()▲()┥┰";" "*11
COLOR 2
LOCATE 0,15:?"┿┿л ╂╂л   ╂л ╂л ┿┿л ╂╂л   ╂л ╂л "
COLOR 12
LOCATE 12,6: ?"┌───────┐":LOCATE 12,7: ?"│ ┝┿┿┿┰ │"
LOCATE 12,8: ?"│ ┸┥┥┥┥ │":LOCATE 12,9: ?"│┝│・ ・;┰│"
LOCATE 12,10:?"│┸└ ▽ ┘┥│":LOCATE 12,11:?"│┌к┥┿┸л┐│"
LOCATE 12,12:?"│○( ▼И)○│":LOCATE 12,13:?"└───────┘"
LOCATE 0,19:?"フ゜チコ「スハ゜コ、コ゛メン。ホ゜ケコ、ケ゛ンキ テ゛ネ」"
GOSUB @BTNWAIT
IF BTW==1024 THEN @OPEND4
COLOR 12
LOCATE 12,6: ?"┌───────┐":LOCATE 12,7: ?"│ ┝┿┿┿┰ │"
LOCATE 12,8: ?"│ ┸┥┥┥┥ │":LOCATE 12,9: ?"│┝△・ ・│┰│"
LOCATE 12,10:?"│кк ^ ┘┥│":LOCATE 12,11:?"│┌ж┥┿┸л┐│"
LOCATE 12,12:?"││( ▼И)○│":LOCATE 12,13:?"└───────┘"
LOCATE 0,19:?"フ゜チコ「タイチョウ! Pスワロ-、コレヨリ       "
COLOR 10
LOCATE 0,20:?"     テキ ホ゛カン";:COLOR 12:?" ヘ トツニュウ シマス!」"
GOSUB @BTNWAIT
IF BTW==1024 THEN @OPEND4
CLS
COLOR 10
?"┿"*32;:?"┥";"┿"*30;"┸";:?" ┥";"┿"*28;"┸ ";
?"  ┥";"┿"*26;"┸  ";:?"   ┥";"┿"*24;"┸   ";
COLOR 12
LOCATE 0,6:?" "*31:LOCATE 0,7:?" "*31:LOCATE 0,8:?" "*31
LOCATE 0,9: ?" "*14;"┝жжж┰";" "*13:LOCATE 0,10:?" "*13;"└┸┥┥┥┥┘";" "*12"
LOCATE 0,11:?" "*13;"┝│▽ ▽│┰";" "*12:LOCATE 0,12:?" "*13;"┸└┬─┬┘┥";" "*12
LOCATE 0,13:?" "*13;"◎┥┿И┿┸◎";" "*12:LOCATE 0,14:?" "*12;"┝┸()▲()┥┰";" "*11
COLOR 2
LOCATE 0,15:?"┿┿л ╂╂л   ╂л ╂л ┿┿л ╂╂л   ╂л ╂л "
WAIT 60
BEEP 36
COLOR 12
LOCATE 13,8: ?" ┝жжж┰ ":LOCATE 13,9: ?"└┸┥┥┥┥┘"
LOCATE 13,10:?"┝│▽ ▽│┰":LOCATE 13,11:?"┸└┬─┬┘┥"
LOCATE 13,12:?"  └─┘  "
WAIT 10
LOCATE 13,8: ?" ┝жжж┰ ":LOCATE 13,9: ?" ┿┿┿┿┿ "
LOCATE 13,10:?"┝│▼▼▼│┰":LOCATE 13,11:?" ┥┿┿┿┸ "
LOCATE 13,12:?"┝┿└─┘┿┰"
WAIT 10

LOCATE 13,7: ?" ┝┸ж┥┰ ":LOCATE 13,8: ?" ┿┰ ┝┿ "
LOCATE 13,9: ?" ┥┥┿┸┸ ":LOCATE 13,10:?" ┰┝┿┰┝ "
LOCATE 13,11:?" ┿┸▼┥┿ ":LOCATE 13,12:?"       "
WAIT 60
LOCATE 13,7: ?"       ":LOCATE 13,8: ?"       "
LOCATE 13,9: ?"  ┝ж┰  ":LOCATE 13,10:?"  ┥┿┸  "
LOCATE 13,11:?"  ├б┤  "
WAIT 10
LOCATE 15,9: ?"   ":LOCATE 15,10:?"   ":LOCATE 15,11:?" Г "
WAIT 30
BEEP 10
FOR I=11 TO 5 STEP -1
COLOR 12:LOCATE 16,I: ?"Г"
WAIT 3
COLOR 10:LOCATE 16,I: ?" "
NEXT I
GOSUB @BTNWAIT
IF BTW==1024 THEN @OPEND4
CLS
BEEP 55
COLOR 9
LOCATE 8,3:?"б ┝┿┰ б":LOCATE 8,4:?"●┝┸ハ┥┰●"
LOCATE 8,5:?" ●□ж□● ":LOCATE 8,6:?"  лOк  "
LOCATE 8,7:?"  ┥┿┸  "
COLOR 4
LOCATE 20,5:?" кжжжл ":LOCATE 20,6:?"к ллл л"
LOCATE 20,7:?"зк┬ ┬ли":LOCATE 20,8:?"л└ △ ┘к"
LOCATE 20,9:?" к┥И┸л "
COLOR 7
LOCATE 13,14:?" ┝┿┿┿┰ ":LOCATE 13,15:?" ┿┸┥┥┿ "
LOCATE 13,16:?"┝┿> <┿┰":LOCATE 13,17:?" ┥лOк┸ "
LOCATE 13,18:?" ┝┿┿И┰ "
COLOR 3
LOCATE 10,11:?"「フ゜チコォ----!!」"
WAIT 7:BEEP 55
GOSUB @BTNWAIT
@OPEND4
CLS
BGMSTOP 0,1
WAIT 60
RETURN

'エンテ゛ィンク゛<----------------
@ENDING
COLOR 0:CLS
BGMPLAY 0,20,0
WAIT 30
FOR V=1 TO 127
BGMVOL 0,V
WAIT 2
NEXT V
COLOR 2:LOCATE 5,2:?"┌";"─"*19;"┐"
COLOR 2:LOCATE 5,3:?"│┌";"─"*17;"┐│"
COLOR 2:LOCATE 5,4:?"││";" "*17;"││"
COLOR 2:LOCATE 5,5:?"││";:COLOR 10:?"          ";:COLOR 13:?"┗      ";:COLOR 2:?"││"
COLOR 2:LOCATE 5,6:?"││";:COLOR 10:?"  ┝┿┿┰";:COLOR 13:?"л┥  ┳      ";:COLOR 2:?"││"
COLOR 2:LOCATE 5,7:?"││";:COLOR 10:?"  ┿┿┿━     ";:COLOR 13:?"к     ";:COLOR 2:?"││"
COLOR 2:LOCATE 5,8:?"││";:COLOR 10:?"  ┿┿━ ┫";:COLOR 13:?"     ┝ ";:COLOR 10:?"┥┰ ";:COLOR 2:?"││"
COLOR 2:LOCATE 5,9:?"││";:COLOR 10:?"  ┥┿━         ┿┿ ";:COLOR 2:?"││"
COLOR 2:LOCATE 5,10:?"││";:COLOR 10:?"   ┥ ";:COLOR 13:?"┸      ";:COLOR 10:?"┫┝┿┿ ";:COLOR 2:?"││"
COLOR 2:LOCATE 5,11:?"││";:COLOR 13:?"     к  ┳  ";:COLOR 10:?"━┝┿┿┸ ";:COLOR 2:?"││"
COLOR 2:LOCATE 5,12:?"││";:COLOR 13:?"      ┗  ┰ л     ";:COLOR 2:?"││"
COLOR 2:LOCATE 5,13:?"││";" "*17;"││"
COLOR 2:LOCATE 5,14:?"│└";"─"*17;"┘│"
COLOR 2:LOCATE 1,15:?"────┴";"─"*19;"┴────";
COLOR 0
COLOR 2:LOCATE 0,17:?"キチ ホウソウ:";:COLOR 10:?"テキ キョタ゛イホ゛カン";:COLOR 0:?" コ゛ウチン!"
GOSUB @BTNWAIT
FOR I=2 TO 15:
LOCATE 0,I:?" "*31;
NEXT I
LOCATE 0,4
COLOR 7:?" "*16;"┝┿┿┿┰    "
COLOR 7:?" "*16;"┿┸┥┥┿    "
COLOR 7:?" "*15;"┝┿Р Р┿┰  ";:COLOR 9:?"┝┿┰"
COLOR 7:?" "*16;"┥л-к┸  ";:COLOR 9:?"┝┸ハ┥┰"
COLOR 7:?" "*16;"┝┿┿И┰  ";:COLOR 9:?"●□ж□●"
COLOR 2:?"        ┌───────┐";:COLOR 7:?"┿┿┿┿  ";:COLOR 9:?"●л^;●"
COLOR 4:?"   кжжжл";:COLOR 2:?"│MONITOR│";:COLOR 7:?"┥┿┸┿ ";:COLOR 9:?" б┥┿┸б"
COLOR 4:?"  к ллл ";:COLOR 2:?"│       │";:COLOR 7:?"┝┿┰┿  ";:COLOR 9:?"к ▼Ил"
COLOR 4:?"  зк┃ ━л";:COLOR 2:?"│       │";:COLOR 7:?"┿┿┿○ ";:COLOR 9:?"ккз илл"
COLOR 4:?"  ○└ - ┘";:COLOR 2:?"│       │";:COLOR 7:?"┿┿┿┿ ";:COLOR 9:?"○к┝┿┰л○"
COLOR 2:?"─";"───────┴"*2;"─"*14
COLOR 3
LOCATE 0,20:?"「";
FOR I=0 TO 20
?"・";
WAIT 5
NEXT I
?"」"
GOSUB @BTNWAIT
@HAPPY
CLS
FOR V=127 TO 0 STEP -8
BGMVOL 0,V
WAIT 1
NEXT V
BGMSTOP
WAIT 30
BGMPLAY 13
COLOR 12
LOCATE 2,11:?"フ゜チコ「チ-ム・テ゛ィ-エス、ニンム カンリョウ!」"
GOSUB @BTNWAIT
CLS
LOCATE 0,4
COLOR 7:?" "*16;"┝┿┿┿┰"
COLOR 7:?" "*16;"┿┸┥┥┿"
COLOR 7:?" "*15;"┝┿Р Р┿┰   ";:COLOR 9:?"┝┿┿┰"
COLOR 7:?" "*16;"┥л▽к┸    ";:COLOR 9:?"┿┸ハ┥"
COLOR 7:?" "*16;"┝┿┿И┰    ";:COLOR 9:?"●□ж□"
COLOR 2:?"        ";:COLOR 2:?"┌───────┐";:COLOR 7:?"○○┿┿  ";:COLOR 9:?"б● л^к"
COLOR 4:?"   кжжжл";:COLOR 2:?"│MONITOR│";:COLOR 7:?"┿┿┿┸  ";:COLOR 9:?" к┥┿┸б"
COLOR 4:?"  к ллл ";:COLOR 2:?"│       │";:COLOR 7:?"┝┿┰   ";:COLOR 9:?"к з▼И л"
COLOR 4:?"  зк┷ ┷л";:COLOR 2:?"│       │";:COLOR 7:?"┿┿┿┰  ";:COLOR 9:?"л○з и○к"
COLOR 4:?"  ○└ ▽ ┘";:COLOR 2:?"│       │";:COLOR 7:?"┿┿┿┿  ";:COLOR 9:?" к┝┿┰л"
COLOR 2:?"─";"───────┴"*2;"─"*14
COLOR 4
LOCATE 0,17:?"ホ゜ケコ「フ゜チコォ---а」"
GOSUB @BTNWAIT
COLOR 7
LOCATE 0,19:?"マイコ「リョ、リョウカイ! エット、タ、タタ゛チニ・・・」"
GOSUB @BTNWAIT
COLOR 4
LOCATE 4,11:?" ллл"
LOCATE 3,12:?" к┷ │"
LOCATE 3,13:?" └ ▽┘"
COLOR 7
LOCATE 17,6:?"◎ ◎"
LOCATE 18,7:?" "
COLOR 9
LOCATE 26,8:?"///"
LOCATE 27,9:?"O"
LOCATE 0,21:?"スハ゜コ「トットト カエッテコイ!! ハ゛カフ゜チコ!!」"
GOSUB @BTNWAIT
CLS
COLOR 12
LOCATE 9,3: ?"л             к":LOCATE 9,4: ?" л   ┝┿┿┿┰   к"
LOCATE 9,5: ?"  л  ┸┥┥┥┥  к":LOCATE 9,6: ?"   ┝┿△^ ^│┰"
LOCATE 9,7: ?"    кк ▽ ┘┥":LOCATE 9,8: ?"    ┌ж┥┿┸л┐
LOCATE 9,9: ?"    │( ▼И)○":LOCATE 9,10:?"  к └──◎──┘ л"
LOCATE 9,11:?" к┝┿┿┿┿┿┿┿┿┿┰л":LOCATE 9,12:?"к ┿┿┿┿┿┿┿┿┿┿┿ л"
LOCATE 0,17:?"フ゜チコ「アハハ、リョ〜カイ♪」"
GOSUB @BTNWAIT
COLOR 12
LOCATE 9,6: ?"    ┝│・ ・"
LOCATE 9,7: ?"    ┸└ v"
LOCATE 9,8: ?"    ┌к"
LOCATE 9,9: ?"    ○"
LOCATE 0,17:?" "*16
WAIT 40
CLS
COLOR 12
LOCATE 14,6:?"┝┸ж┥┰":LOCATE 14,7:?"╂┰к┝┿"
LOCATE 14,8:?"┥┥┿┸┸":LOCATE 14,9:?"┯┝┿┰┝"
LOCATE 14,10:?"┿┸▼┥╂"
WAIT 30
LOCATE 14,6:?"     ":LOCATE 14,7:?"     "
LOCATE 14,8:?"     ":LOCATE 14,9:?" ┝ж┰ "
LOCATE 14,10:?" ┥┿┸ ":LOCATE 14,11:?" ├б┤ "
WAIT 30
LOCATE 15,8:?"   ":LOCATE 15,9:?"   "
LOCATE 15,10:?"   ":LOCATE 15,11:?"   "
LOCATE 16,12:?"Г"
WAIT 30
BEEP 10
FOR I=12 TO 0 STEP -1
LOCATE 16,I:?"Г"
WAIT 3
LOCATE 16,I:?" "
NEXT I
CLS
WAIT 120
COLOR 14:GOSUB @THEEND:WAIT 20
COLOR 13:GOSUB @THEEND:WAIT 20
COLOR 7:GOSUB @THEEND:WAIT 20
COLOR 3:GOSUB @THEEND:WAIT 60
WAIT 60
COLOR 7:GOSUB @THEEND:WAIT 5
COLOR 13:GOSUB @THEEND:WAIT 5
COLOR 14:GOSUB @THEEND:WAIT 5
CLS
WAIT 30
IF CPO==4 THEN EC$="S":EMSG$="レンソ゛ク クリア オメテ゛トウ" ELSE EC$="":EMSG$="マタ ミテ ネ-"
CRX=13:CRY=6:GOSUB ("@CHARA0"+EC$)
CRX=13:CRY=12:GOSUB ("@CHARA1"+EC$)
CRX=20:CRY=8:GOSUB ("@CHARA2"+EC$)
CRX=6:CRY=9:GOSUB ("@CHARA3"+EC$)
COLOR 7:LOCATE 14,12:?"○";:COLOR 4:?"жжж";:COLOR 7:?"○"
LOCATE 16-FLOOR(LEN(EMSG$)/2),3:COLOR 3:? EMSG$;:COLOR 12:?"а"
GOSUB @BTNWAIT
CLS
BGMSTOP 0,1
WAIT 60
RETURN

@THEEND
LOCATE 7,5: ?"┿┿┿┿┿л┿л  ┿л┿┿┿┿┿л"
LOCATE 7,6: ?"л ┿л л┿   ┿ ┿л   л"
LOCATE 7,7: ?"  ┿   ┿┿┿┿┿ ┿┿┿┿┿л"
LOCATE 7,8: ?"  ┿   ┿л  ┿ ┿л   л"
LOCATE 7,9: ?"  ┿   ┿   ┿ ┿┿┿┿┿л"
LOCATE 7,10:?"  лл  лл  ллл    л"
LOCATE 7,11:?"┿┿┿┿┿л┿┰  ┿л┿┿┿┿┰ "
LOCATE 7,12:?"┿л   л┿┿┰ ┿ ┿л  ┿л"
LOCATE 7,13:?"┿┿┿┿┿л┿┥┿┰┿ ┿   ┿ "
LOCATE 7,14:?"┿л   л┿ ┥┿┿ ┿   ┿ "
LOCATE 7,15:?"┿┿┿┿┿л┿  ┥┿ ┿┿┿┿┸л"
LOCATE 7,16:?"л    ллл  ллл   л "
RETURN


'┿┿┿┿┿ ケ゛-ム ┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿

'ステ-シ゛1<-------------------
'--------------------------
@STAGE1
CLS
GOSUB @GUIDE
GOSUB @BTNWAIT

@S1MAIN
CLS
DM=3
TALK TB$+"カ゛ッタイ!"
CPO=CPO+1
WAIT 60
@S1WAIT
IF BUTTON()!=0 THEN @S1WAIT
CT=10
BGMPLAY 25

@S1LOOP
X1=RND(5)*2+7:X2=RND(5)*2+7:X3=RND(5)*2+7
IF CT==0 THEN X2=X1:X3=X1
IF X1==X2 AND X1==X3 THEN COLOR 3:WT=15:CT=10 ELSE COLOR 12:WT=5:CT=CT-1
CLS
MCX=X1+2:MCY=1:GOSUB @MCVIEW0
MCX=X2:MCY=7:GOSUB @MCVIEW1
MCX=X3:MCY=16:GOSUB @MCVIEW2
FOR W=0 TO WT
BT=BUTTON()
IF BT==16 THEN W=WT
WAIT 1
NEXT W
IF BT==16 THEN @S1NEXT
GOTO @S1LOOP

@S1NEXT
BEEP 12
COLOR 12
LOCATE X1+1,1:?" ┝жжж┰":LOCATE X1+1,2:?" ┿┿┿┿┿"
LOCATE X1+1,3:?"┝│▼▼▼│┰":LOCATE X1+1,4:?" ┥┿┿┿┸"
LOCATE X1+1,5:?"┝┿└─┘┿┰"
WAIT 15
LOCATE X1+1,1:?" ┝жжж┰":LOCATE X1+1,2:?"└┸┥┥┥┥┘"
LOCATE X1+1,3:?"┝│▽ ▽│┰":LOCATE X1+1,4:?"┸└┬─┬┘┥"
LOCATE X1+1,5:?"  └─┘  "
WAIT 20
BEEP 12
LOCATE X2,7: ?"    ▲    ":LOCATE X2,8: ?"    ▲    "
LOCATE X2,9: ?"  △ │ △  ":LOCATE X2,10:?" ◎┥┿И┿┸◎ "
LOCATE X2,11:?" ┿     ┿ ":LOCATE X2,12:?"┥┿л┏ ┏к┿┸"
LOCATE X2,13:?" ╂к│ж│л╂ ":LOCATE X2,14:?"  жжжжж  "
WAIT 15
LOCATE X2,7: ?"         ":LOCATE X2,8: ?"         "
LOCATE X2,9: ?" ◎┥┿И┿┸◎ ":LOCATE X2,10:?" ┿()▲()┿ "
LOCATE X2,11:?" ┿л┏▲┏к┿ ":LOCATE X2,12:?" ╂ з и ╂ "
LOCATE X2,13:?" ●к│ж│л● ":LOCATE X2,14:?"  жжжжж  "
WAIT 20
BEEP 12
LOCATE X3,16:?"   ┌─┐   ":LOCATE X3,17:?" ┝┿┿┿┿┿┰ "
LOCATE X3,18:?" ┿┿┿┿┿┿┿ ":LOCATE X3,19:?" ┥┷┷┷┷┷┸ "
LOCATE X3,20:?" ┝┿┰ ┝┿┰ ":LOCATE X3,21:?"         "
WAIT 15
LOCATE X3,16:?"   ┌─┐   ":LOCATE X3,17:?" ┝┿┿┿┿┿┰ "
LOCATE X3,18:?" ┷┷┷┷┷┷┷ ":LOCATE X3,19:?" и─з и─з "
LOCATE X3,20:?" и─з и─з ":LOCATE X3,21:?" и─з и─з "
LOCATE X3,22:?" ┝┿┰ ┝┿┰ "
WAIT 20
IF X1==X2 AND X1==X3 THEN @S1GOOD
BGMSTOP 0,1
BEEP 1
CLS
COLOR 13
LOCATE X2,9: ?" ◎┥┿И┿┸◎ ":LOCATE X2,10:?" ┿()▲()┿ "
LOCATE X2,11:?" ┿л┏▲┏к┿ ":LOCATE X2,12:?" ╂ з и ╂ "
LOCATE X2,13:?" ●к│ж│л● ":LOCATE X2,14:?"  жжжжж  "
LOCATE X3,13:?"   ┌─┐   ":LOCATE X3,14:?" ┝┿┿┿┿┿┰ "
LOCATE X3,15:?" ┷┷┷┷┷┷┷ ":LOCATE X3,16:?" и─з и─з "
LOCATE X3,17:?" и─з и─з ":LOCATE X3,18:?" и─з и─з "
LOCATE X3,19:?" ┝┿┰ ┝┿┰ "
LOCATE X1+1,5:?" ┝жжж┰":LOCATE X1+1,6:?"└┸┥┥┥┥┘"
LOCATE X1+1,7:?"┝│▽ ▽│┰":LOCATE X1+1,8:?"┸└┬─┬┘┥"
LOCATE X1+1,9:?"  └─┘  "
WAIT 20
DM=DM-1
IF DM>0 THEN GOSUB @S1FADE:GOTO @S1WAIT
BEEP 13
COLOR 7
LOCATE 5,7: ?"л ┥     ┥    ┸     к "
LOCATE 5,8: ?" л   ┥          ┸ к ┝"
LOCATE 5,9: ?"┰       ┫  ┸         "
LOCATE 5,10:?"     ┗        ┗  ┓   "
LOCATE 5,11:?"  ┰                ┝ "
LOCATE 5,12:?"   ┃             ┥   "
LOCATE 5,13:?" ┸     ┃    ┓  ┫     "
LOCATE 5,14:?"    ┗     ┓        ┥ "
LOCATE 5,15:?"     ┝            л  "
LOCATE 5,16:?"┸ к    ┝ ┗  ┰    ┰ л "
LOCATE 5,17:?" к ┝           ┰    л"
FOR I=0 TO 2
BX=RND(20)+3:BY=RND(9)+5:GOSUB @S3BOMB
NEXT I
WAIT 30
CLS
GAME$="OVER"
GOTO @S1END

@S1GOOD
BGMSTOP 0,1
BEEP 37
CLS
LOCATE X2,4:?"  ┝жжж┰":LOCATE X2,5:?" └┸┥┥┥┥┘"
LOCATE X2,6:?" ┝│▽ ▽│┰":LOCATE X2,7:?" ┸└┬─┬┘┥"
LOCATE X2,8:?" ◎┥┿И┿┸◎ ":LOCATE X2,9:?" ┿()▲()┿ "
LOCATE X2,10:?" ┿л┏▲┏к┿ ":LOCATE X2,11:?" ╂ з и ╂ "
LOCATE X2,12:?" ●к│ж│л● ":LOCATE X2,13:?" ┝┿┿┿┿┿┰ "
LOCATE X2,14:?" ┷┷┷┷┷┷┷ ":LOCATE X2,15:?" и─з и─з "
LOCATE X2,16:?" и─з и─з ":LOCATE X2,17:?" и─з и─з "
LOCATE X2,18:?" ┝┿┰ ┝┿┰ "
WAIT 90
BGMPLAY 13
LOCATE X2,9: ?"┝┸()▲()┥┰":LOCATE X2,10:?"╂ л┏▲┏к ╂"
LOCATE X2,11:?"●  з и  ●":LOCATE X2,12:?"  к│ж│л  "

WAIT 5
LOCATE X2,4: ?"  ┝жжж┰":LOCATE X2,5: ?"●└┸┥┥┥┥┘●"
LOCATE X2,6: ?"╂┝│▽ ▽│┰╂":LOCATE X2,7: ?"┥┰└┬─┬┘┝┸"
LOCATE X2,8: ?" ◎┥┿И┿┸◎ ":LOCATE X2,9: ?"  ()▲()  "
LOCATE X2,10:?"  л┏▲┏к  ":LOCATE X2,11:?"   з и   "
COLOR 14
FOR I=22 TO 19 STEP -1
WAIT 30
LOCATE 0,I:?"╂"*32;
NEXT I
BEEP 58,2000:BEEP 13,-4000
COLOR 12
LOCATE X2,16:?" и─з и─з "
LOCATE X2,17:?" ┝┿┰ ┝┿┰ "
COLOR 14
LOCATE 0,18:?"╂"*31;
WAIT 10
COLOR 12
LOCATE 0,18:?" "*31;
LOCATE X2,17:?" и─з и─з "
LOCATE X2,18:?" ┝┿┰ ┝┿┰ "
LOCATE X2,4:?"  ┝жжж┰  ":LOCATE X2,5:?" └┸┥┥┥┥┘ "
LOCATE X2,6:?" ┝│▽ ▽│┰ ":LOCATE X2,7:?" ┸└┬─┬┘┥ "
LOCATE X2,8:?" ◎┥┿И┿┸◎ ":LOCATE X2,9: ?"┝┸()▲()┥┰"
LOCATE X2,10:?"╂ л┏▲┏к ╂":LOCATE X2,11:?"●  з и  ●"
BGMSTOP 0,1
WAIT 60
GAME$="CLEAR"
IF MD$!="FREE" THEN @S1EPASS

@S1END
GOSUB @REPLAY
IF RBT==16 THEN @S1MAIN

@S1EPASS
RETURN

@S1FADE
LOCATE 0,23:?"┿"*31
FOR I=0 TO 23
LOCATE 0,23:?
WAIT 1
NEXT I
RETURN


'ステ-シ゛2<-------------------
'--------------------------
@STAGE2
CLS
GOSUB @GUIDE
GOSUB @BTNWAIT

@S2MAIN
CLS
CL(0)=9:CL(1)=3
X=31:Y=22:H=4:MC=10:WT=6
RESTORE @WIRE
FOR I=1 TO 4:READ M1$(I):READ M2$(I):NEXT I
@WIRE
DATA └,┘,┌,└,┐,┌,┘,┐
GOSUB @S2WALL

FOR I=1 TO MC
BEEP 27
FOR Q=0 TO 1
@S2RLOOP
HX=RND(28)+2:HY=RND(17)+2
IF CHR$(CHKCHR(HX,HY))!=" " THEN @S2RLOOP
IF CHR$(CHKCHR(HX-1,HY))!=" " THEN @S2RLOOP
IF CHR$(CHKCHR(HX+1,HY))!=" " THEN @S2RLOOP
IF CHR$(CHKCHR(HX,HY-1))!=" " THEN @S2RLOOP
IF CHR$(CHKCHR(HX,HY+1))!=" " THEN @S2RLOOP
COLOR CL(Q)
LOCATE HX,HY:? MID$("Мг",Q,1)
IF Q==0 THEN UX(I)=HX:UY(I)=HY
IF Q==1 THEN IX(I)=HX:IY(I)=HY
NEXT Q
WAIT 2
NEXT I
WAIT 60
CLS
COLOR 14:LOCATE 0,22:?"╂"*31;
COLOR 12
LOCATE 23,7 :?"кжж┿┰"
LOCATE 23,8 :?"┥┥┥┥┿"
LOCATE 23,9 :?"│ ▽ ┿┰"
LOCATE 23,10:?"└┬─┬┸┥"
LOCATE 19,11:?"●╂┿◎┥┿И┿┸◎"
LOCATE 23,12:?"()▲()┿"
LOCATE 23,13:?"л┏▲┏к╂●"
LOCATE 23,14:?" з и "
LOCATE 23,15:?"к│ж│л"
LOCATE 22,16:?"┝┿┿┿┿┿┰"
LOCATE 22,17:?"┷┷┷┷┷┷┷"
LOCATE 22,18:?"и─з и─з"
LOCATE 22,19:?"и─з и─з"
LOCATE 22,20:?"и─з и─з"
LOCATE 22,21:?"┝┿┰ ┝┿┰"
COLOR 8
FOR QY=4 TO 21
LOCATE 0,QY:?"╂"*8
NEXT QY
TALK TB$+"ワイヤ--ト゛|ハ゜ア-'-ンチ"
WAIT 80
BEEP 13,4000
FOR QX=18 TO 8 STEP -1
LOCATE QX,11
COLOR 12:?"●";:COLOR 10:?"─"
WAIT WT
NEXT QX
CLS
GOSUB @S2WALL
FOR I=1 TO MC
COLOR 9:LOCATE UX(I),UY(I):?"М"
COLOR 3:LOCATE IX(I),IY(I):?"г"
NEXT I
CPO=CPO+1
COLOR 10
LOCATE 31,22:?"─";
PO=MC:CP=0
BEEP 13
BGMPLAY 23

@S2LOOP
KX=X:KY=Y:KH=H
IF H==1 THEN Y=Y-1
IF H==2 THEN X=X+1
IF H==3 THEN Y=Y+1
IF H==4 THEN X=X-1
CG$=CHR$(CHKCHR(X,Y))
IF CG$=="М" THEN PO=PO-1:BEEP 11:CG$=" "
IF CG$!=" " THEN @S2OVER
COLOR 12
LOCATE X,Y:?"●";
COLOR 10
FX(CP)=X:FY(CP)=Y
CP=CP+1
WAIT WT
IF PO==0 THEN @S2CLEAR
IF Y==KY THEN A$="─" ELSE A$="│"
LOCATE X,Y:? A$;
BN=BUTTON()
WAIT 1
IF BN==BT THEN @S2PASS
BT=BN
IF BT==512 THEN H=H+1:A$=M1$(H):IF H>4 THEN H=1:A$=M1$(H)
IF BT==256 THEN H=H-1:A$=M2$(H):IF H<1 THEN H=4:A$=M2$(H)
IF KH!=H THEN LOCATE X,Y:? A$;
@S2PASS
GOTO @S2LOOP

@S2CLEAR
BGMSTOP 0,1
BEEP 43
COLOR 12
CP=CP-1
FOR V=CP TO 1 STEP -2
LOCATE FX(V),FY(V):?"●";
WAIT 1
LOCATE FX(V),FY(V):?" ";
LOCATE FX(V-1),FY(V-1):?" ";
NEXT V
LOCATE FX(0),FY(0):?"●";
LOCATE 30,22:?"  ";
COLOR 3
LOCATE 11,20:?"THANK YOU!!"
COLOR 3
FOR Q=0 TO 2
FOR I=1 TO MC
LOCATE IX(I),IY(I):?" "
LOCATE IX(I),IY(I)-1:?"г"
NEXT I
WAIT 10
FOR I=1 TO MC
LOCATE IX(I),IY(I)-1:?" "
LOCATE IX(I),IY(I):?"г"
NEXT I
WAIT 30
NEXT Q
GAME$="CLEAR"
IF MD$=="FREE" THEN @S2END ELSE @S2EPASS

@S2OVER
BGMSTOP 0
BEEP 41
COLOR 13
LOCATE X,Y:?"*";
GAME$="OVER"
IF CG$=="╂" THEN GOSUB @S2OVER1:GOTO @S2END
IF CG$=="г" THEN GOSUB @S2OVER2:GOTO @S2END

@S2END
GOSUB @REPLAY
IF RBT==16 THEN @S2MAIN
@S2EPASS
RETURN

@S2OVER1
COLOR 13
LOCATE 0,0:?"╂"*32;
FOR I=1 TO 22
LOCATE 0,I:?"╂":LOCATE 31,I:?"╂";
NEXT I
LOCATE 0,23:?"╂"*32;
COLOR 10:LOCATE 31,22:?"─";
COLOR 13:LOCATE X,Y:?"*";
WAIT 10
FOR ITEM=0 TO 4
ITEM$="7,3,15,2,14"
GOSUB @ITEM
COLOR 0,VAL(ITEM$):CLS
IF ITEM!=2 THEN @S2OVPASS
FOR I=0 TO 2
BX=RND(27)+1:BY=RND(17)+1
GOSUB @S3BOMB
NEXT I
@S2OVPASS
WAIT 5
NEXT ITEM
COLOR 0,0:CLS
RETURN

@S2OVER2
WAIT 10
COLOR 13
LOCATE 14,20:?"NO..."
FOR I=1 TO MC
COLOR 11:LOCATE IX(I),IY(I):?"г"
COLOR 12:LOCATE X,Y:?"●";
WAIT 5
NEXT I
RETURN

@S2WALL
COLOR 8
LOCATE 0,0:?"╂"*32;
FOR I=1 TO 22
LOCATE 0,I:?"╂";" "*30;"╂";
NEXT I
LOCATE 0,23:?"╂"*32;
LOCATE 31,22:?"|";
RETURN


'ステ-シ゛3<-------------------
'--------------------------
@STAGE3
CLS
GOSUB @GUIDE
GOSUB @BTNWAIT

@S3MAIN
CLS
TRB$="@S10@E8@N2450"
RESTORE @S3PCK
FOR Q=0 TO 4:FOR I=0 TO 11
READ S3P$(Q,I)
NEXT I:NEXT Q
RESTORE @S3TEKI
FOR Q=0 TO 4:FOR I=0 TO 12
READ S3T$(Q,I)
NEXT I:NEXT Q
S3B$(0)="┿┿л ╂╂л   ╂л ╂л "*2
S3B$(1)="┿┿ з╂╂ ┿┿л╂ ╂╂ з"*2
S3B$(2)="┿┿ ┿┿┿л┿┿ ╂ ╂┿┿л"*2
S3B$(3)="┿┿ ┿┿┿ ┿┿ ┿┿┿┿┿ "*2
S3M$(0,0)="┌───┐":S3M$(0,1)="│コ ウ│":S3M$(0,2)="│   │"
S3M$(0,3)="│ケ゛キ│":S3M$(0,4)="└───┘"
S3M$(1,0)="┌───┐":S3M$(1,1)="│ホ゛ウ│":S3M$(1,2)="│   │"
S3M$(1,3)="│キ゛ョ│":S3M$(1,4)="└───┘"
S3M$(2,0)="┌───┐":S3M$(2,1)="│タ  │":S3M$(2,2)="│   │"
S3M$(2,3)="│  メ│":S3M$(2,4)="└───┘"
RBW$(0)="ファイア-":RBW$(1)="カ゛-ト゛":RBW$(2)="チャ-シ゛"
PE=6:PC=1:PP=0
TE=13:TC=1:TP=0
TALK TB$+"セン%ト-カイ%シ%!"
CPO=CPO+1
WAIT 90
BGMPLAY 3

'メイン<----------------------
@S3LOOP
CLS
IF PC>1 THEN PP=4
IF TC>1 THEN TP=4
GOSUB @S3BLVIEW
GOSUB @S3TEKIVIEW
GOSUB @S3PCKVIEW
GOSUB @S3ENERGY
WAIT 30
IF TC==3 THEN TR=2 ELSE TR=3
TM=RND(TR)
TP=2+TM:GOSUB @S3TEKIVIEW
GOSUB @S3MARKT

'ホ゛タン ニュウリョク<----
COLOR 0:LOCATE 6,23:?"Аコウケ゛キ  Бホ゛ウキ゛ョ";
IF PC==3 THEN BM=32 ELSE BM=64:?"  Фタメ";
@S3BWAIT
BT=BUTTON()
IF BT<16 OR BT>BM THEN @S3BWAIT
IF BT==16 THEN PM=0
IF BT==32 THEN PM=1
IF BT==64 THEN PM=2
IF PM==2 AND PC==3 THEN GOSUB @S3FLASH:GOTO @S3BWAIT
LOCATE 0,23:?" "*32;
TALK TRB$+RBW$(PM)
GOSUB @S3MARKP
WAIT 30

'ハンテイ<---------------------
PP=2+PM:TP=2+TM
GOSUB @S3STAGEDEL
GOSUB @S3TEKIVIEW
GOSUB @S3PCKVIEW
G=TM*3+PM
ON G GOSUB @S30,@S31,@S32,@S33,@S34,@S35,@S36,@S37,@S38
GOSUB @S3ENERGY

'アクション<--------------------
IF PE==0 OR TE==0 THEN @S3END
WAIT 30
PP=0:TP=0
GOTO @S3LOOP

@S3END
BGMSTOP
IF TE==0 THEN GOSUB @S3LOSET:GAME$="CLEAR"
IF PE==0 THEN GOSUB @S3LOSEP:GAME$="OVER"
WAIT 60
IF GAME$=="CLEAR" AND MD$!="FREE" THEN WAIT 30:GOTO @S3EPASS
GOSUB @REPLAY
IF RBT==16 THEN @S3MAIN
@S3EPASS
RETURN

'┿┿┿┿┿ サフ゛ル-チン ┿┿┿┿┿┿┿┿┿┿┿┿

'フ゜チコ カチ<------------------
@S3WINP
BEEP 13,,,0
TP=1
GOSUB @S3STAGEDEL:GOSUB @S3TEKIVIEW
BX=11:BY=12:GOSUB @S3BOMB
GOSUB @S3TEKIVIEW:GOSUB @S3BLSCT
WAIT 30
GOSUB @S3PCKVIEW
RETURN

'テキ カチ<--------------------
@S3WINT
PP=1
GOSUB @S3STAGEDEL:GOSUB @S3PCKVIEW
BX=23:BY=9:GOSUB @S3BOMB
GOSUB @S3PCKVIEW:GOSUB @S3BLSCP
WAIT 30
GOSUB @S3TEKIVIEW
RETURN

'ヒ゛ル ヒョウシ゛<----------------
@S3BLVIEW
COLOR 2
FOR I=0 TO 3:LOCATE 0,19+I:? S3B$(I);:NEXT I
RETURN

'カ゛メン ショウキョ<---------------
@S3STAGEDEL
FOR I=1 TO 16:LOCATE 0,I+2:?" "*32;:NEXT I
RETURN

'フ゜チコ ヒョウシ゛<---------------
@S3PCKVIEW
COLOR 12
FOR I=0 TO 11:LOCATE 22,7+I:? S3P$(PP,I):NEXT I
RETURN

'テキ ヒョウシ゛<-----------------
@S3TEKIVIEW
COLOR 5
FOR I=0 TO 12:LOCATE 0,6+I:? S3T$(TP,I):NEXT I
RETURN

'テキ コウケ゛キ<-----------------
@S3FIRE
BEEP 1,,,0
COLOR 13
FOR I=1 TO 9
IF I==5 THEN BEEP 1,,,0
LOCATE 15,8:? LEFT$("   ┝ ┝┝┝ ",I)
LOCATE 15,9:? LEFT$("┝ ┝┝ ┝┝ ┝",I)
LOCATE 15,10:?LEFT$(" ┥┥ ┥┥┥ ┥",I)
LOCATE 15,11:?LEFT$("    ┥┥┥┥ ",I)
WAIT 5
NEXT I
RETURN

'テキ コウケ゛キ カウンタ-<-----------
@S3FIRER
BEEP 38,,,127
PP=3:GOSUB @S3PCKVIEW
COLOR 13
FOR I=1 TO 7
LOCATE 22-I,8:? RIGHT$("┰┰┰┰┰лл",I)
LOCATE 22-I,9:? RIGHT$("     ┰┰",I)
LOCATE 22-I,10:?RIGHT$("     ┸┸",I)
LOCATE 22-I,11:?RIGHT$("┸┸┸┸┸кк",I)
WAIT 5
NEXT I
RETURN

'コウケ゛キ ヒット<----------------
@S3BOMB
BPAN=FLOOR(BX*4.704):IF BPAN>127 THEN BPAN=127
BEEP 13,,,BPAN
COLOR 13
LOCATE BX,BY:  ?"┝┰":LOCATE BX,BY+1:?"┥┸"
WAIT 5
COLOR 7
LOCATE BX-1,BY-1:?"л┥ к":LOCATE BX-1,BY:  ?" ┫┃┝"
LOCATE BX-1,BY+1:?"┸━┳ ":LOCATE BX-1,BY+2:?"к ┰л"
WAIT 5
COLOR 14
LOCATE BX-1,BY-1:?"┫  ┃":LOCATE BX-1,BY:  ?"    "
LOCATE BX-1,BY+1:?"    ":LOCATE BX-1,BY+2:?"━  ┳"
WAIT 5
LOCATE BX-1,BY-1:?"    ":LOCATE BX-1,BY:  ?"    "
LOCATE BX-1,BY+1:?"    ":LOCATE BX-1,BY+2:?"    "
RETURN

'フ゜チコ コウケ゛キ<---------------
@S3BAST
BEEP 10,,,127
COLOR 12
FOR I=21 TO 11 STEP -1:LOCATE I,12:?"()=< ":WAIT 3:NEXT I
RETURN

'フ゜チコ コウケ゛キ カウンタ-<---------
@S3BASTR
TP=3:GOSUB @S3TEKIVIEW
COLOR 12
FOR I=14 TO 20:LOCATE I,12:?" >=()":WAIT 3:NEXT I
RETURN

'ヒ゛ルナカ゛レ テキ<---------------
@S3BLSCT
BEEP 35,,,0
FOR II=0 TO 33
FOR Q=0 TO 3
S3B$(Q)=RIGHT$(S3B$(Q),1)+LEFT$(S3B$(Q),31)
NEXT Q
GOSUB @S3BLVIEW
WAIT 2
NEXT II
RETURN

'ヒ゛ルナカ゛レ フ゜チコ<-------------
@S3BLSCP
BEEP 35,,,127
FOR II=0 TO 33
FOR Q=0 TO 3
S3B$(Q)=RIGHT$(S3B$(Q),31)+LEFT$(S3B$(Q),1)
NEXT Q
GOSUB @S3BLVIEW
WAIT 2
NEXT II
RETURN

'ハ゜ラメ-タ ヒョウシ゛<-------------
@S3ENERGY
IF PE<0 THEN PE=0
IF TE<0 THEN TE=0
COLOR 5:LOCATE 0,1:?"ж"*13
COLOR 12:LOCATE 26,1:?"ж"*6;
LOCATE 0,0:? " "*32;
COLOR 3
IF TE<=6 THEN COLOR 7
IF TE<=3 THEN COLOR 13
LOCATE 0,0:? "■"*TE
COLOR 5:LOCATE 13,0:?"з"
COLOR 3
IF PE<=4 THEN COLOR 7
IF PE<=2 THEN COLOR 13
LOCATE 32-PE,0:? "■"*PE;
COLOR 12:LOCATE 25,0:?"и"
'タメ スウ<----
COLOR 5:LOCATE 0,2:?"POW:";"●"*TC
COLOR 12:LOCATE 28-PC,2:? "●"*PC;":POW";
RETURN

'マ-ク ヒョウシ゛ テキ<-------------
@S3MARKP
COLOR 9
FOR I=0 TO 4:LOCATE 17,13+I:? S3M$(PM,I):NEXT I
RETURN

'マ-ク ヒョウシ゛ フ゜チコ<-----------
@S3MARKT
COLOR 9
FOR I=0 TO 4:LOCATE 10,13+I:? S3M$(TM,I):NEXT I
RETURN

@S3LOSET
PP=2:GOSUB @S3PCKVIEW
BX=1:BY=7:GOSUB @S3BOMB:BX=9:BY=10:GOSUB @S3BOMB
BX=5:BY=15:GOSUB @S3BOMB
GOSUB @S3STAGEDEL:GOSUB @S3PCKVIEW
RETURN

@S3LOSEP
TP=2:GOSUB @S3TEKIVIEW
BX=27:BY=8:GOSUB @S3BOMB:BX=23:BY=15:GOSUB @S3BOMB
BX=25:BY=12:GOSUB @S3BOMB
GOSUB @S3STAGEDEL:GOSUB @S3TEKIVIEW
RETURN

'Tコウケ゛キ Pコウケ゛キ<------------
@S30
GOSUB @S3FIRE:GOSUB @S3BAST
PP=1:TP=1
BX=23:BY=9:GOSUB @S3BOMB
BX=11:BY=12:GOSUB @S3BOMB
WAIT 10
GOSUB @S3STAGEDEL:GOSUB @S3TEKIVIEW:GOSUB @S3PCKVIEW
TE=TE-PC
PE=PE-TC
TC=1:PC=1
RETURN

'Tコウケ゛キ Pホ゛ウキ゛ョ<-----------
@S31
GOSUB @S3FIRE
IF TC>PC THEN GOSUB @S3WINT:PE=PE-(TC-PC)
IF TC<PC THEN GOSUB @S3FIRER:GOSUB @S3WINP:TE=TE-(PC-TC)
TC=1:PC=1
RETURN

'Tコウケ゛キ Pタメ<---------------
@S32
BEEP 36,,,127
GOSUB @S3FIRE:GOSUB @S3WINT
PE=PE-TC
TC=1
PC=PC+1:IF PC>3 THEN PC=3
RETURN

'Tホ゛ウキ゛ョ Pコウケ゛キ<-----------
@S33
GOSUB @S3BAST
IF TC<PC THEN GOSUB @S3WINP:TE=TE-(PC-TC)
IF TC>PC THEN GOSUB @S3BASTR:GOSUB @S3WINT:PE=PE-(TC-PC)
IF TC==PC THEN BEEP 30
TC=1:PC=1
RETURN

'Tホ゛ウキ゛ョ Pホ゛ウキ゛ョ<----------
@S34
BEEP 44
PC=PC-1:IF PC<1 THEN PC=1
TC=TC-1:IF TC<1 THEN TC=1
RETURN

'Tホ゛ウキ゛ョ Pタメ<--------------
@S35
BEEP 36,,,127
'TC=TC-1:IF TC<1 THEN TC=1
PC=PC+1:IF PC>3 THEN PC=3
RETURN

'Tタメ Pコウケ゛キ<---------------
@S36
GOSUB @S3BAST:GOSUB @S3WINP
TE=TE-PC
PC=1
TC=TC+1:IF TC>3 THEN TC=3
RETURN

'Tタメ Pホ゛ウキ゛ョ<--------------
@S37
BEEP 59,,,0
'PC=PC-1:IF PC<1 THEN PC=1
TC=TC+1:IF TC>3 THEN TC=3
RETURN

'Tタメ Pタメ<------------------
@S38
BEEP 59,,,0:BEEP 36,,,127
TC=TC+1:IF TC>3 THEN TC=3
PC=PC+1:IF PC>3 THEN PC=3
RETURN


'┿┿┿┿┿ テ゛-タ ┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿

@S3PCK
DATA "  ┝жжж┰  "," └┸┥┥┥┥┘ "," ┝│▽ ▽│┰ "," ┸└┬─┬┘┥ "
DATA " ◎┥┿И┿┸◎ ","┝┸()▲()┥┰","╂ л┏▲┏к ╂","●  з и  ●"
DATA "  к│ж│л  "," ┝┿┿┿┿┿┰ "," ┷┷┷┷┷┷┷ "," и─з и─з "
DATA "         ","   ┝жжж┰ ","  └┸┥┥┥┥┘"," ┝┿│▼ ▼│┰"
DATA "   └───┘┸","  ┿()▲()┿","  ┿л┏▲●╂┿","  ╂●з и  "
DATA "   к│ж│л "," ┝┿┿┿┿┿┿ "," ┷┷┷┷┷┷┷ "," и─з и─з "
DATA "  ┝жжж┰  ","●└┸┥┥┥┥┘●","╂┝│▽ ▽│┰╂","┥┰└┬─┬┘┝┸"
DATA " ◎┥┿И┿┸◎ ","  ()▲()  ","  л┏▲┏к  ","   з и   "
DATA "  к│ж│л  "," ┝┿┿┿┿┿┰ "," ┷┷┷┷┷┷┷ "," и─з и─з "
DATA "┌  кжж┿┰ ","│  ┥┥┥┥┿ ","│● │ ▽ ┿┰","│╂ └┬─┬┸┥"
DATA "├┿◎┥┿И┿┸◎","│  ()▲●╂┿","│  л┏▲┏к ","│   з и  "
DATA "└  к│ж│л ","  ┝┿┿┿┿┿┰","  ┷┷┷┷┷┷┷","  и─з и─з"
DATA " *┝жжж┰* "," └┸┥┥┥┥┘ "," к│▽ ▽│л ","ик└┬─┬┘лз"
DATA " ◎┥┿И┿┸◎ "," ┿()△()┿ "," ┿л┏△┏к┿ ","●╂ з и ╂●"
DATA "  к│ж│л  "," ┝┿┿┿┿┿┰ "," ┷┷┷┷┷┷┷ "," и─з и─з "
         
@S3TEKI
DATA "         ┰┝┿┰┝ ","        ┰┿┿┿┥┿ ","       ┝┿┿┿┿┿┿┿"
DATA "       ┝┿┿┿┿┗┗┃","     ┰ ┝┿┿┿┿┿┸ ","    ┝┿┿┿┿┿┿┸   "
DATA "    ┝┿┿┿┿┿┿  ┝┰","   ┰ ┝┿┿┿┿┿┿┿┸┥","  ┝┿┿┿┿┿┿┿┿ ┝┰ "
DATA "  ┝┿┿┿┿┿┿┿┿┿┸┥ "," ┰┝┿┿┿┿┿┿┿┿    ","┝┿┿┿┿┿┿┿┿┿┸    "
DATA "┝┿┿┿┿┿┿┿┿┿     "

DATA "        ┿━     ","      ┥┿┿━┳┰   ","      ┝┸┿━┝┿   "
DATA "      ┿┿┿┿┿┸   ","   ┰ ┝┿┿┿┿┸    ","  ┝┿┿┿┿┿┿┸     "
DATA "  ┝┿┿┿┿┿┿      "," ┰ ┝┿┿┿┿┿┿┰    ","┝┿┿┿┿┿┿┿ ┸     "
DATA " ┝┿┿┿┿┿┿┿┿┰    ","┰┝┿┿┿┿┿┿┿ ┸    ","┥┿┿┿┿┿┿┿┿┰     "
DATA "  ┥┿┿┿┿┿┿┿┰    "

DATA "         ┰┝┿┰┝ ","        ┰┿┿┿┥┿ ","       ┝┿┿┿┿┿┿┿"
DATA "       ┝┿┿┿┸┃┃┃","     ┰ ┝┿┿┿┰┓┓ ","    ┝┿┿┿┿┿┿┿┿┰ "
DATA "    ┝┿┿┿┿┿┿    ","   ┰ ┝┿┿┿┿┿┿┿┰ ","  ┝┿┿┿┿┿┿┿┿  ┸ "
DATA "  ┝┿┿┿┿┿┿┿┿┿┰  "," ┰┝┿┿┿┿┿┿┿┿ ┸  ","┝┿┿┿┿┿┿┿┿┿┸    "
DATA "┝┿┿┿┿┿┿┿┿┿     "

DATA "    ┰┝┿┰┝      ","   ┰┿┿┿┥┿    ┝┸","  ┝┿┿┿┿┿┿┿   ┿ "
DATA "  ┝┿┿┿┿┗┗┃   ┿ ","  ┝┿┿┿┿┿┸    ┿ "," ┝┿┿┿┿┿┸┝┰   ┿ "
DATA " ┝┿┿┿┿┿┿┸┥  ┝┿ "," ┰┿┿┿┿┿┿┰   ┿┿ ","┝┿┿┿┿┿┿┿┥   ┿┿ "
DATA "┝┿┿┿┿┿┿┿┰   ┿┿ "," ┰┿┿┿┿┿┿┿  ┝┿┿ ","┝┿┿┿┿┿┿┿┿┿┿┿┿┿ "
DATA " ┥┿┿┿┿┿┿┿┿┿┿┿┸ "

DATA "               ","        ил┝┿┰┝ ","       ил┝┿┿┥┿ "
DATA "       к┝┿┿┿┿┿┿","    илй┝┿┿┿┿┿┸ ","    к ┝┿┿┿┿┸   "
DATA "    к┝┿┿┿┿┿ ┝┰ ","  илж┝┿┿┿┿┿┿┿┿ ","  к ┝┿┿┿┿┿┿┝┰  "
DATA "  к┝┿┿┿┿┿┿┿┿┿  ","ил┝┿┿┿┿┿┿┿┿    ","к┝┿┿┿┿┿┿┿┿┸    "
DATA "┝┿┿┿┿┿┿┿┿┿     "


'ステ-シ゛4<-------------------
'--------------------------
@STAGE4
CLS
GOSUB @GUIDE
GOSUB @BTNWAIT

@S4MAIN
CLS
P=1:PX=15:WT=6:PY=17:DM=3
DML(1)=13:DML(2)=7:DML(3)=4
MH=11
MCB=10:MC=MCB
JC=0:KMS=-1
MB$="╂"*32
MT$(0)=" "*MH:MT$(1)="─"*MH:MT$(2)="┿"*MH
MX=15-FLOOR(MH/2)
FOR I=0 TO 22
MP$(I)="╂╂╂"+" "*26+"╂╂╂":MP(I)=0:NEXT I
DT=500
TALK TB$+"ニ'ン%ムヲ|スイ%コ-|シマス%!!"
CPO=CPO+1
BGMPLAY 2

'S4メイン<--------------------
@S4LOOP
MS=0
IF DT==23 THEN MB$="╂"+"С"*30+"╂"
MP$(0)=MB$
IF DT<=23 THEN @S4PASS
MC=MC-1
IF MC>=0 THEN @S4PASS2
MS=RND(2)+1
IF MS==KMS THEN JC=JC+1 ELSE KMS=MS
IF JC>2 THEN MS=3-MS:KMS=MS:JC=0
MC=MCB
@S4PASS2
MP$(0)=SUBST$(MP$(0),MX,MH,MT$(MS))
@S4PASS
MP(0)=MS
CLS
FOR MY=22 TO 1 STEP -1
IF MY==PY+2 THEN GOSUB @S4MPVIEW:MY=PY:GOTO @S4SKIP
COLOR 10
LOCATE 0,MY:? MP$(MY);
MP$(MY)=MP$(MY-1)
MP(MY)=MP(MY-1)
@S4SKIP
NEXT MY
COLOR 10
LOCATE 0,0:? MP$(0);
GO=0
FOR CY=CY1 TO CY2
FOR CX=CX1 TO CX2
CK$=MID$(MP$(CY+1),CX,1)
IF CK$=="╂" THEN GO=1
IF CK$=="─" AND P==0 THEN GO=1
IF CK$=="┿" AND P==1 THEN GO=1
NEXT CX:NEXT CY
IF GO==0 THEN @S4DPASS
GOSUB @S4BREAK
IF DM==0 THEN @S4BOMB
@S4DPASS
BT=BUTTON()
IF BT AND 1 THEN P=0:BEEP 1 
IF BT AND 2 THEN P=1:BEEP 1
IF BT AND 4 THEN PX=PX-1
IF BT AND 8 THEN PX=PX+1
GOSUB @S4VIEW
WAIT WT
R=RND(3)-1
IF MX+R<3 OR MX+R>29-MH THEN R=0
MX=MX+R
DT=DT-1
IF DT%100==0 AND WT>2 THEN WT=WT-1:TALK "@S11@T40テ゛ンシ゛ャ-!"
IF DT>=0 GOTO @S4LOOP

'クリア<----------------------
BGMSTOP 0,1
KX=PX
IF KX==16 THEN @S4CPASS
FOR EX=KX TO 16 STEP (16-KX)/ABS(16-KX)
PX=EX
GOSUB @S4MPVIEW
GOSUB ("@S4PCKW"+STR$(P))
WAIT 5
NEXT EX
@S4CPASS
IF P==0 THEN P=1:BEEP 1:GOSUB @S4PCKW1
IF MD$=="FREE" THEN @S4CSKIP1
WAIT 30
BEEP 14,-8100
LB$(1)="С┿СС┥┰л▼ССлл┥ ┸ккСС▼к┝┸СС┿С":LB$(0)="С┥┰СС▼ССССкСмЭмСлССС▼ССС┝┸С"
LB$(3)="┥┰С┿С┝┸С┿┿┿┰┰▼┝┝┿┿┿С┥┰С┿С┝┸":LB$(2)="С┿С┥┰┥┿┰┥┿┿┿┰ ┝┿┿┿┸┝┿┸┝┸С┿С"
LB$(5)="┿ССС┿С┰┰┰┿└ ┥│┸ ┘┿┝┝┝С┿ССС┿":LB$(4)="┿СС┝┸С┿С┰┥ ┰┥│┸┝ ┸┝С┿С┥┰СС┿"
LB$(7)="С┝┸кС┝┰└─┐┝│┥│┸│┰┌─┘┝┰Сл┥┰С":LB$(6)="┝┸кС┝┸┰┰┰└┐└┥│┸┘┌┘┝┝┝┥┰Сл┥┰"
LB$(9)="СССС┝┰┰┰┰─┐┿┿│┿┿┌─┝┝┝┝┰СССС":LB$(8)="СС┝┿┿┰┰┰┰┝└┐┿│┿┌┘┰┝┝┝┝┿┿┰СС"
COLOR 13
FOR I=0 TO 9
FOR Q=0 TO I:LOCATE 3,I-Q+1:? LB$(Q):NEXT Q
WAIT 20
NEXT I
BEEP 14,-8100
WAIT 30
@S4CSKIP1
BEEP 37
KY=PY
FOR EY=KY TO 1 STEP -1
IF EY==8 AND MD$!="FREE" THEN BEEP 11
PY=EY
GOSUB ("@S4PCKW"+STR$(P))
COLOR 10
LOCATE CX1,CY2+1:?"С";"С"*(P*2);
WAIT 1
NEXT EY
LOCATE CX1,1:?"ССС":LOCATE CX1,2:?"ССС":LOCATE CX1,3:?"ССС"
IF MD$=="FREE" THEN @S4CSKIP2
WAIT 60
BEEP 13
COLOR 0,13:CLS:WAIT 2
COLOR 0,7:CLS:WAIT 2
COLOR 0,3:CLS:WAIT 2
COLOR 0,15:CLS:WAIT 2
FOR C=0 TO 9
BX=RND(27)+1:BY=RND(18)+1
GOSUB @S3BOMB
NEXT C
COLOR 0,2:CLS:WAIT 10
COLOR 0,14:CLS:WAIT 10
COLOR 0,0:CLS
@S4CSKIP2
GAME$="CLEAR"
IF MD$=="FREE" THEN @S4END ELSE @S4EPASS

'ケ゛-ムオ-ハ゛-<----------------
@S4BOMB
BGMSTOP 0,1
GOSUB @S4VIEW
BEEP 13
COLOR 13
FOR Q=0 TO 3
FOR CY=CY1 TO CY2
FOR CX=CX1 TO CX2
LOCATE CX,CY:? MID$("+м・ ",Q,1)
NEXT CX:NEXT CY
WAIT 5
NEXT Q
GOSUB @S4FADE
GAME$="OVER"

@S4END
IF BUTTON()!=0 THEN @S4END

GOSUB @REPLAY
IF RBT==16 THEN @S4MAIN
@S4EPASS
CLS
RETURN

'┿┿┿┿┿ S4サフ゛ル-チン ┿┿┿┿┿┿┿┿┿┿

@S4VIEW
LOCATE 0,0:?" "*32;
COLOR 2:LOCATE 6,0:? "ノコリキョリ:";:COLOR 3:? DT;"m  ";
IF DM>=3 THEN DMC=3 ELSE DMC=DM
COLOR 2:?"ハ゛リア:";:COLOR DML(DMC):?"■"*DM
RETURN

@S4PCKW0
COLOR 12
LOCATE PX,PY:?"Г"
CX1=PX:CX2=PX:CY1=PY:CY2=PY
RETURN

@S4PCKW1
COLOR 12
LOCATE PX-1,PY:?"┝ж┰"
LOCATE PX-1,PY+1:?"┥┿┸"
LOCATE PX-1,PY+2:?"├б┤"
CX1=PX-1:CX2=PX+1:CY1=PY:CY2=PY+2
RETURN

@S4BREAK
COLOR 13
FOR CY=CY1 TO CY2
FOR CX=CX1 TO CX2
LOCATE CX,CY:? "┿"
NEXT CX:NEXT CY
DM=DM-1
GOSUB @S4VIEW
IF DM!=0 THEN BEEP 30:WAIT 10
RETURN

@S4MPVIEW
COLOR 10
FOR VY=PY+2 TO PY STEP -1
IF MP(VY)!=2 THEN LOCATE 0,VY:? MP$(VY);
NEXT VY
GOSUB ("@S4PCKW"+STR$(P))
COLOR 10
FOR VY=PY+2 TO PY STEP -1
IF MP(VY)==2 THEN LOCATE 0,VY:? MP$(VY);
MP$(VY)=MP$(VY-1)
MP(VY)=MP(VY-1)
NEXT VY
RETURN

@S4FADE
FC(0)=10:FC(1)=11:FC(2)=14
FOR Q=0 TO 2
CLS
COLOR FC(Q)
FOR Y=1 TO 22
LOCATE 0,Y:? MP$(Y);
NEXT Y
GOSUB @S4VIEW
WAIT 3
NEXT Q
COLOR 0
CLS
GOSUB @S4VIEW
RETURN


'┿┿┿┿┿ S0サフ゛ル-チン ┿┿┿┿┿┿┿┿┿┿

@ROGO
?" "*20;"┐┐││ ┐"
?" ┌";"─"*17;" ┌┬┐┼── ──┐"
?" │──Ё─┬┘──┐┌─┐─┼─┫  ├┼┤│ ││ ┐│"
?" │ ┌┘─┼─  ││ ││││┌┬┐└┼┘└┐││ ││"
?" │─┘ ─┘ ──┘└─┘┘│└└┘┘─┼─┌┼┘└  │"
?" └";"─"*19;"│─┘└────┘"
?"    PUCHIKO ROBO NO TATAKAI"
RETURN

@BILLVIEW
FOR II=0 TO 5
LOCATE 0,17+II:? B$(II);
NEXT II
RETURN

@BILLMOVE
FOR II=0 TO 5
B$(II)=RIGHT$(B$(II),1)+LEFT$(B$(II),31)
NEXT II
RETURN

@BTNWAIT
IF BUTTON()!=0 THEN @BTNWAIT
LOCATE 0,23:COLOR 14:? NBO$;
@BTNWAIT2
BTW=BUTTON()
WAIT 1
IF BTW==0 THEN @BTNWAIT2
COLOR 0
LOCATE 0,23:COLOR 14:?" "*32;
RETURN

@REPLAY
IF BUTTON()!=0 THEN @REPLAY
COLOR 0:LOCATE 8,10:?"┌サイチョウセン シマスカ?┐"
LOCATE 8,11:?"│";" "*13;"│":LOCATE 8,12:?"│ ハイ→→А イイエ→Б │"
LOCATE 8,13:?"│";" "*13;"│":LOCATE 8,14:?"└";"─"*13;"┘"
@REWAIT
RBT=BUTTON(2)
IF RBT!=16 AND RBT!=32 THEN @REWAIT
RETURN

@STAGECLEAR
CLS
BEEP 25:BGMPLAY 5
COLOR 3
LOCATE 1,10:?"┌─┐┌┬┐┌─┐┌─┐┌─┐ ┌─┐│ ┌─┐┌─┐┌─┐"
COLOR 0
LOCATE 1,11:?"└─┐ │ ├─┤│ ┬├─  │  │ ├─ ├─┤├┬┘"
COLOR 7
LOCATE 1,12:?"└─┘ ┴ ┴ ┴└─┘└─┘ └─┘└─└─┘┴ ┴┴└┘"
WAIT 60
GOSUB @BTNWAIT
RETURN

@GAMEOVER
CLS
BGMPLAY 6
COLOR 11
LOCATE 3,10:?"┌─┐┌─┐┌┬┐┌─┐ ┌─┐┬ ┬┌─┐┌─┐"
LOCATE 3,11:?"│ ┬├─┤│││├─  │ ││┌┘├─ ├┬┘"
LOCATE 3,12:?"└─┘┴ ┴┴ ┴└─┘ └─┘└┘ └─┘┴└┘"
WAIT 60
GOSUB @BTNWAIT
BGMSTOP
RETURN

@CHARA0
COLOR 7
RESTORE @CHARA0D
FOR QQQ=0 TO 14
READ RED$
LOCATE CRX,CRY+QQQ:? RED$
NEXT QQQ
COLOR 0
RETURN
@CHARA0D
DATA " ┝┿┿┿┰"," ┿┸┥┥┿","┝┿Р Р┿┰"," ┥л▽к┸"," ┝┿┿И┰"," ┿┿┿┿┿"," ┿┥┿┸┿"," ┿┝┿┰┿"
DATA " ○┿┿┿○"," ┿┿┿┿┿"," ┿┿┿┿┿","  ╂ ╂","  ╂ ╂","  ╂ ╂","  ┿ ┿"


@CHARA0B
COLOR 7
LOCATE CRX,CRY+2:?"┝△":LOCATE CRX,CRY+3:?"┝┸л-"
LOCATE CRX,CRY+4:?"┥┿":LOCATE CRX,CRY+5:?" ┥"
LOCATE CRX,CRY+6:?"  ":LOCATE CRX,CRY+7:?"  "
LOCATE CRX,CRY+8:?" ┝"
COLOR 0
RETURN

@CHARA0S
COLOR 7
RESTORE @CHARA0SD
FOR QQQ=0 TO 14
READ RED$
LOCATE CRX,CRY+QQQ:? RED$
NEXT QQQ
COLOR 0
RETURN
@CHARA0SD
DATA " ┝┿┿┿┰"," ┿┸┥┥┿","┝┿Р -┿┰"," ┥лvк┸"," кж жл","и ╂╂╂ з","иил кзз","иик лзз"
DATA " u┿┿┿u"," и┥┿┿ "," ии┥┿ "," иии┥ "," ии зз"," ии зз","  LзLз"

@CHARA1
COLOR 4
RESTORE @CHARA1D
FOR QQQ=0 TO 8
READ RED$
LOCATE CRX,CRY+QQQ:? RED$
NEXT QQQ
COLOR 0
RETURN
@CHARA1D
DATA " кжжжл","к ллл л","зк┃ ━ли","л└ ▽ ┘к"," к┥И┸л"," ○з▼и○"," к┝┿┰л"," ж┿ ┿ж","  ╂ ╂"

@CHARA1B
COLOR 4
LOCATE CRX,CRY+2:?"з△":LOCATE CRX,CRY+3:?"лзз"
LOCATE CRX,CRY+4:?" л":LOCATE CRX,CRY+5:?"  "
COLOR 0
RETURN

@CHARA1S
COLOR 4
RESTORE @CHARA1SD
FOR QQQ=0 TO 8
READ RED$
LOCATE CRX,CRY+QQQ:? RED$
NEXT QQQ
COLOR 0
RETURN
@CHARA1SD
DATA " кжжжл","к ллл л","зк┷ ┷ли","л└ ▽ ┘к"," к┰ ┝л"," u┿┿┿u"," и┥┿┸з"," ии зз","  LзLз"

@CHARA2
COLOR 9
RESTORE @CHARA2D
FOR QQQ=0 TO 12
READ RED$
LOCATE CRX,CRY+QQQ:? RED$
NEXT QQQ
COLOR 0
RETURN
@CHARA2D
DATA "  ┝┿┰"," ┝┸ハ┥┰"," ●□ж□●"," ●л-к●"," б┥┿┸б"," к ▼Ил"
DATA "ккз илл","○к┝┿┰л○","ик┿ ┿лз"," л┿й┿к","  ┿ ┿","  ┿ ┿","  ╂ ╂"

@CHARA2B
COLOR 9
LOCATE CRX,CRY+2:?" △":LOCATE CRX,CRY+3:?"ккл^"
LOCATE CRX,CRY+4:?"лж":LOCATE CRX,CRY+5:?" л"
LOCATE CRX,CRY+6:?"  ":LOCATE CRX,CRY+7:?" к"
COLOR 0
RETURN

@CHARA2S
COLOR 9
RESTORE @CHARA2SD
FOR QQQ=0 TO 12
READ RED$
LOCATE CRX,CRY+QQQ:? RED$
NEXT QQQ
COLOR 0
RETURN
@CHARA2SD
DATA "  ┝┿┰"," ┝┸ハ┥┰"," ●Ш Ш●"," ●□ж□●"," бк лб"," к┿┿┿л"
DATA "ккз илл","uи┥┿┸зu"," ии зз"," ии зз"," ии зз"," ии зз","  LзLз"

@CHARA3
COLOR 12
RESTORE @CHARA3D
FOR QQQ=0 TO 11
READ RED$
LOCATE CRX,CRY+QQQ:? RED$
NEXT QQQ
COLOR 0
RETURN
@CHARA3D
DATA " ┝┿┿┿┰"," ┸┥┥┥┥","┝│・ ・│┰","┸└ ▽ ┘┥"," к┥┿┸л","к( ▼И)л"
DATA "○ з и ○"," к┝┿┰л","ик┿ ┿лз"," л┿й┿к","  ┿ ┿","  ╂ ╂"

@CHARA3B
COLOR 12
LOCATE CRX,CRY+2:?"┝△":LOCATE CRX,CRY+3:?"кк -"
LOCATE CRX,CRY+4:?"лж":LOCATE CRX,CRY+5:?" "
LOCATE CRX,CRY+6:?" "
COLOR 0
RETURN

@CHARA3S
COLOR 12
RESTORE @CHARA3SD
FOR QQQ=0 TO 11
READ RED$
LOCATE CRX,CRY+QQQ:? RED$
NEXT QQQ
COLOR 0
RETURN
@CHARA3SD
DATA " ┝┿┿┿┰"," ┸┥┥┥┥","┝│・ ・│┰","┸└///┘┥"," кй йл","к(ймй)л"
DATA "uийййзu"," илйкз"," ии зз"," ии зз"," ии зз","  LзLз"

@MCVIEW0
LOCATE MCX,MCY+0:?"┝┸ж┥┰":LOCATE MCX,MCY+1:?"┿┰ ┝┿"
LOCATE MCX,MCY+2:?"┥┥┿┸┸":LOCATE MCX,MCY+3:?"┰┝┿┰┝"
LOCATE MCX,MCY+4:?"┿┸▼┥┿"
RETURN

@MCVIEW1
LOCATE MCX,MCY+0:?"    ▲    ":LOCATE MCX,MCY+1:?"    ▲    "
LOCATE MCX,MCY+2:?"  △┝│┰△  ":LOCATE MCX,MCY+3:?"  ┿┿И┿┿  "
LOCATE MCX,MCY+4:?"┥┿┿   ┿┿┸":LOCATE MCX,MCY+5:?"  ╂┏ ┏╂  "
LOCATE MCX,MCY+6:?"  к│ж│л  ":LOCATE MCX,MCY+7:?"  ж│ж│ж  "
RETURN

@MCVIEW2
LOCATE MCX,MCY+0:?"   ┌─┐   ":LOCATE MCX,MCY+1:?"  ┌┼△┼┐  "
LOCATE MCX,MCY+2:?"┝┝┿┿┿┿┿┰┰":LOCATE MCX,MCY+3:?"┿┿┿┿┿┿┿┿┿"
LOCATE MCX,MCY+4:?"┥┷┷┷┷┷┷┷┸":LOCATE MCX,MCY+5:?" ┝┿┰ ┝┿┰ "
RETURN

'サフ゛タイトルテ゛モ<---------------
@OPMOVE
OPW=1
COLOR OPC
FOR OPX=0 TO 31
LOCATE OPX,11:?"┿";
WAIT OPW
NEXT OPX
FOR OPY=10 TO 0 STEP -1
LOCATE 0,OPY:?"┿"*32;
LOCATE 0,22-OPY:?"┿"*32;
LOCATE 0,OPY+1:?" "*32;
LOCATE 0,21-OPY:?" "*32;
WAIT OPW
NEXT OPY
RETURN

'セツメイ ヒョウシ゛<---------------
@GUIDE
IF BUTTON()!=0 THEN @GUIDE
GWT=2
RESTORE ("@GUIDE"+STR$(GM2))
@GLOOP
READ GD$
IF GD$=="*" THEN @GEND
LOCATE 0,23
FOR GDX=0 TO LEN(GD$)-1
GDM$=MID$(GD$,GDX,1)
IF GDM$!="@" THEN ? GDM$;:GOTO @GSKIP
COLOR VAL("&H0"+MID$(GD$,GDX+1,1)):GDX=GDX+1
@GSKIP
NEXT GDX
IF BUTTON()!=0 THEN GWT=0
WAIT GWT
?
GOTO @GLOOP
@GEND
RETURN

'タイトル フェ-ト゛<---------------
@OPFADE
CLS
FOR CT=1 TO 0 STEP -1
COLOR TCL(CT)
FOR QQQ=0 TO 9
GOSUB @BILLVIEW
GOSUB @BILLMOVE
WAIT 2
NEXT QQQ
NEXT CT
RETURN

'アイテム トリタ゛シ ル-チン<----------
@ITEM
_ITP=0:_ITEM$=""
FOR _ITX=0 TO LEN(ITEM$)
_ITC$=MID$(ITEM$,_ITX,1)
_ITP=_ITP+(_ITC$==",")
_ITEM$=_ITEM$+MID$(_ITC$,(_ITP!=ITEM)+(_ITC$==","),1)
NEXT _ITX
ITEM$=_ITEM$
RETURN

@GUIDE1
DATA "@7───────────────────────────────"
DATA "     STAGE1「カ゛ッタイ」 ル-ル セツメイ"
DATA "───────────────────────────────"
DATA "@53キ ノ メカ カ゛ ハ゛ラハ゛ラニ ウコ゛キマス。"
DATA "タテ イチレツ ニ ナランタ゛ トキ ノミ"
DATA "カ゛ッタイ カノウ テ゛ス。(キイロク ヒカリマス)"
DATA " "
DATA "@3Аホ゛タン テ゛ カ゛ッタイ ヲ カイシ シマス。"
DATA "@5 "
DATA "タイミンク゛カ゛ アエハ゛ カ゛ッタイ カ゛ カンリョウ シテ"
DATA "@4ステ-シ゛クリア@5 テ゛ス。"
DATA " "
DATA "3カイ シッハ゜イ シタラ @Bケ゛-ムオ-ハ゛-@5 テ゛ス。"
DATA "@7───────────────────────────────"
DATA " "," "," "," "," "," "," "," "," "
DATA "*"

@GUIDE2
DATA "@9───────────────────────────────"
DATA "     STAGE2「ユウト゛ウ」 ル-ル セツメイ"
DATA "───────────────────────────────"
DATA "@5スタ-ト スルト          │"
DATA "カ゛メン ミキ゛シタ カラ     │    @C●@A──"
DATA "@5ワイヤ- ツキ ノ ハ゜ンチ カ゛ │    ↑ ↑"
DATA "トヒ゛タ゛シマス。         │ @Cハ゜ンチ @Aワイヤ-"
DATA " "
DATA "@3ハ゜ンチ ノ シンコウホウコウ ニ タイシテ、"
DATA "Кホ゛タン テ゛ ヒタ゛リ ニ、нホ゛タン テ゛ ミキ゛ ニ"
DATA "90ト゛ ホウコウ ヲ カエマス。"
DATA "@5 "
DATA "ヒトヤ カヘ゛ヤ ワイヤ-ニ    │ @9М@5・・・@9UFO"
DATA "@5アタラナイヨウニ UFOヲ ネラッテ│ "
DATA "ハ゜ンチ ヲ            │ @3г@5・・・@3ヒト"
DATA "@5ユウト゛ウ シテクタ゛サイ。    │ @8╂@5・・・@8カヘ゛"
DATA "@5 "
DATA "10キ ノ UFO ヲ ケ゛キタイ スレハ゛"
DATA "@4ステ-シ゛クリア@5 テ゛ス。"
DATA " "
DATA "シッハ゜イ シタラ @Bケ゛-ムオ-ハ゛-@5 テ゛ス。"
DATA "@9───────────────────────────────"
DATA " "
DATA "*"

@GUIDE3
DATA "@4───────────────────────────────"
DATA "    STAGE3「カイシ゛ュウ」 ル-ル セツメイ"
DATA "───────────────────────────────"
DATA "@5フ゜チコロホ゛、カイシ゛ュウ、"
DATA "トモニ 3ツノ コウト゛ウハ゜タ-ン カ゛ アリマス。"
DATA " "
DATA "@3●コウケ゛キ  ●ホ゛ウキ゛ョ ●タメ"
DATA "(Аホ゛タン) (Бホ゛タン) (Фホ゛タン)"
DATA "@5 "
DATA "マス゛ カイシ゛ュウ カ゛ コウト゛ウ ヲ シメスノテ゛、"
DATA "ソレニ アワセタ コウト゛ウヲ エランテ゛クタ゛サイ。"
DATA " "
DATA "「タメ」ニヨリ、POWカ゛3ツマテ゛ チクセキ サレマス。"
DATA "POWカ゛オオイホウノ コウト゛ウ カ゛ ユウセン サレマス。"
DATA " "
DATA "カイシ゛ュウノ エネルキ゛-ヲ 0 ニ スレハ゛"
DATA "@4ステ-シ゛クリア@5 テ゛ス。"
DATA " "
DATA "フ゜チコロホ゛ノ エネルキ゛-カ゛ 0 ニ ナッタラ"
DATA "@Bケ゛-ムオ-ハ゛-@5 テ゛ス。"
DATA "@4───────────────────────────────"
DATA " "," "
DATA "*"

@GUIDE4
DATA "@C───────────────────────────────"
DATA "   LAST STAGE「トツニュウ」 ル-ル セツメイ"
DATA "───────────────────────────────"
DATA "@5ウエ カラ シタ ヘ スクロ-ル シマス。"
DATA "@3 "
DATA "               @CГ@3 シタイト゛ウ"
DATA "               ↑"
DATA "     ヒタ゛リイト゛ウ ←П→ ミキ゛イト゛ウ"
DATA "               ↓"
DATA "              @C┝ж┰"
DATA "              ┥┿┸@3 ウエイト゛ウ"
DATA "@C              ├б┤"
DATA "@5 "
DATA "カヘ゛(@A╂@5)ハ サユウイト゛ウ テ゛ サケテ、"
DATA "セマル ショウカ゛イフ゛ツ ハ シ゛ョウケ゛ テ゛ サケマス。"
DATA " "

DATA "@A  ───@5・・・ウエニサケル   @A┿┿┿@5・・シタニサケル"
DATA " "
DATA "ノコリキョリ カ゛ 0ニナレハ゛ @4ステ-シ゛クリア@5 テ゛ス。"
DATA "ハ゛リア カ゛ 0ニナッタラ @Bケ゛-ムオ-ハ゛-@5 テ゛ス。"
DATA "@C───────────────────────────────"
DATA " "
DATA "*"
}}
#endregion

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

* CHECKER FLAG (ひとことコメント) [#o4d62497]
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は[[掲示板>Board]]へ)
- ''縁茶'' : プチコシリーズ大好きです!(笑) これからも期待してます (&new{2014/08/23 (土) 22:09:08};)
- ''投稿者'' : >緑茶さん:ありがとうございます! 正直そろそろネタ切れしそーですが(^^;)、がんばります♪ (&new{2014/08/23 (土) 23:05:08};)

#comment

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