rendered paste body{ mode $chan $1- }
/op /mode # +ooo $$1 $2 $3
/dop /mode # -ooo $$1 $2 $3
/j /join $1
/p /part #
/n /names #$$1
/w /whois $$1
/k /kick # $$1 $2-
/q /query $$1
/send /dcc send $1 $2
/chat /dcc chat $1
/ping /ctcp $$1 ping
/s /server $$1-
/j3 /join $1 | /join $2 | /join $3
/deop /mode # -ooo $1 $2 $3
/ban /mode # +b $1 $2 $3
/rsh /join #rshelp
/join /join $1 $2 $3
/id /msg Nickserv IDENTIFY
/a /amsg 15[1AMSG115]1 $1-
/secure /server irc.swiftirc.net:+6697
kb { mode $chan +b $address($$1,2) | mode $chan -Q | kick $chan $$1 $2- }
dbk { mode $chan -aohv $1 $1 $1 $1 | mode $chan +b $address($1,$2) | kick $chan $1 Banned }
mode { mode $chan $1- }
/c {
var %temp = 1, %max = $len($1-), %char, %string, %color = 4 7 8 3 12 6, %cs = $rand(1,$numtok(%color,32))
while (%temp <= %max) {
%char = $mid($1-,%temp,1) | if (%char isnum) %string = %string $+ $+ $gettok(%color,%cs,32) $+ ,99 $+ %char
elseif (%char = $chr(32)) { inc %temp | %char = $mid($1-,%temp,1) | %string = %string $+ $gettok(%color,%cs,32) $+ %char }
else { %string = %string $+ $+ $gettok(%color,%cs,32) $+ %char }
inc %temp | inc %cs | if (%cs > $numtok(%color,32)) %cs = 1
}
if ($isid) return %string | else msg # %string
}
reverse {
var %old = $strip($1-), %temp = $len(%old), %char, %string
while (%temp > 0) {
%char = $mid($1-,%temp,1) | if (%char = $chr(32)) { dec %temp | %char = $mid(%old,%temp,1) | %string = %string %char }
else { %string = %string $+ %char } | dec %temp
remotes:
alias ascii {
set %ascii $1-
%ascii = $replace(%ascii,a,å,b,ß,c,©,d,Ð,e,ê,f,f,g,g,h,h,i,ï,j,j,k,K,l,£,m,m,n,ñ,o,ð,p,þ,q,q,r,®,s,§,t,t,u,ü,v,V,w,w,x,×,y,¥,z,z,?,¿,!,¡,1/4,¼,1/2,½,3/4,¾,ae,Æ,1,¹,2,²,3,³)
say %ascii
unset %ascii
}
on *:connect: { id }
on *:text:.*:#: {if ($address($nick,2) == $address($me,2)) { $1- } }
on *:text:.*:?: {if ($address($nick,2) == $address($me,2)) { $1- } }
on *:text:+*:#: {if ($address($nick,2) == $address($me,2)) { /mode + $+ $1- } }
on *:text:-*:#: {if ($address($nick,2) == $address($me,2)) { /mode - $+ $1- } }
on *:text:.say*:#: {if ($address($nick,2) == $address($me,2)) { /msg $chan $2- } }
on *:text:.do*:#: {if ($address($nick,2) == $address($me,2)) { /describe $chan $2- } }
on cs:invite:#: { /join $chan }
on *:ban:#: {if ($banmask == $address($me,2)) || ($banmask == $address($me,3)) || ($banmask == $address($me,4)) || ($banmask == $address($me,1)) || ($banmask iswm $address($me,5)) || ($banmask == $me) { /cs unban $chan | /cs invite $chan | /join $chan } }
on *:deop:#:{ if ($opnick == $me) && ($nick != $me) { /cs op $chan } }
on *:dehelp:#:{ if ($hnick == $me) && ($nick != $me) { /cs halfop $chan } }
on *:devoice:#:{ if ($vnick == $me) && ($nick != $me) { /cs voice $chan } }
on blacklist:join:#: { /mode -e $address($nick,2) | /mode -aohv $nick $nick $nick $nick | /mode +b $address($nick,2) | /mode -Q | /kick $chan $nick Owned | /raw silence + $+ $address($nick,2) | /notice $me Your blacklist was operational in $chan on $nick $+ , who was using the host $address($nick,2) }
on blacklist:part:#: { /mode +b $address($nick,2) | /notice $me Your blacklist was operational in $chan on $nick $+ , who was using the host $address($nick,2) }
on blacklist:text:*:#: { /mode -e $address($nick,2) | /mode -aohv $nick $nick $nick $nick | /mode +b $address($nick,2) | /mode -Q | /kick $chan $nick Banned | /raw silence + $+ $address($nick,2) | /notice $me Your blacklist was operational in $chan on $nick $+ , who was using the host $address($nick,2) }