Highlight Script
it's not like any other highlight system
it works like this (while xx has New Highlight System for Word xx)
<xx> hi
<yy> hi xx
i'll be updating it soon for more options
Virus Ecks 2009/01/08 18:50
Usage
Toggle Highlight : Toggle Highlight System On/Off
Change Highlight : Change the Highlighting Word
Highlight System Code (Add to scripts) BEGIN
#NewScriptBegin HnickLight 'VirusEcks : i made the not working blabla and Mirici fixed it for me Dim Hnick Dim Nicks Sub Load() Hnick=load("Hnick") if Nicks ="" then Nicks = "BlaBla" nicks=load("Nicks") MakeShortcut ">Toggle Highlight", "enahnick", "/call enapub", 2 MakeShortcut ">Change Highlight", "dishnick", "/call dispub $(input:'Hightlighttext:')", 2 RegEvent "PRIVMSG", 0 RegEvent "NOTICE", 0 if hnick=1 then print "--- Notice --- Highlighting Disabled" else print "--- Notice --- Highlighting Enabled for Word : " & Nicks end if End Sub Sub EnaPub() if Hnick=1 then Hnick=2 else Hnick=1 end if save "Hnick", Hnick if hnick=1 then print "--- Notice --- Highlighting Disabled" else print "--- Notice --- Highlighting Enabled For Word : " & Nicks end if End Sub Sub DisPub(Hells) Nicks=Hells save "Nicks", Nicks print "--- Notice --- Highlighting Changed to Word : " & Nicks End Sub Sub Serv_RegedEvent(EventID, Sender, ConnID, Text, RawData) duh = 0 itext=0 tmpnick=0 textbegin=0 textstart=0 tmpraw=0 if Hnick = 2 then itext=lcase(RawData) tmpnick=lcase(GetVal(ConnID, 5)) textstart=InStr(2, rawdata, ":")+1 tmpraw = mid(RawData,textstart) tmpraw=remcolors(tmpraw) duh=instr(1,tmpraw,Nicks) if duh <> 0 then phrasedata mid(rawdata,1,textstart-1) +Chr(3)+"08,01"+ tmpraw, ConnID skipevent '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''remove next line if you don't want sound notification'''''''''''''''''''''''''''''''''''''' PlayWave "C:\WINDOWS\Media\Windows XP Information Bar.wav" end if end if End Sub Sub RemColors(Text) TextNoColor="" i=0 Do i2=i i=InStr(i2+1, Text, Chr(1)) i4=InStr(i2+1, Text, Chr(3)) if (i4<i or i=0) and i4>0 Then i=i4 i3=i if i = 0 Then i=Len(Text)+1 i3=i else Do i=i+1 Dat=Mid(Text, i, 1) Loop until (Asc(Dat) > 57 or Asc(Dat) < 48) and Dat<>"," i=i-1 end if if i3-i2 > 1 Then TextNoColor=TextNoColor+Mid(Text, i2+1, i3-i2-1) loop until i3=Len(Text)+1 RemColors = TextNoColor End Sub
You are here: start » en » scripting » hnicklight