COLUPF = 128 COLUBK=02 scorecolor=0 player0: %00110110 %00100100 %10111100 %01111111 %00000110 %00000110 %00000000 end player0x=50 player0y=50 player1: %01111100 %00111100 %00001100 %00001100 %00001100 %00001100 %00001100 %00001100 %01111100 %11101100 %00010010 %00100011 %00111011 %00101111 %00011110 %00001100 end player1x=100 player1y=35 dim cute=0 mainloop playfield: XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XX............................XX XX............................XX XX............................XX XX............................XX XX............................XX XX............................XX XX............................XX XX............................XX XX............................XX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX end if collision(player0, player1) then cute=1 if joy0right then player0x=player0x+1 if joy0right && cute==0 then player0: %00110110 %00100100 %10111100 %01111111 %00000110 %00000110 %00000000 end if joy0right && cute==1 then player0: %00110110 %00100100 %00111100 %01111111 %10000110 %00001111 %00001001 end if joy0left then player0x=player0x-1 if joy0left then player0: %01101100 %00100100 %00111101 %11111110 %01100000 %01100000 %00000000 end if joy0up then player0y=player0y-1 if joy0down then player0y=player0y+1 drawscreen goto mainloop