2012年9月19日投稿 / 投稿者 : 11才くん / タグ : 投稿プログラム ゲーム QRコード mkII専用
戦って、戦って、戦って、.... 勝利していくGAMEです。
バグなどがあれば教えてくれると幸いです。
- CLS:CLEAR:BGMSTOP:COLOR 0:PNLTYPE”OFF”
- ?””
- ?””
- ?””
- ?””
- ?” ■ ■ ■■■”
- ?” ■ ■ ■”
- ?” ■ ■ ■”
- ?” ■ ■ ■■■”
- ?” ■ ■ ■”
- ?” ■ ■”
- ?” ■ ■■■”
- ?””
- ?” ■ ■”
- ?” ■ ■ ■”
- ?” ■ ■ ■ ■”
- ?” ■■■■■■ ■ ■”
- ?” ■ ■ ■”
- ?” ■ ■”
- ?” ■ ■■■■■■ ■”
- ?” ■ ■ ■”
- ?” ■■ ■■■■■■■
- ?” ■”
- ?” HIT ANY BUTTON”
- VSYNC 1
- @BG
- PNLSTR 0,0,TIME$,15
- IF BTRIG()==0 GOTO @BG
- LV=1
- HP=LV*10
- PP=LV*5
- YEN=0
- @LOAD
- CLS
- LOCATE 0,0:?”Wait○○○○○○○”
- SYSBEEP=FALSE
- LOAD”MEM:LV”,FALSE
- LV=VAL(MEM$)
- LOCATE 4,0:?”●”
- LOAD”MEM:HP”,FALSE
- HP=VAL(MEM$)
- LOCATE 5,0:?”●”
- LOAD”MEM:PP”,FALSE
- PP=VAL(MEM$)
- LOCATE 6,0:?”●”
- LOAD”MEM:AITEM”,FALSE
- ATEM$=MEM$
- LOCATE 7,0:?”●”
- LOAD”MEM:YEN”,FALSE
- YEN=VAL(MEM$)
- LOCATE 8,0:?”●”
- LOAD”MEM:MYNAME”,FALSE
- NAME$=MEM$
- LOCATE 9,0:?”●”
- LOAD”MEM:KIZ”,FALSE
- KIZ=VAL(MEM$)
- LOCATE 10,0:?”●”
- SYSBEEP=TRUE
- IF R==1 THEN GOTO @OPSYON
- @START
- VSYNC 1
- BGMPLAY 1
- CLS
- LOCATE 0,0:?””NAME$”/LV.”LV”/HP ”HP”/PP ”PP”/”YEN”$”
- LOCATE 0,2:?”А=VS./Б=オフ゜ション/Ф=アイテム”
- @BT
- VSYNC 1
- BT=BTRIG()
- IF BT==16 THEN MEM$=STR$(HP)SAVE”MEM:H”:MEM$=STR$(PP)SAVE”MEM:P”:MEM$=STR$(LV)SAVE”MEM:V”GOTO @VS
- IF BT AND 32 THEN GOTO @OPSYON
- IF BT AND 64 THEN GOTO @AITEM
- GOTO @BT
- @VS
- CLS
- BGMSTOP
- R=RND(10)
- IF LV==100 THEN LOAD”MEM:BOSSHP”,FALSE:?”VS ホ゛ス”:WAIT 120:C$=”ホ゛ス”:CHP=100000:CLV=1000:GOTO @VS2
- IF R==0 THEN PRINT”VS ナキ゛サ”:WAIT 120:C$=”ナキ゛サ”:CHP=HP+2:CLV=LV−1:GOTO @VS2
- IF R==1 THEN PRINT”VS サトシ”:WAIT 120:C$=”サトシ”:CHP=HP+5:CLV=LV+2:GOTO @VS2
- IF R==2 THEN PRINT”VS ヒトカ”:WAIT 120:C$=”ヒトカ”:CHP=HP*2:CLV=LV*2:GOTO @VS2
- IF R==3 THEN PRINT”VS マナト”:WAIT 120:C$=”マナト”:CHP=HP−6:CLV=LV*3:GOTO @VS2
- IF R==4 THEN PRINT”VS トマト”:WAIT 120:C$=”トマト”:CHP=1:CLV=1:GOTO @VS2
- IF R==5 THEN PRINT”VS キュウリ”:WAIT 120:C$=”キュウリ”:CHP=2:CLV=2:GOTO @VS2
- IF R==6 THEN PRINT”VS ???”:WAIT 120:C$=”???”:CHP=HP*2:CLV=2:GOTO @VS2
- IF R==7 THEN PRINT”VS フ゜チコン”:WAIT 120:C$=”フ゜チコン”:CHP=HP+20:CLV=LV+20:GOTO @VS2
- IF R==8 THEN PRINT”VS ツヨイマン”:WAIT 120:C$=”ツヨイマン”:CHP=LV*30:CLV=LV*10:GOTO @VS2
- IF R==9 THEN PRINT”VS カイトウト゛シ゛ットキット”:C$=”カイトウト゛シ゛ットキット”:CHP=1:CLV=1:GOTO @VS2
- END
- @VS2
- IF LV<100 THEN BGMPLAY 2
- IF LV==100 THEN BGMPLAY 29:CHP=VAL(MEM$)
- CLS
- C=0
- @VS3
- COLOR C
- LOCATE 0,1:?
- LOCATE 0,2:?””C$”/LV.”CLV”/HP ”CHP””
- LOCATE 0,3:?””
- LOCATE 0,4:?” ”C$””
- LOCATE 0,5:?” ↓
- LOCATE 0,6:?” г”
- LOCATE 0,7:?””
- LOCATE 0,8:?” г”
- LOCATE 0,9:?” ↑
- LOCATE 0,10:?” ”NAME$””
- LOCATE 0,11:?””
- LOCATE 0,12:?”
- LOCATE 0,13:?””
- LOCATE 0,14:?
- LOCATE 0,15:?
- LOCATE 0,16:?
- LOCATE 0,17:?
- LOCATE 0,18:?””NAME$”/LV ”LV”/HP ”HP”/PP ”PP””
- LOCATE 0,19:?””
- LOCATE 0,20:?””
- LOCATE 0,21:?” А=コウケ゛キ/Б=ヒッサツワサ゛/Ф=キス゛ク゛スリ”
- LOCATE 0,22:?””
- B=BTRIG()
- VSYNC 1
- IF B AND 16 THEN BEEP 1:CHP=CHP−LV−2:BEEP 1:HP=HP−CLV−1
- IF B AND 32 THEN GOTO @PP
- IF B AND 64 THEN GOTO @KIZ
- IF HP<20 THEN BEEP 2:C=13
- IF HP<=0 THEN GOTO @GAMEOVER
- IF CHP<=0 THEN GOTO @WIN
- CLS
- GOTO @VS3
- @PP
- IF PP<=0 THEN BEEP 2
- IF PP>0 THEN BEEP 11:PP=PP−2:CHP=CHP−LV−100:HP=HP−CLV−1
- GOTO @VS3
- @KIZ
- IF KIZ<=0 THEN LOCATE 0,5:?”ナイ!!”:WAIT 60:CLS:GOTO @VS3
- IF KIZ>0 THEN KIZ=KIZ−1:HP=HP*2:PP=PP+30:BEEP 5:GOTO @VS3
- GOTO @VS3
- @GAMEOVER
- CLS
- BGMPLAY 6
- COLOR 13
- ?
- ?
- ?
- ?
- ?
- ?
- ?” GAMEOVER...”
- ?” −100$”
- SYSBEEP=FALSE
- LOAD”MEM:H”,FALSE
- HP=VAL(MEM$)
- LOAD”MEM:P”,FALSE
- PP=VAL(MEM$)
- LOAD”MEM:V”,FALSE
- LV=VAL(MEM$)
- YEN=YEN−100
- SYSBEEP=TRUE
- IF LV==100 THEN MEM$=STR$(CHP):SAVE”MEM:BOSSHP”
- @333
- IF BUTTON()==0 GOTO @333
- COLOR 0
- GOTO @START
- @WIN
- VSYNC 1
- CLS
- BGMPLAY 5
- C=RND(7)
- YENN=RND(200)
- PP=RND(5)
- L=1
- P=3
- IF LV==100 THEN ATEM$=”ユウシャノアカシ”:YENN=100000:L=10000:P=10000:U=1
- IF C==0 THEN ATEM$=”ホ゛ロノホコラ”
- IF C==1 THEN ATEM$=”タテ”
- IF C==2 THEN ATEM$=”ケン”
- IF C==3 THEN ATEM$=”ト゛ウノホコラ”
- IF C==4 THEN ATEM$=”キ゛ンノホコラ”
- IF C==5 THEN ATEM$=”キンノホコラ”
- KIZ$=”キス゛ク゛スリ”
- ?” WIN!!”
- ?” ”YENN”$テニイレタ!!”
- ?” ”ATEM$”ト”KIZ$”ヲテニイイレタ!!”
- ?” LVカ゛”L”アカ゛ッタ!!”
- ?” PPカ゛”P”アカ゛ッタ!!”
- SYSBEEP=FALSE
- LOAD”MEM:H”,FALSE
- HP=VAL(MEM$)
- LOAD”MEM:P”,FALSE
- PP=VAL(MEM$)
- LOAD”MEM:V”,FALSE
- LV=VAL(MEM$)
- SYSBEEP=TRUE
- ?” HPカ゛”LV*10”アカ゛ッタ!!”
- YEN=YEN+YENN
- IF LV==100 THEN LV=LV+99999
- LV=LV+1
- PP=PP+3
- HP=HP+LV
- ATEM$=ATEM$
- KIZ=KIZ+1
- VSYNC 1
- @445
- IF BTRIG()==0 GOTO @445
- IF U==1 THEN GOTO @STAFF
- CLS
- GOTO @START
- @OPSYON
- CLS
- ?”А=SAVE”
- ?”Б=LOAD”
- ?”Ф=END”
- ?”Х=BACK”
- @OTN
- VSYNC 1
- U=BTRIG()
- IF U AND 16 THEN GOTO @SAVE
- IF U AND 32 THEN R=1:GOTO @LOAD
- IF U AND 64 THEN CLS:BGMSTOP:?”アリカ゛トウコ゛サ゛イマシタ!マタアソンテ゛クタ゛サイ!”:END
- IF U AND 128 THEN GOTO @START
- GOTO @OTN
- @SAVE
- MEM$=STR$(LV)
- SAVE”MEM:LV”
- MEM$=STR$(HP)
- SAVE”MEM:HP”
- MEM$=STR$(PP)
- SAVE”MEM:PP”
- MEM$=ATEM$
- SAVE”MEM:AITEM”
- MEM$=STR$(YEN)
- SAVE”MEM:YEN”
- MEM$=NAME$
- SAVE”MEM:MYNAME”
- MEM$=STR$(KIZ)
- SAVE”MEM:KIZ”
- GOTO @START
- @AITEM
- SYSBEEP=FALSE
- LOAD”MEM:KIZ”,FALSE
- KIZ=VAL(MEM$)
- LOAD”MEM:AITEM”,FALSE
- ATEM$=MEM$
- SYSBEEP=TRUE
- CLS
- ?”サイキンGETシタアイテム”
- ? ATEM$
- ?”キス゛ク゛スリм”KIZ””
- ?”ト゛レカホ゛タンヲオシテモト゛ル”
- VSYNC 1
- @P
- IF BTRIG()==0 THEN GOTO @P
- VSYNC 1
- GOTO @START
- @STAFF
- CLS
- BGMSTOP
- IF YEN>=10000 THEN BGMPLAY 9
- IF YEN<10000 THEN BGMPLAY 10
- Y=24
- FOR I=1TO 24
- LOCATE 3,Y
- PRINT”キカク・カンシュウ・サクセイ・フ゜ロク゛ラミンク゛”
- PRINT” 11サイクン”
- Y=Y−1
- IF Y==10 THEN WAIT 300
- WAIT 7
- CLS
- NEXT
- WAIT 200
- CLS
- WAIT 120
- BGMSTOP
- LOCATE 5,10:PRINT”Sanks’To Preings!!”
- @TY
- VSYNC 1
- IF BUTTON()>0 THEN WAIT 60:CLS:GOTO @START
- IF TCHST==1 THEN WAIT 60:CLS:GOTO @START
- GOTO @TY
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)
表示モード : [ スマホ・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