Dies ist eine alte Version des Dokuments!


VoiceOps

#NewScriptBegin VoiceOps
 
Sub Chan_Mode(Nick, ModeStr, ParaStr, FrameID, ConnID)
  If Left(ModeStr, 1) = "+" Then
    i = InStr(2, ModeStr, "o")
    if i > 0 Then
      User = Split(ParaStr, i-1)
      Send "/mode " & GetCaption(FrameID) & " +v " & User, FrameID
    End if
  End if
End Sub

Nur Für bestimmte Channel:

#NewScriptBegin VoiceOps
 
Sub Chan_Mode(Nick, ModeStr, ParaStr, FrameID, ConnID)
  Channel = GetCaption(FrameID)
  If Left(ModeStr, 1) = "+" and lCase(Channel) = "#nettalk" Then
    i = InStr(2, ModeStr, "o")
    if i > 0 Then
      User = Split(ParaStr, i-1)
      Send "/mode " & Channel & " +v " & User, FrameID
    End if
  End if
End Sub

Eigene Werkzeuge