new_castle17new.bas

      set kernel_options no_blank_lines player1colors
	set romsize 8k
     set smartbranching on

  const pfalo = <PF_dat
  const pfblo = <(PF_dat + 44)
  const pfclo = <(PF_dat + 44 * 2)
  const pfdlo = <(PF_dat + 44 * 3)
  const pfelo = <(PF_dat + 44 * 4)
  const pfflo = <(PF_dat + 44 * 5)
  const pfglo = <(PF_dat + 44 * 6)
  const pfhlo = <(PF_dat + 44 * 7)
  const pfilo = <(PF_dat + 44 * 8)
  const pfjlo = <(PF_dat + 44 * 9)
  const pfklo = <(PF_dat + 44 * 10)
  const pfllo = <(PF_dat + 44 * 11)
  const pfmlo = <(PF_dat + 44 * 12)
  const pfnlo = <(PF_dat + 44 * 13)
  const pfolo = <(PF_dat + 44 * 14)
  const pfplo = <(PF_dat + 44 * 15)
  const pfqlo = <(PF_dat + 44 * 16)
  const pfrlo = <(PF_dat + 44 * 17)
  const pfslo = <(PF_dat + 44 * 18)
  const pftlo = <(PF_dat + 44 * 19)

  const pfahi = >PF_dat
  const pfbhi = >(PF_dat + 44)
  const pfchi = >(PF_dat + 44 * 2)
  const pfdhi = >(PF_dat + 44 * 3)
  const pfehi = >(PF_dat + 44 * 4)
  const pffhi = >(PF_dat + 44 * 5)
  const pfghi = >(PF_dat + 44 * 6)
  const pfhhi = >(PF_dat + 44 * 7)
  const pfihi = >(PF_dat + 44 * 8)
  const pfjhi = >(PF_dat + 44 * 9)
  const pfkhi = >(PF_dat + 44 * 10)
  const pflhi = >(PF_dat + 44 * 11)
  const pfmhi = >(PF_dat + 44 * 12)
  const pfnhi = >(PF_dat + 44 * 13)
  const pfohi = >(PF_dat + 44 * 14)
  const pfphi = >(PF_dat + 44 * 15)
  const pfqhi = >(PF_dat + 44 * 16)
  const pfrhi = >(PF_dat + 44 * 17)
  const pfshi = >(PF_dat + 44 * 18)
  const pfthi = >(PF_dat + 44 * 19)



title_screen
 player1x=58 : player1y=96

 playfield:
  .XX.XX.XX.X..X..XX...............
  .X...X.X..XX.X..XX.........XX....
  .X..XX.XX.X..X..XX.........X.....
  .X..XX..X.X..X..X.......XX.XX....
  .XX.XX.XX.XX.XX.XXX.....XX.X.....
  ..................X.....XX.X.....
  ..................X..............
  .................XX.XX.XX.XXXXX..
  .................XX.XX.XX.X.X.X..
  .................XX.XX.XX.X.X.X..
  .................................
end

 player1:
  %0100010
  %0010100
  %0001000
  %0111110
  %1001001
  %0011100
  %0111110
  %0011100
end
 player1color:
  $f2
  $94
  $94
  $C4
  $2c
  $2c
  $2c
  $22
end

 player0:
  %11111111
  %11111111
  %11111111
  %10100101
  %10100101
  %10100101
  %10100101
  %10100101
  %10100101
  %10100101
  %10100101
  %11111111
  %11111111
  %11111111
  %11111111
  %11111111
  %11111111
  %11111111
  %11011011
  %11011011
  %11011011
  %11011011
  %11011011
  %11011011
  %10000011
  %10000011
  %10000011
  %10000011
  %10000011
  %10000011
end


 v=0

get_random_thunder
  w=rand/64 : t=0

title_main
 COLUBK=v : scorecolor=$C4
 COLUP0=$04 : COLUPF=$44 : player0x=50 : player0y=90 : NUSIZ0=$01 : CTRLPF=$31
 ballx=59 : bally=87 : ballheight=13
 if player1y>82 && player1y<200 then e=e+1 else player1y=200
 if e>10 && player1y<>87 then e=0 : player1y=player1y-1
 if e>200 && player1y=87 then e=0 : player1y=player1y-1

 if joy0fire && !b{0} then b{0}=1
 if !joy0fire && b{0} then b{0}=0 : goto new_game

 dim scback=u
 u=$c4

 drawscreen
 z=z+1
 if z>59 then z=0 : t=t+1
 if t=w && z=59 then v=8
 if t>w then goto thunder

 AUDV0=0

 goto title_main

thunder
 AUDV0=v : AUDF0=v*2 : AUDC0=2
 if z>7 then z=0 : v=v-1
 if v=0 then goto get_random_thunder
 goto title_main

new_game

 scorecolor=14


 AUDV0=0


 player0:
  %00010100
  %00111100
  %01111110
  %01010010
  %11011011
end

 o=64
 player1x=23 : player1y=79
 dim level=r

 level=19 : score=20



 if joy0up then level=0 : score=1


 goto get_new_level


main

  COLUPF=$24
  COLUP0=$66
  u=0 : COLUBK=0
  ballheight=13 : CTRLPF=$31

 NUSIZ0=$06
 if level=12 then NUSIZ0=$03
 if level=14 then NUSIZ0=$00
 if level=19 then NUSIZ0=$03

 dim sc1=score
 dim sc2=score+1

 sc1=$DA
 sc2=$BC

 if !switchbw then AUDV0=0 : goto skip_music

 rem music data
 AUDC0=12 : AUDF0=bass_notes[n] : AUDV0=4
 l=l+1
 if l>39 then l=0 : n=n+1 : p=p+1
 if n>47 then n=0 : p=0


skip_music
 if player1x<20 then player1x=132
 if player1x>132 then player1x=20

 if switchreset then goto title_screen

  drawscreen

 if !a{1} && joy0up && collision(player1,ball) then level=level+1 : score=score+1 : goto get_new_level
 if collision(player1,player0) then o=32 : goto get_new_level
 if player1y>90 then goto get_new_level

 if level=14 && m=3 then player0y=player0y+2
 if level=14 && m=4 then player0x=player0x-2
 if level=14 && m=1 then player0y=player0y-2
 if level=14 && m=2 then player0x=player0x+2

 if level=14 && player0y>80 then m=4 : player0y=80 : player0x=player0x-2
 if level=14 && player0x<30 then m=1
 if level=14 && player0y<20 then m=2
 if level=14 && player0x>130 then m=3

 if level=14 then goto main_2


 if level>10 && v>90 && m{0} then player0x=player0x-1
 if level>10 && v>90 && !m{0} then player0x=player0x+1

 if level=10 && m{0} && t>5 then player0x=player0x-1
 if level=10 && !m{0} && t>5 then player0x=player0x+1

 if level=10 && player0y<player1y && t>5 then player0y=player0y+1
 if level=10 && player0y>player1y && t>5 then player0y=player0y-1


 if t>5 then t=0

 if t=5 && player0x>v then m{0}=1
 if t=5 && player0x<20 then m{0}=0

 if v>90 then t=t+1 : goto main_2

 if m{0} then player0y=player0y+1 else player0y=player0y-1
 if player0y=10 then m{0}=1
 if player0y=v then m{0}=0

main_2

 AUDV1=0

  if z>30 then a{0}=0 : a{1}=1 : goto __Test_P0_Down
  if a{0} && z<30 && o=64 then AUDC1=1 : AUDV1=4 : AUDF1=z

  if o<64 then o=o+1 : AUDC1=3 : AUDF1=o/2 : AUDV1=4
 if o>63 then o=64


  if joy0fire && !a{0} then a{0}=1 : goto __Test_P0_Up


  if !joy0fire && a{0} then a{0}=0


  if a{0} then goto __Test_P0_Up
  if !a{0} then a{1}=1 : z=21



__Test_P0_Up
   z=z+1
   b=(player1x-17)/4
   e=(player1y/8)-1
   if pfread(b,e) then a{0}=0 : z=31 : a{0}=0 : a{1}=1 : goto __Cant_Move_Up
   d=b + 2
   if pfread(d,e) then a{0}=0 : z=31 : a{0}=0 : a{1}=1 : goto __Cant_Move_Up
   goto __P0_Move_Up

__Cant_Move_Up
   goto __Skip_Joy0_Up

__P0_Move_Up
   if a{0} then player1y=player1y-1


__Skip_Joy0_Up
   if a{1} then goto __Test_P0_Down
   goto __Skip_Joy0_Down


__Test_P0_Down
   if !a{1} then goto __Skip_Joy0_Down

   b = (player1x-17)/4
   e = ((player1y-7)/8) + 1
   if pfread(b,e) then  goto __Cant_Move_Down
   d = b + 2
   if pfread(d,e) then goto __Cant_Move_Down
   goto __P0_Move_Down


__Cant_Move_Down
	a=0 : z=0
   goto __Skip_Joy0_Down


__P0_Move_Down
   if a{1} then player1y=player1y+1
	if joy0left then goto left
	if joy0right then goto right
	goto main

__Skip_Joy0_Down

left
   f = ((player1x-14)/4)-1
   g = (player1y)/8
   if pfread(f,g) then goto __Cant_Move_Left
   goto __P0_Move_Left

__Cant_Move_Left
   goto __Skip_Joy0_Left

__P0_Move_Left
   if joy0left then player1x=player1x-1 : goto main

__Skip_Joy0_Left
   if joy0right then goto __Test_P0_Right
   goto main

right
__Test_P0_Right
   f = ((player1x-12)/4)+1
   g = ((player1y)/8)
   if pfread(f,g) then goto __Cant_Move_Right


   goto __P0_Move_Right

__Cant_Move_Right
   goto __Skip_Joy0_Right

__P0_Move_Right
   if joy0right  then player1x=player1x+1

__Skip_Joy0_Right
      goto main


level_info

  player0x = P0x_dat[r] : player0y = P0y_dat[r]
  ballx = ballx_dat[r] : bally = bally_dat[r]
  if v_dat[r] then v = v_dat[r]
  if P1x_dat[r] then player1x = P1x_dat[r]
  if r =  5 then player1y = 79
  if r = 18 then player1y = 47

  goto main


  data P0x_dat
  130, 37,  57,  52,  70, 132, 130, 130,  57
  57,  57, 130,  60,  69, 131,  50,  30,  50
  50, 61
end

  data P0y_dat
   20,  20,  30,  30,  30,  56,  60,  48,  48
   47,  47,  72,  66,  12,  10,  40,  40,  49
   56, 36
end

  data ballx_dat
   56, 130, 120,  73,  40, 130,  70, 130, 133
   23,  45, 108,  74,  25, 112,  33,  33,  48
   80, 97
end

  data bally_dat
   78,  78,  78,  30,  54,  54,  78,  22,  30
   22,  30,  62,  78,  54,  78,  54,  54,  22
   78, 78
end

  data v_dat
    80,  70,  00,  80,  90,  00,  80,  00,  80
    90, 130, 135,  90,  90, 135,  90,  90,  90
    90, 70
end

  data P1x_dat
   00,  00,  00,  00,  00,  44,  00,  00,  00
   00,  00,  52,  00,  00,  00,  00,  21,  41
   30, 60
end



 data bass_notes
  23, 20, 19, 23, 20, 19, 23, 20, 19, 23, 20, 19
  24, 23, 20, 24, 23, 20, 24, 23, 20, 24, 23, 20
  27, 24, 23, 27, 24, 23, 27, 24, 23, 27, 24, 23
  29, 27, 24, 29, 27, 24, 29, 27, 24, 29, 27, 24
end



get_new_level

  if r = 20 then level = 0 : score = 1 : goto level_info

  player1x = 23 : player1y = 79
  temp1 = pfdatlo[r] : temp2 = pfdathi[r]
  goto load_new_level bank2


  data pfdatlo
  pfalo, pfblo, pfclo, pfdlo, pfelo, pfflo, pfglo, pfhlo
  pfilo, pfjlo, pfklo, pfllo, pfmlo, pfnlo, pfolo, pfplo
  pfqlo, pfrlo, pfslo, pftlo
end


  data pfdathi
  pfahi, pfbhi, pfchi, pfdhi, pfehi, pffhi, pfghi, pfhhi
  pfihi, pfjhi, pfkhi, pflhi, pfmhi, pfnhi, pfohi, pfphi
  pfqhi, pfrhi, pfshi, pfthi
end



  bank 2

load_new_level

 asm
 ldy #43
load_loop
 lda (temp1),y
 sta var0,y
 dey
 bpl load_loop
end

 goto level_info bank1


  data PF_dat
  %11111111, %11111111, %11111111, %11111111
  %10000000, %00000000, %00000000, %10000000
  %10000000, %00000000, %00000000, %10000000
  %10000000, %11111111, %11111111, %10000111
  %10000000, %00000100, %00000001, %10000001
  %11111000, %00000100, %00000001, %10000001
  %10000000, %00000100, %00000000, %10000110
  %10000000, %00000111, %11000000, %10000110
  %10000000, %00000001, %11000000, %10000000
  %10000000, %00000001, %11000000, %10000000
  %11111111, %11111111, %11000000, %11111111

  %11111111, %11111111, %11111111, %11111111
  %10000000, %00000000, %00000000, %10000000
  %10000000, %00000000, %00000000, %10000000
  %10000011, %11111111, %11111111, %10000111
  %11100010, %00000000, %00000000, %10000000
  %10000010, %00000000, %00000000, %10000000
  %10000010, %11000000, %11111111, %11111111
  %10001110, %11000110, %11000011, %10000111
  %10000010, %00000000, %00000000, %10000000
  %10000010, %00000000, %00000000, %10000000
  %11111110, %11000000, %11000011, %11111111

  %11111111, %11111111, %11111111, %11111111
  %10000000, %00000000, %00000000, %10000000
  %10000000, %00000000, %00000000, %10000000
  %10000000, %00000000, %00000000, %10000111
  %10000000, %00000000, %00000000, %10000101
  %10000000, %00000000, %00000000, %10000101
  %10000000, %00001100, %01100000, %10000101
  %10000110, %00000000, %00000000, %10000111
  %10000110, %00000000, %00000000, %10000001
  %10000110, %00000000, %00000000, %10000001
  %11111110, %00000000, %00000000, %11111111

  %11111111, %11111111, %11111111, %11111111
  %10000000, %00010000, %00000000, %10000000
  %10000000, %00010000, %00000000, %10000000
  %10000000, %00010000, %00000011, %10000001
  %10000011, %11110000, %11111110, %11110000
  %10000011, %00110000, %00000010, %10000000
  %10000011, %00110000, %00000010, %10000000
  %10001111, %00110000, %01100011, %10000111
  %10000011, %00000000, %01100000, %10000000
  %10000011, %00000000, %01100000, %10000000
  %11111111, %00110000, %01100001, %11111111

  %11111111, %11111111, %11111111, %11111111
  %11110000, %00000000, %00000000, %10000000
  %10000000, %00000000, %00000000, %10000000
  %10000000, %00000000, %00000000, %10000000
  %10001111, %10000011, %10000110, %10000110
  %10000000, %10000010, %10000110, %10000000
  %10000000, %10000010, %10000000, %11100000
  %11111111, %00000011, %00000000, %10000000
  %10000000, %00000000, %00000000, %10000110
  %10000000, %00000000, %00000110, %10000110
  %11111111, %10000011, %10000110, %10000110

  %11111111, %11111111, %11111111, %11111111
  %10000000, %00000000, %00000000, %10000000
  %10000000, %00000000, %00000000, %10000000
  %10000000, %00000000, %00000000, %10000000
  %10000000, %00011000, %00110000, %10000110
  %10001100, %00011000, %00110000, %10000110
  %10001100, %00011000, %00110000, %10000110
  %10001100, %00011000, %00000000, %11111110
  %10001100, %00011110, %00000000, %10000000
  %10001100, %00011000, %00000000, %10000000
  %10001111, %11111111, %11111111, %11111111

  %11111111, %11111111, %11111111, %11111111
  %10000000, %00000000, %00000000, %10000000
  %10000000, %00000000, %00000000, %10000000
  %10000011, %00011000, %00011110, %10001100
  %10001111, %11111111, %11111110, %10001100
  %10000011, %00000000, %00000000, %10001100
  %10000011, %00000000, %00000000, %10001100
  %11100000, %11111000, %11111111, %10001111
  %10000000, %00001000, %00000000, %10000000
  %10000000, %00001000, %00000000, %10000000
  %11111110, %01111000, %00111000, %10001111

  %11111111, %11111111, %11111111, %11111111
  %10000000, %00000000, %00000100, %10000000
  %10000000, %00000000, %00000100, %10000000
  %10001100, %11000110, %11000100, %11111100
  %10000000, %01000000, %01000100, %10000000
  %11100000, %01000000, %01000111, %10000000
  %00100000, %01000000, %01000101, %10000000
  %11111111, %01000011, %01000111, %10001111
  %10000000, %01000000, %01000000, %10000000
  %10000000, %01000000, %01000000, %10000000
  %11111111, %01111111, %01111111, %11111111

  %11111111, %11111111, %11111111, %11111111
  %10000000, %00010000, %00000001, %10000000
  %10000000, %00010000, %00000001, %10000000
  %10000001, %00010001, %00110001, %10000000
  %10000111, %00010001, %11110001, %11111000
  %10000001, %00010001, %00110001, %10000000
  %10000001, %00010001, %00110001, %10000000
  %11110001, %01110001, %00110001, %10000011
  %10000001, %00000001, %00110000, %10000000
  %10000001, %00000001, %00110000, %10000000
  %11111111, %11111111, %11111111, %11111111

  %11111111, %11111111, %11111111, %00001111
  %10000000, %00000010, %00000000, %00001000
  %10000000, %00000010, %00000000, %00001000
  %11111100, %00000010, %11111100, %11111000
  %00000000, %00001110, %11000000, %00000110
  %00000000, %00000010, %11000001, %00000001
  %11111111, %00000011, %11000001, %11000001
  %10000000, %00001110, %11000001, %11000001
  %10000000, %00000000, %11110000, %11110000
  %10000110, %00000000, %00111100, %11000000
  %11111111, %00111111, %00000011, %11111111

  %10000000, %00000000, %00000000, %10000000
  %10000111, %11111111, %11111111, %10000011
  %10000100, %00000000, %00000000, %10000010
  %10000100, %00000000, %00000000, %10000010
  %10000111, %11111111, %11111000, %10001110
  %10000000, %00000000, %00000000, %10000010
  %10000000, %00000000, %00000000, %10000010
  %11111111, %11111111, %11111111, %11100011
  %10000000, %00000000, %00000000, %10000000
  %10000000, %00000000, %00000000, %10000000
  %11111111, %11111111, %11111111, %11111111

  %11111111, %11111111, %11111111, %11111111
  %00000011, %00000000, %00000000, %00000000
  %00000011, %00000000, %00000000, %00000000
  %11100011, %11110000, %11111111, %11111111
  %10000011, %00000000, %00000100, %10000000
  %10001111, %00000000, %00000100, %10000000
  %10000011, %00011000, %11000100, %10000000
  %11100000, %00011000, %11000100, %10000110
  %10000000, %00011000, %11000111, %10000111
  %10000000, %00011000, %11000000, %10000000
  %11100000, %00011111, %11111111, %11111111

  %00001111, %11111111, %11111111, %11111111
  %11111100, %00000000, %01100000, %10000000
  %10000000, %00000000, %01100000, %10000000
  %10000000, %00110000, %01100000, %10001111
  %10001111, %00111111, %01111000, %10000011
  %10000000, %00110000, %00000000, %10000011
  %10000000, %00110000, %00000000, %11100011
  %11111111, %11110001, %11111111, %00100011
  %10000000, %00010000, %00000000, %00100000
  %10000000, %00010000, %00000000, %00100000
  %11111111, %11110001, %11111111, %00111111

  %10000000, %00000000, %00000000, %10000000
  %10000000, %00000000, %00000000, %10000000
  %10001111, %11111111, %11000110, %10000000
  %10001000, %00000000, %11000000, %11100000
  %10001000, %00000000, %11000000, %10000000
  %10001000, %00001100, %11000000, %10000000
  %10001000, %00000100, %11000110, %10000000
  %11111000, %11000111, %00000000, %11100000
  %10000000, %00000100, %00000000, %10000000
  %10000000, %00000100, %00000000, %10000000
  %11111111, %11111111, %00000110, %11100000

  %11111111, %11111111, %11111111, %11111111
  %10000000, %01000000, %00001100, %10000000
  %10000000, %01000000, %00000000, %10000000
  %10000011, %01000111, %00000000, %10001110
  %11100010, %01000000, %00111111, %10000011
  %10000010, %01000000, %00000000, %11100001
  %10000010, %01111100, %00000000, %10000001
  %10001110, %11100000, %11100011, %10001111
  %10000010, %00000000, %00000010, %10000000
  %10000010, %00000000, %00000010, %10000000
  %11111110, %00110000, %01100011, %10001111

  %11111111, %11111111, %11111111, %11111111
  %10000000, %00000000, %00000000, %10000000
  %10000000, %00000000, %00000000, %10000000
  %10001111, %00011111, %11111000, %10000011
  %10001110, %00010000, %10001000, %11100011
  %10000010, %11110000, %10001111, %10000011
  %10000010, %00000000, %00000000, %10000000
  %11111110, %00000000, %00000000, %11100000
  %10000000, %00001100, %00000110, %10000000
  %10000000, %00001100, %11000110, %10000000
  %11111110, %00001100, %11000111, %11111111

  %11111111, %11111111, %11111111, %11111111
  %00000010, %00000000, %00000000, %00000000
  %00000010, %00000000, %00000000, %00000000
  %11000010, %11111100, %10000000, %11000000
  %11000010, %00000000, %01111111, %11111111
  %11000010, %00000000, %00000000, %10000000
  %11000011, %00000011, %00000000, %10000000
  %11111111, %11111111, %11111111, %10001111
  %10000000, %00000000, %00000000, %10000000
  %10000000, %00000000, %00000000, %10000000
  %11110001, %11100011, %00011100, %10001110

  %11111111, %11111111, %11111111, %11111111
  %00000010, %00000000, %00000000, %00000000
  %00000010, %00000000, %00000000, %00000000
  %11000011, %11000001, %00000111, %11111111
  %11000000, %00000001, %00000110, %10000000
  %11110000, %00000001, %00000110, %10000000
  %11000000, %00000001, %00000110, %10000000
  %00000111, %00000001, %11000110, %10001100
  %00000100, %00000000, %11000000, %00001100
  %00000100, %00000000, %11000000, %00001100
  %11111111, %11111111, %11111111, %11111111

  %11111111, %11111111, %11111111, %11111111
  %10000000, %00110000, %00000000, %10000000
  %10000000, %00110000, %00000000, %10000000
  %10001111, %00110000, %01111111, %10000011
  %10000011, %00000000, %01100000, %10000000
  %10000011, %00000000, %01100000, %10000000
  %11111111, %11111111, %11100011, %11111111
  %00000000, %00110000, %00100000, %00000000
  %00000000, %00000000, %00100000, %00000000
  %00000001, %00000001, %00100000, %00000000
  %11100001, %11100001, %11100011, %11111000

  %11111111, %11111111, %11111111, %11111111
  %10000000, %10000000, %10000000, %10000000
  %10000000, %10000000, %10000000, %10000000
  %10000011, %10001111, %10001111, %10000011
  %10001110, %10000000, %10000000, %10001110
  %10000010, %00000000, %00000000, %10000010
  %10000011, %00001111, %00001111, %10000011
  %10001111, %00111111, %00111111, %10001111
  %10000000, %00100000, %00100000, %10000000
  %10000000, %00100000, %00100000, %10000000
  %10001111, %00111111, %00111111, %10001111
end

 goto level_info_bank1_jump

cu
  reboot

level_info_bank1_jump
 goto level_info bank1


   asm
minikernel
   lda scback
   sta COLUBK
   rts
end