fix splash, boot chime parody
deliberately not a gb chime, it's a call-forward to a sound I use elsewhere
This commit is contained in:
parent
d1d937e411
commit
55fdc61868
21
vacation.p8
21
vacation.p8
@ -202,9 +202,9 @@ function _init()
|
||||
|
||||
awakener_hold_frames = 0
|
||||
-- debug mode: skip splahes
|
||||
-- mainview = ao_splash.new()
|
||||
arm_awakener()
|
||||
mainview=newtitle()
|
||||
mainview = ao_splash.new()
|
||||
--arm_awakener()
|
||||
--mainview=newtitle()
|
||||
end
|
||||
|
||||
function arm_awakener()
|
||||
@ -1043,26 +1043,25 @@ end
|
||||
-->8
|
||||
-- consent screens
|
||||
|
||||
ao_splash = {
|
||||
fwait = 180,
|
||||
}
|
||||
ao_splash = {fwait=180}
|
||||
mknew(ao_splash, function(self)
|
||||
self.c = breather.new{
|
||||
colors={7,15,14,8,2},
|
||||
sep=3,
|
||||
f=15,
|
||||
on=true,
|
||||
speed=240,
|
||||
}
|
||||
font_monogram()
|
||||
end)
|
||||
|
||||
function ao_splash:u()
|
||||
if self.c.f < self.c.speed/2.5 then
|
||||
if self.c.f < 96 then
|
||||
self.c:u()
|
||||
return
|
||||
end
|
||||
self.fwait -= 1
|
||||
if (self.fwait < ao_splash.fwait-30 and (btnp() & 0xf > 0) and self.fwait > 0) self.fwait = 0
|
||||
if (self.fwait < 150 and (btnp() & 0xf > 0) and self.fwait > 0) self.fwait = 0
|
||||
if self.fwait == 0 then
|
||||
self.d = ditherer.new{di=1}
|
||||
end
|
||||
@ -1076,9 +1075,11 @@ end
|
||||
function ao_splash:draw()
|
||||
cls()
|
||||
self.c:draw()
|
||||
if self.fwait < ao_splash.fwait then
|
||||
if self.fwait < 180 then
|
||||
font_special()
|
||||
print("18+", 55, 60, 7)
|
||||
print("aDULTS ONLY", 30, 90, 15)
|
||||
if (self.fwait == 179) psound(10)
|
||||
end
|
||||
if (self.d) self.d:draw()
|
||||
end
|
||||
@ -2427,3 +2428,5 @@ __sfx__
|
||||
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
010800002b5452b5002b5002b500005000050000500275001c535245351a50001500005000050000500005003055024555187301f730137301373013720137100750007500075000750000500005000050000500
|
||||
011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
||||
480c00002b53518545305503054030530305203051000500005000050000500005000050000500005000050000500005000050000500005000050000500005000050000500005000050000500005000050000500
|
||||
|
Loading…
Reference in New Issue
Block a user