oLcAY pm blocker

on ^*:OPEN:?: {
  set %pmer $nick
  dialog -m Query Query
}

Alias Query dialog -md Query Query 
Menu * {
  -
  Query:Query
  -
} 
dialog Query {
  title "query ding"
  size -1 -1 172 159
  option dbu
  box "query ding", 1, 1 1 1 1
  text "Mag Hij praten?", 2, 1 10 100 10
  button "Ja", 3, 1 20 15 10
  button "Nee", 4, 1 30 15 10
}
on *:dialog:Query:sclick:3:{ msg %pmer Query accepted enzeu | msg $me nu nog dit afsluiten :s }
on *:dialog:Query:sclick:4:{ msg %pmer ik ben verwaand en wil niet met je praten | close -m $qnick | msg $me nu nog dit afsluiten :s }