game-16_mod_w_asm.bas

 bank 1
 temp1=temp1

 set tv ntsc
 set kernel DPC+
 set smartbranching on
 set optimization inlinerand
 set kernel_options collision(playfield,player1)

 rem bit variable to control l/r movement of sprites

 MoveFlag{0}=1
 MoveFlag{1}=1
 MoveFlag{2}=1
 MoveFlag{3}=1

 goto Start bank2

 bank 2
 temp1=temp1

 rem
 rem Set data tables for room shape and movement
 rem
   data room_shape
   0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15
end
   data move_east
   1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,0
end
   data move_west
   15,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14
end

 rem I always forget these values, threw it in here for reference.

 rem NUSIZ
 rem
 rem $0x missile = 1 pixel wide
 rem $1x missile = 2 pixels wide
 rem $2x missile = 4 pixels wide
 rem $3x missile = 8 pixels wide
 rem $x0 one copy of player and missile
 rem $x1 two close copies of player and missile
 rem $x2 two medium copies of player and missile
 rem $x3 three close copies of player and missile
 rem $x4 two wide copies of player and missile
 rem $x5 double-sized player
 rem $x6 three medium copies of player and missile
 rem $x7 quad-sized player
 rem
 rem CTRLPF
 rem
 rem $0x ball = 1 pixel wide
 rem $1x ball = 2 pixels wide
 rem $2x ball = 4 pixels wide
 rem $3x ball = 8 pixels wide
 rem $x1 none of the below
 rem $x3 left half of PF gets player0 color, right half gets player1 color
 rem $x5 players move behind playfield
 rem $x7 both of the above

Start

   rem I want start room to be 7
   room = 6

 gosub draw_room

   player0x = 45
   player0y = 85

   dim room = a
   dim p0_x = b
   dim p0_y = c
   dim roomcolor = d
   dim roomflagA=e
   dim roomflagB=f
   dim counter=g
   dim MoveA=h
   dim MoveB=i
   dim MoveC=j
   dim MoveD=k
   dim MoveFlag=l
   dim ScorpionMove=m
   dim EnemyCounter=n
   dim LogCounter=n
   dim MoveE=o
   dim JoyFlag=p
   dim TreasureLoc=q
   dim ScreenCounter=r
   dim MoveF=s
   rem t
   rem u
   rem v
   rem w
   rem x
   dim PlayerAnimate=y
   rem z

   const _brown = $F2
   const _pink = $3C
   const _skyblue = $98
   const _olive = $E4
   const _lilac = $7A
   const _aqua = $B8
   const _orange = $38
   const _blue = $86
   const _red = $46
   const _purple = $64
   const _lime = $DA
   const _gold = $2E
   const _navy = $84
   const _green = $C6
   const _maroon = $42
   const _yellow = $1E
   const _fuchsia = $58
   const _cyan = $A6
   const _white = $0E
   const _ltgray = $0C
   const _silver = $0A
   const _gray = $08
   const _dkgray = $02
   const _black = $00
   const _tan = $FC
   const _forestgreen = $D2

   MoveA=100
   MoveD=25
   MoveC=156
   MoveE=140
   MoveF=26
   counter=20
   ScorpionMove=77
   JoyFlag=1

main


   rem for test/dev, easier to tell which room you're in.
   score = 0
   score = score + room

 rem doubles the vine in the middle
 if room=7 || room=9 then NUSIZ2=$04 else NUSIZ2=$00

 rem COLUM1=counter
 rem NUSIZ1=$30: rem missile is 8 wide
 rem missile1height=5

 COLUM0=counter
 NUSIZ0=$30: rem missile is 8 wide
 missile0height=5

 if room=8 then CTRLPF=$31:goto skipnext1
 CTRLPF=$21
skipnext1
 ballheight=44

 counter=counter+1
 if counter>80 then counter=0

 EnemyCounter=EnemyCounter+1
 if EnemyCounter>8 then EnemyCounter=1

 rem the next two lines keep the scorpion from getting stuck in a vertical barrier
 rem


 if collision(player1,playfield) && player0x<ScorpionMove then ScorpionMove=ScorpionMove+2
 if collision(player1,playfield) && player0x>ScorpionMove then ScorpionMove=ScorpionMove-2
 player4x=ScorpionMove:player4y=157


 if player0x<ScorpionMove && EnemyCounter=2 then NUSIZ4{3} = 1:ScorpionMove=ScorpionMove-1
 if player0x>ScorpionMove && EnemyCounter=2 then NUSIZ4{3} = 0:ScorpionMove=ScorpionMove+1
skipscorpionmove

 rem arrange sprites and objects on each screen
  rem Room Changes
  rem
  rem player1/2 are swinging vines
  rem player3 is a ladder
  rem player4 is the scorpion
  rem player5 is an arrow
  rem player6 is undefined
  rem player7 is undefined
  rem player8 is a tar pit
  rem player9 is a treasure
  rem
  rem Remove 'player4x=180:player4y=180' to make the scorpion appear in any given room.
  rem

arrange_sprites
 asm
 ldx room
 lda p1x,x
 sta player1x
 lda p1x+16,x
 sta player1y
 lda p1x+32,x
 sta player2x
 lda p1x+48,x
 sta player2y
 lda p1x+64,x
 sta player3x
 lda p1x+80,x
 sta player3y
 lda p1x+96,x
 sta player5x
 lda p1x+112,x
 sta player5y
 lda p1x+128,x
 sta player6x
 lda p1x+144,x
 sta player6y
 lda p1x+160,x
 sta player7x
 lda p1x+176,x
 sta player7y
 lda p1x+192,x
 sta player8x
 lda p1x+208,x
 sta player8y
 lda p1x+224,x
 sta player9x
 lda p1x+240,x
 sta player9y
 lda p1x+256,x
 sta ballx
 lda p1x+272,x
 sta bally
 lda p1x+288,x
 sta missile0x
 lda p1x+304,x
 sta missile0y
end

 on room gosub pl5 r01 r02 ret ret ret r06 r07 r08 r09 pl5 pl5 r12 ret pl5 r15
 goto Player_Jump


 rem empty labels as place holders incase of needed

r00
r01
 NUSIZ7=$00
 goto pl5

r02
 NUSIZ8=$04 : ballx = MoveB
 goto pl4

r03
r04
r05
r06
 player6x=MoveC
 return thisbank

r07
 player5x = MoveE : player6x = MoveC : player7x = MoveD : NUSIZ7 = $06
 missile1x = 180 : missile1y = 180
 goto pl4

r08
 NUSIZ7 = $04 : ballx = MoveB
 goto pl4

r09
 player5x = MoveE : player6x = MoveC
 NUSIZ8{2}= 1
 goto pl4

r10
r11
r12
r13

r14
pl5
 player5x = MoveE
 return thisbank

r15
 player6x = MoveC : player7x = MoveD
 NUSIZ7=$06 : NUSIZ8=$07
 player8color:
 $86
 $86
 $86
 $86
 $86
 $86
 $86
 $86
end

pl4
 player4x = 180 : player4y = 180
ret
 return thisbank

 rem columns are rooms

 data p1x
 120,  76, 180,  44, 116, 116,  72, 180,  36,  88,  52, 180, 120, 120, 104, 180,
  87, 127, 180, 127, 127, 127, 127, 180, 127, 127, 127, 180, 127, 127, 127, 180,
  36, 180,  48, 108,  32,  84, 180,  56, 180,  32, 100,  32,  48,  32,  36, 180,
 127, 180,  87,  87,  87,  87, 180,  87, 180,  87,  87,  87,  87,  87,  87, 180,
  28, 180,  96, 128,  92, 116,  72, 180,  92, 180,  44, 104, 100,  76, 180, 180,
  47, 180,  47,  47,  47,  47,  47, 180,  47, 180,  47,  47,  47,  47, 180, 180,
 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, 180,
 117, 117, 180, 180, 180, 180, 180,  77, 180,  77, 116,  77, 180, 180,  77, 180,
 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, 180,
 180, 180, 180, 180, 180, 180,  74,  34, 180,  34, 180, 180, 180, 180, 180,  74,
 180,  70,  90,  90,  90, 180,  90, 180, 135,  90,  90, 180,  90, 180, 180, 180,
 189,  40, 180, 180, 180, 180, 180, 159,  78, 180, 180, 180, 180, 180, 180, 159,
 180, 180,  43, 180, 180, 180, 180, 180, 180,  43, 180, 180, 180, 180, 180, 180,
 180, 180, 165, 180, 180, 180, 180, 180, 180, 165, 180, 180, 180, 180, 180, 180,
 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, 180,
 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, 180,
 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, 180,
 180, 180,  88, 180, 180, 180, 180, 180,  88, 180, 180, 180, 180, 180, 180, 180,
 180, 180, 180, 180, 180, 180, 180,  77, 180, 180, 180, 180, 180, 180, 180, 180,
 180, 180, 180, 180, 180, 180, 180,  92, 180, 180, 180, 180, 180, 180, 180, 180,
end

 rem if joy0fire && !collision(player0,playfield) && player0y>10 then player0y=player0y-1:goto skipplat

 rem Player Jump
 rem
Player_Jump
 JoyFlag=JoyFlag+1
 if JoyFlag > 60 then set_JF
 if !joy0fire then set_JF

 if JoyFlag >= 20 then skipjump

plat
 if player0y<30 && player0y>12 then player0y=13 : goto skipplat
 if player0y<70 && player0y>52 then player0y=53 : goto skipplat
 if player0y<110 && player0y>92 then player0y=93 : goto skipplat
 if player0y<150 && player0y>132 then player0y=133
 goto skipplat

set_JF
 JoyFlag = 1
skipjump
 if !collision(player1,player0) && player0y < 38 then player0y=26 : goto col_done
 goto limits

skipplat
 if !collision(player0,playfield) then col_done
limits
 if collision(player1,player0) then col_done
 if player0y>121 then player0y=146 : goto col_done
 if player0y>81 && player0y<112 then player0y=106 : goto col_done
 if player0y>41 && player0y<72 then player0y=66

col_done

 if MoveFlag{0} then MoveA=MoveA+1
 if !MoveFlag{0} then MoveA=MoveA-1
 if MoveA<75 then MoveFlag{0}=1
 if MoveA>120 then MoveFlag{0}=0

 rem For Moving wall (made with ball)
 if MoveFlag{1} && EnemyCounter<3 then MoveB=MoveB+1
 if !MoveFlag{1} && EnemyCounter<3 then MoveB=MoveB-1
 if MoveB<25 then MoveFlag{1}=1
 if MoveB>130 then MoveFlag{1}=0

 rem MoveFlag{2} is for alligator movement
 if MoveFlag{2} && EnemyCounter<2 then MoveD=MoveD+1
 if !MoveFlag{2} && EnemyCounter<2 then MoveD=MoveD-1
 if MoveD<25 then MoveFlag{2}=1
 if MoveD>70 then MoveFlag{2}=0

 rem MoveE=Arrow
 if EnemyCounter<4 then MoveE=MoveE-1
 if MoveE<15 then MoveE=146

 rem MoveF=Missile0
 if EnemyCounter<3 then MoveF=MoveF+1
 if MoveF>65 then MoveF=25

 rem MoveC=Log
 if EnemyCounter<6 then MoveC=MoveC-1
 if MoveC<15 then MoveC=146

 rem set player heights
 player0height=20
 player1height=20
 player2height=20
 player3height=20
 player4height=11
 player5height=4
 player6height=13
 player7height=8
 player8height=7
 player9height=13


 rem player1/2 are swinging vines
 if counter=20 then player1-2:
  %11111111
  %00010000
  %00010000
  %00010000
  %00010000
  %00010000
  %00010000
  %00010000
  %00001000
  %00001000
  %00001000
  %00001000
  %00001000
  %00001000
  %00000100
  %00000010
  %00000010
  %00000010
  %00000010
  %00000010
end

  if counter=40 then player1-2:
  %11111111
  %00010000
  %00010000
  %00010000
  %00010000
  %00010000
  %00010000
  %00010000
  %00010000
  %00010000
  %00010000
  %00010000
  %00010000
  %00010000
  %00010000
  %00010000
  %00010000
  %00010000
  %00010000
  %00010000
end

  if counter=60 then player1-2:
  %11111111
  %00010000
  %00010000
  %00010000
  %00010000
  %00010000
  %00010000
  %00100000
  %00100000
  %00100000
  %00100000
  %00100000
  %00100000
  %00100000
  %01000000
  %01000000
  %01000000
  %01000000
  %01000000
  %01000000
end

  if counter=80 then player1-2:
  %11111111
  %00010000
  %00010000
  %00010000
  %00010000
  %00010000
  %00010000
  %00010000
  %00010000
  %00010000
  %00010000
  %00010000
  %00010000
  %00010000
  %00010000
  %00010000
  %00010000
  %00010000
  %00010000
  %00010000
end

 rem player3 is a ladder
 player3:
 %01111110
 %01000010
 %01000010
 %01000010
 %01111110
 %01000010
 %01000010
 %01000010
 %01111110
 %01000010
 %01000010
 %01000010
 %01111110
 %01000010
 %01000010
 %01000010
 %01111110
 %01000010
 %01000010
 %01000010
end

  rem player4 is the scorpion
  if counter=40 then player4:
  %01110000
  %11001000
  %10001000
  %10010000
  %10000010
  %11000110
  %11111000
  %11111000
  %01111101
  %00110010
  %10000101
end
  if counter=80 then player4:
  %00000000
  %01110000
  %11001000
  %10001000
  %10010010
  %11000100
  %11111010
  %11111000
  %01111100
  %00110011
  %01001001
end

  rem player5 is an arrow
 player5:
  %01100001
  %11111110
  %11111110
  %01100001
end

  rem player6 is undefined
  if LogCounter=3 then player6:
  %00000000
  %00011000
  %00111100
  %01101110
  %01111010
  %01101110
  %01111010
  %01111110
  %01100110
  %01011010
  %01011010
  %00100100
  %00011000
end
  if LogCounter=7 then player6:
  %00011000
  %00111100
  %01110110
  %01011110
  %01110110
  %01011110
  %01111110
  %01100110
  %01011010
  %01011010
  %00100100
  %00011000
  %00000000
end

  rem player7 is the alligator
  if counter<60 then player7:
  %00000000
  %00000000
  %00000100
  %00000110
  %11111111
  %01010101
  %10101011
  %11111111
end
  if counter>59 then player7:
  %10000000
  %11100100
  %10111110
  %00101111
  %00001011
  %00000011
  %10101011
  %11111111
end

  rem player8 is a tar pit
 player8:
  %11111111
  %11111111
  %11111111
  %11111111
  %11111111
  %01111110
  %00111100
end
  rem player9 is a treasure
 player9:
  %11111111
  %11111111
  %01010101
  %11111111
  %11111111
  %01111110
  %00111100
  %00011000
  %00111100
  %00011000
  %00011000
  %00111100
  %11111111
end

 player0color:
   $F4
   $F4
   $F2
   $F2
   $F2
   $4C
   $4C
   $4C
   $16
   $16
   $16
   $16
   $16
   $EA
   $EA
   $EA
   $EA
   $F4
   $F4
   $E4
   $E4
end

 player1color:
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
end

 player2color:
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
 $D2
end

 player3color:
 $00
 $F4
 $F4
 $F4
 $F4
 $C2
 $C2
 $C2
 $C2
 $C2
 $C2
 $C2
 $C2
 $C2
 $C2
 $C2
 $C2
 $C2
 $C2
 $C2
 $C2
 $C2
 $C2
 $C2
 $C2
 $C2
 $C2
 $C2
 $C2
 $C2
 $C2
 $C2
 $C2
 $C2
 $C2
 $C2
 $C2
 $C2
 $C2
 $C2
 $C2
 $C2
end

 player4color:
 $08
 $08
 $08
 $08
 $08
 $08
 $08
 $08
 $08
 $08
 $08
end

 player5color:
 28
 26
 24
 22
end

 player6color:
 $F6
 $F6
 $F6
 $F6
 $F6
 $F6
 $F6
 $F6
 $F6
 $F6
 $F6
 $F6
 $F6
end

 player7color:
 $C6
 $C6
 $C6
 $C6
 $C6
 $C6
 $C6
 $C6
end

 if room=15 then skip8
 player8color:
 0
 0
 0
 0
 0
 0
 0
 0
end
skip8

 player9color:
 28
 00
 28
 00
 28
 26
 28
 28
 28
 28
 24
 26
 28
end

 pfcolors:
 $C6 ; sky - tree leaves
 $C6 ; sky - tree leaves
 $C6 ; sky - tree leaves
 $C6 ; sky - tree leaves
 $C6 ; sky - tree leaves
 $C6 ; sky - tree leaves
 $F0 ; sky - tree trunk
 $F0 ; sky - tree trunk
 $F0 ; sky - tree trunk
 $F0 ; sky - tree trunk
 $F0 ; sky - tree trunk
 $F0 ; sky - tree trunk
 $F4 ; walkway
 $F4 ;  barriers
 $F4 ;  barriers
 $F4 ;  barriers
 $F4 ;  barriers
 $F4 ;  barriers
 $F4 ;  barriers
 $F4 ;  barriers
 $F4 ;  barriers
 $F4 ;  barriers
 $F4 ; walkway
 $F4 ;  barriers
 $F4 ;  barriers
 $F4 ;  barriers
 $F4 ;  barriers
 $F4 ;  barriers
 $F4 ;  barriers
 $F4 ;  barriers
 $F4 ;  barriers
 $F4 ;  barriers
 $F4 ; walkway
 $F4 ;  barriers
 $F4 ;  barriers
 $F4 ;  barriers
 $F4 ;  barriers
 $F4 ;  barriers
 $F4 ;  barriers
 $F4 ;  barriers
 $F4 ;  barriers
 $F4 ;  barriers
 $F4 ; walkway
 $F4 ; walkway
end

 if room=15 || room=7 then goto altbk
 bkcolors:
 $88 ; sky
 $88 ; sky
 $88 ; sky
 $86 ; sky
 $86 ; sky
 $86 ; sky
 $84 ; sky
 $84 ; sky
 $84 ; sky
 $82 ; sky
 $82 ; sky
 $82 ; sky
 $82 ; sky
 $80 ; sky
 $80 ; sky
 $80 ; sky
 $80 ; sky
 $80 ; sky
 $80 ; sky
 $80 ; sky
 $80 ; sky
 $80 ; sky
 $C2 ; walkway - green
 $F4 ; walkway - brown
 $F4 ; walkway - brown
 $F0
 $F0
 $F0
 $F0
 $F0
 $F0
 $F0
 $F0
 $F0
 $F0
 $F0
 $F0
 $F0
 $F0
 $F0
 $F0
 $F0
 $C2 ; walkway - green
 $F4 ; walkway - brown
 $F4 ; walkway - brown
 $00
 $00
 $00
 $00
 $00
 $00
 $00
 $00
 $00
 $00
 $00
 $00
 $00
 $00
 $00
 $00
 $00
 $C2 ; walkway - green
 $F4 ; walkway - brown
 $F4 ; walkway - brown
 $00
 $00
 $00
 $00
 $00
 $00
 $00
 $00
 $00
 $00
 $00
 $00
 $00
 $00
 $00
 $00
 $00
 $02 ; walkway - green
 $F4 ; walkway - brown
 $F4 ; walkway - brown
 $F4 ; walkway - brown
 $F4 ; walkway - brown
 $F0
end
altbk_ret

 rem roomcolor=room_color[room]
 rem  pfcolors:
 rem  roomcolor
 rem end

   if joy0left then w=1:REFP0=8
   if joy0right then w=0:REFP0=0
   if w=0 then REFP0 = 0
   if w=1 then REFP0 = 8

  if !joy0up && !joy0down && !joy0left && !joy0right then y=20 :gosub still

  PlayerAnimate=PlayerAnimate+1

  if PlayerAnimate=10 then player0:
        %00011000
        %00011000
        %00111100
        %00111100
        %00111100
        %00011000
        %00011000
        %00010000
        %00010000
        %00100100
        %00100100
        %01111100
        %01111100
        %01011010
        %01011010
        %00100000
        %00100000
        %00011000
        %00011000
        %00011100
        %00011100
end

 if PlayerAnimate=20 then player0:
        %00011000
        %00011000
        %00111100
        %00111100
        %00111100
        %00011000
        %00011000
        %00010000
        %00010000
        %01100100
        %01100100
        %01000000
        %00000000
        %00011000
        %00011000
        %00110100
        %00110100
        %00100100
        %00100100
        %00000110
        %00000110
end

 if PlayerAnimate=30 then player0:
        %00011000
        %00011000
        %00111100
        %00111100
        %00111100
        %00011000
        %00011000
        %00010000
        %00010000
        %00100100
        %00100100
        %00111100
        %00111100
        %00101000
        %00101000
        %00011100
        %00011100
        %00110110
        %00110110
        %01100011
        %01100011
        %01000000
        %01000000
end

 if PlayerAnimate>30 then PlayerAnimate=0

 scorecolors:
 $20
 $22
 $24
 $26
 $28
 $2A
 $2C
 $2E
end

 if switchreset then reboot

   p0_x = 0
   if joy0left then p0_x = 255
   if joy0right then p0_x = 1
   player0x = player0x + p0_x

   if collision(player0,playfield) then skip_ud
   if !collision(player0,player1) then skip_ud

   p0_y = 0
   if joy0up then p0_y = 255
   if joy0down then p0_y = 1
   player0y = player0y + p0_y
skip_ud

   if player0x = 155 then gosub go_east
   if player0x = 1 then gosub go_west

   DF0FRACINC = 64
   DF1FRACINC = 64
   DF2FRACINC = 64
   DF3FRACINC = 64
   DF4FRACINC = 128
   DF6FRACINC = 255

   drawscreen

   if player0y>32 && collision(player0,playfield) then gosub knock_player_back

   goto main

altbk
 bkcolors:
 $88 ; sky
 $88 ; sky
 $88 ; sky
 $86 ; sky
 $86 ; sky
 $86 ; sky
 $84 ; sky
 $84 ; sky
 $84 ; sky
 $82 ; sky
 $82 ; sky
 $82 ; sky
 $82 ; sky
 $80 ; sky
 $80 ; sky
 $80 ; sky
 $80 ; sky
 $80 ; sky
 $80 ; sky
 $80 ; sky
 $80 ; sky
 $80 ; sky
 $F6 ; walkway - green
 $F4 ; walkway - brown
 $F4 ; walkway - brown
 $F0
 $F0
 $F0
 $F0
 $F0
 $F0
 $F0
 $F0
 $F0
 $F0
 $F0
 $F0
 $F0
 $F0
 $F0
 $F0
 $F0
 $C2 ; walkway - green
 $F4 ; walkway - brown
 $F4 ; walkway - brown
 $00
 $00
 $00
 $00
 $00
 $00
 $00
 $00
 $00
 $00
 $00
 $00
 $00
 $00
 $00
 $00
 $00
 $C2 ; walkway - green
 $F4 ; walkway - brown
 $F4 ; walkway - brown
 $00
 $00
 $00
 $00
 $00
 $00
 $00
 $00
 $00
 $00
 $00
 $00
 $00
 $00
 $00
 $00
 $00
 $86 ; walkway - green
 $84 ; walkway - brown
 $F4 ; walkway - brown
 $F4 ; walkway - brown
 $F4 ; walkway - brown
 $F0
end
 goto altbk_ret


still
        player0:
        %00011000
        %00011000
        %00111100
        %00111100
        %00111100
        %00011000
        %00011000
        %00010000
        %00010000
        %00100100
        %00100100
        %01111100
        %01111100
        %01011010
        %01011010
        %00100000
        %00100000
        %00011000
        %00011000
        %00011100
        %00011100
end
  return thisbank

knock_player_back
   player0x = player0x - p0_x
   player0y = player0y - p0_y - 1
   return thisbank

go_east
   ScreenCounter=ScreenCounter+1
   if ScreenCounter>18 then ScreenCounter=1
   ScorpionMove=75
   MoveE=74
   MoveC=146
   player0x = 10
   room = move_east[room]
   goto draw_room

go_west
   ScreenCounter=ScreenCounter+1
   if ScreenCounter>18 then ScreenCounter=1
   ScorpionMove=75
   MoveC=106
   player0x = 150
   room = move_west[room]

draw_room

 temp1 = room_shape[room]
   on temp1 goto rs00 rs01 rs02 rs03 rs04 rs05 rs06 rs07 rs08 rs09 rs10 rs11 rs12 rs13 rs14 rs15

rs00
 playfield:
 ....XXXXX..............XXXXX....
 ...XXXXXXX............XXXXXXX...
 ..XXXXXXXXX..........XXXXXXXXX..
 ..XXXXXXXXX..........XXXXXXXXX..
 ...XXXXXXX............XXXXXXX...
 ....XXXXX..............XXXXX....
 ......X..................X......
 .....XX..................X......
 ......XX.................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...............................
 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
end
  return thisbank

rs01
 playfield:
 ....XXXXX..........XXXXX........
 ...XXXXXXX........XXXXXXX.......
 ..XXXXXXXXX......XXXXXXXXX......
 ..XXXXXXXXX......XXXXXXXXX......
 ...XXXXXXX........XXXXXXX.......
 ....XXXXX..........XXXXX........
 ......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........................
 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
end
  return thisbank

rs02
 playfield:
 ....XXXXX............XXXXX......
 ...XXXXXXX..........XXXXXXX.....
 ..XXXXXXXXX........XXXXXXXXX....
 ..XXXXXXXXX........XXXXXXXXX....
 ...XXXXXXX..........XXXXXXX.....
 ....XXXXX............XXXXX......
 ......X................X........
 ......X................X........
 ......X................X........
 ......X................X........
 ......X................X........
 ......X................X........
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
end
  return thisbank

rs03
 playfield:
 ...............XXXXX............
 ..............XXXXXXX...........
 .............XXXXXXXXX..........
 .............XXXXXXXXX..........
 ..............XXXXXXX...........
 ...............XXXXX............
 .................X..............
 .................XX.............
 ................XX..............
 .................X..............
 .................X..............
 .................X..............
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................X...............
 ................X...............
 ................X...............
 ................X...............
 ................X...............
 ................X...............
 ................X...............
 ................X...............
 ................X...............
 ................X...............
 ................X...............
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
end
  return thisbank

rs04
 playfield:
 ....XXXXX..............XXXXX....
 ...XXXXXXX............XXXXXXX...
 ..XXXXXXXXX..........XXXXXXXXX..
 ..XXXXXXXXX..........XXXXXXXXX..
 ...XXXXXXX............XXXXXXX...
 ....XXXXX..............XXXXX....
 ......X..................X......
 ......X..................X......
 ......X..................X......
 ......X..................X......
 ......X..................X......
 ......X..................X......
 ...........X....................
 ...........X....................
 ...........X....................
 ...........X....................
 ...........X....................
 ...........X....................
 ...........X....................
 ...........X....................
 ...........X....................
 ...........X....................
 ...........X....................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
end
  return thisbank

rs05
 playfield:
 ....XXXXX..........XXXXX........
 ...XXXXXXX........XXXXXXX.......
 ..XXXXXXXXX......XXXXXXXXX......
 ..XXXXXXXXX......XXXXXXXXX......
 ...XXXXXXX........XXXXXXX.......
 ....XXXXX..........XXXXX........
 ......X..............X..........
 ......X..............XX.........
 ......X.............XX..........
 ......X..............X..........
 ......X..............X..........
 ......X..............X..........
 ...........X....................
 ...........X....................
 ...........X....................
 ...........X....................
 ...........X....................
 ...........X....................
 ...........X....................
 ...........X....................
 ...........X....................
 ...........X....................
 ...........X....................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
end
  return thisbank

rs06
 playfield:
 ....XXXXX..............XXXXX....
 ...XXXXXXX............XXXXXXX...
 ..XXXXXXXXX..........XXXXXXXXX..
 ..XXXXXXXXX..........XXXXXXXXX..
 ...XXXXXXX............XXXXXXX...
 ....XXXXX..............XXXXX....
 ......X..................X......
 ......X..................X......
 ......X..................X......
 ......X..................X......
 ......X..................X......
 ......X..................X......
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ......X.........................
 ......X.........................
 ......X.........................
 ......X.........................
 ......X.........................
 ......X.........................
 ......X.........................
 ......X.........................
 ......X.........................
 ......X.........................
 ......X.........................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
end
  return thisbank

rs07
 playfield:
 ...............XXXXX............
 ..............XXXXXXX...........
 .............XXXXXXXXX..........
 .............XXXXXXXXX..........
 ..............XXXXXXX...........
 ...............XXXXX............
 .................X..............
 .................X..............
 .................X..............
 .................X..............
 .................X..............
 .................X..............
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 .....................X..........
 .....................X..........
 .....................X..........
 .....................X..........
 .....................X..........
 .....................X..........
 .....................X..........
 .....................X..........
 .....................X..........
 .....................X..........
 .....................X..........
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
end
  return thisbank

rs08
 playfield:
 ....XXXXX..............XXXXX....
 ...XXXXXXX............XXXXXXX...
 ..XXXXXXXXX..........XXXXXXXXX..
 ..XXXXXXXXX..........XXXXXXXXX..
 ...XXXXXXX............XXXXXXX...
 ....XXXXX..............XXXXX....
 ......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..................
 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
end
  return thisbank

rs09
 playfield:
 .....XXXXX......................
 ....XXXXXXX.....................
 ...XXXXXXXXX....................
 ...XXXXXXXXX....................
 ....XXXXXXX.....................
 .....XXXXX......................
 .......X........................
 ......XX........................
 .......XX.......................
 .......X........................
 .......X........................
 .......X........................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ...........X....................
 ...........X....................
 ...........X....................
 ...........X....................
 ...........X....................
 ...........X....................
 ...........X....................
 ...........X....................
 ...........X....................
 ...........X....................
 ...........X....................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
end
  return thisbank

rs10
 playfield:
 ....XXXXX..............XXXXX....
 ...XXXXXXX............XXXXXXX...
 ..XXXXXXXXX..........XXXXXXXXX..
 ..XXXXXXXXX..........XXXXXXXXX..
 ...XXXXXXX............XXXXXXX...
 ....XXXXX..............XXXXX....
 ......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...........................
 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
end
  return thisbank

rs11
 playfield:
 ...............XXXXX............
 ..............XXXXXXX...........
 .............XXXXXXXXX..........
 .............XXXXXXXXX..........
 ..............XXXXXXX...........
 ...............XXXXX............
 .................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.............
 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
end
  return thisbank

rs12
 playfield:
 ....XXXXX..............XXXXX....
 ...XXXXXXX............XXXXXXX...
 ..XXXXXXXXX..........XXXXXXXXX..
 ..XXXXXXXXX..........XXXXXXXXX..
 ...XXXXXXX............XXXXXXX...
 ....XXXXX..............XXXXX....
 ......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.............
 ..................X.............
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
end
  return thisbank

rs13
 playfield:
 .....XXXXX......................
 ....XXXXXXX.....................
 ...XXXXXXXXX....................
 ...XXXXXXXXX....................
 ....XXXXXXX.....................
 .....XXXXX......................
 .......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..........
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
end
  return thisbank

rs14
 playfield:
 ....XXXXX..............XXXXX....
 ...XXXXXXX............XXXXXXX...
 ..XXXXXXXXX..........XXXXXXXXX..
 ..XXXXXXXXX..........XXXXXXXXX..
 ...XXXXXXX............XXXXXXX...
 ....XXXXX..............XXXXX....
 ......X..................X......
 ......X..................X......
 ......X..................X......
 ......X..................X......
 ......X..................X......
 ......X..................X......
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ................................
 ...........X....................
 ...........X....................
 ...........X....................
 ...........X....................
 ...........X....................
 ...........X....................
 ...........X....................
 ...........X....................
 ...........X....................
 ...........X....................
 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
end
  return thisbank

rs15
 playfield:
 ..XXXXX......XXXXX......XXXXX...
 .XXXXXXX....XXXXXXX....XXXXXXX..
 XXXXXXXXX..XXXXXXXXX..XXXXXXXXX.
 XXXXXXXXX..XXXXXXXXX..XXXXXXXXX.
 .XXXXXXX....XXXXXXX....XXXXXXX..
 ..XXXXX......XXXXX......XXXXX...
 ....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 thisbank

 bank 3
 temp1=temp1

 bank 4
 temp1=temp1

 bank 5
 temp1=temp1

 bank 6
 temp1=temp1