Textausgabe ändern

#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