Dies ist eine alte Version des Dokuments!

---

#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