Pager
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----------------------------
}
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
Saturday, June 26, 2004 10:53am PDT
just tellin you, this would probably be considered more of a snippet than a project. ;)
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! =)
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
}
}
}
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-)
}
}
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!