SHARE
TWEET

Away Manager

Seb Sep 10th, 2011 (edited) 339 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. menu channel {
  2.   .$iif($group(#away).status iswm on, Away Manager, Away Manager )
  3.   ..Leaving:{
  4.     scon -a away I am not active at the moment:[ $$?="Your away Reason" ]:I will return shortly.
  5.     echo $color(notice) -at You just have set /away.
  6.     set %away.time $ctime
  7.     .enable #away
  8.   }
  9.   ...Returning:{
  10.     echo $color(notice) -at You just have unset /away. You were gone for: $duration($calc($ctime - %away.time))
  11.     .disable #away
  12.     scon -a away
  13.     unset %away.time *
  14.   }
  15. }
  16.  
  17. #away off
  18. on *:OPEN:?:*:{
  19.   inc -u10 %floodpro.open
  20.   if (%floodpro.open >= 3) { ignore -u30 *!*@* | halt }
  21.   if ($group(#away).status == on) {
  22.     if (!@AwayMsg) { window -ae3 @AwayMsg }
  23.     notice $nick $awaymsg
  24.     notice $nick Email: <SebLemery@Gmail.com>
  25.     aline @AwayMsg $+(14[8,$fulldate,14]3) $+(14,$chr(40),3,$nick,14,$chr(41)) 10 $+ $1-
  26.     close -m $nick
  27.   }
  28. }
  29. on *:TEXT:*:#:{
  30.   inc -u10 %floodpro. [ $+ [ $nick ] ]
  31.   if (%floodpro. [ $+ $nick ] ] >= 2) { ignore -u30 $nick | halt }
  32.   if (($istok($1-,$me,32)) && ($group(#away).status == on)) {
  33.     notice $nick $awaymsg : It has been4 $duration($calc($ctime - %away.time))
  34.   }
  35. }
  36. on *:ACTION:*:#:{
  37.   inc -u10 %floodpro. [ $+ [ $nick ] ]
  38.   if (%floodpro. [ $+ $nick ] ] >= 2) { ignore -u30 $nick | halt }
  39.   if (($istok($1-,$me,32)) && ($group(#away).status == on)) {
  40.     notice $nick $awaymsg : It has been4 $duration($calc($ctime - %away.time))
  41.   }
  42. }
  43. #away end
RAW Paste Data
Top