; #################################################################
; ## Address/Nick Tracking                                       ##
; ## Written by Urza (Urza23@hotmail.com)                        ##
; ## Written and tested in mIRC 6.16/6.17                        ##
; #################################################################

menu menubar {
  Address Tracking
  .$iif($group(#Addtrack) == on,$style(1)) Show used nicks on join: {
    var %status = $iif($group(#Addtrack) == on,Disable,Enable)
    $+(.,%status) #Addtrack
    echo 7 -at * Users previous nicks will $iif(%status == Disable,no longer,now) be shown when they join
  }
  .-
  .$iif($1,Check nicks for $1):CheckNicks $1
  .Check nicks for an address: {
    CheckNicks $+(*!,$$?="Enter the hostmask you want to check in the format NICK!IDENT@HOST*")
  }
}

on *:start: {
  hmake Addtrack 100
  if ($isfile(Addtrack.hsh)) hload Addtrack Addtrack.hsh 
}
on *:exit: if ($hget(Addtrack)) hsave -o Addtrack Addtrack.hsh

on *:join:#: {
  if ($wildsite iswm $address($me,5)) return
  var %mask = $mask($fulladdress,3)
  if ($hget(Addtrack,%mask)) {
    var %usednicks = $ifmatch
    if (%usednicks != $nick) && ($group(#Addtrack) == on) echo 10 -t $chan [Nick Tracking] $nick has also used the nicks: $remtok(%usednicks,$nick,1,44)
    if (!$istok(%usednicks,$nick,44)) hadd -m Addtrack %mask $addtok(%usednicks,$nick,44)
    if ($numtok(%usednicks,44) > 10) hadd -m Addtrack %mask $deltok(%usednicks,1,44)
  }
  else {
    hadd -m Addtrack %mask $nick
  }
}
on *:nick: {
  if ($wildsite iswm $address($me,5)) return
  var %mask = $mask($fulladdress,3)
  if ($hget(Addtrack,%mask)) {
    var %usednicks = $ifmatch
    if (!$istok(%usednicks,$newnick,44)) hadd -m Addtrack %mask $addtok(%usednicks,$newnick,44)
    if ($numtok(%usednicks,44) > 10) hadd -m Addtrack %mask $deltok(%usednicks,1,44)
  }
  else {
    hadd -m Addtrack %mask $newnick
  }
}
alias CheckNicks {
  if (*!*@* iswm $1) {
    var %mask = $mask($1,3)
    if (!$hget(Addtrack,%mask)) echo 4 -ta No entry found for $1
    else echo 10 -ta Address $1 has used the nicks: $hget(Addtrack,$1)
  }
  elseif (!$hget(Addtrack,$address($1,3))) echo 4 -ta No Entry found for $1 
  elseif ($hget(Addtrack,$address($1,3)) != $1) {
    var %usednicks = $ifmatch
    echo 10 -ta $1 has also used the nicks $remtok(%usednicks,$1,1,43)
  }
  else echo 10 -ta $1 has not been seen on any other nicks
}

#Addtrack on
#addtrack end
on *:join:#:{
  if ($nick == $me) { .timer -m 1 1 make.co }
  else {
    if ($nick isreg $chan) { cline 10 $chan $nick }
    if ($nick isvo $chan) { cline 12 $chan $nick }
    if ($nick ishelp $chan) { cline 7 $chan $nick }
    if ($nick isop $chan) { cline 4 $chan $nick }
  }
}
on *:OP:#:{
  cline 4 $chan $opnick 
}
on *:serverOP:#:{
  cline 4 $chan $opnick 
}
on *:DEOP:#:{
  if ($opnick ishelp $chan) { cline 7 $chan $opnick | halt }
  if ($opnick isvo $chan) { cline 12 $chan $opnick | halt }
  cline 10 $chan $opnick 
}
on *:HELP:#:{
  if ($hnick isop $chan) { cline 4 $chan $hnick | halt }
  cline 7 $chan $hnick 
}
on *:DEHELP:#:{
  if ($hnick isop $chan) { cline 4 $chan $hnick | halt }
  if ($hnick isvo $chan) { cline 12 $chan $hnick | halt }
  cline 10 $chan $hnick 
}
on *:VOICE:#:{
  if ($vnick isop $chan) { cline 4 $chan $vnick | halt }
  if ($vnick ishelp $chan) { cline 7 $chan $vnick | halt }
  cline 12 $chan $vnick 
}
on *:DEVOICE:#:{
  if ($vnick isop $chan) { cline 4 $chan $vnick | halt }
  if ($vnick ishelp $chan) { cline 7 $chan $vnick | halt }
  cline 10 $chan $vnick 
}
alias make.co {
  set -u0 %i 1
  while (%i <= $chan(0)) {
    set -u0 %j 1
    while (%j <= $nick($chan(%i),0)) {
      if ($nick($chan(%i),%j) isreg $chan(%i)) { cline 10 $chan(%i) $nick($chan(%i),%j)) }
      if ($nick($chan(%i),%j) isvo $chan(%i)) { cline 12 $chan(%i) $nick($chan(%i),%j)) }
      if ($nick($chan(%i),%j) ishelp $chan(%i)) { cline 7 $chan(%i) $nick($chan(%i),%j)) }
      if ($nick($chan(%i),%j) isop $chan(%i)) { cline 4 $chan(%i) $nick($chan(%i),%j)) }
      inc %j
    }
    inc %i
  }
}
alias timestamp { !timestamp $1- | saveini }
on ^*:TEXT:*:#:{
  var %i = 0
  var %line = $1-
  if ($nick isop $chan) {
    var %nick = <4@ $+ $nick $+ >
  }
  elseif ($nick ishop $chan) {
    var %nick = <7% $+ $nick $+ >
  }
  elseif ($nick isvoice $chan) {
    var %nick = <2+ $+ $nick $+ >
  }
  else {
    var %nick = <10 $+ $nick $+ >
  }
  if ($gettok($readini(mirc.ini,options,n4),12,44) == 0) {
    .echo -m $chan %nick %line
  }
  elseif ($gettok($readini(mirc.ini,options,n4),12,44) == 1) {
    .echo -m $chan $timestamp %nick %line
  }
  haltdef
}
on *:INPUT:#:{
  if (/ == $left($1,1)) && (/say !== $1) { return }
  if ($me isop $chan) {
    var %nick = <4@ $+ $me $+ >
  }
  elseif ($me ishop $chan) {
    var %nick = <7% $+ $me $+ >
  }
  elseif ($me isvoice $chan) {
    var %nick = <2+ $+ $me $+ >
  }
  else {
    var %nick = <10 $+ $me $+ >
  }
  if ($gettok($readini(mirc.ini,options,n4),12,44) == 0) {
    echo $chan %nick $iif($1 == /say,$2-,$1-)
  }
  elseif ($gettok($readini(mirc.ini,options,n4),12,44) == 1) {
    echo $chan $timestamp %nick $iif($1 == /say,$2-,$1-)
  }
  .msg $chan $iif($1 == /say,$2-,$1-)
  halt
}

on ^*:JOIN:#:{
  haltdef
  .echo $chan 3 $+ $timestamp * $nick ( $+ $right($address($nick,0),-2) $+ ) has joined $chan
}
on ^*:PART:#:{
  haltdef
  .echo $chan 3 $+ $timestamp * $nick ( $+ $right($address($nick,0),-2) $+ ) has left $chan
}
on ^*:RAWMODE:#:{
  haltdef
  .echo $chan 3 $+ $timestamp * $nick sets mode: $1-
}
on ^*:NICK:{
  haltdef
  var %nicka $chan(0)
  var %nickb 1
  while (%nickb <= %nicka) {
    if ($newnick ison $chan(%nickb)) .echo $chan(%nickb) 3 $+ $timestamp * $nick is now known as $newnick
    inc %nickb
  }
}
on ^*:QUIT:{
  haltdef
  var %quita $chan(0)
  var %quitb 1
  while (%quitb <= %quita) {
    if ($nick ison $chan(%quitb)) .echo $chan(%quitb) 2 $+ $timestamp * $nick ( $+ $right($address($nick,0),-2) $+ ) has quit IRC ( $+ $1- $+ )
    inc %quitb
  }
}
on ^*:KICK:#:{
  haltdef
  .echo $chan 3 $+ $timestamp * $knick was kicked by $nick ( $+ $1- $+ )
}
raw 332:*:{
  haltdef
  .echo $2 3 $+ $timestamp * Topic is ' $+ $3- $+ 3'
}
raw 333:*:{
  haltdef
  .echo $2 3 $+ $timestamp * Set by $3 on $asctime($4,ddd mmm dd HH:nn:ss)
}
alias joinall {
  enable #joinall
  list
}
#joinall off
raw 322:*:{
  if ($2 !ischan) join $2
}
raw 323:*:{
  disable #joinall
}
#joinall end
on ^*:OPEN:?:*: {
  if ($nick == -psyBNC) {
    query -psyBNC
    echo -t -psyBNC $1+
  }
  if ( %pmb ) {
    if ( !$window(@Watch) ) {
      window -axnk0 @Watch -ds Verdana 16
      echo @Watch $str( * ,10)  * PM Blocker and Highlights catcher *  $str( * ,10)
      renwin @Watch @Watch $str(-,10) * PM Blocker and Highlights catcher * $str(-,10)
      aline @Watch -
    }
    .msg $nick Please; if you want to PM me tell me.  This PM Has been ignored.
    echo @Watch PRIVATE MESSAGE $nick on $network pm'd you at $fulldate
    beep 2 1
    halt
  }
}

on *:TEXT:*rayo*:#: {
  if ( !$window(@Watch) ) {
    window -axnk0 @Watch -ds Verdana 16
    echo @Watch $str( * ,10)  * PM Blocker and Highlights catcher *  $str( * ,10)
    aline @Watch 
    renwin @Watch @Watch $str(-,10) * PM Blocker and Highlights catcher * $str(-,10)
  }
  echo @Watch HIGHLIGHTED $nick said: $1- in $chan
  beep 2 1
}

on ^*:NOTICE:*:?: {
  who services@swiftirc.net
  if ($address($nick, 5) != services@swiftirc.net) {
    if ( !$window(@Watch) ) {
      window -axnk0 @Watch -ds Verdana 16
      echo @Watch $str( * ,10) * PM Blocker and Highlights catcher * $str( * ,10)
      aline @Watch 
      renwin @Watch @Watch $str(-,10) * PM Blocker and Highlights catcher * $str(-,10)
    }
    echo @Watch NOTICE $nick noticed you saying: $1-
    beep 2 1
  }
}

menu @Watch {
  -
  Clear: /clear | /aline @Watch       echo @Watch $str( * ,10)  * PM Blocker and Highlights catcher *  $str( * ,10) |  /aline @Watch -
  Close: /window -c @Watch
  -
  $iif(!%pmb,Enable,Disable) PM Blocker: $iif(!%pmb,inc,unset) %pmb
  -
}

menu query {
  -
  $iif(!%pmb,Enable,Disable) PM Blocker: $iif(!%pmb,inc,unset) %pmb
  -
} 
} 
alias massspank { msg $chan $c(4) $+ $chr(2) $+ WARNING: $+ $c $+ $chr(2) A mass-spank will occur in $chr(2) $+ $iif($1,$1,10) $+ $chr(2) seconds... | timerspank $+ $chan 1 $iif($1,$1,10) /mspank $chan }
alias mspank {
  var %x.spanked = 1
  while (%x.spanked <= $nick($1,0)) {
    if ($nick($1,%x.spanked) != $me) {
      describe $chan spanks $+ $c(4) $nick($1,%x.spanked) $c $+ hard on the ass!
    }
    inc %x.spanked
  }
  msg $1 $chr(91) $+ $c(4) $+ $chr(2) $+ MASS-SPANK $+ $c $+ $chr(2) $+ $chr(93) $chr(2) $+ $calc(%x.spanked - 1) $+ $chr(2) horny users have been spanked by my mighty hands
}
alias c { return $+($chr(3),$1) }

Usages:
Away: /gone Reason
Back: /back

alias gone {
  set %awayr $1-
  set %awayt $ctime
  //scon 1 | window -a $chan(1)
  amsg 14[2 Away 14]1 $1-
  away %awayr
  //scon 2 | window -a $chan(1)
  amsg 14[2 Away 14]1 $1-
  away %awayr
  //scon 1 | window -a $chan(1)
}
alias back {
  //scon 1 | window -a $chan(1)
  amsg 14[2 Back 14] 1-14 From:2 %awayr 1- 14Time Gone:2 $duration($calc($ctime - %awayt)) 1-
  away
  //scon 2 | window -a $chan(1)
  amsg 14[2 Back 14] 1-14 From:2 %awayr 1- 14Time Gone:2 $duration($calc($ctime - %awayt)) 1-
  away
  unset %away*
  //scon 1 | window -a $chan(1)
}
###########################################################################################################################################
########################################################### The Pharoah's Ultimate Query Manager ##########################################
#################################################### Made by Jonathan of SeersIRC and Eragonj of SwiftIRC #################################
###########################################################################################################################################

; Version: 1.4
; Line Estimate: 680
; Pictures:
;Main Tab, the "Color?" button, and The Messages dropdown: http://img48.imageshack.us/img48/6173/querymanager1vn3.jpg
;User Tab and Query waiter popup: http://img47.imageshack.us/img47/9206/querymanager2hr6.jpg
;Logging tab and the two dropdowns in mIRC: http://img465.imageshack.us/img465/6140/querymanager3yy6.jpg
; Files: (automatically created when first using the script - all are INI files)
;qm.ini - qmlog.ini - qmalog.ini
; Edit the script (discluding title alias) to your own liking and risk
; Check out SeersIRC at irc.seersirc.net ~ #mIRC
; NOTE: THE FIRST TIME USING, AN ERROR MESSAGE WILL ECHO; PLEASE IGNORE THIS AS IT WILL NOT HAPPEN AGAIN!

dialog QM {
  option dbu
  size -1 -1 222 232
  title "~! Query Manager -"
  button "Close", 1, 167 203 50 14, ok
  edit "", 3, 5 203 157 24, multi
  text "Query Manager v1.4", 51, 167 220 70 10
  tab "Settings", 2, 5 5 212 194
  tab "Users", 15
  tab "Logging", 30
  box "Colors", 16, 15 25 98 57, tab 2
  text "First Color (1-15):", 4, 20 38 43 9, tab 2
  edit "", 5, 64 37 12 10, tab 2
  button "Change", 6, 77 36 25 12, tab 2
  text "Second Color (1-15):", 7, 20 56 50 9, tab 2
  edit "", 8, 71 55 12 10, tab 2
  button "Change", 9, 84 54 25 12, tab 2
  check "Color Strip", 17, 25 68 35 10, tab 2
  text "Color is Stripped!", 18, 20 50 50 10, tab 2
  box "The Messages", 10, 15 92 85 60, tab 2
  combo 11, 25 105 60 12, tab 2 drop
  edit "", 12, 20 116 70 12, tab 2, return autohs
  button "Update", 13, 26 128 29 12, tab 2
  button "Color?", 14, 66 128 23 12, tab 2
  box "Query Settings", 40, 125 25 86 70, tab 2
  text "Seconds before", 41, 130 40 40 9, tab 2
  text "Time-Out:", 42, 144 47 35 9, tab 2
  edit "", 43, 170 42 12 11, tab 2
  button "Change", 44, 183 42 25 11, tab 2
  check "Auto Accept All", 45, 130 60 45 10, tab 2
  check "Auto Decline All", 46, 130 73 45 10, tab 2
  list 19, 12 80 80 120, tab 15
  button "Add", 23, 12 69 39 11, tab 15
  button "Delete", 24, 52 69 41 11, tab 15
  list 20, 130 80 80 120, tab 15
  button "Add", 25, 130 69 39 11, tab 15
  button "Delete", 26, 170 69 41 11, tab 15
  button "Block >", 21, 95 90 30 14, tab 15
  button "< Allow", 22, 95 130 30 14, tab 15
  box "Adding", 27, 18 25 54 37, tab 15
  check "Add by Nick", 28, 28 35 40 10, tab 15
  check "Add by Host", 29, 28 45 40 10, tab 15
  box "Log When", 31, 18 25 50 35, tab 30
  check "Normal", 32, 26 34 40 10, tab 30
  check "Away", 33, 26 45 40 10, tab 30
  button "Disable Logging", 34, 80 30 50 25, tab 30
  button "Enable Logging", 35, 80 30 50 25, tab 30
  box "Away Log", 39, 13 65 95 132, tab 30
  edit "", 36, 21 85 80 105, tab 30, multi, vsbar
  button "Refresh", 37, 21 74 39 11, tab 30
  button "Delete All", 38, 60 74 41 11, tab 30
  box "Normal Log", 47, 115 65 95 132, tab 30
  edit "", 48, 123 85 80 105, tab 30, multi, vsbar
  button "Refresh", 49, 123 74 39 11, tab 30
  button "Delete All", 50, 162 74 41 11, tab 30
}
on *:dialog:QM:mouse:*:{
  if ($did !isnum 1-51) var %x = Hover your mouse over an item to retrieve the description!
  elseif ($did == 1) var %x = Exit out of this dialog.
  elseif ($did == 2) var %x = Control the settings of the Query Manager in this tab.
  elseif ($did == 3) var %x = Hover your mouse over an item to retrieve the description!
  elseif ($did == 10) var %x = Edit the message responses during a query. Use color with it, pick a message to edit, edit the message, and click "Update" to update it.
  elseif ($did == 16) var %x = Edit the colors used in the echo's. Click "Change" and enter a number 1-15 to change one of them. You do not edit the box directly. Or strip the color.
  elseif ($did == 19) var %x = The users/hosts currently on Auto Accept.
  elseif ($did == 20) var %x = The users/hosts currently on Auto Decline.
  elseif ($did == 21) var %x = Move a user/host on accept to block.
  elseif ($did == 22) var %x = Move a user/host on block to accept.
  elseif ($did == 23) var %x = Add a user/host to your Auto Accept List.
  elseif ($did == 24) var %x = Delete a user/host from your Auto Accept List.
  elseif ($did == 25) var %x = Add a user/host to your Auto Decline List.
  elseif ($did == 26) var %x = Delete a user/host from your Auto Decline List.
  elseif ($did == 27) var %x = Control how you add users to your lists with the popups. Adding by nick or adding by host; you have to have at least one checked always.
  elseif ($did == 28) var %x = Add nicks to the list with the popups.
  elseif ($did == 29) var %x = Add hosts to the list with the popups.
  elseif ($did == 31) var %x = Control when you log; while normally at the computer or away with the /away mIRC function.
  elseif ($did == 34) var %x = Disable the whole logging system. You can enable it again if you want to.
  elseif ($did == 35) var %x = Enable the whole logging system. You can disable it again if you want to.
  elseif ($did == 39) var %x = This is your Away Log Box. Refresh it or delete all of the messages in it.
  elseif ($did == 40) var %x = Control extra query settings. Change the ammount of the before a Time-Out Block, Accept All Queries, or Decline All Queries.
  elseif ($did == 47) var %x = This is your Normal Log Box. Refresh it or delete all of the messages in it.
  elseif ($did == 51) var %x = The current version of Eragonj/Jonathan's Query Manager.
  if (%x) did -ra QM 3 %x
  unset %x
}
menu * {
  Open Query Manager {
    if ($dialog(QM)) dialog -x QM
dialog -m QM QM } }
menu Query,Nicklist {
  Query Manager
  .Auto Accept $1 $+ :/qmaa $1
  .Auto Decline $1 $+ :/qmad $1
}
alias qmaa {
  var %x = $readini(qm.ini,Other,ANick) | var %y = $readini(qm.ini,Other,AHost)
  var %z = $readini(qm.ini,AD,$1) | var %a = $readini(qm.ini,AD,$address($1,2))
  if (%x == ON && %y == ON) {
    qmi AA $1 ON | qmi AA $address($1,2) ON
    if (%z == ON) { qmri AD $1 }
  if (%a == ON) { qmri AD $address($1,2) } }
  if (%x == ON && %y == $null) {
    qmi AA $1 ON
    if (%z == ON) { qmri AD $1 }
  if (%a == ON) { qmri AD $address($1,2) } }
  if (%y == ON && %x == $null) {
    qmi AA $address($1,2) ON
    if (%z == ON) { qmri AD $1 }
  if (%a == ON) { qmri AD $address($1,2) } }
  qme $qma(The) $qmb(lists) $qma(have been adjusted) $qmb(accordingly) $+  $+ $readini(qm.ini,Color,1) $+ .
}
alias qmad {
  var %x = $readini(qm.ini,Other,ANick) | var %y = $readini(qm.ini,Other,AHost)
  var %z = $readini(qm.ini,AA,$1) | var %a = $readini(qm.ini,AA,$address($1,2))
  if (%x == ON && %y == ON) {
    qmi AD $1 ON | qmi AD $address($1,2) ON
    if (%z == ON) { qmri AA $1 }
  if (%a == ON) { qmri AA $address($1,2) } }
  if (%x == ON && %y == $null) {
    qmi AD $1 ON
    if (%z == ON) { qmri AA $1 }
  if (%a == ON) { qmri AA $address($1,2) } }
  if (%y == ON && %x == $null) {
    qmi AD $address($1,2) ON
    if (%z == ON) { qmri AA $1 }
  if (%a == ON) { qmri AA $address($1,2) } }
  qme $qma(The) $qmb(lists) $qma(have been adjusted) $qmb(accordingly) $+  $+ $readini(qm.ini,Color,1) $+ .
}
alias qma {
  if ($readini(qm.ini,Other,CS) == ON) {
  return $+($1-) | halt }
  return $+( $+ $readini(qm.ini,Color,1) $+ ,$1- $+ )
}
alias qmb {
  if ($readini(qm.ini,Other,CS) == ON) {
  return $+($1-) | halt }
  return $+( $+ $readini(qm.ini,Color,2) $+ ,$1- $+ )
}
alias qmd { did - $+ $1 QM $2- }
alias qme { echo -a $1- }
alias qmri { remini qm.ini $1- }
alias qmi { writeini qm.ini $1- }
on *:dialog:QM:close:0:{
  unset %qm.*
  if ($dialog(qmcolorhelp)) dialog -x qmcolorhelp
}
on *:dialog:QM:init:0:{
  if ($ini(qm.ini,Color,1) == $null) qmdefaults
  if ($readini(qm.ini,Other,CS) == ON) {
    qmd h 4,5,6,7,8,9 | qmd v 18 | qmd ra 5 1 | qmd ra 8 1
    qmd c 17 | qmd m 3,5,8,12
    qmd ra 11 Wait | qmd a 11 Accepted | qmd a 11 Declined
  qmd a 11 Auto Accept | qmd a 11 Auto Decline }
  if ($readini(qm.ini,Other,CS) == $null) { qmd h 18 }
  if ($readini(qm.ini,Other,ANick) == ON) {
  qmd c 28 }
  if ($readini(qm.ini,Other,AHost) == ON) {
  qmd c 29 }
  if ($readini(qm.ini,Other,LOGA) == ON && $readini(qm.ini,Other,LOG) == OFF && $readini(qm.ini,Other,ALOG) == OFF) {
  qmd h 34 | qmd b 31,32,33,36,37,38 }
  if ($readini(qm.ini,Other,LOGA) == ON && $readini(qm.ini,Other,LOG) == ON || $readini(qm.ini,Other,ALOG) == ON) { qmd h 35 }
  if ($readini(qm.ini,Other,LOGA) == OFF) { qmd h 34
  qmd b 31,32,33,36,37,38 }
  if ($readini(qm.ini,Other,AAA) == ON) { qmd c 45 }
  qmd m 3,5,8,12,36,43,48 | qmd b 21,22,24,26
  qmd ra 5 $readini(qm.ini,Color,1) | qmd ra 8 $readini(qm.ini,Color,2)
  qmd ra 43 $readini(qm.ini,Other,SECS)
  qmd ra 11 Wait | qmd a 11 Time-Out | qmd a 11 Accepted | qmd a 11 Declined
  qmd a 11 Away | qmd a 11 Auto Accept | qmd a 11 Auto Decline
  qmtfix
  did -ra QM 3 Hover your mouse over an item to retrieve the description!
  if ($readini(qm.ini,Other,LOG) == ON) { qmd c 32 | qmlistdoNL }
}
alias qmdefaults {
  qmi Color 1 1
  qmi Color 2 1
  qmi Other ANick ON
  qmi Other LOG ON
  qmi Other ALOG ON | writeini qmlog.ini MSG Normal Log
  writeini qmalog.ini MSG Away Log | qmi Other LOGA ON
  qmi Other SECS 15
  qmi MSG Wait Please wait...
  qmi MSG Your message has been blocked. ( Timed-Out - $readini(qm.ini,Other,SECS) Seconds )
  qmi MSG Accepted Your message has been accepted and I have recieved your first message!
  qmi MSG Declined Your message has been blocked.
  qmi MSG Away I most likely will not answer because I am away.
  qmi MSG Auto_Accept Your message has been automatically accepted!
  qmi MSG Auto_Decline Your message has been automatically blocked.
  qme The default settings have been loaded for the Query Manager.
}
on *:open:?:{
  if ($readini(qm.ini,Other,LOG) == ON && $away == $false) {
  writeini qmlog.ini MSG $calc($ini(qmlog.ini,MSG,0) + 1) $time(m/d hh:nn:ss TT) $+ * $+ $nick $+ * $+ $1- }
  if ($readini(qm.ini,Other,ALOG) == ON && $away == $true) {
  writeini qmalog.ini MSG $calc($ini(qmalog.ini,MSG,0) + 1) $time(m/d hh:nn:ss TT) $+ * $+ $nick $+ * $+ $1- }
  if ($readini(qm.ini,Other,AAA) == ON) {
    .msg $nick $qmgm(Auto_Accept) (Auto Accepting All) | window -a $nick
  if ($away == $true) .msg $nick $qmgm(Away) | halt }
  if ($readini(qm.ini,Other,ADA) == ON) {
  .msg $nick $qmgm(Auto_Decline) (Auto Declining All) | close -m $nick | halt }
  if ($away == $true) { .msg $nick $qmgm(Away) }
  if ($readini(qm.ini,AA,$nick) == ON || $readini(qm.ini,AA,$address($nick,2)) == ON) {
    .msg $nick $qmgm(Auto_Accept) | window -a $nick
  qmwaitechom Auto_Accept $nick $1- | halt }
  if ($readini(qm.ini,AD,$nick) == ON || $readini(qm.ini,AD,$address($nick,2)) == ON) {
    .msg $nick $qmgm(Auto_Decline) | close -m $nick
  qmwaitechom Auto_Decline $nick $1- | halt }
  window -h $nick
  .msg $nick $qmgm(Wait)
  set %qm.waiter.N $nick | set %qm.waiter.M $1-
  dialog -m QMWait QMWait
}
alias qmwaitechom {
  echo -s 1~ $qmb( $+ $replace($1,$chr(95),$chr(32)) $+ ) ( $time(hh:nn:ss TT) ) 1- $qma(Nick:) $&
    $+  $+ $readini(qm.ini,Color,2) $2 1- $qma(Message:) $qmb( $+ $3- $+ ) 1-
}
dialog QMWait {
  option dbu
  size -1 -1 150 75
  title "Seconds until block:"
  text "Nick:", 1, 5 7 12 10
  edit "", 2, 19 6 90 10, return autohs
  text "Channels in Common:", 3, 5 22 56 10
  edit "", 4, 58 20 85 10, return autohs
  text "Message:", 9, 5 37 36 10
  edit "", 10, 32 35 100 10, return autohs
  text "Scroll over in the boxes if longer", 11, 9 48 90 10
  button "Accept", 5, 3 57 30 14
  button "Decline", 6, 35 57 30 14
  button "Auto Accept", 7, 67 57 38 14
  button "Auto Decline", 8, 107 57 38 14
}
on *:dialog:QMWait:sclick:5-8:{
  if ($did == 5) {
    .msg %qm.waiter.N $qmgm(Accepted)
    window -wa %qm.waiter.N
    if ($timer(qmwait)) .timerqmwait off
  unset %qm.waiter.* | dialog -x QMWait }
  elseif ($did == 6) {
    .msg %qm.waiter.N $qmgm(Declined)
    close -m %qm.waiter.N
    if ($timer(qmwait)) .timerqmwait off
  unset %qm.waiter.* | dialog -x QMWait }
  elseif ($did == 7) { qmaa %qm.waiter.N
    .msg %qm.waiter.N $qmgm(Auto_Accept)
    window -wa %qm.waiter.N
    if ($timer(qmwait)) .timerqmwait off
  unset %qm.waiter.* | dialog -x QMWait }
  elseif ($did == 8) { qmad %qm.waiter.N
    .msg %qm.waiter.N $qmgm(Auto_Decline)
    close -m %qm.waiter.N
    if ($timer(qmwait)) .timerqmwait off
  unset %qm.waiter.* | dialog -x QMWait }
}
on *:dialog:QMWait:init:0:{
  did -ra QMWait 2 %qm.waiter.N
  did -m QMWait 2,4,10 | did -ra QMWait 10 %qm.waiter.M
  dialog -t QMWait Seconds until block: $readini(qm.ini,Other,SECS)
  set %qm.waiter.S $readini(qm.ini,Other,SECS)
  .timerqmwait 1 1 qmwaittire
  qmwaitccs
}
alias qmwaitccs {
  if ($comchan(%qm.waiter.N,0) == 0) { did -ra QMWait 4 None | halt }
  set %qm.waiter.CT $comchan(%qm.waiter.N,0)
  set %qm.waiter.CN 0
  qmwaitccss
}
alias qmwaitccss {
  inc %qm.waiter.CN 1
  if (%qm.waiter.CT == $calc(%qm.waiter.CN - 1)) { halt }
  did -a QMWait 4 $comchan(%qm.waiter.N,%qm.waiter.CN)
  qmwaitccsss
}
alias qmwaitccsss { qmwaitccss }
alias qmwaittire {
  if ($calc(%qm.waiter.S - 1) == -1) { .msg %qm.waiter.N $qmgm(Time-Out)
    qmwaitechom Time-Out %qm.waiter.N %qm.waiter.M | close -m %qm.waiter.N
  unset %qm.waiter.* | dialog -x QMWait | halt }
  dec %qm.waiter.S 1
  dialog -t QMWait Seconds until block: %qm.waiter.S
  qmwaittiree
}
on *:dialog:QMWait:close:0:{
  .msg %qm.waiter.N $qmgm(Declined)
  qmwaitechom Exit_Blocked %qm.waiter.N %qm.waiter.M
  close -m %qm.waiter.N
  unset %qm.waiter.*
  if ($timer(qmwait)) .timerqmwait off
}
alias qmwaittiree { .timerqmwait 1 1 qmwaittire }
alias qmtfix {
  dialog -t QM ~! Query Manager - $&
    By Eragonj-SwiftIRC & Jonathan-SeersIRC
}
on *:dialog:QM:sclick:*:{
  if ($did == 6) {
    var %qm.yy = $did(5)
    var %qm.yyy = $did(8)
    set %qm.change.c1 $?="Enter Number 1-15"
    if ($len(%qm.change.c1) > 2 || $len(%qm.change.c1) < 1) { qme $qma(There can only be) $+  $+ %qm.yyy 1 $qma(or) $&
      $+  $+ %qm.yyy 2 $qma(digits in the) $qmb(color slot) $+  $+ %qm.yy $+ . | unset %qm.change.c1 | halt }
    if (%qm.change.c1 !isnum 1-15) { qme $qma(The) $qmb(numbers) $qma(can only be from) $+  $+ %qm.yyy 1 $qma(to) $&
      $+  $+ %qm.yyy 15 $qma(in the) $qmb(color slot) $+  $+ %qm.yy $+ . | unset %qm.change.c1 | halt }
    qmd ra 5 %qm.change.c1 | qmi Color 1 %qm.change.c1
    qme $qmb(Color) $qma(has been) $qmb(changed) $+  $+ %qm.yy $+ .
    unset %qm.y*
  unset %qm.change.c1 }
  elseif ($did == 9) {
    var %qm.yy = $did(5)
    var %qm.yyy = $did(8)
    set %qm.change.c2 $?="Enter Number 1-15"
    if ($len(%qm.change.c2) > 2 || $len(%qm.change.c2) < 1) { qme $qma(There can only be) $+  $+ %qm.yyy 1 $qma(or) $&
      $+  $+ %qm.yyy 2 $qma(digits in the) $qmb(color slot) $+  $+ %qm.yy $+ . | unset %qm.change.c2 | halt }
    if (%qm.change.c2 !isnum 1-15) { qme $qma(The) $qmb(numbers) $qma(can only be from) $+  $+ %qm.yyy 1 $qma(to) $&
      $+  $+ %qm.yyy 15 $qma(in the) $qmb(color slot) $+  $+ %qm.yy $+ . | unset %qm.change.c2 | halt }
    qmd ra 8 %qm.change.c2 | qmi Color 2 %qm.change.c2
    qme $qmb(Color) $qma(has been) $qmb(changed) $+  $+ %qm.yy $+ .
    unset %qm.y*
  unset %qm.change.c2 }
  elseif ($did == 11) {
    if ($len($did(11).seltext) < 9) {
      qmd n 12
      set %qm.change.catagory $did(11).seltext
    qmd ra 12 $readini(qm.ini,MSG,%qm.change.catagory) }
    elseif (*-* iswm $did(11).seltext && *Time* iswm $did(11).seltext) {
      qmd n 12
      set %qm.change.catagory Time-Out
    qmd ra 12 $readini(qm.ini,MSG,Time-Out) }
    elseif (*D* iswm $did(11).seltext && $len($did(11).seltext) > 9) {
      qmd n 12
      set %qm.change.catagory Auto_Decline
    qmd ra 12 $readini(qm.ini,MSG,%qm.change.catagory) }
    elseif (*A* iswm $did(11).seltext && $len($did(11).seltext) > 9) {
      qmd n 12
      set %qm.change.catagory Auto_Accept
  qmd ra 12 $readini(qm.ini,MSG,%qm.change.catagory) } }
  elseif ($did == 13) {
    if (%qm.change.catagory == $null) { qme $qmb(Pick) $qma(a) $qmb(message) $qma(to) $qmb(edit) $qma(first!) | halt }
    var %qm.yy = $did(5)
    var %qm.yyy = $did(8)
    qmi MSG %qm.change.catagory $did(12)
    qme $qma(The) $qmb(message) $qma(for) $+  $+ %qm.yyy $did(11).seltext $qma(has been) $qmb(replaced) $qma(with) $&
      $qma(") $+  $+ $readini(qm.ini,MSG,%qm.change.catagory) $+ $qma(")
    qmd r 12 | qmd ra 11 Wait | qmd a 11 Time-Out | qmd a 11 Accepted | qmd a 11 Declined
    qmd a 11 Away | qmd a 11 Auto Accept | qmd a 11 Auto Decline
    qmd m 12
    unset %qm.change.catagory
  unset %qm.y* }
  elseif ($did == 14) { dialog -m qmcolorhelp qmcolorhelp }
  elseif ($did == 15) {
  qmlistdoB }
  elseif ($did == 17) {
    var %qm.yy = $did(5)
    if ($did(17).state == 1) {
      qmd h 4,5,6,7,8,9 | qmd v 18
      qmd ra 5 1 | qmd ra 8 1 | qmi Other CS ON
    qme $qmb(Color Strip) $qma(is now) $qmb(enabled) $+  $+ %qm.yy $+ . }
    elseif ($did(17).state == 0) {
      qmri Other CS | qmd v 4,5,6,7,8,9 | qmd h 18
      qmd ra 5 $readini(qm.ini,Color,1) | qmd ra 8 $readini(qm.ini,Color,2)
  qme $qmb(Color Strip) $qma(is now) $qmb(disabled) $+  $+ %qm.yy $+ . } }
  elseif ($did == 19) {
    if ($did(20).seltext != $null) {
      if (*~* iswm $did(19).seltext) { qmd u 19 | qmd b 21,22,24,26 | halt }
    qmd u 20 | qmd b 22,26 | qmd e 21,24 | halt }
    if (*~* iswm $did(19).seltext) { qmd u 19 | qmd b 21,24 | halt }
  qmd e 21,24 }
  elseif ($did == 20) {
    if ($did(19).seltext != $null) {
      if (*~* iswm $did(20).seltext) { qmd u 20 | qmd b 21,22,24,26 | halt }
    qmd u 19 | qmd b 21,24 | qmd e 22,26 | halt }
    if (*~* iswm $did(20).seltext) { qmd u 20 | qmd b 22,26 | halt }
  qmd e 22,26 }
  elseif ($did == 21) {
    var %qm.yy = $did(5)
    qmi AD $did(19).seltext ON
    qmri AA $did(19).seltext | qmd b 21,24
    qme $qma(The) $qmb(selected) $qma(has been) $qmb(moved) $qma(to) $&
      $qmb(Auto Decline List) 1- $qmb(lists) $qma(are) $qmb(refreshing) $+  $+ %qm.yy $+ .
  qmlistdoB }
  elseif ($did == 22) {
    var %qm.yy = $did(5)
    qmi AA $did(20).seltext ON
    qmri AD $did(20).seltext | qmd b 22,26
    qme $qma(The) $qmb(selected) $qma(has been) $qmb(moved) $qma(to) $&
      $qmb(Auto Accept List) 1- $qmb(lists) $qma(are) $qmb(refreshing) $+  $+ %qm.yy $+ .
  qmlistdoB }
  elseif ($did == 28) {
    var %qm.yy = $did(5)
    var %qm.yyy = $did(8)
    if ($did(28).state == 1) {
      qmi Other ANick ON
    qme $qmb(Adding) $qma(by) $qmb(Nick) $qma(is now) $qmb(enabled) $+  $+ %qm.yy $+ . }
    elseif ($did(28).state == 0) {
      if ($did(29).state == 0) { qme $qma(You) $qmb(must) $qma(have at least) $+  $+ %qm.yyy 1 $&
        $qma(adding feature) $qmb(enabled) $qma(at once.) | qmd c 28 | halt }
      qmri Other ANick
  qme $qmb(Adding) $qma(by) $qmb(Nick) $qma(is now) $qmb(disabled) $+  $+ %qm.yy $+ . } }
  elseif ($did == 29) {
    var %qm.yy = $did(5)
    var %qm.yyy = $did(8)
    if ($did(29).state == 1) {
      qmi Other AHost ON
    qme $qmb(Adding) $qma(by) $qmb(Host) $qma(is now) $qmb(enabled) $+  $+ %qm.yy $+ . }
    elseif ($did(29).state == 0) {
      if ($did(28).state == 0) { qme $qma(You) $qmb(must) $qma(have at least) $+  $+ %qm.yyy 1 $&
        $qma(adding feature) $qmb(enabled) $qma(at once.) | qmd c 29 | halt }
      qmri Other AHost
  qme $qmb(Adding) $qma(by) $qmb(Host) $qma(is now) $qmb(disabled) $+  $+ %qm.yy $+ . } }
  elseif ($did == 23) {
    var %qm.yy = $did(5)
    var %qm.yyy = $did(8)
    if ($did(28).state == 1 && $did(29).state == 0) {
      set %qm.add.AA $?="Enter Nick"
      if (%qm.add.AA == $null) { qme $qma(Enter a) $qmb(nick) $qma(first!) | halt }
      qmi AA %qm.add.AA ON
      qmlistdoA
      qme $qma(The nick) $+  $+ %qm.yyy %qm.add.AA $qma(has been added to the) $qmb(Auto Accept List) $&
        1- $qmb(list) $qma(is) $qmb(refreshing) $+  $+ %qm.yy $+ .
    unset %qm.add.AA }
    elseif ($did(28).state == 0 && $did(29).state == 1) {
      set %qm.add.AA $?="Enter Host Without *!*"
      if (*@* !iswm %qm.add.AA) { qme $qma(Error in) $qmb(host format) $+  $+ %qm.yy $+ ! $qmb(@Host)
      unset %qm.add.AA | halt }
      qmi AA *!* $+ %qm.add.AA ON
      qmlistdoA
      qme $qma(The host) $+  $+ %qm.yyy *!* $+ %qm.add.AA $qma(has been added to the) $qmb(Auto Accept List) $&
        1- $qmb(list) $qma(is) $qmb(refreshing) $+  $+ %qm.yy $+ .
    unset %qm.add.AA }
    elseif ($did(28).state == 1 && $did(29).state == 1) {
      set %qm.add.AAN $?="Enter Nick"
      set %qm.add.AAH *!* $+ $?="Enter Host Without *!*"
      if (%qm.add.AAN == $null) { qme $qma(Enter a) $qmb(nick) $qma(first!) | halt }
      if (*@* !iswm %qm.add.AAH) { qme $qma(Error in) $qmb(host format) $+  $+ %qm.yy $+ ! $qmb(@Host)
      unset %qm.add.AAN | unset %qm.add.AAH | halt }
      qmi AA %qm.add.AAN ON
      qmi AA %qm.add.AAH ON
      qme $qma(The nick) $+  $+ %qm.yyy %qm.add.AAN $qma(and the host) $+  $+ %qm.yyy %qm.add.AAH $&
        $qma(has been added to the) $qmb(Auto Accept List) 1- $qmb(list) $qma(is) $qmb(refreshing) $+  $+ %qm.yy $+ .
      qme $qma(It will only add the host) $qmb(automatically) $qma(if you use it by) $&
        $qmb(right clicking) $qma(on a) $qmb(nick) $qma(in a) $qmb(channel) $+  $+ %qm.yy $+ .
  qmlistdoA | unset %qm.add.AAN | unset %qm.add.AAH } }
  elseif ($did == 24) {
    var %qm.yy = $did(5)
    var %qm.yyy = $did(8)
    if (*@* iswm $did(19).seltext) { qme $qma(The host) $+  $+ %qm.yyy $did(19).seltext $qma(has been deleted from the) $&
      $qmb(Auto Accept List) 1- $qmb(list) $qma(is) $qmb(refreshing) $+  $+ %qm.yy $+ . | qmd b 21,24 }
    if (*@* !iswm $did(19).seltext) { qme $qma(The nick) $+  $+ %qm.yyy $did(19).seltext $qma(has been deleted from the) $&
      $qmb(Auto Accept List) 1- $qmb(list) $qma(is) $qmb(refreshing) $+  $+ %qm.yy $+ . | qmd b 21,24 }
  qmri AA $did(19).seltext | qmlistdoA | unset %qm.y* }
  elseif ($did == 25) {
    var %qm.yy = $did(5)
    var %qm.yyy = $did(8)
    if ($did(28).state == 1 && $did(29).state == 0) {
      set %qm.add.AD $?="Enter Nick"
      qmi AD %qm.add.AD ON
      qmlistdoD
      qme $qma(The nick) $+  $+ %qm.yyy %qm.add.AD $qma(has been added to the) $qmb(Auto Decline List) $&
      1- $qmb(list) $qma(is) $qmb(refreshing) $+  $+ %qm.yy $+ . | unset %qm.add.AD }
    elseif ($did(28).state == 0 && $did(29).state == 1) {
      set %qm.add.AD $?="Enter Host Without *!*"
      if (*@* !iswm %qm.add.AD) { qme $qma(Error in) $qmb(host format) $+  $+ %qm.yy $+ ! $qmb(@Host)
      unset %qm.add.AD | halt }
      qmi AD *!* $+ %qm.add.AD ON
      qmlistdoD
      qme $qma(The host) $+  $+ %qm.yyy *!* $+ %qm.add.AD $qma(has been added to the) $qmb(Auto Decline List) $&
        1- $qmb(list) $qma(is) $qmb(refreshing) $+  $+ %qm.yy $+ .
    unset %qm.add.AD }
    elseif ($did(28).state == 1 && $did(29).state == 1) {
      set %qm.add.ADN $?="Enter Nick"
      set %qm.add.ADH *!* $+ $?="Enter Host Without *!*"
      if (*@* !iswm %qm.add.ADH) { qme $qma(Error in) $qmb(host format) $+  $+ %qm.yy $+ ! $qmb(@Host)
      unset %qm.add.ADN | unset %qm.add.ADH | halt }
      qmi AD %qm.add.ADN ON
      qmi AD %qm.add.ADH ON
      qme $qma(The nick) $+  $+ %qm.yyy %qm.add.ADN $qma(and the host) $+  $+ %qm.yyy %qm.add.ADH $&
        $qma(has been added to the) $qmb(Auto Decline List) 1- $qmb(list) $qma(is) $qmb(refreshing) $+  $+ %qm.yy $+ .
      qme $qma(It will only add the host) $qmb(automatically) $qma(if you use it by) $&
        $qmb(right clicking) $qma(on a) $qmb(nick) $qma(in a) $qmb(channel) $+  $+ %qm.yy $+ .
  qmlistdoD | unset %qm.add.ADN | unset %qm.add.ADH } }
  elseif ($did == 26) {
    var %qm.yy = $did(5)
    var %qm.yyy = $did(8)
    if (*@* iswm $did(20).seltext) { qme $qma(The host) $+  $+ %qm.yyy $did(19).seltext $qma(has been deleted from the) $&
      $qmb(Auto Decline List) 1- $qmb(list) $qma(is) $qmb(refreshing) $+  $+ %qm.yy $+ . | qmd b 22,26 }
    if (*@* !iswm $did(20).seltext) { qme $qma(The nick) $+  $+ %qm.yyy $did(19).seltext $qma(has been deleted from the) $&
      $qmb(Auto Decline List) 1- $qmb(list) $qma(is) $qmb(refreshing) $+  $+ %qm.yy $+ . | qmd b 22,26 }
  qmri AD $did(20).seltext | qmlistdoD | unset %qm.y* }
  elseif ($did == 30) {
    if ($readini(qm.ini,Other,LOG) == OFF) { qmd b 48,49,50 | qmd r 48 }
    if ($readini(qm.ini,Other,ALOG) == OFF) { qmd b 36,37,38 | qmd r 36 }
  if ($readini(qm.ini,Other,ALOG) == ON) { qmd c 33 | qmlistdoAL } }
  elseif ($did == 32) {
    if ($did(32).state == 1) {
      qmi Other LOG ON
      qmd e 48,49,50 | qmlistdoNL
    qme $qma(The) $qmb(Normal Logging) $qma(setting is now) $qmb(enabled) $+  $+ $did(5) $+ . }
    elseif ($did(32).state == 0) {
      qmi Other LOG OFF
      qmd b 48,49,50 | qmd r 48
      qme $qma(The) $qmb(Normal Logging) $qma(setting is now) $qmb(disabled) $+  $+ $did(5) $+ .
      if ($did(33).state == 0) { qmd h 34 | qmd b 31,32,33 | qmd v 35
  qmi Other LOGA OFF } } }
  elseif ($did == 33) {
    if ($did(33).state == 1) {
      qmi Other ALOG ON
      qmd e 36,37,38 | qmlistdoAL
    qme $qma(The) $qmb(Away Logging) $qma(setting is now) $qmb(enabled) $+  $+ $did(5) $+ . }
    elseif ($did(33).state == 0) {
      qmi Other ALOG OFF
      qmd b 36,37,38 | qmd r 36
      qme $qma(The) $qmb(Away Logging) $qma(setting is now) $qmb(disabled) $+  $+ $did(5) $+ .
      if ($did(32).state == 0) { qmd h 34 | qmd b 31,32,33 | qmd v 35
  qmi Other LOGA OFF } } }
  elseif ($did == 34) {
    qmi Other LOGA OFF
    qme $qma(The) $qmb(whole Logging) $qma(setting is now) $qmb(disabled) $+  $+ $did(5) $+ .
  qmd h 34 | qmd b 31,32,33 | qmd v 35 }
  elseif ($did == 35) {
    qmi other LOGA ON
    qme $qma(The) $qmb(whole Logging) $qma(setting is now) $qmb(enabled) $+  $+ $did(5) $+ .
  qmd h 35 | qmd v 34 | qmd e 31,32,33 }
  elseif ($did == 37) {
  qme $qma(The) $qmb(Away Log List) $qma(is) $qmb(refreshing) $+  $+ $did(5) $+ . | qmlistdoAL }
  elseif ($did == 38) {
    if ($ini(qmalog.ini,MSG,0) == 1) { qme $qma(There is already) $qmb(no) $qma(loggings!) | halt }
    remini qmalog.ini MSG | writeini qmalog.ini MSG Away Log
  qme $qma(The) $qmb(Away Log File) $qma(has been) $qmb(deleted) $qma(and) $qmb(remade) $+  $+ $did(5) $+ . | qmlistdoAL }
  elseif ($did == 44) {
    set %qm.change.secs $?="Enter Seconds (2 Digits Max)"
    if ($len(%qm.change.secs) > 2) { qme $qma(No) $qmb(more) $qma(than) $&
      $+  $+ $did(8) 2 digits $+  $+ $did(5) $+ ! | unset %qm.change.secs | halt }
    qmi Other SECS %qm.change.secs
    qmd ra 43 %qm.change.secs | unset %qm.change.secs
  qme $qma(The) $qmb(Time-Out Seconds Ammount) $qma(has been changed accordingly.) }
  elseif ($did == 45) {
    if ($did(45).state == 1) {
      qmi Other AAA ON
    qme $qma(The) $qmb(Auto Accept All) $qma(is now) $qmb(enabled) $+  $+ $did(5) $+ . }
    if ($did(46).state == 1 && $did(45).state == 1) {
      qmd u 46 | qmri Other ADA
    qme $qma(The) $qmb(Auto Decline All) $qma(is also) $qmb(disabled) $+  $+ $did(5) $+ . }
    elseif ($did(45).state == 0) {
      qmri Other AAA
  qme $qma(The) $qmb(Auto Accept All) $qma(is now) $qmb(disabled) $+  $+ $did(5) $+ . } }
  elseif ($did == 46) {
    if ($did(46).state == 1) {
      qmi Other ADA ON
    qme $qma(The) $qmb(Auto Decline All) $qma(is now) $qmb(enabled) $+  $+ $did(5) $+ . }
    if ($did(45).state == 1 && $did(46).state == 1) {
      qmd u 45 | qmri Other AAA
    qme $qma(The) $qmb(Auto Accept All) $qma(is also) $qmb(disabled) $+  $+ $did(5) $+ . }
    elseif ($did(46).state == 0) {
      qmri Other ADA
  qme $qma(The) $qmb(Auto Decline All) $qma(is now) $qmb(disabled) $+  $+ $did(5) $+ . } }
  elseif ($did == 49) {
  qme $qma(The) $qmb(Away Log List) $qma(is) $qmb(refreshing) $+  $+ $did(5) $+ . | qmlistdoNL }
  elseif ($did == 50) {
    if ($ini(qmlog.ini,MSG,0) == 1) { qme $qma(There is already) $qmb(no) $qma(loggings!) | halt }
    remini qmlog.ini MSG | writeini qmlog.ini MSG Normal Log
    qme $qma(The) $qmb(Normal Log File) $qma(has been) $qmb(deleted) $qma(and) $qmb(remade) $+  $+ $did(5) $+ . | qmlistdoNL
  }
}
alias qmlistdoNL {
  if ($ini(qmlog.ini,MSG,0) == 1) { qmd ra 48 ~ No Messages from Normal Status | halt }
  set %qm.ldNL.T $calc($ini(qmlog.ini,MSG,0) - 1)
  set %qm.ldNL.N 1
  qmd ra 48 -- Your Messages from Normal Status $crlf
  qmlistdoNLL
}
alias qmlistdoNLL {
  inc %qm.ldNL.N 1
  if ($calc(%qm.ldNL.N - 2) == %qm.ldNL.T && %qm.ldAL.N != 2) { qmd a 48 -- End | unset %qm.ldNL.* | halt }
  qmd a 48 ~ $gettok($readini(qmlog.ini,MSG,%qm.ldNL.N),1,42) - $&
    $gettok($readini(qmlog.ini,MSG,%qm.ldNL.N),2,42) - $gettok($readini(qmlog.ini,MSG,%qm.ldNL.N),3,42) - $crlf
  qmlistdoNLLL
}
alias qmlistdoNLLL { qmlistdoNLL }
alias qmlistdoAL {
  if ($ini(qmalog.ini,MSG,0) == 1) { qmd ra 36 ~ No Messages from Away Status | halt }
  set %qm.ldAL.T $calc($ini(qmalog.ini,MSG,0) - 1)
  set %qm.ldAL.N 1
  qmd ra 36 -- Your Messages from Away Status $crlf
  qmlistdoALL
}
alias qmlistdoALL {
  inc %qm.ldAL.N 1
  if ($calc(%qm.ldAL.N - 2) == %qm.ldAL.T && %qm.ldAL.N != 2) { qmd a 36 -- End | unset %qm.ldAL.* | halt }
  qmd a 36 ~ $gettok($readini(qmalog.ini,MSG,%qm.ldAL.N),1,42) - $&
    $gettok($readini(qmalog.ini,MSG,%qm.ldAL.N),2,42) - $gettok($readini(qmalog.ini,MSG,%qm.ldAL.N),3,42) - $crlf
  qmlistdoALLL
}
alias qmlistdoALLL { qmlistdoALL }
alias qmlistdoA {
  if ($ini(qm.ini,AA,0) == 0) { qmd ra 19 ~ No Users On List | halt }
  set %qm.ldA.T $ini(qm.ini,AA,0)
  set %qm.ldA.N 0
  qmd ra 19 ~ Auto Accept Users/Hosts
  qmlistdoAA
}
alias qmlistdoAA {
  inc %qm.ldA.N 1
  if ($calc(%qm.ldA.N - 1) == %qm.ldA.T) {
    if (%qm.ldB == on) qmlistdoD
  qmd a 19 ~ End | unset %qm.ldA.* | halt }
  qmd a 19 $ini(qm.ini,AA,%qm.ldA.N)
  qmlistdoAAA
}
alias qmlistdoAAA { qmlistdoAA }
alias qmlistdoB {
  if ($ini(qm.ini,AA,0) == 0 && $ini(qm.ini,AD,0) == 0) { qmd ra 19 ~ No Users On List
  qmd ra 20 ~ No Users On List | halt }
  if ($ini(qm.ini,AA,0) == 0 && $ini(qm.ini,AD,0) != 0) { qmd ra 19 ~ No Users On List
  qmlistdoD | halt }
  if ($ini(qm.ini,AA,0) != 0 && $ini(qm.ini,AD,0) == 0) { qmd ra 20 ~ No Users On List
  qmlistdoA | halt }
  set %qm.ldA.T $ini(qm.ini,AA,0)
  set %qm.ldA.N 0
  set %qm.ldB on
  qmd ra 19 ~ Auto Accept Users/Hosts
  qmlistdoAA
}
alias qmlistdoD {
  if ($ini(qm.ini,AD,0) == 0) { qmd ra 20 ~ No Users On List | halt }
  set %qm.ldD.T $ini(qm.ini,AD,0)
  set %qm.ldD.N 0
  qmd ra 20 ~ Auto Decline Users/Hosts
  qmlistdoDD
}
alias qmlistdoDD {
  inc %qm.ldD.N 1
  if ($calc(%qm.ldD.N - 1) == %qm.ldD.T && %qm.ldB == on) { qmd a 20 ~ End
  qmd a 19 ~ End | unset %qm.ldD.* | unset %qm.ldB | halt }
  if ($calc(%qm.ldD.N - 1) == %qm.ldD.T) { qmd a 20 ~ End | unset %qm.ldD.* | halt }
  qmd a 20 $ini(qm.ini,AD,%qm.ldD.N)
  qmlistdoDDD
}
alias qmlistdoDDD { qmlistdoDD }
alias qmgm { return $readini(qm.ini,MSG,$1) }
dialog qmcolorhelp {
  option dbu
  size -1 -1 100 140
  title "Adding Message Color"
  edit "", 1, 5 5 90 103, multi
  button "Close", 2, 30 114 30 14, ok
}
on *:dialog:qmcolorhelp:init:0:{
  did -m $dname 1
  qmcolorhelpreturn
}
alias qmcolorhelpreturn {
  did -ra qmcolorhelp 1 To put color into the Query Manager Messages, read this: $crlf
  did -a qmcolorhelp 1 Use the normal color coding for mIRC: cntrl+kNumber1-15 $crlf
  did -a qmcolorhelp 1 Clicking cntrl+k will bring up a box like this:  $crlf
  did -a qmcolorhelp 1 Then type a number 1-15 (0 is white). $crlf
  did -a qmcolorhelp 1 Example: $crlf
  did -a qmcolorhelp 1 14Follow this 2guide14 to 2help14 you learn how to type in 2color $&
    14with the 2mIRC Color Codes14!
  did -a qmcolorhelp 1 Well, hope this helped! Click the "Close" button to exit.
}

###########################################################################################################################################
########################################################## End of Query Manager ###########################################################
###########################################################################################################################################
on *:JOIN:#:.timer 1 1 bc $nick $chan
alias -l bc {
  if ($read(Blacklist.txt,w,$1)) || ($read(Blacklist.txt,w,$address($1,2))) {
    var %rd = $readn
    if (($me !isop $2) && ($me !ishop $2)) || (*Q* iswmcs $chan($2).mode) || (($me ishop $2) && ($1 isop $2)) echo -st 7/!\14 Blacklist match! Channel:07 $2 14Nick:07 $1 14Address:07 $Address($1,2) 14Match:07 $iif($chr(64) isin $ifmatch,Address,Nick) 14Reason:07 $iif($read(BlackListReason.txt,%rd) == Null,Unspecified,$read(BlackListReason.txt,%rd)) 14NOTE: I cannot kick this user!
    else {
      echo -st 7/!\14 Blacklist match! Channel:07 $2 14Nick:07 $1 14Address:07 $Address($1,2) 14Match:07 $iif($chr(64) isin $ifmatch,Address,Nick) 14Reason:07 $iif($read(BlackListReason.txt,%rd) == Null,Unspecified,$read(BlackListReason.txt,%rd)) 14Temp banning07 $1 14for07 5 14minutes.
      ban -ku1800 $2 $1 2 7[14Blacklisted7] 14Reason:07 $iif($read(BlackListReason.txt,%rd) == Null,Unspecified,$read(BlackListReason.txt,%rd)) $kickc
    }
  }
}
alias bl {
  if ($2) {
    write BlackList.txt $iif($1 ison $active,$address($1,2),$1)
    write BlackListReason.txt $2-
    echo -ta 7[14Blacklist7]14 Successfully written07 $1 14to blacklist. 7Reason:14 $2-
    if ($1 ison $active) {
      if (($me !isop $active) && ($me !ishop $active)) || (*Q* iswmcs $chan($active).mode) || (($me ishop $chan(%x)) && ($nick($chan(%x),%y) isop $chan(%x))) echo -st 14I cannot kick07 $1 14from07 $active $+ 14!
      else ban -ku1800 $active $1 2 7[14Blacklisted7] 14Reason:07 $iif($2,$2-,Unspecified) $kickc
    }
  }
  else {
    write BlackList.txt $iif($1 ison $active,$address($1,2),$1)
    write BlackListReason.txt Null
    echo -ta 7[14Blacklist7]14 Successfully written07 $1 14to blacklist. No reason specified.
    if ($1 ison $active) {
      if (($me !isop $active) && ($me !ishop $active)) || (*Q* iswmcs $chan($active).mode) || (($me ishop $chan(%x)) && ($nick($chan(%x),%y) isop $chan(%x))) echo -st 14I cannot kick07 $1 14from07 $active $+ 14!
      else ban -ku1800 $active $1 2 7[14Blacklisted7] 14Reason:07 $iif($2,$2-,Unspecified) $kickc
    }
  }
}
alias bldel {
  if (!$1) { echo -ta 7[14Blacklist7]14 Error: Invalid syntax. Use: /bldel <Address/Nick>. | halt }
  if ($read(Blacklist.txt,w,$address($1,2))) || ($read(Blacklist.txt,w,$1)) || ($read(Blacklist.txt,w,$($+(%Address.,$1),2))) {
    echo -ta 7[14Blacklist7]07 $1 14was found on the blacklist on line07 $readn $+ 14. Match:07 $read(BlackList.txt,$readn) $+ 14.
    echo -ta 7[14Blacklist7]14 Blacklist reason:07 $iif($read(BlackListReason.txt,$readn) == Null,Unspecified,$read(BlackListReason.txt,$readn))
    echo -ta 7[14Blacklist7]14 To delete: 7/yes14. To stop: 7/no14.
    set %B $readn
  }
  else echo -ta 7[14Blacklist7]14 Sorry:07 $1 14was not found on the blacklist.
}
alias yes {
  if (%B) {
    set -u600 %r $read(BlackList.txt,%B)
    set -u600 %rr $read(BlackListReason.txt,%B)
    echo -ta 7[14Blacklist7]14 Deleting:07 $read(BlackList.txt,%B) 14With reason:07 $iif($read(BlackListReason.txt,%B) == Null,Unspecified,$read(BlackListReason.txt,%B)) 14from the blacklist.
    write -dl [ $+ [ %B ] ] BlackList.txt
    write -dl [ $+ [ %B ] ] BlackListReason.txt
    unset %B
    GlobalUnban $iif($chr(64) !isin $read(BlackList.txt,%B),$address($v2,2),$v2)
  }
  else echo -ta 7[14Blacklist7]14 Error: No blacklist set to delete. Try 7/bldel <Address/Nick>14.
}
alias no {
  if (%B) {
    echo -ta 7[14Blacklist7]14 Cancelled:07 $read(BlackList.txt,%B) 14Will not be deleted from the blacklist.
    unset %B
  }
  else echo -ta 7[14Blacklist7]14 Error: No blacklist set to delete. Try 7/bldel <Address/Nick>14.
}
alias rebl {
  if (%r) {
    write BlackList.txt %r
    write BlackListReason.txt %rr
    echo -ta 7[14Blacklist7]14 Successfully re-written07 %rbl 14to blacklist. Reason:07 $iif(%rblr == Null,Unspecified,%rblr) $+ 14.
    unset %r %rr
  }
  else echo -ta 7[14Blacklist7]14 Error: No user was recently un-blacklisted.
}
alias bllist {
  if ($lines(BlackList.txt) >= 30) $iif($?!="30+ Blacklists found. Continue? $crlf $+ Doing so will echo $lines(BlackList.txt) lines into $active $+ .",,halt)
  echo -ta 7[14Blacklist7]14 Blacklisted user list $+(7[,14,$lines(BlackList.txt),7/14,$lines(BlackListReason.txt),7]14:) (Latest first)
  if ($lines(BlackList.txt) == 0) echo -ta 7[14Blacklist7]14 None.
  else {
    var %la = $lines(BlackList.txt)
    var %lc = $lines(BlackList.txt)
    while (%lc >= 1) {
      echo -ta $+(7[14,$calc((%la - %lc) + 1),7]) 7User:14 $read(BlackList.txt,%lc) 7Reason:14 $iif($read(BlackListReason.txt,%lc) == Null,Unspecified,$read(BlackListReason.txt,%lc))
      dec %lc
    }
  }
}
alias BlCheck {
  var %x = 1, %z = 0, %w = 0
  while (%x <= $chan(0)) {
    var %y = 1
    while (%y <= $nick($chan(%x),0)) {
      if ($read(Blacklist.txt,w,$nick($chan(%x),%y))) || ($read(Blacklist.txt,w,$address($nick($chan(%x),%y),2))) {
        var %q = $readn
        inc %z
        echo -s 07/!\ 14Blacklist match: Channel:07 $chan(%x) 14Nick:07 $nick($chan(%x),%y) 14Match:07 $ifmatch
        if ($me !isop $chan(%x)) && ($me !ishop $chan(%x)) || (*Q* iswmcs $chan($chan(%x)).mode) || (($me ishop $chan(%x)) && ($nick($chan(%x),%y) isop $chan(%x))) echo -s 14I cannot kick07 $nick($chan(%x),%y) 14from07 $chan(%x) $+ 14!
        else ban -ku300 $chan(%x) $nick($chan(%x),%y) 2 7[14Blacklisted7] [14Reason:07 $iif($read(BlackListReason.txt,%q) == Null,Unspecified,$read(BlackListReason.txt,%q)) 7][14 Bitches kicked4 $kickc 
      }
      inc %w
      inc %y
    }
    inc %x
  }
  echo -s 14Finished checking07 %w 14users on07 $chan(0) 14 $+ $iif($chan(0) == 1,channel,channels) $+ , blacklists found:07 %z
}
alias GlobalUnban {
  if (!$1) halt
  var %x = 1, %z = 0
  while (%x <= $chan(0)) {
    if ($me isop $chan(%x)) || ($me ishop $chan(%x)) mode $chan(%x) -b $1
    inc %x
  }
  echo -s 14Globally unbanned07 $1
}
alias info {
  echo -ta 7[14Blacklist7]14 Blacklists found: $+(7[,14,$lines(BlackList.txt),7/14,$lines(BlackListReason.txt),7]14.)
  echo -ta 7[14Blacklist7]14 Commands: 7/Bl <Address/Nick>14, 7/Bldel <Address/Nick>14, 7/Yes14, 7/No14, 7/Rebl14, 7/Bllist14.
}
alias kickc { inc %kickcounter | return 7»14 $bytes(%kickcounter,db) 7« }