Mine

;away
alias afk {
  away $1-
  set %away 1
  set %away.msg $1-
  set %away.nick $mnick
  set %away.time $asctime(hh:nn tt)
  nick $mnick $+ %away.extension
  /ame Now Away. Logging ON
}
alias back {
  away
  set %away -
  nick %away.nick
  /ame Is Back. Gone Since: %away.time
}
on 1:dialog:pmaccept:init:0: {
  did -a pmaccept 1 %pm.nick Says: %pm.message
}
on 1:dialog:pmaccept:sclick:2: {
  msg %pm.nick 7,1 15••0 Your Message Has Been9 Accepted 15•• 
  if (%pm.message == $read(help.txt,w,$+(*,%pm.message,*))) {
    msg %pm.nick Hi %pm.nick $+ , How May I Help You?
  }
  dialog -c pmaccept
}

on 1:dialog:pmaccept:sclick:3: {
  msg %pm.nick 7,1 15••0 Your Message Has Been4 Ignored 15•• 
  closemsg %pm.nick
  dialog -c pmaccept
}
on 1:dialog:pmaccept:sclick:4: {
  msg %pm.nick 7,1 15••0 Your Message Has Been4 Ignored 0¬ You Have Been Ignored For 5 Minutes 15•• 
  ignore -u300 %pm.nick 2
  closemsg %pm.nick
  dialog -c pmaccept
}
on 1:dialog:pmaccept:sclick:5: {
  msg %pm.nick 7,1 15••0 Your Message Has Been4 Ignored 0¬ You Have Been Permanently Ignored 15•• 
  ignore %pm.nick 2
  closemsg %pm.nick
  dialog -c pmaccept
}

dialog away {
  option dbu
  size 200 200 100 100
  title Away Control:

  text "Away Extension:", 1, 4 5 50 7
  text "Away Reason:",2, 4 17 50 7
  edit "",3, 46 2 35 11
  edit "",4, 46 15 35 11
  button "Go Away",5, 4 30 30 12, flat
  button "Return",6, 38 30 30 12, flat
  button "Ok",7, 25 50 25 12, ok
  button "Cancel",8, 55 50 25 12, cancel
}

on 1:dialog:away:init:0: {
  did -a away 3 %away.extension
  did -a away 4 %away.msg
}
on 1:dialog:away:edit:3 {
  set %away.extension $did(away,3)
}
on 1:dialog:away:sclick:6: {
  back
}
on 1:dialog:away:edit:4: {
  set %away.msg $did(away,4)
}
on 1:dialog:away:sclick:5: {
  afk %away.msg
}
;message control
on 1:OPEN:?:*: {
  if (%away == 1) {
    msg $nick 7,1 15••04 $me 0Is Away ¬ 4Reason:0 %away.msg ¬ 4Gone Since:0 %away.time 15•• 
    msg $nick 7,1 15••0 Your Message Has Been4 Logged 15•• 
  }
  else {
    set %pm.message $1- | set %pm.nick $nick
    msg $nick 7,1 15••0 Hello9 %pm.nick 0I Am Using A Secure Query System 15•• 
    msg $nick 7,1 15••0 Please Wait For My Responce, I Will Be With You Shortly. 15•• 
    dialog -m pmaccept pmaccept
  }
}
dialog pmaccept {
  option dbu
  size 200 200 180 50
  title "Message Control:"

  text "You have received a message from:", 1, 4 4 147 7
  button "Accept", 2, 4 15 25 12,
  button "Ignore", 3, 32 15 25 12,
  button "Temp Ignore", 4, 60 15 40 12,
  button "Perm Ignore", 5, 105 15 40 12,
}
;popups
menu channel {
  Channel:channel
  Away System:dialog -m away away
}

on *:TEXT:*devoted*:#:{
  if (%away == 1) {
    notice $nick 7,1 15••04 $me 0Is Away ¬ 4Reason:0 %away.msg ¬ 4Gone Since:0 %away.time 15•• 
  }
}