Highlight Script

By sjefke on May 09, 2008

Hello, this is my first snippet upload here.

I primarily uploaded this script because i had a little problem with the script. I have been looking for a way to add more words to respond to, but it didn't work out.

The reason me and my friend made this script was that we got sick from highlights by some people, but didnt think it was necesarry to ignore them, because then you don't get any messages.

I would already like to thank you guys for the ideas you guys/girls will bring

on *:TEXT:*Sjefke*:#: {
  set %chan $chan
  set %nrm 0
  :num
  inc %nrm
  if $chan == $read(chans.txt, %nrm)) { halt }
  $iif(%nrm >= 100, goto ver, goto num)
  :ver
  set %nmr 0
  if (%highlight == 0) { halt }
  :numm
  inc %nmr
  if ($nick == $read(nicks.txt, %nmr)) { halt } 
  $iif(%nmr >= 100, goto verd, goto numm)
  :verd
  //echo -a 4 $nick  $+ said   $+ :' 12 $1-  $+ ' on 7 $chan 2 at 4 $time $+ !
  if (%flash == 0) goto beep 
  /flash -bN $nick Highlighted $me on %chan
  :beep  
  if (%beep == 0) goto tip
  /beep %beeps
  :tip
  if (%tip == 0) { halt } 
  $tip(Highlight,Active highlight,$nick Highlighted $me on %chan,30,$null,$null,$null,$null) 
}

Alias Highlight dialog -md Highlight Highlight
Menu * {
  -
  Highlight dialog V3.0:Highlight
  -
} 
dialog Highlight {
  title "Highlight dialog"
  size -1 -1 235 256
  option dbu
  text "Once clicked off it will eliminate everything that is below it.", 1, 10 10 235 10
  text "Highlight", 2, 10 20 70 10
  button "on", 21, 10 30 30 10
  button "off", 22, 50 30 30 10
  text "Flash + Afterbeep", 5, 10 50 70 10
  Button "on", 51, 10 60 30 10
  Button "off", 52, 50 60 30 10
  text "Beep", 3, 10 80 70 10
  button "on", 31, 10 90 30 10
  Button "off", 32, 50 90 30 10
  text "Number of beeps", 33, 10 110 100 10 
  edit "", 34, 10 120 40 10
  button "Confirm", 35, 60 120 30 10
  text "Tipmessage", 4, 10 140 70 10
  Button "on", 41, 10 150 30 10
  Button "off", 42, 50 150 30 10
  Box "Information", 6, 10 200 200 50
  Button "Add name", 70, 85 165 35 10
  Button "Delete name", 72, 125 165 35 10
  edit "", 71, 10 165 70 10  
  edit "", 73, 10 180 70 10  
  Button "Add chan", 74, 85 180 35 10
  Button "Delete chan", 76, 125 180 35 10
  text "Script made by: Manja and Sjefke", 61, 15 210 150 7
  text "Version: V3.0", 62, 15 217 150 7
  text "Dialog made by: Sjefke", 63, 15 224 150 7
  text "With help from: N/A", 64, 15 231 150 7
}
on *:dialog:Highlight:sclick:21:{ set %Highlight 1 }
on *:dialog:Highlight:sclick:22:{ set %Highlight 0 }
on *:dialog:Highlight:sclick:51:{ set %flash 1 }
on *:dialog:Highlight:sclick:52:{ set %flash 0 }
on *:dialog:Highlight:sclick:31:{ set %beep 1 }
on *:dialog:Highlight:sclick:32:{ set %beep 0 }
on *:dialog:Highlight:sclick:35:{ set %beeps $did(34) }
on *:dialog:Highlight:sclick:41:{ set %tip 1 }
on *:dialog:Highlight:sclick:42:{ set %tip 0 }
on *:dialog:Highlight:sclick:70:{ write nicks.txt $did(71) }
on *:dialog:Highlight:sclick:72:{ write -dw $+ $did(71) nicks.txt }
on *:dialog:Highlight:sclick:74:{ write chans.txt $did(73) }
on *:dialog:Highlight:sclick:76:{ write -dw $+ $did(73) chans.txt }

Comments

Sign in to comment.
[Joshh]   -  May 09, 2008

i forgot a bracket

in the if ($regex statement, add a ) at the end

it should look like this

if ($regex($1-,/\b(Sjefke|nick2|nick3|nick4|..|)\b/Si)) {

 Respond  
[Joshh]   -  May 09, 2008

on :TEXT::#: {
if ($regex($1-,/(Sjefke|nick2|nick3|nick4|..|)/Si) {
set %chan $chan
set %nrm 0
:num
inc %nrm
if $chan == $read(chans.txt, %nrm)) { halt }
$iif(%nrm >= 100, goto ver, goto num)
:ver
set %nmr 0
if (%highlight == 0) { halt }
:numm
inc %nmr
if ($nick == $read(nicks.txt, %nmr)) { halt }
$iif(%nmr >= 100, goto verd, goto numm)
:verd
//echo -a 4 $nick $+ said $+ :\' 12 $1- $+ \' on 7 $chan 2 at 4 $time $+ !
if (%flash == 0) goto beep
/flash -bN $nick Highlighted $me on %chan
:beep
if (%beep == 0) goto tip
/beep %beeps
:tip
if (%tip == 0) { halt }
$tip(Highlight,Active highlight,$nick Highlighted $me on %chan,30,$null,$null,$null,$null)
}
}

 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.