プチコンまとめ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. ?
  141. ?
  142. ?
  143. ?
  144. ?
  145. ?
  146. ?”           GAMEOVER...”
  147. ?”            −100$”
  148. SYSBEEP=FALSE
  149. LOAD”MEM:H”,FALSE
  150. HP=VAL(MEM$)
  151. LOAD”MEM:P”,FALSE
  152. PP=VAL(MEM$)
  153. LOAD”MEM:V”,FALSE
  154. LV=VAL(MEM$)
  155. YEN=YEN−100
  156. SYSBEEP=TRUE
  157. IF LV==100 THEN MEM$=STR$(CHP):SAVE”MEM:BOSSHP”
  158. @333
  159. IF BUTTON()==0 GOTO @333
  160. COLOR 0
  161. GOTO @START
  162. @WIN
  163. VSYNC 1
  164. CLS
  165. BGMPLAY 5
  166. C=RND(7)
  167. YENN=RND(200)
  168. PP=RND(5)
  169. L=1
  170. P=3
  171. IF LV==100 THEN ATEM$=”ユウシャノアカシ”:YENN=100000:L=10000:P=10000:U=1
  172. IF C==0 THEN ATEM$=”ホ゛ロノホコラ”
  173. IF C==1 THEN ATEM$=”タテ”
  174. IF C==2 THEN ATEM$=”ケン”
  175. IF C==3 THEN ATEM$=”ト゛ウノホコラ”
  176. IF C==4 THEN ATEM$=”キ゛ンノホコラ”
  177. IF C==5 THEN ATEM$=”キンノホコラ”
  178. KIZ$=”キス゛ク゛スリ”
  179. ?”            WIN!!”
  180. ?”         ”YENN”$テニイレタ!!”
  181. ?”    ”ATEM$”ト”KIZ$”ヲテニイイレタ!!”
  182. ?”          LVカ゛”L”アカ゛ッタ!!”
  183. ?”          PPカ゛”P”アカ゛ッタ!!”
  184. SYSBEEP=FALSE
  185. LOAD”MEM:H”,FALSE
  186. HP=VAL(MEM$)
  187. LOAD”MEM:P”,FALSE
  188. PP=VAL(MEM$)
  189. LOAD”MEM:V”,FALSE
  190. LV=VAL(MEM$)
  191. SYSBEEP=TRUE
  192. ?”          HPカ゛”LV*10”アカ゛ッタ!!”
  193. YEN=YEN+YENN
  194. IF LV==100 THEN LV=LV+99999
  195. LV=LV+1
  196. PP=PP+3
  197. HP=HP+LV
  198. ATEM$=ATEM$
  199. KIZ=KIZ+1
  200. VSYNC 1
  201. @445
  202. IF BTRIG()==0 GOTO @445
  203. IF U==1 THEN GOTO @STAFF
  204. CLS
  205. GOTO @START
  206. @OPSYON
  207. CLS
  208. ?”А=SAVE”
  209. ?”Б=LOAD”
  210. ?”Ф=END”
  211. ?”Х=BACK”
  212. @OTN
  213. VSYNC 1
  214. U=BTRIG()
  215. IF U AND 16 THEN GOTO @SAVE
  216. IF U AND 32 THEN R=1:GOTO @LOAD
  217. IF U AND 64 THEN CLS:BGMSTOP:?”アリカ゛トウコ゛サ゛イマシタ!マタアソンテ゛クタ゛サイ!”:END
  218. IF U AND 128 THEN GOTO @START
  219. GOTO @OTN
  220. @SAVE
  221. MEM$=STR$(LV)
  222. SAVE”MEM:LV”
  223. MEM$=STR$(HP)
  224. SAVE”MEM:HP”
  225. MEM$=STR$(PP)
  226. SAVE”MEM:PP”
  227. MEM$=ATEM$
  228. SAVE”MEM:AITEM”
  229. MEM$=STR$(YEN)
  230. SAVE”MEM:YEN”
  231. MEM$=NAME$
  232. SAVE”MEM:MYNAME”
  233. MEM$=STR$(KIZ)
  234. SAVE”MEM:KIZ”
  235. GOTO @START
  236. @AITEM
  237. SYSBEEP=FALSE
  238. LOAD”MEM:KIZ”,FALSE
  239. KIZ=VAL(MEM$)
  240. LOAD”MEM:AITEM”,FALSE
  241. ATEM$=MEM$
  242. SYSBEEP=TRUE
  243. CLS
  244. ?”サイキンGETシタアイテム”
  245. ? ATEM$
  246. ?”キス゛ク゛スリм”KIZ””
  247. ?”ト゛レカホ゛タンヲオシテモト゛ル”
  248. VSYNC 1
  249. @P
  250. IF BTRIG()==0 THEN GOTO @P
  251. VSYNC 1
  252. GOTO @START
  253. @STAFF
  254. CLS
  255. BGMSTOP
  256. IF YEN>=10000 THEN BGMPLAY 9
  257. IF YEN<10000 THEN BGMPLAY 10
  258. Y=24
  259. FOR I=1TO 24
  260. LOCATE 3,Y
  261. PRINT”キカク・カンシュウ・サクセイ・フ゜ロク゛ラミンク゛”
  262. PRINT”           11サイクン”
  263. Y=Y−1
  264. IF Y==10 THEN WAIT 300
  265. WAIT 7
  266. CLS
  267. NEXT
  268. WAIT 200
  269. CLS
  270. WAIT 120
  271. BGMSTOP
  272. LOCATE 5,10:PRINT”Sanks’To Preings!!”
  273. @TY
  274. VSYNC 1
  275. IF BUTTON()>0 THEN WAIT 60:CLS:GOTO @START
  276. IF TCHST==1 THEN WAIT 60:CLS:GOTO @START
  277. 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 PreingsはThanks 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