on *:TEXT:*airs*:*: {
  if ($readini(busy.ini,Status,Busy) == Positive) && ($readini(busy.ini,Highlights,$nick) == $null) {
    notice $nick 2¦4 $me 1is busy at the moment -4 %busy 1- Please leave me a message in4 #Nedyc 2¦
    writeini busy.ini Highlights $nick Noticed
  }
}
on 1:open:?:*:{
  if ($readini(busy.ini,Status,Busy) == Positive) {
    notice $nick 2¦4 $me 1is busy at the moment -4 %busy 1- Please leave me a message in4 #Nedyc 2¦
    halt
  }
}
alias busy {
  if ($readini(busy.ini,Status,Busy) == Positive) { halt }
  writeini busy.ini Status Busy Positive
  set %busy $1-
  amsg 2¦4 $me 1is now busy -4 $1- 1- Wont answer to messages 2¦
}
alias unbusy {
  if ($readini(busy.ini,Status,Busy) == $null) { halt }
  remini busy.ini Highlights
  remini busy.ini Status
  remini busy.ini Reasons
  amsg 2¦4 $me 1has finished with -4 %busy 2¦
  unset %busy
}