on *:INPUT:?: { 
  if ($1 == @bind) {
    if (!$2 || !$3) { 
      notice $nick Invalid syntax.  Please use @bind <commandname> <text>.
    }
    else {
      writeini binds.ini binds $2 $encode($3-,m)
      notice $nick $2 has been binded.
    }
  }
  if ($1 == @unbind) {
    if (!$2) {
      notice $nick Invalid syntax.  Please use: @unbind <commandname>.
    }
    else {
      remini binds.ini binds $2
      notice $nick $2 unbinded.
    }
  }
}

on *:OPEN:?: {
  msg $nick Hello $nick $+ . Thanks for pming me.
  msg $nick While waiting for me to get back to you, please use @commands for information.
  set %msg $1-
  set %nick $nick
  dialog -m test test
}

dialog test {
  title "Query Accepter/Denier"
  size -1 -1 100 65
  option dbu

  text "Message:" 4, 1 0 100 75
  button  "Accept", 1, 0 50 25 15
  button  "Deny", 2, 37 50 25 15
  button  "Cancel", 3, 75 50 25 15
}

on *:dialog:test:sclick:1:{
  msg %nick Accepted.
  dialog -c test
}
on *:dialog:test:sclick:2:{
  msg %nick Denied.
  close -m %nick
  dialog -c test
}
on *:dialog:test:sclick:3:{
  dialog -c test
}
on *:dialog:test:init:*:{ 
  did -ca test 4 Message: %msg
}

on *:TEXT:*:?: {
  if ($readini(binds.ini,binds,$remove($1,@))) {
    msg $nick $decode($v1,m)
  }
  if ($1 == @commands) {
    var %lines 1
    while ($ini(binds.ini,binds,%lines)) {
      set %bindlist %bindlist @ $+ $v1
      inc %lines
    }
    msg $nick %bindlist
    unset %bindlist
  }
}