• ichigojam
• BASIC

OK
1 'モリテ゛マヨッチャッタ
2 R=1:D=0
5 L=1:W=0
6 J=L+2
7 H=52-J
10 CLS:LC0,0:?"マタマヨッチャッタ ウチニカエリタイヨ!":R=RND(30):D=RND(22)
11 IF R<2 GOTO10
12 IF D<2 GOTO10
15 IF H<39 H=39
20 FOR X=0 TO 29
30 FOR Y=1 TO 21
35 LC25,0:?"LEVEL";L
40 LCX,Y:IF NOT(RND(3)-2)?CHR$(244)
50 NEXT
60 NEXT
70 X=0:Y=12:LCR,D:?"(#FF)"
80 K=INKEY()
82 IF X=R IF Y=D LCR,D:?" ":R=0:D=0:H=H+11:BEEP90,60:W=W+1
85 LC0,0:?CHR$(229);H;"                 "
87 LC10,0:?"(#FF)";W
90 IF K=30 Y=Y-(SCR(X,Y-1)<>244):LCX,Y+1:?" ":H=H-1:BEEP18,4:WAIT4:BEEP28,4
95 IF K=32 GOTO10
100 IF K=31 Y=Y+(SCR(X,Y+1)<>244):LCX,Y-1:?" ":H=H-1:BEEP18,4:WAIT4:BEEP28,4
110 IF K=28 X=X-(SCR(X-1,Y)<>244):LCX+1,Y:?" ":H=H-1:BEEP18,4:WAIT4:BEEP28,4
120 IF K=29 X=X+(SCR(X+1,Y)<>244):LCX-1,Y:?" ":H=H-1:BEEP18,4:WAIT4:BEEP28,4
130 IF Y=22 Y=1
135 IF X>29 IF H>6 CLS:LC10,12:?"オウチニカエレタヨ。":PLAY"AEFGB<C>BG>C":L=L+1:WAIT60:GOTO6 ELSE CLS:LC10,12:?"マヨイミチヲヌケタ゛セタ?":BEEP78,60:L=L+1:WAIT60:GOTO6
137 IF H<1 CLS:LC10,12:?"チカラツキチャッタ":PLAY"GECDC":END
140 LCX,Y:?CHR$(249):GOTO 80

Pagetop