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

Toukou/ゴールへ の変更点

パンくずリスト


#title(投稿プログラム : ゴールへ)
#contents
2013年04月20日投稿
/ 投稿者 : 0605
/ &tag(投稿プログラム,mkII専用);
/ &tag(投稿プログラム,QRコード,mkII専用);

* 概要 [#tc446ffe]
初投稿プログラムです。~
バグがあるかもしれませんがご了承ください~
コースの追加方法は23行目のAAはコース数~
最後のほうにDATAを書き込む~
159行目等にある横棒は目安たて12~

このプログラムの追加データをどんどん公開してもいいです!~~~
(これはBGとのあたり判定をテストしようと思って作ったのにゲームをたしたものです)
* スクリーンショット・動画 [#l4030af1]
&ref(PRG_JUGA_SS0.png);
&ref(PRG_JUGA_SS1.png);
* QR コード  JUGA [#d231ab15]
プチコンmkII 向けの QR コードです。~
&ref(QR1.jpg);
* プログラムリスト [#g12290fd]
#basic{{
CLEAR:ACLS
DIM XT1(256),XT2(256),YT1(192)
BGMSTOP
@TOP
LOCATE 0,8
?"   ■■■■■ ■ ■     ■ ■     ■"
?"       ■  ■ ■    ■ ■    ■ ■"
?"       ■         ■ ■       ■"
?"       ■      ■■ ■ ■  ■     ■"
?"       ■         ■ ■ ■       ■"
?"   ■■■■■         ■ ■■         ■"
RE=1
@BU
IF BUTTON(2)==16 GOTO @ST
IF BUTTON(2)==4 AND RE>=2 THEN RE=RE-1
IF BUTTON(2)==8 AND RE<=5 THEN RE=RE+1
LOCATE 9,20:?"レヘ゛ル:"RE" "*20
WAIT 1
GOTO @BU

@ST
'--コ-スサイタ゛イスウ◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎
AA=2
'--コ-スサイタ゛イスウ◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎

'--マッフ゜カキコミヘ
DIM MAP(16,12)

@STE
CLS:KO=KO+1:IF AA+1==KO THEN ?"コ-スクリアオメテ゛トウ":WAIT 600:END
GOSUB @DR

'--サ゛ヒョウヘンカン
FOR X=0 TO 255
XT1(X)=FLOOR(X/16)
XT2(X)=FLOOR((X+15)/16)
NEXT X
FOR Y=0 TO 191
YT1(Y)=FLOOR(Y/16)
NEXT

@BGM
BGMPLAY 22
PX=16:PY=160
SPSET 0,64,2,0,0,0
SPANIM 0,4,8
SPSET 1,156,0,0,0,0
SPANIM 1,4,8
SPOFS 1,RND(256),RND(193)
SPSET 2,141,8,0,0,0
HP=105

'──────────────メイン
@MEINN
'--シ゛ャンフ゜ヘ?
IF PST==0 THEN GOSUB @PJUMP

'--テキ
TH=ATAN(PY-EY,PX-EX)
EVX=COS(TH)*RE
EVY=SIN(TH)*RE
EX=EX+EVX:EY=EY+EVY
SPOFS 2,EX,EY
IF SPHITSP(0,2)==1 THEN BEEP 0:HP=HP-5
IF HP==0 THEN BGMPLAY 6:LOCATE 9,9:?"GAME OVRE":WAIT 600:END
LOCATE 0,0:?"HP:"HP" "*2

'--イト゛ウショリヘ
GOSUB @PMOVE

VSYNC 1

IF SPHITSP(0,1)==1 THEN BGMPLAY 5:WAIT 60:GOTO @STE

GOTO @MEINN
'──────────────メイン

'--シ゛ャンフ゜?
@PJUMP
K=BUTTON(2)
IF K AND 16 THEN :VY=-10:PST=1
RETURN

'--イト゛ウショリ
@PMOVE
K=BUTTON()
IF K==0 THEN VX=0
IF K AND 8 THEN PX=PX+2:PD=0:SPCHR 0,64
IF K AND 4 THEN PX=PX-2:PD=1:SPCHR 0,72
IF PX>240 THEN PX=240
IF PX<0 THEN PX=0

'--オオキクスルホト゛トハ゛ナイ
IF PST==1 THEN VY=VY+0.8

PY=PY+VY
IF PY<0 THEN SPOFS 0,PX,PY:RETURN

'--シ゛メンアル?
ML=MAP(XT1(PX),YT1(PY+16))
MR=MAP(XT2(PX),YT1(PY+16))

IF PST==0 AND ML==0 AND MR==0 THEN PST=1
F=(PST==1 AND VY>4)
IF F==1 AND ML==1 THEN PY=YT1(PY)*16:VY=0:PST=0
IF F==1 AND MR==1 THEN PY=YT1(PY)*16:VY=0:PST=0
SPOFS 0,PX,PY
RETURN

'--マッフ゜カキコミ
@DR
COLOR 4
LOCATE 5,0:?"■"*12
FOR Y=0 TO 11
READ MAP$
FOR X=0 TO 15
M$=MID$(MAP$,X,1)
MX=X*2:MY=Y*2
IF M$=="1" THEN BG=94 :GOSUB @DRA
IF M$=="0" THEN BG=30 :GOSUB @DRA

COLOR 11
LOCATE Y+5,0:?"■"
COLOR 0
WAIT 1

MAP(X,Y)=VAL(M$)
NEXT X
NEXT Y
WAIT 1
CLS
RETURN

@DRA
BGPUT 1,MX  ,MY  ,BG   ,8,0,0
BGPUT 1,MX+1,MY  ,BG+1 ,8,0,0
BGPUT 1,MX  ,MY+1,BG+32,8,0,0
BGPUT 1,MX+1,MY+1,BG+33,8,0,0
RETURN



@MAP1
'ATA "----------------"
DATA "0000000000000000"
DATA "0000000100000000"
DATA "0010000000100000"
DATA "0000000000000100"
DATA "0000000000000000"
DATA "1000000001001001"
DATA "0000000100000000"
DATA "0000000000000000"
DATA "0010000010001000"
DATA "0000000000000000"
DATA "0000100000100000"
DATA "1111111111111111"

@MAP2
'ATA "----------------"
DATA "0000000000000000"
DATA "0000000001000000"
DATA "0000000000000000"
DATA "0000000000000000"
DATA "0000000000010000"
DATA "0000000000000000"
DATA "0000000000000000"
DATA "0000000010000000"
DATA "0000000000000000"
DATA "0000010000000000"
DATA "0000000000000000"
DATA "1111111111111111"
}}

* CHECKER FLAG (ひとことコメント) [#ge1abc9a]
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は[[掲示板>Board]]へ)
- ''道産子'' : フォントは漢字に対応しないので直しました。 (&new{2013/04/20 (土) 23:59:48};)
- ''道産子'' : あと、ページ名の頭はToukou/です。直しました。 (&new{2013/04/21 (日) 00:02:12};)
- ''投稿者'' : ありがとうございます。あれページの先頭Toukouにしなかったっけ?半角はだめなの? (&new{2013/04/21 (日) 08:14:44};)
- ''道産子'' : Tは大文字でないといけないです。 (&new{2013/04/21 (日) 12:09:38};)
- ''ルミダ(ヤッフー)'' : いいですね。参考になりました。 (&new{2013/04/21 (日) 12:29:53};)
- ''天郷思音(あまさとしおん)'' : バグなど  (&new{2014/03/27 (木) 13:22:22};)
--"GAME OVRE"、綴りがおかしい。"GAME OVER"じゃない?
--ゲームオーバー時にHPが表示上は0になってない。
--スターが地面より下に表示されてゴール不能な時がある。
--ボタン受け時はWAITよりVSYNCのほうがいいような(ほぼ実害はないけど)

#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