Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen gezeigt.

Link zu dieser Vergleichsansicht

nettalk:scripting:changetext [2005/08/29 14:35]
192.168.0.50 angelegt
nettalk:scripting:changetext [2009/01/07 23:32] (aktuell)
mirici
Zeile 1: Zeile 1:
 +====== Textausgabe ändern ======
  
 +<code vb>
 +#​NewScriptBegin ChangeInText
 + 
 +Sub Load()
 +  regevent "​PRIVMSG",​ ConnID
 +  regevent "​NOTICE",​ ConnID  ​
 +End Sub
 +
 +Sub Serv_RegedEvent(EventID,​ Sender, ConnID, Text, RawData)
 +  i=instr(1, RawData, " :")
 +  if Mid(RawData,​ i+2,1) <> Chr(1) Then
 +    PhraseData Mid(RawData,​1,​i+1)+Chr(3)+"​14,​16"​+Mid(RawData,​i+2),​ ConnID
 +    SkipEvent
 +  End if
 +End Sub
 +</​code>​

Eigene Werkzeuge