request

[kbeh273300]

can someone make a script that lets op's read and wright to and from a text file.what im looking for is to be able to let them say if they are checking users and find say good users i want them to be able to wright that users nick to a text file that the other op's with a command can then read.


!add     to add a good users nick to the list(gooduser.txt)

!show   to show the list of good users(gooduser.txt)

[nErBoS]

Hi,

Hope it helps...

--Requested by kbeh273300
--Made by nErBoS

Bot = "FavUsers-Bot"

goodtext = "gooduser.txt" --It will be created in the script folder

function Main() 
frmHub:RegBot(Bot) 
end 

function DataArrival(user, data) 
	if (strsub(data,1,1)=="<") or (strsub(data,1,5+strlen(Bot))=="$To: "..Bot) then
	data=strsub(data,1,strlen(data)-1)
	s,e,cmd = strfind(data,"%b<>%s+(%S+)")
		if (cmd=="!add") then
			if (user.bOperator) then
			s,e,cmd,goodusr = strfind(data, "%b<>%s+(%S+)%s+(%S+)%s*")
			if (goodusr ~= nil) then
			appendto(goodtext) 
			write("\r\n"..goodusr.."\t"..user.sName) --It writes the user and the op who added
			writeto()
			user:SendPM(Bot, "The user "..goodusr.." was been added to the list GoodUser.")
			return 1
			else
			user:SendPM(Bot, "Syntax error, !add . ")
			return 1
			end
			end
		elseif (cmd=="!show") then
			if (user.bOperator) then
			Readtextfile(user, goodtext)
			return 1
			end
		end
	end
end


function Readtextfile(user, file)
   	local filecontents = ""
	local handle = openfile(file, "r")
	if (handle ~= nil) then
		local line = read(handle)
		while line do
        	filecontents = filecontents..line.."\r\n"
		line = read(handle)
		end
		closefile(handle)
      	user:SendPM(Bot, filecontents)
	end
end

Best regards, nErBoS

[kbeh273300]

wow that was fast :)

il test it out right now


and thank you very much

[kbeh273300]

when i load the bot and type !add i get this [21:25] Syntax error, !add .  witch is ok but when i type this    !add testing it makes a script error and the bot doesnt respond.

Syntax error: attempt to concat global `gooduser' (a nil value)
stack traceback:
   1:  function `DataArrival' at line 21 [file `...esktop\New Folder (10)\scripts\FavUsers-Bot.lua']

[kbeh273300]

i fixed it.it was just a few spelling errors no big deal.

thank you very much nErBoS for the fast work on this one . :)

[nErBoS]

Hi,

You are rigth when you see gooduser change it to goodusr :) ,may bad.

Best regards, nErBoS

PS:I have edited the post and corrected that.

[DorianG]

Sorry nErBoS, but i think that it is an error....

elseif (cmd=="!show") then
			if (user.bOperator) then
			Readtextfile(user, goodtext)
			return 1
			end

function Readtextfile(user, file)

[nErBoS]

hummm...

Why do you say that i am caliing the function readtextfile and this functions recives user and file.

Try to use a let me know :)

Best regards, nErBoS

[DorianG]

ok, is a good bot  ;)

[Snooze]

Wow - I've been looking for this :D

Any change of adding so you can ad comments to that user -EX:

!add Snooze - Damn he should stop asking all those questions!

Result:

Snooze Damn he should stop asking all those questions! Added by: Snooze (Date)
;)

[nErBoS]

Hi,

--Requested by kbeh273300
--Made by nErBoS

Bot = "FavUsers-Bot"

goodtext = "gooduser.txt" --It will be created in the script folder

function Main() 
frmHub:RegBot(Bot) 
end 

function DataArrival(user, data) 
	if (strsub(data,1,1)=="<") or (strsub(data,1,5+strlen(Bot))=="$To: "..Bot) then
	data=strsub(data,1,strlen(data)-1)
	s,e,cmd = strfind(data,"%b<>%s+(%S+)")
		if (cmd=="!add") then
			if (user.bOperator) then
			s,e,cmd,goodusr, msg = strfind(data, "%b<>%s+(%S+)%s+(%S+)%s+(.*)")
			if (goodusr ~= nil) then
			appendto(goodtext) 
			write("\r\n"..goodusr.." "..msg..". Added by: "..user.sName.."("..GetDate()..")") --It writes the user and the op who added
			writeto()
			user:SendPM(Bot, "The user "..goodusr.." was been added to the list GoodUser.")
			return 1
			else
			user:SendPM(Bot, "Syntax error, !add  . ")
			return 1
			end
			end
		elseif (cmd=="!show") then
			if (user.bOperator) then
			Readtextfile(user, goodtext)
			return 1
			end
		end
	end
end


function Readtextfile(user, file)
   	local filecontents = ""
	local handle = openfile(file, "r")
	if (handle ~= nil) then
		local line = read(handle)
		while line do
        	filecontents = filecontents..line.."\r\n"
		line = read(handle)
		end
		closefile(handle)
      	user:SendPM(Bot, filecontents)
	end
end

function Date()
	d = date("%d")
	mm = date("%m")
	y = date("%y")
	Date = d.."/"..mm.."/20"..y
	return Date
end

Is this what you want ???

Best regards, nErBoS

[Snooze]

DAMN your fast !!!

Its exactly what i had in mind :D



Thanks m8

You sure make it fun running a hub with the help your giving !!!! -

Keep up the good work ;)

[kbeh273300]

ok i have a request on the first one you made . can we add a few more command like  !findgu nick  = search the list for a user by nick.and say !regu nick  =removeing a user from the gooduser list.?

--Requested by kbeh273300
--Made by nErBoS

Bot = "FavUsers-Bot"

goodtext = "gooduser.txt" --It will be created in the script folder

function Main() 
frmHub:RegBot(Bot) 
end 

function DataArrival(user, data) 
	if (strsub(data,1,1)=="<") or (strsub(data,1,5+strlen(Bot))=="$To: "..Bot) then
	data=strsub(data,1,strlen(data)-1)
	s,e,cmd = strfind(data,"%b<>%s+(%S+)")
		if (cmd=="!add") then
			if (user.bOperator) then
			s,e,cmd,gooduser = strfind(data, "%b<>%s+(%S+)%s+(%S+)%s*")
			if (gooduser ~= nil) then
			appendto(goodtext) 
			write("\r\n"..gooduser.."\t"..user.sName) --It writes the user and the op who added
			writeto()
			user:SendPM(Bot, "The user "..gooduser.." was been added to the list GoodUser.")
			return 1
			else
			user:SendPM(Bot, "Syntax error, !add . ")
			return 1
			end
			end
		elseif (cmd=="!show") then
			if (user.bOperator) then
			Readtextfile(user, goodtext)
			return 1
			end
		end
	end
end


function Readtextfile(user, file)
   	local filecontents = ""
	local handle = openfile(file, "r")
	if (handle ~= nil) then
		local line = read(handle)
		while line do
        	filecontents = filecontents..line.."\r\n"
		line = read(handle)
		end
		closefile(handle)
      	user:SendPM(Bot, filecontents)
	end
end

[nErBoS]

Hi,

Let me know if it works OK...

--Requested by kbeh273300
--Made by nErBoS

Bot = "FavUsers-Bot"

goodtext = "gooduser.txt" --It will be created in the script folder

function Main() 
frmHub:RegBot(Bot) 
end 

function DataArrival(user, data) 
	if (strsub(data,1,1)=="<") or (strsub(data,1,5+strlen(Bot))=="$To: "..Bot) then
	data=strsub(data,1,strlen(data)-1)
	s,e,cmd = strfind(data,"%b<>%s+(%S+)")
		if (cmd=="!add") then
			if (user.bOperator) then
			s,e,cmd,gooduser = strfind(data, "%b<>%s+(%S+)%s+(%S+)%s*")
			if (gooduser ~= nil) then
			appendto(goodtext) 
			write("\r\n"..gooduser.."\t"..user.sName) --It writes the user and the op who added
			writeto()
			user:SendPM(Bot, "The user "..gooduser.." was been added to the list GoodUser.")
			return 1
			else
			user:SendPM(Bot, "Syntax error, !add . ")
			return 1
			end
			end
		elseif (cmd=="!show") then
			if (user.bOperator) then
			Readtextfile(user, goodtext)
			return 1
			end
		elseif (cmd=="!findgu") then
			if (user.bOperator) then
			s,e,cmd,gooduser = strfind(data, "%b<>%s+(%S+)%s+(%S+)%s*")
			if (gooduser ~= nil) then
			if (GetItemByName(gooduser) == nil) then
			user:SendPM(Bot, "The user "..gooduser.." isn't online.")
			else
			user:SendPM(Bot, "The user "..gooduser.." is online.")
			end
			else
			user:SendPM(Bot, "Syntax error, !findgu . ")
			end
			end
		elseif (cmd=="!regu") then
			if (user.bOperator) then
			s,e,cmd,gooduser = strfind(data, "%b<>%s+(%S+)%s+(%S+)%s*")
			if (gooduser ~= nil) then
			RemoveGoodUser(gooduser, goodtext)
			else
			user:SendPM(Bot, "Syntax error, !regu . ")
			end
			end
		end
	end
end


function Readtextfile(user, file)
   	local filecontents = ""
	local handle = openfile(file, "r")
	if (handle ~= nil) then
		local line = read(handle)
		while line do
        	filecontents = filecontents..line.."\r\n"
		line = read(handle)
		end
		closefile(handle)
      	user:SendPM(Bot, filecontents)
	end
end

function Writetextfile(file, array)
	writeto(file)
	for x=1,getn(array) do write(array[x].."\r\n") end
	writeto()
end

function RemoveGoodUser(user, file)
local tmp = ""
local temp = {}
readfrom(file)
   while 1 do
      local line = read()
      if (line == nil) then 
         break
      else
         local s, e, nick = strfind(line, "(%S*)%s%S*%s%S*")
         if (nick == user.sName) then
         else
            tmp = tmp .. line .. "\r\n"
         end
      end
   end
readfrom()
tinsert(temp, tmp)
Writetextfile(file, temp)
user:SendPM(Bot, "Done..")
end

Best regards, nErBoS

[Snooze]

If your up for it, i have a new challange for you nErBoS ;)




http://board.univ-angers.fr/thread.php?threadid=1358&boardid=11&styleid=1

[nErBoS]

Hi,

Snooze when i get a free time i will see that, i don?t have any expirence in working a script with a site, i will see what i can learn to help you out.

Best regards, nErBoS

[kbeh273300]

ok im getting a script error when i use the !regu cmd

Syntax error: attempt to index local `user' (a string value)
stack traceback:
   1:  function `RemoveGoodUser' at line 92 [file `...esktop\New Folder (10)\scripts\FavUsers-Bot.lua']
   2:  function `DataArrival' at line 52 [file `...esktop\New Folder (10)\scripts\FavUsers-Bot.lua']

[nErBoS]

Hi,

Try this...

--Requested by kbeh273300
--Made by nErBoS

Bot = "FavUsers-Bot"

goodtext = "gooduser.txt" --It will be created in the script folder

function Main() 
frmHub:RegBot(Bot) 
end 

function DataArrival(user, data) 
	if (strsub(data,1,1)=="<") or (strsub(data,1,5+strlen(Bot))=="$To: "..Bot) then
	data=strsub(data,1,strlen(data)-1)
	s,e,cmd = strfind(data,"%b<>%s+(%S+)")
		if (cmd=="!add") then
			if (user.bOperator) then
			s,e,cmd,gooduser = strfind(data, "%b<>%s+(%S+)%s+(%S+)%s*")
			if (gooduser ~= nil) then
			appendto(goodtext) 
			write(gooduser.."\t"..user.sName.."\r\n") --It writes the user and the op who added
			writeto()
			user:SendPM(Bot, "The user "..gooduser.." was been added to the list GoodUser.")
			return 1
			else
			user:SendPM(Bot, "Syntax error, !add . ")
			return 1
			end
			end
		elseif (cmd=="!show") then
			if (user.bOperator) then
			Readtextfile(user, goodtext)
			return 1
			end
		elseif (cmd=="!findgu") then
			if (user.bOperator) then
			s,e,cmd,gooduser = strfind(data, "%b<>%s+(%S+)%s+(%S+)%s*")
			if (gooduser ~= nil) then
			if (GetItemByName(gooduser) == nil) then
			user:SendPM(Bot, "The user "..gooduser.." isn't online.")
			return 1
			else
			user:SendPM(Bot, "The user "..gooduser.." is online.")
			return 1
			end
			else
			user:SendPM(Bot, "Syntax error, !findgu . ")
			return 1
			end
			end
		elseif (cmd=="!regu") then
			if (user.bOperator) then
			s,e,cmd,gooduser = strfind(data, "%b<>%s+(%S+)%s+(%S+)%s*")
			if (gooduser ~= nil) then
			RemoveGoodUser(gooduser, goodtext)
			user:SendPM(Bot, "Done..")
			return 1
			else
			user:SendPM(Bot, "Syntax error, !regu . ")
			return 1
			end
			end
		end
	end
end


function Readtextfile(user, file)
   	local filecontents = ""
	local handle = openfile(file, "r")
	if (handle ~= nil) then
		local line = read(handle)
		while line do
        	filecontents = filecontents..line.."\r\n"
		line = read(handle)
		end
		closefile(handle)
      	user:SendPM(Bot, filecontents)
	end
end

function Writetextfile(file, array)
	writeto(file)
	for x=1,getn(array) do write(array[x].."\r\n") end
	writeto()
end

function RemoveGoodUser(user, file)
local tmp = ""
local temp = {}
readfrom(file)
   while 1 do
      local line = read()
      if (line == nil) then 
         break
      else
         local s, e, nick = strfind(line, "(%S*)%s%S*%s%S*")
         if (nick == user) then
         else
            tmp = tmp .. line .. "\r\n"
         end
      end
   end
readfrom()
tinsert(temp, tmp)
Writetextfile(file, temp)
end

Best regards, nErBoS

[Snooze]

Thanks nErBoS :-)

[kbeh273300]

working great now . your da man :)

[kbeh273300]

i guess i spoke to soon its not giveing the error and it says [19:18] Done..  when i use the !regu nick but then when i use the !show the user still shows on the list

[nErBoS]

Hi,

Problay you have a a line blank in the midle of the gooduser.txt you have to delete that line, a little bug i will try to correct him.

Best regards, nErBoS

[kbeh273300]

yep i did have a blank line so i deleted it and its not giveing the error now but it still isnt removeing the user.

great job so far i thank you much for your time on this :)

[nErBoS]

Hi,

This will solve "i hope :) "..

--Requested by kbeh273300
--Made by nErBoS

Bot = "FavUsers-Bot"

goodtext = "gooduser.txt" --It will be created in the script folder

function Main() 
frmHub:RegBot(Bot) 
end 

function DataArrival(user, data) 
	if (strsub(data,1,1)=="<") or (strsub(data,1,5+strlen(Bot))=="$To: "..Bot) then
	data=strsub(data,1,strlen(data)-1)
	s,e,cmd = strfind(data,"%b<>%s+(%S+)")
		if (cmd=="!add") then
			if (user.bOperator) then
			s,e,cmd,gooduser = strfind(data, "%b<>%s+(%S+)%s+(%S+)%s*")
			if (gooduser ~= nil) then
			appendto(goodtext) 
			write(gooduser.."\t"..user.sName.."\r\n") --It writes the user and the op who added
			writeto()
			user:SendPM(Bot, "The user "..gooduser.." was been added to the list GoodUser.")
			return 1
			else
			user:SendPM(Bot, "Syntax error, !add . ")
			return 1
			end
			end
		elseif (cmd=="!show") then
			if (user.bOperator) then
			Readtextfile(user, goodtext)
			return 1
			end
		elseif (cmd=="!findgu") then
			if (user.bOperator) then
			s,e,cmd,gooduser = strfind(data, "%b<>%s+(%S+)%s+(%S+)%s*")
			if (gooduser ~= nil) then
			if (GetItemByName(gooduser) == nil) then
			user:SendPM(Bot, "The user "..gooduser.." isn't online.")
			return 1
			else
			user:SendPM(Bot, "The user "..gooduser.." is online.")
			return 1
			end
			else
			user:SendPM(Bot, "Syntax error, !findgu . ")
			return 1
			end
			end
		elseif (cmd=="!regu") then
			if (user.bOperator) then
			s,e,cmd,gooduser = strfind(data, "%b<>%s+(%S+)%s+(%S+)%s*")
			if (gooduser ~= nil) then
			RemoveGoodUser(gooduser, goodtext)
			user:SendPM(Bot, "Done..")
			return 1
			else
			user:SendPM(Bot, "Syntax error, !regu . ")
			return 1
			end
			end
		end
	end
end


function Readtextfile(user, file)
   	local filecontents = ""
	local handle = openfile(file, "r")
	if (handle ~= nil) then
		local line = read(handle)
		while line do
        	filecontents = filecontents..line.."\r\n"
		line = read(handle)
		end
		closefile(handle)
      	user:SendPM(Bot, filecontents)
	end
end

function Writetextfile(file, array)
	writeto(file)
	for x=1,getn(array) do write(array[x].."\r\n") end
	writeto()
end

function RemoveGoodUser(user, file)
local time = 0
local tmp = ""
local temp = {}
readfrom(file)
   while 1 do
      local line = read()
      if (time == 3) then
	 break
      else
      if (line == nil) then 
	 time = time + 1
      else
         local s, e, nick = strfind(line, "(%S+)%s+%S+")
         if (nick == user) then
	 time = 0
         else
            tmp = tmp .. line .. "\r\n"
	    time = 0
         end
      end
   end
end
readfrom()
tinsert(temp, tmp)
Writetextfile(file, temp)
end

Best regards, nErBoS

[kbeh273300]

looks like it still isnt removeing the user :(
no script errors tho :)