Highlighting

Dieses Script erlaubt es neben dem eigenden Nick auch andere Highlightwörter zu setzen. Mit /addhighlight können neue Wörter hinzugefügt werden, und mit /clearhighlightes können alle Highlight-Wörter gelöscht werden.

#NewScriptBegin Highlighting
 
Dim HStr
 
Sub Load()
  HStr=load("Highlightlist")
  MakeShortcut "Neues Highlight...", "addhighlight", "/call AddHighlight $(input:'Hightlighttext:')", 2
  MakeShortcut "", "clearhighlightes", "/call ClearHighlightes", 2
End Sub
 
Sub AddHighlight(Text)
  if len(trim(Text)) > 0 then
    if len(HStr)>0 Then HStr=HStr+"/"
    HStr=HStr+lcase(Text)
  end if
  print "*** Highlights: " + HStr
End Sub
 
Sub ClearHighlightes()
  HStr=""
  print "*** Highlights entfernt"
End Sub
 
Sub Chan_Msg(Text, Nick, Channel, FrameID, ConnID)
  i=0
  lText=lcase(Text)
  do
    i2=i
    i=instr(i+1,HStr,"/")
    if i=0 then i=len(HStr)+1
    p=instr(1, lText, mid(HStr,i2+1,i-i2-1))
    if p > 0 and len(HStr)>0 then
      if p > 1 then
        tval=asc(mid(lText,p-1,1))
      else
        tval=0
      end if
      if tval < asc("a") or tval > asc("z") then
        if p+(i-i2-1)-1 < len(lText) then
          tval=asc(mid(lText,p+(i-i2-1),1))
        else
          teval=0
        end if
        if tval < asc("a") or tval > asc("z") then
          SetLineIcon FrameID, 2
          SetFrameIcon FrameID, 3
          if NotVisible = 1 and IsSilent(FrameID)=0 Then
            ShowOsdMsg Text, Nick, FrameID
            SetTrayIcon 4
            beep 2
          end if
          i=len(HStr)+1
        end if
      end if
    end if
  loop until i=len(HStr)+1
End Sub
 
Sub Unload()
  save "Highlightlist", HStr
End Sub