AnGelBot-Portal² - Pferderennen Script v1.0 by Spiky

Seiten: 1 2

Pferderennen Script v1.0 by Spiky

Beschreibung:
Pferderennen . . . ganz leicht zu erklären ihr wettet auf ein von vier Pferden wer richtig getippt hat bekommt ein punkt
Hinweis: (Dieses Script funktioniert mit dem Standart Trigger vom AngelBot, ihr könnt ihn unter .botsetup ... 21 ... ändern.)

Installation:
Einfach Script laden.

Commands:

!pferderennen - (damit startet ihr das spiel)
!pferderennen <on/off> - (Schaltet das Script an/aus)
!pferderennen punkte - (damit fragt ihr eure Punkte ab)

Code:

'##################################################

'## Pferderennen Script v1.0                     ##

'##################################################

'## Copyright 2005 by Spiky                      ##

'##################################################

'## Christian Hetkamp                            ##

'## spiky@spiky-page.de                          ##

'## www.spiky-page.de                            ##

'##################################################

Const INI = "Pferderennen.ini"

Dim Pferde(), Host, Punkte, Spiel, Status, Gewinner, Pferd1, Pferd2, Pferd3, Pferd4

Redim Pferde(20,1)

Sub Init()

  Script "Pferderennen Script by Spiky"

  Hook "Chan_Msg"

  Randomize

End Sub

Sub Chan_Msg (Chan, Nick, RegUser, Line)

  Status = ReadINIString(Chan, "Status", "0", INI)

  Host = Mask(Hostmask(Chan, Nick), 1)

  Punkte = ReadINIString(Host, "Punkte", "0", INI)

  If LCase(Param(Line, 1)) = CommandPrefix & "pferderennen" Then

    Select Case LCase(Param(Line, 2))

      Case ""

        If Status = 1 Then

          If Spiel = 0 Then

            Start (Chan)

          End If

        End If

      Case "punkte"

        If Status = 1 Then

          SendLine "PrivMsg " & Chan & " :1,0 «41» 4[ Pferderennen ]1 " & Nick & " du hast 4[ " & Punkte & " ]1 Punkte 1«41» ", 3

        End If

      Case "on"

        If MatchFlags(GetUserChanFlags(RegUser, Chan), "+n") Then

          SendLine "PrivMsg " & Chan & " :1,0 «41» 4[ Pferderennen ]1 Script 4[ On ] 1«41» ", 3

          WriteINIString Chan, "Status", "1", INI

        End If

      Case "off"

        If MatchFlags(GetUserChanFlags(RegUser, Chan), "+n") Then

          SendLine "PrivMsg " & Chan & " :1,0 «41» 4[ Pferderennen ]1 Script 4[ Off ] 1«41» ", 3

          WriteINIString Chan, "Status", "0", INI

        End If

    End Select

  End If

  If Spiel = 1 Then

    Select Case LCase(Param(Line, 1))

      Case CommandPrefix & "1"

        For I = 0 To (UBound(Pferde, 2) - 1)

          If Nick = Pferde(0,I) Then Exit Sub

        Next

          I = UBound(Pferde, 2)

          ReDim Preserve Pferde(20, I + 1)

          Pferde(0,I) = Nick

          Pferde(1,I) = Mask(Hostmask(Chan, Nick), 1)

          Pferde(2,I) = Pferd1

          SendLine "Notice " & Nick & " :1,0 «41» 4[ Pferderennen ]1 du tippst also auf 4[ " & Pferd1 & " ]1 na dann viel glück 1«41» ", 3

      Case CommandPrefix & "2"

        For I = 0 To (UBound(Pferde, 2) - 1)

          If Nick = Pferde(0,I) Then Exit Sub

        Next

          I = UBound(Pferde, 2)

          ReDim Preserve Pferde(20, I + 1)

          Pferde(0,I) = Nick

          Pferde(1,I) = Mask(Hostmask(Chan, Nick), 1)

          Pferde(2,I) = Pferd2

          SendLine "Notice " & Nick & " :1,0 «41» 4[ Pferderennen ]1 du tippst also auf 4[ " & Pferd2 & " ]1 na dann viel glück 1«41» ", 3

      Case CommandPrefix & "3"

        For I = 0 To (UBound(Pferde, 2) - 1)

          If Nick = Pferde(0,I) Then Exit Sub

        Next

          I = UBound(Pferde, 2)

          ReDim Preserve Pferde(20, I + 1)

          Pferde(0,I) = Nick

          Pferde(1,I) = Mask(Hostmask(Chan, Nick), 1)

          Pferde(2,I) = Pferd3

          SendLine "Notice " & Nick & " :1,0 «41» 4[ Pferderennen ]1 du tippst also auf 4[ " & Pferd3 & " ]1 na dann viel glück 1«41» ", 3

      Case CommandPrefix & "4"

        For I = 0 To (UBound(Pferde, 2) - 1)

          If Nick = Pferde(0,I) Then Exit Sub

        Next

          I = UBound(Pferde, 2)

          ReDim Preserve Pferde(20, I + 1)

          Pferde(0,I) = Nick

          Pferde(1,I) = Mask(Hostmask(Chan, Nick), 1)

          Pferde(2,I) = Pferd4

          SendLine "Notice " & Nick & " :1,0 «41» 4[ Pferderennen ]1 du tippst also auf 4[ " & Pferd4 & " ]1 na dann viel glück 1«41» ", 3

    End Select

  End If

End Sub

Sub Start(Chan)

  Pferd1 = "Fury"

  Pferd2 = "Aaron"

  Pferd3 = "Bablo"

  Pferd4 = "Maharadscha"

  Pferd1Gewonnen = ReadINIString(Pferd1, "Gewonnen", "0", INI)

  Pferd1Verloren = ReadINIString(Pferd1, "Verloren", "0", INI)

  Pferd2Gewonnen = ReadINIString(Pferd2, "Gewonnen", "0", INI)

  Pferd2Verloren = ReadINIString(Pferd2, "Verloren", "0", INI)

  Pferd3Gewonnen = ReadINIString(Pferd3, "Gewonnen", "0", INI)

  Pferd3Verloren = ReadINIString(Pferd3, "Verloren", "0", INI)

  Pferd4Gewonnen = ReadINIString(Pferd4, "Gewonnen", "0", INI)

  Pferd4Verloren = ReadINIString(Pferd4, "Verloren", "0", INI)

  Sendline "PrivMsg " & Chan & " :1,0 «41» 4[ Pferderennen ]1 Die Pferde bewegen sich in die Startbox. Tippe nun mit 4[ "&CommandPrefix&"1 "&CommandPrefix&"2 "&CommandPrefix&"3 "&CommandPrefix&"4 ] 1«41» ", 3

  Sendline "PrivMsg " & Chan & " :1,0 «41» 4[ Pferderennen ]1 Pferde - ("&CommandPrefix&"1) 4[ " & Pferd1 & " ]1 (" & Pferd1Gewonnen & ":" & Pferd1Verloren & ") - ("&CommandPrefix&"2) 4[ " & Pferd2 & " ]1 (" & Pferd2Gewonnen & ":" & Pferd2Verloren & ") - ("&CommandPrefix&"3) 4[ " & Pferd3 & " ]1 (" & Pferd3Gewonnen & ":" & Pferd3Verloren & ") - ("&CommandPrefix&"4) 4[ " & Pferd4 & " ]1 (" & Pferd4Gewonnen & ":" & Pferd4Verloren & ") 1«41» ", 3

  Select Case Int(Rnd * 4) + 1

    Case 1: Gewinner = Pferd1

    Case 2: Gewinner = Pferd2

    Case 3: Gewinner = Pferd3

    Case 4: Gewinner = Pferd4

  End Select

    If Gewinner = Pferd1 Then

      Gewonnen = CInt(Pferd1Gewonnen) + CInt(1)

      WriteINIString Pferd1, "Gewonnen", Gewonnen, INI

    ElseIf Not Gewinner = Pferd1 Then

      Verloren = CInt(Pferd1Verloren) + CInt(1)

      WriteINIString Pferd1, "Verloren", Verloren, INI

    End If

    If Gewinner = Pferd2 Then

      Gewonnen = CInt(Pferd2Gewonnen) + CInt(1)

      WriteINIString Pferd2, "Gewonnen", Gewonnen, INI

    ElseIf Not Gewinner = Pferd2 Then

      Verloren = CInt(Pferd2Verloren) + CInt(1)

      WriteINIString Pferd2, "Verloren", Verloren, INI

    End If

    If Gewinner = Pferd3 Then

      Gewonnen = CInt(Pferd3Gewonnen) + CInt(1)

      WriteINIString Pferd3, "Gewonnen", Gewonnen, INI

    ElseIf Not Gewinner = Pferd3 Then

      Verloren = CInt(Pferd3Verloren) + CInt(1)

      WriteINIString Pferd3, "Verloren", Verloren, INI

    End If

    If Gewinner = Pferd4 Then

      Gewonnen = CInt(Pferd4Gewonnen) + CInt(1)

      WriteINIString Pferd4, "Gewonnen", Gewonnen, INI

    ElseIf Not Gewinner = Pferd4 Then

      Verloren = CInt(Pferd4Verloren) + CInt(1)

      WriteINIString Pferd4, "Verloren", Verloren, INI

    End If

  Spiel = 1

  TimedCommand "Ende """ & Chan & """, """ & Gewinner & """", 30

End Sub

Sub Ende(Chan, Gewinner)

  Nicks = ""

  Hosts = ""

  For I = 0 To (UBound(Pferde, 2) - 1)

    If Gewinner = Pferde(2, I) Then

      Nicks = Nicks & " " & Pferde(0,I)

      Hosts = Hosts & " " & Pferde(1,I)

    End If

  Next

  If Nicks = VBNullString Then

    Sendline "PrivMsg " & Chan & " :1,0 «41» 4[ Pferderennen ]1 Und der Gewinner ist 4[ " & Gewinner & " ]1 leider hat keiner richtig getippt 1«41» ", 3

    Spiel = 2

    Erase Pferde

    Redim Pferde(20,1)

    TimedCommand "Spiel = 0", 10

    Exit Sub

  End If

    Sendline "PrivMsg " & Chan & " :1,0 «41» 4[ Pferderennen ]1 Und der Gewinner ist 4[ " & Gewinner & " ]1 folgende User haben richtig getippt 4[ " & Nicks & " ] 1«41» ", 3

    For i = 1 To ParamCount(Hosts):  WriteINIString Param(Hosts, i), "Punkte", Punkte + 1, INI: Next

    Spiel = 2

    Erase Pferde

    Redim Pferde(20,1)

    TimedCommand "Spiel = 0", 10

End Sub

Mmh...
Hab es geladen in PL und im Channel mehrfach !pferderennen und !pferderennen on gemacht aber nix tut sich.

hat jemand ahnung?

Kleriker schrieb:Mmh...
Hab es geladen in PL und im Channel mehrfach !pferderennen und !pferderennen on gemacht aber nix tut sich.

hat jemand ahnung?

Das Script basiert auf den CommandPrefix den kannst du auf der Partyline unter .botsetup einstellen

Musst mal gucken was du bei 21 CommandPrefix stehen hast naja da könnte auch CMDPrefix stehen sogenau weiß ich das jetzt grad nich. . . .

Aufjedenfall kannste den einfach zu ? oder s. ändern dann isses beim script auch ?pferderennen on oder .pferderennen on

Jaja das hab ich schon nachgeguckt gehabt. das is auf ! eingestellt

Funktioniert trotzdem noch nicht

naja neuste bot version was weiß ich bei mir gehts . . .

Naja nochmal zum mitchecken!
Script kopieren
bei bot laden
in channel !pferderennen eingeben oder?

Is ja nur eigentlich net schwer?
Fehlerquelle sehr gering!

Und keine Sorge neueste Botversion...

Kleriker schrieb:Naja nochmal zum mitchecken!
Script kopieren
bei bot laden
in channel !pferderennen eingeben oder?

Is ja nur eigentlich net schwer?
Fehlerquelle sehr gering!

Und keine Sorge neueste Botversion...

Im Channel erstmal !pferderennen on
dann kannste !pferderennen eingeben
Und auch nur in den channels wo du es on gemacht hast

Jo das hab ich auch gemacht. Sry aber net oben mit reingeschrieben gehabt.

Naja wär ja schön gewesen aber es geht einfach nicht.

Kleriker

Naja keine ahnung was du falsch machst . . . bei den anderen gehts . . .

Gibt es eine Version des Scriptes bei der man nicht nur auf das Pferd setzen kann sondern z.B. auch Geld setzen kann?

Der Bot müsste dann natürlich den Kontostand des Spielers in einer Datei speichern.

Kennt jemand so ein script für den Angel? (Für einen Eggdrop habe ich es schon mehrmals gesehen)

THX

Seiten: 1 2