27.11.2005, 16:45 Uhr
Advertiser-Revange v1.0 by HAPM
Beschreibung:
Das Script erkennt wenn User Namen von anderen Channels schreiben, joint diese Channels und macht Werbung für euren Channel. Um das Script dazu zu bringen das es auf bestimmte Channels nicht reagiert, diese einfach
eintragen.
Installation
Einfach in den Script-Ordner und laden, Fertig.
Beschreibung:
Das Script erkennt wenn User Namen von anderen Channels schreiben, joint diese Channels und macht Werbung für euren Channel. Um das Script dazu zu bringen das es auf bestimmte Channels nicht reagiert, diese einfach
Code:
Const ExceptChans =Installation
Einfach in den Script-Ordner und laden, Fertig.
Code:
'############################################################
'# Advertiser-Revange v1.0 by HAPM #
'############################################################
'# #
'# Kickt Werbemacher für andere Chans und betreibt danach #
'# eine kleine Rache #
'# #
'############################################################
Const ExceptChans = "#psound" 'Hierfür darf Werbung gemacht werden (Mehrere Chan mit " " trennen)
' Ab hier nichts mehr änder!!!
Const Version = "Advertiser-Revange v1.0 by HAPM"
Dim BadNick, BadChan, GoodChan
Sub Init()
Script Version
SpreadFlagMessage 0, "+m", Version&" geladen"
Hook "Chan_Msg"
Hook "Join"
End Sub
Sub Chan_Msg(Chan, Nick, RegUser, Line)
If IsOp(Nick, Chan) Then Exit Sub
Line = "x"&Line
Do While InStr(Line, "#") > 1
Line = Right(Line, Len(Line)+1-InStr(Line, "#"))
If InStr(" "&LCase(ExceptChans)&" ", " "&LCase(Param(Line, 1))&" ") = 0 Then
If Not IsOn(MyNick, Param(Line, 1)) Then
GoodChan = Chan
BadChan = Param(Line, 1)
BadNick = Nick
SendLine "JOIN "&Param(Line, 1), 1
End If
End If
Loop
End Sub
Sub Join(Chan, Nick, RegUser, Flags)
If Not Nick = MyNick Then Exit Sub
If LCase(Chan) = LCase(BadChan) Then
SendLine "KICK "&GoodChan&" "&BadNick&" :Werbungmacher wech", 3
SendLine "PRIVMSG "&BadChan&" :"&BadNick&" hat bei uns im "&GoodChan&" Werbung gemacht.", 3
SendLine "PRIVMSG "&BadChan&" :Das fanden wir net nett. Deswegen JOINT "&GoodChan&" und entschuldigt euch!!!", 3
SendLine "PART "&BadChan&" :Joint "&GoodChan, 3
End If
BadChan = ""
End Sub
