Query Manager

Please Register to submit score.

Average Score	8.4
Scores Submitted	10
Date Added	Feb 01, 2008
Last Updated	Mar 01, 2008
Tags	dialog manager p2p pm query

Introduction

Ok heres my version of a query manager..Just copy and paste into a new remote and click in a channel window and click on Query Manager to open and setup. it's as ez as that..Well I hope you enjoy...

2/2/08 Updated a bit

3/1/08 Updated and redone a bit

Grab the Code

dialog qmd {
  title "Query Manager"
  size -1 -1 248 73
  option dbu
  box "Query From", 1, 2 1 59 23
  edit "", 2, 6 10 50 9, read autohs
  box "Date/Time Of Query", 3, 63 1 59 23
  edit "", 4, 67 10 50 9, read autohs
  box "Blocked Users", 5, 124 1 70 23
  combo 6, 129 10 50 27, drop
  button "R", 7, 181 10 9 9, flat
  box "Query Message And Functions", 8, 2 25 192 46
  edit "", 9, 6 36 183 20, read multi hsbar
  button "Accept", 10, 6 58 30 10, flat
  button "Deny", 11, 56 58 30 10, flat
  button "Block", 12, 107 58 30 10, flat
  button "UnBlock", 13, 158 58 30 10, flat
  box "Manager On/Off", 14, 196 1 50 34
  check "Manager On", 15, 199 10 41 9
  check "Manager Off", 16, 199 22 41 9
  box "AwayLog On/Off", 17, 196 36 50 35
  check "AwayLog On", 18, 199 45 41 9
  check "AwayLog Off", 19, 199 57 43 9
}
;($dialog(qmd)) {;
alias qmd { dialog $iif($dialog(qmd),-v,-md) qmd qmd }
menu menubar,channel {
  .Query Manager { qmd }  
}
on *:dialog:qmd:init:0:{
  if (%qmd) { did -c qmd 15 }
  if (!%qmd) { did -c qmd 16 }
  if (%p2plogger) { did -c qmd 18 }
  if (!%p2plogger) { did -c qmd 19 }
  if (!$did(2)) { did -b qmd 10-12 }
  if (!$read(queryblock.txt)) { 
    did -ra qmd 6 List Is Empty 
    did -b qmd 13 
  } 
  elseif ($read(queryblock.txt)) { 
    did -e qmd 13
    var %x = 1
    while ( %x <= $lines(queryblock.txt)) {
      did -ra qmd 6 $read(queryblock.txt,%x)
      inc %x
    }
  }
}
on *:dialog:qmd:sclick:*:{
  if ($did == 19) { did -u qmd 18 | unset %p2plogger }
  if ($did == 18) { set %p2plogger on | unset %qmd | did -u qmd 19,15 | did -c qmd 16 }
  if ($did == 15) { set %qmd on | did -u qmd 16,18 | did -c qmd 19 | unset %p2plogger }
  if ($did == 16) { unset %qmd | did -u qmd 15 }
  if ($did == 10) { .msg $did(2).text 14,1[12,1�0,1::Ur P2P Has Been::12,1�14,1]14,1[12,1�0,1::Accepted::12,1�14,1] | .query $did(2).text | dialog -c qmd }
  if ($did == 11) { .msg $did(2).text 14,1[12,1�0,1::Sorry $did(2).text But Ur P2P Has Been::12,1�14,1]14,1[12,1�0,1::Denied::12,1�14,1] | .close -m $did(2).text | dialog -c qmd }
  if ($did == 12) { .write queryblock.txt $did(2).text | .msg $did(2).text 14,1[12,1�0,1::Sorry $did(2).text But U Have Been::12,1�14,1]14,1[12,1�0,1::Blocked::12,1�14,1] | .ignore -p $address($did(2).text,2) | .close -m $did(2).text | dialog -c qmd }
  if ($did == 13) {
    if (!$did(6).seltext) {
      noop $input(Please Select A Nick To UnBlock,uwo,Error) 
    }
    elseif ($did(6).seltext) {
      .ignore -r $address($did(6).seltext,2)
      var %dblocked $read(queryblock.txt,w,$did(6).seltext) 
      if (%dblocked == $did(6).seltext) { 
        write -dl [ $+ [ $readn ] ] queryblock.txt 
        did -d qmd 6 $did(6).seltext 
        noop $input($did(6).seltext Has Been Taken Off P2P Block,uwo,Query Manager)
        did -r qmd 6
        if (!$read(queryblock.txt)) {
          did -ra qmd 6 List Is Empty 
          did -b qmd 13
        }
        else {
          var %x = 1
          while ( %x <= $lines(queryblock.txt)) {
            did -a qmd 6 $read(queryblock.txt,%x)
            inc %x
          }
        }
      }
    }
  }
  if ($did == 7) {
    if (!$read(queryblock.txt)) { 
      did -ra qmd 6 List Is Empty 
      did -b qmd 13 
    }
    elseif ($read(queryblock.txt)) {
      did -e qmd 13
      did -r qmd 6
      var %x = 1
      while ( %x <= $lines(queryblock.txt)) {
        did -a qmd 6 $read(queryblock.txt,%x)
        inc %x
      }
    }
  }
}
on *:open:?:{
  if (%qmd) {
    var %anopenicks nickserv chanserv memoserv
    if ($istok(%anopenicks,$nick,32)) || ($dialog(qmd)) {
      halt
    }
    else {
      qmd
      window -h $nick
      .did -a qmd 2 $nick
      .did -a qmd 4 $time(mmm dd h:nn tt)
      .did -a qmd 9 $1-
      .did -e qmd 10-12
      .close -m $nick
      .msg $nick 14,1[12,1�0,1::You are currently speaking with::12,1�14,1]14,1[12,1�0,1:: $+ $me $+ ::12,1�14,1]
      .msg $nick 14,1[12,1�0,1::I currently have::12,1�14,1]14,1[12,1�0,1:: $+ $query(0) Querie $+ $iif($query(0) > 1,s) Open::12,1�14,1]
      .msg $nick 14,1[12,1�0,1::Please Wait To See If Ur p2p Will Be Accepted::12,1�14,1]
    }  
  }
}
on *:text:*:?:{
  if (%p2plogger) {
    var %anopenicks nickserv chanserv memoserv
    if ($istok(%anopenicks,$nick,32)) || ($dialog(qmd)) {
      halt
    }
    else {
      inc -u60 $+(%,p2pmessage,.,$nick)
      if ($($+(%,p2pmessage,.,$nick),2) = 1) {
        .msg $nick 14,1[12,1�0,1::Sorry Im currently Away::12,1�14,1]
        .msg $nick 14,1[12,1�0,1::But Please Leave A Short Message::12,1�14,1]
        .msg $nick 14,1[12,1�0,1::You Have 60 Seconds To Do So::12,1�14,1]14,1[12,1�0,1::Or The p2p Will Auto Close::12,1�14,1]
        window @AwayLogger
        aline @AwayLogger $nick p2p'ed you $time(mmm-d-yy @ h:nn tt) and said---------- $1-
        .timer 1 60 .close -m $nick
      }
      elseif ($($+(%,p2pmessage,.,$nick),2) = 2) {
        .msg $nick 14,1[12,1�0,1::Thank you For Leaving A Message::12,1�14,1]14,1[12,1�0,1::P2P Will Now Be Closed::12,1�14,1]
        window @AwayLogger
        aline @AwayLogger Message From $nick ---- $1-
        unset $+(%,p2pmessage,.,$nick)
        .close -m $nick
      }
    }
  }
}

Comments

(10) RSS

Go to Bottom

Mr_E

Comments: 12

mIRC Snippet: Query Manager
Posted on Feb 1, 2008 5:31 pm

Good Job napa! Great idea and works seamlessly.
~E

Comments: 884

mIRC Snippet: Query Manager
Posted on Feb 1, 2008 5:33 pm

Ok napa lol as you know i tested the crap outta this.Love the set up of the buttons and the interface.Very cool an useful.Looks like it works for everyone but there maybe a version issue.I tested this on 2 different mIRC versions one worked fine an another i had to edit to work for me im posting my edited version(not that edited) for those who come across it not working as a result of there version.

Code:

dialog 1query {
title "Query Manager"
size -1 -1 232 82
option dbu
text "Query From:", 2, 5 14 32 8
edit "", 3, 39 14 47 9, read
text "Time/Date:", 4, 89 14 27 8
edit "", 5, 119 14 47 9, read
text "Message:", 6, 6 28 24 8
edit "", 7, 32 30 134 21, read multi hsbar
button "Accept", 8, 32 57 24 9
button "Deny", 9, 68 57 24 9
button "Block", 10, 105 57 24 9
radio "On", 11, 7 43 19 9
radio "Off", 12, 7 54 19 9
link "www.EzzyChat.com", 13, 91 70 51 7
text "Blocked Users", 14, 176 14 35 8
button "R", 16, 219 30 9 9
button "Un Block", 17, 141 57 24 9
box "��X�Ǯ��t0��X׻", 1, 2 1 228 79
combo 15, 171 30 46 50, drop
check "Away Logger Off", 19, 173 57 51 9
check "Away Logger On", 18, 173 43 52 9
}
alias 1query {
dialog $iif($dialog(1query),-v,-md) 1query 1query
}
menu channel {
.Query Manager { 1query }
}
on *:load: {
echo 12 -a You Have Just Loaded Napa182's Query Manager
echo 12 -a A Script0rs Inc. Production
echo -a 14,1(14,1�15,1�0,1�0,1� ��X�Ǯ��t0��X׻ �0,1�15,1�14,1�)�
}
on *:DIALOG:1query:init:0:{
if (%query1 == on) { did -c 1query 11 }
if (!%query1) { did -c 1query 12 }
if (%p2plogger == on) { did -c 1query 18 }
if (!%p2plogger) { did -c 1query 19 }
if $read(queryblock.txt) == $null { did -a 1query 15 List Is Empty }
if $read(queryblock.txt) != $null {
var %x = 1
while ( %x <= $lines(queryblock.txt)) {
did -a 1query 15 $read(queryblock.txt,%x)
inc %x
}
}
}
on *:DIALOG:1query:sclick:*:{
if ($did == 19) { did -u 1query 18 | unset %p2plogger }
if ($did == 18) { set %p2plogger on | unset %query1 | did -u 1query 19 | did -u 1query 11 | did -c 1query 12 }
if ($did == 11) { set %query1 on | did -u 1query 18 | did -c 1query 19 | unset %p2plogger }
if ($did == 12) { unset %query1 }
if ($did == 8) { .msg $did(3).text 14,1[4,1� 0p2p4 Accepted 4,1�14] | .query $did(3).text | dialog -c 1query }
if ($did == 9) { .msg $did(3).text 14,1[4,1� 0Sorry $did(3).text But Ur p2p Has Been4 Denied 4,1�14] | .close -m $did(3).text | dialog -c 1query }
if ($did == 10) { .write queryblock.txt $did(3).text | .msg $did(3).text 14,1[4,1� 0You Have Been Blocked From p2ping Me4 Enjoy 4,1�14] | .msg $did(3).text 14,1[4,1� 0Meaning I Wont Accept Anymore p2p's From4 You 4,1�14] | .ignore -p $address($did(3).text,2) | .close -m $did(3).text | dialog -c 1query }
if ($did == 13) { /run http://www.freewebs.com/shideezdi/index.htm }
if ($did == 17) {
.ignore -r $address($did(15).seltext,2)
var %Delblocked $read(queryblock.txt,w,$did(15).seltext)
if (%Delblocked == $did(15).seltext) {
write -dl [ $+ [ $readn ] ] queryblock.txt
did -d 1query 15 $did(15).seltext
echo -a $did(15).seltext Has Been Taken Off p2p Block } }
if (($did == 16) && ($read(queryblock.txt) == $null)) { did -ra 1query 15 List Is Empty }
if (($did == 16) && ($read(queryblock.txt) != $null)) {
did -r 1query 15
var %x = 1
while ( %x <= $lines(queryblock.txt)) {
did -a 1query 15 $read(queryblock.txt,%x)
inc %x
}
}
}
on *:text:*:?:{
if (%query1 == on) {
1query
.did -a 1query 3 $nick
.did -a 1query 5 $time(mmm dd h:nn tt)
.did -a 1query 7 $1-
.msg $nick 14,1[4,1� 0You are currently speaking with 4 $me 4,1�14]
.msg $nick 14,1[4,1� 0I currently have $query(0) 0querie(s) open 4,1�14]
.msg $nick 14,1[4,1� 0Please Wait To See If Ur p2p Will Be Accepted 4,1�14]
}
if (%p2plogger == on) {
inc -u60 %p2pmessage. [ $+ [ $nick ] ]
if (%p2pmessage. [ $+ [ $nick ] ] == 1) {
.msg $nick 14,1[4,1� 0Sorry Im currently Away 4 atm 4,1�14]
.msg $nick 14,1[4,1� 0But Please Leave A Short 4 Message 4,1�14]
.msg $nick 14,1[4,1� 0You Have 60 Seconds To Do So Or p2p Will Auto 4 Close 4,1�14]
window @AwayLogger
aline @AwayLogger $nick p2p'ed you $time(mmm-d-yy @ h:nn tt) and said---------- $1-
.timer 1 60 .close -m $nick
}
elseif (%p2pmessage. [ $+ [ $nick ] ] == 2) {
.msg $nick 14,1[4,1� 0Thank you For Leaving A Message.. p2p Will Now Be4 Closed 4,1�14]
window @AwayLogger
aline @AwayLogger Message From $nick ---- $1-
unset %p2pmessage. [ $+ [ $nick ] ]
.close -m $nick
halt
}
}
}

This works fine for me.Good work napa 8/10.`-.-�

napa182

Comments: 775

mIRC Snippet: Query Manager
Posted on Feb 1, 2008 5:52 pm

yeah for some reason it didnt like ur mirc lol.. i did test it on version 6.31 and 6.16 and it worked fine

Comments: 884

mIRC Snippet: Query Manager
Posted on Feb 1, 2008 6:11 pm

Heh most things just hate my soul......

Mr_E

Comments: 12

mIRC Snippet: Query Manager
Posted on Feb 1, 2008 6:26 pm

And I tested on old school 1.3 lol

water_dragon

Comments: 44

mIRC Snippet: Query Manager
Posted on Feb 2, 2008 1:56 am

nice script 8/10 mit use it on one of my scripts iv been working on (all mite just stick to the one iv been useing for about a year)

IcE^__

Comments: 37

mIRC Snippet: Query Manager
Posted on Feb 2, 2008 4:38 pm

GOOD!

IcE^__

Comments: 37

mIRC Snippet: Query Manager
Posted on Feb 2, 2008 4:39 pm

10/10

napa182

Comments: 775

mIRC Snippet: Query Manager
Posted on Feb 2, 2008 5:33 pm

i updated it just a bit..

Thank you for ur comments

SnoooP

Comments: 348

mIRC Snippet: Query Manager
Posted on Mar 4, 2008 10:31 pm

i liked it... works well :D

Query Manager

Introduction

Grab the Code

Comments

napa182

My Snippet Tags

Contact

Friends (30)

Sponsors

		Head Admin For irc.EzzyChat.com California ÎÇ ×Ç ÑÎ KÅ
Last seen: Jul 19, 2008 Profile \| Website Friends (30) Snippets (40) Images (1) Comments Received (349) Comments Submitted (775) Forum Posts (135)