Query Manager (For multiple query's)

Please Register to submit score.

Average Score	0.0
Scores Submitted	0
Date Added	Apr 02, 2008
Last Updated	Apr 03, 2008
Tags	blocker multiple pm query

Introduction

*** Idea came from the snippet i found name Query manager as well, But it wasn't for multiple query's , Well this one is! ***

TO START: Right click anywhere and 'Query Manager'
or '/dialog -m qmd qmd'

This script allows you to view current query's.
If you select a nickname you will be able to
Accept, Deny, Block, Friend

- Accept: You will accept the message, PM him that you accepted him
- Deny: You will deny the message, PM him that you denied him and automaticly close the message
- Block: You will deny the message, PM him that you denied and blocked him, And add him to the blocklist
- Friend: You will accept the message, PM him that you accepted him and added as a friend

** You can change the 'var %protected ..' and add more names to it,
These names seperated with a space will be ignored by the SCRIPT only

You can CLEAR the entire block/friend list with 1simple click
You can also add/delete block/friend users

** When someone who is blocked query's you, you will automaticly close the window and get an ECHO within 5seconds (to prevent spam when he spams you)

** You can read the log by clicking 'Logs' and you can clear it with the 'Clearlogs' button!

Good luck and have fun.

Grab the Code

dialog qmd {
  title "Absent's Query Manager"
  size -1 -1 324 144
  option dbu
  list 1, 8 25 82 109, size
  check "Enable Query manager", 2, 9 8 72 10
  box "Configuration panel", 3, 176 33 141 95
  list 4, 91 25 82 109, size
  edit "", 5, 184 53 125 12, read
  edit "", 6, 185 81 125 12, read
  edit "", 7, 185 110 125 12, read
  combo 8, 180 8 60 50, sort drop
  combo 9, 251 8 60 50, sort drop
  box "Blocklist", 10, 247 0 70 31
  box "Friendlist", 11, 176 0 70 31
  text "First Nick/Hostmask:", 12, 185 43 51 8
  text "Last Nick/Hostmask:", 13, 185 71 51 8
  text "Date/Time of Query:", 14, 186 99 51 8
  button "-", 16, 189 20 9 9
  button "+", 17, 250 20 9 9
  button "Accept", 18, 87 11 20 10
  box "Navigation panel", 19, 84 0 90 24
  button "Deny", 20, 108 11 20 10
  button "Block", 21, 129 11 20 10
  button "Friend", 22, 150 11 20 10
  button "Clear", 23, 270 20 19 9
  button "+", 24, 179 20 9 9
  button "Clear", 25, 199 20 19 9
  button "-", 26, 260 20 9 9
  button "Close", 15, 273 130 37 12, ok cancel
  button "Logs", 27, 228 130 37 12
  button "Clearlog", 28, 183 130 37 12
}
alias qmd { dialog $iif($dialog(qmd),-v,-md) qmd qmd }
menu * {
  .Query Manager:qmd
}
on *:dialog:qmd:init:0:{
  if (%qmd) { did -c qmd 2 }
  else { did -u qmd 2 }
  did -b qmd 18,20-22
  if (!$read(qmd.friends.txt)) { 
    did -b qmd 16,25
    did -ra qmd 8 No users found
  }
  elseif ($read(qmd.friends.txt)) {
    var %f 1
    while (%f <= $lines(qmd.friends.txt)) {
      did -a qmd 8 $read(qmd.friends.txt,%f))
      inc %f
    }
  }
  if (!$read(qmd.blocked.txt)) {
    did -b qmd 23,26
    did -ra qmd 9 No users found
  }
  elseif ($read(qmd.blocked.txt)) {
    var %b 1
    while (%b <= $lines(qmd.blocked.txt)) {
      did -a qmd 9 $read(qmd.blocked.txt,%b))
      inc %b
    }
  }
}
on *:dialog:qmd:sclick:1:{
  if ($did(qmd,18).sel) != 0) && ($did(qmd,18).seltext) != $null) {
    did -e qmd 18,20-22
  }
}
on *:dialog:qmd:sclick:*:{
  if ($did == 2) { 
    if (%qmd) { unset %qmd | did -u qmd 2 }
    else { set %qmd on | did -c qmd 2 }
  }
  if ($did == 16) {
    if (!$did(8).seltext) {
      noop $input(Please select a nick to unblock!,uwo,Absent's Query Manager) 
      dialog -v qmd qmd
    }
    elseif (!$did(8).seltext) { halt }
    var %dfriends $read(qmd.friends.txt,w,$did(8).seltext) 
    if (%dfriends != $did(8).seltext) { halt }
    write -dl [ $+ [ $readn ] ] qmd.friends.txt 
    did -d qmd 8 $did(8).seltext 
    noop $input($did(8).seltext has been removed from the friendlist,uwo,Absent's Query Manager)
    did -r qmd 8
    dialog -v qmd qmd
    if (!$read(qmd.friends.txt)) {
      did -ra qmd 8 No users found
      did -b qmd 16,25
    }
    else {
      var %x = 1
      while ( %x <= $lines(qmd.friends.txt)) {
        did -a qmd 8 $read(qmd.friends.txt,%x)
        inc %x
      }
    }
  }
  if ($did == 17) { 
    var %blockadd = $?="Please fill in the nickname you are trying to add"
    if (!%blockadd) { noop $input(Please fill in a valid nickname!,uwo,Absent's Query Manager) | dialog -v qmd qmd | halt }
    if ($read(qmd.blocked.txt,w,%blockadd)) { noop $input(%blockadd is already known on the blocklist,uwo,Absent's Query Manager) | dialog -v qmd qmd | halt }
    else { 
      write qmd.blocked.txt %blockadd
      noop $input(%blockadd has been added to the blocklist!,uwo,Absent's Query Manager)
      did -e qmd 23,26
      did -r qmd 9
      dialog -v qmd qmd
      var %b 1
      while (%b <= $lines(qmd.blocked.txt)) {
        did -a qmd 9 $read(qmd.blocked.txt,%b)
        inc %b
      }
    }
  }
  if ($did == 18) { did -b qmd 18,20-22 | var %acceptdel $did(qmd,1).sel | msg $did(qmd,1).seltext Your query has been accepted. | did -d qmd 1 %acceptdel | did -d qmd 4 %acceptdel }
  if ($did == 20) { did -b qmd 18,20-22 | var %denydel $did(qmd,1).sel | msg $did(qmd,1).seltext Your query has been denied. | close -m $did(qmd,1).seltext | did -d qmd 1 %denydel | did -d qmd 4 %denydel }
  if ($did == 21) { did -b qmd 18,20-22 | var %blockdel $did(qmd,1).sel | msg $did(qmd,1).seltext Your query has been denied. | msg $did(qmd,1).seltext You are blocked and not able to query me any longer. | .write qmd.blocked.txt $did(qmd,1).seltext | close -m $did(qmd,1).seltext | did -d qmd 1 %blockdel | did -d qmd 4 %blockdel }
  if ($did == 22) { did -b qmd 18,20-22 | var %frienddel $did(qmd,1).sel | msg $did(qmd,1).seltext Your query has been accepted. | msg $did(qmd,1).seltext You are added to the friendlist and don't need approval to query me. | .write qmd.friends.txt $did(qmd,1).seltext | did -d qmd 1 %frienddel | did -d qmd 4 %frienddel }
  if ($did == 23) { noop $input(All blocked users are removed!,iwo,Absent's Query Manager) | did -b qmd 23,26 | .remove qmd.blocked.txt | did -ra qmd 9 List cleared | dialog -v qmd qmd }
  if ($did == 24) { 
    var %friendadd = $?="Please fill in the nickname you are trying to add"
    if (!%friendadd) { noop $input(Please fill in a valid nickname!,uwo,Absent's Query Manager) | dialog -v qmd qmd | halt }
    if ($read(qmd.friends.txt,w,%friendadd)) { noop $input(%friendadd is already known on the friendlist,uwo,Absent's Query Manager) | dialog -v qmd qmd | halt }
    else { 
      write qmd.friends.txt %friendadd
      noop $input(%friendadd has been added to the friendlist!,iwo,Absent's Query Manager)
      did -e qmd 16,25
      did -r qmd 8
      dialog -v qmd qmd
      var %f 1
      while (%f <= $lines(qmd.friends.txt)) {
        did -a qmd 8 $read(qmd.friends.txt,%f)
        inc %f
      }
    }
  }
  if ($did == 25) { noop $input(All friend users are removed!,iwo,Absent's Query Manager) | did -b qmd 16,25 | .remove qmd.friends.txt | did -ra qmd 8 List cleared | dialog -v qmd qmd }
  if ($did == 26) {
    if (!$did(9).seltext) {
      noop $input(Please select a nick to unblock!,uwo,Absent's Query Manager) 
      dialog -v qmd qmd
    }
    elseif (!$did(9).seltext) { halt }
    var %dblocked $read(qmd.blocked.txt,w,$did(9).seltext) 
    if (%dblocked != $did(9).seltext) { halt }
    write -dl [ $+ [ $readn ] ] qmd.blocked.txt 
    did -d qmd 9 $did(9).seltext 
    noop $input($did(9).seltext has been removed from the blocklist,uwo,Absent's Query Manager)
    did -r qmd 9
    dialog -v qmd qmd
    if (!$read(qmd.blocked.txt)) {
      did -ra qmd 9 No users found
      did -b qmd 23,26
    }
    else {
      var %x = 1
      while ( %x <= $lines(qmd.blocked.txt)) {
        did -a qmd 9 $read(qmd.blocked.txt,%x)
        inc %x
      }
    }
  }
  if ($did == 27) { 
    if ($lines(qmd.txt) == 0) {
      noop $input(Unable to open the logfile because its empty,uho,Absent's Query Manager)
    }
    else { //run qmd.txt } 
  }
  if ($did == 28) {
    if ($lines(qmd.txt) == 0) {
      noop $input(Unable to clear the logfile because its empty,uho,Absent's Query Manager) 
    }
    else { .timer 1 1 //remove qmd.txt | noop $input(Successfully cleared the logfile! Total of $lines(qmd.txt) lines,uio,Absent's Query Manager) } 
  }
}
on *:open:?:*:{
  if ($nick == $me) { halt }
    if (%tomany > 2) { .ignore -u30 $address($nick,1) | halt }
  if ($read(qmd.friends.txt, w,* $+ $nick $+ *)) { halt }
  if ($read(qmd.blocked.txt, w,* $+ $nick $+ *)) { .timerBLOCKEDPM 1 5 echo -a 5Query attempt by $nick (blocked) | write qmd.txt $upper($nick) - $1- - ( $+ $upper($fulldate) $+ ) | close -m $nick | halt }
  var %protected Q G S -sbnc PsyBNC
  if ($istok(%protected,$nick,32)) { halt }
  if (!%qmd) { halt }
  qmd
  if (!$did(qmd,5)) { did -a qmd 5 $nick }
  inc %Qcount
  set -u3 %tomany $calc($iif(%tomany,$v1,0) +1)
  did -a qmd 1 $nick
  did -a qmd 4 $1-
  did -ra qmd 6 $nick
  did -ra qmd 7 $fulldate
  .timer 1 2 msg $nick Please wait for me to accept/deny this query! (Your ID: %Qcount $+ ) (I'm idle for: $+ $duration($idle) $+ )
}

Comments

(7) RSS

Go to Bottom

Comments: 914

mIRC Snippet: Query Manager (For multiple query's)
Posted on Apr 2, 2008 11:02 am

Hmm i dunno i can't even get it to trigger on query,its enabled dunno why it wont trigger?

jonesy44

Comments: 679

mIRC Snippet: Query Manager (For multiple query's)
Posted on Apr 2, 2008 11:53 am

lol, cos the trigger part of the script is wrong.

Code:

on *:open:*:{

shud be

Code:

on *:open:?:*:{

;-)

Comments: 914

mIRC Snippet: Query Manager (For multiple query's)
Posted on Apr 2, 2008 12:32 pm

Lawl i dint look at the code i figured it was tested before posted and was a working code :P

absent

Comments: 5

mIRC Snippet: Query Manager (For multiple query's)
Posted on Apr 2, 2008 3:03 pm

Oh right.. Updated

Works without though on quakenet ;]

Comments: 914

mIRC Snippet: Query Manager (For multiple query's)
Posted on Apr 2, 2008 3:53 pm

Er still buggy man,i dunno if its my mIRC but i have to use on *:TEXT:?:*: { for it to even trigger an it floods the shoot out the users with waiting notices,should really allow one message then IGNORE or silence or wat ever you want then close the query with tem so you dotn get repeated entries in your dilaog,then accept an it opens aquery with them,not to meantion your block isnt working you need to ignore ppl all you ll get is windows opening and closing an if any oens smart an a litttle mean they can crash you mIRC with query floods not to meantion * /did: invalid parameters (line 117, script97.0) that little error.Dunno maybe its just me but those are wat i have found.

absent

Comments: 5

mIRC Snippet: Query Manager (For multiple query's)
Posted on Apr 3, 2008 3:47 am

EL: Depends on what your using I guess.. Everything works fine here @ 6.31, And it just triggers on OPEN, ignore wouldn't make a sens for people flooding you out though, but i'll make a little If statement so you wont be flooded

absent

Comments: 5

mIRC Snippet: Query Manager (For multiple query's)
Posted on Apr 3, 2008 3:59 am

updated: If more than 3people query you within 3seconds you will only message the first 3 and ignore the rest. to prevent mass query

absent

		being totally absent Belgium
Last seen: Apr 16, 2008 Profile \| Website Snippets (1) Comments Received (7) Comments Submitted (5)

My Snippet Tags

blocker multiple pm query

Contact

Add to Friends

Send Private Message

AOL AIM:

Yahoo YIM:

MSN: deloorejason@hotmail.com

Query Manager (For multiple query's)

Introduction

Grab the Code

Comments

absent

My Snippet Tags

Contact

Sponsors