Enjoy programming more!
Kidspod is a post site which supports young programmers.
First step to join us.
Register as a member
For members

2019/07/23 19:41:50

MixJuice GET URL : kidspod.club/mj/879

本能寺の変

■本能寺の変
降りしきる雨の中。。。

場所は本能寺、あなたは織田信長です。
降り注ぐ火の粉と飛び交う弓矢から逃げながら出口へ向かってください。
脱出して歴史を変えましょう!

■操作
移動:↑↓←→

■クリア条件
20階からスタートします。
1階を脱出するとクリアです。
※当たり判定が甘いのは仕様です。信長の神通力だと思ってください。

■2019/7/31 追記
10行にあったCLVは無駄なのでカットしました。
雨が降るロジックを高速化出来たのでスピードアップ出来ます。
110行を以下のように書き換えると早くなるはずです。
110 @Z:U=U+1-(U=7)*8:POKE#781+U-(U=7)*8,1<<U:POKE#780+U,0:RTN
2019/8/15修正 ごめんなさい ちょっと間違ってたので修正しました

  • 1
  • 1

SOURCE CODE

10 CLP:VIDEO3:A=#92:B=#91:C=#E1:D=#F4:E=#F8:F=21:G=20:H=#A5:P=#9C0:L=#FD:Z=#F0:GSB@G
20 @S:M=RND(G):IF!MM=RND(20):IF[M]<0[M]=0:LC0,M%4+3:?CHR$(C)
30 GSB@K:GSB@Z:FORI=0TO19:Q=[I]:IFQ>-1LCQ,I%4+3:?CHR$(PEEK(P+Q+(I%4+3)*16));:[I]=Q+1:IFQ=15[I]=-1ELSEIFSCR()=LGOTO@EELSE?CHR$(C)
40 NEXT:M=RND(G):IF!MM=RND(20):IF[M+20]<0[M+20]=0:LCM%10+5,0:?CHR$(D)
50 FORI=20TO39:Q=[I]:IFQ>-1LCI%10+5,Q:?CHR$(PEEK(#9C5+I%10+Q*16)):[I]=Q+1:IFQ=7[I]=-1ELSELCI%10+5,[I]:IFSCR()=LGOTO@EELSE?CHR$(D)
60 NEXT:GOTO@S
70 @G:CLS:GSB@Z:F=F-1:G=G-1:X=14:Y=6:?CHR$(Z):COPY#901,#900,174:FORI=0TO39:[I]=-1:NEXT:FORI=4TO15:FORJ=2TO7:LCI,J:?CHR$(B*(J=2||J=7)+H*(J>2&&J<7)):NEXT:NEXT:FORI=3TO6:LC4,I:?CHR$(A):LC15,I
80 ?CHR$(A):NEXT:M=RND(4):LC5,M+3:?CHR$(E):COPYP,#900,#C0:LC1,9:?"FLOOR=";F:IF!F?"CLEAR!!":ENDELSERTN
90 @K:K=INKEY():LCX,Y:?CHR$(PEEK(P+X+Y*16)):X=X+(K=29)*(X<14)-(K=28)*(X>5):Y=Y+(K=31)*(Y<6)-(K=30)*(Y>3):LCX,Y:?CHR$(L):IFPEEK(P+X+Y*16)=EGSB@G
100 RTN
110 @Z:U=U+1-(U=7)*8:FORN=0TO7:POKE#780+N,(N=U)<<U:NEXT:RTN
120 @E:LC1,10:?"DEAD!!

COMMENT

Kidspod運営チーム
Kidspod運営チーム2019/08/13 17:26:10

雨の演出が見事!(スピードアップ版もありがとうございます!) これのあるなしだけでも、かなり雰囲気が変わりそうですね。後半の攻撃がかなり強烈。しかし俺は歴史を変えるんだ!