hy aLL,
gibt es ein Badword Script , wenn nicht koennte man eines proggen?
es sollte nicht in allen chans reagieren nur in einem vorgeschriebenen.
Badwordliste koennte man ja mit txt machen aber denke mal das wird zu umstaendlich oder?
der AB sollte alle kicken die dagegen verstossen ausser OPs
ThX
TUTfW
hi, ich habe ein badwordscript aber ich brings nicht zum laufen :(
KickMessage = "3 -!- WORD-KICK -!- "
BadWordFile = "filearea\scripts\bad.txt"
ban = false
kickops = true
'
Sub Init
scriptname = "Bad Guy Kick V1.13 by Andreas Normann"
Script scriptname
Hook "Join"
Hook "Chan_Msg"
SpreadFlagMessage 0, "+m", "14*** " & scriptname & " loaded."
End Sub
'
Sub Join(Chan, Nick, RegUser, Flags)
if nick = mynick then exit sub
Check Chan, Nick, Hostmask(Chan, Nick)
End Sub
'
Sub Chan_Msg(Chan, Nick, RegUser, Line)
Check Chan, Nick, Line
End Sub
'
Sub Check(Chan, Nick, Line)
FileNum = FileOpen(BadWordFile, FA_Read)
While Not FileEOF(FileNum)
If Instr(Line,FileReadln(FileNum)) > 0 then
If IsOp(Nick, Chan) Then
banmode = "-o+b"
else
banmode = "+b"
end if
Host = Hostmask(Chan,Nick)
if Host = "x!x@x" then
BanMask = Nick & "*!*@*"
else
BanMask = Mask(Host, 1)
end if
If not IsOp(Nick, Chan) or kickops then
if ban then SendLine "MODE " & Chan & " " & banmode & " " & BanMask, 2
AddKick Chan, Nick, KickMessage
end if
End If
Wend
FileClose FileNum
End Sub
die dazugehörige datei bad.txt habe ich auch erstellt
nimm den hier ,der kickt aber nur und keine ahnung wie ich ihn zum bannen bekommen und entbannen
-------------------------------------------------------------------------------------
Public Num
Sub Init
Script "BadWord Kick V1.0"
Hook "Chan_msg"
SpreadFlagMessage 0, "+m", "14*** BadWord Kick V1.0 by Hippo loaded."
End Sub
Sub Chan_msg(Chan, Nick, RegUser, Line)
If RegUser = "" Then
If (Instr(LCase(Line), "fucker") > 0) or (Instr(LCase(Line), "sucker") > 0) or (Instr(LCase(Line), "deppen") > 0) or (Instr(LCase(Line), "wichser") > 0) Then
SendLine "KICK " & Chan & " " & Nick & " :BadWord Kick", 2
End if
End If
End Sub
:D Danke Morphy,
das script läuft super
Was auch besser ist: wenn einer !stream tippt und alle es lesen können.
Habe den !stream auch noch bissel auseinadergepflückt und !stream !streaminfo !status und !onair draus gemacht :D und einen !playlist eingefügt.