2013年8月14日投稿 / 投稿者 : ウッホゥ / タグ : 投稿プログラム RPG QRコード
このゲームは私の記念すべき初投稿でございます。中学生で初心者なので中々上手くいかない事がたくさんありますのでそこの所は勘弁してくださいまし。
このプログラムは、RPGの基本的な動作を確かめるためのプログラムです(会話、戦闘など)。 このプログラムリストを参考にしてゲームを作ってくれたらうれしいです。
✚=動く Ⓐ=扉を開ける、話しかける Ⓨ=会話進める セレクトボタン=プログラム終了
お待ちください。。。
2013/8.14 扉のバグ修正。
まだありません。
プチコンmkII 向けの QR コードです。
- ’***RPGフ゜ロク゛ラム***
- ACLS
- PNLTYPE ”OFF”
- BGPAGE 0
- ’セッテイ
- X=0
- Y=0
- SPSET 0,64,2,0,0,2
- SPANIM 0,4,10
- SPOFS 0,X,Y
- HP=50
- GOSUB @HAIKEI
- GOSUB @HITO
- GOSUB @TAKARA
- GOSUB @MONSTER
- GOSUB @HITO2
- GOSUB @TOBIRA
- BGMPLAY 12
- ’---アルク---
- @ARUKU
- ’シュウシ゛キ-゛
- B=BUTTON()
- IF B==1 AND Y>0 THEN Y=Y-1:S=76
- IF B==2 AND Y<175 THEN Y=Y+1:S=68
- IF B==4 AND X>0 THEN X=X-1:S=72
- IF B==8 AND X<239 THEN X=X+1:S=64
- ’ムキカ゛ カワッタラ スフ゜ライトヲ サイセッテイ
- IF B!=B0 THEN SPSET 0,S,2,0,0,2:SPANIM 0,4,10
- SPOFS 0,X,Y
- WAIT 1
- ’コンカイノ キ-ヲ ホソ゛ン スル
- B0=B
- IF SPHITSP(0,5) THEN GOSUB @IDOUMAE
- IF SPHITSP(0,1) THEN GOSUB @HANASUMAE
- IF SPHITSP(0,2) THEN GOSUB @AKERUMAE
- IF SPHITSP(0,4) THEN GOSUB @2HANASUMAE
- IF SPHITSP(0,3) THEN GOSUB @BATTLE
- GOTO @ARUKU
- ’---ハイケイ(BGカ゛ソ゛ウ)---
- @HAIKEI
- BGFILL 1,0,0,31,23,32,10,0,0
- ’クサ
- FOR K=1 TO 10
- KX=RND(31)
- KY=RND(23)
- BGPUT 1,KX ,KY ,214,8,0,0
- BGPUT 1,KX+1,KY ,215,8,0,0
- BGPUT 1,KX ,KY+1,246,8,0,0
- BGPUT 1,KX+1,KY+1,247,8,0,0
- NEXT K
- RETURN
- ’---スラミ(SPUカ゛ソ゛ウ)---
- @HITO
- SPSET 1,200,9,0,0,2
- SPOFS 1,56,45
- SPANIM 1,2,10
- RETURN
- ’フラク゛
- @HANASUMAE
- O=BUTTON()
- IF O AND 16 THEN GOTO @HANASU
- RETURN
- ’---スラミトハナス---
- @HANASU
- PNLSTR 2,18,”・・・・・・・・・・・・・・・・・・・・・・・・・・・・ ”
- PNLSTR 2,19,”・スラミ ・ ”
- PNLSTR 2,20,”・フ゜ルフ゜ル ・ ”
- PNLSTR 2,21,”・ ・ ”
- PNLSTR 2,22,”・ ・ ”
- PNLSTR 2,23,”・・・・・・・・・・・・・・・・・・・・・・・・・・・・ ”
- @HANASU2
- IF BUTTON()!=128 THEN GOTO @HANASU2
- PNLSTR 2,18,” ”*32
- PNLSTR 2,19,” ”*32
- PNLSTR 2,20,” ”*32
- PNLSTR 2,21,” ”*32
- PNLSTR 2,22,” ”*32
- PNLSTR 2,23,” ”*32
- GOSUB @HITO
- RETURN
- ’---タカラハ゛コ(SPUカ゛ソ゛ウ)---
- @TAKARA
- SPSET 2,57,2,0,0,2
- SPOFS 2,157,160
- RETURN
- ’フラク゛
- @AKERUMAE
- N=BUTTON()
- IF N AND 16 THEN GOTO @AKERU
- RETURN
- ’---ヤクソウ ケ゛ット---
- @AKERU
- SPCHR 2,56
- HP=HP+10
- PNLSTR 2,18,”・・・・・・・・・・・・・・・・・・・・・・・・・・・・ ”
- PNLSTR 2,19,”・ヤクソウヲ ミツケタ(HP10カイフク) ・ ”
- PNLSTR 2,20,”・ ・ ”
- PNLSTR 2,21,”・ ・ ”
- PNLSTR 2,22,”・ ・ ”
- PNLSTR 2,23,”・・・・・・・・・・・・・・・・・・・・・・・・・・・・ ”
- BEEP 5
- @AKERU2
- IF BUTTON()!=128 THEN GOTO @AKERU2
- PNLSTR 2,18,” ”*32
- PNLSTR 2,19,” ”*32
- PNLSTR 2,20,” ”*32
- PNLSTR 2,21,” ”*32
- PNLSTR 2,22,” ”*32
- PNLSTR 2,23,” ”*32
- SPOFS 2,1024,1024
- SPSET 7,56,2,0,0,2
- SPOFS 7,157,160
- RETURN
- ’---カ゛イコツ(SPUカ゛ソ゛ウ) ---
- @MONSTER
- SPSET 3,130,10,0,0,2
- LX=RND(241)
- LY=RND(177)
- SPOFS 3,LX,LY
- SPANIM 3,2,10
- RETURN
- ’---カ゛イコツ ハ゛トル(SPUカ゛ソ゛ウ アッフ゜テ゛ヒョウシ゛)---
- @BATTLE
- ACLS
- SPSET 12,130,10,0,0,0
- SPSCALE 12,200
- SPOFS 12,110,100
- FOR BX=0 TO 31
- BGPUT 1,BX,23,09,8,0,0
- BGPUT 1,BX,22,33,8,0,0
- BGPUT 1,BX,21,32,8,0,0
- BGPUT 1,BX,20,36,8,0,0
- BGPUT 1,BX,17,35,8,0,0
- BGPUT 1,BX,16,69,8,0,0
- BGPUT 1,BX,19,68,8,0,0
- BGPUT 1,BX,18,100,8,0,0
- BGPUT 1,BX,15,37,8,0,0
- BGPUT 1,BX,14,101,8,0,0
- NEXT BX
- LOCATE 7,0
- PRINT ”HP=”;HP
- MHP=RND(50)
- LOCATE 20,0
- PRINT ”HP=”;MHP
- BGMPLAY 2
- PNLSTR 0,0,”◎◎◎ コツコツカ゛アラワレタ ◎◎◎”
- WAIT 100
- PNLSTR 0,0,” ”*32
- ’*ハ゛トル ル-フ゜
- @BATTLELOOP
- PNLSTR 0,0,”フ゜レイヤ-ノ コウケ゛キ!”
- BEEP 12
- WAIT 100
- PNLSTR 0,0,” ”*32
- AT=RND(20)
- PNLSTR 0,0,”コツコツ タ゛メ-シ゛ ”+STR$(AT)
- MHP=MHP-AT
- LOCATE 20,0
- PRINT ”HP=”;MHP;” ”
- WAIT 100
- PNLSTR 0,0,” ”*32
- IF MHP<=0 THEN SPCLR:GOTO @BATTLEWIN
- PNLSTR 0,0,”コツコツノ コウケ゛キ!”
- BEEP 11
- WAIT 100
- PNLSTR 0,0,” ”*32
- AT=RND(20)
- PNLSTR 0,0,”フ゜レイヤ-タ゛メ-シ゛ ”+STR$(AT)
- HP=HP-AT
- LOCATE 7,0
- PRINT ”HP=”;HP;” ”
- WAIT 100
- PNLSTR 0,0,” ”*32
- IF HP<=0 THEN GOTO @BATTLELOSE
- GOTO @BATTLELOOP
- ’*○○○ カッタ ○○○
- @BATTLEWIN
- PNLSTR 0,0,”○○○ コツコツヲ タオシタ ○○○”
- BGMPLAY 5
- WAIT 200
- ACLS
- GOSUB @HAIKEI
- GOSUB @HITO
- GOSUB @TAKARA
- GOSUB @MONSTER
- GOSUB @HITO2
- GOSUB @TOBIRA
- BGMPLAY 12
- RETURN
- ’*・ マケタ ・
- @BATTLELOSE
- PNLSTR 0,0,”・ マケテ シマッタ ・
- TALK”ヤ----ラ----レ----タ-------”:BGMPLAY 6
- WAIT 400
- ACLS
- END
- ’---マシ゛ョ(SPUカ゛ソ゛ウ)---
- @HITO2
- SPSET 4,100,2,0,0,2
- SPOFS 4,100,132
- SPANIM 4,2,10
- RETURN
- ’フラク゛
- @2HANASUMAE
- V=BUTTON()
- IF V AND 16 THEN GOTO @2HANASU
- RETURN
- ’---マシ゛ョトハナス---
- @2HANASU
- PNLSTR 2,18,”・・・・・・・・・・・・・・・・・・・・・・・・・・・・”
- PNLSTR 2,19,”・マシ゛ョ ・”
- PNLSTR 2,20,”・オハヨウコ゛サ゛イマス ・”
- PNLSTR 2,21,”・ ・”
- PNLSTR 2,22,”・ ・”
- PNLSTR 2,23,”・・・・・・・・・・・・・・・・・・・・・・・・・・・・”
- @HANA2
- IF BUTTON()!=128 THEN GOTO @HANA2
- PNLSTR 2,18,” ”*32
- PNLSTR 2,19,” ”*32
- PNLSTR 2,20,” ”*32
- PNLSTR 2,21,” ”*32
- PNLSTR 2,22,” ”*32
- PNLSTR 2,23,” ”*32
- GOSUB @HITO2
- RETURN
- ’---トヒ゛ラ---
- @TOBIRA
- SPSET 5,58,8,0,0,2
- SPOFS 5,200,42
- RETURN
- ’フラク゛
- @IDOUMAE
- M=BUTTON()
- IF M AND 16 THEN GOSUB @IDOU
- RETURN
- ’---イト゛ウ---
- @IDOU
- SPOFS 1,1024,1024
- SPOFS 2,1024,1024
- SPOFS 3,1024,1024
- SPOFS 4,1024,1024
- SPOFS 5,1024,1024
- BGCLR
- BGFILL 1,0,0,63,63,32,10,0,0
- FOR K=1 TO 5
- KX=RND(31)
- KY=RND(23)
- BGPUT 1,KX ,KY ,214,8,0,0
- BGPUT 1,KX+1,KY ,215,8,0,0
- BGPUT 1,KX ,KY+1,246,8,0,0
- BGPUT 1,KX+1,KY+1,247,8,0,0
- NEXT K
- SPSET 6,58,8,0,0,2
- SPOFS 6,200,42
- VSYNC 5
- BGMPLAY 5
- PNLSTR 2,18,”・・・・・・・・・・・・・・・・・・・・・・・・・・・・”
- PNLSTR 2,19,”・ ・・・ ・ ・ ・・・・ ・”
- PNLSTR 2,20,”・ ・ ・ ・ ・ ・ ・”
- PNLSTR 2,21,”・ ・ ・ ・ ・・・・ ・”
- PNLSTR 2,22,”・ ・ ・ ・ ・”
- PNLSTR 2,23,”・・・・・・・・・・・・・・・・・・・・・・・・・・・・”
- VSYNC 190
- END
- RETURN
本日、1人
今までは、4343人
ゴホウモン イタダキ アリガトウ ゴザイマス
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)