AnGelBot-Portal² / Scripting / Scriptreleases v / MyGames Script Version 1.0 (Beta) by Spiky

Antwort schreiben 
 
Themabewertung:
  • 0 Bewertungen - 0 im Durchschnitt
  • 1
  • 2
  • 3
  • 4
  • 5
MyGames Script Version 1.0 (Beta) by Spiky
11.12.2005, 23:28 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)
MyGames Script Version 1.0 (Beta) by Spiky
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
mfg. Spiky
Alle Beiträge dieses Benutzers finden
Diese Nachricht in einer Antwort zitieren
08.05.2007, 17:24 Uhr
Beitrag #2
aero_x Offline
Jungspund
**
 		Beiträge: 9
Registriert seit: May 2007
Bewertung 0
Thanks: 0
Given 0 thank(s) in 0 post(s)
RE: MyGames Script v1.0 by Spiky
das script funzt bei mir nicht, da kommt garnix
Alle Beiträge dieses Benutzers finden
Diese Nachricht in einer Antwort zitieren
13.05.2007, 11:51 Uhr
Beitrag #3
aero_x Offline
Jungspund
**
 		Beiträge: 9
Registriert seit: May 2007
Bewertung 0
Thanks: 0
Given 0 thank(s) in 0 post(s)
RE: MyGames Script v1.0 by Spiky
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]
Alle Beiträge dieses Benutzers finden
Diese Nachricht in einer Antwort zitieren
20.05.2007, 20:22 Uhr
Beitrag #4
Styl3r Offline
Jungspund
**
 		Beiträge: 7
Registriert seit: May 2007
Bewertung 0
Thanks: 0
Given 0 thank(s) in 0 post(s)
RE: MyGames Script v1.0 by Spiky
jup bei mir kommt auch der fehler
Alle Beiträge dieses Benutzers finden
Diese Nachricht in einer Antwort zitieren
21.05.2007, 17:00 Uhr
Beitrag #5
Firefox Offline
AnGeL-Scripter
****
 		Beiträge: 493
Registriert seit: Feb 2006
Bewertung 2
Thanks: 0
Given 0 thank(s) in 0 post(s)
RE: MyGames Script v1.0 by Spiky
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
MfG Firefox
2GB Onlinespeicher mit Dropbox
[Bild: keinekohle_468x15.gif]
Webseite des Benutzers besuchen Alle Beiträge dieses Benutzers finden
Diese Nachricht in einer Antwort zitieren
21.05.2007, 17:40 Uhr
Beitrag #6
Kaesi Offline
Interessierter
***
 		Beiträge: 127
Registriert seit: Jan 2006
Bewertung 1
Thanks: 0
Given 0 thank(s) in 0 post(s)
RE: MyGames Script v1.0 by Spiky
jo denk ich auch.. einfach Editor / Bearbeiten /Ersetzen..

6 mal * durch VarHost oder sowas ersetzen Wink

dann sollte das auch tun..
Webseite des Benutzers besuchen Alle Beiträge dieses Benutzers finden
Diese Nachricht in einer Antwort zitieren
29.05.2007, 18:55 Uhr
Beitrag #7
aero_x Offline
Jungspund
**
 		Beiträge: 9
Registriert seit: May 2007
Bewertung 0
Thanks: 0
Given 0 thank(s) in 0 post(s)
RE: MyGames Script v1.0 by Spiky
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.
Alle Beiträge dieses Benutzers finden
Diese Nachricht in einer Antwort zitieren
29.05.2007, 19:08 Uhr
Beitrag #8
Firefox Offline
AnGeL-Scripter
****
 		Beiträge: 493
Registriert seit: Feb 2006
Bewertung 2
Thanks: 0
Given 0 thank(s) in 0 post(s)
RE: MyGames Script v1.0 by Spiky
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
MfG Firefox
2GB Onlinespeicher mit Dropbox
[Bild: keinekohle_468x15.gif]
Webseite des Benutzers besuchen Alle Beiträge dieses Benutzers finden
Diese Nachricht in einer Antwort zitieren
08.08.2007, 00:40 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)
RE: MyGames Script v1.0 by Spiky
p e n i s wird geblockt die var is MyPeni... und das wort ansich ^^
mfg. Spiky
Alle Beiträge dieses Benutzers finden
Diese Nachricht in einer Antwort zitieren
22.09.2007, 15:47 Uhr
Beitrag #10
Christian Offline
Moderator
*****
 		Beiträge: 1.250
Registriert seit: Apr 2004
Bewertung 3
Thanks: 0
Given 0 thank(s) in 0 post(s)
RE: MyGames Script Version 1.0 (Beta) by Spiky
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.
mfg. Spiky
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.727 17.01.2012 18:58 Uhr
Letzter Beitrag: Teufels-Kerl
  Bomb Script Version 1.0 (Beta) by Spiky Christian 26 8.157 18.11.2011 11:36 Uhr
Letzter Beitrag: HAPM
  OMGWord Script Version 1.0 (Beta) by Spiky Christian 23 8.993 01.11.2010 19:54 Uhr
Letzter Beitrag: Ultrawipf
  Wetter Script Version 1.0 (Beta) by Spiky Christian 37 9.571 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.706 12.07.2009 09:43 Uhr
Letzter Beitrag: derAMD
  AntiAd Script Version 1.0 (Beta) by Spiky Christian 3 1.667 24.05.2009 14:04 Uhr
Letzter Beitrag: eXploder
  Slot Script Version 1.1 (Beta) by Spiky Christian 20 5.720 24.02.2009 23:49 Uhr
Letzter Beitrag: PapaMaxi
  Pferderennen Script v1.0 by Spiky Christian 18 4.076 23.11.2008 15:34 Uhr
Letzter Beitrag: Eisbaer74
  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