====== VoiceOps ======

===== Für alle Channel und Verbindungen =====


<code vb>
#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
</code>


===== Nur für einen bestimmten Channel =====

<code vb>
#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
</code>