#title(投稿プログラム : プチコちゃんX) 2014年7月26日投稿 / 投稿者 : まげ / &tag(投稿プログラム,ゲーム,QRコード,mkII専用,アクション,プチコちゃん); #contents 今日のアクセス：&counter(today); トータルアクセス：&counter(total); * 概要 [#fa861188] #ref(pckx_op.jpg) ペットの猫「コチコ」が、謎の館「Ｘ」に迷い込んだらしい――それを聞いたプチコは、単身館へと乗り込み、秘かに鍛えていた体技を頼りに、先へ先へと進む…。&br; 飛んでくる障害物を、対応する技で撃退しつつ先へと進む、横スクロールアクションゲームです。&br; ※「プチコちゃん」はオリジナルキャラであり、同名の他のキャラとは無関係です。 * 遊び方 [#h5ce0a30] ** タイトル画面 [#kbe102d5] Aボタンでゲーム開始、Ｘボタンで終了します。&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・[[【プチコＲｏｏｍ】: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