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
|