74 lines
1.6 KiB
Lua
74 lines
1.6 KiB
Lua
|
state_archaeology=klass()
|
||
|
|
function state_archaeology:init()
|
||
|
|
self.n_holy_books=#liturgy.holy_book
|
||
|
|
self:select_book(1)
|
||
|
|
end
|
||
|
|
function state_archaeology:enter() end
|
||
|
|
function state_archaeology:exit(new_top) end
|
||
|
|
|
||
|
|
function state_archaeology:reenter() end
|
||
|
|
function state_archaeology:suspend() end
|
||
|
|
|
||
|
|
function state_archaeology:select_book(n)
|
||
|
|
self.selection=n
|
||
|
|
local lines={}
|
||
|
|
local hb=liturgy.holy_book[self.selection]
|
||
|
|
self.title=hb[1]
|
||
|
|
printh()
|
||
|
|
for source in all(split(hb[2])) do
|
||
|
|
for line in all(liturgy.sacred_text_lines) do
|
||
|
|
if (line[1]==source) add(lines,self:_censor(source,line[2]))
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
self.full_text=""
|
||
|
|
for i=1,#lines do
|
||
|
|
if (i>1) self.full_text..="\n"
|
||
|
|
self.full_text..=lines[i]
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
function state_archaeology:_censor(src,line)
|
||
|
|
if (completion_tracker:was_seen(src)) return line
|
||
|
|
local line2=""
|
||
|
|
for i=1,#line do
|
||
|
|
local c=sub(line,i,i)
|
||
|
|
if ("a"<=c and c<="z") c="?"
|
||
|
|
line2..=c
|
||
|
|
end
|
||
|
|
return "\f6"..line2.."\ff"
|
||
|
|
end
|
||
|
|
|
||
|
|
function state_archaeology:update()
|
||
|
|
local vel=0
|
||
|
|
if (btnp(0)) vel-=1
|
||
|
|
if (btnp(1)) vel+=1
|
||
|
|
if (btnp(5)) self.done=true
|
||
|
|
if (vel!=0) self:select_book((self.selection+vel-1)%self.n_holy_books+1)
|
||
|
|
end
|
||
|
|
function state_archaeology:draw()
|
||
|
|
local fullw,fullh=measure_text(self.full_text)
|
||
|
|
local total_height=fullh+16
|
||
|
|
|
||
|
|
cls(13)
|
||
|
|
local y=64-total_height\2
|
||
|
|
local tw=measure_text(self.title)-1
|
||
|
|
local x=64-tw\2
|
||
|
|
local tx=x
|
||
|
|
print(self.title,x,y,15)
|
||
|
|
y+=6
|
||
|
|
line(x,y,x+tw-1,y,15)
|
||
|
|
y+=3
|
||
|
|
|
||
|
|
local x=64-fullw\2
|
||
|
|
rectfill(x-1,y-1,x+fullw,y+fullh-1,4)
|
||
|
|
print(self.full_text,x,y,15)
|
||
|
|
y+=fullh+1
|
||
|
|
|
||
|
|
line(tx,y,tx+tw-1,y,15)
|
||
|
|
y+=2
|
||
|
|
|
||
|
|
print("⬅️",tx,y)
|
||
|
|
print("➡️",tx+tw-7,y)
|
||
|
|
print("❎ go back",1,122,15)
|
||
|
|
end
|