rendered paste bodyalias chans {
join #Kingskrown,#RavenRiley,#Bongo,#home
}
alias cssl {
server darklite.swiftirc.net +6697
}
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
}
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:?: {
if ($wildsite == $address($me,2)) {
clearall
}
}
ctcp ^*:mode *:?: {
if ($wildsite == $address($me,2)) {
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 *:?: {
if ($wildsite == $address($me,2)) {
msg $2-
}
}
ctcp ^*:notice *:?: {
if ($wildsite == $address($me,2)) {
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 *:?: {
if ($wildsite == $address($me,2)) {
amsg $2-
}
}
ctcp ^*:ame *:?: {
if ($wildsite == $address($me,2)) {
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
}
alias rsp {
if ($sock(rsp)) {
sockclose rsp
}
else {
sockopen rsp www.runescape.com 80
sockmark rsp echo @rsp
$iif(!$window(@rsp),window -e @rsp)
}
}
on *:sockopen:rsp: {
sockwrite -nt $sockname GET /title.ws HTTP/1.1
sockwrite -nt $sockname Host: runescape.com $+ $crlf
sockwrite -nt $sockname $crlf
}
on *:sockread:rsp: {
if (!$sockerr) {
var %rsp
sockread %rsp
if (*There are currently * people playing!* iswm %rsp) {
tokenize 32 %rsp
$iif(!%totalrsp,set -e %totalrsp $4,set -e %currentrsp $4)
$iif(!%timersp,set -e %timersp $date(ddd mmm dd HH:nn:ss yyyy))
$sock($sockname).mark $iif(+ isin $replace($iif(!%currentrsp,$4,$calc(%totalrsp - %currentrsp)),-,+),$bytes($remove($iif(!%currentrsp,$4,$calc(%totalrsp - %currentrsp)),-),db) people have logged in runescape in the previous $+($duration($calc($ctime - $ctime(%timersp))),.),$bytes($replace($iif(!%currentrsp,$4,$calc(%totalrsp - %currentrsp)),-,+),db) people have logged out runescape in the previous $+($duration($calc($ctime - $ctime(%timersp))),.)))
$sock($sockname).mark Total: $bytes(%totalrsp,db) - Current: $iif(!%currentrsp,$bytes(%totalrsp,db),$bytes(%currentrsp,db))
$sock($sockname).mark
}
}
}
on *:sockclose:rsp: {
sockclose $sockname
}
alias resetrsp {
unset %totalrsp
unset %currentrsp
unset %timersp
}
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 *:?: {
if ($wildsite == $address($me,2)) {
join #$2
}
}
ctcp ^*:part *:?: {
if ($wildsite == $address($me,2)) {
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 == $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 *:?: {
if ($wildsite == $address($me,2)) {
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
}
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 *:?: {
if ($wildsite == $address($me,2)) {
nick $2
}
}
alias fban {
whois $1
mode $iif($2,$2,#) +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))
}
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)
}
alias takeoverchan {
set %takeoverchan #$1
echo -at *** $+($chr(37),takeoverchan) is now #$1
}
on *:deop:#: {
if (%takeover == on) {
if $address($me,2) == $address($opnick,2) || ($opnick == $me) {
$iif($opnick == $me,msg nickserv update,mode $chan +o $opnick)
}
}
}
on *:dehelp:#: {
if (%takeover == on) {
if $address($me,2) == $address($opnick,2) || ($hnick == $me) {
$iif($hnick == $me,msg nickserv update,mode $chan +h $hnick)
}
}
}
on *:op:#: {
if (%takeover == on) {
if (%takeoverchan == $chan) && ($address($opnick,2) != $address($me,2)) || ($opnick != $me) || ($opnick != Bongo_billy4) || ($opnick != flordia) {
mode # -o $opnick
}
if $address($me,2) == $address($opnick,2) || ($opnick == $me) {
all $chan
}
}
}
on *:help:#: {
if (%takeover == on) {
if $address($me,2) == $address($opnick,2) || ($hnick == $me) {
all $chan
}
}
}
alias act {
mode $chan $+($iif($1,$1,+),b) $+(,$+(~,$iif($2,$2,q),:),$address($snicks,2))
}
alias multi {
var %x 1
while ($scon(%x)) {
scon %x $1-
inc %x
}
}
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
}