PtokaX forum

Hi! I'd like the VotePoll, where user's can(if they want) add his description to the choosed variant. And numbers of voteoption may be some.
Such as:
----------------
!createvote Question#Description(not necessarily)
!addoption Answer1
!addoption Answer2
!addoption Answer3
etc.
!endoption
VotePoll successfully created!
----------------
or
----------------
!createvote Question#Description(not necessarily)
!endoption
VotePoll successfully created!
---
And Bot added this poll with answers:
1. Yes
2. No
----------------

----------------
!poll
There is 5 votepoll's:
1. How can I'm washing up my car.
2. How teaching to fly?
etc.

!poll 1
Poll n. 1:
1. Answer1(10 user's voted)
|||
2. Answer2(0 user's voted)

3. Answer3(17 user's voted)
||||||

(max: |||||||||| in percent of all users, | = ~10%)
etc.
!votefor 1#Description(not necessarily)
Ok! You has voted for: 1. Answer1. Thanks you!
---------------

Who can trying to write this script?



--Ty--

Hi,

I could try, but will take a bit, i am having a lot of work this days.

Best regards, nErBoS

Ok, it's good

Aiight..
Good there mr TY, Im looking for the same script
would be great if some1 can make it!

Hi,

Hope it helps...

--Requested by (!(Tys?kan)=)
--Made by nErBoS

sBot = "Poll-Bot"

poll = {}
pollsv = "pollsv.dat"
ended = {}
endedsv = "ended.dat"

function Main()
frmHub:RegBot(sBot)
end

function OnExit()
if (readfrom(pollsv) ~= nil and poll[1] == nil) then
LoadFromFile(pollsv)
end
if (readfrom(endedsv) ~= nil and ended[1] == nil) then
LoadFromFile(endedsv)
end
SaveToFile(pollsv , poll , "poll")
SaveToFile(endedsv , ended , "ended")
end

function DataArrival(user, data)
if (strsub(data,1,1) == "<" or strsub(data,1,5+strlen(sBot)) == "$To: "..sBot) then
data = strsub(data,1,strlen(data)-1)
s,e,cmd = strfind(data, "%b<>%s+(%S+)")
if (cmd == "!createvote" and user.bOperator) then
local s,e,quest = strfind(data, "%b<>%s+%S+%s+(.*)")
if (quest == "") then
user:SendPM(sBot, "Syntax Error, !creatvote , you must write a question.")
else
AddPoll(quest)
user:SendPM(sBot, "The Poll is open.")
end
return 1
elseif (cmd == "!addoption" and user.bOperator) then
local s,e,opt = strfind(data, "%b<>%s+%S+%s+(.*)")
if (quest == "") then
user:SendPM(sBot, "Syntax Error, !addoption , you must write a option.")
else
AddOption(opt)
user:SendPM(sBot, "Option Added.")
end
return 1
elseif (cmd == "!endoption" and user.bOperator) then
StartPoll()
user:SendPM(sBot, "VotePoll successfully created.")
return 1
elseif (cmd == "!poll") then
SeeVotePoll(user)
return 1
elseif (cmd == "!seepoll") then
local s,e,number = strfind(data, "%b<>%s+%S+%s+(%S+)")
if (number == nil or tonumber(number) == nil) then
user:SendPM(sBot, "Syntax Error, !seepoll , you must write a number.")
else
SeePoll(user, number)
end
return 1
elseif (cmd == "!votefor") then
local s,e,npoll,nopt = strfind(data, "%b<>%s+%S+%s+(%S+)%s+(%S+)")
if (npoll == nil or tonumber(npoll) == nil or nopt == nil or tonumber(nopt) == nil) then
user:SendPM(sBot, "Syntax Error, !votefor , you must write a poll number and a vote number.")
else
MakeVote(user, npoll, nopt)
end
return 1
end
end
end

function AddPoll(quest)
if (readfrom(pollsv) ~= nil and poll[1] == nil) then
LoadFromFile(pollsv)
end
if (readfrom(endedsv) ~= nil and ended[1] == nil) then
LoadFromFile(endedsv)
end
local pos = 0
for i=1, getn(poll) do
pos = i
end
poll[pos+1] = quest
ended[pos+1] = "open"
end

function AddOption(opt)
local pos = 0
local sLine = ""
local nopt = 0
if (readfrom(pollsv) ~= nil and poll[1] == nil) then
LoadFromFile(pollsv)
end
if (readfrom(endedsv) ~= nil and ended[1] == nil) then
LoadFromFile(endedsv)
end
for i=1, getn(ended) do
if (ended[i] ~= "closed") then
ended[i] = "opt"
pos = i
break
end
end
if (pos ~= 0) then
if(readfrom(pos..".poll") == nil) then
writeto(pos..".poll")
write("1. "..opt.." Voted: 0")
writeto()
else
readfrom(pos..".poll")
while 1 do
local line = read()
if (line == nil) then
nopt = nopt+1
sLine = sLine..nopt..". "..opt.." Voted: 0"
break
else
local s,e,number = strfind(line, "(%S+)%.")
if (tonumber(number) ~= nil) then
nopt = tonumber(number)
end
sLine = sLine..line.."\r\n"
end
end
readfrom()
writeto(pos..".poll")
write(sLine)
writeto()
end
end
end

function StartPoll()
local time = 0
local pos = 0
if (readfrom(pollsv) ~= nil and poll[1] == nil) then
LoadFromFile(pollsv)
end
if (readfrom(endedsv) ~= nil and ended[1] == nil) then
LoadFromFile(endedsv)
end
for i=1, getn(ended) do
if (ended[i] ~= "closed") then
pos = i
if (ended[i] == "open") then
time = 1
end
break
end
end
if (time == 1) then
writeto(pos..".poll")
write("1. Yes Voted: 0\r\n2. No Voted: 0")
writeto()
end
writeto(pos..".vot")
writeto()
ended[pos] = "closed"
end

function SeeVotePoll(user)
local sTmp = ""
local pos = 0
if (readfrom(pollsv) ~= nil and poll[1] == nil) then
LoadFromFile(pollsv)
end
if (readfrom(endedsv) ~= nil and ended[1] == nil) then
LoadFromFile(endedsv)
end
for i=1, getn(poll) do
if (ended[i] == "closed") then
pos = pos + 1
end
end
if (pos == 0) then
sTmp = sTmp.."There aren't any VotePoll."
else
sTmp = sTmp.."There is "..pos.." Vote Poll:\r\n\r\n"
for i=1, getn(poll) do
if (ended[i] == "closed") then
sTmp = sTmp..i..". "..poll[i].."\r\n"
end
end
end
user:SendPM(sBot, sTmp)
end

function SeePoll(user, number)
number = tonumber(number)
local accept = 0
local sTmp = ""
if (readfrom(pollsv) ~= nil and poll[1] == nil) then
LoadFromFile(pollsv)
end
if (readfrom(endedsv) ~= nil and ended[1] == nil) then
LoadFromFile(endedsv)
end
for i=1, getn(poll) do
if (i == number) then
accept = 1
break
end
end
if (accept == 0) then
sTmp = sTmp.."The Poll number "..number.." doesn't exist."
else
sTmp = sTmp.."## Poll number "..number.."\r\n"
sTmp = sTmp.."## Topic: "..poll[number].."\r\n\r\n"
readfrom(number..".poll")
while 1 do
local line = read()
if (line == nil) then
break
else
sTmp = sTmp..line.."\r\n"
end
end
readfrom()
end
user:SendPM(sBot, sTmp)
end

function MakeVote(user, npoll, nopt)
npoll = tonumber(npoll)
nopt = tonumber(nopt)
local accept = 0
local sTmp = ""
if (readfrom(pollsv) ~= nil and poll[1] == nil) then
LoadFromFile(pollsv)
end
if (readfrom(endedsv) ~= nil and ended[1] == nil) then
LoadFromFile(endedsv)
end
if (poll[npoll] == nil or ended[npoll] ~= "closed") then
sTmp = "There is no such Poll with the number "..npoll.."."
elseif (WatchVoter(user, npoll) == 1) then
sTmp = "You have already made a vote on this Vote-Poll."
else
readfrom(npoll..".poll")
while 1 do
local line = read()
if (line == nil) then
break
else
local s,e,number,other,vote = strfind(line, "(%S+)%.(.*)%s+Voted:%s+(%S+)")
if (tonumber(vote) ~= nil and tonumber(number) ~= nil and tonumber(number) == nopt) then
vote = tonumber(vote) + 1
sTmp = sTmp..number.."."..other.." Voted: "..vote.."\r\n"
accept = 1
else
sTmp = sTmp..line.."\r\n"
end
end
end
readfrom()
if ( accept == 0) then
sTmp = "There is no such vote option on the Poll number "..npoll.."."
else
writeto(npoll..".poll")
write(sTmp)
writeto()
WriteVoter(user, npoll)
sTmp = "Your Vote as been made. Thank you."
end
end
user:SendPM(sBot, sTmp)
end

function WriteVoter(user, npoll)
local sTmp = ""
readfrom(npoll..".vot")
while 1 do
local line = read()
if (line == nil) then
local usr = strlower(user.sName)
sTmp = sTmp..usr
break
else
sTmp = sTmp..line.."\r\n"
end
end
readfrom()
writeto(npoll..".vot")
write(sTmp)
writeto()
end

function WatchVoter(user, npoll)
local accept = 0
readfrom(npoll..".vot")
while 1 do
local line = read()
if (line == nil) then
break
else
local s,e,usr = strfind(line, "(%S+)")
if (usr ~= nil and usr == strlower(user.sName)) then
accept = 1
end
end
end
readfrom()
return accept
end

function Serialize(tTable, sTableName, sTab)
assert(tTable, "tTable equals nil");
assert(sTableName, "sTableName equals nil");

assert(type(tTable) == "table", "tTable must be a table!");
assert(type(sTableName) == "string", "sTableName must be a string!");

sTab = sTab or "";
sTmp = ""

sTmp = sTmp..sTab..sTableName.." = {\n"

for key, value in tTable do
local sKey = (type(key) == "string") and format("[%q]",key) or format("[%d]",key);

if(type(value) == "table") then
Serialize(value, sKey, sTab.."\t");
else
local sValue = (type(value) == "string") and format("%q",value) or tostring(value);
sTmp = sTmp..sTab.."\t"..sKey.." = "..sValue
end

sTmp = sTmp..",\n"
end

sTmp = sTmp..sTab.."}"
return sTmp
end

function SaveToFile(file , table , tablename)
writeto(file)
write(Serialize(table, tablename))
writeto()
end

function LoadFromFile(file)
if (readfrom(file) ~= nil) then
readfrom(file)
dostring(read("*all"))
readfrom()
end
end
Little change in request, !poll shows all polls and !seepoll shows the poll typed.
This will only work 100% in ptokax 0.3.3.0

Best regards, nErBoS

i would like that a poll be sent to mainchat on a timer once every hour and if there are say 2 or 3 polls have them sent to main chat on a timer randomly.what do ya think?

Hi,

Yes could be made. Gone create 2 commands one to activate the timer in a choose poll and other to stop.
Tomorrow i will see that.

Best regards, nErBoS

That files that are create 1.poll, 1.vot, can created in a folder like 'polls' ....please edit bot for me thanx 8) and add and that option on main chat timer random if 2 polls
And the command to delete polls that you want Master !



Thanx very much

QuoteOriginally posted by nErBoS
Hi,

Yes could be made. Gone create 2 commands one to activate the timer in a choose poll and other to stop.
Tomorrow i will see that.

Best regards, nErBoS

PLease nErBoS finish this script  :D

Hi,

Check out the "Finished Script" section, you will find the last version of this script in the "(Yes and No) VotePoll" topic.

Best regards, nErBoS