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