Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen gezeigt.

Link zu dieser Vergleichsansicht

nettalk:scripting:highlighting [2005/06/05 22:40]
192.168.0.50
nettalk:scripting:highlighting [2005/07/08 21:18] (aktuell)
192.168.0.50
Zeile 1: Zeile 1:
 +====== 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.
 +
 +<code vb>
 +#​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
 +</​code>​

Eigene Werkzeuge