AnGelBot-Portal²

ryLIX schrieb:Also muss ich n Big THX an euch beide los lassen!
Es richtig gut das script! Und weils mir so gut gefällt und ich jetzt alles so gemacht habe wir ihr das hier beschrieben habt
funzt des auch *freu*

Nu wollt ich euch mal was gutes tun und hab für alle naps und die die die fehler immer noch haben meine Version des scriptes in eine zip verpackt und auf meinen space geladen

Hier könnt ihr euch das downloaden

Ich hab dem script noch ne Kleinigkeit hinzugefügt, weil es mich gestört hat das der hinweis für revolt fehlte

Code:

Case revolt
            If timer = "0" Then Exit Sub
            If revcount(0) = vbNullString Then
                revcount(0) = Nick
                SendLine "PRIVMSG " & Channel & " :1,0«4•1» 1Ihr brauch zwei Leute um die Frage aufzulösen1«4•1»", 2
            Else
                For i = 0 To (UBound(revcount) - 1)
                    If Nick = revcount(i) Then Exit For
                    If i = (UBound(revcount) - 1) Then
                        j = i + 2
                        ReDim Preserve revcount(j)
                        j = i + 1
                        revcount(j) = Nick
                    End If
                Next
            End If
            If UBound(revcount) > (UBound(highscore, 2) / 2) And UBound(revcount) => muserrev Then
                ReDim revcount(1)
                timer = "0"
                SendLine "PRIVMSG " & Channel & " :1,0«4•1» 1Ihr seid genug Leute. Die Frage wird aufgelöst1«4•1»", 2
                SendLine "PRIVMSG " & Channel & " :1,0«4•1» 1Die Lösung war 12[1 " & ans & " 12] 1«4•1»", 2
                tips = ""
                If ParamCount(red) = rounds Then
                    highscore1
                    rounds = 0
                    quit
                    Exit Sub
                End If
                question
            End If
            Exit Sub

ädit: Hmm die Uhr vom forum sollte mal mitgestellt werden weil bei mir isses nu 06:45 Uhr

Wenn man sich den ganzen Thread durchließt stößt man auch auf einen funktionierenden link. Also erst gucken dann Posten

Christian schrieb:

ryLIX schrieb:Also muss ich n Big THX an euch beide los lassen!
Es richtig gut das script! Und weils mir so gut gefällt und ich jetzt alles so gemacht habe wir ihr das hier beschrieben habt
funzt des auch *freu*

Nu wollt ich euch mal was gutes tun und hab für alle naps und die die die fehler immer noch haben meine Version des scriptes in eine zip verpackt und auf meinen space geladen

Hier könnt ihr euch das downloaden

Ich hab dem script noch ne Kleinigkeit hinzugefügt, weil es mich gestört hat das der hinweis für revolt fehlte

Code:

Case revolt
            If timer = "0" Then Exit Sub
            If revcount(0) = vbNullString Then
                revcount(0) = Nick
                SendLine "PRIVMSG " & Channel & " :1,0«4•1» 1Ihr brauch zwei Leute um die Frage aufzulösen1«4•1»", 2
            Else
                For i = 0 To (UBound(revcount) - 1)
                    If Nick = revcount(i) Then Exit For
                    If i = (UBound(revcount) - 1) Then
                        j = i + 2
                        ReDim Preserve revcount(j)
                        j = i + 1
                        revcount(j) = Nick
                    End If
                Next
            End If
            If UBound(revcount) > (UBound(highscore, 2) / 2) And UBound(revcount) => muserrev Then
                ReDim revcount(1)
                timer = "0"
                SendLine "PRIVMSG " & Channel & " :1,0«4•1» 1Ihr seid genug Leute. Die Frage wird aufgelöst1«4•1»", 2
                SendLine "PRIVMSG " & Channel & " :1,0«4•1» 1Die Lösung war 12[1 " & ans & " 12] 1«4•1»", 2
                tips = ""
                If ParamCount(red) = rounds Then
                    highscore1
                    rounds = 0
                    quit
                    Exit Sub
                End If
                question
            End If
            Exit Sub

ädit: Hmm die Uhr vom forum sollte mal mitgestellt werden weil bei mir isses nu 06:45 Uhr

Wenn man sich den ganzen Thread durchließt stößt man auch auf einen funktionierenden link. Also erst gucken dann Posten

ist das so gewollt dass die highscore liste nach jedem quiz gelöscht wird?
gibt es keine ewigenliste? schade eigentlich

hab leider kaum ahnung von sowas! aber wäre cool wenn jemand mit schnell da ein abschnitt codne würden, einfach so ne !top10 funktion die die highscore als ini speichert!
wäre echt nett
mfg f0s`

ja es ist so gewollt aber irgendjemand hat glaubich so ne top10 da gemacht frag mich jetzt nich wo das is weiß ich selbst grad nich hab auch grad keine zeit ^^

hey wollte noch mal uppen den thread :D
hat jemand eine top10 funktion?! :D
also ne ewigkeitsliste?!


danke

mfg f0s

Hallo? Lese meinen zuvor geschriebene Antwort es HAT JEMAND eine Top 10 gemacht und sollte auch im forum zu finden sein... nochmal extra für dich....

Christian schrieb:Hallo? Lese meinen zuvor geschriebene Antwort es HAT JEMAND eine Top 10 gemacht und sollte auch im forum zu finden sein... nochmal extra für dich....

ja hab schon überall geguckt :( nichts passendes gefunden..
kannst mir ma vielleicht den link dazu geben?


danke

f0s schrieb:

Christian schrieb:Hallo? Lese meinen zuvor geschriebene Antwort es HAT JEMAND eine Top 10 gemacht und sollte auch im forum zu finden sein... nochmal extra für dich....

ja hab schon überall geguckt :( nichts passendes gefunden..
kannst mir ma vielleicht den link dazu geben?


danke

up !

suche es dringend :D
noch keiner gefunden?

klappt soweit alles ganz gut, aber kann jemand versuchen, einen timer dafür zu programmieren?

also so in dieser art

-frage wird gestellt
....10 sekunden bis zum ersten tipp....

-tipp wird gegeben
....5 sekunden bis zum nächsten tipp....


wär nett wenn es mal jemand versuchen könnte, danke

Also ich hatte schonmal ein quizscript was funzte. nun woltle ich einen neuen bot machen und es geht einfach nicht.
ich habe wirklich alles schon xmal probiert und in jeder möglichen form die hier beschrieben wurde.
beim laden des scripts:
2. kommt manchmal keine frage (und ich habe bisher alles probiert was hier beschrieben wurde.
3. sagt er manchmal
oder

was mach ich falsch?
von welcher adresse sollte ich downloaden das es eigentlich funzt?
bitte helft mir
Danke