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

Das Script versendet nur jeweils das erste wort der zu versendenden notice! Um eine „Richtige“ oNotice zu versenden, ist es nötig einen shortcut zu erstellen:

Menütitel:
Kurzbefehl: /onotice
Bezug: Allgemein
Auszuführende Befehle: /NOTICE @$(room) $>0

oder folgendes ins Script zu kopieren:

#NewScriptBegin oNotice
 
Sub Load()
  MakeShortcut "", "onotice", "/NOTICE @$(room) $>0", 2
End Sub

Eigene Werkzeuge