Hilight Dialog

By DarkCoder on Dec 31, 2009

I couldnt find any other hilight scripts with dialogs :\ i took some of the ideas for people who logged hilights etc, completely remade it tho, put in a anti hilight list for bots etc, doesnt support address/wildcards tho :<.

To use, Right click channel background and hit Hilight Settings button, Check off enable antihilight to turn it on, click add button after filling in the blank spot to add a nick and select a nick then click delete to remove them from the list, when on the list and they hilight you it wont go threw

The anti flood option makes it so only 1 hilight per 30 seconds per each nick can go threw.

Log hilights puts the hilights in a text file and shows them in a window when they happen, the view logs button will open a text file with all your logs.

[size=20]Possible future updates to come if it gets good feedback, Positive comments only please :D.[/size]

dialog hilight {
  option dbu
  title "Hilight Settings"
  size -l -l 150 100
  list 1, 5 50 135 50
  check "Anti Flood on",2, 80 15 40 10
  check "Enable Antihilight",3, 80 25 50 10
  box "Settings",4, 75 5 60 45
  check "Log Hilights",5, 80 35 50 10
  edit "",6, 5 15 60 10,
  button "Add"7, 5 5 30 10
  button "Del"8, 35 5 30 10
  button "View Logs" 10, 5 30 60 10
  text "Anti Hilight List",9, 15 40 40 10
}
menu c* {
  Hilight Settings:hlset
}
on *:TEXT:*:#: if ($me isin $1-) hilight $nick $chan $network $strip($1-)
on *:action:*:#: if ($me isin $1-) hilight $nick $chan $network $strip($1-)
alias hilight {
  if (%ahl) && (!$hget(antihl,$1)) {
    if (%hl.aflood) && (!%hl [ $+ [ $1 ] ]) {
      set -u30 %hl [ $+ [ $1 ] ] Hilighted
      :hl
      noop $tip(H,Hilight,12 $+ $1 14Has hilighted you on7 $3 14in channel2 $2 14saying:01 $4-,9)
      if ($2 == $active) echo $chan $+(7,$chr(186),$chr(171)) 12Hilight7 $+($chr(187),$chr(186))
      beep 2 3  
      if (%hl) { 
        write hl.txt $chr(40) $+ $time $+ $chr(41) $network - $nick ** $chan - $1- $crlf
        if (!$window(@hilights)) window -a @Hilights
        echo @Hilights 12 $+ $1 14Has hilighted you on7 $3 14in channel2 $2 14saying:01 $4-
      }
    }
    elseif (!%hl.aflood) goto hl
  }
}
on *:dialog:hilight:*:*: {
  if ($devent == init) { 
    var %x $hget(Antihl,0).item
    if (%hl.aflood) did -c $dname 2
    if (%ahl) did -c $dname 3
    if (%hl) did -c $dname 5
    while (%x) {
      did -a $dname 1 $hget(antihl,%x).item
      dec %x
    }
  }
  if ($did == 5) {
    if ($did(5).state) {
      set %hl on
    }
    else unset %hl
  }
  if ($devent == sclick) {
    if ($did == 10) {
      if (!$read(hl.txt)) write hl.txt Hilights
      run hl.txt
    }
    if ($did == 3) {
      if ($did(3).state) {
        set %ahl On
      }
      else unset %ahl
    }
    if ($did == 2) {
      if ($did(2).state) {
        set %hl.aflood On
      }
      else unset %hl.aflood
    }
    if ($did == 7) {
      if ($did(6).text) {
        hadd antihl $did(6).text Dont Hilight
        var %x $hget(Antihl,0).item
        while (%x) {
          did $iif(%x == $hget(antihl,0).item,-ra,-a) $dname 1 $hget(antihl,%x).item
          dec %x
        }
      }
      else error You have not input a name to add!
    }
    if ($did == 8) {
      if ($did(1).seltext) {
        hdel antihl $did(1).seltext *
        var %x $hget(Antihl,0).item
        while (%x) {
          did $iif(%x == $hget(antihl,0).item,-ra,-a) $dname 1 $hget(antihl,%x).item
          dec %x
        }
      }
      else error You have not selected a nick to be deleted!
    }
  }
}
alias -l error noop $input($1-,o,Error!)
alias hlset dialog -mo hilight hilight

Comments

Sign in to comment.
gooshie   -  Dec 31, 2009
on *:TEXT:$($+(*,$me,*)):#:hilight $nick $chan $network $strip($1-)
on *:action:$($+(*,$me,*)):#:hilight $nick $chan $network $strip($1-)
 Respond  
Ghost-writer   -  Dec 31, 2009

Pretty useful, i like the hilight ignore list feature and its more clear to see your list than mircs default, for stuff like


  if ($did == 2) {
      if ($did(2).state) {
        set %hl.aflood On
      }
      else unset %hl.aflood
    }

You could do an $iif statement and make it 1 line, sort of like

if ($did == 2) $iif($did(2).state,unset,set) %hl.aflood on
 Respond  
p0d   -  Dec 31, 2009

Would'nt say useless although mirc comes with one default its got a couple extra options like the logging of the highlight events and a flood control. Just because its useless to you others might find it something they want.

One mans trash is another mans treasure

 Respond  
bugboy1028   -  Dec 31, 2009

Yeah, this script is TOTALLY unnecessarily

 Respond  
[Plornt]   -  Dec 31, 2009

Heh, i made one of theses, except i called it "ping list with dialog"...
Nice work though :) Rated

BugBoy it makes it so you can add words to "highlight", basically if i added "[Plornt]" and someone said [Plornt] then it would show it on the active channel that they said it.

However, there is a default highlight dialog in mirc (Alt + B) >> Highlight

 Respond  
bugboy1028   -  Dec 31, 2009

What is this script good for?

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.