set kernel_options playercolors player1colors pfcolors a=1 : e=27 player0: %00111000 %00111000 %00111000 %00111000 %00111000 %00111000 %00111000 %00111000 %00111000 %00111000 %00111000 %00111000 %00111000 %00111000 %00111000 %00111000 %00111000 %00111000 %00111000 %00111000 end player0color: 46 46 46 46 68 68 68 68 68 68 68 68 68 68 68 68 68 68 68 68 end player1: %01110111 %01110111 %00110110 %00110110 %00110110 %00110110 %00110110 %00110110 %00110110 %00110110 %00110110 %00110110 %00110110 %00110110 %00110110 %00110110 %00110110 %00110110 %00110110 %00110110 %01111111 %01111111 %01111111 %01111111 %01111111 %01111111 %01110111 %01110111 %01110111 %01110111 %01110111 %01110111 %01100111 %01100111 %01110111 %01110111 %01111011 %01111011 %01111111 %01111111 %01111111 %01111111 %00011100 %00011100 %00111110 %00111110 %00111110 %00111110 %00000000 %00000000 %00111110 %00111110 %00111110 %00111110 %00101010 %00101010 %00111110 %00111110 %00111110 %00111110 %00011100 %00011100 %00111100 %00111100 end player1color: 4 4 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 64 64 64 64 64 64 64 64 64 64 64 64 64 64 64 64 64 64 64 64 64 64 46 46 46 46 46 46 46 46 46 46 46 46 46 46 46 46 46 46 46 46 240 240 end playfield: ........XX...XX..XX..XX..XX.... .......X..X.X...X...X...X...... .......XXXX..X...X..XXX..X..... .......X..X...X...X.X.....X.... .......X..X.XX..XX...XX.XX..... ............................XX. ........XX...XX...XX.X.XX..X... .......X..X.X....X...X.X.X.XXX. .......X..X.XX...XX..X.XX..X... ........XX..X....X...X.X.X..XX. XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX end pfcolors: 130 130 130 130 130 130 130 130 130 130 196 130 end t_s player1x=20 : player1y=80 : NUSIZ1=$05 player0x=18 : player0y=58 : NUSIZ0=$01 drawscreen if joy0fire then goto limbo t_s_music AUDV0=d : AUDC0=5 : AUDF0=c AUDV1=3 : AUDC1=12 : AUDF1=e dim ts_timer1=a dim ts_timer2=b ts_timer2=ts_timer2+1 if ts_timer1=1 && ts_timer2>0 then d=6 : c=16 : e=27 if ts_timer1=1 && ts_timer2>8 then d=0 if ts_timer1=1 && ts_timer2>10 then d=6 if ts_timer1=1 && ts_timer2>18 then d=0 if ts_timer1=1 && ts_timer2>20 then d=6 if ts_timer1=1 && ts_timer2>28 then d=0 if ts_timer1=1 && ts_timer2>30 then d=6 if ts_timer1=1 && ts_timer2>38 then d=0 if ts_timer1=1 && ts_timer2>40 then d=6 if ts_timer1=1 && ts_timer2>60 then c=18 if ts_timer1=1 && ts_timer2>70 then c=20 if ts_timer1=1 && ts_timer2>80 then c=24 : e=20 if ts_timer1=1 && ts_timer2>90 then c=20 if ts_timer1=2 && ts_timer2>38 then d=0 if ts_timer1=2 && ts_timer2>40 then d=6 if ts_timer1=2 && ts_timer2>50 then c=18 if ts_timer1=2 && ts_timer2>60 then c=16 : e=27 if ts_timer1=2 && ts_timer2>68 then d=0 if ts_timer1=2 && ts_timer2>70 then d=6 if ts_timer1=2 && ts_timer2>78 then d=0 if ts_timer1=2 && ts_timer2>80 then d=6 if ts_timer1=2 && ts_timer2>88 then d=0 if ts_timer1=2 && ts_timer2>90 then d=6 if ts_timer1=2 && ts_timer2>98 then d=0 if ts_timer1=3 && ts_timer2>0 then d=6 if ts_timer1=3 && ts_timer2>8 then d=0 if ts_timer1=3 && ts_timer2>10 then d=6 if ts_timer1=3 && ts_timer2>20 then c=18 if ts_timer1=3 && ts_timer2>30 then c=20 if ts_timer1=3 && ts_timer2>40 then c=24 : e=20 if ts_timer1=3 && ts_timer2>50 then c=20 if ts_timer1=3 && ts_timer2>98 then d=0 if ts_timer1=4 && ts_timer2>0 then d=6 if ts_timer1=4 && ts_timer2>8 then d=0 if ts_timer1=4 && ts_timer2>10 then d=6 if ts_timer1=4 && ts_timer2>20 then c=22 : e=24 if ts_timer1=4 && ts_timer2>30 then c=20 if ts_timer1=4 && ts_timer2>40 then c=18 if ts_timer1=4 && ts_timer2>50 then c=22 if ts_timer1=4 && ts_timer2>60 then c=20 : e=22 if ts_timer1=4 && ts_timer2>70 then c=18 if ts_timer1=4 && ts_timer2>80 then c=16 if ts_timer1=4 && ts_timer2>88 then d=0 if ts_timer1=4 && ts_timer2>90 then d=6 if ts_timer1=5 && ts_timer2>0 then c=15 : e=20 if ts_timer1=5 && ts_timer2>3 then d=0 if ts_timer1=5 && ts_timer2>5 then d=6 if ts_timer1=5 && ts_timer2>8 then d=0 if ts_timer1=5 && ts_timer2>10 then d=6 : c=16 if ts_timer1=5 && ts_timer2>20 then c=18 if ts_timer1=5 && ts_timer2>30 then c=20 if ts_timer1=5 && ts_timer2>40 then c=22 : e=24 if ts_timer1=5 && ts_timer2>50 then c=20 if ts_timer1=5 && ts_timer2>60 then c=18 if ts_timer1=5 && ts_timer2>80 then ts_timer1=1 : ts_timer2=0 if ts_timer2>99 then ts_timer2=0 : ts_timer1=ts_timer1+1 goto t_s limbo player0y=78 : AUDV0=0 : AUDV1=0 if !joy0fire then goto screen_pick goto limbo screen_pick walktimer=0 dim screen=a dim walktimer=b dim jumptimer=c dim downtimer=d f{1}=1 player0x=20 : player1x=0 : player1y=0 if screen=1 then goto screen_1 screen_1 playfield: ............................... ............................... ............................... ............................... ............................... ............................... ...........XXXXXXXXXXX......... ............................... ............................... ............................... XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX end pfcolors: 0 0 0 0 0 0 196 0 0 0 196 end t_anim if walktimer>30 then walktimer=1 if walktimer=0 then goto t_standing if walktimer<10 then goto t_walking_1 if walktimer<20 then goto t_walking_3 if walktimer<=30 then goto t_walking_2 t_standing player0: %01110111 %00010100 %00010100 %00010100 %00010100 %00010100 %00011100 %00011100 %01011101 %01010101 %01010101 %01100011 %01111111 %00011100 %00111110 %00000000 %00111110 %00101010 %00111110 %00111110 %00011100 end player0color: 4 16 16 16 16 16 64 64 64 64 64 64 64 46 46 46 46 46 46 46 46 end goto main t_walking_1 player0: %01111100 %01010000 %01010000 %01010000 %01010000 %01010000 %01111100 %01000100 %01101100 %01101100 %01101100 %01111100 %01111100 %00111000 %01111100 %00000000 %01111100 %01110100 %01111100 %01111100 %00111000 end player0color: 4 16 16 16 16 16 64 64 64 64 64 64 64 46 46 46 46 46 46 46 46 end goto main t_walking_2 player0: %01110110 %01000100 %01000100 %01000100 %01001000 %01001000 %01111100 %01000100 %01101100 %01101100 %01101100 %01111100 %01111100 %00111000 %01111100 %00000000 %01111100 %01110100 %01111100 %01111100 %00111000 end player0color: 4 16 16 16 16 16 64 64 64 64 64 64 64 46 46 46 46 46 46 46 46 end goto main t_walking_3 player0: %01111000 %10100000 %01100000 %00110000 %00101000 %00101000 %01111100 %01000100 %01101100 %01101100 %01101100 %01111100 %01111100 %00111000 %01111100 %00000000 %01111100 %01110100 %01111100 %01111100 %00111000 end player0color: 4 16 16 16 16 16 64 64 64 64 64 64 64 46 46 46 46 46 46 46 46 end main drawscreen if joy0up && !f{1} && !f{2} && !f{3} then f{1}=1 if !joy0up && f{1} then jumptimer=0 : f{1}=0 : f{2}=1 if f{1} then jumptimer=jumptimer+1 : player0y=player0y-1 if f{1} && collision(player0,playfield) && jumptimer>2 then f{1}=0 : f{2}=1 : jumptimer=0 if f{1} && jumptimer>39 then jumptimer=0 : f{1}=0 : f{2}=1 if f{2} && collision(player0,playfield) then player0y=player0y+1 if !collision(player0,playfield) && f{2} then f{2}=0 : f{3}=1 if f{3} && !collision(player0,playfield) then player0y=player0y+1 if collision(player0,playfield) && f{3} then player0y=player0y-1 : f{3}=0 : downtimer=0 if !collision(player0,playfield) && !f{1} then f{6}=1 if f{6} && !collision(player0,playfield) then player0y=player0y+1 if f{6} && collision(player0,playfield) then f{6}=0 if player0x<18 then player0x=18 if player0x>135 then player0x=135 if joy0right && !f{1} && collision(player0,playfield) then walktimer=walktimer+1 : player0x=player0x+1 : f{0}=0 if joy0left && !f{1} && collision(player0,playfield) then walktimer=walktimer+1 : player0x=player0x-1 : f{0}=1 if joy0right && f{1} && !collision(player0,playfield) && jumptimer>2 then player0x=player0x+1 : f{0}=0 if joy0left && f{1} && !collision(player0,playfield) && jumptimer>2 then player0x=player0x-1 : f{0}=1 if joy0right && f{3} && !collision(player0,playfield) then player0x=player0x+1 : f{0}=0 if joy0left && f{3} && !collision(player0,playfield) then player0x=player0x-1 : f{0}=1 if joy0right && f{3} && collision(player0,playfield) then player0x=player0x-1 : f{3}=0 : f{2}=1 : f{0}=0 if joy0left && f{3} && collision(player0,playfield) then player0x=player0x+1 : f{3}=0 : f{2}=1 : f{0}=1 if f{0} then REFP0=8 else REFP0=0 goto t_anim