Query Manager/Secure

mIRC Code

+ 0 likes

Please Register to submit score.

Average Score	8.0
Scores Submitted	3
Date Added	Jun 14, 2008
Last Updated	Aug 26, 2008
Tags	manager p2p pm query secure

Introduction

Ok to load just copy an paste the entire code an ALT +R in your mirc an open a new remote file an paste an save if u wish.Pretty simple its a secure query and query manager with an allow list block list add an remove capabilities ETC.This is from mmy script that im making shouldn't be to many bugs if any please comment and yes i know the CSM is still in there call it a promo and this is a edit version my scripts have DLL codes in them so this is a releasable version for ya'all.

Grab the Code

alias CSMQM { dialog $iif($dialog(_CSM_S_Query_1),-v,-m) _CSM_S_Query_1 _CSM_S_Query_1 }
menu * { 
  Secure Query:/dialog $iif($dialog(_CSM_S_Query_1),-v,-m) _CSM_S_Query_1 _CSM_S_Query_1 
}
dialog _CSM_S_Query_1 {
  title " "
  size -1 -1 341 121
  option dbu notheme
  box "Secure Query On/Off Options.", 21, 241 10 97 6
  box "Add/Remove Blocked.", 27, 169 10 67 6
  box "Block List.", 26, 120 10 48 6
  box "Add/Remove Allowed.", 22, 52 10 67 6
  box "Allow List.", 11, 2 10 49 6
  button "Accept", 7, 2 68 22 12
  button "Reject", 34, 25 68 22 12
  button "Add Allowed", 15, 5 92 40 13
  button "Add Block", 14, 5 80 40 13
  list 25, 49 72 60 33, hsbar vsbar size
  list 2, 108 72 228 33, hsbar vsbar size
  button "?", 33, 316 45 15 10
  text "Help?", 23, 316 37 15 8
  text "Secure Query On/Off Options.", 19, 251 20 74 9, disable
  radio "Secure Query On", 16, 255 31 54 9
  radio "Secure Query Off", 17, 255 43 54 8
  button "Add ", 29, 170 38 22 10
  button "Remove", 31, 209 38 23 10
  button "?", 32, 193 45 15 10
  edit "Nickname Here", 28, 179 23 42 10, autohs autovs
  list 20, 122 18 44 38, hsbar vsbar size
  button "Remove", 13, 93 38 23 10
  text "Help?", 9, 77 38 14 8
  button "?", 5, 76 45 15 10
  button "Add ", 12, 53 38 23 10
  list 3, 6 18 44 38, hsbar vsbar size
  text "Messages that has been sent are listed below.", 18, 156 63 113 8, disable
  text "Nickname List:", 8, 61 63 34 7, disable
  text "Help?", 30, 194 38 14 8
  text "Quick Help:", 35, 2 110 28 8
  edit "Nickname Here", 10, 62 23 42 10, autohs autovs
  text "CSM Secure Query Control Center.", 4, 128 1 84 8, disable
  box "Messege INFO.", 1, 2 57 336 6
  box "", 24, 2 13 1 44
  box "", 36, 2 61 1 48
  box "", 37, 51 13 1 44
  box "", 38, 119 13 1 44
  box "", 39, 168 13 1 44
  box "", 40, 235 13 1 44
  box "", 41, 241 13 1 44
  box "", 42, 337 13 1 44
  box "", 43, 337 61 1 48
  box "", 44, 8 1 116 6
  box "", 45, 215 1 116 6
  text "", 6, 31 110 306 8
}

on 1:dialog:_CSM_S_Query_1:mouse:*: {
  if (!$did) { did -ra $dname 6 Waiting.... }
  if ($did == 7) {  did -a $dname 6 The "Accept Button" allows you to open a query with a person but not add them to the allowed list. }
  if ($did == 34) {  did -a $dname 6 The "Reject Button" allows you to block a query with a person but not add them to the block list. }
  if ($did == 14) { did -a $dname 6 The "Add Block" button allows you to add a selected nickname to the block list.All blocked entries are auto blocked. }
  if ($did == 15) { did -a $dname 6 The "Add Allow" button allows you to add a selected nickname to the allow list.All allowed entries are not blocked. }
  if ($did == 25) { did -a $dname 6 The "Nickname List" lists the nickname(s) of the person(s) that open a query with you. }
  if ($did == 2) { did -a $dname 6 The "Message List" lists all corresponding messages with the nicknames listed in the "Nickname List". }
  if ($did == 3) { did -a $dname 6 The "Allow List" lists all the entries in your allow list.Remeber to select entry if you wish to remove. }
  if ($did == 20) { did -a $dname 6 The "Block List" lists all the entries in your block list.Remeber to select entry if you wish to remove.  }
  if ($did == 10) { did -a $dname 6 The "Nickname Edit Field" Is where you enter the nickname you chose to either list in the allow or block list. }
  if ($did == 28) { did -a $dname 6 The "Nickname Edit Field" Is where you enter the nickname you chose to either list in the allow or block list. }
  if ($did == 12) { did -a $dname 6 The "Nickname Allow/Block ADD Button" you must enter a nickname into the "Nickname Edit Field" and not leave as is or blank. }
  if ($did == 29) { did -a $dname 6 The "Nickname Allow/Block ADD Button" you must enter a nickname into the "Nickname Edit Field" and not leave as is or blank. }
  if ($did == 13) { did -a $dname 6 The "Nickname Allow/Block REMOVE Button" you must select a nickname from the allow or block list. }
  if ($did == 31) { did -a $dname 6 The "Nickname Allow/Block REMOVE Button" you must select a nickname from the allow or block list. }
  if ($did == 16) { did -a $dname 6 The "Secure Query On Radio" This radio turn your secure query on.A notice will be sent on each change. }
  if ($did == 17) { did -a $dname 6 The "Secure Query Off Radio" This radio turn your secure query off.A notice will be sent on each change. }
}

on *:dialog:_CSM_S_Query_1:init:*:{
  if (%_CSM_S_Query_On == On) { did -c $dname 16 }
  if (%_CSM_S_Query_On == Off) { did -c $dname 17 }
  .timer 1 1  _CSM_S_Query_1_TAN
  var %_QBLN = 1
  while (%_QBLN <= $lines(CSM_SQuery_Block.txt)) {
    did -a $dname 20 $read(CSM_SQuery_Block.txt,%_QBLN)
    inc %_QBLN
  }
  var %_QALN = 1
  while (%_QALN <= $lines(CSM_SQuery_Allowed.txt)) {
    did -a $dname 3 $read(CSM_SQuery_Allowed.txt,%_QALN)
    inc %_QALN
  }
}
alias SQuery_AR_Refresh {
  var %_QBLN = 1
  while (%_QBLN <= $lines(CSM_SQuery_Block.txt)) {
    did -a $dname 20 $read(CSM_SQuery_Block.txt,%_QBLN)
    inc %_QBLN
  }
  var %_QALN = 1
  while (%_QALN <= $lines(CSM_SQuery_Allowed.txt)) {
    did -a $dname 3 $read(CSM_SQuery_Allowed.txt,%_QALN)
    inc %_QALN
  }
}
alias _CSM_S_Query_1_TAN {
  var %_CSM_S_Query_1I 1
  while (%_CSM_S_Query_1I <= 30) {
    dialog -t _CSM_S_Query_1 $left(CSM ‹™› Secure Query Options.,%_CSM_S_Query_1I)
    var %_CSM_S_Query_1T 1
    while (%_CSM_S_Query_1T <= 500) inc %_CSM_S_Query_1T
    inc %_CSM_S_Query_1I
  }
}
#_CSM_Query_ISON off
raw 303:*: {
  if (!$2) { .disable #_CSM_Query_ISON | halt }
  .timer 1 5 .disable #_CSM_Query_ISON
  if (%_CSM_SSQ_ISON_ == On) { .disable #_CSM_Query_ISON | .msg $2  (CSM)_( CSM Query System ‹™› )_(  $+ %_QA_N $+  Your query has been ACCEPTED. ) | unset %_CSM_SSQ_ISON_ | Query $2 | haltdef  
  }
  if (%_CSM_SSQ_ISON_REJ == On) { 
    var %_QR_N2 = $2
    .notice $2 (CSM)_( CSM Query System ‹™› )_(  $+ %_QA_N $+  Your query has been REJECTED. )
    silence %_QR_N2
    .timer 1 10 silence - $+ %_QR_N2
    ignore -u10 %_QR_N2
    .disable #_CSM_Query_ISON
    haltdef 
  }
  if (%_CSM_SSQ_ISON_AList == On) { unset %_CSM_SSQ_ISON_AList  |  .msg $2 (CSM)_( CSM Query System ‹™› )_(  $+ $2 $+  Your query has been ACCEPTED and you have been added to my query ALLOWED list. ) | Query $2 | .disable #_CSM_Query_ISON | haltdef  
  }
  if (%_CSM_SSQ_ISON_RRList  == On) { 
    var %_QADDR_N2 = $2
    unset %_CSM_SSQ_ISON_ARList
    .notice $2 (CSM)_( CSM Query System ‹™› )_(  $+ %_QADDR_N $+  Your query has been REJECTED and you have been added to my query BLOCK list. )
    .silence %_QADDR_N2
    .timer 1 10 silence - $+ %_QADDR_N2
    .ignore -u10 %_QADDR_N2
    .disable #_CSM_Query_ISON
  } 
}

#_CSM_Query_ISON end

on *:dialog:_CSM_S_Query_1:sclick:*:{
  if ($did == 16)  { set %_CSM_S_Query_On On |  __CSM_Query_Manager_On }
  if ($did == 17)  { set %_CSM_S_Query_On Off |  __CSM_Query_Manager_Off }
  if ($did == 7) {
    if (!$did(25,1).sel) { _CSM_S_Query_1_AR_Er | halt }
    if ($did(_CSM_S_Query_1,25,$did(_CSM_S_Query_1,25).sel).text == --------------------------) { _CSM_S_Query_1_AR_Er  | halt }
    var %_QA_N = $did(_CSM_S_Query_1,25,$did(_CSM_S_Query_1,25).sel).text
    var %_ALLOW_Q = $did(25,1).sel | var %_ALLOW_Q_1 =  $calc($did(25,1).sel  +1 ) 
    var %_ALLOW_B_R = $did(25,1).sel
    did -d $dname 25 %_ALLOW_Q_1 | did -d $dname 2 %_ALLOW_Q_1  | did -d $dname 2 %_ALLOW_Q | did -d $dname 25 %_ALLOW_Q   
    set -u2 %_CSM_SSQ_ISON_ On
    .enable #_CSM_Query_ISON 
    ison %_QA_N 
    write -dl $+ %_ALLOW_B_R CSM_Q_S_Blocked.txt 
  }
  if ($did == 34) {
    if (!$did(25,1).sel) { _CSM_S_Query_1_AR_Er | halt }
    if ($did(_CSM_S_Query_1,25,$did(_CSM_S_Query_1,25).sel).text == --------------------------) { _CSM_S_Query_1_AR_Er  | halt }
    var %_QR_N = $did(_CSM_S_Query_1,25,$did(_CSM_S_Query_1,25).sel).text
    var %_REJECT_Q = $did(25,1).sel | var %_REJECT_Q_1 =  $calc($did(25,1).sel  +1 ) 
    did -d $dname 25 %_REJECT_Q_1 | did -d $dname 2 %_REJECT_Q_1  | did -d $dname 2 %_REJECT_Q | did -d $dname 25 %_REJECT_Q 
    set -u5 %_CSM_SSQ_ISON_REJ On
    .enable #_CSM_Query_ISON 
    ison %_QR_N
    write -dl $+ %_REJECT_Q CSM_Q_S_Blocked.txt

}
  if ($did == 15) {
    if (!$did(25,1).sel) { _CSM_S_Query_1_AR_Er | halt }
    if ($did(_CSM_S_Query_1,25,$did(_CSM_S_Query_1,25).sel).text == --------------------------) { _CSM_S_Query_1_AR_Er  | halt }
    var %_QADDA_N = $did(_CSM_S_Query_1,25,$did(_CSM_S_Query_1,25).sel).text
    var %_ADDALLOW_Q = $did(25,1).sel | var %_ADDALLOW_Q_1 =  $calc($did(25,1).sel  +1 ) 
    var %_ADDALLOW_B_R = $did(25,1).sel
    did -d $dname 25 %_ADDALLOW_Q_1 | did -d $dname 2 %_ADDALLOW_Q_1  | did -d $dname 2 %_ADDALLOW_Q | did -d $dname 25 %_ADDALLOW_Q   
    set -u2 %_CSM_SSQ_ISON_AList On
    .enable #_CSM_Query_ISON 
    ison %_QADDA_N
    write -dl $+ %_ADDALLOW_Q CSM_Q_S_Blocked.txt 
    write CSM_SQuery_Allowed.txt %_QADDA_N
    did -r $dname 3
    did -r $dname 20
    set %__CSM_QQAA %_QADDA_N
    _CSM_S_Query_1_AL_ADD_ADD
    if ($dialog(_CSM_S_Query_1)) { SQuery_AR_Refresh }
  }
  if ($did == 14) {
    if (!$did(25,1).sel) { _CSM_S_Query_1_AR_Er | halt }
    if ($did(_CSM_S_Query_1,25,$did(_CSM_S_Query_1,25).sel).text == --------------------------) { _CSM_S_Query_1_AR_Er  | halt }
    var %_QADDR_N = $did(_CSM_S_Query_1,25,$did(_CSM_S_Query_1,25).sel).text
    var %_ADDREJECT_Q = $did(25,1).sel | var %_ADDREJECT_Q_1 =  $calc($did(25,1).sel  +1 ) 
    did -d $dname 25 %_ADDREJECT_Q_1 | did -d $dname 2 %_ADDREJECT_Q_1  | did -d $dname 2 %_ADDREJECT_Q | did -d $dname 25 %_ADDREJECT_Q   
    set -u2 %_CSM_SSQ_ISON_RRList On
    .enable #_CSM_Query_ISON 
    ison %_QADDR_N
    write -dl $+ %_ADDREJECT_Q CSM_Q_S_Blocked.txt 
    write CSM_SQuery_Block.txt %_QADDR_N
    did -r $dname 3
    did -r $dname 20
    set -u3 %__CSM_QQBB  %_QADDR_N
    _CSM_S_Query_1_BL_ADD_ADD
    if ($dialog(_CSM_S_Query_1)) { SQuery_AR_Refresh }
  }
  if ($did == 12) {
    if (!$did(10).text) || ($did(10).text == Nickname Here) {   _CSM_S_Query_1_AL_ADD_Er  | halt }
    if ($did(10).text == $read(CSM_SQuery_Allowed.txt)) {  _CSM_S_Query_1_AL_ADD_Er_2 | halt }
    if ($did(10).text == $read(CSM_SQuery_Block.txt)) {  _CSM_S_Query_1_AL_ADD_Er_A3 | halt }
    write CSM_SQuery_Allowed.txt $did(10).text
    var %_ADD_A_Q $did(10).text
    did -r $dname 3
    did -r $dname 20
    set -u3 %__CSM_QQAA $did(10).text
    _CSM_S_Query_1_AL_ADD_ADD
    if ($dialog(_CSM_S_Query_1)) { SQuery_AR_Refresh }
  }
  if ($did == 29) {
    if (!$did(28).text) || ($did(28).text == Nickname Here) {   _CSM_S_Query_1_AL_ADD_Er  | halt }
    if ($did(28).text == $read(CSM_SQuery_Block.txt)) {  _CSM_S_Query_1_AL_ADD_Er_2 | halt }
    if ($did(28).text == $read(CSM_SQuery_Allowed.txt)) {  _CSM_S_Query_1_AL_ADD_Er_B3 | halt }
    write CSM_SQuery_Block.txt $did(28).text
    did -r $dname 3
    did -r $dname 20
    set -u3 %__CSM_QQBB $did(28).text
    _CSM_S_Query_1_BL_ADD_ADD
    if ($dialog(_CSM_S_Query_1)) { SQuery_AR_Refresh }
  }
  if ($did == 13) {
    if (!$lines(CSM_SQuery_Allowed.txt)) {   _CSM_S_Query_1_AL_NL_Er_NL  | halt }
    if (!$did(3).sel)  {   _CSM_S_Query_1_AL_REM_Er  | halt }
    write -dl $+ $did(3).sel CSM_SQuery_Allowed.txt
    set -u3 %__CSM_QQRR $did(_CSM_S_Query_1,3,$did(_CSM_S_Query_1,3).sel).text
    did -r $dname 3
    did -r $dname 20
    _CSM_S_Query_1_AL_REM_REM
    if ($dialog(_CSM_S_Query_1)) { SQuery_AR_Refresh }
  }
  if ($did == 31) {
    if (!$lines(CSM_SQuery_Block.txt)) {   _CSM_S_Query_1_AL_NL_Er_NL  | halt }
    if (!$did(20).sel)  {   _CSM_S_Query_1_AL_REM2_Er  | halt }
    write -dl $+ $did(20).sel CSM_SQuery_Block.txt
    set -u3 %__CSM_QQRRB $did(_CSM_S_Query_1,20,$did(_CSM_S_Query_1,20).sel).text
    did -r $dname 3
    did -r $dname 20
    _CSM_S_Query_1_AL_REM_REMB
    if ($dialog(_CSM_S_Query_1)) { SQuery_AR_Refresh }
  }
  if ($did == 5) { 
    .timer 1 120 close -@ @CSM_Secure_Query_Guide
    window -zCoda  @CSM_Secure_Query_Guide 300 200 600 130 arial 11  
    echo @CSM_Secure_Query_Guide CSM ‹™› 4SQ INFO: "The secure query allow list Is simple.The list to your left has all the nickname that you have added that will not be obstructed while attempting you start a query with you."
    echo @CSM_Secure_Query_Guide CSM ‹™› 4SQ INFO: "You may add an remove nicknames from the list as you want.Remember to type a nickname while adding in the edit field above."
    echo @CSM_Secure_Query_Guide CSM ‹™› 4SQ INFO: "While removing a nickname remember to click on it in the list."
  }
  if ($did == 32) { 
    .timer 1 120 close -@ @CSM_Secure_Query_Guide
    window -zCoda  @CSM_Secure_Query_Guide 300 200 600 130 arial 11  
    echo @CSM_Secure_Query_Guide CSM ‹™› 4SQ INFO: "The secure block list is simple.The list to your left has all the nicknames that you have blocked.The nicknames will not be able to start a query with you while on the list."
    echo @CSM_Secure_Query_Guide CSM ‹™› 4SQ INFO: "You may add an remove nicknames from the list as you want.Remember to type a nickname while adding in the edit field above."
    echo @CSM_Secure_Query_Guide CSM ‹™› 4SQ INFO: "While removing a nickname remember to click on it in the list."
  }
  if ($did == 33) { 
    .timer 1 120 close -@ @CSM_Secure_Query_FULL_Guide
    window -zCoda  @CSM_Secure_Query_FULL_Guide  300 200 570 250 arial 11  
    echo @CSM_Secure_Query_FULL_Guide CSM ‹™› 4SQ INFO: "So what is a secure query system?.Well most know It as "p2p" or "Pm" well in ,mirc its called a "Query".But they all mean the same thing .Just a private chat in a seperate window."
    echo @CSM_Secure_Query_FULL_Guide CSM ‹™› 4SQ INFO: "Theres many options here.How it works is.When you haev the secure query on.The dialog pops up and your given the nickname an message in a list.You can ACCEPT it or REJECT it.
    echo @CSM_Secure_Query_FULL_Guide CSM ‹™› 4SQ INFO: "If you ACCEPT the query you send them a message an the window is open.If you REJECT it they are ignored an silenced for a period of time an the window is closed."
    echo @CSM_Secure_Query_FULL_Guide CSM ‹™› 4SQ INFO: "Or you may choose to add them to the allow list or the block list.All allowed list nicknames can start a query with your with out obstruction.All blocked nicknames are silenced an the window is closed."
    echo @CSM_Secure_Query_FULL_Guide CSM ‹™› 4SQ INFO:: "You may also add an delete from you allow an block list at any time.A secure query protects you from many things mostly unwanted messages an floods.But gives you the ability to control who talks to you and it is very safe an effective."
  }
}
menu @CSM_Secure_Query_Guide,@CSM_Secure_Query_FULL_Guide {
  Close All Secure Query Guides: {
    close -@ @CSM_Secure_Query_Guide
    close -@ @CSM_Secure_Query_FULL_Guide
  }
}
alias  _CSM_S_Query_1_AL_ADD_ADD {
  if ($version < 6.31) { echo -a ( CSM 4NOTICE  Tip Notice: $+ $me $+  you have added 4 $+ %__CSM_QQAA  $+  to the allow list. )  
  }
  else {
    $tip(CSM 4NOTICE :,CSM 4NOTICE :, $+ $me $+   you have added 4 $+ %__CSM_QQAA  $+  to the allow list. , 3) 
  }
}
alias    _CSM_S_Query_1_BL_ADD_ADD {
  if ($version < 6.31) { echo -a ( CSM 4NOTICE  Tip Notice: $+ $me $+  you have added 4 $+ %__CSM_QQBB  $+  to the block list. )  
  }
  else {
    $tip(CSM 4NOTICE :,CSM 4NOTICE :, $+ $me $+   you have added 4 $+ %__CSM_QQBB  $+  to the block list. , 3) 
  }
}
alias  _CSM_S_Query_1_AL_REM_REM {
  if ($version < 6.31) { echo -a ( CSM 4NOTICE  Tip Notice: $+ $me $+  you have removed 4 $+ %__CSM_QQRR  $+  from the allow list. )  
  }
  else {
    $tip(CSM 4NOTICE :,CSM 4NOTICE :, $+ $me $+   you have removed 4 $+ %__CSM_QQRR  $+  from the allow list. , 3) 
  }
}
alias  _CSM_S_Query_1_AL_REM_REMB {
  if ($version < 6.31) { echo -a ( CSM 4NOTICE  Tip Notice: $+ $me $+  you have removed 4 $+ %__CSM_QQRRB  $+  from the block list. )  
  }
  else {
    $tip(CSM 4NOTICE :,CSM 4NOTICE :, $+ $me $+   you have removed 4 $+ %__CSM_QQRRB  $+  from the block list. , 3) 
  }
}
alias _CSM_S_Query_1_AL_ADD_Er_A3 {
  if ($version < 6.31) { echo -a ( CSM 4NOTICE  Tip Notice: $+ $me $+  you may not add this nickname as a entry.Please remove it from the BLOCK list first. )  
  }
  else {
    $tip(CSM 4NOTICE :,CSM 4NOTICE :, $+ $me $+  you may not add this nickname as a entry.Please remove it from the BLOCK list first. , 3) 
  }
}
alias _CSM_S_Query_1_AL_ADD_Er_B3 {
  if ($version < 6.31) { echo -a ( CSM 4NOTICE  Tip Notice: $+ $me $+  you may not add this nickname as a entry.Please remove it from the ALLOW list first. )  
  }
  else {
    $tip(CSM 4NOTICE :,CSM 4NOTICE :, $+ $me $+  you may not add this nickname as a entry.Please remove it from the ALLOW list first. , 3) 
  }
}
on ^1:OPEN:?: {
  if (%_CSM_S_Query_On == On) {
    if ($nick == SERVICES) { halt }
    set %_SQ_Msg $1-
    var %_Query_Manager_N = $nick 
    if (%_Query_Manager_N == $read(CSM_SQuery_Block.txt,w,%_Query_Manager_N)) { silence %_Query_Manager_N | .timer 1 10 silence - $+ %_Query_Manager_N | .msg %_Query_Manager_N  (CSM)_( CSM Query System ‹™› )_(  $+ %_Query_Manager_N  $+  This Is a automated query message.You are on my BLOCK list.Your query will be automaticly Is rejected. | close -m %_Query_Manager_N   | halt }
    if (%_Query_Manager_N == $read(CSM_SQuery_Allowed.txt,w,%_Query_Manager_N)) { Query $nick | echo $nick $timestamp < $+ $nick $+ > %_SQ_Msg | halt }
    if (%_Query_Manager_N == $read(CSM_Q_S_Blocked.txt,w,%_Query_Manager_N)) { close -m $nick | halt }
    write CSM_Q_S_Blocked.txt $nick 
    CSMQM
    inc %Qcount
    did -a _CSM_S_Query_1 25 $nick
    did -a _CSM_S_Query_1 2 $strip($1-))
    did -a _CSM_S_Query_1 25 --------------------------
    did -a  _CSM_S_Query_1 2 ---------------------------------------------------------------------------------------------------------------------------------
    .msg $nick (CSM)_( CSM Query System ‹™› )_(  $+ $nick $+  This Is a automated query message.You are not listed on my allowed list.Please wait for me to accect,reject,or add you to my allowed or block list(s) ty. )
    .timer 1 1 close -m $nick
  }
}
on *:TEXT:*:?: {
  if (%_CSM_S_Query_On == On) {
    set -u5 $+(%,_Query_M,.,$nick,.,$strip($1-)) 
    inc -u5 $+(%,_Query_Flood,.,$nick)
    if ($($+(%,_Query_Flood,.,$nick) ,2) == 5) { var %_QF_N = $nick |  unset  $+(%,_Query_On,.,%_QF_N)  | .msg %_QF_N (CSM)_( CSM Query System ‹™› )_(  $+ %_QF_N $+  Please do not flood my query.This query has been automaticly ended. | silence %_QF_N | .timer $+ SQS 1 10 silence - $+ %_QF_N | .ignore -u10 %_QF_N | close -m %_QF_N |  halt }
    if ($($+(%,_Query_Flood,.,$nick) ,2) >= 6) { halt }
  }
}

on *:Close:?: {
  var %_Query_Manager_N2 = $target
  if ($($+(%,_Query_On,.,%_Query_Manager_N2),2) == On) {  unset $+(%,_Query_On,.,%_Query_Manager_N2) 
  }
}

alias __CSM_Query_Manager_On  { 
  if ($version < 6.31) { echo -a ( CSM 4NOTICE Tip Notice: $+ $me $+  your query manager is now 4ON. )  
  }
  else {
    $tip(CSM 4NOTICE :,CSM 4NOTICE :, $+ $me $+  your query manager is now 4ON., 3) 
  }
}

alias __CSM_Query_Manager_Off { 
  if ($version < 6.31) { echo -a ( CSM 4NOTICE  Tip Notice: $+ $me $+  your query manager is now 4OFF . )  
  }
  else {
    $tip(CSM 4NOTICE :,CSM 4NOTICE :, $+ $me $+  your query manager is now 4OFF., 3) 
  }
}
alias  _CSM_S_Query_1_AR_Er {
  if ($version < 6.31) { echo -a ( CSM 4NOTICE  Tip Notice: $+ $me $+  you must select a 4NICKNAME from the list before you may proceed. )  
  }
  else {
    $tip(CSM 4NOTICE :,CSM 4NOTICE :, $+ $me $+   you must select a 4NICKNAME from the list before you may proceed. , 3) 
  }
}
alias  _CSM_S_Query_1_AR_Er_2 {
  if ($version < 6.31) { echo -a ( CSM 4NOTICE  Tip Notice: $+ $me $+  you must select a 4NICKNAME from the list before you may proceed. )  
  }
  else {
    $tip(CSM 4NOTICE :,CSM 4NOTICE :, $+ $me $+   you must select a 4NICKNAME from the list before you may proceed. , 3) 
  }
}
alias _CSM_S_Query_1_AL_ADD_Er {
  if ($version < 6.31) { echo -a ( CSM 4NOTICE  Tip Notice: $+ $me $+  you must enter a 4NICKNAME above before you may proceed. )  
  }
  else {
    $tip(CSM 4NOTICE :,CSM 4NOTICE :, $+ $me $+   you must enter a 4NICKNAME above before you may proceed. , 3) 
  }
}
alias _CSM_S_Query_1_AL_ADD_Er_2 {
  if ($version < 6.31) { echo -a ( CSM 4NOTICE  Tip Notice: $+ $me $+  the 4NICKNAME you have entered is already listed above.Please type a different nickname above before you may proceed. )  
  }
  else {
    $tip(CSM 4NOTICE :,CSM 4NOTICE :, $+ $me $+  the 4NICKNAME you have entered is already listed above.Please type a different nickname above before you may proceed. , 3) 
  }
}

alias _CSM_S_Query_1_AL_REM_Er {
  if ($version < 6.31) { echo -a ( CSM 4NOTICE  Tip Notice: $+ $me $+  you must select a 4NICKNAME from the ALLOWED list before you may proceed. )  
  }
  else {
    $tip(CSM 4NOTICE :,CSM 4NOTICE :, $+ $me $+   you must select a 4NICKNAME from the ALLOWED list before you may proceed. , 3) 
  }
}

alias _CSM_S_Query_1_AL_REM2_Er {
  if ($version < 6.31) { echo -a ( CSM 4NOTICE  Tip Notice: $+ $me $+  you must select a 4NICKNAME from the BLOCKED list before you may proceed. )  
  }
  else {
    $tip(CSM 4NOTICE :,CSM 4NOTICE :, $+ $me $+   you must select a 4NICKNAME from the BLOCKED list before you may proceed. , 3) 
  }
}

alias  _CSM_S_Query_1_AL_NL_Er_NL {
  if ($version < 6.31) { echo -a ( CSM 4NOTICE  Tip Notice: $+ $me $+  there are no 4ENTRIES in the file to remove. )  
  }
  else {
    $tip(CSM 4NOTICE :,CSM 4NOTICE :, $+ $me $+   there are no 4ENTRIES in the file to remove. , 3) 
  }
}

raw 421:*:halt

alias qu {
  if (!$dialog(_CSM_S_Query_1)) {
    dialog -dmei _CSM_S_Query_1 _CSM_S_Query_1
  }
  else { dialog -x _CSM_S_Query_1 _CSM_S_Query_1
    dialog -dmei _CSM_S_Query_1 _CSM_S_Query_1
  }
}

Comments

(27) RSS

Go to Bottom

Comments: 1,366

mIRC Snippet: Query Manager/Secure
Posted on Jun 15, 2008 3:50 pm

Wow rates but no comments or testers?

jonesy44

Comments: 1,068

mIRC Snippet: Query Manager/Secure
Posted on Jun 15, 2008 3:56 pm

Looks positively confusing .. i'll try it soon :D

Comments: 1,366

mIRC Snippet: Query Manager/Secure
Posted on Jun 15, 2008 5:26 pm

LOL nah its easy:P

Eugenio

Comments: 1,079

mIRC Snippet: Query Manager/Secure
Posted on Jun 15, 2008 8:20 pm

farking pwnz0rs, I was glad to help him make this script :D

Comments: 1,366

mIRC Snippet: Query Manager/Secure
Posted on Jun 15, 2008 8:35 pm

ROFL thanks:P and yuur to |33+ to code Eugene.`-.-´

Eugenio

Comments: 1,079

mIRC Snippet: Query Manager/Secure
Posted on Jun 16, 2008 8:49 am

ROFLMFAO!
jealous of my superior coding skillz mate ?!?
I mean Dude werd yo burn

jonesy44

Comments: 1,068

mIRC Snippet: Query Manager/Secure
Posted on Jun 16, 2008 11:38 am

EL, Looks like you did original C+, or some really old coding language with all your _'s and starting variables and strings with _ lol

a careful warchild

Comments: 188

mIRC Snippet: Query Manager/Secure
Posted on Aug 25, 2008 11:30 am

nice not bad not bad tbh

Calliope

Comments: 26

mIRC Snippet: Query Manager/Secure
Posted on Aug 26, 2008 1:05 am

I lose the first line sent from anyone on my allow list which is a pain but otherwise does what I need. I'm new to codeing or I would rate it.

Comments: 1,366

mIRC Snippet: Query Manager/Secure
Posted on Aug 26, 2008 1:06 am

@Calliope,Thought i updated for that error gimme a sec i ll post a update.`-.-´

Calliope

Comments: 26

mIRC Snippet: Query Manager/Secure
Posted on Aug 26, 2008 1:13 am

I should have added I have an older copy of the code you may have updated since but not mentioned you fixed it? I just decided to get a profile here finally since I'm using the codes and learning about what I'm using from you all.

Comments: 1,366

mIRC Snippet: Query Manager/Secure
Posted on Aug 26, 2008 1:14 am

Nah your correct its a old version but i thought i updated it to echo the first line said,im still lookin for it gimme a few i ll post it.`-.-´

Calliope

Comments: 26

mIRC Snippet: Query Manager/Secure
Posted on Aug 26, 2008 1:40 am

It seems hawkee ate my last posts so at the risk of double posts and I can always blame the ungodly time while I wait ~any concern over spelling?

Comments: 1,366

mIRC Snippet: Query Manager/Secure
Posted on Aug 26, 2008 1:41 am

There that should be the update lemme know if anything else comes up on this thanks.And Calliope feel free to join a few of us hawkee scriptors on //server -m irc.chatscape.net:6667 -j #mIRC_Or_GTFO.Get help or just shoot around testing codes ETC.`-.-´

Calliope

Comments: 26

mIRC Snippet: Query Manager/Secure
Posted on Aug 26, 2008 1:46 am

Thanks for the invite but I know some coders have issues with women invading their inner sanctum I wasn't even going to use a female name here but I got tired of ~that user name is taken~ I'm still looking for a suitable avatar so as not to incite the masses. -.-

Comments: 1,366

mIRC Snippet: Query Manager/Secure
Posted on Aug 26, 2008 1:52 am

Your gender isnt a problem i asure you there.We have a few ladies that script there.and the boys help just as well and i promise you wont be bothered.Rethink it i d like to see some more lady scriptors out there/here.`-.-´

Eugenio

Comments: 1,079

mIRC Snippet: Query Manager/Secure
Posted on Aug 26, 2008 1:56 am

yeah @ IRC.CHATSCAPE.NET:6667 -j MIRC_OR_GTFO we have a few females that code and some that dont and are trying/learning to code.

Calliope

Comments: 26

mIRC Snippet: Query Manager/Secure
Posted on Aug 26, 2008 2:00 am

As I said I'm just learning how now thought it was time to figure out how things worked since I use them all the time. Perhaps once I'm passed the severely noobish state I'm at now at the moment the simplest things are exciting me once I've figured them out. Thanks for the update.

Comments: 1,366

mIRC Snippet: Query Manager/Secure
Posted on Aug 26, 2008 2:02 am

Rofl well we all started there an some are still there *cough Eugenio cough*.Lol so yeah just thought id ask can be easyer to get past the n00b stages with a lil hands on help.I'll be waiting there either way ...i own the place.So if i see ya cool if not thats ok to im sure i ll see your codes and ill be sure to comment and rate.`-.-´

Eugenio

Comments: 1,079

mIRC Snippet: Query Manager/Secure
Posted on Aug 26, 2008 2:04 am

rofl thanks for the much needed recognition mate
-.-

/me doesnt actually code anymore
>D

Typo

Comments: 222

mIRC Snippet: Query Manager/Secure
Posted on Aug 26, 2008 2:07 am

You should swing by calliope, hes not kidding, you would be more than welcome there and might find it a good place to do some more learning as its where we toss ideas at eachother and its where ppl ask for help if they need it.

It's a pretty small network but I've been going back since the first day I visited because the network Im on ful time has no decent room where ppl talk code as its kinda dead too.

Another decent looking release EL, I haven't even tested it yet so I will wait to make a proper comment and rate.

Calliope

Comments: 26

mIRC Snippet: Query Manager/Secure
Posted on Aug 26, 2008 2:19 am

Excellent use of spam in a sentence Eugenio lol I'll think about it especially if you say there are other girls at around the same stage of learning as I am. Thanks

Calliope

Comments: 26

mIRC Snippet: Query Manager/Secure
Posted on Aug 26, 2008 6:09 pm

Thanks for the update I had one small problem with it today though If someone P2P msg me after I've already closed their window its not recognized and I don't get it. Maybe I loaded it wrong. I don't think it did that before but tbh I didn't save the old code. Any ideas?

Comments: 1,366

mIRC Snippet: Query Manager/Secure
Posted on Aug 26, 2008 6:16 pm

Hmm dana? and yeah i ve had the same issue once its closed it wont recognize it i ll look into it later.`-.-´

Calliope

Comments: 26

mIRC Snippet: Query Manager/Secure
Posted on Aug 26, 2008 6:25 pm

Thanks I'll keep my eyes open for the next update then.

a careful warchild

Comments: 188

mIRC Snippet: Query Manager/Secure
Posted on Sep 13, 2008 8:02 am

EL, 1 question why is it in rubbish old retro theme and not in the os theme?

a careful warchild

Comments: 188

mIRC Snippet: Query Manager/Secure
Posted on Sep 13, 2008 8:04 am

other than that it pwnz ;)

Query Manager/Secure

Introduction

Grab the Code

Comments

EL

My Snippet Tags

Contact

Friends (41)

Sponsors

		Freelance artist...
Last seen: Oct 05, 2008 Profile \| Website Likes (50) Friends (41) Snippets (23) Images (16) Comments Received (470) Comments Submitted (1366) Forum Posts (64)