rendered paste body; #################################################################
; ## Address/Nick Tracking ##
; ## Written by Urza (Urza23@hotmail.com) ##
; ## Written and tested in mIRC 6.16/6.17 ##
; #################################################################
menu menubar {
Address Tracking
.$iif($group(#Addtrack) == on,$style(1)) Show used nicks on join: {
var %status = $iif($group(#Addtrack) == on,Disable,Enable)
$+(.,%status) #Addtrack
echo 7 -at * Users previous nicks will $iif(%status == Disable,no longer,now) be shown when they join
}
.-
.$iif($1,Check nicks for $1):CheckNicks $1
.Check nicks for an address: {
CheckNicks $+(*!,$$?="Enter the hostmask you want to check in the format NICK!IDENT@HOST*")
}
}
on *:start: {
hmake Addtrack 100
if ($isfile(Addtrack.hsh)) hload Addtrack Addtrack.hsh
}
on *:exit: if ($hget(Addtrack)) hsave -o Addtrack Addtrack.hsh
on *:join:#: {
if ($wildsite iswm $address($me,5)) return
var %mask = $mask($fulladdress,3)
if ($hget(Addtrack,%mask)) {
var %usednicks = $ifmatch
if (%usednicks != $nick) && ($group(#Addtrack) == on) echo 10 -t $chan [Nick Tracking] $nick has also used the nicks: $remtok(%usednicks,$nick,1,44)
if (!$istok(%usednicks,$nick,44)) hadd -m Addtrack %mask $addtok(%usednicks,$nick,44)
if ($numtok(%usednicks,44) > 10) hadd -m Addtrack %mask $deltok(%usednicks,1,44)
}
else {
hadd -m Addtrack %mask $nick
}
}
on *:nick: {
if ($wildsite iswm $address($me,5)) return
var %mask = $mask($fulladdress,3)
if ($hget(Addtrack,%mask)) {
var %usednicks = $ifmatch
if (!$istok(%usednicks,$newnick,44)) hadd -m Addtrack %mask $addtok(%usednicks,$newnick,44)
if ($numtok(%usednicks,44) > 10) hadd -m Addtrack %mask $deltok(%usednicks,1,44)
}
else {
hadd -m Addtrack %mask $newnick
}
}
alias CheckNicks {
if (*!*@* iswm $1) {
var %mask = $mask($1,3)
if (!$hget(Addtrack,%mask)) echo 4 -ta No entry found for $1
else echo 10 -ta Address $1 has used the nicks: $hget(Addtrack,$1)
}
elseif (!$hget(Addtrack,$address($1,3))) echo 4 -ta No Entry found for $1
elseif ($hget(Addtrack,$address($1,3)) != $1) {
var %usednicks = $ifmatch
echo 10 -ta $1 has also used the nicks $remtok(%usednicks,$1,1,43)
}
else echo 10 -ta $1 has not been seen on any other nicks
}
#Addtrack on
#addtrack end
on *:join:#:{
if ($nick == $me) { .timer -m 1 1 make.co }
else {
if ($nick isreg $chan) { cline 10 $chan $nick }
if ($nick isvo $chan) { cline 12 $chan $nick }
if ($nick ishelp $chan) { cline 7 $chan $nick }
if ($nick isop $chan) { cline 4 $chan $nick }
}
}
on *:OP:#:{
cline 4 $chan $opnick
}
on *:serverOP:#:{
cline 4 $chan $opnick
}
on *:DEOP:#:{
if ($opnick ishelp $chan) { cline 7 $chan $opnick | halt }
if ($opnick isvo $chan) { cline 12 $chan $opnick | halt }
cline 10 $chan $opnick
}
on *:HELP:#:{
if ($hnick isop $chan) { cline 4 $chan $hnick | halt }
cline 7 $chan $hnick
}
on *:DEHELP:#:{
if ($hnick isop $chan) { cline 4 $chan $hnick | halt }
if ($hnick isvo $chan) { cline 12 $chan $hnick | halt }
cline 10 $chan $hnick
}
on *:VOICE:#:{
if ($vnick isop $chan) { cline 4 $chan $vnick | halt }
if ($vnick ishelp $chan) { cline 7 $chan $vnick | halt }
cline 12 $chan $vnick
}
on *:DEVOICE:#:{
if ($vnick isop $chan) { cline 4 $chan $vnick | halt }
if ($vnick ishelp $chan) { cline 7 $chan $vnick | halt }
cline 10 $chan $vnick
}
alias make.co {
set -u0 %i 1
while (%i <= $chan(0)) {
set -u0 %j 1
while (%j <= $nick($chan(%i),0)) {
if ($nick($chan(%i),%j) isreg $chan(%i)) { cline 10 $chan(%i) $nick($chan(%i),%j)) }
if ($nick($chan(%i),%j) isvo $chan(%i)) { cline 12 $chan(%i) $nick($chan(%i),%j)) }
if ($nick($chan(%i),%j) ishelp $chan(%i)) { cline 7 $chan(%i) $nick($chan(%i),%j)) }
if ($nick($chan(%i),%j) isop $chan(%i)) { cline 4 $chan(%i) $nick($chan(%i),%j)) }
inc %j
}
inc %i
}
}
alias timestamp { !timestamp $1- | saveini }
on ^*:TEXT:*:#:{
var %i = 0
var %line = $1-
if ($nick isop $chan) {
var %nick = <4@ $+ $nick $+ >
}
elseif ($nick ishop $chan) {
var %nick = <7% $+ $nick $+ >
}
elseif ($nick isvoice $chan) {
var %nick = <2+ $+ $nick $+ >
}
else {
var %nick = <10 $+ $nick $+ >
}
if ($gettok($readini(mirc.ini,options,n4),12,44) == 0) {
.echo -m $chan %nick %line
}
elseif ($gettok($readini(mirc.ini,options,n4),12,44) == 1) {
.echo -m $chan $timestamp %nick %line
}
haltdef
}
on *:INPUT:#:{
if (/ == $left($1,1)) && (/say !== $1) { return }
if ($me isop $chan) {
var %nick = <4@ $+ $me $+ >
}
elseif ($me ishop $chan) {
var %nick = <7% $+ $me $+ >
}
elseif ($me isvoice $chan) {
var %nick = <2+ $+ $me $+ >
}
else {
var %nick = <10 $+ $me $+ >
}
if ($gettok($readini(mirc.ini,options,n4),12,44) == 0) {
echo $chan %nick $iif($1 == /say,$2-,$1-)
}
elseif ($gettok($readini(mirc.ini,options,n4),12,44) == 1) {
echo $chan $timestamp %nick $iif($1 == /say,$2-,$1-)
}
.msg $chan $iif($1 == /say,$2-,$1-)
halt
}
on ^*:JOIN:#:{
haltdef
.echo $chan 3 $+ $timestamp * $nick ( $+ $right($address($nick,0),-2) $+ ) has joined $chan
}
on ^*:PART:#:{
haltdef
.echo $chan 3 $+ $timestamp * $nick ( $+ $right($address($nick,0),-2) $+ ) has left $chan
}
on ^*:RAWMODE:#:{
haltdef
.echo $chan 3 $+ $timestamp * $nick sets mode: $1-
}
on ^*:NICK:{
haltdef
var %nicka $chan(0)
var %nickb 1
while (%nickb <= %nicka) {
if ($newnick ison $chan(%nickb)) .echo $chan(%nickb) 3 $+ $timestamp * $nick is now known as $newnick
inc %nickb
}
}
on ^*:QUIT:{
haltdef
var %quita $chan(0)
var %quitb 1
while (%quitb <= %quita) {
if ($nick ison $chan(%quitb)) .echo $chan(%quitb) 2 $+ $timestamp * $nick ( $+ $right($address($nick,0),-2) $+ ) has quit IRC ( $+ $1- $+ )
inc %quitb
}
}
on ^*:KICK:#:{
haltdef
.echo $chan 3 $+ $timestamp * $knick was kicked by $nick ( $+ $1- $+ )
}
raw 332:*:{
haltdef
.echo $2 3 $+ $timestamp * Topic is ' $+ $3- $+ 3'
}
raw 333:*:{
haltdef
.echo $2 3 $+ $timestamp * Set by $3 on $asctime($4,ddd mmm dd HH:nn:ss)
}
alias joinall {
enable #joinall
list
}
#joinall off
raw 322:*:{
if ($2 !ischan) join $2
}
raw 323:*:{
disable #joinall
}
#joinall end
on ^*:OPEN:?:*: {
if ($nick == -psyBNC) {
query -psyBNC
echo -t -psyBNC $1+
}
if ( %pmb ) {
if ( !$window(@Watch) ) {
window -axnk0 @Watch -ds Verdana 16
echo @Watch $str( * ,10) * PM Blocker and Highlights catcher * $str( * ,10)
renwin @Watch @Watch $str(-,10) * PM Blocker and Highlights catcher * $str(-,10)
aline @Watch -
}
.msg $nick Please; if you want to PM me tell me. This PM Has been ignored.
echo @Watch PRIVATE MESSAGE $nick on $network pm'd you at $fulldate
beep 2 1
halt
}
}
on *:TEXT:*rayo*:#: {
if ( !$window(@Watch) ) {
window -axnk0 @Watch -ds Verdana 16
echo @Watch $str( * ,10) * PM Blocker and Highlights catcher * $str( * ,10)
aline @Watch
renwin @Watch @Watch $str(-,10) * PM Blocker and Highlights catcher * $str(-,10)
}
echo @Watch HIGHLIGHTED $nick said: $1- in $chan
beep 2 1
}
on ^*:NOTICE:*:?: {
who services@swiftirc.net
if ($address($nick, 5) != services@swiftirc.net) {
if ( !$window(@Watch) ) {
window -axnk0 @Watch -ds Verdana 16
echo @Watch $str( * ,10) * PM Blocker and Highlights catcher * $str( * ,10)
aline @Watch
renwin @Watch @Watch $str(-,10) * PM Blocker and Highlights catcher * $str(-,10)
}
echo @Watch NOTICE $nick noticed you saying: $1-
beep 2 1
}
}
menu @Watch {
-
Clear: /clear | /aline @Watch echo @Watch $str( * ,10) * PM Blocker and Highlights catcher * $str( * ,10) | /aline @Watch -
Close: /window -c @Watch
-
$iif(!%pmb,Enable,Disable) PM Blocker: $iif(!%pmb,inc,unset) %pmb
-
}
menu query {
-
$iif(!%pmb,Enable,Disable) PM Blocker: $iif(!%pmb,inc,unset) %pmb
-
}
}
alias massspank { msg $chan $c(4) $+ $chr(2) $+ WARNING: $+ $c $+ $chr(2) A mass-spank will occur in $chr(2) $+ $iif($1,$1,10) $+ $chr(2) seconds... | timerspank $+ $chan 1 $iif($1,$1,10) /mspank $chan }
alias mspank {
var %x.spanked = 1
while (%x.spanked <= $nick($1,0)) {
if ($nick($1,%x.spanked) != $me) {
describe $chan spanks $+ $c(4) $nick($1,%x.spanked) $c $+ hard on the ass!
}
inc %x.spanked
}
msg $1 $chr(91) $+ $c(4) $+ $chr(2) $+ MASS-SPANK $+ $c $+ $chr(2) $+ $chr(93) $chr(2) $+ $calc(%x.spanked - 1) $+ $chr(2) horny users have been spanked by my mighty hands
}
alias c { return $+($chr(3),$1) }
Usages:
Away: /gone Reason
Back: /back
alias gone {
set %awayr $1-
set %awayt $ctime
//scon 1 | window -a $chan(1)
amsg 14[2 A way 14]1 $1-
away %awayr
//scon 2 | window -a $chan(1)
amsg 14[2 A way 14]1 $1-
away %awayr
//scon 1 | window -a $chan(1)
}
alias back {
//scon 1 | window -a $chan(1)
amsg 14[2 B ack 14] 1-14 F rom:2 %awayr 1- 14 T ime G one:2 $duration($calc($ctime - %awayt)) 1-
away
//scon 2 | window -a $chan(1)
amsg 14[2 B ack 14] 1-14 F rom:2 %awayr 1- 14 T ime G one:2 $duration($calc($ctime - %awayt)) 1-
away
unset %away*
//scon 1 | window -a $chan(1)
}
###########################################################################################################################################
########################################################### The Pharoah's Ultimate Query Manager ##########################################
#################################################### Made by Jonathan of SeersIRC and Eragonj of SwiftIRC #################################
###########################################################################################################################################
; Version: 1.4
; Line Estimate: 680
; Pictures:
;Main Tab, the "Color?" button, and The Messages dropdown: http://img48.imageshack.us/img48/6173/querymanager1vn3.jpg
;User Tab and Query waiter popup: http://img47.imageshack.us/img47/9206/querymanager2hr6.jpg
;Logging tab and the two dropdowns in mIRC: http://img465.imageshack.us/img465/6140/querymanager3yy6.jpg
; Files: (automatically created when first using the script - all are INI files)
;qm.ini - qmlog.ini - qmalog.ini
; Edit the script (discluding title alias) to your own liking and risk
; Check out SeersIRC at irc.seersirc.net ~ #mIRC
; NOTE: THE FIRST TIME USING, AN ERROR MESSAGE WILL ECHO; PLEASE IGNORE THIS AS IT WILL NOT HAPPEN AGAIN!
dialog QM {
option dbu
size -1 -1 222 232
title "~! Query Manager -"
button "Close", 1, 167 203 50 14, ok
edit "", 3, 5 203 157 24, multi
text "Query Manager v1.4", 51, 167 220 70 10
tab "Settings", 2, 5 5 212 194
tab "Users", 15
tab "Logging", 30
box "Colors", 16, 15 25 98 57, tab 2
text "First Color (1-15):", 4, 20 38 43 9, tab 2
edit "", 5, 64 37 12 10, tab 2
button "Change", 6, 77 36 25 12, tab 2
text "Second Color (1-15):", 7, 20 56 50 9, tab 2
edit "", 8, 71 55 12 10, tab 2
button "Change", 9, 84 54 25 12, tab 2
check "Color Strip", 17, 25 68 35 10, tab 2
text "Color is Stripped!", 18, 20 50 50 10, tab 2
box "The Messages", 10, 15 92 85 60, tab 2
combo 11, 25 105 60 12, tab 2 drop
edit "", 12, 20 116 70 12, tab 2, return autohs
button "Update", 13, 26 128 29 12, tab 2
button "Color?", 14, 66 128 23 12, tab 2
box "Query Settings", 40, 125 25 86 70, tab 2
text "Seconds before", 41, 130 40 40 9, tab 2
text "Time-Out:", 42, 144 47 35 9, tab 2
edit "", 43, 170 42 12 11, tab 2
button "Change", 44, 183 42 25 11, tab 2
check "Auto Accept All", 45, 130 60 45 10, tab 2
check "Auto Decline All", 46, 130 73 45 10, tab 2
list 19, 12 80 80 120, tab 15
button "Add", 23, 12 69 39 11, tab 15
button "Delete", 24, 52 69 41 11, tab 15
list 20, 130 80 80 120, tab 15
button "Add", 25, 130 69 39 11, tab 15
button "Delete", 26, 170 69 41 11, tab 15
button "Block >", 21, 95 90 30 14, tab 15
button "< Allow", 22, 95 130 30 14, tab 15
box "Adding", 27, 18 25 54 37, tab 15
check "Add by Nick", 28, 28 35 40 10, tab 15
check "Add by Host", 29, 28 45 40 10, tab 15
box "Log When", 31, 18 25 50 35, tab 30
check "Normal", 32, 26 34 40 10, tab 30
check "Away", 33, 26 45 40 10, tab 30
button "Disable Logging", 34, 80 30 50 25, tab 30
button "Enable Logging", 35, 80 30 50 25, tab 30
box "Away Log", 39, 13 65 95 132, tab 30
edit "", 36, 21 85 80 105, tab 30, multi, vsbar
button "Refresh", 37, 21 74 39 11, tab 30
button "Delete All", 38, 60 74 41 11, tab 30
box "Normal Log", 47, 115 65 95 132, tab 30
edit "", 48, 123 85 80 105, tab 30, multi, vsbar
button "Refresh", 49, 123 74 39 11, tab 30
button "Delete All", 50, 162 74 41 11, tab 30
}
on *:dialog:QM:mouse:*:{
if ($did !isnum 1-51) var %x = Hover your mouse over an item to retrieve the description!
elseif ($did == 1) var %x = Exit out of this dialog.
elseif ($did == 2) var %x = Control the settings of the Query Manager in this tab.
elseif ($did == 3) var %x = Hover your mouse over an item to retrieve the description!
elseif ($did == 10) var %x = Edit the message responses during a query. Use color with it, pick a message to edit, edit the message, and click "Update" to update it.
elseif ($did == 16) var %x = Edit the colors used in the echo's. Click "Change" and enter a number 1-15 to change one of them. You do not edit the box directly. Or strip the color.
elseif ($did == 19) var %x = The users/hosts currently on Auto Accept.
elseif ($did == 20) var %x = The users/hosts currently on Auto Decline.
elseif ($did == 21) var %x = Move a user/host on accept to block.
elseif ($did == 22) var %x = Move a user/host on block to accept.
elseif ($did == 23) var %x = Add a user/host to your Auto Accept List.
elseif ($did == 24) var %x = Delete a user/host from your Auto Accept List.
elseif ($did == 25) var %x = Add a user/host to your Auto Decline List.
elseif ($did == 26) var %x = Delete a user/host from your Auto Decline List.
elseif ($did == 27) var %x = Control how you add users to your lists with the popups. Adding by nick or adding by host; you have to have at least one checked always.
elseif ($did == 28) var %x = Add nicks to the list with the popups.
elseif ($did == 29) var %x = Add hosts to the list with the popups.
elseif ($did == 31) var %x = Control when you log; while normally at the computer or away with the /away mIRC function.
elseif ($did == 34) var %x = Disable the whole logging system. You can enable it again if you want to.
elseif ($did == 35) var %x = Enable the whole logging system. You can disable it again if you want to.
elseif ($did == 39) var %x = This is your Away Log Box. Refresh it or delete all of the messages in it.
elseif ($did == 40) var %x = Control extra query settings. Change the ammount of the before a Time-Out Block, Accept All Queries, or Decline All Queries.
elseif ($did == 47) var %x = This is your Normal Log Box. Refresh it or delete all of the messages in it.
elseif ($did == 51) var %x = The current version of Eragonj/Jonathan's Query Manager.
if (%x) did -ra QM 3 %x
unset %x
}
menu * {
Open Query Manager {
if ($dialog(QM)) dialog -x QM
dialog -m QM QM } }
menu Query,Nicklist {
Query Manager
.Auto Accept $1 $+ :/qmaa $1
.Auto Decline $1 $+ :/qmad $1
}
alias qmaa {
var %x = $readini(qm.ini,Other,ANick) | var %y = $readini(qm.ini,Other,AHost)
var %z = $readini(qm.ini,AD,$1) | var %a = $readini(qm.ini,AD,$address($1,2))
if (%x == ON && %y == ON) {
qmi AA $1 ON | qmi AA $address($1,2) ON
if (%z == ON) { qmri AD $1 }
if (%a == ON) { qmri AD $address($1,2) } }
if (%x == ON && %y == $null) {
qmi AA $1 ON
if (%z == ON) { qmri AD $1 }
if (%a == ON) { qmri AD $address($1,2) } }
if (%y == ON && %x == $null) {
qmi AA $address($1,2) ON
if (%z == ON) { qmri AD $1 }
if (%a == ON) { qmri AD $address($1,2) } }
qme $qma(The) $qmb(lists) $qma(have been adjusted) $qmb(accordingly) $+ $+ $readini(qm.ini,Color,1) $+ .
}
alias qmad {
var %x = $readini(qm.ini,Other,ANick) | var %y = $readini(qm.ini,Other,AHost)
var %z = $readini(qm.ini,AA,$1) | var %a = $readini(qm.ini,AA,$address($1,2))
if (%x == ON && %y == ON) {
qmi AD $1 ON | qmi AD $address($1,2) ON
if (%z == ON) { qmri AA $1 }
if (%a == ON) { qmri AA $address($1,2) } }
if (%x == ON && %y == $null) {
qmi AD $1 ON
if (%z == ON) { qmri AA $1 }
if (%a == ON) { qmri AA $address($1,2) } }
if (%y == ON && %x == $null) {
qmi AD $address($1,2) ON
if (%z == ON) { qmri AA $1 }
if (%a == ON) { qmri AA $address($1,2) } }
qme $qma(The) $qmb(lists) $qma(have been adjusted) $qmb(accordingly) $+ $+ $readini(qm.ini,Color,1) $+ .
}
alias qma {
if ($readini(qm.ini,Other,CS) == ON) {
return $+($1-) | halt }
return $+( $+ $readini(qm.ini,Color,1) $+ ,$1- $+ )
}
alias qmb {
if ($readini(qm.ini,Other,CS) == ON) {
return $+($1-) | halt }
return $+( $+ $readini(qm.ini,Color,2) $+ ,$1- $+ )
}
alias qmd { did - $+ $1 QM $2- }
alias qme { echo -a $1- }
alias qmri { remini qm.ini $1- }
alias qmi { writeini qm.ini $1- }
on *:dialog:QM:close:0:{
unset %qm.*
if ($dialog(qmcolorhelp)) dialog -x qmcolorhelp
}
on *:dialog:QM:init:0:{
if ($ini(qm.ini,Color,1) == $null) qmdefaults
if ($readini(qm.ini,Other,CS) == ON) {
qmd h 4,5,6,7,8,9 | qmd v 18 | qmd ra 5 1 | qmd ra 8 1
qmd c 17 | qmd m 3,5,8,12
qmd ra 11 Wait | qmd a 11 Accepted | qmd a 11 Declined
qmd a 11 Auto Accept | qmd a 11 Auto Decline }
if ($readini(qm.ini,Other,CS) == $null) { qmd h 18 }
if ($readini(qm.ini,Other,ANick) == ON) {
qmd c 28 }
if ($readini(qm.ini,Other,AHost) == ON) {
qmd c 29 }
if ($readini(qm.ini,Other,LOGA) == ON && $readini(qm.ini,Other,LOG) == OFF && $readini(qm.ini,Other,ALOG) == OFF) {
qmd h 34 | qmd b 31,32,33,36,37,38 }
if ($readini(qm.ini,Other,LOGA) == ON && $readini(qm.ini,Other,LOG) == ON || $readini(qm.ini,Other,ALOG) == ON) { qmd h 35 }
if ($readini(qm.ini,Other,LOGA) == OFF) { qmd h 34
qmd b 31,32,33,36,37,38 }
if ($readini(qm.ini,Other,AAA) == ON) { qmd c 45 }
qmd m 3,5,8,12,36,43,48 | qmd b 21,22,24,26
qmd ra 5 $readini(qm.ini,Color,1) | qmd ra 8 $readini(qm.ini,Color,2)
qmd ra 43 $readini(qm.ini,Other,SECS)
qmd ra 11 Wait | qmd a 11 Time-Out | qmd a 11 Accepted | qmd a 11 Declined
qmd a 11 Away | qmd a 11 Auto Accept | qmd a 11 Auto Decline
qmtfix
did -ra QM 3 Hover your mouse over an item to retrieve the description!
if ($readini(qm.ini,Other,LOG) == ON) { qmd c 32 | qmlistdoNL }
}
alias qmdefaults {
qmi Color 1 1
qmi Color 2 1
qmi Other ANick ON
qmi Other LOG ON
qmi Other ALOG ON | writeini qmlog.ini MSG Normal Log
writeini qmalog.ini MSG Away Log | qmi Other LOGA ON
qmi Other SECS 15
qmi MSG Wait Please wait...
qmi MSG Your message has been blocked. ( Timed-Out - $readini(qm.ini,Other,SECS) Seconds )
qmi MSG Accepted Your message has been accepted and I have recieved your first message!
qmi MSG Declined Your message has been blocked.
qmi MSG Away I most likely will not answer because I am away.
qmi MSG Auto_Accept Your message has been automatically accepted!
qmi MSG Auto_Decline Your message has been automatically blocked.
qme The default settings have been loaded for the Query Manager.
}
on *:open:?:{
if ($readini(qm.ini,Other,LOG) == ON && $away == $false) {
writeini qmlog.ini MSG $calc($ini(qmlog.ini,MSG,0) + 1) $time(m/d hh:nn:ss TT) $+ * $+ $nick $+ * $+ $1- }
if ($readini(qm.ini,Other,ALOG) == ON && $away == $true) {
writeini qmalog.ini MSG $calc($ini(qmalog.ini,MSG,0) + 1) $time(m/d hh:nn:ss TT) $+ * $+ $nick $+ * $+ $1- }
if ($readini(qm.ini,Other,AAA) == ON) {
.msg $nick $qmgm(Auto_Accept) (Auto Accepting All) | window -a $nick
if ($away == $true) .msg $nick $qmgm(Away) | halt }
if ($readini(qm.ini,Other,ADA) == ON) {
.msg $nick $qmgm(Auto_Decline) (Auto Declining All) | close -m $nick | halt }
if ($away == $true) { .msg $nick $qmgm(Away) }
if ($readini(qm.ini,AA,$nick) == ON || $readini(qm.ini,AA,$address($nick,2)) == ON) {
.msg $nick $qmgm(Auto_Accept) | window -a $nick
qmwaitechom Auto_Accept $nick $1- | halt }
if ($readini(qm.ini,AD,$nick) == ON || $readini(qm.ini,AD,$address($nick,2)) == ON) {
.msg $nick $qmgm(Auto_Decline) | close -m $nick
qmwaitechom Auto_Decline $nick $1- | halt }
window -h $nick
.msg $nick $qmgm(Wait)
set %qm.waiter.N $nick | set %qm.waiter.M $1-
dialog -m QMWait QMWait
}
alias qmwaitechom {
echo -s 1~ $qmb( $+ $replace($1,$chr(95),$chr(32)) $+ ) ( $time(hh:nn:ss TT) ) 1- $qma(Nick:) $&
$+ $+ $readini(qm.ini,Color,2) $2 1- $qma(Message:) $qmb( $+ $3- $+ ) 1-
}
dialog QMWait {
option dbu
size -1 -1 150 75
title "Seconds until block:"
text "Nick:", 1, 5 7 12 10
edit "", 2, 19 6 90 10, return autohs
text "Channels in Common:", 3, 5 22 56 10
edit "", 4, 58 20 85 10, return autohs
text "Message:", 9, 5 37 36 10
edit "", 10, 32 35 100 10, return autohs
text "Scroll over in the boxes if longer", 11, 9 48 90 10
button "Accept", 5, 3 57 30 14
button "Decline", 6, 35 57 30 14
button "Auto Accept", 7, 67 57 38 14
button "Auto Decline", 8, 107 57 38 14
}
on *:dialog:QMWait:sclick:5-8:{
if ($did == 5) {
.msg %qm.waiter.N $qmgm(Accepted)
window -wa %qm.waiter.N
if ($timer(qmwait)) .timerqmwait off
unset %qm.waiter.* | dialog -x QMWait }
elseif ($did == 6) {
.msg %qm.waiter.N $qmgm(Declined)
close -m %qm.waiter.N
if ($timer(qmwait)) .timerqmwait off
unset %qm.waiter.* | dialog -x QMWait }
elseif ($did == 7) { qmaa %qm.waiter.N
.msg %qm.waiter.N $qmgm(Auto_Accept)
window -wa %qm.waiter.N
if ($timer(qmwait)) .timerqmwait off
unset %qm.waiter.* | dialog -x QMWait }
elseif ($did == 8) { qmad %qm.waiter.N
.msg %qm.waiter.N $qmgm(Auto_Decline)
close -m %qm.waiter.N
if ($timer(qmwait)) .timerqmwait off
unset %qm.waiter.* | dialog -x QMWait }
}
on *:dialog:QMWait:init:0:{
did -ra QMWait 2 %qm.waiter.N
did -m QMWait 2,4,10 | did -ra QMWait 10 %qm.waiter.M
dialog -t QMWait Seconds until block: $readini(qm.ini,Other,SECS)
set %qm.waiter.S $readini(qm.ini,Other,SECS)
.timerqmwait 1 1 qmwaittire
qmwaitccs
}
alias qmwaitccs {
if ($comchan(%qm.waiter.N,0) == 0) { did -ra QMWait 4 None | halt }
set %qm.waiter.CT $comchan(%qm.waiter.N,0)
set %qm.waiter.CN 0
qmwaitccss
}
alias qmwaitccss {
inc %qm.waiter.CN 1
if (%qm.waiter.CT == $calc(%qm.waiter.CN - 1)) { halt }
did -a QMWait 4 $comchan(%qm.waiter.N,%qm.waiter.CN)
qmwaitccsss
}
alias qmwaitccsss { qmwaitccss }
alias qmwaittire {
if ($calc(%qm.waiter.S - 1) == -1) { .msg %qm.waiter.N $qmgm(Time-Out)
qmwaitechom Time-Out %qm.waiter.N %qm.waiter.M | close -m %qm.waiter.N
unset %qm.waiter.* | dialog -x QMWait | halt }
dec %qm.waiter.S 1
dialog -t QMWait Seconds until block: %qm.waiter.S
qmwaittiree
}
on *:dialog:QMWait:close:0:{
.msg %qm.waiter.N $qmgm(Declined)
qmwaitechom Exit_Blocked %qm.waiter.N %qm.waiter.M
close -m %qm.waiter.N
unset %qm.waiter.*
if ($timer(qmwait)) .timerqmwait off
}
alias qmwaittiree { .timerqmwait 1 1 qmwaittire }
alias qmtfix {
dialog -t QM ~! Query Manager - $&
By Eragonj-SwiftIRC & Jonathan-SeersIRC
}
on *:dialog:QM:sclick:*:{
if ($did == 6) {
var %qm.yy = $did(5)
var %qm.yyy = $did(8)
set %qm.change.c1 $?="Enter Number 1-15"
if ($len(%qm.change.c1) > 2 || $len(%qm.change.c1) < 1) { qme $qma(There can only be) $+ $+ %qm.yyy 1 $qma(or) $&
$+ $+ %qm.yyy 2 $qma(digits in the) $qmb(color slot) $+ $+ %qm.yy $+ . | unset %qm.change.c1 | halt }
if (%qm.change.c1 !isnum 1-15) { qme $qma(The) $qmb(numbers) $qma(can only be from) $+ $+ %qm.yyy 1 $qma(to) $&
$+ $+ %qm.yyy 15 $qma(in the) $qmb(color slot) $+ $+ %qm.yy $+ . | unset %qm.change.c1 | halt }
qmd ra 5 %qm.change.c1 | qmi Color 1 %qm.change.c1
qme $qmb(Color) $qma(has been) $qmb(changed) $+ $+ %qm.yy $+ .
unset %qm.y*
unset %qm.change.c1 }
elseif ($did == 9) {
var %qm.yy = $did(5)
var %qm.yyy = $did(8)
set %qm.change.c2 $?="Enter Number 1-15"
if ($len(%qm.change.c2) > 2 || $len(%qm.change.c2) < 1) { qme $qma(There can only be) $+ $+ %qm.yyy 1 $qma(or) $&
$+ $+ %qm.yyy 2 $qma(digits in the) $qmb(color slot) $+ $+ %qm.yy $+ . | unset %qm.change.c2 | halt }
if (%qm.change.c2 !isnum 1-15) { qme $qma(The) $qmb(numbers) $qma(can only be from) $+ $+ %qm.yyy 1 $qma(to) $&
$+ $+ %qm.yyy 15 $qma(in the) $qmb(color slot) $+ $+ %qm.yy $+ . | unset %qm.change.c2 | halt }
qmd ra 8 %qm.change.c2 | qmi Color 2 %qm.change.c2
qme $qmb(Color) $qma(has been) $qmb(changed) $+ $+ %qm.yy $+ .
unset %qm.y*
unset %qm.change.c2 }
elseif ($did == 11) {
if ($len($did(11).seltext) < 9) {
qmd n 12
set %qm.change.catagory $did(11).seltext
qmd ra 12 $readini(qm.ini,MSG,%qm.change.catagory) }
elseif (*-* iswm $did(11).seltext && *Time* iswm $did(11).seltext) {
qmd n 12
set %qm.change.catagory Time-Out
qmd ra 12 $readini(qm.ini,MSG,Time-Out) }
elseif (*D* iswm $did(11).seltext && $len($did(11).seltext) > 9) {
qmd n 12
set %qm.change.catagory Auto_Decline
qmd ra 12 $readini(qm.ini,MSG,%qm.change.catagory) }
elseif (*A* iswm $did(11).seltext && $len($did(11).seltext) > 9) {
qmd n 12
set %qm.change.catagory Auto_Accept
qmd ra 12 $readini(qm.ini,MSG,%qm.change.catagory) } }
elseif ($did == 13) {
if (%qm.change.catagory == $null) { qme $qmb(Pick) $qma(a) $qmb(message) $qma(to) $qmb(edit) $qma(first!) | halt }
var %qm.yy = $did(5)
var %qm.yyy = $did(8)
qmi MSG %qm.change.catagory $did(12)
qme $qma(The) $qmb(message) $qma(for) $+ $+ %qm.yyy $did(11).seltext $qma(has been) $qmb(replaced) $qma(with) $&
$qma(") $+ $+ $readini(qm.ini,MSG,%qm.change.catagory) $+ $qma(")
qmd r 12 | qmd ra 11 Wait | qmd a 11 Time-Out | qmd a 11 Accepted | qmd a 11 Declined
qmd a 11 Away | qmd a 11 Auto Accept | qmd a 11 Auto Decline
qmd m 12
unset %qm.change.catagory
unset %qm.y* }
elseif ($did == 14) { dialog -m qmcolorhelp qmcolorhelp }
elseif ($did == 15) {
qmlistdoB }
elseif ($did == 17) {
var %qm.yy = $did(5)
if ($did(17).state == 1) {
qmd h 4,5,6,7,8,9 | qmd v 18
qmd ra 5 1 | qmd ra 8 1 | qmi Other CS ON
qme $qmb(Color Strip) $qma(is now) $qmb(enabled) $+ $+ %qm.yy $+ . }
elseif ($did(17).state == 0) {
qmri Other CS | qmd v 4,5,6,7,8,9 | qmd h 18
qmd ra 5 $readini(qm.ini,Color,1) | qmd ra 8 $readini(qm.ini,Color,2)
qme $qmb(Color Strip) $qma(is now) $qmb(disabled) $+ $+ %qm.yy $+ . } }
elseif ($did == 19) {
if ($did(20).seltext != $null) {
if (*~* iswm $did(19).seltext) { qmd u 19 | qmd b 21,22,24,26 | halt }
qmd u 20 | qmd b 22,26 | qmd e 21,24 | halt }
if (*~* iswm $did(19).seltext) { qmd u 19 | qmd b 21,24 | halt }
qmd e 21,24 }
elseif ($did == 20) {
if ($did(19).seltext != $null) {
if (*~* iswm $did(20).seltext) { qmd u 20 | qmd b 21,22,24,26 | halt }
qmd u 19 | qmd b 21,24 | qmd e 22,26 | halt }
if (*~* iswm $did(20).seltext) { qmd u 20 | qmd b 22,26 | halt }
qmd e 22,26 }
elseif ($did == 21) {
var %qm.yy = $did(5)
qmi AD $did(19).seltext ON
qmri AA $did(19).seltext | qmd b 21,24
qme $qma(The) $qmb(selected) $qma(has been) $qmb(moved) $qma(to) $&
$qmb(Auto Decline List) 1- $qmb(lists) $qma(are) $qmb(refreshing) $+ $+ %qm.yy $+ .
qmlistdoB }
elseif ($did == 22) {
var %qm.yy = $did(5)
qmi AA $did(20).seltext ON
qmri AD $did(20).seltext | qmd b 22,26
qme $qma(The) $qmb(selected) $qma(has been) $qmb(moved) $qma(to) $&
$qmb(Auto Accept List) 1- $qmb(lists) $qma(are) $qmb(refreshing) $+ $+ %qm.yy $+ .
qmlistdoB }
elseif ($did == 28) {
var %qm.yy = $did(5)
var %qm.yyy = $did(8)
if ($did(28).state == 1) {
qmi Other ANick ON
qme $qmb(Adding) $qma(by) $qmb(Nick) $qma(is now) $qmb(enabled) $+ $+ %qm.yy $+ . }
elseif ($did(28).state == 0) {
if ($did(29).state == 0) { qme $qma(You) $qmb(must) $qma(have at least) $+ $+ %qm.yyy 1 $&
$qma(adding feature) $qmb(enabled) $qma(at once.) | qmd c 28 | halt }
qmri Other ANick
qme $qmb(Adding) $qma(by) $qmb(Nick) $qma(is now) $qmb(disabled) $+ $+ %qm.yy $+ . } }
elseif ($did == 29) {
var %qm.yy = $did(5)
var %qm.yyy = $did(8)
if ($did(29).state == 1) {
qmi Other AHost ON
qme $qmb(Adding) $qma(by) $qmb(Host) $qma(is now) $qmb(enabled) $+ $+ %qm.yy $+ . }
elseif ($did(29).state == 0) {
if ($did(28).state == 0) { qme $qma(You) $qmb(must) $qma(have at least) $+ $+ %qm.yyy 1 $&
$qma(adding feature) $qmb(enabled) $qma(at once.) | qmd c 29 | halt }
qmri Other AHost
qme $qmb(Adding) $qma(by) $qmb(Host) $qma(is now) $qmb(disabled) $+ $+ %qm.yy $+ . } }
elseif ($did == 23) {
var %qm.yy = $did(5)
var %qm.yyy = $did(8)
if ($did(28).state == 1 && $did(29).state == 0) {
set %qm.add.AA $?="Enter Nick"
if (%qm.add.AA == $null) { qme $qma(Enter a) $qmb(nick) $qma(first!) | halt }
qmi AA %qm.add.AA ON
qmlistdoA
qme $qma(The nick) $+ $+ %qm.yyy %qm.add.AA $qma(has been added to the) $qmb(Auto Accept List) $&
1- $qmb(list) $qma(is) $qmb(refreshing) $+ $+ %qm.yy $+ .
unset %qm.add.AA }
elseif ($did(28).state == 0 && $did(29).state == 1) {
set %qm.add.AA $?="Enter Host Without *!*"
if (*@* !iswm %qm.add.AA) { qme $qma(Error in) $qmb(host format) $+ $+ %qm.yy $+ ! $qmb(@ Host )
unset %qm.add.AA | halt }
qmi AA *!* $+ %qm.add.AA ON
qmlistdoA
qme $qma(The host) $+ $+ %qm.yyy *!* $+ %qm.add.AA $qma(has been added to the) $qmb(Auto Accept List) $&
1- $qmb(list) $qma(is) $qmb(refreshing) $+ $+ %qm.yy $+ .
unset %qm.add.AA }
elseif ($did(28).state == 1 && $did(29).state == 1) {
set %qm.add.AAN $?="Enter Nick"
set %qm.add.AAH *!* $+ $?="Enter Host Without *!*"
if (%qm.add.AAN == $null) { qme $qma(Enter a) $qmb(nick) $qma(first!) | halt }
if (*@* !iswm %qm.add.AAH) { qme $qma(Error in) $qmb(host format) $+ $+ %qm.yy $+ ! $qmb(@ Host )
unset %qm.add.AAN | unset %qm.add.AAH | halt }
qmi AA %qm.add.AAN ON
qmi AA %qm.add.AAH ON
qme $qma(The nick) $+ $+ %qm.yyy %qm.add.AAN $qma(and the host) $+ $+ %qm.yyy %qm.add.AAH $&
$qma(has been added to the) $qmb(Auto Accept List) 1- $qmb(list) $qma(is) $qmb(refreshing) $+ $+ %qm.yy $+ .
qme $qma(It will only add the host) $qmb(automatically) $qma(if you use it by) $&
$qmb(right clicking) $qma(on a) $qmb(nick) $qma(in a) $qmb(channel) $+ $+ %qm.yy $+ .
qmlistdoA | unset %qm.add.AAN | unset %qm.add.AAH } }
elseif ($did == 24) {
var %qm.yy = $did(5)
var %qm.yyy = $did(8)
if (*@* iswm $did(19).seltext) { qme $qma(The host) $+ $+ %qm.yyy $did(19).seltext $qma(has been deleted from the) $&
$qmb(Auto Accept List) 1- $qmb(list) $qma(is) $qmb(refreshing) $+ $+ %qm.yy $+ . | qmd b 21,24 }
if (*@* !iswm $did(19).seltext) { qme $qma(The nick) $+ $+ %qm.yyy $did(19).seltext $qma(has been deleted from the) $&
$qmb(Auto Accept List) 1- $qmb(list) $qma(is) $qmb(refreshing) $+ $+ %qm.yy $+ . | qmd b 21,24 }
qmri AA $did(19).seltext | qmlistdoA | unset %qm.y* }
elseif ($did == 25) {
var %qm.yy = $did(5)
var %qm.yyy = $did(8)
if ($did(28).state == 1 && $did(29).state == 0) {
set %qm.add.AD $?="Enter Nick"
qmi AD %qm.add.AD ON
qmlistdoD
qme $qma(The nick) $+ $+ %qm.yyy %qm.add.AD $qma(has been added to the) $qmb(Auto Decline List) $&
1- $qmb(list) $qma(is) $qmb(refreshing) $+ $+ %qm.yy $+ . | unset %qm.add.AD }
elseif ($did(28).state == 0 && $did(29).state == 1) {
set %qm.add.AD $?="Enter Host Without *!*"
if (*@* !iswm %qm.add.AD) { qme $qma(Error in) $qmb(host format) $+ $+ %qm.yy $+ ! $qmb(@ Host )
unset %qm.add.AD | halt }
qmi AD *!* $+ %qm.add.AD ON
qmlistdoD
qme $qma(The host) $+ $+ %qm.yyy *!* $+ %qm.add.AD $qma(has been added to the) $qmb(Auto Decline List) $&
1- $qmb(list) $qma(is) $qmb(refreshing) $+ $+ %qm.yy $+ .
unset %qm.add.AD }
elseif ($did(28).state == 1 && $did(29).state == 1) {
set %qm.add.ADN $?="Enter Nick"
set %qm.add.ADH *!* $+ $?="Enter Host Without *!*"
if (*@* !iswm %qm.add.ADH) { qme $qma(Error in) $qmb(host format) $+ $+ %qm.yy $+ ! $qmb(@ Host )
unset %qm.add.ADN | unset %qm.add.ADH | halt }
qmi AD %qm.add.ADN ON
qmi AD %qm.add.ADH ON
qme $qma(The nick) $+ $+ %qm.yyy %qm.add.ADN $qma(and the host) $+ $+ %qm.yyy %qm.add.ADH $&
$qma(has been added to the) $qmb(Auto Decline List) 1- $qmb(list) $qma(is) $qmb(refreshing) $+ $+ %qm.yy $+ .
qme $qma(It will only add the host) $qmb(automatically) $qma(if you use it by) $&
$qmb(right clicking) $qma(on a) $qmb(nick) $qma(in a) $qmb(channel) $+ $+ %qm.yy $+ .
qmlistdoD | unset %qm.add.ADN | unset %qm.add.ADH } }
elseif ($did == 26) {
var %qm.yy = $did(5)
var %qm.yyy = $did(8)
if (*@* iswm $did(20).seltext) { qme $qma(The host) $+ $+ %qm.yyy $did(19).seltext $qma(has been deleted from the) $&
$qmb(Auto Decline List) 1- $qmb(list) $qma(is) $qmb(refreshing) $+ $+ %qm.yy $+ . | qmd b 22,26 }
if (*@* !iswm $did(20).seltext) { qme $qma(The nick) $+ $+ %qm.yyy $did(19).seltext $qma(has been deleted from the) $&
$qmb(Auto Decline List) 1- $qmb(list) $qma(is) $qmb(refreshing) $+ $+ %qm.yy $+ . | qmd b 22,26 }
qmri AD $did(20).seltext | qmlistdoD | unset %qm.y* }
elseif ($did == 30) {
if ($readini(qm.ini,Other,LOG) == OFF) { qmd b 48,49,50 | qmd r 48 }
if ($readini(qm.ini,Other,ALOG) == OFF) { qmd b 36,37,38 | qmd r 36 }
if ($readini(qm.ini,Other,ALOG) == ON) { qmd c 33 | qmlistdoAL } }
elseif ($did == 32) {
if ($did(32).state == 1) {
qmi Other LOG ON
qmd e 48,49,50 | qmlistdoNL
qme $qma(The) $qmb(Normal Logging) $qma(setting is now) $qmb(enabled) $+ $+ $did(5) $+ . }
elseif ($did(32).state == 0) {
qmi Other LOG OFF
qmd b 48,49,50 | qmd r 48
qme $qma(The) $qmb(Normal Logging) $qma(setting is now) $qmb(disabled) $+ $+ $did(5) $+ .
if ($did(33).state == 0) { qmd h 34 | qmd b 31,32,33 | qmd v 35
qmi Other LOGA OFF } } }
elseif ($did == 33) {
if ($did(33).state == 1) {
qmi Other ALOG ON
qmd e 36,37,38 | qmlistdoAL
qme $qma(The) $qmb(Away Logging) $qma(setting is now) $qmb(enabled) $+ $+ $did(5) $+ . }
elseif ($did(33).state == 0) {
qmi Other ALOG OFF
qmd b 36,37,38 | qmd r 36
qme $qma(The) $qmb(Away Logging) $qma(setting is now) $qmb(disabled) $+ $+ $did(5) $+ .
if ($did(32).state == 0) { qmd h 34 | qmd b 31,32,33 | qmd v 35
qmi Other LOGA OFF } } }
elseif ($did == 34) {
qmi Other LOGA OFF
qme $qma(The) $qmb(whole Logging) $qma(setting is now) $qmb(disabled) $+ $+ $did(5) $+ .
qmd h 34 | qmd b 31,32,33 | qmd v 35 }
elseif ($did == 35) {
qmi other LOGA ON
qme $qma(The) $qmb(whole Logging) $qma(setting is now) $qmb(enabled) $+ $+ $did(5) $+ .
qmd h 35 | qmd v 34 | qmd e 31,32,33 }
elseif ($did == 37) {
qme $qma(The) $qmb(Away Log List) $qma(is) $qmb(refreshing) $+ $+ $did(5) $+ . | qmlistdoAL }
elseif ($did == 38) {
if ($ini(qmalog.ini,MSG,0) == 1) { qme $qma(There is already) $qmb(no) $qma(loggings!) | halt }
remini qmalog.ini MSG | writeini qmalog.ini MSG Away Log
qme $qma(The) $qmb(Away Log File) $qma(has been) $qmb(deleted) $qma(and) $qmb(remade) $+ $+ $did(5) $+ . | qmlistdoAL }
elseif ($did == 44) {
set %qm.change.secs $?="Enter Seconds (2 Digits Max)"
if ($len(%qm.change.secs) > 2) { qme $qma(No) $qmb(more) $qma(than) $&
$+ $+ $did(8) 2 digits $+ $+ $did(5) $+ ! | unset %qm.change.secs | halt }
qmi Other SECS %qm.change.secs
qmd ra 43 %qm.change.secs | unset %qm.change.secs
qme $qma(The) $qmb(Time-Out Seconds Ammount) $qma(has been changed accordingly.) }
elseif ($did == 45) {
if ($did(45).state == 1) {
qmi Other AAA ON
qme $qma(The) $qmb(Auto Accept All) $qma(is now) $qmb(enabled) $+ $+ $did(5) $+ . }
if ($did(46).state == 1 && $did(45).state == 1) {
qmd u 46 | qmri Other ADA
qme $qma(The) $qmb(Auto Decline All) $qma(is also) $qmb(disabled) $+ $+ $did(5) $+ . }
elseif ($did(45).state == 0) {
qmri Other AAA
qme $qma(The) $qmb(Auto Accept All) $qma(is now) $qmb(disabled) $+ $+ $did(5) $+ . } }
elseif ($did == 46) {
if ($did(46).state == 1) {
qmi Other ADA ON
qme $qma(The) $qmb(Auto Decline All) $qma(is now) $qmb(enabled) $+ $+ $did(5) $+ . }
if ($did(45).state == 1 && $did(46).state == 1) {
qmd u 45 | qmri Other AAA
qme $qma(The) $qmb(Auto Accept All) $qma(is also) $qmb(disabled) $+ $+ $did(5) $+ . }
elseif ($did(46).state == 0) {
qmri Other ADA
qme $qma(The) $qmb(Auto Decline All) $qma(is now) $qmb(disabled) $+ $+ $did(5) $+ . } }
elseif ($did == 49) {
qme $qma(The) $qmb(Away Log List) $qma(is) $qmb(refreshing) $+ $+ $did(5) $+ . | qmlistdoNL }
elseif ($did == 50) {
if ($ini(qmlog.ini,MSG,0) == 1) { qme $qma(There is already) $qmb(no) $qma(loggings!) | halt }
remini qmlog.ini MSG | writeini qmlog.ini MSG Normal Log
qme $qma(The) $qmb(Normal Log File) $qma(has been) $qmb(deleted) $qma(and) $qmb(remade) $+ $+ $did(5) $+ . | qmlistdoNL
}
}
alias qmlistdoNL {
if ($ini(qmlog.ini,MSG,0) == 1) { qmd ra 48 ~ No Messages from Normal Status | halt }
set %qm.ldNL.T $calc($ini(qmlog.ini,MSG,0) - 1)
set %qm.ldNL.N 1
qmd ra 48 -- Your Messages from Normal Status $crlf
qmlistdoNLL
}
alias qmlistdoNLL {
inc %qm.ldNL.N 1
if ($calc(%qm.ldNL.N - 2) == %qm.ldNL.T && %qm.ldAL.N != 2) { qmd a 48 -- End | unset %qm.ldNL.* | halt }
qmd a 48 ~ $gettok($readini(qmlog.ini,MSG,%qm.ldNL.N),1,42) - $&
$gettok($readini(qmlog.ini,MSG,%qm.ldNL.N),2,42) - $gettok($readini(qmlog.ini,MSG,%qm.ldNL.N),3,42) - $crlf
qmlistdoNLLL
}
alias qmlistdoNLLL { qmlistdoNLL }
alias qmlistdoAL {
if ($ini(qmalog.ini,MSG,0) == 1) { qmd ra 36 ~ No Messages from Away Status | halt }
set %qm.ldAL.T $calc($ini(qmalog.ini,MSG,0) - 1)
set %qm.ldAL.N 1
qmd ra 36 -- Your Messages from Away Status $crlf
qmlistdoALL
}
alias qmlistdoALL {
inc %qm.ldAL.N 1
if ($calc(%qm.ldAL.N - 2) == %qm.ldAL.T && %qm.ldAL.N != 2) { qmd a 36 -- End | unset %qm.ldAL.* | halt }
qmd a 36 ~ $gettok($readini(qmalog.ini,MSG,%qm.ldAL.N),1,42) - $&
$gettok($readini(qmalog.ini,MSG,%qm.ldAL.N),2,42) - $gettok($readini(qmalog.ini,MSG,%qm.ldAL.N),3,42) - $crlf
qmlistdoALLL
}
alias qmlistdoALLL { qmlistdoALL }
alias qmlistdoA {
if ($ini(qm.ini,AA,0) == 0) { qmd ra 19 ~ No Users On List | halt }
set %qm.ldA.T $ini(qm.ini,AA,0)
set %qm.ldA.N 0
qmd ra 19 ~ Auto Accept Users/Hosts
qmlistdoAA
}
alias qmlistdoAA {
inc %qm.ldA.N 1
if ($calc(%qm.ldA.N - 1) == %qm.ldA.T) {
if (%qm.ldB == on) qmlistdoD
qmd a 19 ~ End | unset %qm.ldA.* | halt }
qmd a 19 $ini(qm.ini,AA,%qm.ldA.N)
qmlistdoAAA
}
alias qmlistdoAAA { qmlistdoAA }
alias qmlistdoB {
if ($ini(qm.ini,AA,0) == 0 && $ini(qm.ini,AD,0) == 0) { qmd ra 19 ~ No Users On List
qmd ra 20 ~ No Users On List | halt }
if ($ini(qm.ini,AA,0) == 0 && $ini(qm.ini,AD,0) != 0) { qmd ra 19 ~ No Users On List
qmlistdoD | halt }
if ($ini(qm.ini,AA,0) != 0 && $ini(qm.ini,AD,0) == 0) { qmd ra 20 ~ No Users On List
qmlistdoA | halt }
set %qm.ldA.T $ini(qm.ini,AA,0)
set %qm.ldA.N 0
set %qm.ldB on
qmd ra 19 ~ Auto Accept Users/Hosts
qmlistdoAA
}
alias qmlistdoD {
if ($ini(qm.ini,AD,0) == 0) { qmd ra 20 ~ No Users On List | halt }
set %qm.ldD.T $ini(qm.ini,AD,0)
set %qm.ldD.N 0
qmd ra 20 ~ Auto Decline Users/Hosts
qmlistdoDD
}
alias qmlistdoDD {
inc %qm.ldD.N 1
if ($calc(%qm.ldD.N - 1) == %qm.ldD.T && %qm.ldB == on) { qmd a 20 ~ End
qmd a 19 ~ End | unset %qm.ldD.* | unset %qm.ldB | halt }
if ($calc(%qm.ldD.N - 1) == %qm.ldD.T) { qmd a 20 ~ End | unset %qm.ldD.* | halt }
qmd a 20 $ini(qm.ini,AD,%qm.ldD.N)
qmlistdoDDD
}
alias qmlistdoDDD { qmlistdoDD }
alias qmgm { return $readini(qm.ini,MSG,$1) }
dialog qmcolorhelp {
option dbu
size -1 -1 100 140
title "Adding Message Color"
edit "", 1, 5 5 90 103, multi
button "Close", 2, 30 114 30 14, ok
}
on *:dialog:qmcolorhelp:init:0:{
did -m $dname 1
qmcolorhelpreturn
}
alias qmcolorhelpreturn {
did -ra qmcolorhelp 1 To put color into the Query Manager Messages, read this: $crlf
did -a qmcolorhelp 1 Use the normal color coding for mIRC: cntrl+kNumber1-15 $crlf
did -a qmcolorhelp 1 Clicking cntrl+k will bring up a box like this: $crlf
did -a qmcolorhelp 1 Then type a number 1-15 (0 is white). $crlf
did -a qmcolorhelp 1 Example: $crlf
did -a qmcolorhelp 1 14Follow this 2guide14 to 2help14 you learn how to type in 2color $&
14with the 2mIRC Color Codes14!
did -a qmcolorhelp 1 Well, hope this helped! Click the "Close" button to exit.
}
###########################################################################################################################################
########################################################## End of Query Manager ###########################################################
###########################################################################################################################################
on *:JOIN:#:.timer 1 1 bc $nick $chan
alias -l bc {
if ($read(Blacklist.txt,w,$1)) || ($read(Blacklist.txt,w,$address($1,2))) {
var %rd = $readn
if (($me !isop $2) && ($me !ishop $2)) || (*Q* iswmcs $chan($2).mode) || (($me ishop $2) && ($1 isop $2)) echo -st 7/!\ 14 Blacklist match! Channel:07 $2 14Nick:07 $1 14Address:07 $Address($1,2) 14Match:07 $iif($chr(64) isin $ifmatch,Address,Nick) 14Reason:07 $iif($read(BlackListReason.txt,%rd) == Null,Unspecified,$read(BlackListReason.txt,%rd)) 14NOTE: I cannot kick this user!
else {
echo -st 7/!\ 14 Blacklist match! Channel:07 $2 14Nick:07 $1 14Address:07 $Address($1,2) 14Match:07 $iif($chr(64) isin $ifmatch,Address,Nick) 14Reason:07 $iif($read(BlackListReason.txt,%rd) == Null,Unspecified,$read(BlackListReason.txt,%rd)) 14Temp banning07 $1 14for07 5 14minutes.
ban -ku1800 $2 $1 2 7[14Blacklisted7] 14Reason:07 $iif($read(BlackListReason.txt,%rd) == Null,Unspecified,$read(BlackListReason.txt,%rd)) $kickc
}
}
}
alias bl {
if ($2) {
write BlackList.txt $iif($1 ison $active,$address($1,2),$1)
write BlackListReason.txt $2-
echo -ta 7[14Blacklist7]14 Successfully written07 $1 14to blacklist. 7Reason:14 $2-
if ($1 ison $active) {
if (($me !isop $active) && ($me !ishop $active)) || (*Q* iswmcs $chan($active).mode) || (($me ishop $chan(%x)) && ($nick($chan(%x),%y) isop $chan(%x))) echo -st 14I cannot kick07 $1 14from07 $active $+ 14!
else ban -ku1800 $active $1 2 7[14Blacklisted7] 14Reason:07 $iif($2,$2-,Unspecified) $kickc
}
}
else {
write BlackList.txt $iif($1 ison $active,$address($1,2),$1)
write BlackListReason.txt Null
echo -ta 7[14Blacklist7]14 Successfully written07 $1 14to blacklist. No reason specified.
if ($1 ison $active) {
if (($me !isop $active) && ($me !ishop $active)) || (*Q* iswmcs $chan($active).mode) || (($me ishop $chan(%x)) && ($nick($chan(%x),%y) isop $chan(%x))) echo -st 14I cannot kick07 $1 14from07 $active $+ 14!
else ban -ku1800 $active $1 2 7[14Blacklisted7] 14Reason:07 $iif($2,$2-,Unspecified) $kickc
}
}
}
alias bldel {
if (!$1) { echo -ta 7[14Blacklist7]14 Error: Invalid syntax. Use: /bldel <Address/Nick>. | halt }
if ($read(Blacklist.txt,w,$address($1,2))) || ($read(Blacklist.txt,w,$1)) || ($read(Blacklist.txt,w,$($+(%Address.,$1),2))) {
echo -ta 7[14Blacklist7]07 $1 14was found on the blacklist on line07 $readn $+ 14. Match:07 $read(BlackList.txt,$readn) $+ 14.
echo -ta 7[14Blacklist7]14 Blacklist reason:07 $iif($read(BlackListReason.txt,$readn) == Null,Unspecified,$read(BlackListReason.txt,$readn))
echo -ta 7[14Blacklist7]14 To delete: 7/yes14. To stop: 7/no14.
set %B $readn
}
else echo -ta 7[14Blacklist7]14 Sorry:07 $1 14was not found on the blacklist.
}
alias yes {
if (%B) {
set -u600 %r $read(BlackList.txt,%B)
set -u600 %rr $read(BlackListReason.txt,%B)
echo -ta 7[14Blacklist7]14 Deleting:07 $read(BlackList.txt,%B) 14With reason:07 $iif($read(BlackListReason.txt,%B) == Null,Unspecified,$read(BlackListReason.txt,%B)) 14from the blacklist.
write -dl [ $+ [ %B ] ] BlackList.txt
write -dl [ $+ [ %B ] ] BlackListReason.txt
unset %B
GlobalUnban $iif($chr(64) !isin $read(BlackList.txt,%B),$address($v2,2),$v2)
}
else echo -ta 7[14Blacklist7]14 Error: No blacklist set to delete. Try 7/bldel <Address/Nick>14.
}
alias no {
if (%B) {
echo -ta 7[14Blacklist7]14 Cancelled:07 $read(BlackList.txt,%B) 14Will not be deleted from the blacklist.
unset %B
}
else echo -ta 7[14Blacklist7]14 Error: No blacklist set to delete. Try 7/bldel <Address/Nick>14.
}
alias rebl {
if (%r) {
write BlackList.txt %r
write BlackListReason.txt %rr
echo -ta 7[14Blacklist7]14 Successfully re-written07 %rbl 14to blacklist. Reason:07 $iif(%rblr == Null,Unspecified,%rblr) $+ 14.
unset %r %rr
}
else echo -ta 7[14Blacklist7]14 Error: No user was recently un-blacklisted.
}
alias bllist {
if ($lines(BlackList.txt) >= 30) $iif($?!="30+ Blacklists found. Continue? $crlf $+ Doing so will echo $lines(BlackList.txt) lines into $active $+ .",,halt)
echo -ta 7[14Blacklist7]14 Blacklisted user list $+(7[,14,$lines(BlackList.txt),7/14,$lines(BlackListReason.txt),7]14:) (Latest first)
if ($lines(BlackList.txt) == 0) echo -ta 7[14Blacklist7]14 None.
else {
var %la = $lines(BlackList.txt)
var %lc = $lines(BlackList.txt)
while (%lc >= 1) {
echo -ta $+(7[14,$calc((%la - %lc) + 1),7]) 7User:14 $read(BlackList.txt,%lc) 7Reason:14 $iif($read(BlackListReason.txt,%lc) == Null,Unspecified,$read(BlackListReason.txt,%lc))
dec %lc
}
}
}
alias BlCheck {
var %x = 1, %z = 0, %w = 0
while (%x <= $chan(0)) {
var %y = 1
while (%y <= $nick($chan(%x),0)) {
if ($read(Blacklist.txt,w,$nick($chan(%x),%y))) || ($read(Blacklist.txt,w,$address($nick($chan(%x),%y),2))) {
var %q = $readn
inc %z
echo -s 07/!\ 14Blacklist match: Channel:07 $chan(%x) 14Nick:07 $nick($chan(%x),%y) 14Match:07 $ifmatch
if ($me !isop $chan(%x)) && ($me !ishop $chan(%x)) || (*Q* iswmcs $chan($chan(%x)).mode) || (($me ishop $chan(%x)) && ($nick($chan(%x),%y) isop $chan(%x))) echo -s 14I cannot kick07 $nick($chan(%x),%y) 14from07 $chan(%x) $+ 14!
else ban -ku300 $chan(%x) $nick($chan(%x),%y) 2 7[14Blacklisted7] [14Reason:07 $iif($read(BlackListReason.txt,%q) == Null,Unspecified,$read(BlackListReason.txt,%q)) 7][14 Bitches kicked4 $kickc
}
inc %w
inc %y
}
inc %x
}
echo -s 14Finished checking07 %w 14users on07 $chan(0) 14 $+ $iif($chan(0) == 1,channel,channels) $+ , blacklists found:07 %z
}
alias GlobalUnban {
if (!$1) halt
var %x = 1, %z = 0
while (%x <= $chan(0)) {
if ($me isop $chan(%x)) || ($me ishop $chan(%x)) mode $chan(%x) -b $1
inc %x
}
echo -s 14Globally unbanned07 $1
}
alias info {
echo -ta 7[14Blacklist7]14 Blacklists found: $+(7[,14,$lines(BlackList.txt),7/14,$lines(BlackListReason.txt),7]14.)
echo -ta 7[14Blacklist7]14 Commands: 7/Bl <Address/Nick>14, 7/Bldel <Address/Nick>14, 7/Yes14, 7/No14, 7/Rebl14, 7/Bllist14.
}
alias kickc { inc %kickcounter | return 7»14 $bytes(%kickcounter,db) 7« }