11.06.2003, 22:55 Uhr
Code:
'
############################################
'# Vote Script by [TgP]c00l4ZiD Version 1.0 #
'############################################
Const VoteFile = "Vote.ini"
Const VoteUser = "VoteUser.txt"
Dim ExtChan
Sub Init()
Script "Vote Script by [TgP]c00l4ZiD"
Hook "Chan_Msg"
End Sub
Sub Chan_Msg(Chan, Nick, RegUser, Line)
If LCase(Param(Line, 1)) = "!startvote" and IsOp(Nick, Chan) Then
If Param(Line, 2) = "" Then
Sendline "NOTICE " & Nick & " : 4Benutzung: !startvote <Zeit in Sekunden> <Frage die Du stellen willst> 3z.B. !startvote 60 Findet Ihr das script gut ?", 3
Else
WriteINIString "Vote", "Vote", "On", VoteFile
WriteINIString "Vote", "User", Nick, VoteFile
WriteINIString "Vote", "Time", Param(Line, 2), VoteFile
WriteINIString "Question", "Question", GetRest(Line, 3), VoteFile
Sendline "PRIVMSG " & Chan & " : 4" & ReadINIString( "Vote", "User", "[unknown]", VoteFile) & " startet ein Vote mit folgender Frage:", 3
Sendline "PRIVMSG " & Chan & " : 3" & ReadINIString( "Question", "Question", "[unknown]", VoteFile), 3
Sendline "PRIVMSG " & Chan & " : 4Um am Vote teilzunehmen schreibe 3!ja 4oder 3!nein 4! Votergebnis erscheint in3 " & Param(Line, 2) & " 4Sekunden !", 3
End If
ExtChan = Chan
If ReadINIString("Vote", "Vote", "[unknown]", VoteFile) = "On" Then
TimedCommand "Voting", ReadINIString("Vote", "Time", "[unknown]", VoteFile)
End If
End If
If LCase(Param(Line, 1)) = "!ja" Then
If ReadINIString("Vote", "Vote", "[unknown]", VoteFile) = "On" Then
If ReadINIString("User", Nick, "0", VoteUser) = "1" Then
Sendline "NOTICE " & Nick & " : 4Du hast schon Deine Stimme abgegeben !", 3
Else
MyInt = CInt(ReadINIString("Question", "Yes", "0", VoteFile))
MyInt = MyInt + 1
WriteINIString "Question", "Yes", MyInt, VoteFile
Sendline "NOTICE " & Nick & " : 4Du hast erfolgreich für 3JA 4gevotet !", 3
WriteINIString "User", Nick, "1", VoteUser
End If
Else
Sendline "NOTICE " & Nick & " : 4Es läuft kein Vote !", 3
End If
End If
If LCase(Param(Line, 1)) = "!nein" Then
If ReadINIString("Vote", "Vote", "[unknown]", VoteFile) = "On" Then
If ReadINIString("User", Nick, "0", VoteUser) = "1" Then
Sendline "NOTICE " & Nick & " : 4Du hast schon Deine Stimme abgegeben !", 3
Else
MyInt = CInt(ReadINIString("Question", "No", "0", VoteFile))
MyInt = MyInt + 1
WriteINIString "Question", "No", MyInt, VoteFile
Sendline "NOTICE " & Nick & " : 4Du hast erfolgreich für 3NEIN 4gevotet !", 3
WriteINIString "User", Nick, "1", VoteUser
End If
Else
Sendline "NOTICE " & Nick & " : 4Es läuft kein Vote !", 3
End If
End If
If LCase(Param(Line, 1)) = "!vote" Then
If ReadINIString("Vote", "Vote", "[unknown]", VoteFile) = "Off" Then
Sendline "PRIVMSG " & Chan & " : 4Es läuft kein Vote !", 3
End If
If ReadINIString("Vote", "Vote", "[unknown]", VoteFile) = "On" Then
Sendline "PRIVMSG " & Chan & " : 4" & ReadINIString( "Vote", "User", "[unknown]", VoteFile) & " stellte folgende Frage:", 3
Sendline "PRIVMSG " & Chan & " : 3" & ReadINIString( "Question", "Question", "[unknown]", VoteFile), 3
Sendline "PRIVMSG " & Chan & " : 4Um am Vote teilzunehmen schreibe 3!ja 4oder 3!nein 4!", 3
End If
End If
End Sub
Sub Voting()
Sendline "PRIVMSG " & ExtChan & " : 4Voting bendet ! Frage von " & ReadINIString( "Vote", "User", "[unknown]", VoteFile) & " war:", 3
Sendline "PRIVMSG " & ExtChan & " : 3" & ReadINIString( "Question", "Question", "[unknown]", VoteFile), 3
Vgesamt = Int(ReadINIString( "Question", "Yes", "0", VoteFile)) + Int(ReadINIString( "Question", "No", "0", VoteFile))
Sendline "PRIVMSG " & ExtChan & " : 4Insgesamt nahmen3 " & Vgesamt & " 4User am Voting teil !", 3
Sendline "PRIVMSG " & ExtChan & " : 3Ja 4sagten3 " & ReadINIString( "Question", "Yes", "", VoteFile) & " 4User !", 3
Sendline "PRIVMSG " & ExtChan & " : 3Nein 4sagten3 " & ReadINIString( "Question", "No", "", VoteFile) & " 4User !", 3
If ReadINIString( "Question", "Yes", "0", VoteFile) > ReadINIString( "Question", "No", "0", VoteFile) Then
Sendline "PRIVMSG " & ExtChan & " : 4Die Mehrheit hat für 3JA 4gevotet !", 3
End If
If ReadINIString( "Question", "Yes", "0", VoteFile) < ReadINIString( "Question", "No", "0", VoteFile) Then
Sendline "PRIVMSG " & ExtChan & " : 4Die Mehrheit hat für 3NEIN 4gevotet !", 3
End If
TimedCommand "Reset", 10
End Sub
Sub Reset()
WriteINIString "Vote", "Vote", "Off", VoteFile
WriteINIString "Vote", "User", "[unknown]", VoteFile
WriteINIString "Vote", "Time", "[unknown]", VoteFile
WriteINIString "Question", "Question", "[unknown]", VoteFile
WriteINIString "Question", "Yes", "0", VoteFile
WriteINIString "Question", "No", "0", VoteFile
Silent True
FNum = FileOpen("VoteUser.txt", FA_Write)
If FNum = 0 Then
'Datei existiert nicht
Else
FileWrite FNum, ""
End If
FileClose FNum
Silent False
End Sub
