[script]
n0=alias queryblocker {
n1= if ($1 == on) { set %acquery on | /echo -a *** QueryBlocker ON }
n2= if ($1 == off) { set %acquery off | /echo -a *** QueryBlocker OFF }
n3=}
n4=alias qblock.info { /dialog -m queryinfo queryinfo }
n5=alias scriptdirtest { //echo -a $scriptdirQueryBlocker.mrc }
n6=;-----Menu-----
n7=menu menubar,channel,query {
n8= • Защитник •:/dialog -m queryopt queryopt
n9=}
n10=menu ,status,nicklist,menubar,query {
n11= -
n12=
n13=
n14=}
n15=
n16=;-----Load-----
n17=on *:load: {
n18= if (%qblockversion) { /dialog -m queryinstv queryinstv }
n19= else {
n20= if (!%acquery) { set %acquery on }
n21= if (!%qblock.flood) { set %qblock.flood on }
n22= if (!%qblock.atext) { set %qblock.atext Query accepted. }
n23= if (!%qblock.btext) { set %qblock.btext Query blocked. }
n24= if (!%qblock.abtext) { set %qblock.abtext [Ohrana na Usera] V Momenta nemojete da chatite s usera probvaite sled malko! }
n25= if (!%qblock.butext) { set %qblock.butext I'm too busy at the moment, please try again in a few minutes. }
n26= if (!%qblock.otext) { set %qblock.otext [Ohrana na Usera] Molq izchakaite dokato zapitam usera iska li da chati s vas! }
n27= if (!%qblock.itext) { set %qblock.itext The query with you has been automatically ignored, don't query me again. }
n28= set %qblockversion 1.0
n29= /echo -a *** QueryBlocker v1.0 by digitalmy successfully loaded.
n30= /echo -a *** To open the QueryBlocker Options goto the MenuBar (File, Tools, DCC, >>MenuBar<<, Window, Help) then click on QueryBlocker.
n31= /dialog -m queryopt queryopt
n32= }
n33=}
n34=
n35=;-----Events-----
n36=on *:OPEN:?: {
n37= if (%acquery == on) && ($nick !isin %qblock.nicks) && ($nick !isin %qblock.ignore) {
n38= if (%qblock.andor == and) {
n39= if (%qblock.opchan != $null) && ($nick !isop %qblock.opchan) { goto qblock }
n40= elseif (%qblock.vchan != $null) && ($nick !isvoice %qblock.vchan) { goto qblock }
n41= elseif (%qblock.rchan != $null) && ($nick !ison %qblock.rchan) { goto qblock }
n42= elseif (%qblock.op2chan != $null) && ($nick !isop %qblock.op2chan) { goto qblock }
n43= elseif (%qblock.v2chan != $null) && ($nick !isvoice %qblock.v2chan) { goto qblock }
n44= elseif (%qblock.r2chan != $null) && ($nick !ison %qblock.r2chan) { goto qblock }
n45= elseif (%qblock.opchan == $null) && (%qblock.vchan == $null) && (%qblock.rchan == $null) && (%qblock.op2chan == $null) && (%qblock.v2chan == $null) && (%qblock.r2chan == $null) { goto qblock }
n46= else { halt }
n47= }
n48= elseif (%qblock.andor == or) {
n49= if ($nick !isop %qblock.opchan) && ($nick !isvoice %qblock.vchan) && ($nick !ison %qblock.rchan) && ($nick !isop %qblock.op2chan) && ($nick !isvoice %qblock.v2chan) && ($nick !ison %qblock.r2chan) { goto qblock }
n50= elseif (%qblock.opchan == $null) && (%qblock.vchan == $null) && (%qblock.rchan == $null) && (%qblock.op2chan == $null) && (%qblock.v2chan == $null) && (%qblock.r2chan == $null) { goto qblock }
n51= else { halt }
n52= }
n53= :qblock
n54= {
n55= if (%qblock.flood == off) {
n56= if (!%acqnick) && (!%nspqbl. [ $+ [ $nick ] ]) {
n57= set %acqnick $nick
n58= .msg $nick %qblock.otext
n59= /dialog -m queryacc queryacc
n60= }
n61= elseif (%nspqbl. [ $+ [ $nick ] ]) { .closemsg $nick | .msg $nick %qblock.abtext }
n62= elseif (%acqnick != $null) { .closemsg $nick | .msg $nick %qblock.butext }
n63= }
n64= else {
n65= if (!%quspam. [ $+ [ $nick ] ]) {
n66= if (!%acqnick) && (!%nspqbl. [ $+ [ $nick ] ]) {
n67= set %acqnick $nick
n68= .msg $nick %qblock.otext
n69= /dialog -m queryacc queryacc
n70= }
n71= elseif (%nspqbl. [ $+ [ $nick ] ]) { .closemsg $nick | .msg $nick %qblock.abtext }
n72= elseif (%acqnick != $null) { .closemsg $nick | .msg $nick %qblock.butext }
n73= elseif (%quspam. [ $+ [ $nick ] ]) { .closemsg $nick | halt }
n74= set -u10 %quspam. [ $+ [ $nick ] ] nospam
n75= }
n76= elseif (%quspam. [ $+ [ $nick ] ]) { .closemsg $nick }
n77= }
n78= }
n79= }
n80= elseif ($nick isin %qblock.ignore) && (%qblock.flood == on) && (!%nspm.ig. [ $+ [ $nick ] ]) { .msg $nick %qblock.itext | set -u10 %nspm.ig. [ $+ [ $nick ] ] nospam | .closemsg $nick | halt }
n81= elseif ($nick isin %qblock.ignore) && (%qblock.flood == off) { .msg $nick %qblock.itext | .closemsg $nick | halt }
n82= elseif (%nspm.ig. [ $+ [ $nick ] ]) { .closemsg $nick | halt }
n83= else { halt }
n84=}
n85=on *:NICK: {
n86= if ($nick isin %qblock.nicks) { set %qblock.nicks $replace(%qblock.nicks,$nick,$newnick) }
n87= if ($nick isin %qblock.ignore) { set %qblock.ignore $replace(%qblock.ignore,$nick,$newnick) }
n88=}
n89=
n90=;-----DialogEvents-----
n91=on 1:dialog:queryopt:init:0: {
n92= if (%acquery == on) { /did -c queryopt 1 }
n93= if (%qblock.andor != and) && (%qblock.andor != or) { set %qblock.andor and }
n94= if (%qblock.flood == on) { /did -c queryopt 3 }
n95= if (%qblock.andor == and) { /did -c queryopt 28 }
n96= if (%qblock.andor == or) { /did -c queryopt 30 }
n97= if (%qblock.atext != $null) { /did -a queryopt 6 %qblock.atext }
n98= if (%qblock.btext != $null) { /did -a queryopt 7 %qblock.btext }
n99= if (%qblock.abtext != $null) { /did -a queryopt 13 %qblock.abtext }
n100= if (%qblock.butext != $null) { /did -a queryopt 14 %qblock.butext }
n101= if (%qblock.otext != $null) { /did -a queryopt 9 %qblock.otext }
n102= if (%qblock.itext != $null) { /did -a queryopt 33 %qblock.itext }
n103= if (%qblock.nicks != $null) { /did -a queryopt 24 %qblock.nicks }
n104= if (%qblock.ignore != $null) { /did -a queryopt 32 %qblock.ignore }
n105= if (%qblock.opchan != $null) { /did -a queryopt 20 %qblock.opchan }
n106= if (%qblock.vchan != $null) { /did -a queryopt 17 %qblock.vchan }
n107= if (%qblock.rchan != $null) { /did -a queryopt 22 %qblock.rchan }
n108= if (%qblock.op2chan != $null) { /did -a queryopt 26 %qblock.op2chan }
n109= if (%qblock.v2chan != $null) { /did -a queryopt 25 %qblock.v2chan }
n110= if (%qblock.r2chan != $null) { /did -a queryopt 27 %qblock.r2chan }
n111= if (%acquery == off) {
n112= /did -b queryopt 3
n113= /did -b queryopt 6
n114= /did -b queryopt 7
n115= /did -b queryopt 13
n116= /did -b queryopt 14
n117= /did -b queryopt 9
n118= /did -b queryopt 17
n119= /did -b queryopt 20
n120= /did -b queryopt 22
n121= /did -b queryopt 24
n122= /did -b queryopt 25
n123= /did -b queryopt 26
n124= /did -b queryopt 27
n125= /did -b queryopt 28
n126= /did -b queryopt 30
n127= /did -b queryopt 32
n128= /did -b queryopt 33
n129= }
n130=}
n131=on 1:dialog:queryopt:sclick:1: {
n132= if ($did(queryopt,1).state == 0) {
n133= /did -b queryopt 3
n134= /did -b queryopt 6
n135= /did -b queryopt 7
n136= /did -b queryopt 13
n137= /did -b queryopt 14
n138= /did -b queryopt 9
n139= /did -b queryopt 17
n140= /did -b queryopt 20
n141= /did -b queryopt 22
n142= /did -b queryopt 24
n143= /did -b queryopt 25
n144= /did -b queryopt 26
n145= /did -b queryopt 27
n146= /did -b queryopt 28
n147= /did -b queryopt 30
n148= /did -b queryopt 32
n149= /did -b queryopt 33
n150= }
n151= if ($did(queryopt,1).state == 1) {
n152= /did -e queryopt 3
n153= /did -e queryopt 6
n154= /did -e queryopt 7
n155= /did -e queryopt 13
n156= /did -e queryopt 14
n157= /did -e queryopt 9
n158= /did -e queryopt 17
n159= /did -e queryopt 20
n160= /did -e queryopt 22
n161= /did -e queryopt 24
n162= /did -e queryopt 25
n163= /did -e queryopt 26
n164= /did -e queryopt 27
n165= /did -e queryopt 28
n166= /did -e queryopt 30
n167= /did -e queryopt 32
n168= /did -e queryopt 33
n169= }
n170=}
n171=on 1:dialog:queryopt:sclick:2: {
n172= if ($did(queryopt,1).state == 1) { set %acquery on }
n173= if ($did(queryopt,1).state == 0) { set %acquery off }
n174= if ($did(queryopt,3).state == 0) { set %qblock.flood off }
n175= if ($did(queryopt,3).state == 1) { set %qblock.flood on }
n176= if ($did(queryopt,28).state == 1) { set %qblock.andor and }
n177= if ($did(queryopt,30).state == 1) { set %qblock.andor or }
n178= set %qblock.atext $did(queryopt,6).text
n179= set %qblock.btext $did(queryopt,7).text
n180= set %qblock.abtext $did(queryopt,13).text
n181= set %qblock.butext $did(queryopt,14).text
n182= set %qblock.otext $did(queryopt,9).text
n183= set %qblock.itext $did(queryopt,33).text
n184= set %qblock.nicks $did(queryopt,24).text
n185= set %qblock.ignore $did(queryopt,32).text
n186= set %qblock.opchan $did(queryopt,20).text
n187= set %qblock.vchan $did(queryopt,17).text
n188= set %qblock.rchan $did(queryopt,22).text
n189= set %qblock.op2chan $did(queryopt,26).text
n190= set %qblock.v2chan $did(queryopt,25).text
n191= set %qblock.r2chan $did(queryopt,27).text
n192= if (%qblock.opchan != $null) && ($me !ison %qblock.opchan) { /join %qblock.opchan }
n193= if (%qblock.vchan != $null) && ($me !ison %qblock.vchan) { /join %qblock.vchan }
n194= if (%qblock.rchan != $null) && ($me !ison %qblock.rchan) { /join %qblock.rchan }
n195= if (%qblock.op2chan != $null) && ($me !ison %qblock.op2chan) { /join %qblock.op2chan }
n196= if (%qblock.v2chan != $null) && ($me !ison %qblock.v2chan) { /join %qblock.v2chan }
n197= if (%qblock.r2chan != $null) && ($me !ison %qblock.r2chan) { /join %qblock.r2chan }
n198=}
n199=on 1:dialog:queryopt:sclick:11: { /qblock.info }
n200=on 1:dialog:queryacc:close:0: {
n201= if ($did(queryacc,6).state == 1) { set %qblock.nicks %qblock.nicks %acqnick }
n202= if ($did(queryacc,7).state == 1) { set %qblock.ignore %qblock.ignore %acqnick }
n203= unset %acqnick
n204=}
n205=on 1:dialog:queryacc:sclick:6: { if ($did(queryacc,6).state == 1) { /did -u queryacc 7 } }
n206=on 1:dialog:queryacc:sclick:7: { if ($did(queryacc,7).state == 1) { /did -u queryacc 6 } }
n207=on 1:dialog:queryacc:sclick:4: {
n208= .msg %acqnick %qblock.btext | set -u300 %nspqbl. [ $+ [ %acqnick ] ] nspm | .closemsg %acqnick
n209=}
n210=on 1:dialog:queryacc:sclick:2: {
n211= /window -a %acqnick | .msg %acqnick %qblock.atext
n212=}
n213=on 1:dialog:queryacc:init:0: {
n214= /did -ra queryacc 1 Accept query from %acqnick $+ ?
n215=}
n216=on 1:dialog:queryacc:sclick:5: {
n217= /qblock.info
n218=}
n219=on 1:dialog:queryopt:sclick:29: {
n220= /dialog -x queryopt queryopt | /dialog -m queryuninst queryuninst
n221=}
n222=on 1:dialog:queryinstv:sclick:2: {
n223= /dialog -x queryinstv queryinstv
n224= if (!%acquery) { set %acquery on }
n225= if (!%qblock.flood) { set %qblock.flood on }
n226= if (!%qblock.atext) { set %qblock.atext Query accepted. }
n227= if (!%qblock.btext) { set %qblock.btext Query blocked. }
n228= if (!%qblock.abtext) { set %qblock.abtext [Ohrana na Usera] V Momenta nemojete da chatite s usera probvaite sled malko! }
n229= if (!%qblock.butext) { set %qblock.butext I'm too busy at the moment, please try again in a few minutes. }
n230= if (!%qblock.otext) { set %qblock.otext [Ohrana na Usera] Molq izchakaite dokato zapitam usera iska li da chati s vas! }
n231= if (!%qblock.itext) { set %qblock.itext The query with you has been automatically ignored, don't query me again. }
n232= set %qblockversion 1.0
n233= /echo -a *** QueryBlocker v1.0 by digitalmy successfully loaded.
n234= /echo -a *** To open the QueryBlocker Options goto the MenuBar (File, Tools, DCC, >>MenuBar<<, Window, Help) then click on QueryBlocker.
n235= /echo -a *** There is an other QueryBlocker installed, please uninstall it to make sure that there won't be any problems.
n236= /dialog -m queryopt queryopt
n237=}
n238=on 1:dialog:queryinstv:sclick:3: {
n239= /unload -rs $scriptdirQueryBlocker.mrc
n240=}
n241=on 1:dialog:queryuninst:sclick:2: {
n242= unset %qblockversion
n243= /dialog -x queryuninst queryuninst
n244= /echo -a *** QueryBlocker successfully uninstalled. Settings kept.
n245= /unload -rs $scriptdirQueryBlocker.mrc
n246=}
n247=on 1:dialog:queryuninst:sclick:3: {
n248= unset %acquery
n249= unset %qblock.flood
n250= unset %qblock.atext
n251= unset %qblock.btext
n252= unset %qblock.abtext
n253= unset %qblock.butext
n254= unset %qblock.otext
n255= unset %qblock.itext
n256= unset %qblock.nicks
n257= unset %qblock.opchan
n258= unset %qblock.vchan
n259= unset %qblock.rchan
n260= unset %qblock.op2chan
n261= unset %qblock.v2chan
n262= unset %qblock.r2chan
n263= unset %qblock.ignore
n264= unset %qblockversion
n265= /dialog -x queryuninst queryuninst
n266= /unload -rs $scriptdirQueryBlocker.mrc
n267=}
n268=
n269=;-----Dialogs-----
n270=dialog queryacc {
n271= title "Query acceptance"
n272= size -1 -1 87 55
n273= option dbu
n274= text "Accept Query?", 1, 3 3 82 15
n275= button "Yes", 2, 3 20 37 12, cancel
n276= button "No", 4, 45 20 37 12, ok cancel
n277= link "Infos", 5, 72 47 13 8
n278= check "add nick to exceptions", 6, 2 37 67 10
n279= check "add nick to irgnore list", 7, 2 45 65 10
n280=}
n281=dialog queryinfo {
n282= title "Infos"
n283= size -1 -1 120 38
n284= option dbu
n285= text "The QueryBlocker v1.0.", 1, 3 3 115 21
n286= button "Return", 2, 3 24 37 12, ok cancel
n287=}
n288=dialog queryinstv {
n289= title "QueryBlocker"
n290= size -1 -1 121 41
n291= option dbu
n292= text "A QueryBlocker is already installed. If you will continue installation, this may cause problems, do you want to continue anyway?", 1, 2 2 113 21
n293= button "Yes", 2, 1 28 30 12
n294= button "No", 3, 32 28 30 12, cancel
n295=}
n296=dialog queryuninst {
n297= title "uninstalling..."
n298= size -1 -1 104 36
n299= option dbu
n300= text "Uninstalling QueryBlocker v1.0. Do you want to keep the settings?", 1, 2 2 84 15
n301= button "Yes", 2, 1 23 30 12
n302= button "No", 3, 32 23 30 12
n303= button "Cancel", 4, 73 23 30 12, cancel
n304=}
n305=dialog queryopt {
n306= title "QueryBlocker Options"
n307= size -1 -1 185 184
n308= option dbu
n309= check "enable QueryBlocker", 1, 4 2 66 10
n310= button "OK", 2, 2 170 37 12, ok cancel
n311= check "enable AntiFlood", 3, 11 11 52 10
n312= text "accept text", 4, 11 24 30 8
n313= text "block text", 5, 11 34 30 8
n314= edit "", 6, 52 23 130 10, multi autohs
n315= edit "", 7, 52 33 130 10, multi autohs
n316= text "query open text", 8, 11 64 42 8
n317= edit "", 9, 52 63 130 10, multi autohs
n318= button "Cancel", 10, 42 170 37 12, cancel
n319= link "Infos", 11, 170 175 14 8
n320= text "autoblock text", 12, 11 44 36 8
n321= edit "", 13, 52 43 130 10, multi autohs
n322= edit "", 14, 52 53 130 10, multi autohs
n323= text "busy text", 15, 11 54 25 8
n324= text "channel exceptions", 16, 11 89 51 8
n325= edit "", 17, 81 95 50 10, multi autohs
n326= text "voice", 18, 63 96 16 8
n327= text "op", 19, 63 106 11 8
n328= edit "", 20, 81 105 50 10, multi autohs
n329= text "reg", 21, 63 116 13 8
n330= edit "", 22, 81 115 50 10, multi autohs
n331= text "nick exceptions", 23, 11 138 39 8
n332= edit "", 24, 52 137 130 10, multi autohs
n333= edit "", 25, 131 95 50 10, multi autohs
n334= edit "", 26, 131 105 50 10, multi autohs
n335= edit "", 27, 131 115 50 10, multi autohs
n336= radio "and", 28, 20 111 22 10
n337= radio "or", 30, 20 100 22 10
n338= text "ignore list", 31, 11 149 27 8
n339= edit "", 32, 52 148 130 10, multi autohs
n340= edit "", 33, 52 73 130 10, multi autohs
