All pastes #89535 Raw Edit

Anonymous

public text v1 · immutable
#89535 ·published 2006-07-16 12:02 UTC
rendered paste body
---*****irc.scrollrack.com:6667*****---
---*****#SI*****---
---*****---
Menu channel {
  Raids Away-System
  .Logs:/log
  .-
  .Mini Away
  ..Away:/ame Away: (Reason: $?="Reason" ) Set Away on: $fulldate | /away $time $chr(91) $+ $! $+ $chr(93)
  ..Back:/ame Back: ( $awaymsg ) Away for $duration($awaytime) | /away | /msgs
  .Global Msg Away
  ..Amsg Away:/amsg XB|Tecron IS Away 4Reason:  $?="Give a reason"   $fulldate  |  /away Set away at $time $chr(91) $+ $! $+ $chr(93)  | .timerSI 0 7200 /amsg [Global Msg] Reason: $time $chr(91) $+ $! $+ $chr(93) | .timer 1 1 /ame Walks out
  ..Amsg Back:/amsg [Global Msg] Reason: ( $awaymsg ) Time Away: $duration($awaytime) I have been idle for: $idle seconds | /away | /msgs | /timerSI off | /timer -l | .timer 1 1 /ame Walks in
  .Ame Away
  ..Ame Away:/ame [ -- Global Action -- ] Away: ( $?="Reason" ) Leaving on: $fulldate | /away Set away at $time $chr(91) $+ $! $+ $chr(93)  | .timerSI 0 7200 /ame [--Global Action--] Away: $chr(91) $+ $! $+ $chr(93)
  ..Ame Back:/ame [ -- Global Action -- ] Back: ( $awaymsg ) Time away: $duration($awaytime) I have been idle for: $idle seconds | /away | /msgs | /timerSI off | /timer -l
  .Jackal Away
  ..Jackal Away:/amsg 15«14,15«1,14«15,1 --  J.A.C.K.A.L. --  AWAY SYSTEM  -- $me Is Now Away Logger Online Reason: ( $?="Give a reason" ) Set Away On: $fulldate  -- J.A.C.K.A.L. --  AWAY SYSTEM --1,14»14,15»15» | /away Away Reason: $chr(91) $+ $! $+ $chr(93) | .timerSI 0 7200 /amsg  15«14,15«1,14«15,1 -- J.A.C.K.A.L. -- AWAY SYSTEM -- $me Is Away Logger Online Reason: $chr(91) $+ $! $+ $chr(93) -- J.A.C.K.A.L. -- AWAY SYSTEM --1,14»14,15»15»      
  ..Jackal Back:/amsg 15«14,15«1,14«15,1 --  J.A.C.K.A.L. --  AWAY SYSTEM  -- $me Is Now back Logger Offline ( $awaymsg ) My time away was: $duration($awaytime)  -- J.A.C.K.A.L. --  AWAY SYSTEM --1,14»14,15»15» | /away | /timerSI off | /msgs | /timer -l
  .SI Away
  ..Sanctuary Away:/amsg 1,15.:11:12§anctüary Away System Away for: ( $?="Reason" ) I left on $fulldate | /away $time $chr(91) $+ $! $+ $chr(93) | .timerSI 0 7200  /amsg 1,15.:11:12§anctüary1,15.:11: Away: $chr(91) $+ $! $+ $chr(93)
  ..Sanctuary Back:/amsg 1,15.:11:12§anctüary Away System Away for: ( $awaymsg ) Time away $duration($awaytime) | /away | /msgs | /timerSI off | /timer -l
}
On *:OPEN:?:*: {
  if ($away) {
    close -m $nick
    msg $nick My Pm system is offline. Your Msg has been logged. 
    write Msgs.txt On $fulldate [ $Nick ] Sent You A Message Saying $1- 
  }
}
ctcp *:page:*: {
  .notice $nick   > Hey, I must be away at the moment but I have recorded this and will get back to you later. 
  echo -at **  [ $nick has sent you a page.  ]  $address on $fulldate
  write Msgs.txt paged by : $nick $address $fulldate MSG : $2-
}

alias msgs {
  var %x 1
  while ($Read(Msgs.txt,%x)) {
    echo $v1
    inc %x
  }
}
on 1:NOTICE:*:?:{
  if ($away) {
    notice $nick Sorry $nick I am Currently away. My reason for being away is: $awaymsg 
    echo -a $nick noticed you while you were away.
  }
}
on *:text:*:*: {
  if ($away) {
    if ($me isin $1- ) || (XB == $1- ) {
      //notice $nick Sorry $nick I Am Currently Away for $awaymsg , I Have Been Gone For $duration($awaytime) You Can type4 /ctcp $me PAGE <Your Msg> and I will get back to you.
      //window -an @Away @Away | aline @Away On $fulldate In the room $chan < $+ $nick $+ > $1-
    }
  }
}
on ^*:open:?: if ($away).msgs1 $nick | set %ws 1 
if (%ws) .write msgs1.txt $nick address
raw 311:*: if (%ws) .write msgs1.txt $2 is : $+($3,@,$4) $5- 
raw 614:*: if (%ws) .write msgs1.txt $2-  
raw 319:*: if (%ws) .write msgs1.txt $2 channels : $3-  
raw 312:*: if (%ws) .write msgs1.txt $2 server : $3-  
raw 313:*: if (%ws) .write msgs1.txt $2- 
raw 317:*: if (%ws) .write msgs1.txt $2 has been idle for : $duration($3) $+ , signed on $asctime($4,ddd mmm dd HH:nn:ss) 
raw 301:*: if (%ws) .write msgs1.txt $2 is away : $3-  
raw 318:*: if (%ws) .write msgs1.txt $2- | .write -i whois.txt | unset %ws 


Alias log //run $scriptdirMsgs.txt