on *:open:?:*:{ 
  if (%ClearFrag == on) { 
    set %ClearFrag.nick $nick 
    set %ClearFrag.message $1-  
    msg $nick 14,1[15»0 Hello7 $nick $+ 0.  Thank you for messaging me. 15«14]
    msg $nick 14,1[15»0 You are currently PM number7 $query(0) $+ 0. 15«14]
    msg $nick 14,1[15»0 If I don't respond shortly, please feel free to email me at7 mklaif@gmail.com0. 15«14]
    /dialog -m ClearFrag ClearFrag 
  } 
} 

dialog ClearFrag { 
  title "ClearFrag Servers" 
  size 150 150 150 100 
  option dbu 

  text "", 1, 5 5 140 10 

  box "Message:", 2, 5 15 140 60 

  edit "", 3, 10 25 130 45, multi read 

  button "Accept", 4, 5 80 25 15, 
  button "Denied", 5, 35 80 25 15, 
  button "Cancel", 6, 120 80 25 15, cancel 

} 
on *:dialog:ClearFrag:sclick:4:{ 
  msg %ClearFrag.nick 14,1[15»0 Your message has been7 ACCEPTED0. 15«14]
  dialog -c ClearFrag ClearFrag 
} 
on *:dialog:ClearFrag:sclick:5:{ 
  close -m %ClearFrag.nick | msg %ClearFrag.nick 14,1[15»0 Your message has been7 DENIED0. 15«14] 
  dialog -c ClearFrage ClearFrag 
} 
on *:dialog:ClearFrag:init:0:{ 
  did -ra ClearFrag 1 Incoming pm from: %ClearFrag.nick 
  did -ra ClearFrag 3 %ClearFrag.message 
} 
on *:dialog:ClearFrag:close:0:{ 
  unset %ClearFrag.message 
  unset %ClearFrag.nick 
  /dialog -c ClearFrag ClearFrag 
} 
menu menubar,channel,status { 
  ClearFrag On/Off: 
  .Turn On:set %ClearFrag on 
  .Turn Off:set %ClearFrag off
}