Unnamed

on $*:text:/(Craig|Turner)/Si:#: {
  if ($nick == x) { halt }
  if (%awayyon == on) {
    notice $nick 14[» 7A14way «]14[» 7R14eason:14 %awayyreason «][» 7L14eft at: %awayytime2 «][» 7G14one for: $duration($calc($ctime - %awayytime)) «]
  }
  if (%busyyon == on) {
    notice $nick 14[» 7B14usy «]14[» 7F14rom:14 %busyyreason «][» 7L14eft at: %busyytime2 «][» 7G14one for: $duration($calc($ctime - %busyytime)) «]
  }
}
on *:text:*:?: { 
  if (%awayyon == on) {
    if ($nick == |God|Bot| || $nick == ramyrezx) { halt }
    msg $nick 14[» 7A14way «]14[» 7R14eason:14 %awayyreason «][» 7L14eft at: $asctime(HH:nn:ss) «][» 7G14one for: $duration($calc($ctime - %awayytime)) «][» 7M14essage closed «]
    .close -m $nick
  }
  if (%busyyon == on) {
    if ($nick == |God|Bot| || $nick == ramyrezx) { halt }
    msg $nick 14[» 7B14usy «]14[» 7F14rom:14 %busyyreason «][» 7L14eft at: %busyytime2 «][» 7G14one for: $duration($calc($ctime - %busyytime)) «][» 7M14essage closed «]
    .close -m $nick
  }
}
alias away { 
  .nick |Aturner44|Away| | .msg |God|Bot| !away | .unload -rs pm-script.ini | set %awayytime $ctime | set %awayytime2 $time | set %awayyreason $1- | set %awayyon on
  if ($1- == $null) { set %awayyreason No reason specified. }
  amsg 14[» 7A14way «]14[» 7R14eason:14 %awayyreason «][» 7L14eft at: $asctime(HH:nn:ss) «]
}
alias back { 
  if (%awayyon == on) {
    amsg 14[» 7B14ack «]14[» 7F14rom:14 %awayyreason «][» 7L14eft at: %awayytime2 «][» 7G14one for: $duration($calc($ctime - %awayytime)) «]
    unset %awayy* | .nick Aturner44 | .msg |god|bot| !back | .load -rs pm-script.ini
  }
}
alias Busy { 
  if (%busyyon != on) {
    .nick |Aturner44|Busy| | .msg |God|Bot| !away | set %busyytime $ctime | set %busyytime2 $time | set %busyyreason $2- | set %busyyon on | .unload -rs pm-script.ini
    if ($2- == $null) { set %busyyreason No reason specified. }
    amsg 14[» 7B14usy «]14[» 7D14oing:14 %busyyreason «][» 7L14eft at: $asctime(HH:nn:ss) «]
    halt
  }
  if (%busyyon == on) {
    amsg 14[» 7B14usy «]14[» 7D14oing:14 %busyyreason «][» 7L14eft at: %busyytime2 «][» 7G14one for: $duration($calc($ctime - %busyytime)) «]
    unset %busyy* | .nick Aturner44 | .msg |god|bot| !back | .load -rs pm-script.ini
    halt
  }
}
alias active { 
  Msg $chan 4 $+ $active 14is my active channel at the moment, i am also on4 $remove($chan(1),$active) $remove($chan(2),$active) $remove($chan(3),$active) $remove($chan(4),$active) $remove($chan(5),$active) $remove($chan(6),$active) 14that means i am on4 $chan(N/#) 14channels. 
}