rem * i like trains lives = 128 dim lives_centered = 1 dim lives_compact = 1 set romsize 4k titlescreen scorecolor = $CA playfield: <on> XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX X.....XXXXXXX..............XX..X X..X...XXXXXXXXXXX...XXXXXXXX..X X..XX...XXXXXXXXXX...XXXXXXXX..X X..XXX...XXXXXXXXX...XXXXXXXX..X X..XXXX...XXXXXXXX...XXXXXXXX..X X..XXX...XXXXXXXXX...XXXXXXXX..X X..XX...XXXXX..XX....XXXXXXXXXXX X..X...XXXXXX.......XXXXXXXXX..X X.....XXXXXXXX.....XXXXXXXXXX..X XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX end COLUPF = $2E COLUBK = $CA const pfres = 12 drawscreen if joy0fire then goto start goto titlescreen start playfield: ................................ ................................ ................................ ................................ ................................ ................................ ................................ ................................ ................................ ................................ ................................ end COLUBK = $C6 COLUPF = $3E player0x=99:player0y=90 player1x=20:player1y=20 missile0height=8:missile0y=255 NUSIZ0 = $82 scorecolor = $0 sprites player0: %00000000 %01000100 %01000100 %01000100 %01000100 %00111000 %00111000 %00111000 %00111000 %00111000 %00111000 %00111000 %00111000 %11111110 %10111010 %10111010 %10111010 %00111000 %00000000 %00000000 end player1: %00000000 %00100100 %00011000 %00111100 %00011000 %00011000 %00111100 %00000000 end COLUP0 = $84 COLUP1 = $42 if f=20 then f=0 if missile0y>240 then goto skip missile0y = missile0y-2:goto draw_loop skip if joy0fire then missile0y = player0y-2:missile0x =player0x+4 if switchreset then reboot draw_loop drawscreen if player1y < player0y then player1y = player1y+1 if player1y > player0y then player1y = player1y-1 if player1x < player0x then player1x = player1x+1 if player1x > player0x then player1x = player1x-1 player1x = player1x:player1y = player1y if joy0up then player0y = player0y-1: goto jump if joy0down then player0y = player0y+1: goto jump if joy0left then player0x = player0x-1: goto jump if joy0right then player0x = player0x+1: goto jump if collision(missile0,player1) then score=score+1:player1x=rand/2:player1y=0:missile0y=255 if collision(player0,player1) then lives=lives-32:player1x=rand/2:player1y=0:missile0y=255 if collision(player1,ball) then score=score+0:player1x=rand/2:player1y=0:bally=255 if lives < 32 then reboot jump goto sprites















