rendered paste bodyPaul's Scripts
Aliases:
/op /mode # +ooo $$1 $2 $3
/dop /mode # -ooo $$1 $2 $3
/j /join #$$1 $2-
/p /part #
/n /names #$$1
/w /whois $$1
/q /query $$1
/send /dcc send $1 $2
/chat /dcc chat $1
/ping /ctcp $$1 ping
/s /server $$1-
/k {
inc %kbcount 1
/kick $chan $1 4Reason:12 $2- 1 $+(,$chr(124)) 4Noobs eaten = $+(12,%kbcount)
}
/kb {
inc %kbcount 1
/ban -k $chan $1 2 4Reason:12 $2- 1 $+(,$chr(124)) 4Noobs eaten = $+(12,%kbcount)
}
/tb {
inc %kbcount 1
/ban -ku $+ $calc($2 * 60) $chan $1 2 5TempBan for $2 minute(s) $chr(124) 4Reason:12 $3- $+(1,$chr(124)) 4Noobs eaten = $+(12,%kbcount)
}
/mute {
inc %kbcount 1
if ($nick !ison $chan) {
/mode $chan +b-eIohv ~q: $+ $address($1,2) $1 $1 $1
/msg $chan 5[2 $1 5] has been muted for $2 minute(s) $chr(124) 4Reason:12 $3- $+(1,$chr(124)) 4Noobs eaten = $+(12,%kbcount)
/timer 1 $calc($2 * 60) //mode $chan -b ~q: $+ $address($1,2) $1 $1 $1
}
}
/gag {
if ($1 !ison $chan) {
inc %kbcount 1
/mode $chan +b-ohv ~q: $+ $address($1,2) $1 $1 $1
}
}
/ungag {
if ($1 !ison $chan) {
inc %kbcount 1
/mode $chan -b ~q: $+ $address($1,2) $1 $1 $1
}
}
/away {
if (%away == off) {
set %away on
set %pm off
set %reason $1-
set %awaytime $ctime
/amsg 2I am now away. 5Reason:2 $1-
}
}
/returnaway {
if (%away == on) {
set %away off
set %pm on
/amsg 2I am now back 5From:2 %reason 5Time gone:2 $duration($calc($ctime - $($+(%,awaytime),2)))
}
}
Remotes:
alias /kirby {
msg $chan 0,0--------------1,1----------0,0------------
msg $chan 0,0----------1,1----6,6--13,13------6,6--1,1----0,0--------
msg $chan 0,0--------1,1--6,6--13,13--------------6,6--1,1--0,0------
msg $chan 0,0------1,1--6,6--13,13------------------1,1--0,0------
msg $chan 0,0------1,1--13,13--------------------6,6--1,1--0,0----
msg $chan 0,0----1,1--13,13--------------1,1--13,13--1,1--13,13--6,6--1,1--0,0----
msg $chan 0,0--1,1--6,6--13,13--------------1,1--13,13--1,1--13,13------1,1--0,0--
msg $chan 0,0--1,1--13,13----------------1,1--13,13--1,1--13,13------1,1--0,0--
msg $chan 0,0--1,1--13,13----------4,4----13,13--------4,4----13,13--1,1--0,0--
msg $chan 0,0--1,1--6,6--13,13----6,6--13,13----------------6,6--13,13--1,1--0,0--
msg $chan 0,0----1,1--6,6--13,13--1,1--13,13----------1,1--13,13----1,1--6,6--1,1--0,0--
msg $chan 0,0------1,1----6,6--13,13--------------6,6--1,1----0,0----
msg $chan 0,0--------1,1----6,6----13,13--------6,6--1,1----0,0------
msg $chan 0,0------1,1--4,4----1,1--------------4,4----1,1--0,0----
msg $chan 0,0----1,1--4,4----------1,1--0,0----1,1--4,4--------1,1--0,0-
}
alias /leet { msg $chan $replace($1-,a,Å,b,ß,c,©,d,Ð,e,3,f,ƒ,i,¡,l,|,m,/\/\,n,Ñ,o,ø,p,þ,r,®,s,§,t,†,u,û,v,\/,x,×,y,¥,-,¬,?,¿,`,¤,w\/\/,) }
alias big {
set %bl.buffer1 A | set %bl.buffer2 A | set %bl.buffer3 A | set %bl.buffer4 A | set %bl.buffer5 A
var %bl.cmd say, %bl.col1, %bl.col2
if ($$1 == echo) { set %bl.cmd echo -at | tokenize 32 $2- }
if ($1 !isnum) { set %bl.col1 1 | set %bl.col2 0 }
elseif ($2 !isnum) { set %bl.col1 $1 | set %bl.col2 0 | tokenize 32 $2- }
else { set %bl.col1 $1 | set %bl.col2 $2 | tokenize 32 $3- }
var %bl.idx1 1, %bl.idx2 1, %bl.idx3 1
;set the block field
while (%bl.idx1 <= $0) {
set %bl.idx2 1
while (%bl.idx2 <= $len($ [ $+ [ %bl.idx1 ] ])) {
blockappend $blockletter($mid($ [ $+ [ %bl.idx1 ] ],%bl.idx2,1))
inc %bl.idx2
}
if (%bl.idx1 < $0) blockappend $blockletter
inc %bl.idx1
}
;colorize the block field
blockcolor %bl.col1 %bl.col2
;output the block field
set %bl.idx3 1
while (%bl.idx3 <= 5) { %bl.cmd %bl.buffer [ $+ [ %bl.idx3 ] ] | unset %bl.buffer [ $+ [ %bl.idx3 ] ] | inc %bl.idx3 }
}
alias -l blockletter {
if ($1 === A) return ABA BAB BBB BAB BAB
elseif ($1 === B) return BBA BAB BBA BAB BBA
elseif ($1 === C) return ABB BAA BAA BAA ABB
elseif ($1 === D) return BBA BAB BAB BAB BBA
elseif ($1 === E) return BBB BAA BBA BAA BBB
elseif ($1 === F) return BBB BAA BBA BAA BAA
elseif ($1 === G) return ABB BAA BAB BAB ABB
elseif ($1 === H) return BAB BAB BBB BAB BAB
elseif ($1 === I) return BBB ABA ABA ABA BBB
elseif ($1 === J) return BBB ABA ABA ABA BBA
elseif ($1 === K) return BAB BAB BBA BAB BAB
elseif ($1 === L) return BAA BAA BAA BAA BBB
elseif ($1 === M) return ABBBA BABAB BABAB BAAAB BAAAB
elseif ($1 === N) return BAAB BBAB BABB BAAB BAAB
elseif ($1 === O) return BBB BAB BAB BAB BBB
elseif ($1 === P) return BBB BAB BBB BAA BAA
elseif ($1 === Q) return BBB BAB BAB BBB AAB
elseif ($1 === R) return BBB BAB BBB BBA BAB
elseif ($1 === S) return ABB BAA ABA AAB BBA
elseif ($1 === T) return BBB ABA ABA ABA ABA
elseif ($1 === U) return BAB BAB BAB BAB BBB
elseif ($1 === V) return BAB BAB BAB BAB ABA
elseif ($1 === W) return BAAAB BAAAB BABAB BABAB ABBBA
elseif ($1 === X) return BAB BAB ABA BAB BAB
elseif ($1 === Y) return BAB BAB BAB ABA ABA
elseif ($1 === Z) return BBB AAB ABA BAA BBB
elseif ($1 === a) return AAAA AAAA ABBA BABA BBAB
elseif ($1 === b) return BAA BAA BBB BAB BBB
elseif ($1 === c) return AAA AAA BBB BAA BBB
elseif ($1 === d) return AAB AAB BBB BAB BBB
elseif ($1 === e) return AAA ABB BAB BBA ABB
elseif ($1 === f) return ABB ABA BBB ABA ABA
elseif ($1 === g) return AAA BBB BAB ABB BBA
elseif ($1 === h) return BAA BAA BBB BAB BAB
elseif ($1 === i) return A B A B B
elseif ($1 === j) return AB AA AB AB BB
elseif ($1 === k) return BAA BAA BAB BBA BAB
elseif ($1 === l) return BA BA BA BA BB
elseif ($1 === m) return AAAAA AAAAA ABABA BABAB BABAB
elseif ($1 === n) return AAA AAA BBA BAB BAB
elseif ($1 === o) return AAA AAA BBB BAB BBB
elseif ($1 === p) return AAA BBB BAB BBB BAA
elseif ($1 === q) return AAA BBB BAB BBB AAB
elseif ($1 === r) return AAA AAA BAB BBA BAA
elseif ($1 === s) return AA AB BA AB BB
elseif ($1 === t) return ABA ABA BBB ABA ABA
elseif ($1 === u) return AAA AAA BAB BAB BBB
elseif ($1 === v) return AAA AAA BAB BAB ABA
elseif ($1 === w) return AAAAA AAAAA BABAB BABAB ABABA
elseif ($1 === x) return AAA AAA BAB ABA BAB
elseif ($1 === y) return AAA BAB BAB ABA BAA
elseif ($1 === z) return AAA BBB AAB ABA BBB
elseif ($1 == 0) return ABA BAB BAB BAB ABA
elseif ($1 == 1) return ABA BBA ABA ABA BBB
elseif ($1 == 2) return BBA AAB ABA BAA BBB
elseif ($1 == 3) return BBA AAB ABA AAB BBA
elseif ($1 == 4) return BAB BAB BBB AAB AAB
elseif ($1 == 5) return BBB BAA BBA AAB BBA
elseif ($1 == 6) return ABB BAA BBB BAB BBB
elseif ($1 == 7) return BBB AAB AAB ABA ABA
elseif ($1 == 8) return BBB BAB BBB BAB BBB
elseif ($1 == 9) return BBB BAB BBB AAB BBA
elseif ($1 == .) return A A A A B
elseif ($1 == !) return B B B A B
elseif ($1 == ?) return BBB AAB ABA AAA ABA
elseif ($1 == -) return AAA AAA BBB AAA AAA
elseif ($1 == _) return AAAA AAAA AAAA AAAA BBBB
elseif ($1 == ^) return ABA BAB AAA AAA AAA
elseif ($1 == +) return AAA ABA BBB ABA AAA
elseif ($1 == =) return AAA BBB AAA BBB AAA
elseif ($1 == /) return AAAAB AAABA AABAA ABAAA BAAAA
elseif ($1 == \) return BAAAA ABAAA AABAA AAABA AAAAB
elseif ($1 == ]) return BB AB AB AB BB
elseif ($1 == [) return BB BA BA BA BB
elseif ($1 == :) return A B A B A
elseif ($1 == $chr(59)) return AA AB AA AB BA
elseif ($1 == <) return AAB ABA BAA ABA AAB
elseif ($1 == >) return BAA ABA AAB ABA BAA
elseif ($1 == $chr(40)) return AB BA BA BA AB
elseif ($1 == $chr(41)) return BA AB AB AB BA
elseif ($1 == ") return BAB BAB AAA AAA AAA
elseif ($1 == ') return B B A A A
elseif ($1 == `) return BA AB AA AA AA
elseif ($1 == ,) return AA AA AA AB BA
elseif ($1 == ~) return AAAA ABAB BABA AAAA AAAA
elseif ($1 == $chr(37)) return BAB AAB ABA BAA BAB
elseif ($1 == $chr(124)) return B B B B B
elseif ($1 == *) return BAB ABA BAB AAA AAA
else return A A A A A
}
alias -l blockappend {
set %bl.buffer1 $+(%bl.buffer1,$$1,A)
set %bl.buffer2 $+(%bl.buffer2,$$2,A)
set %bl.buffer3 $+(%bl.buffer3,$$3,A)
set %bl.buffer4 $+(%bl.buffer4,$$4,A)
set %bl.buffer5 $+(%bl.buffer5,$$5,A)
}
alias -l blockcolor {
var %bl.buff 1, %bl.string 5
while (%bl.buff <= 5) {
while (%bl.string >= 1) {
set %bl.buffer [ $+ [ %bl.buff ] ] $replace(%bl.buffer [ $+ [ %bl.buff ] ] ,$str(A,%bl.string),$+(,$$2,$chr(44),$$2,$str($blockrand,%bl.string)))
set %bl.buffer [ $+ [ %bl.buff ] ] $replace(%bl.buffer [ $+ [ %bl.buff ] ] ,$str(B,%bl.string),$+(,$$1,$chr(44),$$1,$str($blockrand,%bl.string)))
dec %bl.string
}
set %bl.string 5
inc %bl.buff
}
}
alias -l blockrand return $iif($rand(0,1) == 0,<,>)
alias eI {
/mode $chan +eIeI $address($me,2) $address($me,2) $me $me
}
alias eI2 {
/mode $chan +eIeIeIeIeIeIeI *!*@Swift-6544C385.hsd1.ar.comcast.net *!*@Swift-6544C385.hsd1.ar.comcast.net *!*@Swift-999473E1.hsd1.az.comcast.net *!*@Swift-999473E1.hsd1.az.comcast.net Paul Paul Paul|mIRC Paul|mIRC Paul|BNC Paul|BNC Paul|Away Paul|Away Hobbit Hobbit
}
alias -eI2 {
/mode $chan -eIeIeIeIeIeIeI *!*@Swift-6544C385.hsd1.ar.comcast.net *!*@Swift-6544C385.hsd1.ar.comcast.net *!*@Swift-999473E1.hsd1.az.comcast.net *!*@Swift-999473E1.hsd1.az.comcast.net Paul Paul Paul|mIRC Paul|mIRC Paul|BNC Paul|BNC Paul|Away Paul|Away Hobbit Hobbit
}
alias -eI {
/mode $chan -eI $address($me,2) $address($me,2) $me $me
}
alias mass {
if ( $regex($1,/^[\+-]?[ohv]$/) ) && ( $me isop # ) {
var %a, %c = $+($left($1,1),$str($right($1,1),$modespl))
var %d = $iif( $left($1,1) === -, $right($1,1), $iif($right($1,1) == v,a,$+(a,$chr(44),o)) ), %b = $nick(#,0,%d)
while %b {
if ( $nick(#,%b,%d) != $me) {
%a = %a $v1
if ($modespl == $numtok(%a,32)) {
mode # %c %a
%a = ""
}
}
dec %b
}
if (%a) mode # %c %a
}
}
alias amsg { var %x 1 | while ($chan(%x)) { if (!$istok(#mirc #idlerpg #cookiedough #swiftswitch #irchelp #idle #idlers #rsrealm #leetchan,$v1,32)) { msg $chan(%x) 5[GlobalMSG]2 $1- } | inc %x } }
alias takeover {
mode $chan +smntiRcQVNTlkfj 1 §£Kjå§Ð£Ð§fj£KêW®Kjüïðñ [1t#b]:999 1:999
topic $chan Owned
eI2
eI
mass -o
mass -h
mass -v
}
alias untakeover {
mode $chan -smntirRcQVNTlkfj 1 §£Kjå§Ð£Ð§fj£KêW®Kjüïðñ [1t#b]:999 1:999
/cs akick $chan clear
}
alias own {
inc %kbcount 1
mode $chan -ohveIeIQ+b $1 $1 $1 $1 $1 $address($1,2) $address($1,2) $address($1,2)
kick $chan $1 4Reason:12 $2- 1 $+(,$chr(124)) 4Noobs eaten = $+(12,%kbcount)
}
alias pwn {
inc %kbcount 1
mode $chan -ohvQeIeI+b $1 $1 $1 $1 $1 $address($1,2) $address($1,2) $address($1,2)
kick $chan $1 4Reason:12 $2- 1 $+(,$chr(124)) 4Noobs eaten = $+(12,%kbcount)
cs access $chan del $1
}
on *:text:paul:#:{
if (%away == on) {
/notice $nick I am currently away. Reason: %reason Time Gone: $duration($calc($ctime - $($+(%,awaytime),2)))
}
}
on *:join:#leetchan:{
if ($nick == Paul) {
/timerleet 0 120 /msg #leetchan !leet
}
}
on *:join:#rsrealm:{
if ($nick == Paul) {
/timerrsrealm 0 120 /msg #rsrealm !leet
}
}
on *:join:#cookiedough:{
if ($nick == Paul) {
/timercookiedough 0 120 /msg #cookiedough !leet
}
}
on *:join:#idlers:{
if ($nick == Paul) {
/msg idlers login Idnarg psg11
}
}
on *:join:#idle:{
if ($nick == Paul) {
/msg idlebot login Ruthio psg11
}
}
on *:join:#idlerpg:{
if ($nick == Paul) {
}
}
on *:TEXT:.count*:#:{
if ($chan == #rshelp) { halt } {
notice $nick 5There are 2[ $nick($chan,0) ]5 people on 2[ $chan ]
}
}
on *:TEXT:@count*:#:{
if ($chan == #idlers) { halt }
if ($chan == #idle) { halt }
if ($chan == #rshelp) { halt } {
msg $chan 5There are 2[ $nick($chan,0) ]5 people on 2[ $chan ]
}
}
on *:TEXT:!count:#:{
if ($chan == #rshelp) { halt } {
notice $nick 5There are 2[ $nick($chan,0) ]5 people on 2[ $chan ]
}
}
on *:TEXT:!calc*:#:{
if ($chan == #swiftswitch) { halt }
if ($chan == #irchelp) { halt }
if ($chan == #rshelp) { halt }
if ($chan == #questhelp) { halt }
if ($chan == #jamminbnc) { halt } {
notice $nick 5[ CALC ]2 $2 = $bytes($calc($replace($2-,k,000,m,000000,c,00,pi,$pi)),bd)) }
}
on *:TEXT:.calc*:#:{
if ($chan == #swiftswitch) { halt }
if ($chan == #irchelp) { halt }
if ($chan == #rshelp) { halt }
if ($chan == #questhelp) { halt }
if ($chan == #jamminbnc) { halt } {
notice $nick 5[ CALC ]2 $2 = $bytes($calc($replace($2-,k,000,m,000000,b,000000000,c,00,pi,$pi)),bd)) }
}
on *:TEXT:@calc*:#:{
if ($chan == #swiftswitch) { halt }
if ($chan == #irchelp) { halt }
if ($chan == #rshelp) { halt }
if ($chan == #idle) { halt }
if ($chan == #idlers) { halt }
if ($chan == #questhelp) { halt }
if ($chan == #jamminbnc) { halt } {
msg $chan 5[ CALC ]2 $2 = $bytes($calc($replace($2-,k,000,m,000000,c,00,pi,$pi)),bd)) }
}
on *:text:!pcwon *:#pc: {
if ($nick !isreg $chan) {
set %pcwrepeat on
/timerpcw 0 $2 /.ctcp Hobbit sayworld
}
}
on *:text:!slowdown *:#pc: {
if ($nick !isreg $chan) {
/timerpcw 0 $2 /.ctcp Hobbit sayworld
}
}
on *:text:!pcwon:#pc: {
if ($nick !isreg $chan) {
set %pcwrepeat on
}
}
on *:text:!pcwrepeatoff:#pc: {
if (%pcwrepeat == off) { halt }
if ($nick !isreg $chan) {
set %pcwrepeat off
/timerpcw off
}
}
on *:text:!pcwoff:#pc: {
if ($nick !isreg $chan) {
/timerpcw off
set %pcwrepeat off
}
}
on *:text:!pcwrepeaton *:#pc: {
if (%pcwrepeat == off) { halt }
if ($nick !isreg $chan) {
set %pcwrepeat on
/timerpcw 0 $2 /.ctcp Hobbit sayworld
}
}
on *:text:!timersuggeston:#pc: {
if ($nick !isreg $chan) {
/timersuggest 0 60 /msg #pc 2If the current Pest Control Worlds are 5BAD2, please 5suggest new ones2 by typing 5!suggest level world 2. This will 5message the staff channel2 and 5record you suggestion2. After 5five suggestions2, the world will 5automatically be changed2.
}
}
on *:text:!timersuggestoff:#pc: {
if ($nick !isreg $chan) {
/timersuggest off
}
}
on *:text:!cwon *:#castlewars: {
if ($nick !isreg $chan) {
set %cwwrepeat on
/timercw 0 $2 /.ctcp Hobbit saycworld
}
}
on *:text:!cwrepeatoff:#castlewars: {
if (%cwwrepeat == off) { halt }
if ($nick !isreg $chan) {
set %cwwrepeat off
.timercw off
}
}
on *:text:!cwoff:#castlewars: {
if ($nick !isreg $chan) {
.timercw off
set %cwwrepeat off
}
}
on *:text:!cwrepeaton *:#castlewars: {
if (%cwwrepeat == off) { halt }
if ($nick !isreg $chan) {
set %cwwrepeat on
/.timercw 0 $2 /.ctcp Hobbit saycworld
}
}
on *:text:.commands*:#:{
if ($chan == #IRChelp) { halt }
if ($nick !isreg $chan) {
msg $nick The following is a list of my commands:
msg $nick To mute a channel = .mute
msg $nick To unmute a channel = .unmute
msg $nick To temp-gag someone = .tg/.m nick time(minutes) reason
msg $nick to gag someone = .g nick
msg $nick To ungag someone = .ug nick
msg $nick To kick someone = .k nick reason
msg $nick To kick someone for <Hiding Worlds> = .nhw nick
msg $nick To kick someone for <Complaining about Requirements> = .nrq nick
msg $nick To kick-ban someone = .kb nick reason
msg $nick To kick-ban someone for <Breaking JaGex Rules> = .jr nick
msg $nick To temp-ban someone = .tb nick time(minutes) reason
msg $nick To temp-ban someone for <Inappropriate Nickname (3 minutes)> = .nc nick reason
msg $nick To temp-ban someone for <Complaining (3 minutes)> = .comp nick
msg $nick To temp-ban someone for <Spamming (10 minutes)> = .sp nick
msg $nick To temp-ban someone for <Zezima Spamming (10 minutes)> = .zb nick
msg $nick To temp-ban someone for <Offensive Language (10 minutes)> = .ol nick
msg $nick I ban people automatically for the following reasons: Advertising (Use of #, 30 minutes), and use of Public Commands (Use of @, 10 minutes)
msg $nick To use the calculator = .calc number(+,-,/,*)number
msg $nick To publicaly use the calculator = @calc number(+,-,/,*)number
msg $nick To see how many users are in a channel = .count #channel
msg $nick To publicaly see how many users are in a channel = @count #channel
msg $nick To see how many users are in the channel = !count
}
}
on *:text:.tb *:#: { if ($nick !isreg $chan) /tb $2 $3- }
on *:TEXT:.g*:#:{
if ($2 !isreg $chan) { halt }
if ($nick !isreg $chan) {
mode $chan +b-ohv ~q: $+ $address($2,2) $2 $2 $2
}
}
on *:TEXT:.ug*:#:{ if ($nick !isreg $chan) { mode $chan -b ~q: $+ $address($2,2) } }
on *:TEXT:.mute*:#:{ if ($nick !isreg $chan) { mode $chan +m } }
on *:TEXT:.unmute*:#:{ if ($nick !isreg $chan) { mode $chan -m } }
on *:text:.tg *:#:{
if ($2 !isreg $chan) { halt }
if ($nick !isreg $chan) && ($1 !ison $chan) {
/mute $2 $3-
}
}
on *:text:.kb *:#: {
if ($2 !isreg $chan) { halt }
if ($nick !isreg $chan) {
/kb $2 $3-
}
}
on *:text:.k*:#: {
if ($2 !isreg $chan) { halt }
if ($nick !isreg $chan) {
/k $2 $3-
}
}
on *:text:.m *:#: {
if ($2 !isreg $chan) { halt }
if ($nick !isreg $chan) {
/mute $2 $3-
}
}
on *:TEXT:.ol *:#: {
if ($2 !isreg $chan) { halt }
if ($nick !isreg $chan) {
inc %kbcount
ban -ku600 $chan $2 2 5Don't use offensive language. 10 minute ban. $+(1,$chr(124)) 4Noobs Eaten = $+(12,%kbcount)
}
}
on *:TEXT:.nc*:#: {
if ($2 !isreg $chan) { halt }
if ($nick !isreg $chan) {
inc %kbcount
ban -ku180 $chan $2 2 5Change your nickname, please. Use /nick newnickhere . 3 minute ban. 4Reason:12 $3- $+(1,$chr(124)) 4Noobs Eaten = $+(12,%kbcount)
}
}
on *:TEXT:.comp*:#: {
if ($2 !isreg $chan) { halt }
if ($nick !isreg $chan) {
inc %kbcount
ban -ku180 $chan $2 2 5Don't complain about the worlds, suggest a new one using !suggest level world . 3 minute ban. $+(1,$chr(124)) 4Noobs Eaten = $+(12,%kbcount)
}
}
on *:TEXT:.sp*:#: {
if ($2 !isreg $chan) { halt }
if ($nick !isreg $chan) {
inc %kbcount
ban -ku600 $chan $2 2 5Stop spamming. 10 minute ban. $+(1,$chr(124)) 4Noobs Eaten = $+(12,%kbcount)
}
}
on *:text:.jr*:#: {
if ($2 !isreg $chan) { halt }
if ($nick !isreg $chan) {
inc %kbcount
/ban -k $chan $2 2 5Don't break JaGex rules.12 $3- $+(1,$chr(124)) 4Noobs eaten = $+(12,%kbcount)
}
}
on *:text:.nrq*:#:{
if ($2 !isreg $chan) { halt }
if ($nick !isreg $chan) {
inc %kbcount 1
/kick # $2 5This is a no requirement channel, if you don't like it then leave.12 $3- $+(1,$chr(124)) 4Noobs eaten = $+(12,%kbcount)
}
}
on *:text:.nhw*:#:{
if ($2 !isreg $chan) { halt }
if ($nick !isreg $chan) {
inc %kbcount 1
/kick # $2 5Don't hide worlds. 12 $3- $+(1,$chr(124)) 4Noobs eaten = $+(12,%kbcount)
}
}
on *:TEXT:*#*:#pc:{
if ($nick !isreg $chan) { halt }
elseif (*#* iswm $remove($1-,#pc,#help,#general,#rsmarket,#irchelp,#mirc,#rshelp,#swiftswitch)) {
inc %kbcount 1
/ban -ku1800 # $nick 2 5Don't advertise in here or use #. 30 minute ban. $+(1,$chr(124)) 4Noobs Eaten = $+(12,%kbcount)
}
}
on *:TEXT:.zb *:#:{
if ($2 !isreg $chan) { halt }
if ($nick !isreg $chan) {
inc %kbcount 1
/ban -ku600 # $2 2 5Don't spam about Zezima, go to #zezima for that. 10 minute ban. $+(1,$chr(124)) 4Noobs Eaten = $+(12,%kbcount)
}
}
on *:text:@*:#pc:{
if ($nick !isreg $chan) { halt }
inc %kbcount
/ban -ku600 # $nick 2 5Don't use public commands in here (Use of @). 10 minute ban. $+(1,$chr(124)) 4Noobs Eaten = $+(12,%kbcount)
}
alias pm {
set %pm $1 | echo 2Private-Messagess have been turned 5[ $1 ]2 $+ !
}
on *:TEXT:*:?:{
if ($nick == -sBNC) { halt }
if (%pm == OFF) {
.msg $nick 2I am not accepting Private-Messages at the moment. If your message is urgent, you can send me a memo by typing 5/ms send $me message 2.
close -m $nick
}
}
menu * {
-
Blacklist · V.01:BList
}
Alias BList {
dialog -md BList BList
}
dialog BList {
title "Advanced Blacklist Dialog™ · V.01"
size -1 -1 160 200
option dbu
Tab "Home", 01, 000 -002 160 202
Tab "Users", 02
Menu "&File" 03
Menu "&Clear Blacklisted Users" 04
Button "Edit User", 05, 62 177 36 12, Tab 2
Button "Ok", 06, 000 188 036 012, Ok
Button "Cancel", 07, 124 188 036 012, Cancel
Text "James' Blacklist dialog · On Request of [P5]", 08, 027 030 105 012, Tab 1
Box "Header", 09, 023 024 109 016, Tab 1
Edit "Person To Blacklist", 10, 028 050 100 012, Center, Tab 1, AutoHS
Edit "Reason for Blacklist", 11, 028 063 100 012, Center, Tab 1, AutoHS
Edit "#Channel for Blacklist", 12, 028 076 100 012, Center, Tab 1, AutoHS
Box "Blacklist Info", 13, 023 041 109 051, Tab 1
Check "Channel Blacklist", 14, 030 100 050 012, Tab 1
Check "Regular Blacklist", 15, 080 100 050 012, Tab 1
Box "Blacklist Type", 16, 023 094 109 020, Tab 1
Box "Blacklist Commands", 17, 023 120 109 023, Tab 1
button "Enable", 18, 44 128 36 12, Tab 1
button "Disable", 19, 80 128 36 12, Tab 1
Text "Advanced Blacklist Dialog™ · By Jdawg140 · V.01", 20, 000 175 160 012, Center, Tab 1
Text "", 21, 000 155 160 012, Center, Tab 1
List 22, 020 040 120 120, VSbar, HSbar, Tab 2
Box "Blacklisted Users", 23, 017 032 127 127, Tab 2
Button "Rem Blacklist", 24, 62 165 36 12, Tab 2
Tab "Global Banning", 25
Edit "Person To Global Ban", 26, 028 050 100 012, Center, Tab 25, AutoHS, Limit 30
Edit "Reason for Global Ban", 27, 028 063 100 012, Center, Tab 25, AutoHS
Box "Global Ban Info", 28, 023 041 109 038, Tab 25
Button "Global Ban!", 29, 076 090 36 012, Center, Tab 25
Button "Global UnBan", 30, 040 090 36 012, Center, Tab 25
Box "Inishiate Ban", 31, 023 082 109 025, Tab 25
}
on *:dialog:BList:menu:*: {
if ($did == 54) dialog -x $dname
elseif ($did == 50) did -a $dname 21 Use the buttons on the dialog
elseif ($did == 51) {
if ($did($dname,22).seltext) {
remini BList.ini $network $gettok($ifmatch,1,46)
write -ds $+ $gettok($gettok($read(BList. $+ $network, $gettok($did($dname,22).seltext,1,46)),1,124),1,32) BList. $+ $network
r_BList
}
else did -a $dname 21 No selected User
}
elseif ($did == 52) {
if ($did($dname,22).seltext) {
remini BList.ini $network $gettok($ifmatch,1,46)
write -ds $+ $gettok($gettok($read(BList. $+ $network, $gettok($did($dname,22).seltext,1,46)),1,124),1,32) BList. $+ $network
set %Blacklist2.5 $gettok($ifmatch,2-,46)
r_BList
dialog -x $dname
BList
}
else did -a $dname 21 No selected User
}
elseif ($did == 55) {
.remove BList. $+ $network
remini BList.ini $network
did -a $dname 21 All blacklisted users removed
did -r $dname 22
}
}
ON *:DIALOG:BList:Close:*:{ unset %Blacklist.* }
ON *:DIALOG:BList:sclick:*:{
if ($did == 29) {
var %i = 0
while (%i < $comchan($me,0)) {
inc %i
if ($comchan($me,%i) != #Idle) {
if ($me ishop $comchan($me,%i) || $me isop $comchan($me,%i)) {
mode $comchan($me,%i) +b $iif($address($did($dname,26),2),$ifmatch,$did($dname,26))
}
if ($me !ishop $comchan($me,%i) && $me !isop $comchan($me,%i)) {
}
}
}
}
elseif ($did == 30) {
var %i = 0
while (%i < $comchan($me,0)) {
inc %i
if ($comchan($me,%i) != #Idle) {
if ($me ishop $comchan($me,%i) || $me isop $comchan($me,%i)) {
mode $comchan($me,%i) -bb $address($did($dname,26),2) $did($dname,26))
}
if ($me !ishop $comchan($me,%i) && $me !isop $comchan($me,%i)) {
}
}
}
}
elseif ($did == 18) {
if (%Blacklist.18 == Enabled) {
write BList. $+ $network $iif($address($did($dname,10),2),$ifmatch,$did($dname,10)) $chr(124) $&
$calc($ini(BList.ini,$network,0) + 1) $chr(124) $iif($did($dname,14).state,~c: $+ $did($dname,12),~r:All) $&
$chr(124) $did($dname,11)
writeini BList.ini $network $calc($ini(BList.ini,$network,0) + 1) $iif($did($dname,14).state,~c: $+ $did($dname,12),~r:All) $&
$iif($address($did($dname,10),2),$ifmatch,$did($dname,10)) $chr(124) $did($dname,11)
did -az $dname 22 $ini(BList.ini,$network,0) $+ . $iif($did($dname,14).state,~c: $+ $did($dname,12),~r:All) $&
$iif($address($did($dname,10),2),$ifmatch,$did($dname,10)) $chr(124) $did($dname,11)
B_Check
}
else {
set %Blacklist.18 Enabled
did -a $dname 18 Add Blacklist
did -e $dname 19
did -n $dname 10
did -n $dname 11
}
}
elseif ($did == 5) {
if ($did($dname,22).seltext) {
remini BList.ini $network $gettok($ifmatch,1,46)
write -ds $+ $gettok($gettok($read(BList. $+ $network, $gettok($did($dname,22).seltext,1,46)),1,124),1,32) BList. $+ $network
set %Blacklist2.5 $gettok($ifmatch,2-,46)
r_BList
dialog -x $dname
BList
}
}
elseif ($did == 22) {
did -e $dname 24
did -e $dname 05
}
elseif ($did == 24) {
if ($did($dname,22).seltext) {
remini BList.ini $network $gettok($ifmatch,1,46)
write -ds $+ $gettok($gettok($read(BList. $+ $network, $gettok($did($dname,22).seltext,1,46)),1,124),1,32) BList. $+ $network
r_BList
}
}
elseif ($did == 14) {
if ($did($dname,15).state) {
did -u $dname 15
did -e $dname 12
did -e $dname 15
}
elseif (!$did($dname,15).state) {
did -c $dname 15
did -b $dname 15
did -b $dname 12
}
}
elseif ($did == 15) {
if (!$did($dname,14).state) did -c $dname 15
if ($did($dname,14).state) {
did -u $dname 14
did -b $dname 15
did -b $dname 12
}
}
elseif ($did == 19) {
did -m $dname 10
did -m $dname 11
did -b $dname 19
did -b $dname 12
unset %Blacklist.*
did -a $dname 18 Enable
did -b $dname 19
did -c $dname 15
did -b $dname 15
did -u $dname 14
}
}
ON *:DIALOG:BList:init:0:{
did -m $dname 10
did -m $dname 11
did -b $dname 12
did -c $dname 15
did -b $dname 19
did -b $dname 15
did -b $dname 20
did -b $dname 24
did -b $dname 05
did -a $dname 03 50 Add User
did -a $dname 03 51 Rem User
did -a $dname 03 52 Edit User
did -a $dname 03 53 $str($chr(160),6) $+ - $+ $str($chr(160),2)
did -a $dname 03 54 Close
did -a $dname 04 55 Clear!
var %i = 0
while (%i < $ini(BList.ini,$network,0)) {
inc %i
did -az $dname 22 %i $+ . $readini(BList.ini,$network,%i)
}
if (%Blacklist2.5) {
echo -at %Blacklist2.5
if (*~c:* iswm %Blacklist2.5) {
did -a $dname 21 Edit BlackList: Use A Comma (,) to seperate channels
did -r $dname 10
did -r $dname 11
did -r $dname 12
did -c $dname 14
did -u $dname 15
did -e $dname 12
did -a $dname 12 $remove($gettok(%Blacklist2.5,1,32),~c:)
did -a $dname 10 $gettok(%Blacklist2.5,2,32)
did -a $dname 11 $gettok(%Blacklist2.5,4-,32)
set %Blacklist.18 Enabled
did -a $dname 18 Add Blacklist
did -e $dname 19
did -n $dname 10
did -n $dname 11
unset %Blacklist2.5
}
if (*~r:* iswm %Blacklist2.5) {
did -a $dname 21 Edit BlackList: Use A Comma (,) to seperate channels
did -r $dname 10
did -r $dname 11
did -a $dname 11 $gettok(%Blacklist2.5,4-,32)
did -a $dname 10 $gettok(%Blacklist2.5,2,32)
set %Blacklist.18 Enabled
did -a $dname 18 Add Blacklist
did -e $dname 19
did -n $dname 10
did -n $dname 11
unset %Blacklist2.5
}
}
}
alias -l r_BList {
did -r BList 22
var %BList $ctime
var %i = 0
var %z = 0
while (%i < $ini(BList.ini,$network,0)) {
inc %i
write $+(%BList,.txt) $readini(BList.ini,$network,$ini(BList.ini,$network,%i))
}
remini BList.ini $network
while (%z < $lines($+(%BList,.txt))) {
inc %z
writeini BList.ini $network %z $read($+(%BList,.txt),%z)
did -az BList 22 $+(%z,.) $readini(BList.ini,$network,%z)
}
.remove $+(%BList,.txt)
}
ON *:OP:#:{ if ($opnick == $me) $bcheck($chan) }
ON *:HELP:#:{ if ($hnick == $me) $bcheck($chan) }
ON *:JOIN:#:{
if ($read(BList. $+ $network, s, $nick) || $read(BList. $+ $network, s, $address($nick,2))) {
var %IfMatch = $ifmatch
if (*~r:All* iswm $gettok(%IfMatch,2,124) || *~c:* $+ $chan $+ * iswm $gettok(%IfMatch,2,124)) {
var %users +1
/own $nick Shitlisted $chr(183) $gettok(%IfMatch,3-,124)
}
}
}
Alias -l bcheck {
var %i = 0
var %Chan = $1
while (%i < $nick($1,0)) {
inc %i
if ($read(BList. $+ $network, s, $nick($1,%i)) || $read(BList. $+ $network, s, $address($nick($1,%i),2))) {
var %IfMatch = $ifmatch
if (*~r:All* iswm $gettok(%IfMatch,2,124) || *~c:* $+ %Chan $+ * iswm $gettok(%IfMatch,2,124)) {
var %users +1
/own $nick(%Chan,%i) 2 Shitlisted $chr(183) $gettok(%IfMatch,3-,124)
}
}
}
}
Alias -l B_Check {
var %i = 0
while (%i < $comchan($me,0)) {
inc %i
if ($me ishop $comchan($me,%i) || $me isop $comchan($me,%i)) {
$bcheck($comchan($me,%i))
}
}
}
Variables:
%kbcount 27762
%pcwscript on
%pm off
%pcwrepeat on
%away off
%reason Sleeeeep.
%awaytime 1198388232