for n = 1,lc do
	 Text(24,PY+((n-1)*(txt_size*1)),txt_size,lines .."\n")
	 break
	  --Text(24,PY,3,lines)
end

-- LUA Script - precede every function and global member with lowercase name of script + '_main'
-- Player Enters Zone

local message = "apple\norange\nbanana\npinacle"
local lines = {}

function plrinzone_textfield_init(e)
	lines=split_lines_for_textbox(message)
end

function plrinzone_textfield_main(e)
	if g_Entity[e]['plrinzone']==1 then
	 	Prompt(lines[1])
	 	--Text(20,20,2,lines[1])
	  	TextBox(20,20,30,35,3,lines)
	end
end


function split_lines_for_textbox(text)
	local lines_temp = {}
	for s in text:gmatch("[^\n]+") do
	    table.insert(lines_temp, s)
	end
	return lines_temp
end

function TextBox(x1,y1,x2,y2,size,text)
	Panel(x1-size,y1-size,x2,y2)
	local i = 0
	for _, line in ipairs(text) do
		Text(x1,y1+size*i,size,line)
		i = i + 1
	end
end