AnGelBot-Portal² / Scripting / Scriptreleases v / Pferderennen Script v1.0 by Spiky

Antwort schreiben 
 
Themabewertung:
  • 0 Bewertungen - 0 im Durchschnitt
  • 1
  • 2
  • 3
  • 4
  • 5
Pferderennen Script v1.0 by Spiky
11.12.2005, 23:24 Uhr
Beitrag #1
Christian Offline
Moderator
*****
 		Beiträge: 1.250
Registriert seit: Apr 2004
Bewertung 3
Thanks: 0
Given 0 thank(s) in 0 post(s)
Pferderennen Script v1.0 by Spiky
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
mfg. Spiky
Alle Beiträge dieses Benutzers finden
Diese Nachricht in einer Antwort zitieren
03.03.2006, 17:24 Uhr
Beitrag #2
Kleriker Offline
Jungspund
**
 		Beiträge: 8
Registriert seit: Mar 2005
Bewertung 0
Thanks: 0
Given 0 thank(s) in 0 post(s)
 
Mmh...
Hab es geladen in PL und im Channel mehrfach !pferderennen und !pferderennen on gemacht aber nix tut sich.

hat jemand ahnung?
Alle Beiträge dieses Benutzers finden
Diese Nachricht in einer Antwort zitieren
03.03.2006, 17:52 Uhr
Beitrag #3
Christian Offline
Moderator
*****
 		Beiträge: 1.250
Registriert seit: Apr 2004
Bewertung 3
Thanks: 0
Given 0 thank(s) in 0 post(s)
 
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
mfg. Spiky
Alle Beiträge dieses Benutzers finden
Diese Nachricht in einer Antwort zitieren
03.03.2006, 18:34 Uhr
Beitrag #4
Kleriker Offline
Jungspund
**
 		Beiträge: 8
Registriert seit: Mar 2005
Bewertung 0
Thanks: 0
Given 0 thank(s) in 0 post(s)
 
Jaja das hab ich schon nachgeguckt gehabt. das is auf ! eingestellt

Funktioniert trotzdem noch nicht
Alle Beiträge dieses Benutzers finden
Diese Nachricht in einer Antwort zitieren
03.03.2006, 19:05 Uhr
Beitrag #5
Christian Offline
Moderator
*****
 		Beiträge: 1.250
Registriert seit: Apr 2004
Bewertung 3
Thanks: 0
Given 0 thank(s) in 0 post(s)
 
naja neuste bot version was weiß ich bei mir gehts . . .
mfg. Spiky
Alle Beiträge dieses Benutzers finden
Diese Nachricht in einer Antwort zitieren
04.03.2006, 03:01 Uhr
Beitrag #6
Kleriker Offline
Jungspund
**
 		Beiträge: 8
Registriert seit: Mar 2005
Bewertung 0
Thanks: 0
Given 0 thank(s) in 0 post(s)
 
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...
Alle Beiträge dieses Benutzers finden
Diese Nachricht in einer Antwort zitieren
04.03.2006, 11:41 Uhr
Beitrag #7
Christian Offline
Moderator
*****
 		Beiträge: 1.250
Registriert seit: Apr 2004
Bewertung 3
Thanks: 0
Given 0 thank(s) in 0 post(s)
 
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
mfg. Spiky
Alle Beiträge dieses Benutzers finden
Diese Nachricht in einer Antwort zitieren
04.03.2006, 14:11 Uhr
Beitrag #8
Kleriker Offline
Jungspund
**
 		Beiträge: 8
Registriert seit: Mar 2005
Bewertung 0
Thanks: 0
Given 0 thank(s) in 0 post(s)
 
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
Alle Beiträge dieses Benutzers finden
Diese Nachricht in einer Antwort zitieren
04.03.2006, 14:53 Uhr
Beitrag #9
Christian Offline
Moderator
*****
 		Beiträge: 1.250
Registriert seit: Apr 2004
Bewertung 3
Thanks: 0
Given 0 thank(s) in 0 post(s)
 
Naja keine ahnung was du falsch machst . . . bei den anderen gehts . . .
mfg. Spiky
Alle Beiträge dieses Benutzers finden
Diese Nachricht in einer Antwort zitieren
16.03.2006, 16:14 Uhr
Beitrag #10
GaNDriL Offline
Jungspund
**
 		Beiträge: 20
Registriert seit: Dec 2003
Bewertung 0
Thanks: 0
Given 0 thank(s) in 0 post(s)
 
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
Webseite des Benutzers besuchen Alle Beiträge dieses Benutzers finden
Diese Nachricht in einer Antwort zitieren
Antwort schreiben 


Möglicherweise verwandte Themen...
Thema: Verfasser Antworten: Ansichten: Letzter Beitrag
  [NEW] TV Script Version 1.2 (Beta) by Spiky, HAPM & Hollowman Christian 59 15.726 17.01.2012 18:58 Uhr
Letzter Beitrag: Teufels-Kerl
  Bomb Script Version 1.0 (Beta) by Spiky Christian 26 8.156 18.11.2011 11:36 Uhr
Letzter Beitrag: HAPM
  OMGWord Script Version 1.0 (Beta) by Spiky Christian 23 8.992 01.11.2010 19:54 Uhr
Letzter Beitrag: Ultrawipf
  Wetter Script Version 1.0 (Beta) by Spiky Christian 37 9.570 06.07.2010 10:50 Uhr
Letzter Beitrag: Rolf1021
  Google Script Version 1.0 (Beta) by Spiky Christian 34 9.352 29.05.2010 15:14 Uhr
Letzter Beitrag: daimianstar
  xrel Script Version 1.0 (Beta) by Spiky Christian 8 5.705 12.07.2009 09:43 Uhr
Letzter Beitrag: derAMD
  MyGames Script Version 1.0 (Beta) by Spiky Christian 12 4.245 03.07.2009 14:56 Uhr
Letzter Beitrag: coolnosveratus
  AntiAd Script Version 1.0 (Beta) by Spiky Christian 3 1.666 24.05.2009 14:04 Uhr
Letzter Beitrag: eXploder
  Slot Script Version 1.1 (Beta) by Spiky Christian 20 5.719 24.02.2009 23:49 Uhr
Letzter Beitrag: PapaMaxi
  Wikipedia Script Version 1.0 (Beta) by Spiky Christian 7 2.324 10.10.2008 17:47 Uhr
Letzter Beitrag: Hirni

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste

Kontakt | AnGelBot-Portal | Nach oben | Zum Inhalt | Archiv-Modus | RSS-Synchronisation