alias away
{
if ($aw eq "on") { call("/back"); }
else {
$oldnick = $me;
$aw = "on";
if ($1- eq "$null") {
call("/ame is now away!");
$awreason = $null;
}
else {
$awreason = $1-;
call("/ame is now away! - $awreason - ");
}
call("/away $awreason",1);
call("/nick $oldnick $+ |away");
}
}
alias aw {
   call("/away $1-")
}
alias back
{
if ($aw eq "off") { halt; }
else
{
if ($awreason eq "$null") {
call("/ame is back!");
}
else {
call("/ame is back from $awreason $+ !");
}
call("/away",1);
call("/nick $oldnick");
$awreason = $null;
$aw = off;
}
}