Highlight alerts/logs

Please Register to submit score.

Average Score	5.0
Scores Submitted	1
Date Added	Feb 24, 2008
Last Updated	Feb 25, 2008
Tags	highlight

Introduction

Just a highlight script I made cuz I was bored..then expanded on it alot. just load it into your remotes and right click any channel and select "Highlight logs". everything else is pretty much self explanitory. All settings are off by defualt. I know the dialogs are a bit messy, with extra space and all, but whatever. If anyones got any idea on how to improve/what I could/should add, please comment.
Scripted in mirc version 6.21
*some aliases were not written by me, but credit has been given in the script where it's needed.*

Note: The "update bots" button updates a .txt file with all the service bots on your network, so you don't get highlighted by them. I've only tested this feature on a network running UnrealIRCD with Anope services.

Grab the Code

on *:ACTION:*:#:{
  if ($chan == $active) && ($appactive == $true) { halt }
  if (%highlight.yeah == on) {
    if ($highlighttrig($1-) == yes) || ($+(*,$me,*) iswm $1-) {
      if ($isbot($nick) == $false) { 
        if ($($+(%,highlightspam.,$address($nick,2)),2) >= %highlight.times) { 
          .ignore -u60 $nick 2 
          if ($appactive == $false) {
            if ($window(@Highlights)) { closewin | showpopup $nick triggerd your highlight spam protection! Ignoring user for 60 seconds. }
            else { showpopup $nick triggerd your highlight spam protection! Ignoring user for 60 seconds. }
          }
          else { echo -a $c.(*** $nick triggerd your highlight spam protection! Ignoring user for 60 seconds.) }
          unset $+(%,highlightspam.,$address($nick,2)) 
          halt
        }
        if ($appactive == $false) {
          if (%highlightprot.status == on) { inc -u $+ %highlight.secs $+(%,highlightspam.,$address($nick,2)) }
          if ($window(@Highlights)) { closewin | showpopup $nick highlighted you in $chan on $network saying $strip($qt($nick $1-)) }
          else { showpopup $nick highlighted you in $chan on $network saying $strip($qt($nick $1-)) }
          if (%logging.high == on) { write highlights.txt $time([hh:nn:ssTT) @ $date(dd/mm/yy]) $+($nick,/,$chan,/,$network,:) $strip($nick $1-) }
        }
        else { 
          echo -a $c.(*** Highlight: $nick highlighted you in $chan on $network saying $strip($qt($nick $1-)))
          if (%highlightprot.status == on) { inc -u $+ %highlight.secs $+(%,highlightspam.,$address($nick,2)) }
          if (%logging.high == on) { write highlights.txt $time([hh:nn:ssTT) @ $date(dd/mm/yy]) $+($nick,/,$chan,/,$network,:) $strip($nick $1-) }
        }
      }
    }
  }
}
on *:ACTION:*:?:{
  if ($query($nick) == $active) && ($appactive == $true) { halt }
  if (%highlight.yeah == on) {
    if ($highlighttrig($1-) == yes) || ($+(*,$me,*) iswm $1-) {
      if ($isbot($nick) == $false) { 
        if ($($+(%,highlightspam.,$address($nick,2)),2) >= %highlight.times) { 
          .ignore -u60 $nick 2 
          if ($appactive == $false) {
            if ($window(@Highlights)) { closewin | showpopup $nick triggerd your highlight spam protection! Ignoring user for 60 seconds. }
            else { showpopup $nick triggerd your highlight spam protection! Ignoring user for 60 seconds. }
          }
          else { echo -a $c.(*** $nick triggerd your highlight spam protection! Ignoring user for 60 seconds.) }
          unset $+(%,highlightspam.,$address($nick,2)) 
          halt
        }
        if ($appactive == $false) {
          if (%highlightprot.status == on) { inc -u $+ %highlight.secs $+(%,highlightspam.,$address($nick,2)) }
          if ($window(@Highlights)) { closewin | showpopup $nick highlighted you in query on $network saying $strip($qt($nick $1-)) }
          else { showpopup $nick highlighted you in query on $network saying $strip($qt($nick $1-)) }
          if (%logging.high == on) { write highlights.txt $time([hh:nn:ssTT) @ $date(dd/mm/yy]) $+($nick,/,QUERY,/,$network,:) $strip($nick $1-) }
        }
        else { 
          echo -a $c.(*** Highlight: $nick highlighted you in query on $network saying $strip($qt($nick $1-)))
          if (%highlightprot.status == on) { inc -u $+ %highlight.secs $+(%,highlightspam.,$address($nick,2)) }
          if (%logging.high == on) { write highlights.txt $time([hh:nn:ssTT) @ $date(dd/mm/yy]) $+($nick,/,QUERY,/,$network,:) $strip($nick $1-) }
        }
      }
    }
  }
}
on *:TEXT:*:#:{
  if ($chan == $active) && ($appactive == $true) { halt }
  if (%highlight.yeah == on) {
    if ($highlighttrig($1-) == yes) || ($+(*,$me,*) iswm $1-) {
      if ($isbot($nick) == $false) { 
        if ($($+(%,highlightspam.,$address($nick,2)),2) >= %highlight.times) { 
          .ignore -u60 $nick 2 
          if ($appactive == $false) {
            if ($window(@Highlights)) { closewin | showpopup $nick triggerd your highlight spam protection! Ignoring user for 60 seconds. }
            else { showpopup $nick triggerd your highlight spam protection! Ignoring user for 60 seconds. }
          }
          else { echo -a $c.(*** $nick triggerd your highlight spam protection! Ignoring user for 60 seconds.) }
          unset $+(%,highlightspam.,$address($nick,2)) 
          halt
        }
        if ($appactive == $false) {
          if (%highlightprot.status == on) { inc -u $+ %highlight.secs $+(%,highlightspam.,$address($nick,2)) }
          if ($window(@Highlights)) { closewin | showpopup $nick highlighted you in $chan on $network saying $strip($qt($1-)) }
          else { showpopup $nick highlighted you in $chan on $network saying $strip($qt($1-)) }
          if (%logging.high == on) { write highlights.txt $time([hh:nn:ssTT) @ $date(dd/mm/yy]) $+($nick,/,$chan,/,$network,:) $strip($1-) }
        }
        else { 
          echo -a $c.(*** Highlight: $nick highlighted you in $chan on $network saying $strip($qt($1-)))
          if (%highlightprot.status == on) { inc -u $+ %highlight.secs $+(%,highlightspam.,$address($nick,2)) }
          if (%logging.high == on) { write highlights.txt $time([hh:nn:ssTT) @ $date(dd/mm/yy]) $+($nick,/,$chan,/,$network,:) $strip($1-) }
        }
      }
    }
  }
}
on *:TEXT:*:?:{
  if ($query($nick) == $active) && ($appactive == $true) { halt }
  if (%highlight.yeah == on) {
    if ($highlighttrig($1-) == yes) || ($+(*,$me,*) iswm $1-) {
      if ($isbot($nick) == $false) { 
        if ($($+(%,highlightspam.,$address($nick,2)),2) >= %highlight.times) { 
          .ignore -u60 $nick 2 
          if ($appactive == $false) {
            if ($window(@Highlights)) { closewin | showpopup $nick triggerd your highlight spam protection! Ignoring user for 60 seconds. }
            else { showpopup $nick triggerd your highlight spam protection! Ignoring user for 60 seconds. }
          }
          else { echo -a $c.(*** $nick triggerd your highlight spam protection! Ignoring user for 60 seconds.) }
          unset $+(%,highlightspam.,$address($nick,2)) 
          halt
        }
        if ($appactive == $false) {
          if (%highlightprot.status == on) { inc -u $+ %highlight.secs $+(%,highlightspam.,$address($nick,2)) }
          if ($window(@Highlights)) { closewin | showpopup $nick highlighted you in query on $network saying $strip($qt($1-)) }
          else { showpopup $nick highlighted you in query on $network saying $strip($qt($1-)) }
          if (%logging.high == on) { write highlights.txt $time([hh:nn:ssTT) @ $date(dd/mm/yy]) $+($nick,/,QUERY,/,$network,:) $strip($1-) }
        }
        else { 
          echo -a $c.(*** Highlight: $nick highlighted you in query on $network saying $strip($qt($1-)))
          if (%highlightprot.status == on) { inc -u $+ %highlight.secs $+(%,highlightspam.,$address($nick,2)) }
          if (%logging.high == on) { write highlights.txt $time([hh:nn:ssTT) @ $date(dd/mm/yy]) $+($nick,/,QUERY,/,$network,:) $strip($1-) }
        }
      }
    }
  }
}
menu channel,status {
  -
  Highlight Logs:highlightlogs
}
dialog highlight {
  title Highlight logs $+($chr(40),$lines(highlights.txt),$chr(41))
  size -1 -1 230 174
  option dbu
  list 1, 6 12 218 81, size hsbar vsbar
  box "Logs", 2, 4 2 223 96
  button "Delete", 3, 64 107 37 12
  button "Clear logs", 4, 64 126 37 12
  text "Written by Mr_White (AKA Arbiter) @ sir_sonic1234@yahoo.com", 9, 151 146 69 23
  link "alice.heliohost.org", 11, 175 133 48 8
  button "Close", 12, 113 126 37 12, ok cancel
  radio "Enable Logging", 8, 7 112 50 10, group
  radio "Disable Logging", 10, 7 128 50 10
  button "Update Bots", 13, 113 107 37 12
  text "Credit for the popup alias goes to Xnemesis (www.crispycrisp.org)", 14, 165 103 54 25
  button "Highlight Triggers", 5, 64 143 27 22, multi
  button "Highlight Spam", 6, 102 143 27 22, multi
  radio "Enable Highlights", 7, 7 142 52 10, group
  radio "Disable Highlights", 15, 7 156 53 10
  box "On/Off swtiches", 16, 4 102 58 69
}
on *:dialog:highlight:*:*:{ 
  if ($devent == init) && ($did == 0) { updateit | did -z highlight 1 }
  if ($devent == sclick) {
    if ($did == 3) { 
      var %l = $read(highlights.txt,nw,$+(*,$gettok($did(highlight,1).seltext,5-,32),*))
      write -dw $+ $qt(%l) highlights.txt %l
      closeit
    }
    if ($did == 4) { write -c highlights.txt | echo -at $c.(*** Highlight log files cleard.) | closeit }
    if ($did == 8) { 
      if (%logging.high == on) { echo -at $c.(*** Error: Highlight logging is already on!) }
      else {
        set %logging.high on
        echo -at $c.(*** Highlight logging enabled.)
      }
    }
    if ($did == 10) { 
      if (%logging.high == off) { echo -at $c.(*** Error: Highlight logging is already off!) }
      else {
        set %logging.high off
        echo -at $c.(*** Highlight logging disabled.)
      }
    }
    if ($did == 12) { dialog -x highlight }
    if ($did == 13) { botlist }
    if ($did == 5) { dialog -x highlight | dialog -dm trigs trigs }
    if ($did == 6) { dialog -x highlight | dialog -dm protecthi protecthi }
    if ($did == 7) { 
      if (%highlight.yeah == on) { echo -at $c.(*** Error: Highlight alerts are already on!) }
      else {
        set %highlight.yeah on
        echo -at $c.(*** Highlight alerts are now enabled.)
      }
    }
    if ($did == 15) { 
      if (%highlight.yeah == off) { echo -at $c.(*** Error: Highlight alerts are already off!) }
      else {
        set %highlight.yeah off
        echo -at $c.(*** Highlight alerts are now disabled.)
      }
    }
  }
  if ($devent == dclick) {
    if ($did == 1) { 
      clipboard $did(highlight,1).seltext
    }
  }
}
dialog trigs {
  title Highlight Triggers $+($chr(40),$lines(highlighttrigs.txt),$chr(41))
  size -1 -1 242 161
  option dbu
  combo 1, 10 15 222 99, size edit hsbar vsbar
  box "Triggers", 2, 6 6 230 112
  button "Add", 3, 10 124 37 12
  button "Delete", 4, 10 143 37 12
  button "Clear", 5, 60 124 37 12
  button "Save && Close", 6, 60 143 37 12, ok cancel
  edit "Notes: Regex is not supported in the highlight triggers. To add a highlight, input it in the edit box above and hit Add. To delete a trigger, highlight the trigger in the list box and hit Delete. Clear removes all triggers.", 7, 106 121 131 37, read multi
}
on *:dialog:trigs:*:*:{ 
  if ($devent == init) && ($did == 0) { updateit2 }
  if ($devent == sclick) {
    if ($did == 4) { 
      var %l = $read(highlighttrigs.txt,nw,$+(*,$did(trigs,1).seltext,*))
      write -dw $+ $qt(%l) highlighttrigs.txt %l
      closeit2
    }
    if ($did == 5) { write -c highlighttrigs.txt | echo -at $c.(*** Highlight triggers cleard.) | closeit2 }
    if ($did == 3) { write highlighttrigs.txt $did(trigs,1).text | closeit2 }
  }
}
dialog protecthi {
  title "Highlight spam options"
  size -1 -1 178 112
  option dbu
  radio "On", 1, 7 17 23 10
  radio "Off", 2, 7 39 26 10
  box "Protection status", 3, 4 6 51 50
  button "Close", 4, 5 59 37 12, ok cancel
  button "Highlight Log", 5, 5 76 37 12
  button "Highlight Triggers", 6, 5 92 37 17, multi
  box "Options", 7, 95 4 74 42
  text "Secs:", 10, 99 15 18 8
  text "Times:", 11, 99 30 20 8
  edit "", 12, 121 15 20 10
  edit "", 13, 121 30 20 10
  text "Notes: Use the ON/OFF switchs to enable/disable the highlgiht spam protection. In the options part, Times = the amount of times you're highlighted by the same person in X seconds (Secs section).", 14, 58 70 114 37
  button "Save", 15, 127 52 37 12
}
on *:dialog:protecthi:*:*:{ 
  if ($devent == init) && ($did == 0) { updateit3 }
  if ($devent == sclick) { 
    if ($did == 1) { set %highlightprot.status on | echo -at *** Highlight spam protection is now on. }
    if ($did == 2) { set %highlightprot.status off | echo -at *** Highlight spam protection is now off. }
    if ($did == 5) { dialog -x protecthi | dialog -dm highlight highlight }
    if ($did == 6) { dialog -x protecthi | dialog -dm trigs trigs }
    if ($did == 15) { 
      if ($did(protecthi,12).text != $null) && ($did(protecthi,13).text != $null) { 
        set %highlight.secs $did(protecthi,12).text 
        set %highlight.times $did(protecthi,13).text
        echo -at $c.(*** Highlight protection will now ignore user (when activated) after $did(protecthi,13).text times in $did(protecthi,12).text seconds.)
      }
      else { echo -at c.(*** Error: Secs/Times values cannot be blank! Using defualt values instead.) | set %highlight.secs 15 | set %highlight.times 5 | dialog -x protecthi | dialog -dm protecthi protecthi }
    }
  }
}
alias highlighttrig {
  var %i = 1
  while (%i <= $lines(highlighttrigs.txt)) {
    if ($+(*,$read(highlighttrigs.txt,%i),*) iswm $1-) { return yes | .break }
    else { inc %i } 
  }
} 
alias -l updateit3 {
  did -c protecthi $iif(%highlightprot.status == on,1,2)  
  did -a protecthi 12 %highlight.secs 
  did -a protecthi 13 %highlight.times
}
alias -l updateit2 {
  var %i = 1 
  while (%i <= $lines(highlighttrigs.txt)) {
    did -a trigs 1 $read(highlighttrigs.txt,n,%i)
    inc %i
  }
}
alias -l updateit {
  did -c highlight $iif(%logging.high == on,8,10)  
  did -c highlight $iif(%highlight.yeah == on,7,15)
  var %i = 1 
  while (%i <= $lines(highlights.txt)) {
    did -a highlight 1 $read(highlights.txt,n,%i)
    inc %i
  }
}
alias -l c. { return $+($chr(3),$color(info text).dd,$1-,$chr(3)) }
alias -l closeit { dialog -x highlight | dialog -dm highlight highlight }
alias -l closeit2 { dialog -x trigs | dialog -dm trigs trigs }
alias highlightlogs {
  if ($dialog(highlight)) { dialog -x highlight | dialog -dm highlight highlight }
  else { dialog -dm highlight highlight }
}
on ^*:NOTICE:*:?: {
  if ($nick = BotServ && %botlist) {
    haltdef
    if ($regex($1-,/^(S+) (w+@w+.w+(?:.w+)*)$/Si)) write bots.txt $regml(1)
    elseif ($regex($1-,/^(d+) bots available.$/Si)) {
      unset %botlist
      echo -a $c.(Finished writing bots to BotList. There are currently $regml(1) bots available. This alias was written by Kol of SwiftIRC.)
    }
  }
}
alias isbot return $iif($read(bots.txt,r,/^Q $+ $$1 $+ E$/),$true,$false)
alias botlist {
  echo -a $c.(Updating BotList)
  bs botlist
  set %botlist on
  write -c bots.txt
}
alias closewin { window -c @Highlights }
alias showPopup {
  window -pBdk0w0o +blL @Highlights $calc(%highlights.screenx - 250) $calc(%highlights.screenx - 92) 250 63 Tahoma 10
  drawfill @Highlights $popc1 $popc1 0 0
  var %highlights.nxtln = $true, %highlights.popup = $1-, %highlights.y = 9
  while (%highlights.nxtln) {
    if ($len(%highlights.popup) > 50) {
      if (%highlights.y == 39) {
        drawtext -p @Highlights $popc2 10 %highlights.y $mid(%highlights.popup,0,46) ...
        unset %highlights.nxtln
        unset %highlights.popup
      }
      else {
        drawtext -p @Highlights $popc2 10 %highlights.y $mid(%highlights.popup,0,50)
        %highlights.popup = $mid(%highlights.popup,51,$mid(%highlights.popup,51,0))
      }
    }
    else {
      drawtext -p @Highlights $popc2 10 %highlights.y %highlights.popup
      unset %highlights.nxtln
      unset %highlights.popup
    }
    inc %highlights.y 10
  }
  .timerwin 1 5 window -c @Highlights
}
alias -l popc1 {
  return 15
}
alias -l popc2 {
  return 01
}
on *:start:{
  %highlights.screenx = $window(-1).w 
  %highlights.screeny = $window(-1).h
}
on *:load:{
  %highlights.screenx = $window(-1).w 
  %highlights.screeny = $window(-1).h
  %highlight.secs = 15
  %highlight.times = 5
}

Comments

(4) RSS

Go to Bottom

SnoooP

Comments: 348

mIRC Snippet: Highlight alerts/logs
Posted on Feb 25, 2008 8:39 am

good job. i cannot beleive what boredom does to people though :P lol

Korvin

Comments: 241

mIRC Snippet: Highlight alerts/logs
Posted on Feb 25, 2008 9:46 am

just a little starter for a new coder: ($appactive == $true) is the same thing as ($appactive) =D

tzar469

Comments: 17

mIRC Snippet: Highlight alerts/logs
Posted on Feb 25, 2008 6:58 pm

Adding to what Korvin said, ($appactive == $false) is the same as ($!appactive)

RagBot

Comments: 34

mIRC Snippet: Highlight alerts/logs
Posted on Jun 4, 2008 4:50 pm

i very highly dislike the 60 second ignore when they only say my name once :(
Example:
User1: Hey User2 I need to tell you something important.
(ignored)
User1: (secret ignored)

it's just really tedious to have to ask them to say it again :(
I still give a 7/10 for quality of the script.

Sir_Sonic12


Last seen: Mar 25, 2008 Profile Friends (1) Snippets (2) Comments Received (6) Comments Submitted (4) Forum Posts (92)

My Snippet Tags

Contact

Add to Friends

Send Private Message

Friends (1)

aLie

View All