Need a !rar script

[Einar]

I Need a script that opens a .txt file when you writes !rar, you problaly thinks im a noob now but i have never done any scripting before..Can somewon help me whit that?

[imby]

check out plop's texter series

[Einar]

Originally posted by Mutor

--Readme 1.0
--by Mutor
--
Command ="+readme"
TextFile ="Readme.txt"
Send2All ="no" --Show all users? "yes"/"no"
--
function DataArrival(user, data) 
s,e,cmd = strfind(data,"^%b<>%s(%S+)|")
	if cmd == Command then
		if user.bOperator then
			ReadText(user)
			return 1
		end
	end
end

function ReadText(user)
readfrom(TextFile)
while 1 do
local line = read()
if line == nil then break end
if Send2All =="yes" then
SendToAll(line)
else
user:SendData(line)
end
end
readfrom()
end

How can i do so it opens in a pm?

[6Marilyn6Manson6]

How can i do so it opens in a pm?

I things is it ok:

--Readme 1.0 in pm o main
--by 6Marilyn6Manson6
BotName = "R-BOT"

function DataArrival(user, data)  
	if( strsub(data, 1, 1) == "<" ) then  
		local s,e,cmd = strfind( data, "%b<>%s+(%S+)%s*")  
		local cmd=strsub(cmd,1,strlen(cmd)-1)  
		if (cmd=="+readme") then  
			Readtextfile("Readme.txt",user,"pm")  
		else
			user:SendPM(BotName,"Unknown file or command")  
		end
	end  
end 

Readtextfile = function(file, user, where)
	local text = ""
	local line
	local handle = openfile(file, "r") 
	if (handle) then
		local line = read(handle)
		while line do
			if line then
				text = text..line.."\r\n"
			end
			line = read(handle)
		end
		closefile(handle)
	else
		text = text.."Error file "..file.." not found!\r\n"
	end
	if where == "pm" then 
		user:SendPM(BotName, text)
	elseif where == "main" then
		user:SendData(BotName, text)
	end
end

bye bye