2013年3月5日投稿 / 投稿者 : ウォルク / タグ : 投稿プログラム ゲーム mkII専用
呪文を発動する時間に差を設けました。延々ループ。でも応用は利きそうな気がする。 BelookさんがQRコード作って下さいました!
”ア”は指記号の代わりです。文字の囲いも記号の代わりです。
Aが決定。Bがキャンセルで、呪文の途中キャンセル可能。
VISIBLE 1,1,1,1,1,1 CLS:CLEAR:BGCLR:SPCLR COLOR 0:BGMSTOP:GCLS ’--- @SHOKI SX=180:SY=90 SPSET 1,104,2,0,0,0 SPOFS 1,SX,SY SPANIM 1,4,12 CX=21:CY=15:LOCATE CX,CY:?”ア” GX=173:SPX=164:SPY=90:SPXA=100:SPYA=90 ’------ @LOOP GOSUB @DRAW GOSUB @SPSET GOSUB @CARSOL GOSUB @DESIDE GOTO @LOOP ’------ @DRAW IF P==1 THEN RETURN LOCATE 20,14:?”「-------フ” FOR PP=15 TO 18 LOCATE 20,PP:?”l” LOCATE 28,PP:?”l” NEXT LOCATE 20,19:?”L-------」” LOCATE 22,15:?”メラメラッ” LOCATE 22,16:?”ホ○ミ” LOCATE 22,17:?”ヘ゛○イミ” LOCATE 22,18:?”マホ○ラ” LOCATE CX,CY:?”ア” LOCATE 20,20:?”A:ケッテイ” LOCATE 20,21:?”B:キャンセル” P=1 RETURN @SPSET IF SP==1 THEN @SET RETURN @SET IF SET==1 THEN RETURN SPSET 1,116,2,0,0,0 SPOFS 1,SX,SY SET=1 RETURN @CARSOL IF SP==1 THEN RETURN IF BUTTON() AND 1 THEN @CU IF BUTTON() AND 2 THEN @CD RETURN @CU CH=CH+1 IF CY==15 THEN RETURN IF CH<600 THEN RETURN LOCATE CX,CY:?” ” CY=CY-1 LOCATE CX,CY:?”ア” CH=0 RETURN @CD CH=CH+1 IF CY==18 THEN RETURN IF CH<600 THEN RETURN LOCATE CX,CY:?” ” CY=CY+1 LOCATE CX,CY:?”ア” CH=0 RETURN @DESIDE IF SP==1 THEN GOTO @SPELL IF BUTTON() AND 16 THEN GOSUB @SPELL RETURN @SPELL IF SP==1 THEN GOTO @SPCH SP=1 CLS LOCATE 20,20:?”A:ケッテイ” LOCATE 20,21:?”B:キャンセル” GLINE 170,120,210,120,15 GLINE 170,124,210,124,15 GLINE 172,119,172,125,15 GLINE 208,119,208,125,15 GFILL 169,121,171,123,15 GFILL 209,121,211,123,15 GLINE 171,119,209,119,15 GLINE 171,125,209,125,15 BEEP 5 @SPCH IF CANC==1 THEN GOSUB @STOP IF M>=0 THEN GOSUB @CANCEL IF CY==15 THEN @MERA IF CY==16 THEN @HOIMY IF CY==17 THEN @BEHOIMY IF CY==18 THEN @MAHOTRA RETURN @STOP IF MERA==1 THEN RETURN GFILL 173,121,GX,123,2 LOCATE 22,10:?”キャンセル” WAIT 60 GOTO @ERASE RETURN @CANCEL IF BUTTON() AND 32 THEN CANC=1 RETURN @MERA M=M+1 IF M<100 THEN RETURN GS=GSPOIT(207,122) IF GS==11 THEN @MAGIC GX=GX+1 GFILL 173,121,GX,123,11 M=0 RETURN @MAGIC IF MERA==1 THEN @FIRE LOCATE 22,10:?”メラッ!” SPSET 1,117,2,0,0,0 SPOFS 1,SX,SY MERA=1 RETURN @FIRE IF SPXY==1 THEN @SPXY BEEP 13 SPSET 0,44,4,0,0,0 SPANIM 0,2,10 SPOFS O,SPX,SPY @SPXY IF SPX==100 THEN @ERASE SPXYZ=SPXYZ+1 IF SPXYZ<30 THEN RETURN SPX=SPX-1 SPOFS O,SPX,SPY SPXY=1:SPXYZ=1 RETURN @ERASE SPCLR 0:SPXY=0:SP=0:SPXYZ=0 MERA=0:P=0:SET=0:GCLS CANC=0:CLS GOTO @SHOKI @HOIMY M=M+1 IF M<115 THEN RETURN GS=GSPOIT(207,122) IF GS==11 THEN @MAGICA GX=GX+1 GFILL 173,121,GX,123,11 M=0 RETURN @MAGICA IF MERA==1 THEN @LIGHT LOCATE 22,10:?”ホ○ミ!” SPSET 1,117,2,0,0,0 SPOFS 1,SX,SY MERA=1 RETURN @LIGHT IF SPXY==1 THEN @SPXYA BEEP 12 SPSET 0,48,3,0,0,0 SPANIM 0,4,8 SPOFS 0,180,90 @SPXYA SPXYZ=SPXYZ+1 IF SPXYZ==1900 THEN @ERASE SPXY=1 RETURN @BEHOIMY M=M+1 IF M<200 THEN RETURN GS=GSPOIT(207,122) IF GS==11 THEN @MAGICB GX=GX+1 GFILL 173,121,GX,123,11 M=0 RETURN @MAGICB IF MERA==1 THEN @LIGHTS LOCATE 22,10:?”ヘ゛ホ○ミ!” SPSET 1,117,2,0,0,0 SPOFS 1,SX,SY MERA=1 RETURN @LIGHTS IF SPXY==1 THEN @SPXYB BEEP 12 SPSET 0,48,3,0,0,0 SPOFS 0,180,90 SPANIM 0,4,8 @SPXYB SPXYZ=SPXYZ+1 IF SPXYZ==2700 THEN @ERASE SPXY=1 RETURN @MAHOTRA M=M+1 IF M<397 THEN RETURN GS=GSPOIT(207,122) IF GS==11 THEN @MAGICC GX=GX+1 GFILL 173,121,GX,123,11 M=0 RETURN @MAGICC IF MERA==1 THEN @MAHOABS LOCATE 22,10:?”マ○トラ!” SPSET 1,117,2,0,0,0 SPOFS 1,SX,SY BEEP 36 MERA=1 RETURN @MAHOABS IF SPXY==1 THEN @SPXYC SPSET 0,48,3,0,0,0 SPOFS 0,SPXA,SPYA SPANIM 0,2,8 @SPXYC IF SPXA==180 THEN @ERASE SPXYZ=SPXYZ+1 IF SPXYZ<30 THEN RETURN SPXA=SPXA+1 SPOFS 0,SPXA,SPYA SPXY=1:SPXYZ=0 RETURN
by Belook
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)