AnGelBot-Portal²

hab nen prob mit meinem Redhead quiz und zwar das es kein fragen stell (warsch. weil keine datei dabei ist die fragen beinhaltet) und zwar ich schreib irgendwas und er antwortet:

[20:34] (@Cracky) *rofl
[20:34] (+zippo) Die gesuchte Antwort war: "**" (gefunden nach 37691 days, 20 hours, 34 minutes ago.)
[20:34] (+zippo) °°°Gratulation!!!°°° 1 Punkt für Cracky ! (insgesamt 5) Confused

:

kann mir da jemand helfen????

poste doch mal bitte das komplette script !
so können dir die admins am besten helfen !
ausser dem ist das quiz bestimmt auch für andere interessant !

Code:

Public Frage, Antwort, Channel, Start, Round, QStart

Sub Init()

  Hook "Commands"

  Hook "Chan_Msg"

  Script "{Redhead} QUIZ"

  SpreadFlagMessage 0, "+m", "4{Redhead} 9QUIZ for AnGeLs gestartet..."

  AddCommand "quiz", Cl_Op, "+o", "2blubb"

End Sub

Sub Chan_msg(Chan, Nick, RegUser, Line)

  If LCase(Chan) = LCase(Channel) Then

    SpreadFlagMessage 0, "+m", LCase(Line)

    If InStr(LCase(Line), LCase(GetRest(Line, 2))) > 0 Then

      AddPoint Nick

      SendLine "PRIVMSG " & Chan & " :12 °°°0,4Gratulation!!!12,4°°° 0,4 1 Punkt für9,4 " & Nick & " 0,4! (insgesamt9,4 " & Points(Nick) & "0,4)" & vbCrLf, 2

      SendLine "PRIVMSG " & Chan & " :4Die gesuchte Antwort war: " & Chr(34) & "*" & Frage & "*" & Chr(34) & " (gefunden nach12 " & TimeSpan(Start) & "4)" & vbCrLf, 2

    End If

  End If

End Sub

Sub Commands(vsock, RegUser, Flags, Line)

  If LCase(Param(Line, 1)) = ".quiz" Then

    If LCase(Param(Line, 2)) = "" Then

      TU vsock, "5*** Usage: .quiz <#channel>": Exit Sub

    Else

      Channel = LCase(Param(Line, 2)): SendLine "PRIVMSG " & Channel & " :4,1 {Redhead} 9QUIZ4,1 ((AnGeL) Version 1.0) gestartet..." & vbCrLf, 3

      QStart = Now

      GrabUser vsock, "{Redhead} QUIZ", "QUIZ": DrawD1 vsock: Exit Sub

    End If

  End If

End Sub

Sub DrawD1(vsock)

  TU vsock, " 8,0,%0,8%'4,8,%8,4%'5,4,%4,5%'1,5,%5,1%'0,1              5,1'%1,5%,4,5'%5,4%,8,4'%4,8%,0,8'%8,0%,"

  TU vsock, "8,0,%0,8%'4,8,%8,4%'5,4,%4,5%'1,5,%5,1%'0,1 {Redhead} QUIZ 5,1'%1,5%,4,5'%5,4%,8,4'%4,8%,0,8'%8,0%,"

  TU vsock, " 8,0,%0,8%'4,8,%8,4%'5,4,%4,5%'1,5,%5,1%'0,1              5,1'%1,5%,4,5'%5,4%,8,4'%4,8%,0,8'%8,0%,"

End Sub

Sub QUIZ(vsock, RegUser, Flags, Line)

  Select Case LCase(Param(Line, 1))

    Case "q"

      Frage = GetRest(Line, 2)

      SpreadFlagMessage 0, "+m", Frage

    Case "a"

      Antwort = LCase(GetRest(Line, 2))

      SendLine "PRIVMSG " & Channel & " :4Frage:12 " & Frage & "" & vbCrLf, 2

      Start = Now

      Round = Round + 1

      SpreadFlagMessage 0, "+m", Frage

    Case "t"

      SendLine "PRIVMSG " & Channel & " :4,1 {Redhead} 9QUIZ 4,99 Tip:12 " & GetRest(Line, 2) & "" & vbCrLf, 2

    Case "s"

      SendLine

      SendLine "PRIVMSG " & Channel & " :4,1 {Redhead} 9QUIZ 12,99 Punkteübersicht nach der4 " & Round & ". 12Runde (" & TimeSpan(QStart) & ")" & vbCrLf, 2

      'SendLine "PRIVMSG " & Channel & " :41. Platz:12 BIG_ED (4 6 12Punkte)

      'SendLine "PRIVMSG " & Channel & " :42. Platz:12 SCM[OFF] (4 6 12Punkte)

      'SendLine "PRIVMSG " & Channel & " :43. Platz:12 Schacko (4 2 12Punkte)

    Case "0", "end", "quit", "bye"

     'SendLine "PRIVMSG " & Channel & " :4,1

     Round = 0: Channel = "": Frage = "": Antwort = "": Start = ""

     ReleaseUser vsock

  End Select

End Sub

Sub AddPoint(Nick)

  WriteINIString QStart, Nick, ReadINIString(QStart, Nick, "0", "filearea\quiz.ini") + 1, "filearea\quiz.ini"

End Sub

Function Points(Nick)

  Points = ReadINIString(QStart, Nick, "0", "filearea\quiz.ini")

End Function

script mal getestet

also ganz ehrlich gesagt verstehe ich den sinn auch net !

wo hast du denn das her ?

ka irgendwo aus dem net

ich sag euch was.....ganz einfach......

DAS SCRIPT IST MÜLL!!! man konnte es nie fertigstellen!!
aber ich weis das sp33d ein quiz script fürn angelbot hat Wink

gae! speed !

Cracky

LOSer09

Cracky

LOSer09

Cracky

GSG9_Crasher