Miscellany

on *:TEXT:!afk*:#: { 
  if (%away == $null) { 
    set %away. [ $+ [ $nick ] ] $2- 
    set %awaytm. [ $+ [ $nick ] ] $ctime 
    set %away$nick. [ $+ [ $nick ] ] $nick 
     if ($1 !== afk) { msg $chan $nick -> Status - " Away From Keyboard " : --> $2- $+ . 
    } 
    else notice $nick Your Away :l 
  } 
} 
on *:TEXT:!away*:#: { 
  if (%away == $null) { 
    set %away. [ $+ [ $nick ] ] $2- 
    set %awaytm. [ $+ [ $nick ] ] $ctime 
    set %away$nick. [ $+ [ $nick ] ] $nick 
    if ($1 !== away) { msg $chan $nick -> Status - " Away " : --> $2- $+ . 
    } 
    else notice $nick Your Away :l 
  } 
} 
on *:TEXT:!brb*:#: { 
  if (%away == $null) { 
    set %away. [ $+ [ $nick ] ] $2- 
    set %awaytm. [ $+ [ $nick ] ] $ctime 
    set %away$nick. [ $+ [ $nick ] ] $nick 
     if ($1 !== brb) { msg $chan $nick -> Status - " Be Right Back " : --> $2- $+ . 
    } 
    else notice $nick Your Away :l 
  } 
} 
on *:text:!back:#:{ 
  if (%away. [ $+ [ $nick ] ] != $null) { 
    msg $chan $nick Is Back From : %away. [ $+ [ $nick ] ] $+ . Time away: $duration($calc($ctime - $eval($+(%,awaytm.,$nick),2))) $+ . 
    unset %away. [ $+ [ $nick ] ] 
    unset %away$nick. [ $+ [ $nick ] ] 
    unset %awaytm. [ $+ [ $nick ] ] 
  } 
  else notice $nick Your Not Away :S 
}