Something

Alias busy { 
  set %busy $asctime   
  set %vbusy [ $+ [ reason ] ] $1- 
  set %vbusy [ $+ [ status ] ] ON
  nick Lil_Aziz1|Busy
  set %msgs 0
  amsg 15[12» 4BuSy 12«15][12» 4Reason:13 %vbusy [ $+ [ reason ] ] 12«15][12» 4Started at:13 %busy 12«15]
  away $1-
} 
Alias done {
  if (%vbusy [ $+ [ status ] ] == ON) { 
    nick Lil_Aziz1 
    amsg 15[12» 4Now Available 12«15][12» 4From:13 %vbusy [ $+ [ reason ] ] 12«15][12» 4Time being Busy:13 $duration($calc(($ctime - $ctime(%busy)))) 12«15][12» 4Messaged Received:13 %msgs 12«15]
    set %msgs 0
    unset %stopit [ $+ [ $nick ] ]
    remove away.txt  
    set %vbusy [ $+ [ status ] ] OFF
  }
  elseif (%vbusy [ $+ [ status ] ] == OFF) { echo I am not away! }

}

Alias afk { 
  set %ltime $asctime 
  set %away [ $+ [ reason ] ] $1-  
  set %away [ $+ [ status ] ] ON
  nick Lil_Aziz1|AFK
  set %msgs 0
  amsg 15[12» 4Away 12«15][12» 4Reason:13 %away [ $+ [ reason ] ] 12«15][12» 4Left at:13 %ltime 12«15]
  away $1-
} 

Alias back {
  if (%away [ $+ [ status ] ] == ON) { 
    nick Lil_Aziz1 
    amsg 15[12» 4Back 12«15][12» 4From:13 %away [ $+ [ reason ] ] 12«15][12» 4Time Gone:13 $duration($calc(($ctime - $ctime(%ltime)))) 12«15][12» 4Messaged Received:13 %msgs 12«15]
    set %msgs 0
    unset %stopit [ $+ [ $nick ] ]
    remove away.txt  
    set %away [ $+ [ status ] ] OFF
  }
  elseif (%away [ $+ [ status ] ] == OFF) { echo I am not away! }

}

on $*:TEXT:/(Aziz|izz)/Si:#:{ 
  if (%away [ $+ [ status ] ] == ON) { 
    if ($nick == $read(away.txt,w,$nick)) { halt } 
    write away.txt   
    notice $nick 15[12» 4Away 12«15][12» 4Reason:13 %away [ $+ [ reason ] ] 12«15][12» 4Left at:13 %ltime 12«15][12»4 If important:13 /ms send Lil_Aziz1 message 12«15]
    inc %msgs
    window @AFK_Messages
    aline -a @AFK_Messages $time :: $nick :: $1- :: $chan on $network 
    if (%responses < 1) { 
      notice $nick 15[12» 4Away 12«15][12» 4Reason:13 %lrsn 12«15][12» 4Left at:13 %ltime 12«15][12»4 If important:13 /ms send Lil_Aziz1 message 12«15]
    }
  }
  elseif (%vbusy [ $+ [ status ] ] == ON) {
    if ($nick == $read(away.txt,w,$nick)) { halt } 
    write away.txt   
    notice $nick 15[12» 4BuSy 12«15][12» 4Reason:13 %vbusy [ $+ [ reason ] ] 12«15][12» 4Began:13 %busy 12«15][12»4 If important:13 /ms send Lil_Aziz1 message 12«15]
    inc %msgs
    window @AFK_Messages
    aline -a @AFK_Messages $time :: $nick :: $1- :: $chan on $network 
    if (%responses < 1) { 
      notice $nick 15[12» 4BuSy 12«15][12» 4Reason:13 %vbusy [ $+ [ reason ] ] 12«15][12» 4Began:13 %busy 12«15][12»4 If important:13 /ms send Lil_Aziz1 message 12«15]
    }
  }

  else {     window @Needed
  aline -a @Needed $time :: $nick :: $1- :: $chan on $network } 
} 

on *:text:*:?:{ 
  if (%away [ $+ [ status ] ] == ON) && (%stopit [ $+ [ $nick ] ] >= 1) { Halt }   
  elseif (%away [ $+ [ status ] ] == ON) { 
    if ($nick == $read(away.txt,w,$nick)) { halt } 
    write away.txt   
    msg $nick 15[12» 4Away 12«15][12» 4Reason:13 %away [ $+ [ reason ] ] 12«15][12» 4Left at:13 %ltime 12«15][12»4 If important:13 /ms send Lil_Aziz1 message 12«15]
    inc %stopit [ $+ [ $nick ] ]  
    inc %msgs
    window @AFK_Messages
    aline -a @AFK_Messages $time :: $nick :: $1- in $chan on $network 
    if (%responses < 1) { 
      msg $nick 15[12» 4Away 12«15][12» 4Reason:13 %lrsn 12«15][12» 4Left at:13 %ltime 12«15][12»4 If important:13 /ms send Lil_Aziz1 message 12«15]
    }
  }
  if (%vbusy [ $+ [ status ] ] == ON) && (%stopit [ $+ [ $nick ] ] >= 1) { Halt }   
  elseif (%vbusy [ $+ [ status ] ] == ON) {
    if ($nick == $read(away.txt,w,$nick)) { halt } 
    write away.txt   
    msg $nick 15[12» 4BuSy 12«15][12» 4Reason:13 %vbusy [ $+ [ reason ] ] 12«15][12» 4Began:13 %busy 12«15][12»4 If important:13 /ms send Lil_Aziz1 message 12«15]
    inc %stopit [ $+ [ $nick ] ]  
    inc %msgs
    window @AFK_Messages
    aline -a @AFK_Messages $time :: $nick :: $1- in $chan on $network 
    if (%responses < 1) { 
      msg $nick 15[12» 4BuSy 12«15][12» 4Reason:13 %vbusy [ $+ [ reason ] ] 12«15][12» 4Began:13 %busy 12«15][12»4 If important:13 /ms send Lil_Aziz1 message 12«15]
    }
  }

  else { halt } 
}