Just right click on channel when script is loaded

*-*-*- Away System -*-*-*-*
alias away {
  set %reason.away $$?="Wat is your away message?"
  set %ident.pass  $$?="What is your IDENTIFY password (Just you get auto-identify when you come back)"
  set %time.away $time
  set %originalnick $me
  set %away yes
  nick %originalnick $+ |Away
  ame is now away %reason.away Left on %time.away !
  away %reason.away
}
alias back {
  ame is now back from " %reason.away " i have left at %time.away and now i am back ( $time ). So that means i have been gone for $duration($awaytime)
  nick %originalnick
  unset %away
  unset %reason.away
  unset %time.away
  unset %ident.pass
  identify %ident.pass
}
on *:TEXT:*:#: {
   if (%away == yes) && ($me isin $1-) {
   msg $chan sorry $nick but i am away. reason= %reason.away
}
}
Menu query,menubar,status,Channel {
  [A]way System:
  .. $iif(%away,$style(2)) Away: away
  ..  $iif(!%away,$style(2)) Back: Back
}
on *:input:*:{
if %away == yes {
back
}
}