rendered paste bodyalias status {
var %total_users = 0, %oped = 0, %hoped = 0, %voice = 0, %reg = 0, %s = 1, %net = $network, %channels, %y, %nicks
while $scon(%s) {
var %b = $ifmatch, %i = 1
scid %b
if ($network == %net) {
%nicks = %nicks $me
var %nks = $replace(%nicks,$chr(32),$chr(46))
%i = 1
inc %y
inc %channels $chan(0)
while (%i <= $chan(0)) {
%total_users = %total_users + $nick($chan(%i),0)
if ($me isop $chan(%i)) inc %oped
if ($me ishop $chan(%i)) inc %hoped
if ($me isvoice $chan(%i)) inc %voice
if ($me isreg $chan(%i)) inc %reg
inc %i
}
}
inc %s
}
scid -r
if ($gettok(%nks,5,46) != $null) { var %nicks = $gettok(%nks,1,46) $+ , $gettok(%nks,2,46) $+ , $gettok(%nks,3,46) $+ , $gettok(%nks,4,46) & $gettok(%nks,2,46) }
elseif ($gettok(%nks,4,46) != $null) { var %nicks = $gettok(%nks,1,46) $+ , $gettok(%nks,2,46) $+ , $gettok(%nks,3,46) & $gettok(%nks,4,46) }
elseif ($gettok(%nks,3,46) != $null) { var %nicks = $gettok(%nks,1,46) $+ , $gettok(%nks,2,46) & $gettok(%nks,3,46) }
elseif ($gettok(%nks,2,46) != $null) { var %nicks = $gettok(%nks,1,46) & $gettok(%nks,2,46) }
else { var %nicks = $gettok(%nks,1,46) }
say I am on4 %channels Channels (4@ in %oped $+ ,7 $chr(37) in %hoped $+ , 2+ in %voice $+ ) with %total_users total people on network
}
elseif ($regex($1,/^([!@])?status/Si)) var %style status
-----------------------------------------------------------
elseif (%style == status) {
var %x = $chan(0),%o = 0,%h = 0,%v = 0,%r = 0,%p = 0,%t = 0
while (%x) {
if (($me isop $chan(%x)) || ($me ishop $chan(%x))) {
inc $+(%,$iif($me isop $chan(%x),o,h))
inc %p $iif($me isop $chan(%x),$nick($chan(%x),0),$nick($chan(%x),0,v,r))
}
elseif ($me isvoice $chan(%x)) { inc %v }
elseif ($me isreg $chan(%x)) { inc %r }
inc %t $nick($chan(%x),0)
dec %x
}
/send $c1(***) $+($c1,$chr(40),$c2,$upper(status),$c1,$chr(41),$c1,:) $c2($me) $c1(Is currently on) $c2($chan(0)) $c1($iif($chan(0) iswm 1,channel,channels)) $+ $c1(.) $c2($me) $c1(is an op on) $c2(%o) $+ $c1(, halfop on) $c2(%h) $+ $c1(, voiced on) $c2(%v) $+ $c1(, and a regular user on) $c2(%r) $+ $c1(.) $c2($me) $c1(has power over) $+($c2,%p,/,%t) $c1($chr(40)) $+ $c2($round($calc(%p / %t * 100),2) $+ $chr(37) $+ $c1($chr(41))) $c1(users.)
}
menu channel,status {
PM Accepter/Blocker: { pmd }
}
alias pmd {
dialog -m pmd pmd
}
dialog pmd {
title "Pro PM Blocker"
size -1 -1 250 120
option dbu
box "PM Accepter" 1, 5 2 140 56
text "Received Message:" 2, 10 10 47 8
edit "PM Received - Please Wait...", 3, 58 9 80 8
text "Accept Message:" 4, 10 21 45 8
edit "[Accepted]" 5, 52 19 86 9
text "Decline Message:" 6, 10 32 46 8
edit "[Declined]" 7, 52 32 86 9
button "Turn ON" 8, 68 43 35 12
button "Turn OFF" 9, 103 43 35 12
box "PM Blocker" 10, 5 57 140 36
text "Block Message:" 11, 10 68 45 8
edit "I am [Blocking] all PMs" 12, 47 66 92 9
button "Block ON" 13, 63 77 38 13
button "Block OFF" 14, 101 77 38 13
box "Status" 15, 20 95 110 20
text "Status:" 16, 25 103 20 8
text "" 17, 45 103 80 9
box "Exceptions List" 18, 155 3 90 112
list 19, 165 12 70 70, size
text "Add Nick:" 20, 158 87 25 10
edit "", 21, 181 85 54 10
button "Add", 22, 165 98 35 13
button "Delete", 23, 201 98 35 13
text "Enable Excepts:", 24, 10 45 39 10
check "", 25, 52 45 8 8
text "Enable Excepts:" 26, 10 80 39 10
check "", 27, 52 80 8 8
}
on *:DIALOG:pmd:init:0: {
var %y 1
while (%y <= $ini(allow.ini,AllowList,0)) {
did -a $dname 19 $ini(allow.ini,AllowList,%y)
inc %y
}
if (%accept != on || %blocker != on) {
did -r $dname 17
did -a $dname 17 PM Accepter/Blocker is DISABLED
}
if (%accept == on) {
did -r $dname 17
did -a $dname 17 PM Accepter is ENABLED
}
if (%blocker == on) {
did -r $dname 17
did -a $dname 17 PM Blocker is ENABLED
}
if (%exaccept == on) {
did -c $dname 25
}
if (%exblock == on) {
did -c $dname 27
}
}
on *:DIALOG:pmd:sclick:8: {
if (%accept != on && %blocker != on) {
set %received $did(3)
set %accepted $did(5)
set %declined $did(7)
set %accept on
echo -at PM Accepter is now ON
dialog -x pmd
}
elseif (%accept == on || %blocker == on) {
did -a $dname 17 PM Accept/Blocker is already ON
}
}
on *:DIALOG:pmd:sclick:9: {
if (%accept == on) {
unset %accept
unset %received
unset %accepted
unset %declined
echo -at PM Accepter is now OFF
dialog -x pmd
}
else {
did -a $dname 17 PM Accepter is DISABLED
}
}
on *:DIALOG:pmd:sclick:13: {
if (%accept != on && %blocker != on) {
set %blocked $did(12)
set %blocker on
echo -at PM Blocker is now ON
dialog -x pmd
}
elseif (%accept == on || %blocker == on) {
did -a $dname 17 PM Accept/Blocker is already ON
}
}
on *:DIALOG:pmd:sclick:14: {
if (%blocker == on) {
unset %blocker
unset %blocked
echo -at PM Blocker is now OFF
dialog -x pmd
}
else {
did -a $dname 17 PM Blocker is DISABLED
}
}
on *:OPEN:?: {
if (%accept == on) {
if ($nick iswm $readini(Allow.ini,AllowList,$nick) && %exaccept == on) {
halt
}
else {
msg $nick %received
.timer 1 0 accepter $nick
}
}
if (%blocker == on) {
if ($nick iswm $readini(Allow.ini,AllowList,$nick) && %exblock == on) {
halt
}
else {
msg $nick %blocked
ignore -pu300 $nick
window -c $nick
}
}
}
alias accepter {
set %accepter $input(Accept query from $1 $+ ?,y)
answer $1
}
alias answer {
if (%accepter == $true) {
msg $1 %accepted
window -a $1
}
if (%accepter == $false) {
msg $1 %declined
ignore -pu300 $1
window -c $1
}
unset %accepter
}
on *:DIALOG:pmd:sclick:22: {
if ($did(21) == $null) {
did -a $dname 17 Please specify a NAME!
}
else {
writeini Allow.ini AllowList $did(21) $did(21)
did -a $dname 19 $did(21)
did -r $dname 21
}
}
on *:DIALOG:pmd:sclick:23: {
if ($did($dname,19).seltext == $null) {
did -a $dname 17 Please Highlight a NAME!
}
else {
remini Allow.ini AllowList $did($dname,19).seltext
did -d $dname 19 $did($dname,19).sel
}
}
on *:DIALOG:pmd:sclick:25: {
if (%exaccept != on) {
did -a $dname 17 Accepter w. Excepts is ON
set %exaccept on
}
elseif (%exaccept == on) {
did -a $dname 17 Accepter w. Excepts is OFF
unset %exaccept
}
}
on *:DIALOG:pmd:sclick:27: {
if (%exblock != on) {
did -a $dname 17 Blocker w. Excepts is ON
set %exblock on
}
elseif (%exblock == on) {
did -a $dname 17 Blocker w. Excepts is OFF
unset %exblock
}
}
on *:INPUT:#: {
if ($1 == .eI) && (!$2) {
mode $chan +eeeIII $address($me,9) $me $address($me,2) $address($me,9) $me $address($me,2) }
if ($2) && ($1 == .deleI) {
mode $chan -eeeIII $address($2,9) $2 $address($2,2) $address($2,9) $2 $address($2,2) }
if ($1 == .add) || ($1 == .del) || ($1 == .list) {
cs access $chan $remove($1,.) $2-
}
if ($1 == .add) && ($3 isnum) {
mode $chan $iif($3 == 3,+v) $iif($3 == 4,+h-v) $iif($3 isnum 5-9,+o-hv) $iif($3 > 9,+ao-hv) $str($2 $+ $chr(32),5)
}
if ($left($1,1) == +) || ($left($1,1) == -) {
$iif($remove($1,-,+) isalpha,mode $chan $eval($1-,2))
}
if ($1 == .mode) && (!$2) {
mode $chan $2- }
if ($2) && ($1 == !mode) {
mode $chan $2- }
if ( $1 == .cb ) mode $chan +b ~c: $+ $2
if ( $1 == -cb ) mode $chan -b ~c: $+ $2
if ( $1 == !mutename ) mode $chan +b ~q: $+ $address($2,2)
if ( $1 == !unmutename ) mode $chan -b ~q: $+ $address($2,2)
if ( $1 == .v ) mode $chan +v $$2
if ( $1 == -v ) mode $chan -v $$2
if ( $1 == .h ) mode $chan +h $$2
if ( $1 == -h ) mode $chan -h $$2
if ( $1 == .o ) mode $chan +o $$2
if ( $1 == -o ) mode $chan -o $$2
if ( $1 == .i ) invite $$2 $chan
if ( $1 == .eI ) mode $chan +eI $address($me,2) $address($me,2)
if ( $1 == -eI ) mode $chan -eI $address($me,2) $address($me,2)
if ( $1 == .rem ) cs access $chan del $$2
if ( $1 == .list ) cs access $chan list
if ( $1 == .alist ) ns alist
if ( $1 == .regchan ) cs register $chan $2 $3
if ( $1 == .topic ) topic $chan $2-
if ( $1 == .akick ) cs akick $chan add $2 $3-
if ( $1 == .delakick ) cs akick $chan del $2
if ( $1 == .delchanakick ) cs akick $chan clear
if ( $1 == .setgreet ) ns set greet $2-
if ( $1 == !rape ) inc %rape /cs kick # $2 4U 11FKN 12GOT 9RAPED 7by 2$me1 Peeps raped: %rape 8Original 10reason: 13 $3-
if ( $1 == !nick ) /nick $2
if ( $1 == !ban ) !kb $2 reason: $3-
if ( $1 == !akick ) /cs akick $chan add $2 $3-
if ( $1 == .away ) /gmsg 11[4Away11]7 $me is now away. reason: $2-
if ( $1 == !msg ) msg $chan 11[4An message -- By $me 11]7 $me has msged: $2-
if ( $1 == .msg ) msg $chan 11[4An message -- By $me 11]7 $me has msged: $2-
if ( $1 == !amsg ) gmsg $chan 11[4An message -- By $me 11]7 $me has amsged: $2-
if ( $1 == .amsg ) gmsg $chan 11[4An message -- By $me 11]7 $me has amsged: $2-
if ( $1 == !gayalert ) msg $chan 11[4GAY ALART 11]7 $me has found a gay guy named $2-
if ( $1 == !id ) /ns id kraxzetjepasswordhier
if ( $1 == !update ) /ns update
if ( $1 == .update ) /ns update
if ( $1 == !check ) /whois $2
if ( $1 == !whois ) /whois $2
if ( $1 == !msg ) msg $chan 4[10Msg4]7 $2-