81 lines
1.7 KiB
Lua
81 lines
1.7 KiB
Lua
function init_talk()
|
||
talk={}
|
||
talk_timer=0
|
||
--at what speed the text gets
|
||
--"typed"
|
||
talk_cd=.01
|
||
--how far the text is advanced
|
||
talk_progress=0
|
||
end
|
||
|
||
function new_dialogue(t)
|
||
local function split_str(str,length)
|
||
local max_length=length or 29
|
||
local strings=split(str," ",false)
|
||
local result={}
|
||
local cur_str=""
|
||
for i in all(strings) do
|
||
if #cur_str+#i<max_length then
|
||
if #cur_str!=0 then
|
||
cur_str=cur_str.." "..i
|
||
else
|
||
cur_str=i
|
||
end
|
||
else
|
||
add(result,cur_str)
|
||
cur_str=i
|
||
end
|
||
end
|
||
add(result,cur_str)
|
||
return result
|
||
end
|
||
talk=split_str(t)
|
||
end
|
||
|
||
function do_talk()
|
||
--if there is something to be
|
||
--displayed display it
|
||
if #talk>0 then
|
||
local length=0
|
||
--actually displaying it
|
||
rectfill(3,95,124,124,2)
|
||
rect(3,95,124,124,13)
|
||
line(124,96,124,124,6)
|
||
line(4,124,124,124,6)
|
||
print(sub(talk[1],1,talk_progress),6,99,7)
|
||
|
||
if(talk[2]!=nil)print(sub(talk[2],1,max(talk_progress-#talk[1])),6,106,7)
|
||
if(talk[3]!=nil)print(sub(talk[3],1,max(talk_progress-#talk[1]-#talk[2])),6,113,7)
|
||
|
||
if #talk>0 then
|
||
--if there is pending dialogue
|
||
--display it
|
||
--determine the length of the
|
||
--strings
|
||
length=#talk[1]
|
||
if talk[2]!=nil then
|
||
length+=#talk[2]
|
||
end
|
||
if talk[3]!=nil then
|
||
length+=#talk[3]
|
||
end
|
||
--"type" the text
|
||
if time()>talk_timer and talk_progress<length then
|
||
talk_timer=time()+talk_cd
|
||
talk_progress+=1
|
||
sfx(4)
|
||
end
|
||
--advance the text
|
||
if(talk_progress>=length)print("🅾️",115,119+sin(time()),7)
|
||
if btnp(🅾️) and talk_progress>=length then
|
||
talk_progress=0
|
||
del(talk,talk[1])
|
||
del(talk,talk[1])
|
||
del(talk,talk[1])
|
||
elseif btnp(🅾️) and talk_progress<length and talk_progress>1 then
|
||
talk_progress=length
|
||
end
|
||
end
|
||
end
|
||
end
|