Anonymous

#highlight on
on *:TEXT:*:#: {
  if (%hl.enable == on) {
    if ($istok(%hl.names,$1-,44)) || ($me isincs $1-) {
      if (%hl.tips) { noop $tip(Highlight,Highlight,You have been highlighted! $crlf $+ Network: $network $crlf $+ Nick: $nick $crlf $+ Time: $time(hh:nn tt) $crlf $+ Channel: $chan,5,,,,) }
      if (%hl.window) { 
        .window @highlight. [ $+ [ $network ] ]
        aline @highlight. [ $+ [ $network ] ] Highlight by $+ 4 $nick at $time(hh:nn tt) on $+ 4 $chan $+ : $1-
      }
      if (%hl.beeps) { .beep 5 }
    }
  }
}
#highlight end

menu @highlight.* {
  -
  Clear Window:clear
  -
}

ctcp 1:hlmngr:.ctcpreply $nick hlmngr Highlight Manager V 1.0 by GrimReaper & Zetacon.

menu * {
  Highlight Manager V 1.0:highlightmanager
}

dialog hlmanager {
  title "Highlight Manager"
  size -1 -1 134 103
  option dbu
  box "Highlights:", 3, 2 2 64 99
  list 4, 5 11 58 86, size autovs
  box "Options:", 5, 68 2 64 99
  button "Add HL", 6, 71 12 27 12
  button "Del HL", 7, 102 12 27 12
  button "Edit HL", 8, 71 27 27 12
  button "Test $tip", 9, 102 27 27 12
  button "Ok", 10, 71 85 27 12
  button "Cancel", 11, 102 85 27 12
  check "Enable Highlights?", 12, 71 42 53 10
  check "Windows?", 13, 71 52 50 10
  check "$tip windows?", 14, 71 62 50 10
  check "Beeps?", 15, 71 72 50 10
  menu "File", 1
  item "Close", 2, 1
}

on *:DIALOG:hlmanager:init:*: {
  if (!%hl.enable) { did -b $dname 6,7,8,9,13,14,15 }
  if (%hl.enable) {
    did -c $dname 12
    if (%hl.window) { did -c $dname 13 }
    if (%hl.tips) { did -c $dname 14 }
    if (%hl.beeps) { did -c $dname 15 }
    var %a = 1
    while (%a <= $numtok(%hl.names,44)) {
      did -a $dname 4 $gettok(%hl.names,%a,44)
      inc %a
    }
  }
}

on *:DIALOG:hlmanager:sclick:6-15: {
  if ($did == 12) {
    if ($did(12).state == 0) { unset %hl.enable | did -r $dname 4 | did -b $dname 6-9,13-15 | .disable #highlights }
    if ($did(12).state == 1) {
      .enable #highlights
      did -e $dname 6-9,13-15
      set %hl.enable on
      var %a = 1
      while (%a <= $numtok(hl.names,44)) {
        did -a $dname 4 $gettok(%hl.names,%a,44)
        inc %a
      }
      if (%hl.window) { did -c $dname 13 }
      if (%hl.tips) { did -c $dname 14 }
      if (%hl.beeps) { did -c $dname 15 }
    }
  }
  if ($did == 13) {
    if ($did(13).state == 0) { unset %hl.window }
    if ($did(13).state == 1) { set %hl.window on }
  }
  if ($did == 14) {
    if ($did(14).state == 0) { unset %hl.tips }
    if ($did(14).state == 1) { set %hl.tips on }
  }
  if ($did == 15) {
    if ($did(15).state == 0) { unset %hl.beeps }
    if ($did(15).state == 1) { set %hl.beeps on }
  }
  if ($did == 6) {
    did -r $dname 4
    set %hl.names $addtok(%hl.names,$$?="Please enter a highlight word:",44)
    var %a = 1
    while (%a <= $numtok(%hl.names,44)) {
      did -a $dname 4 $gettok(%hl.names,%a,44)
      inc %a
    }
  }
  if ($did == 7) {
    if (!$did(4).sel) { noop $input(Please select a word to delete.,owu,Error!) }
    else {
      unset %hl.names
      did -d $dname 4 $did(4).sel
      var %a = 1
      while (%a <= $did(4).lines) {
        set %hl.names $addtok(%hl.names,$did($dname,4,%a).text,44)
        inc %a
      }
    }
  }
  if ($did == 8) {
    if (!$did(4).sel) { noop $input(Please select a nick to edit.,owu,Error!) }
    else {
      set %hl.names $deltok(%hl.names,$did(4).sel,44)
      did -r $dname 4 
      set %hl.names $addtok(%hl.names,$$?="Please enter a new highlight:",44)
      var %a = 1
      while (%a <= $numtok(%hl.names,44)) {
        did -a $dname 4 $gettok(%hl.names,%a,44)
        inc %a
      }
    }
  }
  if ($did == 9) {
    if (!%hl.tips) { noop $input(Please enable Highlight Tips.,o) }
    else {
      if ($me isop $active) {
        var %a = 1
        while (%a <= $did(4).lines) {
          bs say $active $did($dname,4,%a).text
          inc %a
        }
      }
    }
  }
  if ($did == 10) || ($did == 11) {
    dialog -x hlmanager hlmanager
  }
}

on *:DIALOG:hlmanager:menu:2: {
  dialog -x hlmanager hlmanager
}

alias -l highlightmanager {
  dialog $iif($dialog(hlmanager),-v,-m hlmanager) hlmanager
}