10.08.2006, 21:24 Uhr
Moin,
ich habe derzeit das devoice script hier am laufen.
Ich möchte gerne das L als einziger, ausser dem Bot Voice geben darf.
Hat einer eine idee wie es klappt ?
Bin noch zu dumm das selber rauszufinden ;P
[/quote]
ich habe derzeit das devoice script hier am laufen.
Ich möchte gerne das L als einziger, ausser dem Bot Voice geben darf.
Hat einer eine idee wie es klappt ?
Bin noch zu dumm das selber rauszufinden ;P
Code:
Const ActiveChannels = "#leatshi #Gamezillas #Gamezillas.Live"
Sub Init()
Script "Auto-Devoice Script 1.0a by Sp33d"
Hook "Mode"
Hook "Join"
End Sub
Sub Join(Chan, Nick, RegUser, Flags)
If Not InStr(1, " " & LCase(ActiveChannels) & " ", " " & LCase(Chan) & " ") > 0 Then Exit Sub
If Nick = MyNick Then
CNum = ChanNum(Chan)
TimedCommand "CheckChan(""" & Chan & """)", 3
End If
End Sub
Sub CheckChan(Chan)
CNum = ChanNum(Chan)
For i = 0 To ChanUserCount(CNum)
If ChanUser(CNum, i, CU_RegUser) <> vbNullString Then
Flags = GetUserChanFlags(ChanUser(CNum, i, CU_RegUser), Chan)
If IsVoice(ChanUser(CNum, i, CU_Nick), Chan) And MatchFlags(Flags, "-v") Then
SendLine "MODE " & Chan & " -v " & ChanUser(CNum, i, CU_Nick), 1
End If
Else
If IsVoice(ChanUser(CNum, i, CU_Nick), Chan) Then
SendLine "MODE " & Chan & " -v " & ChanUser(CNum, i, CU_Nick), 1
End If
End If
Next
End Sub
Sub Mode(Nick, RegUser, Chan, Line)
If Not InStr(1, " " & LCase(ActiveChannels) & " ", " " & LCase(Chan) & " ") > 0 Then Exit Sub
If MatchFlags(Param(Line, 1), "+v") Then
Users = Trim(GetRest(Line, 2))
If InStr(1, Users, " ") Then
Users = Split(Users, " ")
For i = 0 To UBound(Users)
Flags = GetUserChanFlags(GetUsername(Users(i), Chan), Chan)
If IsVoice(Users(i), Chan) And MatchFlags(Flags, "-v") Then
SendLine "MODE " & Chan & " -v " & Users(i), 1
End If
Next
Else
Flags = GetUserChanFlags(GetUsername(Users, Chan), Chan)
If IsVoice(Users, Chan) And MatchFlags(Flags, "-v") Then
SendLine "MODE " & Chan & " -v " & Users, 1
End If
End If
End If
End Sub
Function GetUsername(Nick, Chan)
CNum = ChanNum(Chan)
For i = 0 To ChanUserCount(CNum)
If ChanUser(CNum, i, CU_Nick) = Nick Then
GetUsername = ChanUser(CNum, i, CU_RegUser)
Exit Function
End If
Next
End Function