Advanced secrue query
Posted by eXile
Sunday, February 11, 2007
Description: very advanced secure query. has ACCEPT,DENY,TEMP IGNORE FOR 60 SEC, PERM IGNORE
on *:OPEN:?:{
if ( $away ) { halt }
else {
set %pm.nick $nick | set %pm.message $1- | inc %pmtoday 1 | inc %pmall 1
msg $nick [^K]4,14›[^K]5› [^K]0,14[^U][^K]4I[^U][^K]0dle[^K]4:[^K]0,14 $duration($idle) [^U][^K]4Q[^U][^K]0ueries[^U][^K]4O[^U][^K]0pen[^K]4:[^K]0 $query(0) [^K]4[^U]O[^U][^K]0nline[^K]4[^U]T[^U][^K]0ime[^K]4:[^K]0 $uptime(server,1) [^K]5,14›[^K]4›
dialog -m evasionpm $+ $nick evasionpm $+ $nick }
dialog evasionpm* {
title "eXile's Evasion PM System"
size -1 -1 112 62
option dbu
box "", 1, 2 0 108 60
edit "", 2, 5 7 100 20, read autovs
button "Accept", 3, 12 30 37 12
button "Deny", 4, 63 30 37 12
button "Temp Ignore", 5, 12 45 37 12
button "Perm Ignore", 6, 63 45 37 12
}
}
on *:dialog:evasionpm*:sclick:*:{
if ($did == 3) {
msg $did(1) [^K]4,14›[^K]5› [^K]0,14Your Query has been [^K]4[^B]ACCEPTED[^B] [^K]5,14›[^K]4›
msg $did(1) what do you want? [automsg]
dialog -x evasionpm $+ $did(1) evasionpm $+ $did(1)
}
if ($did == 4) {
msg $did(1) [^K]4,14›[^K]5› [^K]0,14Your Query has been [^K]4[^B]DENIED[^B] [^K]5,14›[^K]4›
close -m $did(1)
dialog -x evasionpm $+ $did(1) evasionpm $+ $did(1)
}
if ($did == 5) {
msg $did(1) [^K]4,14›[^K]5› [^K]0,14Your Query has been [^K]4[^B]IGNORED[^B] [^K]0You have been Ignored for 60 Seconds [^K]5,14›[^K]4›
ignore -u60 %pm.nick 2
close -m $did(1)
dialog -x evasionpm $+ $did(1) evasionpm $+ $did(1)
}
if ($did == 6) {
msg $did(1) [^K]4,14›[^K]5› [^K]0,14Your Query has been [^K]4[^B]IGNORED[^B] [^K]0You have been Ignored for *0* Seconds [^K]5,14›[^K]4›
ignore %pm.nick 2
close -m $did(1)
dialog -x evasionpm $+ $did(1) evasionpm $+ $did(1)
}
}
on *:dialog:evasionpm*:init:*:{
did -ra evasionpm $+ %pm.nick 1 %pm.nick
did -ra evasionpm $+ %pm.nick 2 $strip(%pm.message,bmurc)
}
on *:OPEN:?:{
if ( $away ) { halt }
else {
set %pm.nick $nick | set %pm.message $1- | inc %pmtoday 1 | inc %pmall 1
msg $nick [^K]4,14›[^K]5› [^K]0,14[^U][^K]4I[^U][^K]0dle[^K]4:[^K]0,14 $duration($idle) [^U][^K]4Q[^U][^K]0ueries[^U][^K]4O[^U][^K]0pen[^K]4:[^K]0 $query(0) [^K]4[^U]O[^U][^K]0nline[^K]4[^U]T[^U][^K]0ime[^K]4:[^K]0 $uptime(server,1) [^K]5,14›[^K]4›
dialog -m evasionpm $+ $nick evasionpm $+ $nick }
dialog evasionpm* {
title "eXile's Evasion PM System"
size -1 -1 112 62
option dbu
box "", 1, 2 0 108 60
edit "", 2, 5 7 100 20, read autovs
button "Accept", 3, 12 30 37 12
button "Deny", 4, 63 30 37 12
button "Temp Ignore", 5, 12 45 37 12
button "Perm Ignore", 6, 63 45 37 12
}
}
on *:dialog:evasionpm*:sclick:*:{
if ($did == 3) {
msg $did(1) [^K]4,14›[^K]5› [^K]0,14Your Query has been [^K]4[^B]ACCEPTED[^B] [^K]5,14›[^K]4›
msg $did(1) what do you want? [automsg]
dialog -x evasionpm $+ $did(1) evasionpm $+ $did(1)
}
if ($did == 4) {
msg $did(1) [^K]4,14›[^K]5› [^K]0,14Your Query has been [^K]4[^B]DENIED[^B] [^K]5,14›[^K]4›
close -m $did(1)
dialog -x evasionpm $+ $did(1) evasionpm $+ $did(1)
}
if ($did == 5) {
msg $did(1) [^K]4,14›[^K]5› [^K]0,14Your Query has been [^K]4[^B]IGNORED[^B] [^K]0You have been Ignored for 60 Seconds [^K]5,14›[^K]4›
ignore -u60 %pm.nick 2
close -m $did(1)
dialog -x evasionpm $+ $did(1) evasionpm $+ $did(1)
}
if ($did == 6) {
msg $did(1) [^K]4,14›[^K]5› [^K]0,14Your Query has been [^K]4[^B]IGNORED[^B] [^K]0You have been Ignored for *0* Seconds [^K]5,14›[^K]4›
ignore %pm.nick 2
close -m $did(1)
dialog -x evasionpm $+ $did(1) evasionpm $+ $did(1)
}
}
on *:dialog:evasionpm*:init:*:{
did -ra evasionpm $+ %pm.nick 1 %pm.nick
did -ra evasionpm $+ %pm.nick 2 $strip(%pm.message,bmurc)
}