AnGelBot-Portal²

Also ich bräuchte ein script , was beim Join eines Users diesen whoist und wenn dieser in einem bestimmten Channel ist, wird dieser sofort kick banned..

falls da jmd ideen hat ich bin für alles dankbar!

moin moin
du suchst das Badchan Script ich benutze es auch is echt kewl


'|#1.0#BadChan##
'| Diese Script macht bei jedem User der den Channel betritt ein "Whois".
'| Befindet sich der User in einem BadChan (Verbotener Channel der in die Datei fileare\badchan.txt eingetragen wird) wird er gekickt und gebannt.

Sub Init()
Script "BadChan"
Hook "numerics"
Hook "Join"
SpreadFlagMessage 0, "+m", "3*** BadChan running..."
End Sub

Sub Numerics(Line)
If Param(Line, 1) = "319" Then
FNum = FileOpen("filearea\badchan.txt", FA_Read)
Ret = FileReadln(FNum)
FileClose FNum
A = Split(Ret, " ")
For i = 0 To UBound(A)
For j = 0 to ChanCount
If InStr(LCase(Line) & " ", LCase(A(I))) > 0 Then
If IsOn(Param(Line, 3), ChanName(J)) Then
SendLine "MODE " & ChanName(J) & " +b " & Mask(Hostmask(ChanName(J),Param(Line, 3)), 1), 1
AddKick ChanName(J), Param(Line, 3), "[BadChan] You are on a bad channel!"
TimedEvent "UnBan " & ChanName(J) & " " & Mask(Hostmask(ChanName(J),Param(Line, 3)), 1), Now + CDate("00:00:20")
End If
End If
Next
Next
End If
End Sub

Sub Join(Chan, Nick, RegUser, Flags)
SendLine "WHOIS " & Nick & vbCrLf, 3
End Sub

HI da mein channel +m hat möchte ich das derjenige kein voice bekommt also geht das der bot macht ja av bei jeden aber ich möchte das derder in den badchan ist kein voice bekommt geht das glaube nicht oder ?

also per flag +D müsste das doch gehen oder ???

funzt bei mir nich o0

*edit*

ok funzt jetzt der Pfad name is case sensitive -.-

Hallo Sinn? Schonmal was von Suchen/Gucken gehört. Man sollte schonmal in die Downloads schauen.......