Query141 — File Browser
Query141v3.0 / Query141v3.0 / Query141.Pub3 / Q141.Pub2.2.2.mrc
Q141.Pub2.2.2.mrc — 28.12 KB — Download this file
;discontinued
;
;2.2.2: made it so the new options are in right click menu.
;made >= not > , in checking for '3'
;made keys all upper case so people don't type I insted of 1 , etc..
;come see me at name141chat.no-ip.org in #query141 ; you silly monkies!
;now with spamfilter type actions and stuff.
;thanks to irc.dal.net/#chatterzworld's Society`s_Reject for the window code with users/spamfilter list.
;fixed a messup in $fulladdress $site , needed to be $fulladdress only in notice echos
menu nicklist {
Q141Pub2.2.2
.management of names
..add Nick: hadd query141hash $$1 on | hsave query141hash query141hash.hsh | msg $$1 your nick has been added for you | ignore -r $$1 | silence - $+ $$1
..remove Nick, user can be readded this way: hdel query141hash $$1 | msg $$1 i'm sorry to inform you, your nick has been removed from accepted list. | hsave query141hash query141hash.hsh
..Clear All data of users and filters: hfree query141hash | hmake -s query141hash 100 | hsave query141hash query141hash.hsh
..Silently Add NickName: hadd query141hash $$1 on | hsave query141hash query141hash.hsh
..Silently Remove Nick: hdel query141hash $$1 | hsave query141hash query141hash.hsh
..Manually Add Nick: set %manuallyaddingnick $$?="Which nick name?" | hadd query141hash %manuallyaddingnick on | hsave query141hash query141hash.hsh
..Manually Add Site: set %manuallyaddingsite $$?="What site?" | hadd query141hash %manuallyaddingsite on | hsave query141hash query141hash.hsh
..Never Accept Nick: hadd query141hash $$1 off | hsave query141hash query141hash.hsh | msg $$1 sorry i have put a no add on your site, and it's now on silence for privmsges | ignore -pt $$1 | silence + $+ $$1
..Manually Delete Nick: set %mandeletenick $$?="What nick?" | hdel query141hash %mandeletenick | hsave query141hash query141hash.hsh
..Is Nick Accepted: if ($hget(query141hash,$$1) == on) { echo 4 -a $$1 IS in the saved database of users. | halt } | if ($hget(query141hash,$$1) == $null) { echo 4 -a $$1 is NOT in data base of accepted users. } | If ($hget(query141hash, $$1) == off) { echo 4 -a $$1 is in the ignore list | halt }
..Is Accepted Manually Check: set -u1 %checknick $$?="What nick or site to check?" | if ($hget(query141hash,%checknick) == on) { echo 4 -a %checknick IS in the saved database of users. | halt } | if (%checknick isin $hget(query141hash,%checknick) == off) { echo 4 -a %checknick is NOT in data base of accepted users. | halt }
..Is Nick on No Acceptance List: if ($hget(query141hash,$$1) == off) { echo 4 -a $$1 IS in the no accept list | halt } | if ($hget(query141hash,$$1) != off) { echo 4 -a $$1 is NOT in the no accept list | halt }
..Check Manually for a site or nick on no acceptance: set -u5 %nickorsite $??="What nick or site" | if ($hget(query141hash,%nickorsite) == off) { echo 4 -a %nickorsite IS in the no accept list | halt } else { nick doesn't appear to be in the list }
..Add to No Accept Manually (Site or Nick): set -u5 %noadd $$?="what site or nick" | hadd query141hash %noadd off | hsave query141hash query141hash.hsh
..Remove from No Acceptance List: hdel query141hash $$1 off | hsave query141hash query141hash.hsh | msg $$1 hey you can message me now | silence - $+ $$1 | ignore -r $$1
..Remove from No Acceptance List Manually: set -u5 %whatevertheydo $$?="What nick or site to remove" | hdel query141hash %whatevertheydo | hsave query141hash query141hash.hsh | silence - $+ %whatevertheydo | ignore -r %whatevertheydo
.Nick Change Options
..Auto Accept if the user is on acceptance list: set %querynickchanges on
..Dont Auto Accept Nick Changes: set %querynickchanges off
..Ignore users on nick changes: set %querynickigchangecheck on
..Don't ignore if user changes nick: set %querynickigchangecheck off
.ON: unset %query141 | echo 4 query protection is back on
.OFF: set %query141 off | echo -a Query141 is OFF you are now UNprotected
.Notifies Auto Accept
..ON: set %querynotifies on | echo -a notify auto accept on
..OFF: set %querynotifies off | echo -a notify auto accept off
.Notice Filter
..on: set %notices141 on
..off: set %notices141 off
..Options
...Don't check if user is in a current chan: set %ignorenoticesifonchan on
...Make user be checked if user is in current chan or not: set %ignorenoticesifonchan off
.Spamfilters:
..PM:
...Add Filter: set -u1 %filtershremoveo $$?="what filter to add?" | set %filtershremoveo1 $replace(%filtershremoveo,$chr(32),$null) | hadd query141hash %filtershremoveo1 filter | hsave query141hash query141hash.hsh | echo -a %filtershremoveo1 is now added to PM filters. Remember no spaces are used for spamfilters.
...Remove Filter: set -u1 %filtershremoveo $?="what filter to remove?" | set -u1 %filtershremoveo1 $replace(%filtershremoveo,$chr(32),$null) | if ($hget(query141hash,%filtershremoveo1) == $null) { echo -a %filtershremoveo1 that isn't on the spamfilter for PMs | halt } | hdel query141hash %filtershremoveo1 | hsave query141hash query141hash.hsh
..Channel Options:
...on or off options:
....Ban Users on filters on: set %query141banbjs1 on
....Dont Ban Users on filters: set %query141banbjs1 off
...Add Channel Filter: set -u1 %hattypatchat141 $$?="What filter do you wish to add to banning of users?" | set -u5 %hattypatchat1412 $replace(%hattypatchat141,$chr(32),$null) | echo -a %hattypatchat1412 is now added remember no spaces are used for spamfilters | hadd query141hash %hattypatchat1412 chanfilter | hsave query141hash query141hash.hsh
...Remove Channel Filter: set -u1 %hattypatchat141 $$?="What filter to remove of banning of users?" | set -u5 %hattypatchat1412 $replace(%hattypatchat141,$chr(32),$null) | if ($hget(query141hash,%hattypatchat1412) == $null) { echo -a %hattypatchat1412 that isn't on the spamfilter for channel banning | halt } | hdel query141hash %hattypatchat1412 | hsave query141hash query141hash.hsh | echo -a %hattypatchat1412 is now removed for channels
..Oper Options For Channel:
...All off: set %operoptionkill off | set %operoptiongzline off
...Gzline on: set %operoptiongzline on | echo gzline for spamfilter is on for channels
...Gzline off: set %operoptiongzline off | echo gzline for spamfilter is off for channels
...Kill on: set %operoptionkill on | echo kill is now on for channel spamfilters
...Kill off: set %operoptionkill off | echo kill is now off for channel spamfilters
..Oper Options for PM:
...All off: set %operoptionkill1 off | set %operoptiongzline1 off
...Gzline on: set %operoptiongzline1 on | echo gzline for spamfilter is on for PMs
...Gzline off: set %operoptiongzline1 off | echo gzline for spamfilter is off for PMs
...Kill on: set %operoptionkill1 on | echo kill is now on for channel PMs
...Kill off: set %operoptionkill1 off | echo kill is now off for channel PMs
.Query Flood Checker
..ON: set %queryopenchecks on
..OFF: set %queryopenchecks off
.Echo Options:
..Echo to status window: set %q141statuswindowecho on | unset %q141echotowindow | close -@ @Query141echos
..Echo to a window: set %q141echotowindow on | unset %q141statuswindowecho | window @Query141echos
.Clear Window If used to echo to it: clear @Query141echos
.Get Options Summery: {
if (%query141 == off) { echo 12 -a MAIN script is set to OFF }
if (%query141 == $null) { echo 12 -a MAIN script is set to ON }
if (%notices141 == off) echo 12 -a notice filter is off
if (%querynotifies == on) echo 12 -a notice filter is on
if (%ignorenoticesifonchan == on) echo 12 -a Notices aren't checked if user is on a chan with you
if (%ignorenoticesifonchan == off) echo 12 -a Notices ARE checked if user is on a chan or not
if (%queryopenchecks == on) echo 12 -a Flood checking is on
if (%queryopenchecks == off) { echo 12 -a flood checking is off }
if (%queryopenchecks == $null) { echo 12 -a flood checking isn't set }
if (%q141echotowindow == on) { echo 12 -a everything is being echoed to an @window }
if (%q141statuswindowecho == on) { echo 12 -a everything is being echoed to your status window of the networks }
if (%querynickchanges == on) { echo 12 -a nick changes are allowed to be auto added }
if (%querynickchanges == off) { echo 12 -a nick changes are NOT allowed to be auto added }
if (%querynickigchangecheck == on) { echo 12 -a if user changes nick on no accept list, the new nick gets non accepted too }
if (%q141services == on) { echo 12 -a service status echo and msg close is on }
if (%q141services == off) { echo 12 -a service status echo and msg close is off }
if (%query141banbj == on) { echo 12 -a trying to ban bad users on join of room }
if (%query141banbjs1 == on) { echo 12 -a users are banned if they say spamfilter on channel } | if (%query141banbjs1 == $null) { echo 12 -a query141banbjs1 is not set not banning or checking channel spam i don't guess } | if (%query141banbjs1 == off) { echo 12 -a not trying to ban users when spamfilter is met on channel }
if (%operoptionkill == on) { echo 12 -a trying to kill users on spamfilter match for channels }
if (%operoptiongzline == on) { echo 12 -a trying to gzline user on spamfilter match for channels }
if (%operoptionkill1 == on) { echo 12 -a trying to kill users when PM spamfitler is matched }
if (%operoptionkill1 == off) { echo 12 -a NOT trying to kill users when PM spamfitler is matched }
if (%operoptiongzline1 == on ) { echo 12 -a trying to gzline user when PM spamfilter is matched }
echo 12 -a services checking are | q141showserv
}
.Service Msg Closer:
..On: set %q141services on
..OFF: set %q141services off
..Options:
...Show Services Patterns: q141showserv | echo -a remember pipes are the seperators , and it's anythingPATTERNanything , such as serv would be memoserv , nickserv etc. but also serv1 , serv2 , etc.
...Add Services Pattern: set -u5 %q141addingserv $$?="What pattern?" | q141addserv %q141addingserv | echo -a your patterns are now | q141showserv
...Del Services Pattern: set -u5 %q141delservp $$?="What pattern?" | q141delserv %q141delservp | echo -a your patterns are now | q141showserv
.Check for updates: echo -a $Query141V | run http://name14.tripod.com/queryvercheck.html
.Ban users if ignored:
..ON: set %query141banbj on | echo $active now trying to ban bad users.
..Off: set %query141banbj off | echo $active now NOT trying to ban bad users.
.Try to find me on IRC:
..No-ip linked (try this first): server -m name141chat.no-ip.org -j #query141,#threat
..n00bs(this second) : server -m irc.n00bs.org -j #query141
.ListUsers: query141 nicks
.listSpamfilters: query141 spamfilters
}
menu query {
.Lovenote: msg loveserv hug $active
}
alias Q141VER { msg $active my Query141 version is Q141Pub2.2.2 | halt }
alias Query141V { return Your Version is: Q141Pub2.2.2 }
alias room141 { .timer 1 1 msg #query141 Name141 my query141 version is Q141Pub2.2.2 | halt }
alias removesite {
hdel query141hash $$1
msg $2 i'm sorry to inform you, your site has been deleted from my acceptance list
hsave query141hash query141hash.hsh
}
alias silentlyaddnick {
hadd query141hash $$1 on
hsave query141hash query141hash.hsh
}
alias silentlyremovenick {
hdel query141hash $$1
hsave query141hash query141hash.hsh
}
alias silentlyaddsite {
hadd query141hash $$1 on
hsave query141hash query141hash.hsh
}
alias silentlyremovesite {
hdel query141hash $$1
hsave query141hash query141hash.hsh
}
alias addsite {
hadd query141hash $$1 on
hsave query141hash query141hash.hsh
msg $2 your site of $$1 has been added for you
}
alias neveracceptnick {
hadd query141hash $$1 off
hsave query141hash query141hash.hsh
msg $$1 sorry i have put a no add on your nick, and it's now on silence for privmsges
}
alias sneveracceptnick {
hadd query141hash $$1 off
hsave query141hash query141hash.hsh
echo -s $$1 is now unaccepted
}
alias neveracceptsite {
hadd query141hash $$1 off
hsave query141hash query141hash.hsh
msg $2 sorry i have put your site of $$1 on ignore if it messages me again
}
alias removeneveracceptsite {
hdel query141hash $$1
hsave query141hash query141hash.hsh
silence - $+ $2 $+ ! $+ * $+ @ $+ *
silence - $+ * $+ ! $+ * $+ @ $+ $$1
msg $2 you have been removed from never accept list and are now unsilenced from privmessages
}
alias removeneveracceptnick {
hdel query141hash $$1
hsave query141hash query141hash.hsh
silence - $+ $$1 $+ ! $+ * $+ @ $+ *
msg $$1 you have been removed from never accept list and are now unsilenced from privmessages
}
alias addnick {
hadd query141hash $$1 on
hsave query141hash query141hash.hsh
msg $$1 your nick has been added for you
}
alias removenick {
hdel query141hash $$1
msg $$1 i'm sorry to inform you, your nick has been removed from accepted list.
hsave query141hash query141hash.hsh
}
on ^*:hotlink:*yes-add-person-to-accept*:*:{
if (Yes isin $1) return
halt
}
on ^*:hotlink:*add-with-site-insted*:*:{
if (add isin $1) return
halt
}
on ^*:hotlink:*NoAddUserAtAll*:*:{
if (NoAdduserAtAll isin $1) return
halt
}
on ^*:hotlink:*FiltersAdd*:*:{
if (FiltersAdd isin $1) return
halt
}
on *:HOTLINK:*Filters*:*:{
set %q141hl1 $replace($gettok($hotline,2-,32),$chr(32),$null) | hadd query141hash %q141hl1 filter
hsave query141hash query141hash.hsh
echo -a %q141hl1 was added to PM filter. REMEMBER THERE IS NO SPACES WITH SPAMFILTERS
}
on ^*:hotlink:*SilenceS*:*:{
if (SilenceS isin $1) return
halt
}
on *:HOTLINK:*SilenceS*:*:{
hadd query141hash $gettok($hotline,12,32) off
hsave query141hash query141hash.hsh
msg $gettok($hotline,13,32) sorry i have put a no add on your site $gettok($hotline,12,32) , and it's now on silence for privmsges
}
on *:hotlink:*NoAddUserAtAll*:*:{
hadd query141hash $gettok($hotline,14,32) off
hsave query141hash query141hash.hsh
msg $gettok($hotline,14,32) sorry i have put a no add on your nick, and it's now on silence for privmsges if you msg me again.
}
on *:HOTLINK:*yes-add-person*:*:{
hadd query141hash $gettok($hotline,5,32) on
msg $gettok($hotline,5,32) your nick $gettok($hotline,5,32) has been added to acceptance list for you. There is no reason to type your key anymore.
}
on *:hotlink:*add-with-site*:*:{
hadd query141hash $gettok($hotline,9,32) on | hsave query141hash query141hash.hsh
msg $gettok($hotline,10,32) your site of $gettok($hotline,9,32) has been added to acceptance list for you
}
on *:nick:{ if (%query141 == off) { halt }
if (%querynickchanges == off) { halt }
if ($hget(query141hash,$newnick) == on) { halt }
if ($hget(query141hash,$nick) == on) && ($hget(query141hash,$newnick) != off) { hadd query141hash $newnick on | if (%q141statuswindowecho == on) { echo -s Query141: autosaving $newnick cause of $nick } | else { echo @Query141echos Query141: autosaving $newnick cause of $nick } | hsave query141hash query141hash.hsh }
if ((%querynickigchangecheck == on) && ($hget(query141hash,$nick) == off)) { hadd query141hash $newnick off | if (%q141statuswindowecho == on) { echo -s Query141: Query141 added backnick $newnick to ignore list } | else { echo @Query141echos Query141 added backnick $newnick to ignore list } | halt }
}
on *:notify:{ if (%querynotifies == off) { halt }
if ($hget(query141hash,$nick) == on) { halt }
if ($hget(query141hash,$nick) == off) { halt }
else { quiteaddnick $nick | if (%q141statuswindowecho == on) { echo -s Query141 has saved $nick Due to notify list auto add } | else { echo @Query141echos Query141 has saved $nick Due to notify list auto add | echo 10 @Query141echos $nick was on $network } }
}
on *:TEXT:*:?:{ if (%query141 == off) { halt }
if (server isin $site) { checker | halt }
set -u1 %msgsent on | if ((%q141servs && ($regex($nick,/( $+ %q141servs $+ )/i))) && %q141services != off) { echo 4 -s $timestamp $nick : $1- | .timerservmsg $+ $nick 1 3 closemsg $nick | halt }
if (auto isin $1) { if ($hget(query141hash,$nick) == on) { halt }
if ($hget(query141hash,$site) == on) { halt }
timer 1 1 closemsg $nick }
set %actuser $1- | set %quser $nick | set %qsite $site | set %actuser1 $replace($1-,$chr(32),$null) | checker | halt }
on *:notice:*:?:{ if (server isin $site) { checker | halt }
if (serv isin $nick || $nick == opsb || stats isin $site || serv isin $site || $nick == global ) { halt }
if (%notices141 == off) { halt }
if (%query141 == off) { halt }
set -u1 %noticesent on
if (((%ignorenoticesifonchan == on) && ($comchan($nick,0) != 0)) && ($hget(query141hash,$nick) != off)) { halt }
if ((%ignorenoticesifonchan == off) && ($hget(query141hash,$nick) != off) && ($hget(query141hash,$nick) != off)) { set %actuser $1- | set %quser $nick | set %qsite $site | checker | halt }
set %actuser $1- | set %quser $nick | set %qsite $site | set %actuser1 $replace($1-,$chr(32),$null) | checker | halt
}
alias checker {
if ($hget(query141hash,$nick) == off) { silence + $+ $nick | .ignore -pnu320 $nick | closemsg $nick | halt }
if ($hget(query141hash,$site) == off) { silence + $+ $site | .ignore -pnu320 $site | closemsg $nick | halt }
if ($hget(query141hash,$nick) == on) { halt }
if ($hget(query141hash,$site) == on) { halt }
if (($hget(query141hash,%actuser1) === filter) && (%operoptiongzline1 == on)) { gzline $nick 4h :PMed a spamfilter match }
if (($hget(query141hash,%actuser1) === filter) && (%operoptionkill1 == on)) { kill $nick PMed a spamfilter match }
if ($hget(query141hash,%actuser1) === filter) { silence + $+ $site | .ignore -pnu320 $site | closemsg $nick | if (%q141statuswindowecho == on) { echo -s Query141: $nick just matched filter %actuser1 | echo -s User Said: %actuser } | else { echo @Query141echos Query141: $nick just matched filter %actuser1 | echo -s User Said: %actuser } | halt }
inc -u5 %floodtest141
if (%floodtest141 == 10) { ignore -pnu320 *!*@* | timer $+ silence 1 320 silence - * $+ @ $+ * | silence + * $+ @ $+ * | halt }
if (auto isin $1) { halt }
if (%msg [ $+ [ $site ] ] == $null) { set -u1900 %msg [ $+ [ $site ] ] $rand(A,Z) $+ $rand(A,Z) $+ $rand(A,Z) $+ $rand(A,Z) }
if ($nick == $me) { halt }
if ($gettok(%actuser,1,32) == %msg [ $+ [ $site ] ] ) { .msg %quser seems you have passed. Please resay anything you have said before passing. I am using $Query141V by Name141 | hadd query141hash $nick on | hsave query141hash query141hash.hsh | halt }
else {
if ($nick == $active) {
hadd query141hash $site on
hsave query141hash query141hash.hsh
msg $nick i have saved your site of $site cause you are active.
halt
}
.msg $nick $chr(91) $+ Secure Query Event $+ $chr(93) hello $nick $+ $chr(44) my script doesn't know you. Please type %msg [ $+ [ $site ] ] . You have 3 tries before the script ignores you. Note $+ $chr(58) keys are all letters.
if (%noticesent == on) {
if (%q141statuswindowecho == on) { echo -s $timestamp $fulladdress tried to NOTICE you saying $chr(34) %actuser $chr(34) } | else { echo @Query141echos $timestamp $fulladdress tried to NOTICE you saying $chr(34) %actuser $chr(34) } }
if (%msgsent == on) { if (%q141statuswindowecho == on) { echo -s $timestamp $fulladdress tried to MSG you saying $chr(34) %actuser $chr(34) } | else { echo @Query141echos $timestamp $fulladdress tried to MSG you saying $chr(34) %actuser $chr(34) } }
if (%actsent == on) { if (%q141statuswindowecho == on) { echo -s $timestamp $fulladdress tried to ACTION you saying $chr(34) %actuser $chr(34) } | else { echo @Query141echos $timestamp $fulladdress tried to ACTION you saying $chr(34) %actuser $chr(34) } }
set %newshit.zell $nick
set %newshit.name141 $site
set %noadder.nick $nick
set %noadder.site $site
if (%q141statuswindowecho == on) { echo 4 -s yes-add-person-to-accept with nick name $nick } | else { echo 4 @Query141echos yes-add-person-to-accept with nick name $nick }
if (%q141statuswindowecho == on) { echo 12 -s add-with-site-insted adds user site to the acceptance list $site $nick } | else { echo 12 @Query141echos add-with-site-insted adds user site to the acceptance list $site $nick }
if (%q141statuswindowecho == on) { echo 3 -s NoAddUserAtAll doesnt allow users nick name to be able to send you messages $nick } | else { echo 3 @Query141echos NoAddUserAtAll doesnt allow users nick name to be able to send you messages $nick }
if (%q141statuswindowecho == on) { echo 2 -s SilenceS doesnt allow users site to be added insted of nick $site $nick } | else { echo 2 @Query141echos SilenceS doesnt allow users site to be added insted of nick $site $nick | echo 10 @Query141echos $nick was on $network }
if (%q141statuswindowecho == on) { echo 10 -s FiltersAdd %actuser } | else { echo 10 @Query141echos FiltersAdd %actuser | echo 10 @Query141echos $nick was on $network }
.timerclosemsgof $+ $nick 1 1 closemsg $nick
inc %mn [ $+ [ $site ] ]
if (%mn [ $+ [ $site ] ] >= 3) {
msg $nick too many invaild messages, try again in 20mins
unset %msg [ $+ [ $site ] ]
echo 4 -s silencing $site cause of $nick | silence + $+ $site | timerunsilence $+ $site 1 1200 raw silence - $+ $site | ignore -pu1200 $site | unset %msg [ $+ [ $site ] ]
unset %mn [ $+ [ $site ] ]
halt
}
}
}
alias Q141VER { msg $active my Query141 version Q141Pub2.2.2 | halt }
alias Query141V { echo your version is Q141Pub2.2.2 }
alias quiteaddnick { hadd query141hash $$1 on | hsave query141hash query141hash.hsh }
alias q141addserv { set %q141servs $addtok(%q141servs,$1,124) }
alias q141delserv { set %q141servs $remtok(%q141servs,$1,1,124) }
alias q141showserv { echo -a %q141servs }
on *:action:*:?:{ if (%query141 == off) { halt }
if (server isin $site) { checker | halt }
set -u1 %actsent on
set %actuser $1- | set %quser $nick | set %qsite $site | set %actuser1 $replace($1-,$chr(32),$null) | checker | halt }
on *:input:#:{ if ((/msg isin $1) && (, !isin $2) && ($chr(35) !isin $2)) { if ($hget(query141hash,$2) != on) { echo -a Query141 has added $2 to saved list | hadd query141hash $2 on | hsave query141hash query141hash.hsh } }
if ((/notice isin $1) && (, !isin $2) && ($chr(35) !isin $2)) { if ($hget(query141hash,$2) != on) { echo -a Query141 has added $2 to saved list | hadd query141hash $2 on | hsave query141hash query141hash.hsh } }
if ((/describe isin $1) && (, !isin $2) && ($chr(35) !isin $2)) { if ($hget(query141hash,$2) != on) { echo -a Query141 has added $2 to saved list | hadd query141hash $2 on | hsave query141hash query141hash.hsh } }
}
on *:input:Status Window:{ if ((/msg isin $1) && (, !isin $2) && ($chr(35) !isin $2)) { if ($hget(query141hash,$2) != on) { echo -a Query141 has added $2 to saved list | hadd query141hash $2 on | hsave query141hash query141hash.hsh } }
if ((/notice isin $1) && (, !isin $2) && ($chr(35) !isin $2)) { if ($hget(query141hash,$2) != on) { echo -a Query141 has added $2 to saved list | hadd query141hash $2 on | hsave query141hash query141hash.hsh } }
if ((/describe isin $1) && (, !isin $2) && ($chr(35) !isin $2)) { if ($hget(query141hash,$2) != on) { echo -a Query141 has added $2 to saved list | hadd query141hash $2 on | hsave query141hash query141hash.hsh } }
}
on *:input:?:{ if ($hget(query141hash,$active) == off) { echo -a Query141: message not sent, you can't message $active $+ , you are ignoring $active , unignore and try again. | halt }
if ($hget(query141hash,$active) != on) { echo -a Query141 has added $active to saved list | hadd query141hash $active on | hsave query141hash query141hash.hsh } }
on *:load: hmake query141hash | window @freshlyloadedscript | echo @freshlyloadedscript Hey welcome to Name141's secure query script. Some "default" settings have been set for you. You may change them with the nicklist options menues now. have fun, come chat with me if you want , tell me what you think.... etc... You may now close this window with the X. | set %querynotifies on | set %querynickchanges on | set %query141 on | set %q141statuswindowecho on | set %query141 on | set %notices141 on | set %queryopenchecks on | set %q141statuswindowecho on | set %querynickchanges on | set %querynickigchangecheck on | set %q141services on | set %query141banbjs1 off | q141addserv serv | if ($input(would you like to go see the owner and talk to him and chat with some cool people too ?) == $true) { server -m name141chat.no-ip.org -j #query141,#realitycheck }
on *:start: unset %mn* | unset %msg* | hmake query141hash | hload query141hash query141hash.hsh | if (%q141echotowindow == on) { window @Query141echos }
raw 511:*:{ set -u10 %silenceoverload on | .timermoocjkld 1 1 set -u10 %silenceplz on | echo -s noticing too many silences , removing some and setting *@* for now. | if (%silenceplz == on) { halt } | silence }
raw 271:*:{ if (%silenceoverload != on) { echo -s SILENCE + $+ $3 | halt } | silence - $+ $3 | .timerunsilenceoverload 1 5 silence + $+ *@* | .timerunsilenceeveryone 1 65 silence - $+ *@* }
on *:join:#:{ if (($chan == #query141) && ($nick == $me)) { $room141 }
if (%query141banbj == off) { halt }
if (($me isop #) && ($hget(query141hash,$nick) == off)) { ban -k # $nick 2 Q141: user is on ignore list and ban is on }
if (($me ishop #) && ($hget(query141hash,$nick) == off)) { ban -k # $nick 2 Q141: user is on ignore list and ban is on }
}
on *:text:*:#:{ if (%query141banbjs1 == off) { halt }
set %q141spamchannelfilter1 $replace($1-,$chr(32),$null)
if (($me isop #) && ($hget(query141hash,%q141spamchannelfilter1) == chanfilter)) { ban -k # $nick 2 Q141: user has matched a spam filter and ban is on | silence + $+ $site }
if (($me ishop #) && ($hget(query141hash,%q141spamchannelfilter1) === chanfilter)) { ban -k # $nick 2 Q141: user has matched a spam filter and ban is on | silence + $+ $site }
if ((o isincs $usermode) && (%operoptiongzline == on)) { gzline $nick 4h :user matched a spamfilter , banned for 4h }
if ((o isincs $usermode) && (%operoptionkill == on)) { kill $nick user has matched a spam filter }
}
alias query141 {
if (!$hget(query141hash)) { echo -a Hash Unavaible | return }
else {
if ($1 == nicks) || (!$1) { if (!$window(@query141)) { window -l -t20 @query141 | aline 04 @query141 Nick $+ $chr(9) $+ Accept/Decline } | var %x = 1 | while ($hget(query141hash,%x).item) { var %data = $hget(query141hash,$v1), %v1 = $v1 | if (filter != data) { aline @query141 %v1 $+ $chr(9) $+ $iif(%data == on,Accept,Decline) } | inc %x } }
if ($1 == spamfilters) { if (!$window(@Spam141)) { window -l @Spam141 | aline 04 @spam141 Spam-Filter } | var %x = 1 | while ($hget(query141hash,%x).item) { var %v1 = $v1 | if ($hget(query141hash,$v1) == filter) { aline @spam141 %v1 } | inc %x } }
}
}
menu @spam141 {
AddFilter:{ var %a = $$?="What site would you like to add?" | hadd -m query141hash $remove($!,$chr(32)) filter | aline @spam141 $remove($!,$chr(32)) | .timer 1 1 var %a = $input(You have just added $remove($!,$chr(32)) to your filter list,o) | hsave query141hash query141hash.hsh }
$iif(!$sline(@spam141,0),$style(2)) Remove Filter:{ hdel query141hash $$sline(@spam141,1) | .timer 1 1 var %a = $input(You have just removed $sline(@spam141,1) from your filter list,o) | dline @spam141 $sline(@spam141,1).ln | hsave query141hash query141hash.hsh }
}
menu @query141 {
Add Nick To Accept:{ var %a = $?="What nick would you like to add?" | hadd -m query141hash $$! on | aline @query141 $! $+ $chr(9) $+ Accept | .timer 1 1 var %a = $input(You have just added $! to your Accept List,o) | hsave query141hash query141hash.hsh }
Add a nick to Block:{ var %a = $?="What nick would you like to block?" | hadd -m query141 $$1 off | aline @query141 $! $+ $chr(9) $+ Decline | .timer 1 1 var %a = $input(You have just added $! to your Block List,o) | hsave query141hash query141hash.hsh }
$iif(!$sline(@query141,0),$style(2)) Remove nick:{ var %nick = $gettok($sline(@query141,1),1,9) | hdel query141hash %nick | dline @query141 $sline(@query141,1).ln | .timer 1 1 var %a = $input(You have just removed %nick from your Accept/Decline List,o) | hsave query141hash query141hash.hsh }
}