napa182 commented on a Page, Away script V 5.0 (NOW WITH DIALOG)  -  Jan 10, 2011

no need to set a var just use $away to do the checks

menu Channel,menubar {
  .Away
  .. $iif($away,Off,On):{
    away $iif(!$away,$$?"What is your away Reason?")
    $iif(!$away,tnick $+($me,[AFK]),nick $mnick)
    .amsg $iif(!$away,I'm away bitches... Reason? Here's your$&
      damn reason you bastard:$!,I'm back from the reason i said when i left)
  }
}
on $*:text:$(/\Q $+ $me $+ \E\b/iS):#:$awaynotice($nick)
on $*:action:$(/\Q $+ $me $+ \E\b/iS):#:$awaynotice($nick)
alias -l awaynotice {
  if ($away && !$hget(away,$1)) { 
    hinc -mu120 away $1
    .notice $nick .:[I am away]:. .:[ Reason: $awaymsg ]:.
  }
}
 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.