alias gone {
if (!$readini(away.ini,r,away)) {
writeini away.ini r away $iif($1-,$v1,No reason)
set -u20 %orly H
echo -a ***You are to be marked as away - Reason: $+($chr(3),$readini(away.ini,o,color),$1-,$chr(3),.)
echo -a ***Do you want to record highlights and Pm's while youre away? /aw yes <optional away nick> - /aw no <optional away nick>
.timer 1 20 ***echo -a Away cancelled due to inactivity.
.timer 1 20 remini away.ini r away
}
else echo -a Youre already marked as away - Reason: $+($chr(3),$readini(away.ini,r,color),$readini(away.ini,r,away),$chr(3),.) You left: $+($chr(3),$readini(away.ini,r,color),$duration($calc($ctime - $readini(away.ini,r,time))),$chr(3)) Ago. - Use /back to return.
}
alias aw {
.timers off
if (%orly) {
.away $readini(away.ini,r,away)
unset %orly
if ($1 == yes) {
writeini away.ini r r yes
}
elseif ($1 == no) {
writeini away.ini r r no
}
echo -a ***Youre now marked as away, Youre nick will be changed to $+($iif($2,$v1,$+($me,|AWAY)),.)
writeini away.ini r nick $me
writeini away.ini r time $ctime
nick $iif($2,$v1,$+($me,|AWAY))
amsg I am now away - Reason: $+($chr(3),$readini(away.ini,o,color),$readini(away.ini,r,away),$chr(3),.) Left at: $+($chr(3),$readini(away.ini,o,color),$time(hh:nn:ss:TT zzz),$chr(3),.)
}
else echo -a ***Please type /gone <reason> First.
}
alias back {
if ($readini(away.ini,r,away)) {
echo -a ***Youre no longer away.
amsg I am now back - From: $+($chr(3),$readini(away.ini,o,color),$readini(away.ini,r,away),$chr(3),.) I have been gone for $+($chr(3),$readini(away.ini,o,color),$duration($calc($ctime - $readini(away.ini,r,time))),$chr(3),.)
nick $readini(away.ini,r,nick)
.away
remini away.ini r
echo -a $iif($readini(away.ini,m,count),You have $+($chr(3),$readini(away.ini,o,color),$readini(away.ini,m,count),$chr(3)) Messages - type /read To view them.,You have no messages recorded.)
}
else echo -a ***Youre not currently away
}
alias read {
dialog -dm Record Record
/rec
}
alias awaycolor {
if ($1 isnum 1-15) {
writeini away.ini o color $base($1,10,10,2) echo -a ***Youre color has been set to $+($chr(3),$readini(away.ini,o,color),THIS,$chr(3),.)
}
else echo -a ***Invalid color, use numbers 1-15
}
on *:text:*:*:{
if ($+(*,$me,*) iswm $1-) || (!$chan) && ($readini(away.ini,r,r) == yes) {
writeini away.ini m count $calc($readini(away.ini,m,count) + 1)
writeini away.ini m $+(record,$readini(away.ini,m,count)) $nick $iif($chan,$v1,Query) $time(hh:nn:ss:TT) $1-
}
}
dialog Record {
title "Record"
size -1 -1 124 90
option dbu
list 1, -1 -1 126 50, size hsbar vsbar
text "Sent by:", 2, 0 60 40 8, center
text "Message in:", 3, 0 50 40 8, center
text "When:", 4, 0 70 40 8, center
edit "", 5, 41 49 82 10
edit "", 6, 41 59 82 10
edit "", 7, 41 69 82 10
button "Close", 8, 0 79 61 11, ok
button "Clear", 9, 62 79 61 11
}
alias rec {
var %trec = 1
while ($readini(away.ini,m,$+(record,%trec))) {
did -i record 1 %trec $gettok($v1,4-,32)
inc %trec
}
unset %trec
}
on *:dialog:record:sclick:*:{
if ($did == 1) {
var %tre = 1
while ($readini(away.ini,m,$+(record,%tre))) {
if ($did(1).seltext == $gettok($v1,4-,32)) {
if ($readini(away.ini,m,$+(record,%tre))) {
did -ra $dname 5 $gettok($v1,2,32)
did -ra $dname 6 $gettok($v1,1,32)
did -ra $dname 7 $gettok($v1,3,32)
inc %tre $ini(away.ini,m,$+(record,%tre))
}
}
else inc %tre
}
}
elseif ($did == 9) {
remini away.ini m
did -r $dname 5
did -r $dname 6
did -r $dname 7
did -r $dname 1
did -i $dname 1 1 Messages cleared.
}
}
alias awayhelp {