プログラミングをもっと楽しく!
Kidspod;はこどものプログラマーを
応援するための投稿サイトです。
はじめての人はこちらから
新規メンバー登録
メンバーの人はこちらから

2017/02/04 10:48:23

MixJuice GET URL : kidspod.club/mj/156

Snake1.bas

Snakeにドラクエ風BGMを追加してみた

  • 登録タグはありません

SOURCE CODE

10 '*HEBI
20 CLV: CLS: LET[90],-1,0,-1,1,0,-2,0,-1,1,0,1
30 GSB1000:FOR X=0 TO 30: ?"*";:NEXT
40 FOR Y=1 TO 21: LC 0,Y:?"*": LC 30,Y: ?"*": NEXT
50 FOR X=0 TO 30: ?"*";:NEXT
60 LC 0,23:?"0";
70 L=4:X=7:Y=11:Z=X+Y*256: FOR N=0 TO l+1: [N]=Z: Z=Z-1:NEXT:GOSUB190:D=-1
80 K=255:GSB250:CLT
90 '@LOOP
100 E=INKEY()-30:CLK:IF ABS(E)<3&&E<>[98+D*3]D=E
110 U=X+[96+D*3]:V=Y+[97+D*3]
120 C=SCR(U,V): IF !C GOTO 150
130 IF C=255 GOSUB230: GOTO 150
140 BEEP30,30:LC7,10:?"*GAME OVER*":CLK:END
150 '@LP1
160 IF TICK()>300 L=L+1:K=42:GSB 250:CLT
170 X=U:Y=V:FOR N=L TO 0 STEP-1:[N+1]=[N]:NEXT:[0]=X+Y*256
180 GOSUB 190:WAIT3:GOTO90
190 '@HEBI2
200 LC[0]&255,[0]/256:?CHR$(236)
210 FOR N=1 TO L+1:LC[N]&255,[N]/256:?CHR$(233):NEXT
220 LC [L+1]&255, [L+1]/256:?CHR$(0):RTN
230 '@SCORE
240 BEEP:S=S+1:LC 0,23:?S;:L=L-(L>0):GSB190:K=255:GSB250:GSB1000:RTN
250 '@ICHIGO
260 I=RND(30)+1:J=RND(22)+1:IF SCR(I,J)>0 GOTO250
270 LC I,J:?CHR$(K);:RTN
1000 PLAY "$DAG2F8E8DC8>B-8<C8>A8<ED1 A<C>B2G8F8EF8G8A1R8":RETURN

COMMENT

Kidspod運営チーム
Kidspod運営チーム2017/03/13 17:18:35

素敵なBGMをありがとうございます。ゲームも、スピードが上がるにつれてドキドキしてきますね!