Pager

By Soxide on Sep 18, 2004

this will set up a pager so ppl can leave you msg's when u r away just load it in remotes and type /pager or right click ur channel and click pager also it will be in the nicklist and query menu

alias PagerOn {
  if %pager == on { 
    echo -a Pager is already on
  halt }
  else {
    set %pager on
    echo -a Ice Pager is now activated
    amsg My pager is now activated
    amsg  to page me type: `page $me <message>

  }
}
alias PagerOff {
  set %pager off
  echo -a ice pager off
  amsg Ice pager is now off
}
on *:TEXT:`page*:#:{
  if $2 == $me {
    if (%pager == on) { notice $nick Thanks, i have been paged
      writeini pager.ini $nick Nick $nick
      writeini pager.ini $nick Server $server
      writeini pager.ini $nick Time $time
      writeini pager.ini $nick Message $$3-
      halt
      else {
        if (%pager == off) { notice $nick My pager is currently off }
      }
    }
  }
}
dialog  icepager {
  title "ice pager"
  size -1 -1 200 30
  option dbu
  Button "On", 5, 5 5 40 10, ok 
  Button "Off", 4, 50 5 40 10, ok 
  Button "Read", 6, 100 5 40 10, ok 
  Button "del", 7, 150 5 40 10, ok 
  Text  "this is ice pager v1.0 made by soxide", 13, 5 20 100 20, tab 2

}
on *:dialog:icepager:sclick:*: {
  if ($did == 5) { PagerOn | halt }
  if ($did == 4) { PagerOff | halt }
  if ($did == 7) { /remove pager.ini | halt }
  if ($did == 6) { /run notepad pager.ini | halt }
}
alias pager { dialog -m icepager icepager }

menu * {
  pager:/pager
}

Comments

Sign in to comment.
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.