diff --git a/vacation.p8 b/vacation.p8 index b7ad962..a849c5e 100644 --- a/vacation.p8 +++ b/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