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

投稿プログラム : ゴールへ

パンくずリスト

2013年04月20日投稿 / 投稿者 : 0605 / タグ : 投稿プログラム QRコード mkII専用

概要

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

このプログラムの追加データをどんどん公開してもいいです!~~
(これはBGとのあたり判定をテストしようと思って作ったのにゲームをたしたものです)

スクリーンショット・動画

PRG_JUGA_SS0.png PRG_JUGA_SS1.png

QR コード  JUGA

プチコンmkII 向けの QR コードです。
QR1.jpg

プログラムリスト

  1. CLEAR:ACLS
  2. DIM XT1(256),XT2(256),YT1(192)
  3. BGMSTOP
  4. @TOP
  5. LOCATE 0,8
  6. ?”   ■■■■■ ■ ■     ■ ■     ■”
  7. ?”       ■  ■ ■    ■ ■    ■ ■”
  8. ?”       ■         ■ ■       ■”
  9. ?”       ■      ■■ ■ ■  ■     ■”
  10. ?”       ■         ■ ■ ■       ■”
  11. ?”   ■■■■■         ■ ■■         ■”
  12. RE=1
  13. @BU
  14. IF BUTTON(2)==16 GOTO @ST
  15. IF BUTTON(2)==4 AND RE>=2 THEN RE=RE−1
  16. IF BUTTON(2)==8 AND RE<=5 THEN RE=RE+1
  17. LOCATE 9,20:?”レヘ゛ル:”RE” ”*20
  18. WAIT 1
  19. GOTO @BU
  20. @ST
  21. ’−−コ−スサイタ゛イスウ◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎
  22. AA=2
  23. ’−−コ−スサイタ゛イスウ◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎
  24. ’−−マッフ゜カキコミヘ
  25. DIM MAP(16,12)
  26. @STE
  27. CLS:KO=KO+1:IF AA+1==KO THEN ?”コ−スクリアオメテ゛トウ”:WAIT 600:END
  28. GOSUB @DR
  29. ’−−サ゛ヒョウヘンカン
  30. FOR X=0 TO 255
  31. XT1(X)=FLOOR(X/16)
  32. XT2(X)=FLOOR((X+15)/16)
  33. NEXT X
  34. FOR Y=0 TO 191
  35. YT1(Y)=FLOOR(Y/16)
  36. NEXT
  37. @BGM
  38. BGMPLAY 22
  39. PX=16:PY=160
  40. SPSET 0,64,2,0,0,0
  41. SPANIM 0,4,8
  42. SPSET 1,156,0,0,0,0
  43. SPANIM 1,4,8
  44. SPOFS 1,RND(256),RND(193)
  45. SPSET 2,141,8,0,0,0
  46. HP=105
  47. ’──────────────メイン
  48. @MEINN
  49. ’−−シ゛ャンフ゜ヘ?
  50. IF PST==0 THEN GOSUB @PJUMP
  51. ’−−テキ
  52. TH=ATAN(PY−EY,PX−EX)
  53. EVX=COS(TH)*RE
  54. EVY=SIN(TH)*RE
  55. EX=EX+EVX:EY=EY+EVY
  56. SPOFS 2,EX,EY
  57. IF SPHITSP(0,2)==1 THEN BEEP 0:HP=HP−5
  58. IF HP==0 THEN BGMPLAY 6:LOCATE 9,9:?”GAME OVRE”:WAIT 600:END
  59. LOCATE 0,0:?”HP:”HP” ”*2
  60. ’−−イト゛ウショリヘ
  61. GOSUB @PMOVE
  62. VSYNC 1
  63. IF SPHITSP(0,1)==1 THEN BGMPLAY 5:WAIT 60:GOTO @STE
  64. GOTO @MEINN
  65. ’──────────────メイン
  66. ’−−シ゛ャンフ゜?
  67. @PJUMP
  68. K=BUTTON(2)
  69. IF K AND 16 THEN :VY=−10:PST=1
  70. RETURN
  71. ’−−イト゛ウショリ
  72. @PMOVE
  73. K=BUTTON()
  74. IF K==0 THEN VX=0
  75. IF K AND 8 THEN PX=PX+2:PD=0:SPCHR 0,64
  76. IF K AND 4 THEN PX=PX−2:PD=1:SPCHR 0,72
  77. IF PX>240 THEN PX=240
  78. IF PX<0 THEN PX=0
  79. ’−−オオキクスルホト゛トハ゛ナイ
  80. IF PST==1 THEN VY=VY+0.8
  81. PY=PY+VY
  82. IF PY<0 THEN SPOFS 0,PX,PY:RETURN
  83. ’−−シ゛メンアル?
  84. ML=MAP(XT1(PX),YT1(PY+16))
  85. MR=MAP(XT2(PX),YT1(PY+16))
  86. IF PST==0 AND ML==0 AND MR==0 THEN PST=1
  87. F=(PST==1 AND VY>4)
  88. IF F==1 AND ML==1 THEN PY=YT1(PY)*16:VY=0:PST=0
  89. IF F==1 AND MR==1 THEN PY=YT1(PY)*16:VY=0:PST=0
  90. SPOFS 0,PX,PY
  91. RETURN
  92. ’−−マッフ゜カキコミ
  93. @DR
  94. COLOR 4
  95. LOCATE 5,0:?”■”*12
  96. FOR Y=0 TO 11
  97. READ MAP$
  98. FOR X=0 TO 15
  99. M$=MID$(MAP$,X,1)
  100. MX=X*2:MY=Y*2
  101. IF M$==”1” THEN BG=94 :GOSUB @DRA
  102. IF M$==”0” THEN BG=30 :GOSUB @DRA
  103. COLOR 11
  104. LOCATE Y+5,0:?”■”
  105. COLOR 0
  106. WAIT 1
  107. MAP(X,Y)=VAL(M$)
  108. NEXT X
  109. NEXT Y
  110. WAIT 1
  111. CLS
  112. RETURN
  113. @DRA
  114. BGPUT 1,MX  ,MY  ,BG   ,8,0,0
  115. BGPUT 1,MX+1,MY  ,BG+1 ,8,0,0
  116. BGPUT 1,MX  ,MY+1,BG+32,8,0,0
  117. BGPUT 1,MX+1,MY+1,BG+33,8,0,0
  118. RETURN
  119. @MAP1
  120. ’ATA ”−−−−−−−−−−−−−−−−”
  121. DATA ”0000000000000000”
  122. DATA ”0000000100000000”
  123. DATA ”0010000000100000”
  124. DATA ”0000000000000100”
  125. DATA ”0000000000000000”
  126. DATA ”1000000001001001”
  127. DATA ”0000000100000000”
  128. DATA ”0000000000000000”
  129. DATA ”0010000010001000”
  130. DATA ”0000000000000000”
  131. DATA ”0000100000100000”
  132. DATA ”1111111111111111”
  133. @MAP2
  134. ’ATA ”−−−−−−−−−−−−−−−−”
  135. DATA ”0000000000000000”
  136. DATA ”0000000001000000”
  137. DATA ”0000000000000000”
  138. DATA ”0000000000000000”
  139. DATA ”0000000000010000”
  140. DATA ”0000000000000000”
  141. DATA ”0000000000000000”
  142. DATA ”0000000010000000”
  143. DATA ”0000000000000000”
  144. DATA ”0000010000000000”
  145. DATA ”0000000000000000”
  146. DATA ”1111111111111111”

CHECKER FLAG (ひとことコメント)

この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)

  • 道産子 : フォントは漢字に対応しないので直しました。 (2013/04/20 (土) 23:59:48)
  • 道産子 : あと、ページ名の頭はToukou/です。直しました。 (2013/04/21 (日) 00:02:12)
  • 投稿者 : ありがとうございます。あれページの先頭Toukouにしなかったっけ?半角はだめなの? (2013/04/21 (日) 08:14:44)
  • 道産子 : Tは大文字でないといけないです。 (2013/04/21 (日) 12:09:38)
  • ルミダ(ヤッフー) : いいですね。参考になりました。 (2013/04/21 (日) 12:29:53)
  • 天郷思音(あまさとしおん) : バグなど (2014/03/27 (木) 13:22:22)
    • "GAME OVRE"、綴りがおかしい。"GAME OVER"じゃない?
    • ゲームオーバー時にHPが表示上は0になってない。
    • スターが地面より下に表示されてゴール不能な時がある。
    • ボタン受け時はWAITよりVSYNCのほうがいいような(ほぼ実害はないけど)

表示モード : [ スマホ・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