PIC-o-BEAT

PIC-o-BEAT is a rhythm game that really paints a picture

How to play?

How it works?

--bad code ahead--
this is how the images are stored

	[0x0]

first the score then the texture right under
the program first scans the top image to a buffer from a pointer to some pixels ahead

  for i=0,17 do
   local posx, posy = ((point+i-2)%imgs)+imgp.x,imgp.y+flr((point+i-2)/imgs)
   if i==17 then
    if sget(posx, posy) == 10 then --is  yellow
      scrbuf[i] = 1
    elseif sget(posx, posy) == 12 then --is  blue
      scrbuf[i] = 2
    else
      scrbuf[i] = 0
    end
   else
     scrbuf[i] = scrbuf[i+1]
   end
  end

we also update the pointer every 2 beats of the first sfx channel using stat(), this way the speed of the pointer follows the speed of the song (this method could be used to follow odd time signatures/rhytms by using %3 for example)

  c2 = c1
  c1 = stat(20)
  if c1 != c2 then
    if c1%2 == 0 then
      point+=1
      readspr()
    else
      return false
    end
  end

if we press a key we check the buffer at the right spot to check if you got the note right
if so, we paint a dedicated piece of the spritesheet with the right texture and set the buffer with a "empty" note
if you press a wrong note, we also paint it with the texture but with offset colors, and put a "wrong" note on the buffer
if you press on empty you paint the texture and set a "not empty" note

 if inpa then
   if scrbuf[2] == 2 then
     sset(imgx,imgy,sget(posx,posy+imgs))
     scrbuf[2] = 10
   elseif scrbuf[2] == 1 or scrbuf[2] == -1 then
     sset(imgx,imgy,(((sget(posx,posy+imgs)+1)%15)+1))
     scrbuf[2] = -1
   elseif scrbuf[2] == 0 then
     sset(imgx,imgy,sget(posx,posy+imgs))
     scrbuf[2] = -3
   end
 elseif(...)

Once the song ends we just check the score textures and keep count of the errors
if black, is the end texture black?
if B or Y, is the end texture and img texture the same color?

for i=0,imgs*imgs do
    local imgx, imgy = ((i)%imgs)+112,flr((i)/imgs)
    local posx, posy = ((i)%imgs)+imgp.x,imgp.y+flr((i)/imgs)
    if sget(posx, posy) == 0 then
      if sget(imgx,imgy) != 0 then
        errors +=1
      end
    else
     if oneb == false then
      if sget(imgx,imgy) != sget(posx,posy+imgs) then
        errors +=1
      end
     else
       if sget(imgx,imgy) != sget(posx,posy) then
        errors +=1
       end
     end
    end
  end

and to do the medals you just peek and poke at the designated hex

and that's basically the whole mechanic, to create "expasion packs" it's just a matter of drawing over the textures, or creating new music but i've drawn too much already lol