AnGelBot-Portal²

AnGelBot-Portal² > Scripting > Scriptreleases > MyGames Script Version 1.0 (Beta) by Spiky
Normale Version: MyGames Script Version 1.0 (Beta) by Spiky
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Seiten: 1 2

Christian

11.12.2005, 23:28 Uhr
MyGames Script Version 1.0 (Beta) by Spiky

Beschreibung:
MyGames sind ein paar MiniGames bzw Sprüche. Er sagt z.b. wie lang das Glied eines Users ist. und noch viel mehr

Installation:
Einfach Script laden.
Ihr Müsst einen Ordner namens "INI" im Ordner FileArea erstellen!

Hinweis:
Dieses Script funktioniert mit dem Standard Trigger vom AnGelBot, Ihr könnt ihn unter .botsetup ... 21 ... ändern!

Befehle:
  • !mygames <on/off> - (Schaltet das Script an/aus)
  • !mypenis
  • !mymuschi
  • !myasshole
  • !myauto
  • !myhaus
  • !myboot

http://www.angelbot-portal.de/downloads....ew&did=103

aero_x

08.05.2007, 17:24 Uhr
das script funzt bei mir nicht, da kommt garnix

aero_x

13.05.2007, 11:51 Uhr
also, bei mir kommt diese Fehlermeldung
Code:
(12:49:34) 11(BN|aero_x) .+script games
(12:49:34) 02(aerobot) 3*** Scripting error in 'games.asc':
(12:49:34) 02(aerobot) 10 Error : 1010 (Bezeichner erwartet)
(12:49:34) 02(aerobot) 10 Position: Line 12, Column 25
(12:49:34) 02(aerobot) 10 Context : "Dim Host, Status, Spiel, ******"
(12:49:34) 02(aerobot) 3*** End of error message
(12:49:34) 02(aerobot) 5*** Sorry, the script couldn't be added.
d
[/code]

Styl3r

20.05.2007, 20:22 Uhr
jup bei mir kommt auch der fehler

Firefox

21.05.2007, 17:00 Uhr
gibt zwei möglichkeiten:

1.) das Forum ersetzt die Wörter mit ***** (das erklärt auch die *'s im Quellcode)

2.) Christian hat das so veranlagt. warum, weiß ich nich aber auf jeden fall haben die *'s im Quellcode nichts zu suchen

Kaesi

21.05.2007, 17:40 Uhr
jo denk ich auch.. einfach Editor / Bearbeiten /Ersetzen..

6 mal * durch VarHost oder sowas ersetzen Wink

dann sollte das auch tun..

aero_x

29.05.2007, 18:55 Uhr
bei VarHost kommt das
Code:
(19:50:07) 02(roflbot) 3*** Scripting error in 'myGames.asc':
(19:50:07) 02(roflbot) 10 Error : 1006 (')' erwartet)
(19:50:07) 02(roflbot) 10 Position: Line 41, Column 22
(19:50:07) 02(roflbot) 10 Context : " Laenge = (Rnd VarHost 40)"
(19:50:07) 02(roflbot) 3*** End of error message
(19:50:07) 02(roflbot) 5*** Sorry, the script couldn't be added.

Firefox

29.05.2007, 19:08 Uhr
so muss das sein:

Code:
'##################################################
'## MyGames Script v1.0                          ##
'##################################################
'## Copyright 2005 by Spiky                      ##
'##################################################
'## Christian Hetkamp                            ##
'## spiky@spiky-page.de                          ##
'## www.spiky-page.de                            ##
'##################################################

Const INI = "MyGames.ini"
Dim Host, Status, Spiel, VarHost

Sub Init()
  Script "MyGames Script by Spiky"
  Hook "Chan_Msg"
  Randomize
End Sub

Sub Chan_Msg(Chan, Nick, RegUser, Line)
    Host = Mask(Hostmask(Chan, Nick), 1)
    Status = ReadINIString(Chan, "Status", "0", INI)
    VarHost = ReadINIString(Chan, Host, "0", INI)
  If LCase(Param(Line, 1)) = CommandPrefix & "mygames" Then
    Select Case LCase(Param(Line, 2))
      Case "on"
        If MatchFlags(GetUserChanFlags(RegUser, Chan), "+n") Then
          SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ MyGames ]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[ MyGames ]1 Script 4[ Off ] 1«4•1» ", 3
          WriteINIString Chan, "Status", "0", INI
        End If
    End Select
  End If
  If LCase(Param(Line, 1)) = CommandPrefix & "mypenis" Then
    If Spiel = 0 Then
      If VarHost = 0 Then
        Laenge = (Rnd * 40)
        Laenge = Round(Laenge, 2)
        SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & "'s ]1 ****** ist 4[ " & Laenge & " cm ]1 lang 1«4•1» ", 3
        WriteINIString Chan, Host, Laenge, INI
        TimedCommand "DeleteINIString """ & Chan & """, """ & Host & """, """ & INI & """", 60 * 10
        Spiel = 1
      Else
        SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & " ]1 wir wissen bereits, dass dein ****** 4[ " & VarHost & " cm ]1 lang ist 1«4•1» ", 3        
        End If
        Spiel = 1
        TimedCommand "Spiel = 0", 10
    End If
  End If
  If LCase(Param(Line, 1)) = CommandPrefix & "mymuschi" Then
    If Spiel = 0 Then
      Select Case Int(Rnd * 11) + 1
        Case 1: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & "'s ]1 Muschi ist schon so feucht, dass es tropft, aber sie ist verdammt haarig 1«4•1» ", 3
        Case 2: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & "'s ]1 Muschi ist glatt rasiert 1«4•1» ", 3
        Case 3: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & "'s ]1 Muschi ist gut eingeritten 1«4•1» ", 3
        Case 4: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & "'s ]1 Muschi ist irgendwie sehr eng und geschmeidig 1«4•1» ", 3
        Case 5: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & "'s ]1 Muschi ist einfach nur ein Traum von einer Pussy 1«4•1» ", 3
        Case 6: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & "'s ]1 Muschi ist schon stark benutzt 1«4•1» ", 3
        Case 7: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & "'s ]1 Muschi ist richtig feucht 1«4•1» ", 3
        Case 8: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & "'s ]1 Muschi ist schon so alt, dass sie nach verfaultem Döner riecht 1«4•1» ", 3
        Case 9: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & "'s ]1 Muschi ist schrumpelig 1«4•1» ", 3
        Case 10: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & "'s ]1 Muschi ist für alle offen 1«4•1» ", 3
        Case 11: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & " ]1 hat garkeine Muschi 1«4•1» ", 3
      End Select
        Spiel = 1
        TimedCommand "Spiel = 0", 10
    End If
  End If
  If LCase(Param(Line, 1)) = CommandPrefix & "myasshole" Then
    If Spiel = 0 Then
      Select Case Int(Rnd * 11) + 1
        Case 1: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & "'s ]1 Arschloch ist noch an einigen Stellen gerissen, weil was dickes drin steckte 1«4•1» ", 3
        Case 2: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & "'s ]1 Arschloch ist Braun 1«4•1» ", 3
        Case 3: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & "'s ]1 Arschloch ist voller Dildos 1«4•1» ", 3
        Case 4: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & "'s ]1 Arschloch ist irgendwie sehr eng und geschmeidig 1«4•1» ", 3
        Case 5: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & "'s ]1 Arschloch ist einfach nur ein Traum von einem Arschloch 1«4•1» ", 3
        Case 6: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & "'s ]1 Arschloch ist voller Falten 1«4•1» ", 3
        Case 7: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & "'s ]1 Arschloch ist sehr weit gedehnt 1«4•1» ", 3
        Case 8: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & "'s ]1 Arschloch ist voller Haare und Pickel 1«4•1» ", 3
        Case 9: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & "'s ]1 Arschloch ist wund und rot 1«4•1» ", 3
        Case 10: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & "'s ]1 Arschloch ist für alle offen 1«4•1» ", 3
        Case 11: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & " ]1 hat garkein Arschloch 1«4•1» ", 3
      End Select
        Spiel = 1
        TimedCommand "Spiel = 0", 10
    End If
  End If
  If LCase(Param(Line, 1)) = CommandPrefix & "myauto" Then
    If Status = 1 Then
      If Spiel = 0 Then
        Select Case Int(Rnd * 11) + 1
          Case 1: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & " ]1 fährt einen alten Trabbi 1«4•1» ", 3
          Case 2: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & " ]1 fährt einen Ferrari 360 Spider 1«4•1» ", 3
          Case 3: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & " ]1 fährt einen BMW M6 1«4•1» ", 3
          Case 4: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & " ]1 fährt einen CLS 55 AMG 1«4•1» ", 3
          Case 5: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & " ]1 fährt einen Fiat Uno 1«4•1» ", 3
          Case 6: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & " ]1 fährt einen Ford Fiesta 1«4•1» ", 3
          Case 7: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & " ]1 fährt einen VW Käfer 1«4•1» ", 3
          Case 8: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & " ]1 fährt eine Dodge Viper 1«4•1» ", 3
          Case 9: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & " ]1 fährt eine Ente 1«4•1» ", 3
          Case 10: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & " ]1 fährt einen US-Hummer 1«4•1» ", 3
          Case 11: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & " ]1 hat garkein Auto 1«4•1» ", 3
        End Select
          Spiel = 1
          TimedCommand "Spiel = 0", 10
      End If
    End If
  End If
  If LCase(Param(Line, 1)) = CommandPrefix & "myhaus" Then
    If Status = 1 Then
      If Spiel = 0 Then
        Select Case Int(Rnd * 11) + 1
          Case 1: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & " ]1 wohnt in einem Schuhkarton 1«4•1» ", 3
          Case 2: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & " ]1 wohnt in einer Finca auf Mallorca 1«4•1» ", 3
          Case 3: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & " ]1 wohnt in einer Villa am Miami Beach 1«4•1» ", 3
          Case 4: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & " ]1 wohnt unter einer Brücke 1«4•1» ", 3
          Case 5: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & " ]1 wohnt in einem Schneckenhaus 1«4•1» ", 3
          Case 6: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & " ]1 wohnt noch bei Mutti 1«4•1» ", 3
          Case 7: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & " ]1 wohnt in einem Penthouse 1«4•1» ", 3
          Case 8: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & " ]1 wohnt in einer WG 1«4•1» ", 3
          Case 9: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & " ]1 wohnt in einer Mülltonne 1«4•1» ", 3
          Case 10: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & " ]1 wohnt in einem Kühlschrank 1«4•1» ", 3
          Case 11: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & " ]1 hat garkein Haus 1«4•1» ", 3
        End Select
          Spiel = 1
          TimedCommand "Spiel = 0", 10
      End If
    End If
  End If
  If LCase(Param(Line, 1)) = CommandPrefix & "myboot" Then
    If Status = 1 Then
      If Spiel = 0 Then
        Select Case Int(Rnd * 11) + 1
          Case 1: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & " ]1 hat ein knall rotes Gummiboot 1«4•1» ", 3
          Case 2: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & " ]1 hat eine Luxusyacht 1«4•1» ", 3
          Case 3: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & " ]1 hat ein kleines Paddelboot 1«4•1» ", 3
          Case 4: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & " ]1 hat ein Tretboot 1«4•1» ", 3
          Case 5: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & " ]1 hat ein großes Segelboot 1«4•1» ", 3
          Case 6: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & " ]1 hat ein Papier Bötchen 1«4•1» ", 3
          Case 7: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & " ]1 hat eine Nußschale 1«4•1» ", 3
          Case 8: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & " ]1 hat eine 2. Titanic 1«4•1» ", 3
          Case 9: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & " ]1 hat ein Kanu 1«4•1» ", 3
          Case 10: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & " ]1 hat eine Fähre 1«4•1» ", 3
          Case 11: SendLine "PrivMsg " & Chan & " :1,0 «4•1» 4[ " & Nick & " ]1 hat garkein Boot 1«4•1» ", 3
        End Select
          Spiel = 1
          TimedCommand "Spiel = 0", 10
      End If
    End If
  End If
End Sub

Christian

08.08.2007, 00:40 Uhr
p e n i s wird geblockt die var is MyPeni... und das wort ansich ^^

Christian

22.09.2007, 15:47 Uhr
Update
1.) Script auf Fehler überprüft.
2.) Beschreibung geändert.

Also wer jetzt noch fragen oder probleme hat erst die beschreibung lesen und dann hier posten falls die beschreibung nicht weiterhilft.
Seiten: 1 2
AnGelBot-Portal² > Scripting > Scriptreleases > MyGames Script Version 1.0 (Beta) by Spiky
Referenz-URLs