-_Simple Away System_-

By ShowstoppeR on Jul 25, 2004

simple just place it in remotes (ALT+R)

menu nicklist {
  away system
  .set away: setaway
  .set back: setback
  .-
  .pager is ( $+ $iif(%options.pager, On, Off) $+ ) : {
    if (%options.pager) echo -a ** Pager Now DISABLED
    else echo -a ** Pager Now ACTIVE
    %options.pager = $iif(%options.pager, 0, 1)
  }
  .silent away: quietaway
  .silent back: quietback
  .-
  .read pages: run NotePad.exe $scriptdir\page.txt
  .clear pages: { 
    write -c $scriptdir\page.txt clearing all pages on $fulldate 
    echo -at ** Page file now cleared
  }
}

alias setaway {
  if ($1 == $null) set %away.reason $$?="Enter Reason"
  else set %away.reason $1-
  away  ( $+ %away.reason $+ )
  set %away.time $ctime
  if (%options.pager) { 
    ame Away : [ $+ %away.reason $+ ] PAGE: /ctcp $me page << Your Msg >>
    .timer(away) 0 $?="time in secs ?" ame still Away : [ $+ %away.reason $+ ] PAGE: /ctcp $me page << Your Msg >>
  }
  else {
    ame Away : [ $+ %away.reason $+ ]
    .timer(away) 0 $?="time in secs ?" ame still Away : [ $+ %away.reason $+ ]
  }
}

alias setback {
  if ($away == $false) { echo -at ** You Aren't Away! | halt }
  .timer(away) off
  ame Back : [ $+ %away.reason $+ ] Gone : [ $duration($calc($ctime - %away.time)) ] Did Ya Miss ME ?
  away
  unset %away.*
}

alias quietaway {
  set %away.reason $$?="Enter Reason"
  away  ( $+ %away.reason $+ )
}

alias quietback {
  if ($away == $false) { echo -at ** You Aren't Away! | halt }
  away
  unset %away.*
}

ctcp *:page:*: {
  if (%options.pager) .notice $nick   > Hello. Since you paged me, I'm probably busy or away for a while. I'll get back to you as soon as I can.
  echo -at ** [ You have been PAGED by $nick ] $address on $fulldate
  write $scriptdir\page.txt paged by : $nick $address $fulldate MSG : $2-
}

alias rtime return $time(h:nntt)

Comments

Sign in to comment.
X-FILE   -  Aug 03, 2004

Actualy if you took the time to see when my snippet on mirc.net was submitted and when that tutorial was submitted...you can easily understand that i didn\'t rip , but hey no problem , who gives a damn what you say. Now go and get a life kid.

 Respond  
nobody   -  Aug 02, 2004

http://www.mircscripts.org/showdoc.php?type=tutorial&id=129 <-- It\'s the same thing, so why post your \"simple away system\"? Worst snippet I\'ve ever seen, learn to script instead of ripping others work.

 Respond  
EliteT0kr   -  Aug 02, 2004

lmFAO

 Respond  
X-FILE   -  Jul 25, 2004

http://www.mirc.net/projects.php?go=1058131750 . You know you suck? you ripped my worst snippet i have ever done.

 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.