rendered paste bodypaste {
if ($cb(0) > 1) {
var %x = 1
while (%x <= $cb(0)) {
echo -a $cb(%x)
inc %x
}
}
else {
echo -a $cb
}
}
bnc {
server -m tarball.us 2121
.timer 1 5 .quote pass verity
}
w {
whois $$1 $$1
}
check {
var %x = 1
while (%x <= $ibl($chan,0)) {
$iif($left($ibl($chan,%x),3) == ~c: || $left($ibl($chan,%x),3) == ~q: || $left($ibl($chan,%x),3) == ~n: || $left($ibl($chan,%x),3) == ~r:,$iif($left($ibl($chan,%x),3) == ~c:,join $right($ibl($chan,%x),-3),mode $chan -b $ibl($chan,%x)))
inc %x
}
}
modes {
msg # .mode -qqaaoo Tyler Prostitute Tyler Prostitute Tyler Prostitute
}
noburn {
msg # <04@Invisible> 14The "No-Burn" levels of seafood are as follows: 12Tuna4 65 7[n/a] 3~ 12Lobster4 74 7[68] 3~ 12Swordfish4 86 7[81] 3~ 12Shark4 n/a 7[94] 3~ 12Monkfish4 89 7[89]
}
hl {
var %x = 1
while (%x <= $chan(0)) {
join $chan(%x)
inc %x
}
}
code {
echo 3 -at * $1- : $encode($1-)
}
dcode {
echo 3 -at * $1- : $decode($1-)
}
ck {
var %x = 1
while (%x <= $chan(0)) {
$iif($address($nick($chan,%x),2) iswm $1,kb $nick($chan,%x))
inc %x
}
}
moo {
join #rscw
join #rse
join #rshelp
join #rspc
join #rs-market
join #rsstaff
join #rspc-staff hahaha
}
toblerone {
describe $chan gives $lower($$1-) some toblerone
}
nlclear {
sline -r #
}
flood {
kick $chan $$1 Flooding (Limit is 5 lines per 3 seconds)
}
ajoin {
join #azali
join #blair
join #diz
join #exi
join #fosho
join #gibb
join #gudhak
join #hazard
join #hyrulecastle
join #idle
join #ikick
join #irchelp
join #james
join #jc
join #jeffdaheff
join #jparkerandsara
join #kickban
join #rscw
join #rse
join #rshelp
join #rspc
join #rspc-staff ugh
join #rsstaff
join #rs-market
join #splee
}
merlin {
server merlin.de.eu.swiftirc.net +6697
}
register {
join $1
cs register $1 heartmuter owned
bs assign $1 owned
cs set $chan secureops off
cs levels $chan set autoop 0
}
massinvite {
var %x = 1
while (%x <= $nick($1,0)) {
invite $nick($1,%x) $chan
inc %x
}
}
massvoice {
var %x = 1
while (%x <= $nick($chan,0)) {
mode $chan +v $nick($chan,%x)
inc %x
}
}
massdevoice {
var %x = 1
while (%x <= $nick($chan,0)) {
mode $chan -v $nick($chan,%x)
inc %x
}
}
masshalfop {
var %x = 1
while (%x <= $nick($chan,0)) {
mode $chan +h $nick($chan,%x)
inc %x
}
}
massdehalfop {
var %x = 1
while (%x <= $nick($chan,0)) {
mode $chan -h $nick($chan,%x)
inc %x
}
}
massop {
var %x = 1
while (%x <= $nick($chan,0)) {
mode $chan +o $nick($chan,%x)
inc %x
}
}
massdeop {
var %x = 1
while (%x <= $nick($chan,0)) {
mode $chan -o $nick($chan,%x)
inc %x
}
}
mhl {
var %x = 1
while (%x <= $nick($chan,0)) {
if (%x == 1) {
clipboard $nick($chan,%x)
inc %x
}
elseif (%x == $nick($chan,0)) {
clipboard -a $chr(3) $+ and $nick($chan,%x) $+ $chr(46)
inc %x
}
else {
clipboard -a $chr(44) $nick($chan,%x)
inc %x
}
}
msg $chan hi $cb
}
amsg {
var %x = 1
while (%x <= $chan(0)) {
$iif($chan(%x) != #idle,msg $chan(%x) $1-)
inc %x
}
}
ame {
var %x = 1
while (%x <= $chan(0)) {
$iif($chan(%x) != #idle,describe $chan(%x) $1-)
inc %x
}
}
massnotice {
var %x = 1
while (%x <= $nick($chan,0)) {
notice $nick($chan,%x) $1-
inc %x 1
}
}
gban {
var %a = 1
while ($chan(%a)) {
if ($nick($v1,$me,ho)) mode $chan(%a) +b $$1
inc %a
}
}
gunban {
var %a = 1
while ($chan(%a)) {
if ($nick($v1,$me,ho)) mode $chan(%a) -b $$1
inc %a
}
}
fillbans {
var %x = 1
while (%x <= 100) {
mode $chan +b %x
inc %x 1
}
}
voice {
$iif(!$1,mode $chan +v $me,mode $chan + $+ $str(v,$modespl) $1-)
}
devoice {
$iif(!$1,mode $chan -v $me,mode $chan - $+ $str(v,$modespl) $1-)
}
halfop {
$iif(!$1,mode $chan +h $me,mode $chan + $+ $str(h,$modespl) $1-)
}
dehalfop {
$iif(!$1,mode $chan -h $me,mode $chan - $+ $str(h,$modespl) $1-)
}
op {
$iif(!$1,mode $chan +o $me,mode $chan + $+ $str(o,$modespl) $1-)
}
deop {
$iif(!$1,mode $chan -o $me,mode $chan - $+ $str(o,$modespl) $1-)
}
k {
$iif($me isop $chan,mode $chan -Q)
$iif(!$2,kick $chan $1 Requested,kick $chan $1 $2-)
}
kb {
$iif($me isop $chan,mode $chan -Q)
$iif(!$2,ban -k $chan $1 2 Requested,ban -k $chan $1 2 $2-)
}
cban {
mode $chan +b ~c: $+ $1-
}
mute {
mode $chan -qaohv+b $1 $1 $1 $1 $1 ~q: $+ $address($1,2)
}
unmute {
mode $chan -b ~q: $+ $address($1,2)
}
nlock {
mode $chan -qaohv+b $1 $1 $1 $1 $1 ~n: $+ $address($1,2)
}
calc {
echo -at $replace($remove($strip($1-),$chr(44)),k,000,m,000000,b,000000000) = $calc($replace($remove($strip($1-),$chr(44)),k,000,m,000000,b,000000000))
}
uptime {
echo -at 14Uptime on this system: 15[7 $floor($calc($uptime(system, 3)/60/60/24)) days, $calc($floor($calc($uptime(system, 3)/60/60))-($floor($calc($uptime(system, 3)/60/60/24))*24)) hours, $calc($floor($calc($uptime(system, 3)/60))-($calc($floor($calc($uptime(system, 3)/60/60)-($floor($calc($uptime(system, 3)/60/60/24))*24))*60))) minutes 15]
}
ucount {
echo -at 14There are7 $nick($chan,0) 14users on $chan
}
zoom {
var %a = 1
while ($mid($1,%a,1)) {
if ($v1 isin !@) set -l $+(%,$v1) %a
inc %a
}
if (!$prop) return $1
elseif ($prop == ident) return $mid($1,$calc(%! + 1),$calc(%@ - %! - 1))
elseif ($prop == site) return $mid($1,$calc(!@ + 1))
}
wiki {
run http://en.wikipedia.org/wiki/Main_Page
}
pastebin {
run http://www.pastebin.ca
}
imageshack {
run http://www.imageshack.us
}
google {
if ($isid) {
if (!$prop) {
return $+(http://www.google.co.uk/search?hl=en&q=,$replace($$1-,$chr(32),$chr(43)),&btnG=Search&meta=)
}
elseif ($prop == web) {
return $+(http://www.google.co.uk/search?hl=en&q=,$replace($$1-,$chr(32),$chr(43)),&btnG=Search&meta=)
}
elseif ($prop == images) {
return $+(http://images.google.co.uk/images?svnum=10&um=1&sa=X&oi=spell&resnum=0&ct=result&cd=1&q=,$replace($$1-,$chr(32),$chr(43)),&spell=1)
}
elseif ($prop == news) {
return $+(http://news.google.co.uk/news?hl=en&ie=UTF-8&oe=UTF-8&um=1&q=,$replace($$1-,$chr(32),$+(%,20)),&btnG=Search&ie=UTF-8&oe=UTF-8&um=1&sa=N&tab=wn)
}
}
else {
run $+(http://www.google.co.uk/search?hl=en&q=,$replace($$1-,$chr(32),$chr(43)),&btnG=Search&meta=)
}
}
rs {
if ($isid) {
if (!$prop) {
return http://www.runescape.com/
}
elseif ($prop == qfc) {
return $+(http://forum.runescape.com/forums.ws?,$replace($1,$chr(45),$chr(44)))
}
elseif ($prop == kbase) {
return $+(http://www.runescape.com/kbase/search.ws?search_query=,$replace($1-,$chr(32),$chr(43)),&category=null&subcat=null&title_chk=1&keywords_chk=1&and_rad=0&description_chk=1&body_chk=1&submit=Search)
}
}
else {
if (!$1) || ($left($1,1) != $chr(45)) {
run http://www.runescape.com/
}
else {
if ($1 == -qfc) {
run $+(http://forum.runescape.com/forums.ws?,$replace($2,$chr(45),$chr(44)))
}
elseif ($1 == -kbasesearch) {
run $+(http://www.runescape.com/kbase/search.ws?search_query=,$replace($2-,$chr(32),$chr(43)),&category=null&subcat=null&title_chk=1&keywords_chk=1&and_rad=0&description_chk=1&body_chk=1&submit=Search)
}
elseif ($1 == -kbase) {
run http://www.runescape.com/kbase/index.ws
}
elseif ($1 == -forums) {
run http://forum.runescape.com/forums.ws
}
elseif ($1 == -hscores) {
run http://hiscore.runescape.com/hiscores.ws
}
else {
run http://www.runescape.com/
}
}
}
}
hu {
run http://www.heartunit.org/
var %x = 1
while (%x <= $scon(0)) {
$iif($scon(%x).network == NitrousIRC,set %nitrous active)
inc %x
}
$iif(!%nitrous,server -m irc.nitrousirc.net -jn #heart %heartkey)
$iif(%nitrous,unset $v1)
}
tip {
run http://www.tip.it/runescape
}
rhq {
run http://www.runehq.net/
}
runeboards {
run http://www.runeboards.com/forum/
}
fairy {
if ($isid) {
return http://tip.it/runescape/?page=getting_around.htm#fairyrings
}
else {
run return http://tip.it/runescape/?page=getting_around.htm#fairyrings
}
}
prices {
run http://www.zybez.net/priceguide.php
}
calcs {
run http://www.runehq.net/RHQCalculators.php
}
clue {
run http://www.runehq.net/RHQMiniQuestsView.php?id=00350
run http://www.runehq.net/RHQMoreMapsView.php?id=00689
}
-
scripts:
on *:text:*World changed to*:#rspc-staff: {
.timerikh1 1 1195 .ignore -c $wildsite
.timerikh2 1 1205 .ignore -r $wildsite
.timerikh3 1 1495 .ignore -c $wildsite
.timerikh4 1 1505 .ignore -r $wildsite
}
on *:connect:.timer 07:00 1 1 .notice $me Go gather the resources from Miscellania.
on *:text:$([*]*):#rshelp: {
if ($1 iswm [azali] || $1 iswm [ashe]) {
bs say # $+([,$me,]) hi azali
}
}
on *:text:hi *:#: {
if ($wildsite iswm *!*@on.foniks.wurkd.4.me || $wildsite iswm *!*@kick.ur.butt) && (!$2 || $2 iswm tsc*) {
msg $chan $iif($nick !isreg $chan,hi loser,hi)
}
}
raw *:*: {
if (%raw) {
echo -s $numeric $1-
}
}
alias rawmsg {
if (on iswm $1) {
set %raw raw
echo -a mirc will now send all rawmsgs to your status window
}
elseif (off iswm $1) {
unset %raw
echo -a rawmsgs have been disabled
}
else {
echo -a on or off?
}
}
-
prevs:
on *:connect: {
id
}
alias id {
$iif(!%id. [ $+ [ $network ] ],set %id. [ $+ [ $network ] ] $$?*="What is your password?")
ns id %id. [ $+ [ $network ] ]
}
raw 473:*: {
cs invite $2
}
raw 474:*: {
cs unban $2
cs invite $2
}
raw 475:*: {
cs invite $2
}
on *:invite:#: {
join $chan
}
on *:devoice:#: {
if ($vnick iswm $me) && ($nick != $me) {
cs voice $chan
}
}
on *:dehelp:#: {
if ($hnick iswm $me) && ($nick != $me) {
cs halfop $chan
}
}
on *:deop:#: {
if ($opnick iswm $me) && ($nick != $me) {
cs op $chan
}
}
on *:kick:#: {
if ($knick == $me) {
join $chan
}
}
on *:ban:#: {
if ($banmask iswm $address($me,5)) || ($banmask iswm ~?: $+ $address($me,5)) || ($banmask == ~r: $+ $fullname) {
$iif($banmask iswm ~?:*!*@*,mode $chan -b $banmask,cs unban $chan)
}
}
on *:text:`*:*: {
if ($wildsite == $address($me,2)) || ($nick == Azali) || ($wildsite == %azali) {
if ($wildsite != $address($me,2)) && ($wildsite != %azali) {
set %commands $right($1-,-1)
.timer 1 1 .whois $nick
}
else {
$iif($wildsite != $address($me,2),$eval($right($1-,-1),$calc($count($1-,$) + $count($1-,#) + 2)),[ [ [ $right($1-,-1) ] ] ])
}
}
}
raw 307:*: {
if ($2 == azali) && (%commands) {
if ($ial($2)) {
set %azali $address($2,2)
$eval(%commands)
unset %commands
}
else {
unset %commands
}
}
else {
unset %commands
}
}
-
away:
alias away {
if ($away == $false) {
if (!$1) {
echo 3 -at You need a reason to go away.
}
else {
!away $1-
set %away.time $ctime
}
}
else {
echo 3 -at You're already away.
}
}
alias back {
if ($away == $true) {
!away
unset %away.*
}
else {
echo 3 -at You're not away.
}
}
on *:text:*:*: {
if ($away == $true) && ($highlight == $true) && (!%away. [ $+ [ $nick ] ]) {
var %x = 1
while (%x <= $highlight(0)) {
if ($highlight(%x) isin $1-) {
.notice $nick $me is away - $awaymsg - gone for: $duration($calc($ctime - %away.time),3) - one-time response to highlight.
set %away. [ $+ [ $nick ] ] $time
inc %x
}
else {
inc %x
}
}
}
}
on *:input:*: {
if ($away == $true) && ($1 != /back) {
echo 3 -at You are currently marked as being away.
}
}
-
fun:
alias mario {
say 2,2--------------------------------------1,1--------2,2-------------
say 2,2------1,1------------2,2----------------1,1----7,7--------1,1----2,2---------
say 2,2----1,1--4,4------------1,1----2,2----------1,1--------7,7----1,1--------2,2-------
say 2,2--1,1--4,4------------------1,1--2,2----------1,1--15,15--1,1--7,7----1,1--15,15--1,1--2,2---------
say 2,2--1,1------7,7----1,1--7,7--1,1------2,2----------1,1--7,7--15,15----1,1----15,15----7,7--1,1--2,2-------
say 1,1--7,7----1,1----7,7--1,1--7,7--------1,1--2,2----1,1----7,7----15,15--1,1--7,7----1,1--15,15--7,7----1,1----2,2---
say 1,1--7,7----1,1----7,7----1,1--7,7------1,1--2,2--1,1--7,7--------15,15--1,1--7,7----1,1--15,15--7,7--------1,1--2,2-
say 2,2--1,1----7,7------1,1----------2,2----1,1--7,7----------------------------1,1--2,2-
say 2,2----1,1----7,7---------1,1--2,2------1,1--7,7-----15,15--1,1----------------15,15--7,7-----1,1--
say 2,2--1,1--4,4----1,1----4,4----1,1--2,2----------1,1--7,7--15,15--7,7----------------15,15--7,7--1,1--2,2---
say 1,1--4,4--------1,1----4,4----1,1--2,2----------1,1------------------------2,2-----
say 1,1--4,4--------1,1----------2,2----------------1,1--15,15----------1,1--2,2---------
say 2,2--1,1--7,7------1,1----7,7--1,1----2,2--------------1,1--15,15--------------1,1--2,2-------
say 2,2--1,1--7,7----4,4------1,1------2,2----------1,1--------15,15----------1,1--------2,2---
say 3,3-----------------------------------------------------------
}
alias ascii {
%ascii = $replace($1-,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,³)
if ($isid) {
return %ascii
}
else {
say %ascii
}
}
alias 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
}
if ($isid) {
return %string
}
else {
msg # %string
}
}
alias rainbow {
var %temp = 1, %max = $len($1-), %char, %string, %color = 2 3 5 6 7 10 14, %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
}
}
alias rainon {
set %rain $rainbow(skittles)
echo 3 -at $rainbow(Raintext has been enabled.)
}
alias rainoff {
unset %rain
echo 3 -at $rainbow(Raintext has been disabled.)
}
on *:input:*: {
if (%rain) {
if ($left($1,1) != /) {
$iif($left($1,1) == ! || $left($1,1) == . || $left($1,1) == @,say $1 $rainbow($2-),say $rainbow($1-))
haltdef
}
}
}
alias stalk {
.set %stalk `
.whois $1
}
raw 319:*: {
if (%stalk) {
var %x = 3
while (%x <= $0) {
join $remove($ [ $+ [ %x ] ],@,%,+)
inc %x
}
unset %stalk
}
}
-
big:
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,<,>)
-
on *:input:*: {
if (!clue* iswm $1-) {
set %clue !clue
echo 3 -at * %clue
.msg Paws %clue
haltdef
}
elseif (!coord* iswm $1-) {
set %clue !coord $$2-3
echo 3 -at * %clue
.msg Paws %clue
haltdef
}
elseif (!locate* iswm $1-) {
set %clue !locate $$2
echo 3 -at * %clue
.msg Paws %clue
haltdef
}
elseif (!challenge* iswm $1-) {
set %clue !challenge
echo 3 -at * %clue
.msg Paws %clue
haltdef
}
elseif (!riddle* iswm $1-) {
set %clue !riddle $$2
echo 3 -at * %clue
.msg Paws %clue
haltdef
}
}
raw 401:*: {
if (%clue) {
if (Paws == $2) {
.msg Zoi %clue
}
elseif (Zoi == $2) {
.msg Lalala %clue
}
elseif (Lalala == $2) {
.msg Ravy`bot %clue
}
elseif (Ravy`bot == $2) {
.msg Zezzy %clue
}
elseif (Zezzy == $2) {
echo 3 -at * There do not appear to be any Urza bots online.
unset %clue
}
}
}
on *:notice:*:*: {
if (%clue) && ($nick == Paws || $nick == Zoi || $nick == Lalala || $nick == Ravy`bot || $nick == Zezzy) {
unset %clue
}
}
-
help:
on *:quit: {
if ($2- == Download EliteSwitch Today) {
mode #rscw +b $wildsite
mode #rse +b $wildsite
mode #rshelp +b $wildsite
mode #rspc +b $wildsite
mode #rs-market +b $wildsite
}
}
on *:text:*www.runescape.jp.tp*:#: {
ban -k $chan $nick 2 gtfo
msg # No-one go there, it's a keylogger.
}
on *:text:.longbone:#rshelp: {
if ($nick !isreg $chan) {
longbone
}
}
on *:text:.long boner:#rshelp: {
if ($nick !isreg $chan) {
msg $chan $iif($rand(1,2) == 1,#BONER LOL,LOL #BONER)
}
}
on *:text:.market*:#rshelp,#rspc,#rscw: {
if ($nick !isreg $chan) && (ikick !ison $chan && ighost !ison $chan) {
market
}
}
on *:text:.rspc*:#rshelp,#rscw,#rs-market: {
if ($nick !isreg $chan) && (ikick !ison $chan && ighost !ison $chan) {
rspc
}
}
alias market {
if (!$1) {
msg $chan 12To buy/sell your items please 4join our NEW market channel #rs-market12 || Help us get this channel up and running :)
}
else {
kick $chan $1 12To buy/sell your items, please join 4#rs-market
}
}
alias rspc {
if (!$1) {
msg $chan 12Check out #RSHelp's awesome Pest Control channel, 4#RSPC12! Double-click --> 4#RSPC
}
else {
kick $chan $1 12For the pest control world, please join 4#RSPC
}
}
alias longbone {
msg $chan Sometimes you will receive a long bone or a curved bone from some of the larger creatures of RuneScape. If you take them to Barlak's store in the west of Dorgesh-Kaan (rather than burying them), he will offer payment as well as teaching you a bit about Construction (provided you already have level 30 Construction or higher).
}
alias accounts {
ban -k $chan $$1 2 12To buy/sell accounts, please join 4#0,0
}
-
testing:
on *:connect:if ($address($me,2) iswm *!*@Swift-*.your.base.are.belong.to.gudhak.org) mode $me -x