Compare commits

..

2 Commits

Author SHA1 Message Date
taxicomics 5a93079a8e
Create dialogue.lua
initial upload
2024-06-04 09:51:15 +02:00
taxicomics 7409912cd3
Update README.md
added the dialogue function
2024-06-04 09:50:16 +02:00
2 changed files with 87 additions and 0 deletions

View File

@ -19,3 +19,10 @@ Feel free to abbreviate the function names etc. (Especially if you're coding in-
![terrain](https://github.com/taxicomics/Pico8-and-Picotron-Snippets/assets/168220579/6cab32f0-d802-4898-af49-63094a14ddc8)
- A minimal setup dialogue function for scrolling dialogues. Add new dialogue content with a single function and display text whenever there is text to display.
![untitled_1_1](https://github.com/taxicomics/Pico8-and-Picotron-Snippets/assets/168220579/85917249-22c1-466f-8472-33f75d3fc6a9)
![untitled_1_0](https://github.com/taxicomics/Pico8-and-Picotron-Snippets/assets/168220579/b4ac1cd7-549d-458d-b427-3621d85577ac)

80
lua_scripts/dialogue.lua Normal file
View File

@ -0,0 +1,80 @@
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