consent screen prototype

vacation.p8

@@ -269,6 +269,10 @@ function font_default()
  poke(0x5f58, 0x80)
 end
 
+function font_special()
+ poke(0x5f58, 0x81)
+end
+
 -->8
 -- text rendering
 
@@ -586,7 +590,7 @@ function ao_splash:update()
  if (self.d) self.d:update()
  if self.fwait <= -32 then
   -- TODO: consent screen
-  mainview=newtitle()
+  mainview=consent_splash.new()
   mainview:update()
  end
 end
@@ -600,6 +604,53 @@ function ao_splash:draw()
  end
  if (self.d) self.d:draw()
 end
+
+consent_splash = {
+ f = 0,
+}
+mknew(consent_splash, function(self)
+ self.d = ditherer.new{
+  di=-1
+ }
+end)
+
+function consent_splash:update()
+ if (self.f < 0x7fff) self.f += 1
+ if (btnp(1) and self.f > 150) self.d.di = 1
+ if self.d:update() and self.d.di > 0 then
+  mainview=newtitle()
+  mainview:update()
+ end
+end
+
+function consent_splash:draw()
+ font_special()
+ print("\^w\^twarning", 20, 2, 10)
+ font_default()
+ cursor(1, 25)
+ color(6)
+ print("this game will \fchypnotize\f6 you.")
+ if (self.f < 45) return
+ print("")
+ print("hypnotic suggstions include:")
+ print("relaxation, trance, obedience,")
+ print("loss of volition, euphoria, joy,")
+ print("amnesia, identity loss, and the")
+ print("experience of \fetranformation")
+ print("into a pooltoy orca.\f6")
+ if (self.f < 90) return
+ print("")
+ print("an awakener that removes all")
+ print("suggestions is available at")
+ print("\faany time:\f6 hold ❎ or 🅾️.")
+ print("gameplay uses only arrows.")
+ if(self.f < 300) return
+ print("")
+ print("")
+ print("           consent and begin: \f7➡️")
+ self.d:draw()
+end
+
 -->8
 -- title screen