#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
#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