Popup fix in FAQBOT

[Herodes]

What follows is something I am cooking for a FAQ bot ..
I need it to display txts in PM in certain cases ...
When a User connects to send an informative txt in PM , and do the same when invoked by a cmd...

Now,... what I can't get to work is the Popup part ...
and also I wish there was a way to make one unique function to get along with the files ...

This one should need a Switch Off/Switch On function ....
 ... the thing is whatever I 've tried to do, these two had no luck :(

-- --- GRFaq ---- Script -----
--  Various Scripts Rewrite for GreekWorldHub
--..  By Herodes...
-- thanks to NerBoS for the work in 
--		-- Requested by Woodster
--		-- Made by nErBoS
--		-- Bot = "Welcome-Bot"
-- and Nightlitch for DarkMinds Script..
-- you teach us, us teach us .. :)

-- A bot done for having a FAQ display functoion that is also 
-- suitable for use as a Book Reading bot 
-- with comands calling for for text files...

Bot = "-grfaq-bot-"
-------------------------------------------------------  t x t s - h e r e
ellinika = "/ChannelBot/Txt/ellinika.txt"

intro = "GRFAQ/gr.faq.intro.txt"

periex = "GRFAQ/gr.faq.index.txt"

keim1 = "GRFAQ/gr.faq.part1a.txt"

keim2 = "GRFAQ/gr.faq.part1b.txt"

keim3 = "GRFAQ/gr.faq.part2.txt"

keim4 = "GRFAQ/gr.faq.part3a.txt"

keim5 = "GRFAQ/gr.faq.part3b.txt"

keim6 = "GRFAQ/gr.faq.part3c.txt"

-------------------------------------------------------  r e g - b o t - i n - h u b
function Main()

frmHub:RegBot(Bot)

end

-------------------------------------------------------  n e w - u s e r - p o p u p
function NewUserConnected(user,data) 

		Directions(user)

end 

------------------------------------------------------- c m d s - f o r - c a l l i n g - t x t s 
function DataArrival(user,data)

	if strfind(data, "!faq-intro",1,1) then

		FaqIntro(user) 

	elseif strfind(data, "!faq-index",1,1) then

		FaqPeriex(user)

	elseif strfind(data, "!faq-part1a",1,1) then

		FaqPart1a(user)

	elseif strfind(data, "!faq-part1b",1,1) then

		FaqPart1b(user)

	elseif strfind(data, "!faq-part2",1,1) then

		FaqPart2(user)

	elseif strfind(data, "!faq-part3a",1,1) then

		FaqPart3a(user)

	elseif strfind(data, "!faq-part3b",1,1) then

		FaqPart3b(user)

	elseif strfind(data, "!faq-part3c",1,1) then

		FaqPart3c(user)

	end
end

------------------------------------------------------- f u n c t i o n s - f o r - c a l l i n g - t x t s 
function Directions(user)

	readfrom(ellinika)

	local text = "\r\n"

	while 1 do 

		line = read()

			if line == nil then 

				break 

			end 

		text = text.."\r\n"..line

	end 

	user:SendPM(Bot,text.."|") 

	readfrom() 


end

function FaqIntro(user) 

	readfrom(intro)

	local text = "\r\n"

	while 1 do 

		line = read()

			if line == nil then 

				break 

			elseif line ~= "" then
			end
		text = text.."\r\n"..line
	end 

	user:SendPM(Bot,text.."|") 

	readfrom() 

end


function FaqPeriex(user) 

	readfrom(periex)

	local text = "\r\n"

	while 1 do 

		line = read()

			if line == nil then 

				break 

			end 
		text = text.."\r\n"..line
	end 

	user:SendPM(Bot,text.."|") 

	readfrom() 

end


function FaqPart1a(user)

	readfrom(keim1)

	local text = "\r\n"

	while 1 do 

		line = read()

			if line == nil then 

				break 

			end 

		text = text.."\r\n"..line

	end 

	user:SendPM(Bot,text.."|") 

	readfrom() 

end

function FaqPart1b(user)

	readfrom(keim2)

	local text = "\r\n"

	while 1 do 

		line = read()

			if line == nil then 

				break 

			end 

		text = text.."\r\n"..line

	end 

	user:SendPM(Bot,text.."|") 

	readfrom() 

end

function FaqPart2(user)

	readfrom(keim3)

	local text = "\r\n"

	while 1 do 

		line = read()

			if line == nil then 

				break 

			end 

		text = text.."\r\n"..line

	end 

	user:SendPM(Bot,text.."|") 

	readfrom() 

end

function FaqPart3a(user)

	readfrom(keim4)

	local text = "\r\n"

	while 1 do 

		line = read()

			if line == nil then 

				break 

			end 

		text = text.."\r\n"..line

	end 

	user:SendPM(Bot,text.."|") 

	readfrom() 

end

function FaqPart3b(user)

	readfrom(keim5)

	local text = "\r\n"

	while 1 do 

		line = read()

			if line == nil then 

				break 

			end 

		text = text.."\r\n"..line

	end 

	user:SendPM(Bot,text.."|") 

	readfrom() 

end

function FaqPart3c(user)

	readfrom(keim6)

	local text = "\r\n"

	while 1 do 

		line = read()

			if line == nil then 

				break 

			end 

		text = text.."\r\n"..line

	end 

	user:SendPM(Bot,text.."|") 

	readfrom() 

end

Hope it makes sense ...