Modify Text

#NewScriptBegin TextModify
 
Sub Chan_Msg(Text, Nick, Channel, FrameID, ConnID)
  SkipEvent  
 
  if Instr(1, Text, GetVal(ConnID, 5))>0 Then
    SetLineIcon FrameID, 0
    SetFrameIcon FrameID, 3
    SetTrayIcon 4
  End if
  SetFrameIcon FrameID, 2
  if Instr(1, left(Text, 7), Chr(1) & "ACTION")=1 Then
    print "* " & Nick , FrameID , valcText
    print Right(Text, len(Text)-7) , FrameID , valcText,  1
  else
    print "<" & Nick & "> " , FrameID , valcSender
    print Text , FrameID , valcText,  1
  End if
End Sub

Eigene Werkzeuge