Program post site for everyone
■本能寺の変
降りしきる雨の中。。。
場所は本能寺、あなたは織田信長です。
降り注ぐ火の粉と飛び交う弓矢から逃げながら出口へ向かってください。
脱出して歴史を変えましょう！
■操作
移動：↑↓←→
■クリア条件
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修正 ごめんなさい ちょっと間違ってたので修正しました
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!!
雨の演出が見事！(スピードアップ版もありがとうございます！) これのあるなしだけでも、かなり雰囲気が変わりそうですね。後半の攻撃がかなり強烈。しかし俺は歴史を変えるんだ！
