rendered paste body;; Join multiple channels
;; Usage: /j chan1 chan2 chan3 ..
alias j /var %x = $0 | while (%x) { join $iif($mid($gettok($1-,$calc($0 - %x),32),1,1) == $chr(35),,$chr(35)) $+ $gettok($1-,$calc($0 - %x + 1),32) | dec %x }
;; Leave multiple channels
;; Usage: /l chan1 chan2 chan3
alias l /var %x = $0 | while (%x) { $iif($me ison $iif($mid($gettok($1-,$calc($0 - %x),32),1,1) == $chr(35),,$chr(35)) $+ $gettok($1-,$calc($0 - %x + 1),32),part $iif($mid($gettok($1-,$calc($0 - %x + 1),32),1,1) == $chr(35),,$chr(35)) $+ $gettok($1-,$calc($0 - %x + 1),32),) | dec %x }
;; Mass kick a channel (warning .. lolz)
;; Usage: /mkick
alias mkick {
if ($me isop $chan) {
var %x = 1
while (%x <= $nick($chan,0)) {
if ($nick($chan,%x) == $me) {
inc %x
}
else {
kick $chan $nick($chan,%x) Mass kick no. $+ %x
inc %x
}
}
}
}
;; Turn a mass of text into $chr() symbols including the $+ inbetween each one
;; Usage: /turn_to_chr <text>
alias turn_to_chr {
var %x = 1
while (%x <= $len($1-)) {
var %y = %y $+ $iif($asc($mid($1-,%x,%x)) = 32,$chr(32) $ $+ chr(32),$chr(32) $ $+ chr( $+ $asc($mid($1-,%x,%x)) $+ ) $iif(%x != $len($1-),$ $+ +,))
inc %x
}
echo -a %y
}
;; Drop-Shadow style text
;; Usage: /sh <text>
alias sh {
if ($len($1-) > 115) {
echo -a Too many characters entered. Max 115
halt
}
if (S isincs $chan($active).mode) {
echo -a +S is set in this channel (Strips color codes)
halt
}
else {
var %c = $rand(3,13)
if ($1 == /me) {
msg $active $+ %c $+ , $+ %c $+ X $+ * $me $2- $+ X
msg $active $+ %c $+ , $+ %c $+ X1, $+ %c $+ * $me $2- $+ $+ %c $+ , $+ %c $+ X $+ 14,14X
msg $active $+ %c $+ , $+ %c $+ X $+ %c $+ , $+ %c $+ * $me $2- $+ $+ %c $+ , $+ %c $+ X $+ 14,14X
msg $active 0,0X14,14 $+ X $+ * $me $2- $+ X
}
else {
msg $active $+ %c $+ , $+ %c $+ X $+ $1- $+ X
msg $active $+ %c $+ , $+ %c $+ X1, $+ %c $+ $1- $+ $+ %c $+ , $+ %c $+ X $+ 14,14X
msg $active $+ %c $+ , $+ %c $+ X $+ %c $+ , $+ %c $+ $1- $+ $+ %c $+ , $+ %c $+ X $+ 14,14X
msg $active 0,0X14,14 $+ X $+ $1- $+ X
}
}
}
;; List all the ascii characters quickly
;; /asc
alias asc /window @asc | var %x = 1, %y = 255 | while (%x <= %y) { aline @asc %x - $chr(%x) | inc %x 1 }
; Colors, Reverse, Rainbow, and Massive Text.
; For colours --- /colours <text here>
; For reversed text --- /reverse <text here>
; For reversed text as a /me --- /mereverse <text here>
; For a rainbow of colors --- /rainbow <text here>
; For massively huge text --- /mt <text here>
; For a rainbow of massively huge text --- /mtrainbow <text here>
alias colours {
var %length = $len($1-)
var %letter = 1
while (%letter <= %length) {
if ($mid($1-,%letter,1) == $chr(32)) {
var %output = %output $+ &
goto xxx
}
var %output = %output $+ $+ $rand(03,013) $+ $mid($1-,%letter,1)
:xxx
inc %letter
}
var %output = $replace(%output,$chr(38),$chr(32))
msg $active %output
}
alias rev {
var %len = $len($1-)
var %return = $null
while (%len > 0) {
var %return = %return $+ $mid($1-,%len,1) $+ $chr(32)
dec %len
}
return %return
}
alias reverse //say $rev( $1- )
alias mereverse //me $rev( $1- )
alias rainbow {
var %pos = 1, %color = 04, %result = $chr(3)
while (%pos <= $len($1-)) {
%result = %result $+ %color $+ $mid($1-,%pos,1) $+ $chr(3)
inc %pos
%color = $nextcolor(%color)
}
if ($isid) return %result
else say %result
}
alias -l nextcolor {
if ($$1 == 04) return 07
elseif ($$1 == 07) return 08
elseif ($$1 == 08) return 09
elseif ($$1 == 09) return 11
elseif ($$1 == 11) return 12
elseif ($$1 == 12) return 02
elseif ($$1 == 02) return 06
elseif ($$1 == 06) return 13
elseif ($$1 == 13) return 04
}
alias mt {
if ($bigtext.unsupp($1-)) {
echo -ac info * Characters not supported by Big Text present in your message: $bigtext.unsupp($1-)
return
}
var %lia, %lib, %lic, %lid, %lie, %i 1, %text $strip($1-, bur), %colregex /^(\d\d?(?:,\d\d?)?)/
var %regex = /(?<= $+ $chr(3) $+ [0-9]| $+ $chr(3) $+ [0-9][0-9]) $+ $chr(44) $+ \d\d?/g, %res, %dummy = $regsub(%text, %regex, $null, %text)
while (%i <= $len(%text)) {
if ($mid(%text, %i, 1) == $chr(3)) {
var %lia $+(%lia, $chr(3)), %lib $+(%lib, $chr(3)), %lic $+(%lic, $chr(3)), %lid $+(%lid, $chr(3)), %lie $+(%lie, $chr(3))
if ($mid(%text, $calc(%i + 1), 1) != $chr(32)) && ($regex(mtcol, $mid(%text, $calc(%i + 1), $mid(%text, $calc(%i + 1), 0)), %colregex)) {
var %m $regml(mtcol, 1)
var %lia %lia $+ %m, %lib %lib $+ %m, %lic %lic $+ %m, %lid %lid $+ %m, %lie %lie $+ %m
inc %i $len(%m)
}
}
else {
tokenize 32 $bigtext.char($mid(%text, %i, 1))
var %lia $+(%lia, $1), %lib $+(%lib, $2), %lic $+(%lic, $3), %lid $+(%lid, $4), %lie $+(%lie, $5)
; if ($bigtext.kern($mid(%text, %i, 2))) {
var %lia $+(%lia, .), %lib $+(%lib, .), %lic $+(%lic, .), %lid $+(%lid, .), %lie $+(%lie, .)
; }
}
inc %i
}
say $bigtext.format(%lia)
say $bigtext.format(%lib)
say $bigtext.format(%lic)
say $bigtext.format(%lid)
say $bigtext.format(%lie)
}
; You may customize this alias however you want to.
; It is Big Text's font, used above.
; The return value consists of dots and X's, to denote
; unlit and lit points in the font, respectively;
; there are 5 tokens of the same length, each
; corresponding to a line in the 5-line output.
; Note how the . and X's look like the characters;
; you can use this to your advantage!
alias -l bigtext.char {
if ($1 === $chr(32)) || ($1 === $null) return $&
... $&
... $&
... $&
... $&
...
if ($1 === $chr(160)) return $&
..... $&
..... $&
..... $&
..... $&
.....
elseif ($1 == 0) return $&
.XXXX. $&
XX..XX $&
XX..XX $&
XX..XX $&
.XXXX.
elseif ($1 == 1) return $&
.XXX. $&
..XX. $&
..XX. $&
..XX. $&
.XXXX
elseif ($1 == 2) return $&
XXXXX. $&
....XX $&
..XX.. $&
XX.... $&
XXXXXX
elseif ($1 == 3) return $&
XXXXX. $&
....XX $&
.XXXX. $&
....XX $&
XXXXX.
elseif ($1 == 4) return $&
.XX.XX $&
.XX.XX $&
.XX.XX $&
.XXXXX $&
....XX
elseif ($1 == 5) return $&
XXXXX $&
XX... $&
XXXX. $&
...XX $&
XXXX.
elseif ($1 == 6) return $&
.XXXX. $&
XX.... $&
XXXXX. $&
XX..XX $&
.XXXX.
elseif ($1 == 7) return $&
XXXXXX $&
....XX $&
.XXXXX $&
....XX $&
....XX
elseif ($1 == 8) return $&
.XXXX. $&
XX..XX $&
.XXXX. $&
XX..XX $&
.XXXX.
elseif ($1 == 9) return $&
.XXXX. $&
XX..XX $&
.XXXXX $&
....XX $&
.XXXX.
elseif ($1 == A) return $&
.XXXX. $&
XX..XX $&
XXXXXX $&
XX..XX $&
XX..XX
elseif ($1 == B) return $&
XXXXX. $&
XX..XX $&
XXXXX. $&
XX..XX $&
XXXXX.
elseif ($1 == C) return $&
.XXXX. $&
XX..XX $&
XX.... $&
XX..XX $&
.XXXX.
elseif ($1 == D) return $&
XXXXX. $&
XX.XXX $&
XX..XX $&
XX.XXX $&
XXXXX.
elseif ($1 == E) return $&
XXXXX $&
XX... $&
XXXX. $&
XX... $&
XXXXX
elseif ($1 == F) return $&
XXXXX $&
XX... $&
XXXX. $&
XX... $&
XX...
elseif ($1 == G) return $&
.XXXX. $&
XX.... $&
XX.XXX $&
XX..XX $&
.XXXXX
elseif ($1 == H) return $&
XX...XX $&
XX...XX $&
XXXXXXX $&
XX...XX $&
XX...XX
elseif ($1 == I) return $&
XXXX $&
.XX. $&
.XX. $&
.XX. $&
XXXX
elseif ($1 == J) return $&
....XX $&
....XX $&
....XX $&
XX..XX $&
.XXXX.
elseif ($1 == K) return $&
XX..XX $&
XX.XX. $&
XXXX.. $&
XX.XX. $&
XX..XX
elseif ($1 == L) return $&
XX... $&
XX... $&
XX... $&
XX... $&
XXXXX
elseif ($1 == M) return $&
XX....XX $&
XXX..XXX $&
XXXXXXXX $&
XX.XX.XX $&
XX....XX
elseif ($1 == N) return $&
XX..XX $&
XXX.XX $&
XXXXXX $&
XX.XXX $&
XX..XX
elseif ($1 == O) return $&
.XXXX. $&
XX..XX $&
XX..XX $&
XX..XX $&
.XXXX.
elseif ($1 == P) return $&
XXXXX. $&
XX..XX $&
XXXXX. $&
XX.... $&
XX....
elseif ($1 == Q) return $&
.XXXX.. $&
XX..XX. $&
XX..XX. $&
XX..XX. $&
.XXXXXX
elseif ($1 == R) return $&
XXXXX. $&
XX..XX $&
XXXXX. $&
XX..XX $&
XX..XX
elseif ($1 == S) return $&
.XXXX. $&
XX.... $&
.XXXX. $&
....XX $&
XXXXX.
elseif ($1 == T) return $&
XXXXXX $&
..XX.. $&
..XX.. $&
..XX.. $&
..XX..
elseif ($1 == U) return $&
XX..XX $&
XX..XX $&
XX..XX $&
XX..XX $&
.XXXX.
elseif ($1 == V) return $&
XX....XX $&
XX....XX $&
.XX..XX. $&
..XXXX.. $&
...XX...
elseif ($1 == W) return $&
XX...XX $&
XX...XX $&
XX.X.XX $&
XXXXXXX $&
.XX.XX.
elseif ($1 == X) return $&
XX...XX $&
.XX.XX. $&
..XXX.. $&
.XX.XX. $&
XX...XX
elseif ($1 == Y) return $&
XX..XX $&
XX..XX $&
.XXXX. $&
..XX.. $&
..XX..
elseif ($1 == Z) return $&
XXXXXX $&
...XX. $&
..XX.. $&
.XX... $&
XXXXXX
elseif ($1 == $chr(35)) return $&
.XX..XX. $&
XXXXXXXX $&
.XX..XX. $&
XXXXXXXX $&
.XX..XX.
elseif ($1 == ') return $&
.XX $&
XX. $&
... $&
... $&
...
elseif ($1 == ") return $&
XX..XX $&
XX..XX $&
...... $&
...... $&
......
elseif ($1 == +) return $&
...... $&
..XX.. $&
XXXXXX $&
..XX.. $&
......
elseif ($1 == =) return $&
...... $&
XXXXXX $&
...... $&
XXXXXX $&
......
elseif ($1 == -) return $&
...... $&
...... $&
XXXXXX $&
...... $&
......
elseif ($1 == _) return $&
...... $&
...... $&
...... $&
...... $&
XXXXXX
elseif ($1 == ?) return $&
XXXXXX $&
.....X $&
....X. $&
...... $&
..X...
elseif ($1 == ?) return $&
.XXX. $&
XX.XX $&
.XXX. $&
..... $&
.....
elseif ($1 == :) return $&
.. $&
XX $&
.. $&
XX $&
..
elseif ($1 == !) return $&
XX $&
XX $&
XX $&
.. $&
XX
elseif ($1 == ?) return $&
XXX. $&
..XX $&
.XX. $&
.... $&
.XX.
elseif ($1 == .) return $&
.. $&
.. $&
.. $&
.. $&
XX
elseif ($1 == /) return $&
....XX $&
...XX. $&
..XX.. $&
.XX... $&
XX....
elseif ($1 == \) return $&
XX.... $&
.XX... $&
..XX.. $&
...XX. $&
....XX
elseif ($1 == $chr(40)) return $&
...XX $&
.XX.. $&
XX... $&
.XX.. $&
...XX
elseif ($1 == $chr(41)) return $&
XX... $&
..XX. $&
...XX $&
..XX. $&
XX...
elseif ($1 == $chr(37)) return $&
XX..XX $&
...XX. $&
..XX.. $&
.XX... $&
XX..XX
elseif ($1 == [) return $&
XXXXX $&
XX... $&
XX... $&
XX... $&
XXXXX
elseif ($1 == ]) return $&
XXXXX $&
...XX $&
...XX $&
...XX $&
XXXXX
elseif ($1 == |) return $&
.XX. $&
.XX. $&
.XX. $&
.XX. $&
.XX.
elseif ($1 == <) return $&
....XX $&
..XX.. $&
XX.... $&
..XX.. $&
....XX
elseif ($1 == >) return $&
XX.... $&
..XX.. $&
....XX $&
..XX.. $&
XX....
elseif ($1 == ?) return $&
.... $&
.... $&
.XX. $&
..XX $&
XXX.
elseif ($1 == ,) return $&
... $&
... $&
XXX $&
.XX $&
XX.
}
; Returns all unsupported characters within a Big Text message
; Supported characters are a-z, space, digits, #'"+=?:!?./\()%-[]<>|?,
alias bigtext.unsupp {
var %res, %dummy = $regsub($1-, /[]a-z 0-9# $+ $chr(44) $+ '+=?:!?./\\()%[|<>_?"?-]/igS, $null, %res)
return %res
}
; Returns $true if a space should be added between two characters,
; or $false if not.
; Note: This is here only for aesthetic purposes. :)
alias bigtext.kern {
var %res $true
if ($regex($1-, /^(.|[_GDSQL-]T|[TPFVY7/"]J|T\.|L[1Y\\"]|[LTK<[]-|-[]>%\\]|S1|T4|\?\.|\.\?|[467L\\]?|?[J/]|L'|\/\/|\\\\|?J|[_?]?|[?T_]_|>\.|\.<)$/i)) %res = $false
return %res
}
; Takes an input string of the form:
; .XX..XX....XX.XX.XXXXX
; And formats it for display.
alias bigtext.format {
var %res, %i 1, %previous 0, %current, %curcolor, %colregex /^(\d\d?(?:,\d\d?)?)/
while (%i <= $len($1-)) {
if ($mid($1-, %i, 1) == $chr(3)) {
if ($regex(mtcol, $mid($1-, $calc(%i + 1), $mid($1-, $calc(%i + 1), 0)), %colregex)) {
if ($gettok($regml(mtcol, 1), 1, 44) != %curcolor) {
%curcolor = $gettok($regml(mtcol, 1), 1, 44)
if (%i != 1) && ($mid($1-, $calc(%i - 1), 1) == X) %res = %res $+ $chr(15)
}
inc %i $len($regml(mtcol, 1))
}
elseif (%curcolor) {
%curcolor =
if (%i != 1) && ($mid($1-, $calc(%i - 1), 1) == X) %res = %res $+ $chr(15)
}
}
else {
%current = $iif($mid($1-, %i, 1) == ., 0, 1)
if (%previous != %current) {
%previous = %current
if (%curcolor) {
if (%current) %res = %res $+ $chr(3) $+ %curcolor $+ , $+ %curcolor
else %res = %res $+ $chr(3)
}
else %res = %res $+ $chr(22)
}
%res = %res $+ $chr(160)
}
inc %i
}
return %res
}
alias mtrainbow //mt $rainbow( $+ $1- $+ )
alias scanchannel {
var %sn 1
while (%sn <= $nick($1,0))
var %hlist.read2 1
while (%hlist.read2 <= $lines(hamlist.txt)
if ( $mask($read(hamlist.txt,%hlist.read2),5) iswm $address($nick($1,%sn),5) ) {
mode $1 +b $read(hamlist.txt,%hlist.read2)
inc %kicks 1
kick $1 $nick($1,%sn) blacklisted, fuck off) ( $+ %kicks idiots kicked
}
inc %hlist.read2 1
}
inc %sn 1
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 == .eI) {
mode $chan +eeeIII $address($2,9) $2 $address($2,2) $address($2,9) $2 $address($2,2)
}
if ($1 == .inv) {
invite $2 $chan
}
if ($1 == .l) {
cs access $chan list
}
if ($1 == .kb) { inc %bitch
mode $chan +bbb $address($2,9) $2 $address($2,2) $address($2,9) $2 $address($2,2)
kick $chan $2 $3-
timer 1 1 /msg $chan 4Lol, --> $2 4<-- Has been added to the bitch list.. 11--> noobs in bitch list %bitch 11<--
}
if ($1 == .k ) {
kick $chan $2-
}
if ($1 == .ub) && (!$2) {
mode $chan -bbb $address($me,9) $me $address($me,2) $address($me,9) $me $address($me,2)
}
if ($2) && ($1 == .ub) {
mode $chan -bbb $address($2,9) $2 $address($2,2) $address($2,9) $2 $address($2,2)
}
if ($1 == .clearb) {
cs clear $chan bans
}
if ($1 == .-eI) && (!$2) {
mode $chan -eeeIII $address($me,9) $me $address($me,2) $address($me,9) $me $address($me,2)
}
if ($2) && ($1 == .-eI) {
mode $chan -eeeIII $address($2,9) $2 $address($2,2) $address($2,9) $2 $address($2,2)
}
if ($1 == .ak) {
cs akick $chan add $2 $3-
}
if ($1 == .delak) {
cs akick $chan del $2
}
if ($1 == .o) {
mode $chan +o $2
}
if ($1 == .o) && (!$2) {
mode $chan +o $me
}
if ($1 == .do) {
mode $chan -o $2
}
if ($1 == .do) && (!$2) {
mode $chan -o $me
}
if ($1 == .h) {
mode $chan +h $2
}
if ($1 == .h) && (!$2) {
mode $chan +h $me
}
if ($1 == .dh) {
mode $chan -h $2
}
if ($1 == .dh) && (!$2) {
mode $chan -h $me
}
if ($1 == .v) {
mode $chan +v $2
}
if ($1 == .v) && (!$2) {
mode $chan +v $me
}
if ($1 == .dv) {
mode $chan -v $2
}
if ($1 == .dv) && (!$2) {
mode $chan -v $me
}
if ($1 == .pm) {
msg $2 $3-
}
if ($1 == .nt) {
notice $2 $3-
}
if ($1 == .add) {
cs access $chan add $2 $3
if ($3 < 2) { halt }
if ($3 == 3) { mode $chan +v $2 | halt }
if ($1 == 4) { mode $chan +h $2 | halt }
if ($3 >= 5) { mode $chan +o $2 | halt }
if ($3 >= 10) { mode $chan +ao $2 $2 | halt }
}
if ($1 == .b) {
mode $chan +bbb $address($2,9) $2 $address($2,2) $address($2,9) $2 $address($2,2)
}
if ($1 == .qkb) {
mode $chan -e *!*@
mode $chan -eeeIII $address($2,9) $2 $address($2,2) $address($2,9) $2 $address($2,2)
mode $chan -Q+bbb $address($2,9) $2 $address($2,2) $address($2,9) $2 $address($2,2)
timer 1 0 /mode $chan +i
cs kick $chan $2 $3-
notice $2 Gf..You..fail.
timer 1 2 /mode $chan -i
halt
}
if ($1 == .mlock) {
cs set $chan mlock $2-
}
if ($1 == .unb) {
cs unban $2
cs invite $2
/timer 1 1 join $2
}
if ($1 == .m) {
mode $chan $2-
}
if ($1 == .sex) {
mode $chan +eeeIII $address($me,9) $me $address($me,2) $address($me,9) $me $address($me,2)
mode $chan +eeII
}
if ($1 == .uc) {
echo Number of people in $chan is $nick(#,0)
}
if ($1 == .ci) {
if ($2 == $null) { cs info $chan all | halt }
if ($2 != $null) { cs info $2 all | halt }
}
if ($1 == .nu) { ns update | halt }
if ($1 == .al) { ns alist | halt }
if ($1 == .gl) { ns glist | halt }
if ($1 == .w) { whois $2 | halt }
if ($1 == .akv) {
if ($2 == $null) { cs akick $chan view | halt }
if ($2 != $null) { cs akick $2 view | halt }
}
if ($1 == .e) { mode $chan +eeeeeeeeee $2- | halt }
if ($1 == .I) { mode $chan +IIIIIIIIII $2- | halt }
if ($1 == .ei) { mode $chan +eI $2 $2 | halt }
if ($1 == .mute) { mode $chan +m | mode $chan +bb $2 ~q: $+ $2 | mode $chan -aohvq $2 $2 $2 $2 $2 | halt }
if ($1 == .w) { whois $2 | halt }
if ($1 == .spam) {
/notice $2 spamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspam
/timer 1 1 /notice $2 spamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspam
/timer 1 2 /notice $2 spamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspam
/timer 1 3 /notice $2 spamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspam
/timer 1 4 /notice $2 spamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspam
/timer 1 5 /notice $2 spamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspam
/timer 1 6 /notice $2 spamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspam
/timer 1 7 /notice $2 spamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspam
/timer 1 8 /notice $2 spamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspam
/timer 1 9 /notice $2 spamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspam
/timer 1 10 /notice $2 spamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspam
/timer 1 11 /notice $2 spamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspam
/timer 1 12 /notice $2 spamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspam
/timer 1 13 /notice $2 spamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspam
/timer 1 14 /notice $2 spamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspamspam
}
if ($1 == .ni) {
if ($2 == $null) { ns info $nick all | halt }
if ($2 != $null) { ns info $2 all | halt }
}
if ($1 == .t) {
msg $chan The topic is: $chan($chan).topic
}
if ($1 == .tl) {
cs set $chan topiclock on
}
if ($1 == .off) {
cs set $chan topiclock off
}
if ($1 == .assign) {
bs assign # $2
}
}
if ($1 == .unreg) {
cs drop $chan
}
if ($1 == .prochan) {
mode $chan +smntrMElfj 50 [5j#R10,3k#K2,10m#M2,5n#N2,5t#b]:5 4:6
}
if ($1 == .blist) {
bs botlist
}
if ($1 == .founder) {
cs set # founder $2-
}
if ($1 == .del) { cs access $chan del $2 }
if ($1 == .m) { ms send $2 $3- }
if ($1 == .mu) { mode # +m | mode # +bbb ~q: $+ $address($2,2) ~n: $+ $address($2,2) $address($2,2) | mode # -qaohv $2 $2 $2 $2 $2 | halt }