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

Personal Tools