Someone

on *:TEXT:~away*:#:{    
  if ($address($me,2) == $address($nick,2)) && (%reason == 0) { unset %reason 
    set %reason $2- 
    set %time $ctime
    set %away.date $date
    amsg 12Sasori is now 3away $+ 12. Reason : "3 $+ %reason $+ 12" : Sasori left at $+ 3 $time(hh:nn TT) $+ 12.
    halt  
  }
  if ($address($me,2) == $address($nick,2)) && (%reason != 0) { notice $nick You're already away.
    halt
  }
}
on *:TEXT:~back:#: {  
  if ($address($me,2) == $address($nick,2)) && (%reason != 0) {  
    amsg 12Sasori is now 3back $+ 12. Reason : "3 $+ %reason $+ 12" : Sasori was gone for $+ 3 $duration($calc($ctime - %time)) 12and left at $+ 3 %away.date $+ 12. 
    set %reason 0
    unset %time
    unset %away.date
    halt  
  } 
  if ($address($me,2) == $address($nick,2)) && (%reason == 0) { notice $nick You're already back.
    halt
  }
}
on *:TEXT:~wisa:#:{ 
  if (%reason = 0) {
    notice $nick 5Sasori isnt away right now... | halt 
  }  
  else  {
    notice $nick 5Reason Sasori is away: [7 $+ %reason $+ 14] Sasori has been gone for $+ 7 $duration($calc($ctime - %time)) $+ 14.
  }
}