AnGelBot-Portal²

Hallo, ich brauche ein ein script wo hop user !kick <nick> !ban <nick> machen können.
und bei ops !opme oder !voiceme oder !voice <nick> ...
könnt ihr mir da helfen??

Alos für das !voice !hop !op...
kenne ich ein script aber für !kickund !bane kenne ich keins...
voice dich mal im channel unprobier !k NICK !kb NICK Wink

Code:

Sub Init() 

  Script "Channel commands 1.0a by Sp33d" 

  Hook "Chan_Msg" 

End Sub 

Sub Chan_msg(Chan, Nick, RegUser, Line) 

  If MatchFlags(GetUserChanFlags(RegUser, Chan), "+o") Then 

    Select Case LCase(Param(Line, 1)) 

      Case "!hop" 

        If Param(Line, 2) = "" Then 

          SendLine "MODE " & Chan & " +h " & Nick, 1 

        Else 

          SendLine "MODE " & Chan & " +h " & Param(Line, 2), 1 

        End If 

      Case "!dehop" 

        If Param(Line, 2) = "" Then 

          SendLine "MODE " & Chan & " -h " & Nick, 1 

        Else 

          If LCase(Param(Line, 2)) <> LCase(MyNick) Then 

            SendLine "MODE " & Chan & " -h " & Param(Line, 2), 1 

          End If 

        End If 

      Case "!op" 

        If Param(Line, 2) = "" Then 

          SendLine "MODE " & Chan & " +o " & Nick, 1 

        Else 

          SendLine "MODE " & Chan & " +o " & Param(Line, 2), 1 

        End If 

      Case "!deop" 

        If Param(Line, 2) = "" Then 

          SendLine "MODE " & Chan & " -o " & Nick, 1 

        Else 

          If LCase(Param(Line, 2)) <> LCase(MyNick) Then 

            SendLine "MODE " & Chan & " -o " & Param(Line, 2), 1 

          End If 

        End If 

      Case "!voice" 

        If Param(Line, 2) = "" Then 

          SendLine "MODE " & Chan & " +v " & Nick, 1 

        Else 

          SendLine "MODE " & Chan & " +v " & Param(Line, 2), 1 

        End If 

      Case "!unvoice" 

        If Param(Line, 2) = "" Then 

          SendLine "MODE " & Chan & " -v " & Nick, 1 

        Else 

          If LCase(Param(Line, 2)) <> LCase(MyNick) Then 

            SendLine "MODE " & Chan & " -v " & Param(Line, 2), 1 

          End If 

        End If 

    End Select 

  End If 

End Sub

Bela

g-h-o-s-t