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