Create dialogue.lua

initial upload

lua_scripts/dialogue.lua

@@ -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