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 {