BlueHell mIRC Script — File Browser

BlueHellmIRCScriptv1.0 / BlueHellmIRCScriptv1.0 / BlueHellScript / query.mrc

query.mrc — 2.23 KB — Download this file

on 1:text:*:#:{
  if ($me isin $1-) {
    if ($active !== $chan) {
      .set %incomingnick $nick
      .set %incomingchan $chan 
      .set %incomingaddress $remove($address($nick,2),*!*@) 
      .inform
    }
  }
}
on 1:ACTION:*:#:{
  if ($me isin $1-) {
    if ($active !== $chan) {
      .set %incomingnick $nick
      .set %incomingchan $chan 
      .set %incomingaddress $remove($address($nick,2),*!*@)
      .inform
    }
  }
}
alias inform {
  dialog -m notez notez 
}
alias querycheck {
  dialog -m querycheck querycheck
}
dialog notez {
  title "Notifier"
  size -1 -1 300 40
  option dbu
  button  ( $+  %incomingnick $+ / $+ %incomingaddress $+ ) said something about you on %incomingchan , 11, 2 2 295 35, ok tab 1
}
on 1:dialog:notez:sclick:11: { .join %incomingchan | .dialog -c notez notez }
on 1:OPEN:?:{
  if (%QueryInspector == on) {
    .msg $nick Please wait...reviewing your private message.
    .set %querynick $nick
    .set %querytime $remove($timestamp,[,])
    .set %querymsg $1-
    .set %queryaddress $address($nick,2)
    .set %querymask ( $+ $nick $+ / $+ $remove($address($nick,2),*!*@) $+ )
    .querycheck
  }
}
dialog querycheck {
  title "Incoming message"
  size -1 -1 220 58
  option dbu
  text  %querymask Wants to chat with you.. , 11, 2 2 215 35, ok tab 1, center
  text  ( $+ %querytime $+ ) %querynick $+ : %querymsg , 15, 2 8 215 20, ok tab 1, center
  button "Accept" 12, 20 16 55 17, ok tab 1
  button "Reject" 13, 80 16 55 17, ok tab 1
  button "Ignore" 14, 140 16 55 17, ok tab 1
  button "Disable Query Inspector" 16, 62 35 100 10
  button "Enable Query Inspector" 17, 62 45 100 10
}
on 1:dialog:querycheck:sclick:*: {
  if ($did == 12) { .query %querynick | .msg %querynick your query has been accepted. | dialog -c querycheck querycheck  }
  if ($did == 13) { .msg %querynick your query has been rejected. | .close -m %querynick | dialog -c querycheck querycheck }
  if ($did == 14) { .msg %querynick You have been ignored. | .close -m %querynick | /ignore %queryaddress | dialog -c querycheck querycheck }
  if ($did == 16) { .set %QueryInspector off | .dialog -c querycheck querycheck }
  if ($did == 17) { .set %QueryInspector on | .dialog -c querycheck querycheck }
}