-- Jason 0.5, by Phatty
-- Jason 0.1 wrote on 5th October 2k3
-- You can add ur own files
-- For example make a file named help.txt in the docs folder and then type in main !show help
-- ATM you cant make files with spaces like....Friday the 13th.txt <<< this will not work, but will add soon :)
-- Don't forget to make a folder named docs inside script folder
-- Added no such file error
-- Added who-to now, !show <who> <what>   =  example !show pmme test
-- There is pmme, me, or all
-- Added !lock <user> <on/off>
-- Added !version
-- Added self prefix
-- Fixed 1 line read only

Bot = "JÅšÕÑ™"
Version = "0.5"

mcmd="#"

Blacklist={}

function Main()
frmHub:RegBot(Bot)
end

function WhileRead(user,data)
	while 1 do 
		line = read("*a")
		if line == nil then 
			user:SendData(Bot,"I know of no such file") 
			break end
		if to == "me" then
			user:SendData(Bot,line) 
		elseif to == "all" then
			SendToAll(Bot,line) 
		elseif to == "pmme" then
			user:SendPM(Bot,line) 
		end
	readfrom() 
	return 1
	end
end

function LockOut(user)
if arg == "on" then
	user:SendData(Bot,"You have blacklisted: "..to)
	Blacklist[to]=1
	buser = GetItemByName(to)
	buser:SendPM(Bot,"You have been blacklisted")
	return 1
elseif arg == "off" then
	user:SendData(Bot,"You have removed "..to.." from the blacklist")
	Blacklist[to]=nil
	buser = GetItemByName(to)
	buser:SendPM(Bot,"You have been removed from the blacklist")
	return 1
	end
end


function DataArrival(user,data)
if strsub(data, 1, 1) == "<" then
	data=strsub(data,1,strlen(data)-1)
	s,e,cmd,to,arg = strfind(data,"%b<>%s+(%S+)%s+(%S+)%s+(%S+)")

	if cmd == mcmd.."show" then
		if Blacklist[user.sName]==nil then
			readfrom("docs/"..arg..".txt")
			WhileRead(user,data)
			return 1
		else
			user:SendData(Bot,"I am denying you access to this command")
			return 1
		end
	elseif cmd == mcmd.."lock" then
		if user.bOperator then
			LockOut(user)
			return 1	
		end
	end
end

	s,e,cmd = strfind(data,"%b<>%s+(%S+)")
	if cmd == mcmd.."version" then
		user:SendData(Bot,"I am Jason "..Version..", by Phatty")
	return 1
	end
end