Something

On *:TEXT:!away*:#: {
  if ($nick == mrfluffs) {
    set %awaynick $addtok(%awaynick,$nick,44)
    msg $chan 4 $nick is now AFK11 $2- 4Left at $time on the $date
  }
}
on *:text:!back:#:{ 
  if ($nick == mrfluffs) {
    msg $chan 4 $nick is now back! Time returned $time . on the $date 
    set %awaynick $remtok(%awaynick,$nick,1,44)
  } 
}
on *:text:*:#:{ 
  var %a = 1,%n 
  while $gettok(%awaynick,%a,44) { 
    %n = $v1 
    if $istok($1-,$v1,32) { 
      notice $nick %n Is AFK At the moment Please try again when I return. 
      break 
    } 
    inc %a 
  } 
}