Dies ist eine alte Version des Dokuments!


Wörter einfärben

#NewScriptBegin ColorWords
 
Sub SendMsg(Text, Channel, FrameID, ConnID)
  MyWords = " hallo test farbe lol ok cu "
  SkipEvent
  i=0
  TxtLen=0
  Do
    i=i+1
    OneWord=Split(Text, I, " ")
    TxtLen=TxtLen+Len(OneWord)+1
    If InStr(1, MyWords, " "+lCase(OneWord)+" ")>0 Then
      OutText=OutText+ Chr(3)+"7 "+OneWord+Chr(3)
    Else
      OutText=OutText+" "+OneWord
    End if
  Loop Until TxtLen > Len(Text)
  Send Trim(OutText), FrameID
End Sub
 
Sub SendQuery(Text, Receiver, FrameID, ConnID)
  SendMsg Text, Receiver, FrameID, ConnID
End Sub

Eigene Werkzeuge