Forums Scripts & Popups block a query

on 1:OPEN:?:*: {
  if ($nick == %nickaceptado) { .msg $1 bienvenido a mi privado }
  else { 
    .echo -s Please 
    .ignore $nick 
    close -m $nick 
  }
}

on 1:text:*:?: {
  echo $chan 0,4 l nick $nick quiere hablar en privado con ud... 
  .pregunta
} 

alias pregunta {
  set %aceptar $$?="Desea aceptar si o no" 
  if (%aceptar == si my code here) { commands }
  else { .msg $Nick i dont not acepted }
}

on ^1:OPEN:?:*: {
  set -u120 %nick $nick
  set -u120 %message $1-
  msg $nick Please standby for confirmation, I am using a secure query event.
  dialog -dm query.block query.block
  did -a query.block 7 %nick
  did -a query.block 4 %message
  haltdef
}

dialog query.block {
  title "MaGoOsCuRo's Query Blocker"
  size -1 -1 131 156
  option dbu
  text "Nickname:", 1, 5 11 26 8
  box "MaGoOsCuRo's Query Blocker.", 2, 2 1 127 153
  text "Message:", 3, 6 45 25 8
  edit "", 4, 4 58 118 45
  edit "", 7, 4 23 118 10
  button "Accept", 5, 7 119 37 12, ok
  button "Decline", 6, 86 119 37 12, ok
  button "Close", 8, 6 140 119 9, cancel
}

on 1:DIALOG:query.block:sclick:5: {
  query %nick
  .msg %nick I have accepted your request %nick $+ , what did you want?
  echo %nick :: $me :: I have accepted your request %nick $+ , what did you want?
  echo %nick :: %nick :: %message
  dialog -x query.block query.block
}

on 1:DIALOG:query.block:sclick:6: {
  msg %nick Sorry %nick $+ , I am not accepting any pm's at this time. Please try again later.
  ignore -u60 %nick $+ !*@*
  dialog -x query.block query.block
}

on 1:DIALOG:query.block:sclick:8: {
  dialog -x query.block query.block
}

echo %nick < $+ $me $+ > I have accepted your request %nick $+ , what did you want?  
echo %nick < $+ %nick $+ > %message