Gesendete Wörter mit mehreren Farben einfärben

Kleine Erklärung:

Mit diesem Script ist es nun auch möglich, Wörter in mehreren Farben auszugeben, nicht nur in einer Einheitsfarbe.

#NewScriptBegin DifferentColorWords
 
Sub SendMsg(Text, Channel, FrameID, ConnID)
  ltext=lCase(Text)
  MyWords = " hehe nettalk "
  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
      If OneWord = "hehe" Then
        If ltext = "hehe" Then
          OutText = OutText + Chr(3) + "3h4e3h4e" & Chr(3)
        Else
          OutText = OutText + Chr(3) + "3 h4e3h4e" & Chr(3)
        End If
      End If
      If OneWord = "nettalk" Then
        If ltext = "nettalk" Then
          OutText = OutText + Chr(3) + "13N4e12tt7alk" & Chr(3)
        Else
          OutText = OutText + Chr(3) + "13 N4e12tt7alk" & Chr(3)
        End If
      End If
    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

Sollten Fragen zur Handhabung des Scriptes auftauchen, frage bitte hier nach: IRC://irc.ntalk.de/#Nettalk

Sollte jemand das Script ändern, weil Er eine bessere Variante herausgefunden hat, lasst es mich bitte wissen.

saaaale