Topic Change
Dieses Script stellt im Kontextmenü der Channel den Menüeintrag „Topic ändern“ bereit.
#NewScriptBegin TopicChanger Dim TempFrID Sub Load() MakeShortcut "Topic ändern", "", "/call TopicChanger.ChangeTopic", 1 End Sub Sub ChangeTopic() TempFrID=FrontFrameID RegEvent 332, GetConn(TempFrID) Send "/topic " & GetCaption(TempFrID), TempFrID End Sub Sub Serv_RegedEvent(EventID, Sender, ConnID, Text, RawData) UnRegEvent 332, GetConn(TempFrID) NewTopic=input("Topic:", Text) if len(NewTopic) > 0 Then Send "/topic " & GetCaption(TempFrID) & " " & NewTopic, TempFrID End if SkipEvent End Sub
Sie befinden sich hier: start » nettalk » scripting » topicchange