!Pager

+ 0 likes

Please Register to submit score.

Average Score	7.7
Scores Submitted	3
Date Added	Jul 23, 2008
Last Updated	Jul 23, 2008

Introduction

Ok copy the code below and paste it in a new remote ALT +r and save if u wish.Something small here one of my friends asked me for a little pager using !triggers just to beep them when then are away or what have you.So heres my mini version and its an animated dialog an title as well ;p thought i d throw the animation in there cause it not a huge dialog.You can add as many as 10 !triggers to the list i limited it to 10 because theres no real reason to have any more then that.You can change the amount of Beeps and the milliseconds between beeps to your own liking based on preset selections and you can message the channel your in the !triggers to beep you.Fairly simple and straight forward.Any bugs lemme know an as always comments an appreciated.`-.-´

Grab the Code

dialog _Page {
  title " "
  size -1 -1 120 1
  option dbu
  box "Pager !Trigger Add/Rem", 9, 3 2 69 77
  box "Beep Options", 8, 77 21 40 58
  list 1, 8 12 60 31, size
  button "Add", 2, 9 56 27 10
  button "Remove", 3, 38 56 28 10
  radio "", 4, 77 4 40 9
  radio "", 5, 77 12 40 9
  edit "", 6, 8 45 60 10, autohs
  text "# of Beeps", 7, 82 30 28 8
  list 10, 80 40 34 10, vsbar size
  text "Beep Delay", 11, 82 53 28 8
  list 12, 80 64 33 9, vsbar size
  button "Msg Chan !Triggers", 13, 9 66 57 10
}

menu * {
  Mini !Trigger Pager: { _Page }
}
alias _Page {
  if ($dialog(_Page)) {
    dialog -x _Page _Page 
  }
  else {
    dialog -m _Page _Page
  }
}
alias _Pager_DS {
  var %__PageI 0
  while (%__PageI <= 83) {
    dialog -srb _Page 120 -1 120 %__PageI
    if (%__PageI == 83) { .timer -m 1 2 _Pager_Tan_ }
    inc %__PageI
  }
}
alias _Pager_Tan_ {
  var %_PageI 1
  while (%_PageI <= 30) {
    dialog -t _Page $right(Mini !Trigger Pager ‹™›.,%_PageI)
    var %_PageT 1
    while (%_PageT <= 1000) inc %_PageT
    inc %_PageI
  }
}
on *:dialog:_Page:init:*: {
  if (%_Pager == On) { did -c $dname 4 | did -ra $dname 4 Pager On | did -ra $dname 5 | did -e $dname 13  }
  if (%_Pager == Off) { did -c $dname 5 | did -ra $dname 5 Pager Off | did -ra $dname 4 | did -b $dname 13 }
  if (!%_Pager) { did -c $dname 5 | did -ra $dname 5 Pager Off | did -ra $dname 4 | did -b $dname 13 }
  if ($lines(Page_Triggers.txt) >= 10) { did -b $dname 2 | did -b $dname 6  }
  if ($lines(Page_Triggers.txt) == 0) { did -b $dname 3 | did -b $dname 13 }
  .timer -m 1 1 _Pager_DS
  _Page_Trigg_Load
  did -a $dname 6 !
  did -a $dname 10 Default
  did -a $dname 10 2
  did -a $dname 10 3
  did -a $dname 10 4
  did -a $dname 10 5
  did -a $dname 10 6
  did -a $dname 10 7
  did -a $dname 10 8
  did -a $dname 10 9
  did -a $dname 10 10
  did -a $dname 12 Default
  did -a $dname 12 200
  did -a $dname 12 400
  did -a $dname 12 800
  did -a $dname 12 900
  did -a $dname 12 1000
  did -a $dname 12 2000
  did -a $dname 12 3000
  did -a $dname 12 4000
  did -a $dname 12 5000
}
alias _Page_Trigg_Load {
  var %_Page_Trigg_INC = 1
  while (%_Page_Trigg_INC <= $lines(Page_Triggers.txt)) {
    did -a _Page 1 $read(Page_Triggers.txt,%_Page_Trigg_INC))
    inc %_Page_Trigg_INC
  }
}
alias _Page_Trigg_Msg {
  var %_Page_Trigg_INCM = 1
  while (%_Page_Trigg_INCM <= $lines(Page_Triggers.txt)) {
    var %_Page_Trigg_MSG $addtok(%_Page_Trigg_MSG,$read(Page_Triggers.txt,%_Page_Trigg_INCM),44)
    if (%_Page_Trigg_INCM == $lines(Page_Triggers.txt)) { msg %_Page_Trigg_Msg_Chan My mini pager Is on. Use the following to page me and get my attention. Mini Pagers !Triggers:  $+ %_Page_Trigg_MSG $+ . Example Syntax:  $+ $gettok(%_Page_Trigg_MSG,1,44) $+  | halt }
    inc %_Page_Trigg_INCM
  }
}
on *:dialog:_Page:sclick:*: {
  if ($did == 4) && ($did(4).state == 1) { 
    if (!$ebeeps) { _Pager_EBEEPS_ | did -u $dname 4 | did -c $dname 5 | did -ra $dname 5 Pager Off | set %_Pager Off | did -ra $dname 4 | halt } 
    if ($lines(Page_Triggers.txt) == 0) { _Page_ADD_Trigger_ | did -u $dname 4 | did -c $dname 5 | did -ra $dname 5 Pager Off | set %_Pager Off | did -ra $dname 4 | halt } 
    if (!%_Page_Num_Beeps) { did -u $dname 4 | did -c $dname 5 | _Pager_Num_Beeps | halt }
    if (!%_Page_Delay_Beeps) { did -u $dname 4 | did -c $dname 5 | _Pager_Delay_Beeps | halt }
    did -ra $dname 4 Pager On | set %_Pager On | did -ra $dname 5 | _Pager_ON_ 
    if ($lines(Page_Triggers.txt) > 0) { did -e $dname 13  }
  }
  if ($did == 5) && ($did(5).state == 1) { did -b $dname 13 | did -ra $dname 5 Pager Off | set %_Pager Off | did -ra $dname 4 |  _Pager_OFF_ }
  if ($did == 2) { 
    if ($did(6).text == !)  { _Page_ADD_Trigger_ | halt }
    if ($left($did(6).text,1) != !) { _Page_ADD_Trigger_ | var %_Page_Trigg = $did(6).text | did -ra $dname 6 ! $+ %_Page_Trigg }
    set -u10 %_Page_ADD_Trigg $did(6).text
    if ($did(6).text == $read(Page_Triggers.txt,w,$did(6).text)) { _Page_Already_Trigger_ | did -ra $dname 6 ! | halt }
    write Page_Triggers.txt $did(6).text
    _Page_Added_Trigger_
    if ($lines(Page_Triggers.txt) == 1) { did -e $dname 3 | if (%_Pager == On) { did -e $dname 13 } }
    if ($lines(Page_Triggers.txt) == 11) {  write -d Page_Triggers.txt $did(6).text | did -b $dname 2 | did -b $dname 6 | did -ra $dname 6 ! | _Page_LIM_Trigger_ | halt }
    did -a $dname 1 $did(6).text
    did -ra $dname 6 !
  }
  if ($did == 3) { 
    if (!$did(1).seltext) { _Page_Rem_No_Sel | halt }
    set -u10 %_Page_Trigg_Rem $did(1).sel
    set -u10 %_Page_Trigg_Rem2 $did(1).seltext
    var %_Page_Trigg_Rem_INC = 1
    while (%_Page_Trigg_Rem_INC <= $lines(Page_Triggers.txt)) {
      if (%_Page_Trigg_Rem_INC == %_Page_Trigg_Rem) { write -dl $+ %_Page_Trigg_Rem_INC Page_Triggers.txt | did -d $dname 1 %_Page_Trigg_Rem | _Page_Removed_Trigger_ | if ($lines(Page_Triggers.txt) <= 10) {  did -e $dname 2 |  did -e $dname 6 } | if ($lines(Page_Triggers.txt) == 0) {  did -b $dname 3 | did -b $dname 13  } | if ($lines(Page_Triggers.txt) == 0) && (%_Pager == On) { did -u $dname 4 | did -c $dname 5 | did -ra $dname 5 Pager Off | set %_Pager Off | did -ra $dname 4 } | halt } 
      inc %_Page_Trigg_Rem_INC
    }
  }
  if ($did == 13) {
    if (!$regex($active,/^(#)/i)) { _Page_No_Chan_Msg | halt }
    if ($lines(Page_Triggers.txt) == 0) { _Page_Chan_Msg | halt }
    set -u10 %_Page_Trigg_Msg_Chan $active
    _Page_Trigg_Msg
  }
  if ($did == 10) {
    set %_Page_Num_Beeps $did(10).seltext
    if (%_Page_Num_Beeps == Default) { set %_Page_Num_Beeps 1 }
  }
  if ($did == 12) {
    set %_Page_Delay_Beeps $did(12).seltext
    if (%_Page_Delay_Beeps == Default) { set %_Page_Delay_Beeps 100 }
  }
}
on *:text:*:#: {
  if (%_Pager == On) && ($left($strip($1),1) == !) {
    set -u5 %_Page_Com $strip($1)
    if (%_Page_Com == $read(Page_Triggers.txt,w,%_Page_Com)) {
      inc -u20 $+(%,_Pager_,.,$chan,.,$nick) 
      if ($($+(%,_Pager_,.,$chan,.,$nick),2) == 2) { .notice $nick  $+ $nick $+  Please wait a few momments and see If I respond to your first page. | halt }
      if ($($+(%,_Pager_,.,$chan,.,$nick),2) >= 3) { halt }
      beep %_Page_Num_Beeps %_Page_Delay_Beeps
    }
  }
}
alias _Page_Chan_Msg {
  if ($version < 6.31) { echo -a ( 4NOTICE: $+ $me $+  there Is nothing to 4MESSAGE.Please add triggers. )  
  }
  else {
    $tip(NOTICE :,4NOTICE:, $+ $me $+  4 $+ $active $+  there Is nothing to 4MESSAGE.Please add triggers., 3) 
  }
}
alias _Page_No_Chan_Msg {
  if ($version < 6.31) { echo -a ( 4NOTICE: $+ $me $+  4 $+ $active $+  Is not a channel.Please switch to a channel window. )  
  }
  else {
    $tip(NOTICE :,4NOTICE:, $+ $me $+  4 $+ $active $+  Is not a channel.Please switch to a channel window., 3) 
  }
}
alias _Page_Removed_Trigger_  {
  if ($version < 6.31) { echo -a ( 4NOTICE: $+ $me $+  the trigger 4 $+ %_Page_Trigg_Rem2 $+  has been removed. )  
  }
  else {
    $tip(NOTICE :,4NOTICE:, $+ $me $+  the trigger 4 $+ %_Page_Trigg_Rem2 $+  has been removed., 3) 
  }
}
alias  _Page_Rem_No_Sel {
  if ($version < 6.31) { echo -a ( 4NOTICE: $+ $me $+  please 4SELECT a entry to remove. )  
  }
  else {
    $tip(NOTICE :,4NOTICE:, $+ $me $+  please 4SELECT a entry to remove., 3) 
  }
}
alias _Page_LIM_Trigger_  {
  if ($version < 6.31) { echo -a ( 4NOTICE: $+ $me $+  trigger 4LIMIT has been reached.Please delete a trigger. )  
  }
  else {
    $tip(NOTICE :,4NOTICE:, $+ $me $+  trigger 4LIMIT has been reached.Please delete a trigger., 3) 
  }
}
alias _Page_Added_Trigger_  {
  if ($version < 6.31) { echo -a ( 4NOTICE: $+ $me $+  the trigger 4 $+ %_Page_ADD_Trigg $+  has been added. )  
  }
  else {
    $tip(NOTICE :,4NOTICE:, $+ $me $+  the trigger 4 $+ %_Page_ADD_Trigg $+  has been added., 3) 
  }
}
alias _Page_Already_Trigger_  {
  if ($version < 6.31) { echo -a ( 4NOTICE: $+ $me $+  the trigger 4 $+ %_Page_ADD_Trigg $+  has already been made.Please make another. )  
  }
  else {
    $tip(NOTICE :,4NOTICE:, $+ $me $+  the trigger 4 $+ %_Page_ADD_Trigg $+  has already been made.Please make another., 3) 
  }
}
alias _Page_ADD_Trigger_  {
  if ($version < 6.31) { echo -a ( 4NOTICE: $+ $me $+  please 4ADD a !trigger command. )  
  }
  else {
    $tip(NOTICE :,4NOTICE:, $+ $me $+  please 4ADD a !trigger command., 3) 
  }
}
alias _Pager_Num_Beeps {
  if ($version < 6.31) { echo -a ( 4NOTICE: $+ $me $+  please choose the amount of beeps you receive when 4!TRIGGERED. )  
  }
  else {
    $tip(NOTICE :,4NOTICE:, $+ $me $+  please choose the amount of beeps you receive when 4!TRIGGERED., 3) 
  }
}
alias _Pager_Delay_Beeps {
  if ($version < 6.31) { echo -a ( 4NOTICE: $+ $me $+  please choose the amount of time in milliseconds Inbetween beeps you receive when 4!TRIGGERED. )  
  }
  else {
    $tip(NOTICE :,4NOTICE:, $+ $me $+  please choose the amount of time in milliseconds Inbetween beeps you receive when 4!TRIGGERED., 3) 
  }
}
alias _Pager_EBEEPS_ {
  if ($version < 6.31) { echo -a ( 4NOTICE: $+ $me $+  your mIRC sounds are not 4ON.You may not proceed until you enable your sounds.Hold down 4ALT +o and go to sounds and check the enable sounds check box. )  
  }
  else {
    $tip(NOTICE :,4NOTICE:, $+ $me $+  your mIRC sounds are not 4ON.You may not proceed until you enable your sounds.Hold down 4ALT +o and go to sounds and check the enable sounds check box., 7) 
  }
}
alias _Pager_ON_ {
  if ($version < 6.31) { echo -a ( 4NOTICE: $+ $me $+  pager Is now 4ON.Amount of beeps: 4' $+ %_Page_Num_Beeps $+ '.Beep Delays: 4' $+ %_Page_Delay_Beeps $+ '. )  
  }
  else {
    $tip(NOTICE :,4NOTICE:, $+ $me $+  pager Is now 4ON.Amount of beeps: 4' $+ %_Page_Num_Beeps $+ '.Beep Delays: 4' $+ %_Page_Delay_Beeps $+ '., 3) 
  }
}
alias _Pager_OFF_ {
  if ($version < 6.31) { echo -a ( 4NOTICE: $+ $me $+  pager Is now 4OFf. )  
  }
  else {
    $tip(NOTICE :,4NOTICE:, $+ $me $+  pager Is now 4OFF., 3) 
  }
}
raw 421:*: { halt }

Comments

(18) RSS

Go to Bottom

TropicalMeltdown

Comments: 64

mIRC Snippet: !Pager
Posted on Jul 23, 2008 6:24 pm

Nice
But what exaclty does it do ??

Comments: 1,027

mIRC Snippet: !Pager
Posted on Jul 23, 2008 6:27 pm

Try it?.Its a pager like a beeper so when your away or preoccupied or what ever and if ppl want to get your attention they can send a command that makes your mIRC BEEP to notify you and you can respond.Good for help channels or if your staff etc. and cant be abused with built in flood pro.`-.-´

napa182

Comments: 924

mIRC Snippet: !Pager
Posted on Jul 23, 2008 7:25 pm

o0o0o big enough pic ffs lmao jk nice work Dan.
oh no dan watch out he mite rip it now =P

Comments: 1,027

mIRC Snippet: !Pager
Posted on Jul 24, 2008 12:40 am

Rofl yeah is a big pic,rofl @him rippin this,im pretty sure he cant even read the on text event so im not worried he cant say he ripped it;p

Typo

Comments: 146

mIRC Snippet: !Pager
Posted on Jul 24, 2008 12:42 am

Lmao at the size of that pic. Nice pager dan.

Comments: 1,027

mIRC Snippet: !Pager
Posted on Jul 24, 2008 12:49 am

lol thanks Typo.`-.-´

Eugenio

Comments: 722

mIRC Snippet: !Pager
Posted on Jul 25, 2008 4:51 pm

ew @ screenshot, !@#$ in my face >;[
looks nice tho....rofl @ "built in flood pro"
/me rolls eyes

Comments: 1,027

mIRC Snippet: !Pager
Posted on Jul 25, 2008 5:00 pm

ROFL yes eugene correct and you all know im not for releasing even the simplest code if it can be exploited by others.Mite as well put a ''Flood me off'' sign on ya =\

napa182

Comments: 924

mIRC Snippet: !Pager
Posted on Jul 25, 2008 5:10 pm

EL said:

Quote:

Mite as well put a ''Flood me off'' sign on ya =

LMFAO no kidding

Comments: 1,027

mIRC Snippet: !Pager
Posted on Jul 25, 2008 5:43 pm

jonesy44

Comments: 785

mIRC Snippet: !Pager
Posted on Jul 25, 2008 5:58 pm

90% of that script is sodding underscores .. :P

uhh good stuff tho Dan

Comments: 1,027

mIRC Snippet: !Pager
Posted on Jul 25, 2008 6:15 pm

ROFL yeah i like to separate my vars form the rest of the text and thanks.`-.-´

mountaindew

Comments: 1,456

mIRC Snippet: !Pager
Posted on Jul 25, 2008 6:49 pm

Code:

did -a $dname 10 Default
did -a $dname 10 2
did -a $dname 10 3
did -a $dname 10 4
did -a $dname 10 5
did -a $dname 10 6
did -a $dname 10 7
did -a $dname 10 8
did -a $dname 10 9
did -a $dname 10 10
did -a $dname 12 Default
did -a $dname 12 200
did -a $dname 12 400
did -a $dname 12 800
did -a $dname 12 900
did -a $dname 12 1000
did -a $dname 12 2000
did -a $dname 12 3000
did -a $dname 12 4000
did -a $dname 12 5000

I'd use /didtok

Code:

didtok $dname 10 124 Default|2|3|4|5|6|7|8|9|etc

Comments: 1,027

mIRC Snippet: !Pager
Posted on Jul 25, 2008 6:57 pm

Ahh yeah save a ton of space that way.Thanks MD i ll switch it wen i get a few this week end.`-.-´

juhapuha

Comments: 68

mIRC Snippet: !Pager
Posted on Jul 27, 2008 1:02 pm

* /dialog: '_Page' no such table (line 28, script7.mrc)

Comments: 1,027

mIRC Snippet: !Pager
Posted on Jul 27, 2008 1:41 pm

Did you copy the entire code? cause only way that error would show is if your missing dialog _Page {.Try coping it again.`-.-´

TheWhistler

Comments: 8

mIRC Snippet: !Pager
Posted on Aug 10, 2008 9:13 am

Nice if it would work here is what i get when i check mark it to On
( NOTICE:TheWhistler your mIRC sounds are not ON.You may not proceed until you enable your sounds.Hold down ALT +o and go to sounds and check the enable sounds check box. )
plus the sounds is Enable in my Mirc Options, ?? any reason why it's not working ???

Comments: 1,027

mIRC Snippet: !Pager
Posted on Aug 10, 2008 12:47 pm

Yeah the $ebeeps is SUPPOSED to check if the sounds are enabled in your mirc settings i ve had the same problem with a older version of mirc i had to deleted the error check line for the $ebeeps.I only added it cause some ppl are morons an would say it doesnt work wen it does just thier sounds wherent on just delete that error check line.It's line 95.`-.-´

!Pager

Introduction

Grab the Code

Comments

EL

My Snippet Tags

Contact

Friends (31)

Sponsors

		Freelance artist...
Last seen: Aug 21, 2008 Profile \| Website Friends (31) Snippets (17) Images (11) Comments Received (413) Comments Submitted (1027) Forum Posts (54)