2013年04月20日投稿 / 投稿者 : 0605 / タグ : 投稿プログラム QRコード mkII専用
初投稿プログラムです。
バグがあるかもしれませんがご了承ください
コースの追加方法は23行目のAAはコース数
最後のほうにDATAを書き込む
159行目等にある横棒は目安たて12
このプログラムの追加データをどんどん公開してもいいです!~~
(これはBGとのあたり判定をテストしようと思って作ったのにゲームをたしたものです)
- 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”
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)
表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.113 秒 | このページの最終更新 : 2022/09/20 (火) 12:44:18 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30