05.04.2006, 16:07 Uhr
Hallo Leute,
hier hat mal nen User danach gefragt ob es ein Script gibt, welches andere User ärgert, wenn man !Befehl Nick eingibt..
Der Code is zwar schonmal irgendwo im Forum, abba da müsste man suchen ohne ende.. deswegen nochmal der Code auch für die anderen (wen´s interessiert)..
Ausgabe erfolgt normal im Channel wie wenn der Bot was sagen würde...
Und hier die Ausgabe als würde der BOT /me schreiben :
Oki.. wer sowas braucht, der muss jetzt nimmer lange suchen *fg*
Grüßle
Markus
hier hat mal nen User danach gefragt ob es ein Script gibt, welches andere User ärgert, wenn man !Befehl Nick eingibt..
Der Code is zwar schonmal irgendwo im Forum, abba da müsste man suchen ohne ende.. deswegen nochmal der Code auch für die anderen (wen´s interessiert)..
Ausgabe erfolgt normal im Channel wie wenn der Bot was sagen würde...
Code:
'----------------------------------
' !Ärger - Script Version 1.0
'----------------------------------
' Gecodet von Kaesi 21.03.2006
'----------------------------------
'
'Das Script einfach in eine Textdatei Namens aerger.asc kopieren und im Verzeichnis
'C:\Angelbot\Filearea\Scripts ablegen. Im Angelbot dann Script aerger.asc hinzufügen.
'
'
'Natürlich ist es Möglich das Script beliebig zu erweitern !!!
' AKtive Channels in dem das Script aktiv sein soll
Const AktivChan = "#kaesbox #nettalk #dragonflyin #schuelerchat"
Const ScriptVersion = "V1.0"
Sub Init()
Script "Aerger-Script by Kaesi"
Hook "Chan_MSG"
SpreadFlagMessage 0, "+m", "3*** Aerger-Script " & ScriptVersion & " by Kaesi running..."
End Sub
Sub Chan_msg(Chan, Nick, RegUser, Line)
'erstmal die Farbe des Benutzers wech '
Line = Strip(Line)
'Überprüfen, ob das Script Aktiv wird oder nicht
If InStr(AktivChan,Chan) Then
If LCase(Param(Line,1)) = "!popotritt" or LCase(Param(Line,1)) = "!beissen" or LCase(Param(Line,1)) = "!popoleck" or LCase(Param(Line,1)) = "!ohrpopel" or LCase(Param(Line,1)) = "!treten" or LCase(Param(Line,1)) = "!versohlen" Then
'Abfrage ob nach dem Befehl noch eine Eingabe erfolgte oder nicht..
If LCase(Param(Line,2)) = "" Then
SendLine "Notice " & Nick & " :" & chr(3) & "1,0 Bitte noch Nicknamen angeben!!! :", 3
End If
End If
'Kam nach dem Befehl noch ein Zusatz entsprechend auswählen
NNick = Param(Line,2)
Select Case LCase(Param(Line,1))
Case "!popotritt"
SendLine "PrivMsg " & Chan & " :" & MyNick & " tritt " & NNick & " ganz kräftig in den Hintern !!! " , 1
Case "!beissen"
SendLine "PrivMsg " & Chan & " :" & MyNick & " beisst " & NNick & " ganz kräftig in den Hintern !!! " , 1
Case "!popoleck"
SendLine "PrivMsg " & Chan & " :" & MyNick & " zwingt " & NNick & " dazu, ihm den Hintern zu lecken!!! " , 1
Case "!ohrpopel"
SendLine "PrivMsg " & Chan & " :" & MyNick & " popelt " & NNick & " massiv den Ohrenschmalz aus den Ohren !!! " , 1
Case "!treten"
SendLine "PrivMsg " & Chan & " :" & MyNick & " tritt " & NNick & " volles Rohr gegen das Schienbein !!! " , 1
Case "!versohlen"
SendLine "PrivMsg " & Chan & " :" & MyNick & " versohlt " & NNick & " nach Strich und Faden !!! " , 1
end select
End If
End SubUnd hier die Ausgabe als würde der BOT /me schreiben :
Code:
'----------------------------------
' !Ärger - Script Version 2.0
'----------------------------------
' Gecodet von Kaesi 05.04.2006
'----------------------------------
'
'Änderung im Gegenstaz zur Version 1.0 ist die Ausgabe als /me seitens des Bots
'
'
'Das Script einfach in eine Textdatei Namens aerger.asc kopieren und im Verzeichnis
'C:\Angelbot\Filearea\Scripts ablegen. Im Angelbot dann Script aerger.asc hinzufügen.
'
'
'Natürlich ist es Möglich das Script beliebig zu erweitern !!!
' AKtive Channels in dem das Script aktiv sein soll
Const AktivChan = "#kaesbox #nettalk #dragonflyin #schuelerchat"
Const ScriptVersion = "V2.0"
Sub Init()
Script "Aerger-Script by Kaesi"
Hook "Chan_MSG"
SpreadFlagMessage 0, "+m", "3*** Aerger-Script " & ScriptVersion & " by Kaesi running..."
End Sub
Sub Chan_msg(Chan, Nick, RegUser, Line)
'erstmal die Farbe des Benutzers wech '
Line = Strip(Line)
'Überprüfen, ob das Script Aktiv wird oder nicht
If InStr(AktivChan,Chan) Then
If LCase(Param(Line,1)) = "!popotritt" or LCase(Param(Line,1)) = "!beissen" or LCase(Param(Line,1)) = "!popoleck" or LCase(Param(Line,1)) = "!ohrpopel" or LCase(Param(Line,1)) = "!treten" or LCase(Param(Line,1)) = "!versohlen" Then
'Abfrage ob nach dem Befehl noch eine Eingabe erfolgte oder nicht..
If LCase(Param(Line,2)) = "" Then
SendLine "Notice " & Nick & " :" & chr(3) & "1,0 Bitte noch Nicknamen angeben!!! :", 3
End If
End If
'Kam nach dem Befehl noch ein Zusatz entsprechend auswählen
NNick = Param(Line,2)
Select Case LCase(Param(Line,1))
Case "!popotritt"
SendLine "PrivMsg " & Chan & " :" & Chr(1) & "ACTION tritt " & NNick & " ganz kräftig in den Hintern !!! " , 1
Case "!beissen"
SendLine "PrivMsg " & Chan & " :" & Chr(1) & "ACTION beisst " & NNick & " ganz kräftig in den Hintern !!! " , 1
Case "!popoleck"
SendLine "PrivMsg " & Chan & " :" & Chr(1) & "ACTION zwingt " & NNick & " dazu, ihm den Hintern zu lecken!!! " , 1
Case "!ohrpopel"
SendLine "PrivMsg " & Chan & " :" & Chr(1) & "ACTION popelt " & NNick & " massiv den Ohrenschmalz aus den Ohren !!! " , 1
Case "!treten"
SendLine "PrivMsg " & Chan & " :" & Chr(1) & "ACTION tritt " & NNick & " volles Rohr gegen das Schienbein !!! " , 1
Case "!versohlen"
SendLine "PrivMsg " & Chan & " :" & Chr(1) & "ACTION versohlt " & NNick & " nach Strich und Faden !!! " , 1
end select
End If
End SubOki.. wer sowas braucht, der muss jetzt nimmer lange suchen *fg*
Grüßle
Markus
)