rem Raindrops rem by Fort Apocalypse set kernel_options no_blank_lines player1colors playfieldpos=4 set smartbranching on data _Raindrops 24, 0, 0, 24, 0, 24, 23, 0, 24, 27, 0, 31, 24, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 33, 20, 0, 0, 20, 0, 20, 18, 0, 20, 23, 0, 24, 24, 0, 0, 23, 0, 0, 27, 0, 0, 31, 0, 0, 16, 0, 0, 0, 0, 0, 18, 0, 20, 24, 0, 20, 16, 0, 0, 0, 0, 0, 18, 0, 0, 0, 0, 0, 20, 0, 0, 20, 0, 24, 23, 0, 20, 23, 0, 24, 20, 0, 0, 20, 0, 24, 23, 0, 20, 0, 0, 0, 0, 0, 0, 31, 0, 0, 31, 0, 0, 27, 0, 0 end gosub rain mainloop if c=0 then c=12 : pfscroll left COLUPF = c pfscroll downdown AUDC0 = 4 if _Raindrops[r] = 33 then AUDC0 = 12 : AUDF0 = 13 else AUDF0 = _Raindrops[r] if _Raindrops[r] = 0 then AUDV0 = 0 else AUDV0 = 1 AUDV1 = 0 n=n+1 if n=7 then n=0:r=r+1:c=c+1 if r>107 then r=0 drawscreen goto mainloop rain playfield: .X.............X....X......X.... ........................X....... ...X.....X....X....X...........X ......................X...X..... ..X.....X........X...........X.. .....................X...X...... ....X......X....X............... .......................X......X. ...X......X.......X.......X..... .....................X.......X.. ......X.....X....X......X....... end return