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

Toukou/プチコちゃんX の変更点

パンくずリスト


#title(投稿プログラム : プチコちゃんX)
2014年7月26日投稿 / 投稿者 : まげ / &tag(投稿プログラム,ゲーム,QRコード,mkII専用,アクション,プチコちゃん);

#contents

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

* 概要 [#fa861188]
#ref(pckx_op.jpg)
ペットの猫「コチコ」が、謎の館「X」に迷い込んだらしい――それを聞いたプチコは、単身館へと乗り込み、秘かに鍛えていた体技を頼りに、先へ先へと進む…。&br;
飛んでくる障害物を、対応する技で撃退しつつ先へと進む、横スクロールアクションゲームです。&br;

※「プチコちゃん」はオリジナルキャラであり、同名の他のキャラとは無関係です。

* 遊び方 [#h5ce0a30]
** タイトル画面 [#kbe102d5]
Aボタンでゲーム開始、Xボタンで終了します。&br;

** ゲーム画面 [#u2f63879]
#ref(pckx_gm.jpg)
画面左から障害物が飛んできます。障害物は、上段を飛ぶ「X」、中段を飛ぶ「A」、下段を飛ぶ「B」、の3種類です。&br;
プレイヤーは、障害物の接近のタイミングを計って、障害物に対応したボタン(X、A、B)を押しましょう。&br;
タイミングが合っていれば障害物を破壊できますが、間違うと、または何もしないでいると、障害物がプチコに当たり、ダメージとなります。&br;

障害物を10個破壊する毎にスピードアップします。40個破壊すると、スピードがリセットとなります。&br;
エンディングはないので、高得点を出すことを目的としてください。

* 戯れ言 [#w687604a]
コンソール表現で行うパロディは、また格別の悦びです。MSXは、感覚的には「新参者」です。&br;

プチコちゃんシリーズ作品です。ズバリ「タイニー・スパルタンX」です(^^;)。こういう「再現系」はするまいと思っていたのに、格闘アクションを作ろうと色々イジっているうちに、いつの間にかこーなっていたのですから、元ゲームの偉大さを思い知ります。…ま、実際は、「タイニー」の言葉さえおこがましい内容ですけど。&br;
さて、今回のお色気要素は、「パンモロ」(もはやチラではない)。いつもの制服姿だってのに、プチコったら暴れる暴れる(^^;)。&br;

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

* アンケート [#df5165ea]
一番好きな「スパルタンX」は?
#vote(映画[3],パソコン版[0],アーケード版[6],ファミコン版[6],知らない[6])
#vote(映画[3],パソコン版[0],アーケード版[6],ファミコン版[7],知らない[6])

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

|&ref(qr000.gif);|&ref(qr001.gif);|&ref(qr002.gif);|&ref(qr003.gif);|

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

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

'ショキセッテイ<------------------
TB$="@S9@E10@N2450@T70"
DIM P$(14,13),E$(4,5),K$(6,5)
RESTORE @PCK
FOR Q=0 TO 13:FOR I=0 TO 12
READ P$(Q,I)
NEXT I:NEXT Q
RESTORE @TEKI
FOR Q=0 TO 3:FOR I=0 TO 4
READ E$(Q,I)
NEXT I:NEXT Q
RESTORE @KCK
FOR Q=0 TO 5:FOR I=0 TO 4
READ K$(Q,I)
NEXT I:NEXT Q
EC(0)=64:EC(1)=16:EC(2)=32
W1$="к "*16
W2$=" ┿      "*4

'タイトル<---------------------
@TITLE
IF BUTTON()!=0 THEN @TITLE
COLOR 0,10:CLS
?"                    йй    йййй"
?"                   ┝┰ л  ┝┿┸ к"
?"                  ┝┿┿┰ л┝┿┸ к "
?"     ┝┿┰         ┝┿┿┿┿┰ ┥┸ к  "
?"  ┿┿┿┿ ┿л┝┿┸л┿┿┿┿┥┿┿┿┿┿┰  к   "
?"  л  ┥┿┸  ┿     ┿ ┥┿┿┿┿┸  л   "
?"   л  ┿ ┿┿┿┿    ┿チ ┿┿┿┸ ┝┰ л  "
?"     ┝┸   ┿     ┿ャ ┿┿┸ ┝┿┿エックス"
?"  ┿┿┿┸  ┿┿┸  ┿┿┿┿ン ┿┸ ┝┿┿┿┿┰ л"
?"  жжжжжжжжжжжжжжжжжжжжжжжжжжжж"
LOCATE 3,23:?"(C)MAGE/Studio LOVEMARINE";
COLOR 3
LOCATE 3,15:?"Аスタ-ト":LOCATE 24,15:?"Фエント゛"

BGMPLAY 25

EX=11:EY=10:P=0:PP=0
@TILOOP
GOSUB @PCKVIEW
IF BUTTON() AND 16 GOTO @DEMO
IF BUTTON() AND 64 GOTO @QUIT
PP=PP+1
IF PP>8 THEN PP=0:P=P+1
IF P>5 THEN P=0
WAIT 1
GOTO @TILOOP

'テ゛モ<----------------------
@DEMO
BGMSTOP 0,1
BEEP 8
P=RND(3)*2+6
GOSUB @PCKVIEW
WAIT 10
P=P+1
GOSUB @PCKVIEW
WAIT 20
COLOR 0,10:CLS
WAIT 30

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

?:?" フ゜チコチャン ノ カイネコ <コチコ> カ゛
?" イナクナッテシマッタ!"
?:?" 「ナソ゛ ノ ヤカタ [エックス] ニ イルラシイ・・・」"
?:?" ソンナ シ゛ョウホウ ヲ エタ フ゜チコチャン ハ"
?" サッソク ムカッタ・・・。"
COLOR 3
LOCATE 8,23:?"ナニカ ホ゛タンヲ オシテクタ゛サイ";
BGMPLAY 5
EX=20:EY=9:P=0:PP=0
KX=4:KY=17:KP=3
@DLOOP
GOSUB @PCKVIEW
GOSUB @KCKVIEW
IF BUTTON()!=0 GOTO @RESET
WAIT 1
PP=PP+1
IF PP>5 THEN PP=0:P=P+1:KP=KP+1
IF P>5 THEN P=0
IF KP>5 THEN KP=3
GOTO @DLOOP

'スタ-ト<---------------------
@RESET
GSC=0:MC=0:BC=1
@START
IF BUTTON()!=0 THEN @START

EX=23:EY=7:P=2:J=0
TX=0:TY=6:HK=0
EN=RND(3):ES=RND(5)/10+1
WT=5:BT=-1
BX=0:BH=0
DT=0:SC=0

COLOR 0,0:CLS
BGMSTOP
WAIT 30
FOR I=0 TO 4
GOSUB @STAGE
GOSUB @PCKVIEW
BEEP 9:WAIT 5
P=P+1:IF P>5 THEN P=0
NEXT I
WAIT 50

BGMPLAY 27

'メインル-フ゜<------------------
@LOOP
GOSUB @STAGE
GOSUB @PCKVIEW
IF SC==40 THEN @CLEAR
GOSUB @ENEMY

'ホ゛タン----
BN=BUTTON()
IF BN==BT THEN @PASS
BT=BN
IF BT==16 OR BT==32 OR BT==64 THEN GOSUB @MOVE
'スクロ-ル----
@PASS
W1$=RIGHT$(W1$,1)+LEFT$(W1$,31)
W2$=RIGHT$(W2$,1)+LEFT$(W2$,31)
P=P+1
IF J==0 AND P>5 THEN P=0
IF BH==1 THEN BX=BX+1
IF BX>29 THEN BX=0:BH=0:BC=BC+1
DT=DT+1
IF DT%110==0 THEN BH=1
WAIT WT
GOTO @LOOP

'クリア<----------------------
@CLEAR
IF BUTTON()!=0 THEN @CLEAR

BGMSTOP 0,1
WAIT 60
BEEP 45
FOR EX=23 TO 12 STEP -1
GOSUB @STAGE:GOSUB @PCKVIEW
P=P+1:IF P>5 THEN P=0
WAIT 5
NEXT EX
WAIT 30
EX=12
P=0
GOSUB @STAGE:GOSUB @PCKVIEW
COLOR 1,10
LOCATE EX+2,EY+1:?"┝┿┿┿┰"
LOCATE EX+2,EY+2:?"┿┸┸┸┸"
LOCATE EX+1,EY+3:?"┝┸ ・ │  "
LOCATE EX+1,EY+4:?"┸└  ・┘"
WAIT 60
BEEP 69
WAIT 20
GOSUB @STAGE:GOSUB @PCKVIEW
COLOR 1,10
LOCATE EX+3,EY+4:?"▽"
LOCATE EX+2,EY-1:?"л и  к"
WAIT 30
FOR EX=11 TO 0 STEP -1
GOSUB @STAGE:GOSUB @PCKVIEW
COLOR 1,10
LOCATE EX+3,EY+4:?"▽"
LOCATE EX+2,EY-1:?"コチコ〜"
P=P+1:IF P>5 THEN P=0
WAIT 5
NEXT EX
GOSUB @STAGE
WAIT 60
GOTO @START

'ケ゛-ムオ-ハ゛-<----------------
@END
BGMPLAY 6
GOSUB @STAGE:GOSUB @PCKDOWN
WAIT 60
KY=15:KP=0
FOR KX=0 TO 5
GOSUB @STAGE:GOSUB @PCKDOWN:GOSUB @KCKVIEW
COLOR 0,0
KP=KP+1:IF KP>2 THEN KP=0
WAIT 10
NEXT KX
WAIT 20
KP=3
FOR KX=5 TO 0 STEP -1
GOSUB @STAGE:GOSUB @PCKDOWN:GOSUB @KCKVIEW
COLOR 0,0
KP=KP+1:IF KP>5 THEN KP=3
WAIT 10
NEXT KX
GOSUB @STAGE:GOSUB @PCKDOWN
WAIT 30
COLOR 13,1
LOCATE 12,9:?"GAME OVER"
GOSUB @PCKDOWN
COLOR 1,10
LOCATE 17,18:?"・"
LOCATE 16,19:?" "
LOCATE 13,15:?"エ?"
WAIT 60
COLOR 3
LOCATE 9,12:?"Аサイフ゜レイ   Хタイトル"


@EWAIT
IF BUTTON(2) AND 16 GOTO @RESET
IF BUTTON(2)!=128 GOTO @EWAIT
GOTO @TITLE

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

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

END


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

'フ゜チコ ヒョウシ゛<---------------
@PCKVIEW
COLOR 1,10
FOR II=0 TO 12
LOCATE EX,EY+II:? P$(P,II);
NEXT II
COLOR 0,0
RETURN

'マト ショリ<-------------------
@ENEMY
GOSUB @EVIEW
TX=TX+ES
IF TX<22 THEN @EPASS
IF J==1 AND EC(EN)==BT AND MM>2 AND MM<7 THEN @HIT
@MISS
MC=MC+1
TALK TB$+"イ%タ'!"
P=12
GOSUB @PCKVIEW
COLOR 13,10
LOCATE 23,10:?"л│к"
LOCATE 23,11:?"─┼─"
LOCATE 23,12:?"к│л"
COLOR 0,0
WAIT 20
IF MC==10 THEN @END
P=13
GOSUB @PCKVIEW
P=0
GOTO @ESKIP
@HIT
BEEP 53
SC=SC+1:GSC=GSC+1:MM=7
IF SC%10==0 THEN BEEP 57:WT=WT-1
IF WT<2 THEN WT=2
HK=1:TX=TX-1:GOSUB @EVIEW
HK=0
@ESKIP
WAIT 10
TX=0
EN=RND(3)
ES=RND(5)/10+1
@EPASS
COLOR 0,0
RETURN

'マト ヒョウシ゛<-----------------
@EVIEW
COLOR 7,10
IF HK==1 THEN EV=3 ELSE EV=EN
FOR II=0 TO 4
LOCATE TX,TY+EN*4+II:? E$(EV,II)
NEXT II
RETURN

'ステ-シ゛ヒョウシ゛<---------------
@STAGE
COLOR 9,0:LOCATE 1,1:?"スコア:";GSC
COLOR 7,0:LOCATE 17,1:?"ノコリ:";"Ж"*(10-MC);" ";
COLOR 5,4
LOCATE 0,3:? W1$;
LOCATE 0,4:? "┿"*32;
COLOR 8,7
LOCATE 0,20:? W1$;
LOCATE 0,21:? "┿"*32;
COLOR 2,14
LOCATE 0,22:? W2$;
COLOR 0,10
FOR II=5 TO 19
LOCATE 0,II:? " "*32;
NEXT II
IF BH==1 THEN GOSUB @HASIRA
COLOR 0,0
RETURN

'ハシラ ヒョウシ゛<----------------
@HASIRA
COLOR 13
FOR II=5 TO 19
LOCATE BX,II:?"┿┿┿"
NEXT II
COLOR 1,15
LOCATE BX+1,6:? BC
COLOR 0,0
RETURN

'フ゜チコ コウケ゛キ<---------------
@MOVE
J=1
IF BT==16 THEN P=6:TALK TB$+"ムン%!"
IF BT==64 THEN P=8:TALK TB$+"ト-!"
IF BT==32 THEN P=10:TALK TB$+"ハ-!"
MM=0
@MLOOP
GOSUB @STAGE:GOSUB @PCKVIEW:GOSUB @ENEMY
WAIT WT
MM=MM+1
IF MM==3 THEN P=P+1
IF MM==7 THEN P=0
IF MM<8 GOTO @MLOOP
J=0:P=0
RETURN

'フ゜チコ タ゛ウン<----------------
@PCKDOWN
COLOR 1,10
LOCATE 14,16:?" ┝┿┿┿┰"
LOCATE 14,17:?" ┥┥┥┥┿ж┰"
LOCATE 14,18:?"┝│ <й┥┰┿й"
LOCATE 14,19:?"<○`○йй┝┿┰┿╂"
COLOR 0,0
RETURN

'コチコ ヒョウシ゛<----------------
@KCKVIEW
COLOR 0,10
FOR II=0 TO 4
LOCATE KX,KY+II:? K$(KP,II);
NEXT II
COLOR 0,0
RETURN


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

@PCK
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 "   ╂     "

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 "         "

DATA "         ","         ","         "
DATA "  ┝┿┿┿┰  "," ┰┿┿┿┿┿┝ "," ┥┿┿┿┿┿┸ "
DATA " ○└▼▼▼┘  "," лжлжйз  ","  жзжи   "
DATA "  ┥┿┿┿┸  "," ижлйк   ","  ┿жлл   "
DATA "  ╂  л┿╂ "

DATA "         ","         ","         "
DATA "  ┝┿┿┿┰  ","  ┥┥┥┥┿  "," ┝│ ・ ┥┿┰"
DATA "  └Oй ┘  ","  имкжл  ","○ж( ┰○к  "
DATA " ж з и   "," иж┥┿┿┝  ","  ┿ж┥┿┸  "
DATA "  ╂  л┿╂ "

DATA "    ,  ',","   '┝┿┿┿┰","    ┥┥┥┥┿"
DATA "л│к┝│ <;┿","─┼─ └△й┝┸","к│л кмкжл"
DATA "   к┸(кки","   ○ и○ и","  ╂┿ж┥┿┿┿"
DATA "    жжкк┸","      ┿  ","      ╂  "
DATA "         "

DATA "         ","   ┝┿┿┰  ","   ┥┥┿┿  "
DATA "   │・┥┿  ","   └^ ┥┰ ","   ○кжл  "
DATA "   ( лл  ","    з ○  ","   ┝┿┿┰  "
DATA "   ┿┿┿┿  ","   иилл  ","    ┿ ┿  "
DATA "    ╂ ╂  "

@TEKI
DATA "кжжжл","з┐ ┌и","з┌─┘и"
DATA "з┘ └и","лйййк"

DATA "кжжжл","з┌─┐и","з├─┤и"
DATA "з┴ ┴и","лйййк"

DATA "кжжжл","з┌┐ и","з├┴┐и"
DATA "з└─┘и","лйййк"

DATA "л │ к","     ","─   ─"
DATA "     ","к │ л"

@KCK
DATA "   ^^ ","  {・・}"," кж и "
DATA "жзй кb"," b b  "

DATA "      ","   ^^ ","йк{・・}"
DATA " зй й ","d db b"

DATA "   ^^ ","  {・・}"," кж и "
DATA "кз  к "," bbbb "

DATA " ^^   ","{・・}  "," з жлй"
DATA "dл йи ","  d d "

DATA "      "," ^^   ","{・・}лй"
DATA " й йи ","d db b"

DATA " ^^   ","{・・}  "," з жл "
DATA " л  ил"," dddd "
}}
#endregion

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

* CHECKER FLAG (ひとことコメント) [#zd83b9df]
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は[[掲示板>Board]]へ)
- ''YHY'' : コンソール表現、イイですよね。コチコの動きが地味にスゴイです(笑) (&new{2014/07/26 (土) 21:33:37};)
- ''投稿者'' : >YHYさん;動きがあるとそれっぽく見えるとゆーのも、コンソール表現の醍醐味ですよね♪ (&new{2014/07/26 (土) 22:46:59};)
- ''投稿者'' : 「知らない」多いな〜(^^;)。これがジェネレーション・ギャップかぁ〜、 (&new{2014/11/06 (木) 22:59:42};)
- ''名無しさん'' : 元ネタわかります。ファミコンのあれですよね? (&new{2015/01/09 (金) 20:43:37};)
- ''投稿者'' : >名無しさん:それです(^^)。ちなみにファミコンのあれの元は、ジャッキー・チェンの同名の映画ってのは知ってました? (&new{2015/01/10 (土) 15:16:48};)

#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