This away system logs all mentions of your nick, all queries, in an @window. It provides your away message for queries and ctcps. Fairly basic stuff, but it works for me.
;=================;
; Logging Scripts ;
; By Anthalus ;
;=================;
;===Away Message Logger===;
on *:OPEN:?: {
if ($away) {
if ( %log.onoff == OFF ) {
.msg $nick $color(Notice) AWAY $awaymsg $awaytime
.close -m $nick
return
}
else {
if (!$window(@AwayLOG)) {
.window -axz +et @AwayLOG -1 -1 500 100
}
.aline -hp @AwayLOG 7 $fulldate14 $nick15 $strip($1-)
.msg $nick $color(Notice) AWAY $awaymsg $awaytime
.close -m $nick
goto end
}
}
else {
return
}
:end
}
ctcp *:*:*: {
if ($away) {
if ( %log.onoff == OFF ) {
return
}
else {
if (!$window(@AwayLOG)) {
.window -axz +et @AwayLOG -1 -1 500 100
}
.aline -hp @AwayLOG 7 $fulldate14 $nick4 CTCP15 $strip($1-)
}
}
else {
return
}
}
on *:TEXT:*:*: {
if (!$away) {
return
}
elseif ( %log.onoff == OFF ) {
return
}
else {
if ( $me isin $1- ) {
am.awayment $nick $chan $1-
}
}
}
on *:ACTION:*:*: {
if (!$away) {
return
}
elseif ( %log.onoff == OFF ) {
return
}
else {
if ( $me isin $1- ) {
am.awayment $nick $chan $1-
}
}
}
alias awaylog.clear {
if (!$window(@AwayLOG)) {
.echo 8 -a No Messages to Clear
return
}
else {
.clear @AwayLOG
.echo 8 -a Messages Cleared!
.window -c @AwayLOG
}
}
alias away.control {
if ( %away.onoff == ON ) {
if (!$window(@AwayLOG)) {
.window -axz +et @AwayLOG -1 -1 500 100
}
return ON : MSG or CTCP $me
}
else {
return OFF
}
}
alias am.awayment {
var %nick = $1
var %chan = $2
var %else = $strip($3-)
if (!$window(@AwayLOG)) {
.window -axz +et @AwayLOG -1 -1 500 100
}
.aline -hp @AwayLOG 7 $fulldate 14 Mentioned by %nick in %chan :: %else
}
menu * {
-
Messages ( $+ $line(@AwayLOG,0,0) $+ )
-
Away Logger
.On:/set %log.onoff ON
.Off:/set %log.onoff OFF
.Clear Log:$away.logclear
-
}