Pager
Posted by scoutZor
Saturday, June 26, 2004
Description: when someone types .need<(ur choice)>   I use scoutZor, u can change

on 1:text:*.needscoutZor*:#:{
  .msg $me [^K]4,1----------------------------
  .msg $me [^K]9,1 $nick $+ :
  .msg $me [^K]9,1 $time
  .msg $me [^K]9,1 $date
  .msg $me [^K]9,1 $chan
  .msg $me [^K]9,1 $2-
  .msg $me [^K]4,1----------------------------
}
oops
Posted by Othello
Saturday, June 26, 2004 08:09am PDT
Sorry bout that, I hit the back button and it re-submitted.

---

My mistake, you have to change were it says..

notice $nick Insufficient parameters: $2 [Message] | halt

to...

notice $nick Insufficient parameters: $1 [Message] | halt
scoutZor
Posted by dirtySanchez
Saturday, June 26, 2004 10:53am PDT
just tellin you, this would probably be considered more of a snippet than a project. ;)
Othello
Posted by scoutZor
Saturday, June 26, 2004 01:09pm PDT
on *:text:*:#:{
  if ($1 == .pagescoutZor) {
    if (!$2) {
      notice $nick Insufficient parameters: $1 [Message] | halt
    }
    else {
      echo -a [^K]4,1-
      echo -a [^K]4,1-------------------------------
      echo -a [^K]4,1--[^K]9[^B]Nick:[^B] $nick
      echo -a [^K]4,1--[^K]9[^B]Date:[^B] $date(dddd mmmm dd $+ $chr(44) yyyy)[^O][^O]
      echo -a [^K]4,1--[^K]9[^B]Time:[^B] $asctime(hh:nn:ss TT)[^O][^O]
      echo -a [^K]4,1--[^K]9[^B]Channel[^B]: $chan
      echo -a [^K]4,1--[^K]9[^B]Message:[^B] $2-[^O][^O]
      echo -a [^K]4,1-------------------------------
      echo -a [^K]4,1-
      .notice $nick $me Has been paged. Please be patient, I might be AFK.
    }
  }
}

Ok i took your and add some color, and added a line where it notices them that you have been paged. I also changed the first like,  if ($1 == .pagescoutZor) {
because i couldnt get yours to work. Enjoy! =)
Subject line
Posted by Ouchy
Monday, July 26, 2004 07:12pm PDT
This is a pager i wrote for myself. You can modify it if you want. I set it up to allow me to turn it off if I want to. And it stores all pages into a @window that i personally setup not to log but can be changed easily. But i rarely ever turn off mirc so i dont need the logs. :)



; To Disable your pager type /poff
alias poff {
  set %pager.disabled $$?="Reason for disabling pager:"

  ;set %pager.disabled $1-
  echo -a Your Pager is Disabled because you are away [^B][-[^B] %pager.disabled [^B]-][^B] $+.
}

; To Re-Enable Your pager type /pon
alias pon {
  unset %pager.disabled
  echo -a Pager is Enabled.
}


on *:TEXT:.need*:#: {

  ; ------- If you Disable the pager.
  if ($+ %pager.disabled != $null && ( $1 == .needname1 || $1 == .needname2)) {
    ; ------- Notice the $nick that your pager is disabled. -------
    .notice $nick My pager is disabled because ( $+ %pager.disabled $+ ).
    ; ------- First Open a @window to store the message. -------
    /window -en @Paged
    ; ------- Now Put the message into the window. -------
    echo -tm @Paged $+(<,$nick,>) $+([^B][-[^B] $chan [^B]-][^B]) $1-
  halt }

  ; ------- If You are Away.
  else if ($away == $true && ( $1 == .needname1 || $1 == .needname2)) {
    ; ------- Notice the $nick that your Away. -------
    .notice $nick My pager is disabled because I am away ( $+ $awaymsg $+ , for $duration($awaytime) $+ ).  Idle for: $duration($idle)
    ; ------- First Open a @window to store the message. -------
    /window -en @Paged
    ; ------- Now Put the message into the window. -------
    echo -tm @Paged $+(<,$nick,>) $+([^B][-[^B] $chan [^B]-][^B]) $1-
    } else {

    ; ------- If your active and pager is not disabled.
  if ( $1 == .needname1 || $1 == .needname2) {
      ; ------- First Open a @window to store the message. -------
      /window -ea @Paged
      ; ------- Now Put the message into the window. This will bring the window to the front so you see the message right away.
      echo -tm @Paged $+(<,$nick,>) $+([^B][-[^B] $chan [^B]-][^B]) $1-
      ; ------- Notice the $nick that you recieved the page. -------        
      .notice $nick Page received. [^B][- [^B]Away: $iif($away, $awaymsg ( $+ $duration( $awaytime ) $+ ), No) [^B]-][^B]  [^B][- [^B]Idle: $duration( $idle ) $+ . [^B]-][^B]
      ; I plan to make this play a .wav file. But for now just 5 beeps.
      beep 5
    }
  }
}
Much better highlight
Posted by Othello
Saturday, April 16, 2005 07:52am PDT
This is the one i made recently...

dialog HighlightConfig {
  title "Highlight Configuration"
  size -1 -1 104 50
  option dbu
  text "Highlight Configuration", 1, 24 3 55 8
  text "Your Alias:", 2, 4 18 26 8
  edit "", 3, 32 17 66 10, autohs
  button "Enable", 6, 12 33 37 12
  button "Disable", 7, 54 33 37 12, disable
  menu "File", 4
  item "Exit", 5, 4, cancel
}

menu Status,Channel {
Hightligh Configuration:dialog -m HighlightConfig HighlightConfig
}

on *:dialog:HighlightConfig:init:*:{
  if (%Highlight.Status == Enabled) {
   did -e HighlightConfig 7
   did -b HighlightConfig 6
   did -ra HighlightConfig 3 %Highlight.Alias
}
}

on *:dialog:HighlightConfig:edit:3:{
   set %Highlight.Alias $did(3)
}

on *:dialog:HighlightConfig:sclick:*:{
  if ($did == 6) {
   set %Highlight.Status Enabled
   did -e HighlightConfig 7
   did -b HighlightConfig 6
}
  if ($did == 7) {
   set %Highlight.Status Disabled
   did -e HighlightConfig 6
   did -b HighlightConfig 7
}
}

on *:load:{
  if ($input(Configure highlight now?,y) == $true) {
   dialog -m HighlightConfig HighlightConfig
}
}

on *:text:*:#:{
  if (%Highlight.Alias isin $1-) && ($active != $chan) && (%Highlight.Status == Enabled) {
    if ($window(@highlight) == $null) {
      window -a @Highlight
    }
    beep 3
    echo @Highlight ---
    echo @Highlight [^B][[^K]2HIGHLIGHT TRIGGER[^K]][^B]
    echo @Highlight -
    echo @Highlight [^U]Network:[^U] $network
    echo @Highlight [^U]Channel:[^U] $chan
    echo @Highlight [^U]Time:[^U] $asctime(hh:nn TT (mmm/dd))
    echo @Highlight [^U]SCYN:[^U] < $+ $nick $+ > $1-
    write highlight-log.txt $chr(91) $+ $asctime(hh:nn TT (mmm/dd)) $+ $chr(93) (Msg to $chan $+ ) $+(<,$nick,>) $strip($1-)
  }
}

on *:notice:*:#:{
  if (%Highlight.Alias isin $1-) && ($active != $chan) && (%Highlight.Status == Enabled) {
    if ($window(@highlight) == $null) {
      window -a @Highlight
    }
    beep 3
    echo @Highlight ---
    echo @Highlight [^B][[^K]4HIGHLIGHT TRIGGER[^K]][^B]
    echo @Highlight -
    echo @Highlight [^U]Network:[^U] $network
    echo @Highlight [^U]Channel:[^U] $chan
    echo @Highlight [^U]Time:[^U] $asctime(hh:nn TT (mmm/dd))
    echo @Highlight [^U]NCYN:[^U] - $+ $nick $+ - $1-
    write highlight-log.txt $chr(91) $+ $asctime(hh:nn TT (mmm/dd)) $+ $chr(93) (Notice to $chan $+ ) $+(<,$nick,>) $strip($1-)
  }
}

ok OT
Posted by JcD
Saturday, September 10, 2005 09:27am PDT
Ok ot even tho u edited mine i gotta post it here :P

menu status,pager,@pager {
  -
  Pager
  .pager window:{
    if (!$window(@pager)) {
      pager
      halt
    }
    else {
      echo -a The pager window is already open
    }
  }
}
on *:TEXT:*:?:{
  if (page == $1) {
    page $nick $2-
  }
}

alias pager {
  window -e @pager
  aline @pager -------------------------------------------
  aline @pager ---
  aline @pager --- Just loaded Pager Script
  aline @pager ---
  aline @pager --- Created by JcD
  aline @pager ---
  aline @pager -------------------------------------------
}

alias page {
  if (!$window(@pager)) {
    winsow -e @pager
  }
  else {
    aline @pager -------------------------------------------
    aline @pager ---
    aline @pager --- $1 has just paged you.
    aline @pager --- $asctime(hh:nn) $+ , $date $+
    aline @pager ---
    aline @pager --- Message: $2-
    aline @pager ---
    aline @pager -------------------------------------------
    msg $1 Thank you for the page $1 $+ , il make sure to respond as soon as possible.
  }
}
Submit a comment
Oops! You need to login or register before you can post a comment!

ebaum's world