Query Question

[JasonK]

Hi all,

 

I was hoping to get some advice here on how to get mirc to handle query requests much like Buzzen's webchat interface where you would accept or decline querys ect.

 

Any help would be greatly appreciated.

 

Thank you.

[Guest X-Fusion]

Created by G13AoUsTiS .. fixed up the language and stuff

 

on *:load: { /set %accmsg $$?="Type Your Query Accepted Message" | /set %dismsg $$?="Type Your Query Declined Message" | /set %bumsg $$?="Type Your Query Busy Message" | /echo -a 2* Thank You For Loading The Query Manager By G13AoUsTiS }       
dialog Qman {
  title "Query Manager"
  size -1 -1 126 190
  option dbu
  text "Query Manager By G13AoUsTiS", 1, 19 4 95 8, disable center
  box "Query Accept/Decline", 2, 9 19 111 40
  check "ON", 3, 34 31 50 10
  check "OFF", 4, 35 44 50 10
  box "Busy Mode", 5, 10 65 108 40
  check "ON", 6, 35 77 50 10
  check "OFF", 7, 35 91 50 10
  text "Accept Message", 8, 4 117 42 8, center
  edit %accmsg, 9, 48 116 71 10, autohs
  text "Decline Message", 10, 4 131 42 8, center
  edit %dismsg, 11, 48 130 71 10, autohs
  text "Busy Message", 12, 4 143 42 8, center
  edit %bumsg, 13, 48 142 71 10, autohs
  button "OK", 14, 14 163 37 12, ok
  button "Cancel", 15, 76 162 37 12, cancel
}

on *:dialog:qman:sclick:*: {
  if ($did == 3) { /set %qman on }
  if ($did == 4) { /set %qman off }
  if ($did == 6) { /set %bmode on }
  if ($did == 7) { /set %bmode off }
}

on *:dialog:qman:edit:*: {
  if ($did == 9) { /set %accmsg $did(qman,9) }
  if ($did == 11) { /set %dismsg $did(qman,11) }
  if ($did == 13) { /set %bumsg $did(qman,13) }
}

on *:OPEN:?: {
  if (%qman == on) && (%bmode == off) { 
    .msg $nick Please wait while I am checking your query .....
    set %nnick $nick
    set %naddress $fulladdress
    set %nmsg $1-
    dialog -m qaccde qaccde
  }
  if (%bmode == on) { .msg $nick %bumsg }
}


dialog qaccde {
  title "Accept - Decline"
  size -1 -1 145 90
  option dbu
  text "NickName", 1, 6 7 26 8, center
  edit %nnick, 2, 37 6 100 10, disable
  text "FullAddress", 3, 5 17 28 8, center
  edit %naddress, 4, 37 16 100 10, disable
  text "Message", 5, 5 28 25 8, center
  edit %nmsg, 6, 35 28 105 35, disable
  button "Accept", 7, 28 69 37 12
  button "Decline", 8, 91 69 37 12
}

on *:dialog:qaccde:sclick:*: {
  if ($did == 7) { .msg %nnick %accmsg | /unset %nnick | /unset %naddress | /unset %nmsg | /dialog -x qaccde }
  if ($did == 8) { .msg %nnick %dismsg | /unset %nnick | /unset %naddress | /unset %nmsg | /dialog -x qaccde }
}

menu channel {
-
Query Manager: /dialog -m qman qman
}

 

[Guest Travis]

From SoulFly ...

 

raw data:*:{
  if ($3 == CMWHISP) && ($window($nick)) {
    if ($4 == WHISPACCEPTED) { echo 11 -t $nick ... Your whisper with $nick has been accepted. }
    elseif ($4 == WHISPWNDCLOSED) { echo 11 -t $nick ... $nick has closed their whisper window. }
  }

 

This is an excerpt not a complete code. There is a bracket mismatch.