home *** CD-ROM | disk | FTP | other *** search
/ Reverse Code Engineering RCE CD +sandman 2000 / ReverseCodeEngineeringRceCdsandman2000.iso / RCE / L2C / adenozin / SimpleScript.exe / Main / away < prev    next >
Encoding:
Text File  |  2000-05-25  |  1015 b   |  26 lines
  1. /away {
  2.   set %away.reason $$?="Why are you Away?"
  3.   set %pager.check $$?="Pager On or Off?" 
  4.   if (%pager.check == on) { goto one }
  5.   if (%pager.check == off) { goto pageoff }
  6.   :one  
  7.   .enable #page
  8.   .enable #pager | goto two
  9.   :pageoff
  10.   .disable #page
  11.   .disable #pager | goto two
  12.   :two
  13.   set %away.time $ctime
  14.   ame 1,114  I a15m AW14AY2 [12 ò9 %away.reason 12 ò2 ]14  P15age14r 2 [12 ò9 %pager.check 12 ò2 ] 14L15ef14t 2 [12 ò9 $time 12 ò2 ]
  15.   .timer69 -o 0 900 /adaw
  16. }
  17. /adaw {
  18.   ame 1,114  I a15m AW14AY2 [12 ò9 %away.reason 12 ò2 ]14  P15age14r 2 [12 ò9 %pager.check 12 ò2 ] 14Ti15me Aw14ay 2 [12 ò9 $duration($calc($ctime - %away.time)) 12 ò2 ] | .ctcp $me ping 
  19. }
  20. /cback {
  21.   ame 1,114  I a15m BA14CK2 [12 ò9 %away.reason 12 ò2 ]14  P15age14r 2 [12 ò9 %pager.check 12 ò2 ] 14Ti15me Aw14ay 2 [12 ò9 $duration($calc($ctime - %away.time)) 12 ò2 ]
  22.   .timer69 off 
  23.   unset %away.time $ctime 
  24.   run msg.txt
  25. }
  26.