menu menubar,channel {
{=Away=} ( $+ $iif(%Away,Away,Here) $+ )
.$iif(!%away,Set Away):{
set %away $$input(Reason for being gone,e)
.timer1999 0 300 ame is not currently here, reason being:13 %away
ame Is Away, Reason:13 %away
.load -rs NoticeW.txt | .load -rs awayON.txt
window -an @Notice | nick $+($me,$chr(123),%away,$chr(125))
}
.$iif(%away,Set Back):{
.timer1999 off
nick $gettok($me,1,123)
ame is Back! Reason for being away:13 %away
.unload -rs NoticeW.txt | .unload -rs AwayON.txt
unset %Away | close -@ | window -an @Join
}
-
ViewPic:var %a = @Picview,%b = $+(",$$sfile(Select an image),"),%c = $pic(%b).width $pic(%b).height | WINDOW -pdo %a 100 100 %c | DRAWPIC -c %a 0 0 %b
-
{=PVMSG=} ( $+ $group(#PVMSG).status $+ )
.Private Messages $iif($group(#PVMSG).status == on,Off,On):{
$iif($group(#PVMSG).status == on,.disable,.enable) #PVMSG
echo -at Private Messages are $iif($group(#PVMSG).status == on,DISABLED,ENABLED)
}
}
#PVMSG off
on *^:open:?:halt
#PVMSG end
