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

投稿プログラム : VSゲーム

パンくずリスト

2012年9月19日投稿 / 投稿者 : 11才くん / タグ : 投稿プログラム ゲーム QRコード mkII専用

概要

戦って、戦って、戦って、.... 勝利していくGAMEです。

よろしくお願いします

バグなどがあれば教えてくれると幸いです。

QR コード

PRG:VSGAME
1/32/33/3
qr0.pngqr1.pngqr2.png

プログラムリスト

  1. CLS:CLEAR:BGMSTOP:COLOR 0:PNLTYPE”OFF”
  2. ?””
  3. ?””
  4. ?””
  5. ?””
  6. ?”         ■   ■      ■■■”
  7. ?”         ■   ■     ■”
  8. ?”         ■   ■     ■”
  9. ?”          ■ ■       ■■■”
  10. ?”          ■ ■          ■”
  11. ?”           ■           ■”
  12. ?”           ■        ■■■”
  13. ?””
  14. ?”         ■ ■”
  15. ?”      ■   ■ ■”
  16. ?”     ■     ■ ■         ■”
  17. ?”     ■■■■■■ ■         ■”
  18. ?”    ■   ■            ■”
  19. ?”        ■            ■”
  20. ?”        ■    ■■■■■■ ■”
  21. ?”       ■            ■    ■”
  22. ?”     ■■             ■■■■■■■
  23. ?”                           ■”
  24. ?”        HIT ANY BUTTON”
  25. VSYNC 1
  26. @BG
  27. PNLSTR 0,0,TIME$,15
  28. IF BTRIG()==0 GOTO @BG
  29. LV=1
  30. HP=LV*10
  31. PP=LV*5
  32. YEN=0
  33. @LOAD
  34. CLS
  35. LOCATE 0,0:?”Wait○○○○○○○”
  36. SYSBEEP=FALSE
  37. LOAD”MEM:LV”,FALSE
  38. LV=VAL(MEM$)
  39. LOCATE 4,0:?”●”
  40. LOAD”MEM:HP”,FALSE
  41. HP=VAL(MEM$)
  42. LOCATE 5,0:?”●”
  43. LOAD”MEM:PP”,FALSE
  44. PP=VAL(MEM$)
  45. LOCATE 6,0:?”●”
  46. LOAD”MEM:AITEM”,FALSE
  47. ATEM$=MEM$
  48. LOCATE 7,0:?”●”
  49. LOAD”MEM:YEN”,FALSE
  50. YEN=VAL(MEM$)
  51. LOCATE 8,0:?”●”
  52. LOAD”MEM:MYNAME”,FALSE
  53. NAME$=MEM$
  54. LOCATE 9,0:?”●”
  55. LOAD”MEM:KIZ”,FALSE
  56. KIZ=VAL(MEM$)
  57. LOCATE 10,0:?”●”
  58. SYSBEEP=TRUE
  59. IF R==1 THEN GOTO @OPSYON
  60. @START
  61. VSYNC 1
  62. BGMPLAY 1
  63. CLS
  64. LOCATE 0,0:?””NAME$”/LV.”LV”/HP ”HP”/PP ”PP”/”YEN”$”
  65. LOCATE 0,2:?”А=VS./Б=オフ゜ション/Ф=アイテム”
  66. @BT
  67. VSYNC 1
  68. BT=BTRIG()
  69. IF BT==16 THEN MEM$=STR$(HP)SAVE”MEM:H”:MEM$=STR$(PP)SAVE”MEM:P”:MEM$=STR$(LV)SAVE”MEM:V”GOTO @VS
  70. IF BT AND 32 THEN GOTO @OPSYON
  71. IF BT AND 64 THEN GOTO @AITEM
  72. GOTO @BT
  73. @VS
  74. CLS
  75. BGMSTOP
  76. R=RND(10)
  77. IF LV==100 THEN LOAD”MEM:BOSSHP”,FALSE:?”VS ホ゛ス”:WAIT 120:C$=”ホ゛ス”:CHP=100000:CLV=1000:GOTO @VS2
  78. IF R==0 THEN PRINT”VS ナキ゛サ”:WAIT 120:C$=”ナキ゛サ”:CHP=HP+2:CLV=LV−1:GOTO @VS2
  79. IF R==1 THEN PRINT”VS サトシ”:WAIT 120:C$=”サトシ”:CHP=HP+5:CLV=LV+2:GOTO @VS2
  80. IF R==2 THEN PRINT”VS ヒトカ”:WAIT 120:C$=”ヒトカ”:CHP=HP*2:CLV=LV*2:GOTO @VS2
  81. IF R==3 THEN PRINT”VS マナト”:WAIT 120:C$=”マナト”:CHP=HP−6:CLV=LV*3:GOTO @VS2
  82. IF R==4 THEN PRINT”VS トマト”:WAIT 120:C$=”トマト”:CHP=1:CLV=1:GOTO @VS2
  83. IF R==5 THEN PRINT”VS キュウリ”:WAIT 120:C$=”キュウリ”:CHP=2:CLV=2:GOTO @VS2
  84. IF R==6 THEN PRINT”VS ???”:WAIT 120:C$=”???”:CHP=HP*2:CLV=2:GOTO @VS2
  85. IF R==7 THEN PRINT”VS フ゜チコン”:WAIT 120:C$=”フ゜チコン”:CHP=HP+20:CLV=LV+20:GOTO @VS2
  86. IF R==8 THEN PRINT”VS ツヨイマン”:WAIT 120:C$=”ツヨイマン”:CHP=LV*30:CLV=LV*10:GOTO @VS2
  87. IF R==9 THEN PRINT”VS カイトウト゛シ゛ットキット”:C$=”カイトウト゛シ゛ットキット”:CHP=1:CLV=1:GOTO @VS2
  88. END
  89. @VS2
  90. IF LV<100 THEN BGMPLAY 2
  91. IF LV==100 THEN BGMPLAY 29:CHP=VAL(MEM$)
  92. CLS
  93. C=0
  94. @VS3
  95. COLOR C
  96. LOCATE 0,1:?
  97. LOCATE 0,2:?””C$”/LV.”CLV”/HP ”CHP””
  98. LOCATE 0,3:?””
  99. LOCATE 0,4:?”             ”C$””
  100. LOCATE 0,5:?”               ↓
  101. LOCATE 0,6:?”               г”
  102. LOCATE 0,7:?””
  103. LOCATE 0,8:?”           г”
  104. LOCATE 0,9:?”           ↑
  105. LOCATE 0,10:?”         ”NAME$””
  106. LOCATE 0,11:?””
  107. LOCATE 0,12:?”
  108. LOCATE 0,13:?””
  109. LOCATE 0,14:?
  110. LOCATE 0,15:?
  111. LOCATE 0,16:?
  112. LOCATE 0,17:?
  113. LOCATE 0,18:?””NAME$”/LV ”LV”/HP ”HP”/PP ”PP””
  114. LOCATE 0,19:?””
  115. LOCATE 0,20:?””
  116. LOCATE 0,21:?” А=コウケ゛キ/Б=ヒッサツワサ゛/Ф=キス゛ク゛スリ”
  117. LOCATE 0,22:?””
  118. B=BTRIG()
  119. VSYNC 1
  120. IF B AND 16 THEN BEEP 1:CHP=CHP−LV−2:BEEP 1:HP=HP−CLV−1
  121. IF B AND 32 THEN GOTO @PP
  122. IF B AND 64 THEN GOTO @KIZ
  123. IF HP<20 THEN BEEP 2:C=13
  124. IF HP<=0 THEN GOTO @GAMEOVER
  125. IF CHP<=0 THEN GOTO @WIN
  126. CLS
  127. GOTO @VS3
  128. @PP
  129. IF PP<=0 THEN BEEP 2
  130. IF PP>0 THEN BEEP 11:PP=PP−2:CHP=CHP−LV−100:HP=HP−CLV−1
  131. GOTO @VS3
  132. @KIZ
  133. IF KIZ<=0 THEN LOCATE 0,5:?”ナイ!!”:WAIT 60:CLS:GOTO @VS3
  134. IF KIZ>0 THEN KIZ=KIZ−1:HP=HP*2:PP=PP+30:BEEP 5:GOTO @VS3
  135. GOTO @VS3
  136. @GAMEOVER
  137. CLS
  138. BGMPLAY 6
  139. COLOR 13
  140. ?”           GAMEOVER...”
  141. ?”            −100$”
  142. SYSBEEP=FALSE
  143. LOAD”MEM:H”,FALSE
  144. HP=VAL(MEM$)
  145. LOAD”MEM:P”,FALSE
  146. PP=VAL(MEM$)
  147. LOAD”MEM:V”,FALSE
  148. LV=VAL(MEM$)
  149. YEN=YEN−100
  150. SYSBEEP=TRUE
  151. IF LV==100 THEN MEM$=STR$(CHP):SAVE”MEM:BOSSHP”
  152. @333
  153. IF BUTTON()==0 GOTO @333
  154. COLOR 0
  155. GOTO @START
  156. @WIN
  157. VSYNC 1
  158. CLS
  159. BGMPLAY 5
  160. C=RND(7)
  161. YENN=RND(200)
  162. PP=RND(5)
  163. L=1
  164. P=3
  165. IF LV==100 THEN ATEM$=”ユウシャノアカシ”:YENN=100000:L=10000:P=10000:U=1
  166. IF C==0 THEN ATEM$=”ホ゛ロノホコラ”
  167. IF C==1 THEN ATEM$=”タテ”
  168. IF C==2 THEN ATEM$=”ケン”
  169. IF C==3 THEN ATEM$=”ト゛ウノホコラ”
  170. IF C==4 THEN ATEM$=”キ゛ンノホコラ”
  171. IF C==5 THEN ATEM$=”キンノホコラ”
  172. KIZ$=”キス゛ク゛スリ”
  173. ?”            WIN!!”
  174. ?”         ”YENN”$テニイレタ!!”
  175. ?”    ”ATEM$”ト”KIZ$”ヲテニイイレタ!!”
  176. ?”          LVカ゛”L”アカ゛ッタ!!”
  177. ?”          PPカ゛”P”アカ゛ッタ!!”
  178. SYSBEEP=FALSE
  179. LOAD”MEM:H”,FALSE
  180. HP=VAL(MEM$)
  181. LOAD”MEM:P”,FALSE
  182. PP=VAL(MEM$)
  183. LOAD”MEM:V”,FALSE
  184. LV=VAL(MEM$)
  185. SYSBEEP=TRUE
  186. ?”          HPカ゛”LV*10”アカ゛ッタ!!”
  187. YEN=YEN+YENN
  188. IF LV==100 THEN LV=LV+99999
  189. LV=LV+1
  190. PP=PP+3
  191. HP=HP+LV
  192. ATEM$=ATEM$
  193. KIZ=KIZ+1
  194. VSYNC 1
  195. @445
  196. IF BTRIG()==0 GOTO @445
  197. IF U==1 THEN GOTO @STAFF
  198. CLS
  199. GOTO @START
  200. @OPSYON
  201. CLS
  202. ?”А=SAVE”
  203. ?”Б=LOAD”
  204. ?”Ф=END”
  205. ?”Х=BACK”
  206. @OTN
  207. VSYNC 1
  208. U=BTRIG()
  209. IF U AND 16 THEN GOTO @SAVE
  210. IF U AND 32 THEN R=1:GOTO @LOAD
  211. IF U AND 64 THEN CLS:BGMSTOP:?”アリカ゛トウコ゛サ゛イマシタ!マタアソンテ゛クタ゛サイ!”:END
  212. IF U AND 128 THEN GOTO @START
  213. GOTO @OTN
  214. @SAVE
  215. MEM$=STR$(LV)
  216. SAVE”MEM:LV”
  217. MEM$=STR$(HP)
  218. SAVE”MEM:HP”
  219. MEM$=STR$(PP)
  220. SAVE”MEM:PP”
  221. MEM$=ATEM$
  222. SAVE”MEM:AITEM”
  223. MEM$=STR$(YEN)
  224. SAVE”MEM:YEN”
  225. MEM$=NAME$
  226. SAVE”MEM:MYNAME”
  227. MEM$=STR$(KIZ)
  228. SAVE”MEM:KIZ”
  229. GOTO @START
  230. @AITEM
  231. SYSBEEP=FALSE
  232. LOAD”MEM:KIZ”,FALSE
  233. KIZ=VAL(MEM$)
  234. LOAD”MEM:AITEM”,FALSE
  235. ATEM$=MEM$
  236. SYSBEEP=TRUE
  237. CLS
  238. ?”サイキンGETシタアイテム”
  239. ? ATEM$
  240. ?”キス゛ク゛スリм”KIZ””
  241. ?”ト゛レカホ゛タンヲオシテモト゛ル”
  242. VSYNC 1
  243. @P
  244. IF BTRIG()==0 THEN GOTO @P
  245. VSYNC 1
  246. GOTO @START
  247. @STAFF
  248. CLS
  249. BGMSTOP
  250. IF YEN>=10000 THEN BGMPLAY 9
  251. IF YEN<10000 THEN BGMPLAY 10
  252. Y=24
  253. FOR I=1TO 24
  254. LOCATE 3,Y
  255. PRINT”キカク・カンシュウ・サクセイ・フ゜ロク゛ラミンク゛”
  256. PRINT”           11サイクン”
  257. Y=Y−1
  258. IF Y==10 THEN WAIT 300
  259. WAIT 7
  260. CLS
  261. NEXT
  262. WAIT 200
  263. CLS
  264. WAIT 120
  265. BGMSTOP
  266. LOCATE 5,10:PRINT”Sanks’To Preings!!”
  267. @TY
  268. VSYNC 1
  269. IF BUTTON()>0 THEN WAIT 60:CLS:GOTO @START
  270. IF TCHST==1 THEN WAIT 60:CLS:GOTO @START
  271. GOTO @TY

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

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

  • 11才くん : 僕の夢は、プログラマーになることです (2012/09/19 (水) 19:28:49)
  • 名無しさん : MEMファイルは、ひとつにまとめて欲しい。 (2012/09/19 (水) 20:39:11)
  • いずれ人類の支配者 : 俺は13歳なのにいまだにほんの少ししか理解できてない(ry (2012/09/19 (水) 21:41:09)
  • 中1プログラマー? : ↑大丈夫、勉強すれば。(小6から勉強しました) (2012/09/19 (水) 22:21:17)
  • .EXE : なんとなく俺の作ったゲームに似てるけど こっちのほうが素晴らしい!! (2012/09/20 (木) 17:09:29)
  • 麿 : Sanks’To PreingsThanks for playingじゃないですか? (2012/09/20 (木) 17:21:05)
  • レックス : MEMファイルってどうやってまとめるのかなぁ?←(初心者) (2012/09/20 (木) 18:25:30)
  • 名無しさん : 普通。いい意味でも悪い意味でも普通 (2012/09/20 (木) 20:28:47)
  • わぁぃ@ : の最後で変数を表示するとき””は不要。 (2012/09/20 (木) 21:16:55)
  • 11才くん : .EXEさんがつくったGAMEってなんですか? (2012/09/21 (金) 18:00:22)
  • 11才くん : .EXEさんがつくったGAMEってなんですか? (2012/09/21 (金) 18:04:46)
  • 名無しさん : naze (2012/09/21 (金) 18:27:59)
  • 最近買った : Lodeの後wait10入れたら?なんかそれっぽくなるよ (2012/09/22 (土) 14:07:07)
  • なぜなに : QRコードだと遊べないんかな、ゲーム開始して戦い始まった瞬間にゲームオーバーになる (2012/10/02 (火) 23:47:55)
  • 名無しさん : アイテム名のホコラって・・。アイテム? (2012/10/27 (土) 02:37:18)
  • 名無しさん : セーブデータ多すぎだからQR読みたくない おまけにバグあるみたいだし (2012/10/27 (土) 09:01:05)
  • 名無しさん : セーブデータのファイル名はありきたりのものにしないこと かぶる場合がある (2012/10/27 (土) 09:43:08)
  • 名無しさん : BUTTON()を入れる変数はBだといいよ (2012/10/27 (土) 09:45:27)
  • 名無しさん : あと上でも出てるけどセーブデータ多すぎ (2012/10/27 (土) 09:46:25)
  • 11才くん : 名無しさんすみません。これからの作品に役立てさせてもらいます。 (2012/10/27 (土) 17:57:08)
  • 名無しさん : あとタイトルの部分はLOCATEを使えば圧縮できる まあ見やすいからこのままというのならばアレだけど (2012/10/27 (土) 18:08:11)
  • 名無しさん : あと:とか使ったほうが (2012/10/27 (土) 18:09:54)
  • 名無しさん : GOTOばっかじゃなくGOSUBとかもつかったほうがいいですよ (2012/10/27 (土) 18:10:52)
  • 名無しさん : ほかにも(ry (2012/10/27 (土) 18:13:01)
  • 11才くん : CHECKER FLAG (ひとことコメント)この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)11才くん : 僕の夢は、プログラマーになることです (2012/09/19 (水) 19:28:49)レックス : MEMファイルってどうやってまとめるのかなぁ?←(初心者) (2012/09/20 (木) 18:25:30) 11才くん : .EXEさんがつくったGAMEってなんですか? (2012/09/21 (金) 18:04:46)11才くん : .EXEさんがつくったGAMEってなんですか? (2012/09/21 (金) 18:04:46) (2012/11/03 (土) 13:43:02)
  • DELETED :DELETED (2012/11/21 (水) 07:20:30)
  • .EXE : ↑消えろ (2012/11/21 (水) 15:07:59)
  • 名無しさん : ↑荒らしに反応しない 注意時にきつい言葉を使わない (2012/11/21 (水) 16:07:21)
  • 枯れた名無しの水平思考 : ↑激しく同意 (2012/11/22 (木) 00:58:10)
  • 天郷思音 : ↑2 同意です。注意するなら手本になるような言葉遣いをするべきです。 (2012/11/22 (木) 14:45:20)
  • 名無しさん : 開始早々死ぬんだが、どうしたらいいかな? (2012/12/28 (金) 23:13:16)
  • 名無しさん : *1 変数をいじくれ (2012/12/28 (金) 23:55:49)
  • 名無しさん : vs開始した瞬間にゲームオーバーになる (2013/01/12 (土) 15:13:10)
  • 11才くん : ↑HPという変数が0になってるかもしれません。 (2013/01/12 (土) 16:34:38)
  • 名無しさん : ↑何行目ですか? (2013/01/14 (月) 19:10:29)
  • 名無しさん : やりかたがわかりません (2014/07/20 (日) 20:25:48)

表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.150 秒 | このページの最終更新 : 2022/09/20 (火) 12:44:07 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30