RegVardy Votebot by Phatty

[pHaTTy]

request by yepyepyep

work in progess and here is 0.02; :-)

--//RegVardy Voter bot by Phatty *yawn* version 0.02;
--//REquest by someone, update soon when i awake properly no sleep yet lol
--//Untested;

Reg = {}
maxvotes = 11;
_mark = 5;


function Main() BOT = "RegVardy"; hubSD = SendToAll; frmHub:RegBot(BOT); end;

function DataArrival(reg,vardy)
	if strsub(vardy, 1, 4) == "$To:" then
		local s,e,whoto,from,vardy = strfind(vardy, "$To:%s+(%S+)%s+From:%s+(%S+)%s+(.*)") 
		local s,e,old,vardy = strfind(vardy, "(%S+)>(.*)")
		if whoto == BOT then
			local vardy=strsub(vardy,1,strlen(vardy)-1)
			if Reg[reg.sName] == "pass" then
				local s,e,pass = strfind(vardy,"(%S+)")
				AddRegUser(reg.sName,pass,3)
				reg:SendPM(BOT,"You are now registered with the pass: "..pass.." please reconnect and add this hub to favs")
				hubSD(BOT,reg.sName.." is now a registered member with us!")
			return nil; end;
		end;
	elseif strsub(vardy, 1, 1) == "<" then
		local vardy=strsub(vardy,1,strlen(vardy)-1) 
		local s,e,cmd = strfind(vardy, "%b<>%s+(%S+)")

		if cmd == "!voteme" then
			if reg.iProfile == -1 then
				if Reg[reg.sName] then
					reg:SendData(BOT,"You have a vote in progress")
				return nil; end;
				hubSD(BOT,reg.sName.." has requested votes to become a registered user, if u want to vote and let this user be registered here type !vote username yes/no")
				Reg[reg.sName] = {["yes"] = {}, ["no"] = {}, ["total"] = 0}
				return nil; else reg:SendData(BOT,"You are already registered")
				return nil; 
			end;
		elseif cmd == "!vote" then
			local s,e,name,answer = strfind(vardy, "%b<>%s+%S+%s+(%S+)%s+(%S+)")
			if name == nil then
				reg:SendData(BOT,"No such user in vote list!")
				return nil; else if Reg[name] then
					if Reg[name][answer] then
						local checkvote = CheckVoter(name,reg.sName)
						if checkvote == 1 then
							reg:SendData(BOT,"Do NOT try to vote for oneself")
							return nil; elseif checkvote == 2 then
							reg:SendData(BOT,"You have already voted for this user")
							return nil;
						end; Reg[name][answer] = reg.sName;
						if Reg[name]["total"] == maxvotes then
							CountVotes(name) return nil;
						end; hubSD(BOT,reg.sName.." has voted "..answer.." that "..name.." should be registered")
						Reg[name]["total"] = Reg[name]["total"] + 1; else
						reg:SendData(BOT,"Syntax: !vote  ")
					return nil; end;
				end;
			end;
		end;
	end;
end;

function CountVotes(name)
	local count = 0; for i,v in Reg[name]["yes"] do
	local count = count + 1;
	end; if count < _mark then
		SendPmToNick(name,BOT,"You have failed to recieve enough votes to be registered")
		Reg[name] = nil; return nil; else
		Reg[name] = "pass"; SendPmToNick(name,BOT,"You have been voted to be registered, please type your pass now, and u will be auto registered")
	return nil; end;
end;

function CheckVoter(name,sName)
	if name == sName then return 1; else
	for i,v in Reg[name]["yes"] do
		if v == sName then return 2; end;
	end; for i,v in Reg[name]["no"] do
		if v == sName then return 2; end;
	end; return nil; end;
end;

[yepyepyep4711]

just tested it. Now the voting starts, but after the first person votes, when the others do nothing happens.

Further it would be nice if you'll only allow registered users to vote (I mean any user in the user db, so admin and op as well, but not unregistered users, otherwise they can elect each other )

thx

[pHaTTy]

hmm for the not working bit try this

--//RegVardy Voter bot by Phatty *yawn* version 0.02;
--//Request by yepyepyep, slept now :-P
--//Still Untested ;/

Reg = {}
maxvotes = 11;
_mark = 5;


function Main() BOT = "RegVardy"; hubSD = SendToAll; frmHub:RegBot(BOT); end;

function DataArrival(reg,vardy)
	if strsub(vardy, 1, 4) == "$To:" then
		local s,e,whoto,from,vardy = strfind(vardy, "$To:%s+(%S+)%s+From:%s+(%S+)%s+(.*)") 
		local s,e,vardy = strfind(vardy, "%S+>(.*)")
		if whoto == BOT then
			local vardy=strsub(vardy,1,strlen(vardy)-1)
			if Reg[reg.sName] == "pass" then
				local s,e,pass = strfind(vardy,"(%S+)")
				AddRegUser(reg.sName,pass,3)
				reg:SendPM(BOT,"You are now registered with the pass: "..pass.." please reconnect and add this hub to favs")
				hubSD(BOT,reg.sName.." is now a registered member with us!")
			return nil; end;
		end; 
	elseif strsub(vardy, 1, 1) == "<" then
		local vardy=strsub(vardy,1,strlen(vardy)-1) 
		local s,e,cmd = strfind(vardy, "%b<>%s+(%S+)")

		if cmd == "!voteme" then
			if reg.iProfile == -1 then
				if Reg[reg.sName] then
					reg:SendData(BOT,"You have a vote in progress")
				return nil; end;
				hubSD(BOT,reg.sName.." has requested votes to become a registered user, if u want to vote and let this user be registered here type !vote username yes/no")
				Reg[reg.sName] = {["yes"] = {}, ["no"] = {}, ["total"] = 0}
				return nil; else reg:SendData(BOT,"You are already registered")
				return nil; 
			end;
		elseif cmd == "!vote" then
			local s,e,name,answer = strfind(vardy, "%b<>%s+%S+%s+(%S+)%s+(%S+)")
			if name == nil then
				reg:SendData(BOT,"No such user in vote list!")
				return nil; else if Reg[name] then
					if Reg[name][answer] then
						local checkvote = CheckVoter(name,reg.sName)
						if checkvote == 1 then
							reg:SendData(BOT,"Do NOT try to vote for oneself")
							return nil; elseif checkvote == 2 then
							reg:SendData(BOT,"You have already voted for this user")
							return nil;
						end; Reg[name][answer][reg.sName] = nil;
						if Reg[name]["total"] == maxvotes then
							CountVotes(name) return nil;
						end; hubSD(BOT,reg.sName.." has voted "..answer.." that "..name.." should be registered")
						Reg[name]["total"] = Reg[name]["total"] + 1; else
						reg:SendData(BOT,"Syntax: !vote  ")
					return nil; end;
				end;
			end;
		end;
	end;
end;

function CountVotes(name)
	local count = 0; for i,v in Reg[name]["yes"] do
	local count = count + 1;
	end; if count < _mark then
		SendPmToNick(name,BOT,"You have failed to recieve enough votes to be registered")
		Reg[name] = nil; return nil; else
		Reg[name] = "pass"; SendPmToNick(name,BOT,"You have been voted to be registered, please type your pass now, and u will be auto registered")
	return nil; end;
end;

function CheckVoter(name,sName)
	if name == sName then return 1; else
	for i,v in Reg[name]["yes"] do
		if v == sName then return 2; end;
	end; for i,v in Reg[name]["no"] do
		if v == sName then return 2; end;
	end; return nil; end;
end;

[pHaTTy]

ok unregistered cant vote

--//RegVardy Voter bot by Phatty *yawn* version 0.03;
--//Request by yepyepyep, slept now :-P
--//Still Untested ;/

Reg = {}
maxvotes = 11;
_mark = 5;


function Main() BOT = "RegVardy"; hubSD = SendToAll; frmHub:RegBot(BOT); end;

function DataArrival(reg,vardy)
	if strsub(vardy, 1, 4) == "$To:" then
		local s,e,whoto,from,vardy = strfind(vardy, "$To:%s+(%S+)%s+From:%s+(%S+)%s+(.*)") 
		local s,e,vardy = strfind(vardy, "%S+>(.*)")
		if whoto == BOT then
			local vardy=strsub(vardy,1,strlen(vardy)-1)
			if Reg[reg.sName] == "pass" then
				local s,e,pass = strfind(vardy,"(%S+)")
				AddRegUser(reg.sName,pass,3)
				reg:SendPM(BOT,"You are now registered with the pass: "..pass.." please reconnect and add this hub to favs")
				hubSD(BOT,reg.sName.." is now a registered member with us!")
			return nil; end;
		end; 
	elseif strsub(vardy, 1, 1) == "<" then
		local vardy=strsub(vardy,1,strlen(vardy)-1) 
		local s,e,cmd = strfind(vardy, "%b<>%s+(%S+)")

		if cmd == "!voteme" then
			if reg.iProfile == -1 then
				if Reg[reg.sName] then
					reg:SendData(BOT,"You have a vote in progress")
				return nil; end;
				hubSD(BOT,reg.sName.." has requested votes to become a registered user, if u want to vote and let this user be registered here type !vote username yes/no")
				Reg[reg.sName] = {["yes"] = {}, ["no"] = {}, ["total"] = 0}
				return nil; else reg:SendData(BOT,"You are already registered")
				return nil; 
			end;
		elseif cmd == "!vote" then
			if reg.iProfile == -1 then
				local s,e,name,answer = strfind(vardy, "%b<>%s+%S+%s+(%S+)%s+(%S+)")
				if name == nil then
					reg:SendData(BOT,"No such user in vote list!")
					return nil; else if Reg[name] then
						if Reg[name][answer] then
							local checkvote = CheckVoter(name,reg.sName)
							if checkvote == 1 then
								reg:SendData(BOT,"Do NOT try to vote for oneself")
								return nil; elseif checkvote == 2 then
								reg:SendData(BOT,"You have already voted for this user")
								return nil;
							end; Reg[name][answer][reg.sName] = nil;
							if Reg[name]["total"] == maxvotes then
								CountVotes(name) return nil;
							end; hubSD(BOT,reg.sName.." has voted "..answer.." that "..name.." should be registered")
							Reg[name]["total"] = Reg[name]["total"] + 1; else
							reg:SendData(BOT,"Syntax: !vote  ")
						return 1; end;
					end;
				end; else reg:SendData(BOT,"You are not qualified to vote, reg+ to vote ;-)")
			return 1; end;
		end;
	end;
end;

function CountVotes(name)
	local count = 0; for i,v in Reg[name]["yes"] do
	local count = count + 1;
	end; if count < _mark then
		SendPmToNick(name,BOT,"You have failed to recieve enough votes to be registered")
		Reg[name] = nil; return nil; else
		Reg[name] = "pass"; SendPmToNick(name,BOT,"You have been voted to be registered, please type your pass now, and u will be auto registered")
	return nil; end;
end;

function CheckVoter(name,sName)
	if name == sName then return 1; else
	for i,v in Reg[name]["yes"] do
		if v == sName then return 2; end;
	end; for i,v in Reg[name]["no"] do
		if v == sName then return 2; end;
	end; return nil; end;
end;

technically no point checking if the user is same but, dont matta it goes along with the return 2 check so i'll leave it

[pHaTTy]

wait change

function CountVotes(name)
	local count = 0; for i,v in Reg[name]["yes"] do
	local count = count + 1;
	end; if count < _mark then
		SendPmToNick(name,BOT,"You have failed to recieve enough votes to be registered")
		Reg[name] = nil; return nil; else
		Reg[name] = "pass"; SendPmToNick(name,BOT,"You have been voted to be registered, please type your pass now, and u will be auto registered")
	return nil; end;
end;

function CheckVoter(name,sName)
	if name == sName then return 1; else
	for i,v in Reg[name]["yes"] do
		if i == sName then return 2; end;
	end; for i,v in Reg[name]["no"] do
		if i == sName then return 2; end;
	end; return nil; end;
end;

[yepyepyep4711]

I think you got the levelproofing the wrong way round, admin, op and reg can't vote, but unregged can  

I'm using admin=0, op=1, reg=3.

And you got the vote counting wrong as well.
I let 11 users vote for another one, and it still says he hasn't got enough votes, lol

but thx for working on it

[pHaTTy]

yep forgot about that am still tired lol gone in 3 days too =)

function DataArrival(reg,vardy)
	if strsub(vardy, 1, 4) == "$To:" then
		local s,e,whoto,from,vardy = strfind(vardy, "$To:%s+(%S+)%s+From:%s+(%S+)%s+(.*)") 
		local s,e,vardy = strfind(vardy, "%S+>(.*)")
		if whoto == BOT then
			local vardy=strsub(vardy,1,strlen(vardy)-1)
			if Reg[reg.sName] == "pass" then
				local s,e,pass = strfind(vardy,"(%S+)")
				AddRegUser(reg.sName,pass,3)
				reg:SendPM(BOT,"You are now registered with the pass: "..pass.." please reconnect and add this hub to favs")
				hubSD(BOT,reg.sName.." is now a registered member with us!")
			return nil; end;
		end; 
	elseif strsub(vardy, 1, 1) == "<" then
		local vardy=strsub(vardy,1,strlen(vardy)-1) 
		local s,e,cmd = strfind(vardy, "%b<>%s+(%S+)")

		if cmd == "!voteme" then
			if reg.iProfile == -1 then
				if Reg[reg.sName] then
					reg:SendData(BOT,"You have a vote in progress")
				return nil; end;
				hubSD(BOT,reg.sName.." has requested votes to become a registered user, if u want to vote and let this user be registered here type !vote username yes/no")
				Reg[reg.sName] = {["yes"] = {}, ["no"] = {}, ["total"] = 0}
				return nil; else reg:SendData(BOT,"You are already registered")
				return nil; 
			end;
		elseif cmd == "!vote" then
			if reg.iProfile ~= -1 then
				local s,e,name,answer = strfind(vardy, "%b<>%s+%S+%s+(%S+)%s+(%S+)")
				if name == nil then
					reg:SendData(BOT,"No such user in vote list!")
					return nil; else if Reg[name] then
						if Reg[name][answer] then
							local checkvote = CheckVoter(name,reg.sName)
							if checkvote == 1 then
								reg:SendData(BOT,"Do NOT try to vote for oneself")
								return nil; elseif checkvote == 2 then
								reg:SendData(BOT,"You have already voted for this user")
								return nil;
							end; Reg[name][answer][reg.sName] = nil;
							if Reg[name]["total"] == maxvotes then
								CountVotes(name) return nil;
							end; hubSD(BOT,reg.sName.." has voted "..answer.." that "..name.." should be registered")
							Reg[name]["total"] = Reg[name]["total"] + 1; else
							reg:SendData(BOT,"Syntax: !vote  ")
						return 1; end;
					end;
				end; else reg:SendData(BOT,"You are not qualified to vote, reg+ to vote ;-)")
			return 1; end;
		end;
	end;
end;

[yepyepyep4711]

then I'd better reply quick :)

now the levelproofing functions, but it still says "not enough votes" in the end.

An idea: instead of needing maxvotes, with _mark of them positive, how about letting the vote run for a configurable length of time (I'd choose a day) and then count up, user with more than a configurable percentage  of positives gets elected.

Like in
!vote me
Testuser has requested votes to become a registered user, if u want to vote and let this user be registered here type !vote username yes/no. The vote will run until , . Testuser, you have that much time to make sure everyone loves you and get elected ;) you need more than 75% positive to win that election.

What do you think?

[pHaTTy]

Originally posted by yepyepyep4711
then I'd better reply quick :)

now the levelproofing functions, but it still says "not enough votes" in the end.

An idea: instead of needing maxvotes, with _mark of them positive, how about letting the vote run for a configurable length of time (I'd choose a day) and then count up, user with more than a configurable percentage  of positives gets elected.

Like in
!vote me
Testuser has requested votes to become a registered user, if u want to vote and let this user be registered here type !vote username yes/no. The vote will run until , . Testuser, you have that much time to make sure everyone loves you and get elected ;) you need more than 75% positive to win that election.

What do you think?

only prob is checking the time n date, hmmm altho come to think of it, its on local comp in memory sowont affect, yup i thnk that cud be much better, the _mark was being pain in the ass anyways, i will re-do the tables so its all in one, thats if i get time, i wil start now, 2 more days left =)


altho come to think about it, if ya got alot of users in the table, checking them for if the toime has expired each, cud be pretty resource usage, unless its done every hour, cud be less usage, like if time is above certain time n date hmmmm, me will go see =)

[yepyepyep4711]

Originally posted by (uk-kingdom)pH?tt??
me will go see =)

that's great

the table shouldn't become to big, as there should be only the votes still running in it.
I guess a good idea would also be to let the script check if the user is online before asking him to enter password, upon deadline, and postponing the announcement for another hour during a day or so.