rem RALF vertical bonus round version 1 set romsize 32kSC rem set smartbranching on include fixed_point_math.asm set kernel_options no_blank_lines set debug cyclescore set optimization speed set optimization inlinerand gosub initgame bank2 gosub boy1 bank6 d = 240 main PF0 = 128 COLUBK = 240 : COLUPF = 12 CTRLPF = $31 : COLUP0 = 6 if joy0right then player0x = player0x + 1 if joy0left then player0x = player0x - 1 if !collision(playfield, player0) then player0y = player0y + 1 if player0y = 0 then player0y = 90 s = s + 1 if s = 10 then pfscroll up : t = t + 1 : s = 0 : player0y = player0y - 1 ballx = player0x + 1 : bally = player0y - 2 drawscreen goto main bank 2 initgame const pfres=24 rem const pfrowheight = 4 pfclear pfhline 0 22 31 on const pfscore = 1 pfscore1 = 168 pfscore2 = 255 pfscorecolor = 76 player0x = 78 : player0y = 26 ballheight = 2 score = 000000 : scorecolor = 206 return otherbank bank 3 bank 4 bank 5 rem ******** LEVEL DATA BANK 1 ******** bank 6 boy1 player0: %00111100 %01111110 %11011011 %10111101 %10011001 %01111110 %00011000 %00100100 %01000010 %01000010 end return otherbank boy2 player0: %00011000 %01111100 %10111110 %11011110 %10011110 %01111100 %00010000 %00010000 %00010000 %00010000 end return otherbank bank 7 bank 8 vblank if t = 6 && s = 9 then pfhline 0 0 13 off : t = 0 return