OpSpeak

#NewScriptBegin OpSpeak
 
 
Sub Load()
    MakeShortcut "", "onotice", "/call OpSpeak.oNotice $>0", 0
End Sub
 
Function oNotice(Text)
  i=0
  i2=0
  TexOut = "oNotice: " + Text
  do until i=GetListCount(FrontFrameID)
    if InStr(1, GetListValue(FrontFrameID,i,0), "@") > 0 Then
      i2=i2+1
      SendData "NOTICE " + NoSign(GetListValue(FrontFrameID,i,0)) + " :" + TexOut, FrontConID
    end if
    i=i+1
  loop
  print "<" & GetVal(FrontConID,5) & " to " & i2 & " users>" , FrontFrameID, valcWhisperMsg
  print "oNotice: " + TexOut, FrontFrameID, valcText,  1
End Function