zonk bleeps

vacation.p8

@@ -843,9 +843,11 @@ function zonk_mode:update()
    if not item then
     if (not self.file or #self.file == 0) self:next_file()
     self.playing_text=false
+    psound(8,8,2)
    else
     self.txt_frame:push(item)
     self.twt = wt*self.cmul
+    psound(8,0,4,self.txf>4)
    end
   end
  else
@@ -855,13 +857,16 @@ function zonk_mode:update()
    self.wtmr = nil
   end
   if self.twt <= 0 then
-   if (btnp(1)) self.confirmed=true
+   local justc=false
+   if (btnp(1) and not self.confirmed) self.confirmed,justc=true,true
    if not self.nextpage and self.confirmed and self.brth:matches(self.bwt, self.alwaysmatched) then
     self.nextpage = true
     self.txt_frame.go = true
     self.fpfrm = self.exf
     self.alwaysmatched=true
+    psound(8, justc and 16 or 18, 8, true)
    end
+   if (justc and not self.nextpage) psound(8,16,2)
   else
    self.twt -= 1
   end