alias aw {
if (%away.ticks) return
set %away.ticks $ticks
scid -at1 away $+ $$1- $+
if (!$window(@AwayLog)) window -k0a @AwayLog 0 0 750 400
echo @AwayLog -
echo @AwayLog 4Logging started at $time $date
dqwindow on
}
alias f7 bk
alias bk {
if (!%away.ticks) return
scid -at1 away
if ($window(@AwayLog)) echo @AwayLog 4Logging finished at $time $date
unset %away.ticks
dqwindow off
}
on *:TEXT:*SonicSam*:#: {
var %gtfo = #services
if ($istok(%gtfo,$chan,32) || (%away.f)) return
if (%away.ticks) {
if (!$window(@AwayLog)) window -k0a @AwayLog
echo @AwayLog $+(,$network,$chr(32),»,$chr(32),$chan,) $timestamp $+(<,$nick,>) $1-
notice $nick I r away: $awaymsg and have been for $duration($calc(($ticks - %away.ticks) / 1000))
}
set -u600 %away.f 1
}
on *:ACTION:*SonicSam*:#: {
var %gtfo = #services,#irpg
if ($istok(%gtfo,$chan,32) || (%away.f)) return
if (%away.ticks) {
if (!$window(@AwayLog)) window -k0a @AwayLog
echo @AwayLog $+(,$network,$chr(32),»,$chr(32),$chan,) $timestamp 6* $nick $1-
notice $nick I r away: $awaymsg and have been for $duration($calc(($ticks - %away.ticks) / 1000))
}
set -u600 %away.f 1
}
on *:CLOSE:@AwayLog: if (%away.ticks) bk