Poll/Survey Options

[Jabb11]

I have looked around the forums for a functioning poll/survey script and i can't find a functioning one. The problem with this script is that it wont even show up on the plugins list. If you guys know other better scripts or could help me with this one i'd appreciate it.

This is the script i found.

CODE

'survey
'1.0
'masda70 at www.clanroof.com
'poll script! FSO database management

Public POLL_FILE,POLL_PEOPLECOUNTER,POLL_MAIN,POLL_STATACCESS,POLL_
ADMINACCESS
Public SURVEY_FILE,SURVEY_MAIN,SURVEY_ANSWERS,SURVEY_RESULTS,SURVEY
_PEOPLEVOTES,SURVEY_ADMINACCESS,SURVEY_STATACCESS,SURVEY_MAX
ANSWERNUMBER
Public MyUsername
Public MyFlags
Public MyAccess
Public FSO
Public mulpoll,pollFile
Set mulpoll = CreateObject("Scripting.FileSystemObject")
Set pollFile = CreateObject("Scripting.FileSystemObject")

Set FSO = CreateObject("Scripting.FileSystemObject")

SURVEY_FILE=BotPath()&"survey.txt"
SURVEY_MAIN="main"
SURVEY_ANSWERS="answers"
SURVEY_RESULTS="results"
SURVEY_PEOPLEVOTES="peoplevotes"
SURVEY_ADMINACCESS=100
SURVEY_STATACCESS=50
SURVEY_MAXANSWERNUMBER=10

POLL_STATACCESS=50
POLL_ADMINACCESS=100
POLL_FILE=BotPath()&"poll.txt"
POLL_PEOPLECOUNTER="peoplecounter"
POLL_MAIN="main"

Function ReadText(filepath)
ReadText=""
If FSO.FileExists(filepath) Then
Set File = FSO.GetFile(filepath)
If (file.size)=0 Then
ReadText=""
Else
Set File = FSO.OpenTextFile(filepath,1)
ReadText=File.ReadAll
End If
End If
File.Close
End Function

Sub WriteText(filepath,text)
If FSO.FileExists(filepath) Then
Set File = FSO.GetFile(filepath)
If file.size=0 Then
FSO.DeleteFile(filepath)
End If
End If
Set File = FSO.OpenTextFile(filepath,2,true)
File.Write text
File.Close
End Sub

Function CountLines(filepath)
Dim Content
Content=ReadText(Filepath)
vLines = Split(Content, vbCrLf)
CountLines=0
For Each vLine in vLines
If Len(vLine)>0 Then
CountLines=CountLines+1
End If
Next
End Function

Function CheckLine(filepath,text)
Dim Content, Count
Content=ReadText(filepath)
vLines = Split(content, vbCrLf)
Count=1
CheckLine=0
For Each vLine in vLines
If lcase(vLine)=lcase(text) Then
CheckLine=1
Exit For
End If
Count=Count+1
Next
End Function

Function FindCheckLine(filepath,text)
Dim Content, Count
Content=ReadText(filepath)
vLines = Split(content, vbCrLf)
Count=1
FindCheckLine=0
For Each vLine in vLines
If lcase(vLine)=lcase(text) Then
FindCheckLine=Count
Exit For
End If
Count=Count+1
Next
End Function

Function CounterInterval(filepath, counter)
Dim Content, start, last, Inte, Count
start=0
Inte=CountLines(filepath)
Content=ReadText(filepath)
vLines = Split(Content, vbCrLf)
Content=""
last=""
Count=1
For Each vLine in vLines
if vLine="["&counter&"]" then
start=1
elseIf start=1 and left(vLine,1)="[" and right(vLine,1)="]" then
Content=Replace (Content, last&vbCrLf, last)
exit for
elseIf Start=1 and Inte=Count then
Content=Content&vLine
exit for
elseif start=1 then
Content=Content&vLine&vbCrLf
last=vLine
end if
Count=count+1
next
CounterInterval=Content
end function

Sub InsertLine(filepath,line,text)
Dim Content, Count, Ins
Ins=CountLines(filepath)
Content=ReadText(filepath)
vLines = Split(content, vbCrLf)
Count=1
Content=""
For Each vLine in vLines
If Count=Line Then
Content=Content&text&vbCrLf
End If
if Ins+1=line and Count=Ins then
Content=Content&vLine&vbCrLf&text
Count=Count+1
exit for
elseif Count=Ins then
Content=Content&vLine
else
Content=Content&vLine&vbCrLf
end if
Count=Count+1
Next
If Count<Line Then
Exit Sub
End If
Call WriteText(filepath,Content)
End Sub

Sub DeleteLine(filepath,line)
Dim Content, Count, Del
Del=CountLines(filepath)
Content=ReadText(filepath)
vLines = Split(content, vbCrLf)
Count=1
Content=""
For Each vLine in vLines
If Count<Line or Count>Line Then
if Count=Del then
Content=Content&vLine
else
if Line=Del and Count=Del-1 Then
Content=Content&vLine
else
Content=Content&vLine&vbCrLf
end if
End If
End If
Count=Count+1
Next
If Count<Line Then
Exit Sub
End If
Call WriteText(filepath,Content)
End Sub

Sub ChangeLine(cfilepath,cline,ctext)
Call DeleteLine(cfilepath,cline)
Call InsertLine(cfilepath,cline,ctext)
End Sub


Function FindLine(filepath,text)
Dim Content, Count
Content=ReadText(filepath)
vLines = Split(content, vbCrLf)
Count=1
FindLine=0
For Each vLine in vLines
If InStr(vline,text) Then
FindLine=Count
Exit For
End If
Count=Count+1
Next
End Function

Function FindCounterLine(filepath, text, counter)
Dim Content, Count
Content=CounterInterval(filepath, counter)
vLines = Split(content, vbCrLf)
Count=FindCheckLine(filepath, "["&counter&"]")+1
FindCounterLine=0
For Each vLine in vLines
if vLine<>"" then
If lcase(text)=Split(lcase(vLine), ";")(0) Then
FindCounterLine=Count
Exit For
End If
end if
Count=Count+1
Next
End Function

Function GetLine(filepath, number)
Dim Content,Count
Content=ReadText(filepath)
vLines = Split(Content, vbCrLf)
Count=1
GetLine=""
For Each vLine in vLines
If Count=number Then
GetLine=vLine
Exit For
End If
Count=Count+1
Next
End Function

Sub Pollvote(Username,vot,wvar)
Dim votetemp, pollcount, line
line=FindCounterLine(POLL_FILE, lcase(Username),POLL_PEOPLECOUNTER )
If line<>0 Then
If Right(GetLine(POLL_FILE,line),2)=";"&CStr(vot) Then
addq wvar&Username & " cannot vote the same again."
Else
votetemp=(Cint(Right(GetLine(POLL_FILE,line),1)-1))
Call DeleteLine(POLL_FILE,line)
Call InsertLine(POLL_FILE,line,lcase(Username)&";"&CStr(vot))
pollcount=(split(GetLine(POLL_FILE,3),";",3))
pollcount(votetemp)=CStr(CInt(pollcount(votetemp))-1)
pollcount(vot-1)=CStr(CInt(pollcount(vot-1))+1)
Call ChangeLine(POLL_FILE, 3, pollcount(0)&";"&pollcount(1)&";"&pollcount(2))
addq wvar&Username & " has changed of vote."
End If
Else
Call InsertLine(POLL_FILE, FindCheckLine(POLL_FILE,"["&POLL_PEOPLECOUNTER&"]")+1, lcase(Username)&";"&CStr(vot))
pollcount=(split(GetLine(POLL_FILE,3),";",3))
pollcount(vot-1)=CStr(CInt((pollcount(vot-1))+1))
Call ChangeLine(POLL_FILE, 3, pollcount(0)&";"&pollcount(1)&";"&pollcount(2))
addq wvar&Username & " has voted. Thanks."
End If
End Sub

'// Fires when a user on battle.net talks.

Sub survey_UserTalk(Username, Flags, Message, Ping)
GetDBEntry Username, MyAccess, MyFlags
Dim changvote
Dim l,l2
Dim multotal,z
Dim mularray()
Dim mulanswe()
Redim mularray(SURVEY_MAXANSWERNUMBER)
Redim mulanswe(SURVEY_MAXANSWERNUMBER)
If Left(lcase(message),10)=BotVars.Trigger&"newsurvey" and myAccess>SURVEY_ADMINACCESS Then
If (mid(Message,12))<>Empty Then
mulpoll.CreateTextFile SURVEY_FILE, True
If mulpoll.FileExists(SURVEY_FILE) Then
mulpoll.DeleteFile(SURVEY_FILE )
End If
Call WriteText(SURVEY_FILE,"["&SURVEY_MAIN&"]"&vbCrLf&mid(Message,12)&vbCrLf&"1"&vbCrLf&Username&vbCrLf&"0"&vbCrLf&"0"&vbCrLf&"["&SURVEY_ANSWERS&"]"&vbCrLf&"["&SURVEY_RESULTS&"]"&vbCrLf&"["&SURVEY_PEOPLEVOTES&"]")
addq wvar&"Stored Question from "&Username&": "&mid(Message,12)
Else
addq wvar&"Incorrect format. "&BotVars.Trigger&"newsurvey <survey question>."
End If
exit sub
End If

If Left(lcase(message),8)=BotVars.Trigger&"surveya" Then
If myAccess>SURVEY_ADMINACCESS Then
If mid(message, 10)<>"" then
If GetLine(SURVEY_FILE,5)<>"1" Then
z=CInt(GetLine(SURVEY_FILE,3))
Call InsertLine(SURVEY_FILE,FindCheckLine(SURVEY_FILE,"["&SURVEY_ANSWERS&"]")+z, mid(message, 10))
Call InsertLine(SURVEY_FILE,FindCheckLine(SURVEY_FILE,"["&SURVEY_RESULTS&"]")+z, "0")
addq wvar&"Answer "&z&" stored succesfully."
Call ChangeLine(SURVEY_FILE, 3, CStr(z+1))
If z=SURVEY_MAXANSWERNUMBER Then
Call InsertLine(SURVEY_FILE, 5, "1")
addq wvar&"Maximum number of answers has been reached, you may begin to vote."
End If
Else
addq wvar&"There is no current new question stored."
End If
Else
addq wvar&"Invalid Answer."
End If
End If
exit sub
End If

If Left(lcase(message),8)=BotVars.Trigger&"surveyf" Then
If myAccess>SURVEY_ADMINACCESS Then
If GetLine(SURVEY_FILE,5)<>"1" Then
Call ChangeLine(SURVEY_FILE, 5, "1")
Call ChangeLine(SURVEY_FILE,6, Date())
Call ChangeLine(SURVEY_FILE, 3, CStr(CInt(GetLine(SURVEY_FILE,3))-1))
addq wvar&"You may begin to vote now."
Else
addq wvar&"There is no current new question stored."
End If
End If
exit sub
End If

If Left(lcase(message),8)=BotVars.Trigger&"survey " Then
If IsNumeric(mid(message, 9))=True then
If CInt(GetLine(SURVEY_FILE,3))>=CInt(mid(message, 9)) Then
If GetLine(SURVEY_FILE,5)="1" Then
l=FindCounterLine(SURVEY_FILE, lcase(Username),SURVEY_PEOPLEVOTES)
If l<>0 Then
l2=mid(message, 9)
If l2<>"" and l2<>" " and l2<>"#"&mid(message, 10) Then
changvote=split(GetLine(SURVEY_FILE, l),";",2)
If mid(message, 9)=changvote(1) Then
addq wvar&"You cannot answer the same thing again."
Else
changvote(1)=Cint(changvote(1))
Call ChangeLine(SURVEY_FILE, l,(CStr(lcase(Username)&";"&Cint(l2))))
l=FindCheckLine(SURVEY_FILE,"["&SURVEY_RESULTS&"]")
Call ChangeLine(SURVEY_FILE,l+changvote(1), (Cint(GetLine(SURVEY_FILE,l+changvote(1))))-1)
Call ChangeLine(SURVEY_FILE,l+Cint(l2), (Cint(GetLine(SURVEY_FILE,l+Cint(l2))))+1)
addq wvar&Username&" has changed of vote."
End If
Else
addq wvar&"Incorrect format. "&BotVars.Trigger&"survey <number of the answer>"
End If
Else
l2=mid(message, 9)
If l2<>"" and l2<>" " Then
l=FindCheckLine(SURVEY_FILE,"["&SURVEY_RESULTS&"]")
Call ChangeLine(SURVEY_FILE, l+Cint(l2), (Cint(GetLine(SURVEY_FILE,l+Cint(l2))))+1)
Call InsertLine(SURVEY_FILE, FindCheckLine(SURVEY_FILE,"["&SURVEY_PEOPLEVOTES&"]")+1, (CStr(lcase(Username)&";"&Cint(l2))))
addq wvar&Username&" has voted. Thanks."
Else
addq wvar&"Incorrect format. "&BotVars.Trigger&"survey <answer#>"
End If
End If
Else
addq wvar&"There is no current active question at the moment."
End If
Else
addq wvar&"Answer #"&mid(message, 9)&" doesn't exist."
End if
Else
addq wvar&"Incorrect format. "&BotVars.Trigger&"survey <NUMBERONLY>"
End If
exit sub
End If

If Left(lcase(message),11)=BotVars.Trigger&"surveystat" And myAccess>=SURVEY_STATACCESS Then
If GetLine(SURVEY_FILE,5)="1" Then
z=0
multotal=0
l=FindCheckLine(SURVEY_FILE,"["&SURVEY_RESULTS&"]")
l2=FindCheckLine(SURVEY_FILE,"["&SURVEY_ANSWERS&"]")
For z=1 to CInt(GetLine(SURVEY_FILE,3))
mularray(z)=Cint(GetLine(SURVEY_FILE,l+z))
mulanswe(z)=GetLine(SURVEY_FILE,l2+z)
multotal=mularray(z)+multotal
Next
addq wvar&"Survey question "&GetLine(SURVEY_FILE,6)&" from "&GetLine(SURVEY_FILE,4)&": "&GetLine(SURVEY_FILE,2)&" has got "&multotal&" votes."
if multotal>0 then
For z=1 to CInt(GetLine(SURVEY_FILE,3))
addq wvar&mularray(z)&" vote(s) for answer number "&z&": "&mulanswe(z)&" ("&Round((mularray(z)/multotal)*100)&"%)"
Next
end if
Else
addq wvar&"There is no current active question."
End If
exit sub
End If

If Left(lcase(message),9)=BotVars.Trigger&"survey" Then
If GetLine(SURVEY_FILE,5)="1" Then
z=0
addq wvar&"Survey question "&GetLine(SURVEY_FILE,6)&" from "& GetLine(SURVEY_FILE,4)&": "&GetLine(SURVEY_FILE,2)
l=FindCheckLine(SURVEY_FILE,"["&SURVEY_ANSWERS&"]")
For z=1 to CInt(GetLine(SURVEY_FILE,3))
addq wvar&"Answer #"&z&" "&GetLine(SURVEY_FILE,l+z)
Next
addq wvar&"How to vote: type "&BotVars.Trigger&"survey <numberoftheanswer>"
Else
addq wvar&"There is no current active question."
End If
exit sub
End If

If Left(lcase(message),13)=BotVars.Trigger&"opvotescript" And myAccess>SURVEY_ADMINACCESS Then
addq "/w "&Username&" Survey op commands: "&BotVars.Trigger&"newsurvey <Question>, "&BotVars.Trigger&"surveya <newsurveyanswer>, "&BotVars.Trigger&"surveyf (set the survey with the current number of answers), Poll op commands: "&BotVars.Trigger&"newpoll <Question>."
exit sub
End If
If Left(lcase(message),11)=BotVars.Trigger&"votescript" And myAccess>=0 Then
addq "/w "&Username&" Survey commands: "&BotVars.Trigger&"survey (list the current survey), "&BotVars.Trigger&"survey <number of the answer>(answer the survey), "&BotVars.Trigger&"surveystat(current survey results)."
addq "/w "&Username&" Poll commands: "&BotVars.Trigger&"pollq (current poll question), "&BotVars.Trigger&"poll <Yes>/<No>( poll), "&BotVars.Trigger&"pollstat (current poll results)"
exit sub
End If

If Left(lcase(message),6)=BotVars.Trigger&"pollq" Then
addq wvar&"Poll question "&GetLine(POLL_FILE,5)&" from "&GetLine(POLL_FILE,4)&": "&GetLine(POLL_FILE,2)
addq wvar&"To vote type "&BotVars.Trigger&"poll <yes/no/dunno>."
exit sub
End If

If Left(lcase(message), 8)=BotVars.Trigger&"newpoll" And myAccess>POLL_ADMINACCESS Then
If (mid(Message,10))<>Empty Then
pollFile.CreateTextFile POLL_FILE, True
If pollFile.FileExists(POLL_FILE) Then
pollFile.DeleteFile(POLL_FILE )
End If
Call WriteText(POLL_FILE,"["&POLL_MAIN&"]"&vbCrLf&(mid(Message,10))&vbCrLf&"0;0;0"&vbCrLf&Username&vbCrLf&Date()&vbCrLf&"["&POLL_PEOPLECOUNTER&"]")
Addq wvar&"New poll question added by "& Username&": "&(mid(Message,10))
Else
Addq wvar&"Incorrect format. "&BotVars.Trigger&"newpoll <question>"
End If
exit sub
End If


If Left(lcase(message), 9)=BotVars.Trigger&"pollstat" And myAccess>=POLL_STATACCESS Then
pollstats=(split(GetLine(POLL_FILE,3),";",3))
polltotal=CInt(pollstats(0))+CInt(pollstats(1))+CInt(pollsta
ts(2))
addq wvar&"Current results of poll "&GetLine(POLL_FILE,5)&" from "&GetLine(POLL_FILE,4)&": "&GetLine(POLL_FILE,2)
if polltotal=0 then
addq wvar&"There has been no votes yet."
else
addq wvar&pollstats(0)&" vote(s) for YES ("&Round((pollstats(0)/polltotal)*100,1)&"%), "& pollstats(1)&" vote(s) for NO ("&Round((pollstats(1)/polltotal)*100,1)&"%), "&pollstats(2)&" vote(s) for DUNNO"&"("&Round((pollstats(2)/polltotal)*100,1)&"%)"
end if
exit sub
End If

If (lcase(mid(message, 1 ,6)))=BotVars.Trigger&"poll " Then
Select Case (lcase(mid(message,7)))
Case "yes"
Call Pollvote(Username,1,wvar)
Case "no"
Call Pollvote(Username,2,wvar)
Case "dunno"
Call Pollvote(Username,3,wvar)
End Select
End If

End Sub

Sub survey_UserJoins(Username, Flags, Message, Ping, Product, Level, OriginalStatstring)
'if 6<Abs(DateDiff("h", Now, greettime)) then 'Use this with the Seen script in order to prevent greeting about the poll many times within a few hours.
If FindCounterLine(POLL_FILE,lcase(Username),POLL_PEOPLECOUNTER
)=0 Then
If FindCounterLine(SURVEY_FILE,lcase(Username),SURVEY_PEOPLEVOT
ES )=0 and GetLine(SURVEY_FILE,5)="1" Then
addq "/w "&Username&" Please answer the survey "&GetLine(SURVEY_FILE,6)&" ("& BotVars.Trigger &"survey) and the poll "&GetLine(POLL_FILE,5)&" ("& BotVars.Trigger &"pollq), thanks."
Else
addq "/w "&Username&" Please answer the poll ("& BotVars.Trigger &"pollq), thanks. "&GetLine(POLL_FILE,5)
end if
else
If FindCounterLine(SURVEY_FILE,lcase(Username),SURVEY_PEOPLEVOT
ES )=0 and GetLine(SURVEY_FILE,5)="1" Then
addq "/w "&Username&" Please answer the survey ("& BotVars.Trigger &"survey), thanks. "&GetLine(SURVEY_FILE,6)
end if
end if
'end if
End Sub

Thanks.

[The-Black-Ninja]

Shows up in mine. Do you have the plugin system installed correctly?

[Jabb11]

Shows up in mine. Do you have the plugin system installed correctly?

Every single other plugin works for me. I'm not sure what the prefix is for it... Maybe i overlooked it?

[The-Black-Ninja]

The prefix is " survey ".

[PhiX]

If it asked you to enter a prefix, you didn't add it correctly, because the code is already in plugin format. If that's the case, make sure that there is no blank line at the top of the plugin and that the code looks exactly as it does on the forum.

[Jabb11]

The prefix is " survey ".

When i type /phelp it doesn't show up at all :-/
Any other possible reasons other than installing the plugin system incorrectly?

If it asked you to enter a prefix, you didn't add it correctly, because the code is already in plugin format. If that's the case, make sure that there is no blank line at the top of the plugin and that the code looks exactly as it does on the forum.

Is there a way to make it ask for the prefix again because I don't recall having one popping up.

[PhiX]

Any other possible reasons other than installing the plugin system incorrectly?

Installing/adding the plugin itself correctly.

Is there a way to make it ask for the prefix again because I don't recall having one popping up.

No, because as I said, that would be wrong. I thought that it maybe asked you for a prefix. If it didn't ignore this.

[Jabb11]

Any other possible reasons other than installing the plugin system incorrectly?

Installing/adding the plugin itself correctly.

I tried deleting the textfile that i was using and made another one, put the script that i got from Jack from http://www.stealthbot.net/board/index.php?...ic=4842&hl= into the textfile, then saved. Then I reloaded the bot's script. It hasn't showed up.

[The-Black-Ninja]

How does the code look in your text editor? Does it look all jumbled?

[Jabb11]

How does the code look in your text editor? Does it look all jumbled?

It looks the same as the code that i posted into the codebox. It's not jumbled.

[The-Black-Ninja]

What are you saving the file as?

[Jabb11]

What are you saving the file as?

I am saving this file as a text file. And if it matters, i named it Survey.txt.

[.•´¯`~»EKLIPz«~´¯`•.]

name it survey.plug

Problem Solved

[The-Black-Ninja]

name it survey.plug

Problem Solved

Plugins can be either txt or plug.

http://www.stealthbot.net/board/index.php?showtopic=5935

[.•´¯`~»EKLIPz«~´¯`•.]

wow, had no idea....now i sound like an idiot >_<

[Jabb11]

Is it possible that the plugin exists but the prefix was entered as blank?

[The-Black-Ninja]

Is it possible that the plugin exists but the prefix was entered as blank?

Not unless there is something wrong with your PluginSystem.dat. Is your PluginSystem.dat file up to date?

[Jabb11]

Is it possible that the plugin exists but the prefix was entered as blank?

Not unless there is something wrong with your PluginSystem.dat. Is your PluginSystem.dat file up to date?

I just replaced my old pluginsystem.dat with what was online. But the plugin still does not show up.

[PhiX]

How did you add the other plugins? Are they in the same folder? What operating system are you using?

[Call]

The prefix is " survey ".

When i type /phelp it doesn't show up at all :-/
Any other possible reasons other than installing the plugin system incorrectly?

write /plugins inside stealthbot and look if the plugin is loaded.

[PhiX]

write /plugins inside stealthbot and look if the plugin is loaded.

He was saying several times that it doesn't show up in that list.

[Jabb11]

How did you add the other plugins? Are they in the same folder? What operating system are you using?

I added other plugins by making a text file or downloading it from the official list with /getplugin
All of the plugins/text files are in the plugins folder.
My OS is XP.

This post has been edited by Jabb11: Nov 5 2008, 03:13 PM

[Outlaw]

Maybe someone take a look at this? I'm getting the same problems as Jabb as well.