29.05.2003, 21:00 Uhr
hi ich habe heute ein flagscript bekommen, welches leider nicht richtig funktioniert, da jeder zugriff drauf hat. dh selbst einer, der nicht op hat bzw botowner ist jmd kicken lassen kann... ich hatte das durch zufall bemerkt, als einer auf einmal !k nick eingab und einen geoppten gekickt hat. ich würde mich freuen wenn ihr das script richtig stellen könntet! :D
cu
Code:
Public Num
Sub Init
Script "Op V1.1 by }]3nV|Tr0[{"
Hook "Chan_msg"
SpreadFlagMessage 0, "+tn", "14*** Op V1.1 by }]3nV|Tr0[{ loaded."
End Sub
Sub Chan_msg(Chan, Nick, RegUser, Line)
If LCase(Param(Line,1)) = "!op" Then
If MatchFlags(GetUserChanFlags(RegUser, Chan), "+s") Then
If IsOn(Param(Line,2), Chan) Then
SendLine "MODE " & Chan & " +o " & Param(Line,2), 2
End If
End If
End If
If LCase(Param(Line,1)) = "!deop" Then
If MatchFlags(GetUserChanFlags(RegUser, Chan), "+s") Then
If IsOn(Param(Line,2), Chan) Then
SendLine "MODE " & Chan & " -o " & Param(Line,2), 2
End If
End If
End If
If LCase(Param(Line,1)) = "!v" Then
If MatchFlags(GetUserChanFlags(RegUser, Chan), "+s") Then
If IsOn(Param(Line,2), Chan) Then
SendLine "MODE " & Chan & " +v " & Param(Line,2), 2
End If
End If
End If
If LCase(Param(Line,1)) = "!dv" Then
If MatchFlags(GetUserChanFlags(RegUser, Chan), "+s") Then
If IsOn(Param(Line,2), Chan) Then
SendLine "MODE " & Chan & " -v " & Param(Line,2), 2
End If
End If
End If
If LCase(Param(Line,1)) = "!k" Then
If MatchFlags(GetUserChanFlags(RegUser, Chan), "+s") Then
If IsOn(Param(Line,2), Chan) Then
SendLine "MODE " & Chan & " +k " & Param(Line,2), 2
End If
End If
End If
If LCase(Param(Line,1)) = "!b" Then
If MatchFlags(GetUserChanFlags(RegUser, Chan), "+s") Then
If IsOn(Param(Line,2), Chan) Then
SendLine "MODE " & Chan & " +b " & Param(Line,2), 2
End If
End If
End If
If LCase(Param(Line,1)) = "!deb" Then
If MatchFlags(GetUserChanFlags(RegUser, Chan), "+s") Then
If IsOn(Param(Line,2), Chan) Then
SendLine "MODE " & Chan & " -b " & Param(Line,2), 2
End If
End If
End If
End Subcu
