rem Topgunn Root Beer Delivery rem by Fort Apocalypse set kernel_options no_blank_lines player1colors playfieldpos=4 set smartbranching on data _TitleMusic 20, 20, 13, 13, 13, 13, 15, 16, 15, 16, 13, 13, 18, 18, 20, 18, 16, 16, 18, 16, 15, 13, 16, 20, 16, 16, 18, 18, 18, 18, 18, 18, 20, 20, 13, 13, 13, 13, 15, 16, 15, 16, 13, 13, 18, 18, 20, 18, 16, 16, 18, 16, 15, 13, 16, 20, 13, 27, 27, 18, 13, 13, 13, 13 end data _PwrUpMusic 28, 25, 0, 0, 25, 0, 0, 25, 0, 28, 25, 22, 20, 20, 22, 22, 28, 25, 0, 0, 25, 0, 0, 25, 0, 28, 25, 22, 20, 20, 22, 22, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 25, 22, 20, 20, 22, 22, 28, 25, 0, 0, 25, 0, 0, 25, 0, 28, 25, 22, 20, 20, 22, 22 end gosub title gosub f18 titleloop player1x=player1x+(r&3)+3 s=50-r if s>40 then s=40 if player1x>120 then s=230 if r&31>7 then s=230 player0y=s COLUP1=c COLUPF = c AUDC0 = 4 AUDF0 = _TitleMusic[r] AUDV0 = 8 if n&7=0 then AUDC1 = 6 : AUDF1 = 21 else AUDC1 = 8 : AUDF1 = (r&7) + r AUDV1 = 8-(r&7) n=n+1 if n=15 then n=0:r=r+1:c=c+1 if r>63 then r=0 drawscreen if switchreset || joy0fire then goto initgame goto titleloop initgame gosub f18 pfclear x=0 y=65 v=0 n=0 AUDV0=0 AUDV1=0 introloop COLUP0=255 player1x=x player1y=y x=x+v if v>5 then y=y-(v-4) n=n+1 if n>4 then v=v+1 : n=0 if v>0 then AUDC0=8 : AUDF0=31-v : AUDV0=v/2 drawscreen if player1x>120 then goto startgame goto introloop startgame n=0 m=0 f=0 mainloop if player0x < 15 then player0y=250 : goto afterflt if player0y>90 then player0y=250 : goto afterflt if f>0 && f<80 then f=f+5: player0x=f : goto afterflt player0x=player0x-1 player0y=player0y+1 if player0x&15 < 4 then gosub rootbeera : goto afterflt if player0x&15 > 8 && player0x&15 < 12 then gosub rootbeera : goto afterflt if player0x&15 < 9 then REFP0=8 else REFP0=0 gosub rootbeerb afterflt if joy0fire && player0y=250 then gosub rootbeer : m=0 : f=player1x+15 : player0x=f : player0y=player1y COLUP0=255 COLUP1=255 if m=255 then AUDC0=8 : AUDF0=31-v : AUDV0=v/2 else gosub pwrup player1x=22 player1y=y gosub ground pfscroll leftleft if joy0left then if v>3 then v=v-1 if joy0right then if v<27 then v=v+1 if joy0up then if y>5 then y=y-1 if joy0down then y=y+1 scorecolor=255 score=0 : for w=0 to v : score=score+1 : next if y>75 then y=75 drawscreen goto mainloop title playfield: .XXX.XXX.XXX.XXX.X.X.XXX.XXX.... ..X..X.X.X.X.X...X.X.X.X.X.X.... ..X..X.X.XXX.X.X.X.X.X.X.X.X.... ..X..XXX.X...XXX.XXX.X.X.X.X.... ................................ XXX.XXX.XXX.XXX..XXX.XXX.XXX.XXX X.X.X.X.X.X..X...X.X.X...X...X.X XX..X.X.X.X..X...XX..XX..XX..XX. X.X.X.X.X.X..X...X.X.X...X...X.X X.X.XXX.XXX..X...XXX.XXX.XXX.X.X ................................ end return ground t=rand s=10+(t&1) pfpixel 31 s flip return pwrup COLUP0=rand n=n+1 if n=11 then n=0:r=r+1:c=c+1 if r>63 then r=0:m=255 AUDC0 = 7 o = _PwrUpMusic[r] AUDF0 = o if o>0 then AUDV0 = 8 else AUDV0 = 0 AUDC1 = 15 if o<>25 && o<>22 then AUDV1 = 0 if o=25 then AUDF1 = 15 : AUDV1 = 3 if o=22 then AUDF1 = 4 : AUDV1 = 3 return rootbeer player0: %11010101 %01011011 end return rootbeera player0: %00011000 %00011000 %00100100 %01000010 %11111111 %01111110 %00011000 end return rootbeerb player0: %00001100 %00011100 %00100100 %01000010 %11111111 %01111110 %00011000 end return f18 player1: %11110000 %11111111 %11000000 %10000000 end return