rem CODE INSPIRED BY Atarius Maximus at http://www.atariage.com/forums/index.php?showtopic=109288 set kernel_options player1colors playercolors pfcolors player0x = 50 player0y = 50 main f=f+1 rem POSSIBLY INEFFICIENT CODE, SEPARATE COLOR INFO FOR EACH FRAME... if f = 10 then player0: %11111111 %11111111 %00101010 %00111000 %01000110 %00000100 %00001000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 end if f = 10 then player0color: $D4; $D4; $0E; $0E; $0C; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $76; $AC; $AC; $4C; $0E; $DC; $78; $68; $4C; end if f = 20 then player0: %11111111 %11111111 %00101100 %00111100 %01000100 %00000010 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00111100 %01111110 %01010100 end if f = 20 then player0color: $D4; $D4; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $76; $AC; $AC; $4C; $0E; $DC; $78; $68; $4C; end if f = 30 then player0: %11111111 %11111111 %00101000 %01111000 %00000110 %00000100 %00001000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00111100 %01111110 %01010100 %00000000 %01111110 %00111100 %00000000 %00000000 end if f = 30 then player0color: $D4; $D4; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $76; $AC; $AC; $4C; $0E; $DC; $78; $68; $4C; end if f = 40 then player0: %11111111 %11111111 %00101100 %00111100 %01000100 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00001000 %00001000 %00001000 %00001000 %00000000 %00111100 %01111110 %00000000 %00101010 %01111110 %00111100 %00000000 %00000000 end if f = 40 then player0color: $D4; $D4; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $76; $AC; $AC; $4C; $0E; $DC; $78; $68; $4C; end if f = 50 then player0: %11111111 %11111111 %00101000 %00111000 %01000110 %00000100 %00001000 %00000000 %00000000 %00001000 %00001000 %00001000 %00001000 %00001000 %00000000 %00000000 %00111100 %01111110 %01010100 %00000000 %01111110 %00111100 %00000000 %00000000 end if f = 50 then player0color: $D4; $D4; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $76; $AC; $AC; $4C; $0E; $DC; $78; $68; $4C; end if f = 60 then player0: %11111111 %11111111 %00101000 %00111000 %01000110 %00000100 %00001000 %00001000 %00001000 %00001000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00111100 %01111110 %00000000 %00000000 %01111110 %00111100 %00000000 %00000000 end if f = 60 then player0color: $D4; $D4; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $76; $AC; $AC; $4C; $0E; $DC; $78; $68; $4C; end if f = 70 then player0: %11111111 %11111111 %00000000 %01000100 %00010000 %00000000 %00000100 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00111100 %01111110 %01010100 %00101010 %01111110 %00111100 %00000000 end if f = 70 then player0color: $D4; $D4; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $76; $AC; $AC; $4C; $0E; $DC; $78; $68; $4C; end if f = 80 then player0: %11111111 %11111111 %00000000 %00000000 %00000000 %00000000 %00000000 %00000100 %00000000 %00000000 %00100000 %00000000 %00000000 %00000100 %00000000 %00000000 %00000000 %00111100 %01111110 %00000000 %00101010 %01111110 %00111100 %00000000 end if f = 80 then player0color: $D4; $D4; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $76; $AC; $AC; $4C; $0E; $DC; $78; $68; $4C; end if f = 90 then player0: %11111111 %11111111 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00111100 %01111110 %01010100 end if f = 90 then player0color: $D4; $D4; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $76; $AC; $AC; $4C; $0E; $DC; $78; $68; $4C; end if f = 100 then player0: %11111111 %11111111 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 %00000000 end if f = 100 then player0color: $D4; $D4; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $0E; $76; $AC; $AC; $4C; $0E; $DC; $78; $68; $4C; end if f=100 then f=0 if joy0right then REFP0 = 0 if joy0left then REFP0 = 8 drawscreen if joy0right then player0x = player0x + 1 if joy0left then player0x = player0x - 1 if joy0up then player0y = player0y - 1 if joy0down then player0y = player0y + 1 goto main