All pastes #949042 Raw Edit

Away Script

public text v1 · immutable

·published 2008-03-19 15:55 UTC

alias gone { 
  set %time $asctime(mmm dd yyyy [hh:nn:ss:TT])
  set %nick $me 
  set %why  $1- 
  set %FirstNick $nick 
  nick [`tHERESA`aWAY`] 
  msg #peepee1 7Away:4 %why 7[Left At:4 %time $+ 7]
  away 7Away:4 %why 7[Left At:4 %time $+ 7]

} 
Alias Back { 
  msg #peepee1 7Back From:4 %why 7[Left At:4 %time $+ 7] [Time Gone:4 $duration($awaytime) $+ 7]
  nick %nick 
  away 
} 
on $*:TEXT:/(\Q $+ %FirstNick $+ \E|Theresa|[`tHERESA`aWAY`]|[`tHERESA`])/Si:*:{ If ($me == [`tHERESA`aWAY`]) { /notice $nick I am currently away | /notice $nick [Reason: %why ] [Left at: %time $+ ] 
    Aline @window $asctime(mmm dd yyyy [hh:nn:ss:TT]) -  [13«14 $nick 13»] -6  $1-  
Else { HALT }   } }