psound -- priority-aware channel-3-only sfx playback

vacation.p8

@@ -275,6 +275,13 @@ function font_special()
  poke(0x5f58, 0x81)
 end
 
+-- play sound n on channel 3 iff
+-- 3 doesn't already have a
+-- greater index sound going
+function psound(n, off, len)
+ if (stat(49) < n) sfx(n, 3, off, len)
+end
+
 -->8
 -- text rendering
 
@@ -1059,7 +1066,6 @@ function ao_splash:update()
  end
  if (self.d) self.d:update()
  if self.fwait <= -32 then
-  -- TODO: consent screen
   mainview=consent_splash.new()
   mainview:update()
  end
@@ -1551,14 +1557,15 @@ function arcade_level:spawn_word()
  if not self.pattern then
   self.pattern=gen_pattern()
   self.pattern_idx = 0
-  self.next_break = 9 + irnd(9)
+  self.next_break = 8 + irnd(9)
  end
  local i, pbk = (self.pattern_idx&3)+1,0
- if self.next_break == 0 then
+ if self.next_break <= 0 then
   -- do pattern break
   local np = gen_pattern()
   i = np[1]==self.pattern[i] and 2 or 1
-  self.next_break = 9 + irnd(9)
+  self.pattern=np
+  self.next_break = 8 + irnd(9)
   pbk=3
  end
  self.pattern_idx = i