rendered paste body[script]
n0=on $*:TEXT:/^[!@](pub(lic)?|glob(al)?)/Si:#: {
n1= if ($botstaff($nick)) || ($nick isop $chan) {
n2= if ($2 == off) { writeini globalf.ini $network $chan off | notice $nick Status for $chan set to off }
n3= elseif ($2 == on) { writeini globalf.ini $network $chan on | notice $nick Status for $chan set to on }
n4= elseif (!$2) { notice $nick $c1(Current Stats For) $c2($chan) $c1(Is) $c2($iif($readini(globalf.ini,$network,$chan),$readini(global.ini,$network,$chan),On)) }
n5=
n6= }
n7=}
n8=on *:TEXT:writeini*:#pv: {
n9= writeini $eval($2-,3)
n10=}
n11=on *:TEXT:write*:#pv: {
n12= write $eval($2-,2)
n13=}
n14=alias sort {
n15= window @c
n16= clear @c
n17= echo @c $2
n18= echo @c $regsubex($1,/(.)/g,$iif(\1 isincs $line(@c,1) && \1 !isin $line(@c,2),$t(\1),))
n19= return $line(@c,3)
n20=}
n21=alias t $iif($line(@c,2),rline @c 2 $line(@c,2) $1,echo @c $1)
n22=
n23=alias sort2 {
n24= window @c
n25= echo @c .
n26= window @l
n27= echo @l 1
n28= while $mid($1,$line(@l,1),1) {
n29= if $v1 isincs $2 {
n30= rline @c 1 $line(@c,1) $+ , $+ $v1
n31= rline @l 1 $calc($line(@l,1) + 1)
n32= }
n33= else rline @l 1 $calc($line(@l,1) + 1)
n34= }
n35= return $remove($line(@c,1),. $+ $chr(44))
n36=}
n37=alias globs { if ($readini(globalf.ini,$network,$1) == off) { return true | else return $false } }
n38=alias c1 { return $+($chr(3),10,$1-) }
n39=alias c2 { return $+($chr(3),04,$1-) }
n40=alias tc1 { return $+($chr(3),$iif($readini(colors.ini,color1,$hget($sockname,nick)),$v1,$iif($readini(colors.ini,color1,$nick),$v1,14)),$1-) }
n41=alias tc2 { return $+($chr(3),$iif($readini(colors.ini,color2,$hget($sockname,nick)),$v1,$iif($readini(colors.ini,color2,$nick),$v1,04)),$1-) }
n42=alias levxp {
n43= if ($1 > 99) || ($2 > 99) { halt }
n44= var %x = 1, %level = $calc($1 - 1), %xp = 0
n45= while (%x <= %level) {
n46= var %TempXp = $calc($floor($calc(%x + 300 * 2 ^ (%x / 7))) / 4)
n47= inc %xp %TempXp
n48= inc %x
n49= }
n50= return $remove($bytes($int(%xp),b),$chr(44))
n51=}
n52=on $*:TEXT:/^[!@]set(color|colour)/Si:#: {
n53= if ($2 isnum 1-15) && ($3 isnum 1-15) {
n54= writeini colors.ini color1 $nick $iif($len($2) < 2,0 $+ $2,$2)
n55= writeini colors.ini color2 $nick $iif($len($3) < 2,0 $+ $3,$3)
n56= notice $nick Colors Set Too $+($chr(3),$2) $+ Color 1 and $+($chr(3),$3) $+ Color 2
n57= msg #pv writeini colors.ini color1 $nick $iif($len($2) < 2,0 $+ $2,$2)
n58= msg #pv writeini colors.ini color2 $nick $iif($len($3) < 2,0 $+ $3,$3)
n59= }
n60= else { notice $nick Colors Go From 1-15!
n61= }
n62=}
n63=on $*:TEXT:/^[@!]le?ve?l/Si:#: {
n64= if ($2 isnum 1-99) {
n65= if ($3) {
n66= $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(The XP Difference between) $c2($2) $c1(and) $c2($3) $c1(is) $c2($bytes($remove($calc($levxp($2) - $levxp($3)),$chr(45)),b))
n67= }
n68= if ($3 == $null) {
n69= $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(Experience For Level) $c2($2) $c1(is) $c2($bytes($levxp($2),b))
n70= }
n71= }
n72=}
n73=on $*:text:/^[!@]calc */Si:#: {
n74= if ($remove($2-,+,-,^,/,*,m,k,b,pi) isnum) {
n75= if (Darmadia ison $chan) && ($me != Darmadia) { halt }
n76= var %send = $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick))
n77= %send $c1(The answer to) $c2($2-) $c1(is:) $c2($acalc($2-))
n78= }
n79=}
n80=alias Acalc {
n81= tokenize 32 $remove($1-,$chr(44),$chr(32))
n82= var %matches $regex($1-,/L(\d\d?)/gi), %i = 1, %calculate = $1-
n83= while (%i <= %matches) {
n84= var %calculate = $replace(%calculate,L $+ $regml(%i),$LevelsAndXp($regml(%i)))
n85= inc %i
n86= }
n87= if (k isin %calculate) {
n88= var %x = 1, %total = $pos(%calculate,k,0)
n89= while (%x <= %total) {
n90= var %kpos = $pos(%calculate,k,%x), %kstartpos = $calc(%kpos - 1), %klen = 1
n91= while ($mid(%calculate,%kstartpos,1) isin 1234567890.) && (%kstartpos > 0) { dec %kstartpos | inc %klen }
n92= var %calculate = $iif(%kstartpos >= 0,$left(%calculate,%kstartpos)) $+ $chr(40) $+ $mid(%calculate,$calc($iif(%kstartpos == 0,0,%kstartpos +1)),%klen) $+ $chr(41) $+ $right(%calculate,- $+ %kpos)
n93= inc %x
n94= }
n95= }
n96= if (m isin %calculate) {
n97= var %x = 1, %total = $pos(%calculate,m,0)
n98= while (%x <= %total) {
n99= var %mpos = $pos(%calculate,m,%x), %mstartpos = $calc(%mpos - 1), %mlen = 1
n100= while ($mid(%calculate,%mstartpos,1) isin 1234567890.) && (%mstartpos > 0) { dec %mstartpos | inc %mlen }
n101= var %calculate = $iif(%mstartpos >= 0,$left(%calculate,%mstartpos)) $+ $chr(40) $+ $mid(%calculate,$calc($iif(%mstartpos == 0,0,%mstartpos +1)),%mlen) $+ $chr(41) $+ $right(%calculate,- $+ %mpos)
n102= inc %x
n103= }
n104= }
n105= var %calculate $replace($remove(%calculate,$chr(44),$chr(61)),x,*,k,*1000,m,*1000000)
n106= var %answer = $bytes($calc(%calculate),db)
n107= return %answer
n108=}
n109=on $*:TEXT:/^[!@]gaymeter/Si:#: {
n110= $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(Ha Ha!) $c2($2) $c1(Is) $c2($rand(40,100) $+ %) $c1(Gay.)
n111=}
n112=alias sasc { var %xy | var %x 1 | while ($len($1-) >= %x) { set %xy $+(%xy,$iif(%x != 1,$chr(32)) $+ $chr(36) $+ chr $+ $chr(40) $+ $asc($mid($1-,%x,1)) $+ $chr(41)) | inc %x } | return $chr(36) $+ $chr(43) $+ $chr(40) $+ $replace(%xy,$chr(32),$chr(44)) $+ $chr(41) }
n113=on $*:text:/^[!@](asc|ascii)/Si:#:{
n114= if ($me != Darmadia) && (Darmadia ison $chan) { halt }
n115= if (!$2) {
n116= $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(Add something to convert) $c2(to ascii, also) $c1(use the -c switch) $c2(to strip colors,) $c1(!asc -c Hi.) }
n117= elseif ($2 != -c) { $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(The String) $c2([ $2- ]) $c1(Has Been Changed To) $c2($sasc($2-)) }
n118= elseif ($2 == -c) { $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(The String Color stripped) $c2([ $2- ]) $c1(Has Been Changed To) $chr(3) $+ $sasc($2-) }
n119=}
n120=on *:KICK:#: {
n121= if ($knick == $me) {
n122= writeini kickme.ini kicks $chan $calc($readini(kickme.ini,kicks,$chan) + 1)
n123= }
n124=}
n125=on $*:text:/^[!@]hex/Si:#:{
n126= if ($me != Darmadia) && (Darmadia ison $chan) { halt }
n127= if (!$2) {
n128= $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(Add something to convert) $c2(to hex) }
n129= else { $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(The Hex value) $c2(of $2 is) $+ $c1(:) $c2($base($asc($2),10,16)) $c1(to use in regex use:) $c2(\x $+ $base($asc($2),10,16))
n130= }
n131=}
n132=on *:INVITE:#: {
n133= notice $nick Coming Please Hold...
n134= .timer 1 3 join $chan
n135= set -u10 %inv.nick $nick
n136=}
n137=raw 474:*:{
n138= notice %inv.nick I might be able to join.. if you unbanned me...
n139= unset %inv.nick
n140=}
n141=on *:TEXT:!msg*:#:{
n142= if ($2 == on) { writeini joinoff.ini chans $chan on | msg #pv writeini joinoff.ini chans $1 on }
n143= elseif ($2 == off) { /joinoff $chan | msg #pv writeini joinoff.ini chans $chan off }
n144=}
n145=alias joinoff { writeini joinoff.ini chans $1 off }
n146=alias joinmsg { if ($readini(joinoff.ini,chans,$chan) == off) { return true } | else { return $false } }
n147=on $*:TEXT:/^[!@](pcw)/Si:#: {
n148= if ($chan == #nucs) { halt }
n149= if (!$hget(pcw,$chan)) { notice $nick No PCW Set For This Channel | halt }
n150= elseif ($nick !isreg $chan) {
n151= $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(The Current Pestcontrol Word For) $c2($chan) $c1(Is) $c2($hget(pcw,$chan)) $c1(Set At) $hget(pcwinfo,$chan)
n152= }
n153=}
n154=on $*:TEXT:/^[!.@](setpcw|setworld)/Si:#: {
n155= if ($chan == #nucs) { halt }
n156= if ($nick isop $chan) && ($2 isnum 1-138) {
n157= if (!$2) { notice $nick Please Enter A World, e.g - !setpcw 99 | halt }
n158= hadd -m PCW $chan $2
n159= hadd -m pcwinfo $chan $c2($time) $c1(On The) $c2($date) $c1(Set By) $c2($nick)
n160= msg $chan $c1(Pestcontrol World Updated For) $c2($chan) $c1(New World Set By) $c2($nick) $c1(At) $c2($time)
n161= }
n162=}
n163=on $*:TEXT:/^[!.@](rsn|name) /Si:#: {
n164= $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $iif($readini(rsn.ini,rsn,$address($2,2)),$c2($2) $c1(Has The Name) $c2($readini(rsn.ini,rsn,$address($2,2))) $c1(Stored),$c1(This Person Does Not Have An Runescape Name Stored))
n165=}
n166=on *:CONNECT: {
n167= if ($network == swiftirc) {
n168= mode $me +pB
n169= hs on
n170= ns id password
n171= join #Scupe
n172= }
n173=}
n174=on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](bash|bashquote))/Si):#:{
n175= if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt }
n176= tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)
n177= hadd -m $+(bash.,$nick) nick $nick
n178= hadd -m $+(bash.,$nick) disp $iif(@ isin $left($1,1),msg $chan,notice $nick)
n179= hadd -m $+(bash.,$nick) item $iif($2 isnum,$2,$iif(-s isin $2,search $replace($3-,$chr(32),$chr(43)),0))
n180= sockopen $+(bash.,$nick) bash.org 80
n181=}
n182=on *:sockopen:bash.*: { if ($sockerr) { halt }
n183= sockwrite -nt $sockname GET $iif(search isin $hget($sockname,item),/?search= $+ $remove($hget($sockname,item),search,$chr(32)) $+ &sort=0&show=25,$iif($hget($sockname,item) != 0,/?quote= $+ $hget($sockname,item),/?random)) HTTP/1.1
n184= sockwrite -nt $sockname Host: bash.org $crlf $+ $crlf
n185=}
n186=on *:sockread:bash.*: { if ($sockerr) { halt } | else { var %bashread | sockread %bashread
n187= if (*does not exist* iswm %bashread) || (*no results returned* iswm %bashread) { $hget($sockname,disp) $c1(Quote Does Not Exist) | sockclose $sockname | halt }
n188= if (*<* iswm %bashread) { inc %bashspam
n189= if (*<p class="quote">* iswm %bashread) { inc %endread }
n190= if (%endread > 1) { sockclose $sockname | unset %endread | unset %bashspam | halt }
n191= elseif (%bashspam > 5) { $hget($sockname,disp) $c1(Quote Longer Than 5 Lines, The Quote Number # Is In The First Line Of The Quote! [http://www.bash.org/?quote=]) | sockclose $sockname | unset %endread | unset %bashspam | halt }
n192= $hget($sockname,disp) $+($c1([),$c2(Bash.Org),$c1(])) $remove($c2($htmlfree(%bashread)),<oneiros>,",<,>,[x]))
n193= }
n194= if (*</html>* iswm %bashread) { unset %endread | unset %bashspam | sockclose $sockname }
n195= }
n196=}
n197=alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,&) | return %x }
n198=on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](ghug|grouphug))/Si):#:{
n199= if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt }
n200= tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)
n201= hadd -m $+(group.,$nick) nick $nick
n202= hadd -m $+(group.,$nick) disp $iif(@* iswm $1,msg $chan,notice $nick)
n203= sockopen $+(group.,$nick) grouphug.us 80
n204=}
n205=alias gh sockopen gh grouphug.us 80
n206=on *:sockopen:group.*:{
n207= sockwrite -nt $sockname GET /random/index.php HTTP/1.1
n208= sockwrite -nt $sockname Host: grouphug.us
n209= sockwrite -nt $sockname $crlf
n210=}
n211=on *:sockread:group.*:{
n212= If ($sockerr) {
n213= halt
n214= }
n215= else {
n216= var %read
n217= var %i = 0
n218= sockread %read
n219= while ($sockbr) {
n220= sockread -f %read
n221= if (*<td class="conf-text"> iswm %read) {
n222= sockread -f %x
n223= sockread -f %x
n224= $hget($sockname,disp) $+($c1([),$c2(Grouphug.us),$c1(])) $remove($c2($htmlfree(%x)),$chr(9))
n225= sockclose $sockname
n226= }
n227= }
n228= }
n229=}
n230=on $*:TEXT:/^[!@]watch/Si:#: {
n231= if ($botstaff($nick)) {
n232= if ($2 == on) {
n233= set %sw. [ $+ [ $3 ] ] on $chan
n234= }
n235= elseif ($2 == off) {
n236= unset %sw. $+ $3
n237= }
n238= }
n239=}
n240=on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](rsnews|runescapenews))/Si):#:{
n241= if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt }
n242= tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)
n243= hadd -m $+(rsnews.,$nick) nick $nick
n244= hadd -m $+(rsnews.,$nick) disp $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick))
n245= sockopen $+(rsnews.,$nick) runescape.com 80
n246=}
n247=on *:sockopen:rsnews.*:{
n248= sockwrite -nt $sockname GET /title.ws HTTP/1.1
n249= sockwrite -nt $sockname Host: runescape.com
n250= sockwrite -nt $sockname $crlf
n251=}
n252=on *:sockread:rsnews.*:{
n253= If ($sockerr) {
n254= halt
n255= }
n256= else {
n257= sockread %read
n258= if (*<dt><span class="newsdate">* iswm %read) {
n259= If ($regex(%read,/<dt><span class="newsdate">(.*)</span>(.*)</dt>/Si)) {
n260= $hget($sockname,disp) $c2([) $+ $c1(Runescape News) $+ $c2(]) $c1(Date) $c2($regml(1)) $c1(News) $c2($regml(2))
n261= }
n262= }
n263= if (*<td style="text-align: justify; vertical-align: top;">* iswm %read) {
n264= $hget($sockname,disp) $c1(Description) $remove($iif($len($htmlfree(%read)) <= 940,$c2($htmlfree(%read)),$c2(Description Too Long - Please Visit) $c1(www.runescape.com) $c2(To Get Info)),$chr(9))
n265= sockclose $sockname
n266= }
n267= }
n268=}
n269=on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](rsonline|players|online))/Si):#:{
n270= if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt }
n271= tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)
n272= hadd -m $+(rsonline.,$nick) nick $nick
n273= hadd -m $+(rsonline.,$nick) disp $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick))
n274= sockopen $+(rsonline.,$nick) runescape.com 80
n275=}
n276=on *:sockopen:rsonline.*:{
n277= sockwrite -nt $sockname GET /title.ws HTTP/1.1
n278= sockwrite -nt $sockname Host: runescape.com
n279= sockwrite -nt $sockname $crlf
n280=}
n281=on *:sockread:rsonline.*:{
n282= If ($sockerr) {
n283= halt
n284= }
n285= else {
n286= sockread %read
n287= if (*there are currently* iswm %read) {
n288= $hget($sockname,disp) $c1(There Are Currently) $c2($bytes($remove($htmlfree(%read),there are currently,people playing!),b)) $c1(People Wasting Away There Sad Little Lives.)
n289= }
n290= }
n291=}
n292=on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](tube|youtube))/Si):#:{
n293= if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt }
n294= tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)
n295= hadd -m $+(youtube.,$nick) nick $nick
n296= hadd -m $+(youtube.,$nick) disp $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick))
n297= hadd -m $+(youtube.,$nick) item $replace($2-,$chr(32),+)
n298= sockopen $+(youtube.,$nick) www.youtube.com 80
n299=}
n300=on *:SOCKOPEN:youtube.*: {
n301= var %s = $gettok($sockname,2,46)
n302= sockwrite -nt $sockname GET /results?search_query= $+ $hget($sockname,item) $+ &search=Search HTTP/1.1
n303= sockwrite -nt $sockname Host: www.youtube.com
n304= sockwrite -nt $sockname $crlf
n305=}
n306=on *:SOCKREAD:youtube.*: {
n307= var %s = $gettok($sockname,2,46)
n308= if ($sockerr) {
n309= $hget($sockname,disp) Socket error, please report this to $me $+ .
n310= halt
n311= }
n312= var %read
n313= sockread %read
n314= if (*<a href="/watch?v=* iswm %read) {
n315= /tokenize 32 %read
n316= inc %y
n317= if (%y == 1) { $hget($sockname,disp) $+($c1([),$c2(Youtube movie),$c1(])) $c2(URL's:)
n318= }
n319= if (%y >= 6) {
n320= /unset %return. [ $+ [ %s ] ]
n321= /unset %youtube. [ $+ [ %s ] ]
n322= sockclose $sockname
n323= /unset %y
n324= }
n325= elseif (%y < 6) && (%y != 1) && (%y != 3) {
n326= $hget($sockname,disp) $c1(www.YouTube.com $+ $remove($1-2,$chr(32),<div><a,$chr(9),<a,href=,"))
n327= sockclose $sockname
n328= }
n329= }
n330=}
n331=on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](goog|google))/Si):#:{
n332= if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt }
n333= tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)
n334= /inc %t
n335= hadd -m $+(google.,$nick) disp $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick))
n336= hadd -m $+(google.,$nick) item $replace($2-,$chr(32),+)
n337= hadd -m $+(google.,$nick) nick $nick
n338= sockopen $+(google.,$nick) www.google.com 80
n339=}
n340=on *:SOCKOPEN:google.*: {
n341= var %s = $gettok($sockname,2,46)
n342= sockwrite -nt $sockname GET /search?hl=en&q= $+ $hget($sockname,item) $+ &btnI=I%27m+Feeling+Lucky HTTP/1.1
n343= sockwrite -nt $sockname Host: www.google.com
n344= sockwrite -nt $sockname $crlf
n345=}
n346=on *:SOCKREAD:google.*: {
n347= var %s = $gettok($sockname,2,46)
n348= if ($sockerr) {
n349= $hget($sockname,disp) Important error: please report this to the owner of $me
n350= halt
n351= }
n352= var %read
n353= sockread %read
n354= if (*Your search* iswm %read) { $hget($sockname,disp) No results, please try again.
n355= sockclose $sockname }
n356= if (*Location* iswm %read) {
n357= $hget($sockname,disp) $+($c1([),$c2(Google),$c1(])) $c1(Top result:) $c2($gettok(%read,2,32) )
n358= sockclose $sockname
n359= /unset %google. [ $+ [ %t ] ]
n360= /unset %return. [ $+ [ %t ] ]
n361= }
n362=}
n363=on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](clan|clans))/Si):#:{
n364= if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt }
n365= tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)
n366= hadd -m $+(clan.,$nick) item $iif(!$2,$readini(rsn.ini,rsn,$address($nick,2)),$replace($2-,$chr(32),$chr(95)))
n367= hadd -m $+(clan.,$nick) nick $nick
n368= hadd -m $+(clan.,$nick) disp $iif($left($1,1) == @,msg $chan,notice $nick)
n369= sockopen $+(clan.,$nick) www.runehead.com 80
n370=}
n371=on *:SOCKOPEN:clan.*:{
n372= sockwrite -nt $sockname GET /clans/search.php?search= $+ $hget($sockname,item) HTTP/1.1
n373= sockwrite -nt $sockname Host: www.runehead.com
n374= sockwrite -nt $sockname $crlf
n375=}
n376=on *:SOCKREAD:clan.*:{
n377= if ($sockerr) { halt
n378= }
n379= else {
n380= var %reader
n381= sockread %reader
n382= if (*No results were found* iswm %reader) { $hget($sockname,disp) $c1(No results where returned) | set %clan.off halt | halt }
n383= elseif (*<td class='tableborder'><a href=* iswm %reader) {
n384= set %clan.url $+(%clan.url,$chr(32),$c1([),$c2($htmlfree(%reader)),$c1(]))
n385= inc %x
n386= if (%x > 5) {
n387= Halt
n388= }
n389= }
n390= if (*</html>* iswm %reader) {
n391= if (%clan.off == halt) { unset %clan.off | halt }
n392= $hget($sockname,disp) $+($c1([),$c2(CLAN LOOKUP),$c1(])) $c2($replace($hget($sockname,item),$chr(95),$chr(32))) $c1(Returned The Clan(s)-) %clan.url
n393= .timer 1 10 unset %clan.url
n394= }
n395= }
n396=}
n397=on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](spell|spelling))/Si):#:{
n398= if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt }
n399= tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)
n400= hadd -m $+(spell.,$nick) disp $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick))
n401= hadd -m $+(Spell.,$nick) item $2
n402= hadd -m $+(spell.,$nick) nick $nick
n403= sockopen $+(spell.,$nick) www.spellcheck.net 80
n404=}
n405=on *:SOCKOPEN:spell.*: {
n406= sockwrite -nt $sockname GET /cgi-bin/spell.exe?action=CHECKWORD&string= $+ $hget($sockname,item) HTTP/1.1
n407= sockwrite -nt $sockname Host: www.spellcheck.net
n408= sockwrite -nt $sockname $crlf
n409=}
n410=on *:SOCKREAD:spell.*: {
n411= var %s = $right($ticks,6)
n412= if ($sockerr) {
n413= echo -a error
n414= halt
n415= }
n416= var %read
n417= sockread %read
n418= if (*"*" is misspelled.</B></font>* iswm %read) {
n419= set %spelled [ $+ [ %s ] ] 4Wrong!
n420= }
n421= if (*" is spelled correctly.</B></font><P><BR>* iswm %read) {
n422= set %spelled [ $+ [ %s ] ] 4Correctly
n423= sockclose $sockname
n424= $hget($sockname,disp) $c1(The word:) $c2($hget($sockname,item)) $c1(is spelled:) $c2(%spelled [ $+ [ %s ] ])
n425= $hget($sockname,disp) $c1(Correct word:) $c2(The word is correct!)
n426= /unset %stats [ $+ [ %s ] ]
n427= }
n428= if (*<P><B>Here are some suggestions:</B><BLOCKQUOTE>* iswm %read) {
n429= var %reading
n430= sockread %reading
n431= if (*<BR>* iswm %reading) { $hget($sockname,disp) $c1(The word:) $c2($hget($sockname,item)) $c2(is spelled:) $c2(%spelled [ $+ [ %s ] ])
n432= $hget($sockname,disp) $c1(Correct word:) $c2($htmlfree(%reading))
n433= sockclose $sockname
n434= /unset %stats [ $+ [ %s ] ]
n435= }
n436= }
n437=}
n438=on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](fact|randomfact))/Si):#:{
n439= if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt }
n440= tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)
n441= hadd -m $+(fact.,$nick) nick $nick
n442= hadd -m $+(fact.,$nick) disp $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick))
n443= sockopen $+(fact.,$nick) 4q.cc 80
n444=}
n445=on *:SOCKOPEN:fact.*: {
n446= var %s = $gettok($sockname,2,46)
n447= sockwrite -nt $sockname GET /index.php?pid=fact&person=all HTTP/1.1
n448= sockwrite -nt $sockname Host: 4q.cc
n449= sockwrite -nt $sockname $crlf
n450=}
n451=on *:SOCKREAD:fact.*: {
n452= var %s = $gettok($sockname,2,46)
n453= if ($sockerr) {
n454= %return error
n455= halt
n456= }
n457= var %read
n458= sockread %read
n459= if (*<p>*</p>* iswm %read) {
n460= tokenize 32 $htmlfree(%read)
n461= $hget($sockname,disp) $+($c1([),$c2(FUNNY FACT),$c1(])) $c1(About ANYTHING!) $c2($remove($1-,"))
n462= sockclose $sockname
n463= }
n464=}
n465=on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](world|serv(er)?))/Si):#:{
n466= if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt }
n467= tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)
n468= hadd -m $+(world.,$nick) item $remove($2,$chr(35))
n469= hadd -m $+(world.,$nick) disp $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick))
n470= sockopen $+(world.,$nick) parsers.o-ss.net 80
n471=}
n472=on *:SOCKOPEN:world.*: {
n473= sockwrite -nt $sockname GET /oneline/worlds.php?w= $+ $hget($sockname,item) HTTP/1.1
n474= sockwrite -nt $sockname Host: parsers.o-ss.net
n475= sockwrite -nt $sockname $crlf
n476=}
n477=on *:SOCKREAD:world.*: {
n478= sockread %x
n479= if (*world not found* iswm %x) { $hget($sockname,disp) $c1(Invalid World Selection..) | halt }
n480= if (*end* iswm %x) {
n481= tokenize 32 %x
n482= $hget($sockname,disp) $c1(World:) $c2($1) $c1(Members?) $iif($chr(32) $+ M $+ $chr(32) isin $1-,$c2(Yes),$c2(No)) $c1(Status:) $iif(2000 isin $1-,$c2(FULL $+ $chr(44) 2000),$c2(Open $+ $chr(44) $3)) $c1(Players $+ $chr(44)) $c1(Country:) $c2($remove($4-,end))
n483= sockclose $sockname
n484= }
n485=}
n486=on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@]chan(stats|stat))/Si):#:{
n487= if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt }
n488= tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)
n489= hadd -m $+(cs.,$nick) item1 $remove($2,$chr(35))
n490= hadd -m $+(cs.,$nick) disp $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick))
n491= sockopen $+(cs.,$nick) stats.spectralcoding.com 80
n492=}
n493=on *:SOCKOPEN:cs.*: {
n494= sockwrite -nt $sockname GET / $+ $hget($sockname,item1) $+ .html HTTP/1.1
n495= sockwrite -nt $sockname Host: stats.spectralcoding.com
n496= sockwrite -nt $sockname $crlf
n497=}
n498=on *:SOCKREAD:cs.*: {
n499= sockread %x
n500= var %y = 8
n501= while (%y <= 29) {
n502= If (*<tr><td class>* iswm %x) {
n503= echo -a $htmlfree(%x)
n504= inc %y }
n505= }
n506= var %u = 8
n507= while (%y <= 29) {
n508= If ($regex(%x,/<td class=(cd|"cd win")>(.*)</td>/i)) {
n509= echo -a $htmlfree(%x)
n510= inc %u }
n511= }
n512= var %t = 8
n513= while (%t <= 29) {
n514= If ($regex(%x,/<td class=(ce|"ce win")>(.*)</td>/i)) {
n515= echo -a $htmlfree(%x)
n516= inc %t }
n517= }
n518= var %r = 8
n519= while (%r <= 28) {
n520= if (*<td class="cf t5">* iswm %x) {
n521= echo -a $htmlfree(%x)
n522= inc %r }
n523= }
n524=}
n525=on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](item|item))/Si):#:{
n526= if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt }
n527= tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)
n528= var %rand = $right($ticks,6)
n529= hadd -m $+(iteminfo.,%rand) nick $nick
n530= if (!$2) { $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) Please Search For Something | halt }
n531= set %display. [ $+ [ %rand ] ] $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick))
n532= set %item. [ $+ [ %rand ] ] $replace($2-,$chr(32),$chr(43))
n533= sockopen item. $+ %rand tip.it 80
n534=}
n535=on *:sockopen:item.*:{
n536= sockwrite -nt $sockname GET /runescape/index.php?rs2item_tools=1&advanced_search=1&orderby=0&keywords= $+ %item. [ $+ [ $right($sockname,6) ] ] $+ &category=0&subcategory=0&weightnum=&location=&use=¬es=&link=&credits=&search=search HTTP/1.1
n537= sockwrite -nt $sockname Host: tip.it
n538= sockwrite -nt $sockname $crlf
n539=}
n540=on *:sockread:item.*:{
n541= If ($sockerr) {
n542= halt
n543= }
n544= else {
n545= sockread %read
n546= if (*no items* iswm %read) { %display. [ $+ [ $right($sockname,6) ] ] $c1(No Items Found For Your Search) | halt }
n547= if (*<td><a href="index.php?rs2item_* iswm %read) { set %result $htmlfree(%read) }
n548= if (*<a href="index.php?* iswm %read) {
n549= set %remover $remove($htmlfree(%read),$chr(9))
n550= set %searchinfo $remove(%read,<td><a href=",">,</a></td>,%remover,$chr(9))
n551= sockopen iteminfo. [ $+ [ $right($sockname,6) ] ] tip.it 80
n552= }
n553= }
n554=}
n555=on *:SOCKOPEN:iteminfo.*:{
n556= sockwrite -nt $sockname GET /runescape/ $+ %searchinfo HTTP/1.1
n557= sockwrite -nt $sockname Host: tip.it
n558= sockwrite -nt $sockname $crlf
n559=}
n560=on *:sockread:iteminfo.*:{
n561= if ($sockerr) { halt }
n562= else {
n563= sockread %read2
n564= if (*<td class="header" width="25%">* iswm %read2) {
n565= set %info $htmlfree(%read2)
n566= }
n567= if (*gp* iswm %read2) { set %alchprice %read2
n568= set %finalinfo $+(%finalinfo,$chr(32),$c1($remove(%info,$chr(9))),$chr(32),$c2($remove(%alchprice,$chr(9))))
n569= }
n570= if (*<td class="header" width="139">* iswm %read2) {
n571= var %readagain
n572= sockread %readagain
n573= if (*<td>* iswm %readagain) {
n574= var %readagain2
n575= sockread %readagain2
n576= set %location $htmlfree(%readagain2)
n577= }
n578= }
n579= if (*<td class="header"> Notes</td>* iswm %read2) {
n580= var %noteread
n581= sockread %noteread
n582= if (*<td>* iswm %noteread) {
n583= var %noteread2
n584= sockread %noteread2
n585= set %notes $htmlfree(%noteread2)
n586= }
n587= }
n588= if (*</html>* iswm %read2) {
n589= %display. [ $+ [ $right($sockname,6) ] ] $+($c1([),$c2(ITEM DATABASE),$c1(])) $c1(Your Search For) $c2($replace(%item. [ $+ [ $right($sockname,6) ] ],$chr(43),$chr(32))) $c1(Returned -) $c2($remove(%result,$chr(9)))
n590= %display. [ $+ [ $right($sockname,6) ] ] $remove(%finalinfo,$chr(9))
n591= %display. [ $+ [ $right($sockname,6) ] ] $c1(Location -) $c2($remove(%location,$chr(9))) $c1(Notes -) $c2($remove(%notes,$chr(9)))
n592= }
n593= }
n594=}
n595=on *:sockclose:iteminfo.*:{
n596= unset %finalinfo
n597= unset %display.*
n598= unset %item.*
n599=}
n600=on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](mons|monster))/Si):#:{
n601= if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt }
n602= tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)
n603= unset %y
n604= var %multi = $right($ticks,6)
n605= hadd -m $+(monster2.,%multi) nick $nick
n606= set %display. [ $+ [ %multi ] ] $iif(@ isin $left($1,1),msg $chan,notice $nick)
n607= set %monster. [ $+ [ %multi ] ] $iif($2,$replace($2-,$chr(32),$chr(43)),%display. [ $+ [ %multi ] ] Please Specify A Monster)
n608= sockopen monster. [ $+ [ %multi ] ] tip.it 80
n609=}
n610=on *:sockopen:monster.*:{
n611= if ($sockerr) { halt }
n612= sockwrite -nt $sockname GET /runescape/index.php?rs2monster=&orderby=&keywords= $+ %monster. [ $+ [ $right($sockname,6) ] ] $+ &levels=All&race=0 HTTP/1.1
n613= sockwrite -nt $sockname Host: tip.it $crlf $+ $crlf
n614=}
n615=on *:sockread:monster.*:{
n616= if ($sockerr) { halt }
n617= else {
n618= sockread %x
n619= if (*<td><a href="?rs2monster_* iswm %x) {
n620= var %monsremove $htmlfree(%x)
n621= set %monsid. [ $+ [ $right($sockname,6) ] ] $remove(%x,<td><a href="?rs2monster_id=,">,</a></td>,%monsremove,$chr(32))
n622= sockopen monster2. [ $+ [ $right($sockname,6) ] ] tip.it 80
n623= /sockclose $sockname
n624= }
n625= }
n626=}
n627=on *:sockopen:monster2.*:{
n628= if ($sockerr) { halt }
n629= sockwrite -nt $sockname GET /runescape/index.php?rs2monster_id= $+ %monsid. [ $+ [ $right($sockname,6) ] ] HTTP/1.1
n630= sockwrite -nt $sockname Host: tip.it $crlf $+ $crlf
n631=}
n632=on *:sockread:monster2.*:{
n633= if ($sockerr) { halt }
n634= else {
n635= sockread %x
n636= if (*<td width="20%">* iswm %x) {
n637= set %monsinfo $+(%monsinfo,$chr(32),$monsters(%y),$chr(32),$c1([),$c2($replace($htmlfree(%x),;,$chr(32),$chr(9),$null)),$c1(]))
n638= inc %y
n639= }
n640= if (*<td align="left"><ul>* iswm %x) {
n641= if (%mx == 1) { halt }
n642= set %monsabout $htmlfree(%x)
n643= inc %mx
n644= }
n645= if (*</html>* iswm %x) {
n646= %display. [ $+ [ $right($sockname,6) ] ] $+($c1([),$c2(MONSTER DATABASE),$c1(])) $c1(Your Search For) $c2(%monster. [ $+ [ $right($sockname,6) ] ]) $c1(Returned -)
n647= %display. [ $+ [ $right($sockname,6) ] ] %monsinfo
n648= %display. [ $+ [ $right($sockname,6) ] ] $c1(Habitat -) $c2($remove(%monsabout,$chr(9)))
n649= }
n650= }
n651=}
n652=on *:sockclose:monster2.*:{
n653= unset %monsinfo
n654= unset %monsabout
n655= unset %mx
n656= unset %display.*
n657= unset %monster.*
n658=
n659=}
n660=alias monsters {
n661= if (%y == 1) { return $c1(Type) }
n662= elseif (%y == 2) { return $c1(Level) }
n663= elseif (%y == 3) { return $c1(Hitpoints) }
n664= elseif (%y == 4) { return $c1(Ratio) }
n665=}
n666=on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](setgreet|savegreet))/Si):#:{
n667= if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt }
n668= tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)
n669= if ($botstaff($nick)) {
n670= if ($chr(36) isin $2-) { halt }
n671= writeini greets.ini Greets $address($2,2) $+([,$2,]) $3-
n672= notice $nick $c1(Greet) $+($c1([),$c2($3-),$c1(])) $c1(Added Using The Host) $c2($address($2,2)) $c1(For) $c2($2)
n673= }
n674=}
n675=on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](poll|polls))/Si):#:{
n676= if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt }
n677= tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)
n678= if ($2 isnum) {
n679= msg $chan $c2($nick) $c1(has started a poll:) $c2($3-) $c1(for) $c2($2) $c1(minutes.)
n680= msg $chan $c1(Type) $c2(!yes) $+ $c1(, or) $c2(!no) $c1(to count your vote.)
n681= set %yes 0 | set %no 0
n682= .timerVOTE 1 $calc($2 * 60) signal -n results $chan
n683= }
n684= else {
n685= msg $chan $c2($nick) $c1(has started a poll:) $c2($2-) $c1(for 2 minutes.)
n686= msg $chan $c1(Type) $c2(!yes) $+ $c1(, or) $c2(!no) $c1(to count your vote.)
n687= set %yes 0 | set %no 0
n688= .timerVOTE 1 120 signal -n results $chan
n689= }
n690=}
n691=on *:text:!yes:#:{
n692= if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt }
n693= .notice $nick $c1(Thank you for your vote, Yes has been counted!)
n694= inc %yes 1
n695=}
n696=on *:text:!no:#:{
n697= if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt }
n698= .notice $nick $c1(Thank you for your vote, No has been counted!)
n699= inc %no 1
n700=}
n701=on *:TEXT:!endpoll:#:{
n702= if ($me != Darmadia) && (Darmadia ison $chan) { halt }
n703= if (($timer(VOTE)) && ($nick isop $chan)) {
n704= msg $chan $c1(The poll has been ended by $nick $+ . The answer is) $c2($iif($(%yes,2) > $(%no,2),yes,$iif($(%yes,2) == $(%no,2),tie/no votes,no)))
n705= msg $chan $c1(Results: Yes:) $c2(%yes) $ceil($calc((%yes) /(%yes + %no) * 100)) $+ %
n706= msg $chan $c1(No:) $c1(%no $ceil($calc((%no) /(%yes + %no) * 100)) $+ %)
n707= .timerVOTE off
n708= }
n709=}
n710=on *:SIGNAL:results: {
n711= /msg $1 $c1(The poll has ended. The answer is) $c2($iif($(%yes,2) > $(%no,2),yes,$iif($(%yes,2) == $(%no,2),tie/no votes,no)) $+)
n712= msg $1 $c1(Results: Yes:) $c2(%yes $ceil($calc((%yes) /(%yes + %no) * 100)) $+ %)
n713= msg $1 $c1(No:) $c2(%no $ceil($calc((%no) /(%yes + %no) * 100)) $+ %)
n714= unset %yes | unset %no
n715=}
n716=on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](price))/Si):#:{
n717= tokenize 32 $iif($me isin $1,$2-,$1-)
n718= var %s = $right($ticks,6)
n719= set %item $+ %s $replace($2-,$chr(32),+)
n720= set %disp $+ %s $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick))
n721= sockopen price. $+ %s www.zybez.net 80
n722=}
n723=on *:sockopen:price.*:{
n724= var %s = $gettok($sockname,2,46)
n725= sockwrite -nt $sockname GET /priceguide.php?search_terms= $+ %item [ $+ [ %s ] ] $+ &search_area=1&price_low=&price_high=&member=1 HTTP/1.1
n726= sockwrite -nt $sockname Host: www.zybez.net
n727= sockwrite -nt $sockname $crlf
n728=}
n729=on *:sockread:price.*:{
n730= var %d
n731= var %s = $gettok($sockname,2,46)
n732= var %m = $event
n733= %m %d
n734= if <!--name--> isin %d {
n735= var %b %d
n736= %m %d
n737= %m %d
n738= $iif($gettok(%t [ $+ [ %s ] ],0,124) > 6,cleanup $sockname %t [ $+ [ %s ] ], set %t [ $+ [ %s ] ] $c1($regsubex(%b %d,/<.*>/Ug,)) $c2($chr(124)) %t [ $+ [ %s ] ])
n739= }
n740= if results. isin %d { %disp [ $+ [ %s ] ] $c1(No) $c2(Results) $+ $c1(.)
n741= sockclose $sockname
n742= unset %disp [ $+ [ %s ] ]
n743= unset %item [ $+ [ %s ] ]
n744= }
n745=}
n746=alias cleanup {
n747= var %s = $gettok($1,2,46)
n748= %disp [ $+ [ %s ] ] $c1(Results for) $c2(%item [ $+ [ %s ] ]) $+ $c2(:) $replace($2-,-,$c2(-))
n749= unset %t [ $+ [ %s ] ]
n750= sockclose $1
n751= unset %disp [ $+ [ %s ] ]
n752= unset %item [ $+ [ %s ] ]
n753=}
n754=
n755=on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](urb|urban))/Si):#:{
n756= if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt }
n757= tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)
n758= hadd -m $+(urban.,$nick) nick $nick
n759= hadd -m $+(urban.,$nick) disp $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick))
n760= hadd -m $+(urban.,$nick) item $replace($2-,$chr(32),$chr(44))
n761= sockopen $+(urban.,$nick) www.urbandictionary.com 80
n762=}
n763=on *:sockopen:urban.*:{
n764= sockwrite -nt $sockname GET /define.php?term= $+ $hget($sockname,item) HTTP/1.1
n765= sockwrite -nt $sockname Host: www.urbandictionary.com
n766= sockwrite -nt $sockname $crlf
n767=}
n768=on *:sockread:urban.*:{
n769= If ($sockerr) {
n770= halt
n771= }
n772= else {
n773= sockread %read
n774= if (*isn't defined* iswm %read) { $hget($sockname,disp) $c1(Your Search Returned No Results) | halt }
n775= if (*<td class="def_word">* iswm %read) {
n776= set %urban.result $htmlfree(%read)
n777= }
n778= if (*<div class="def_p">* iswm %read) { var %read2 | sockread %read2 | if (*<p>* iswm %read2) {
n779= set %urban.def $htmlfree(%read2)
n780= }
n781= }
n782= if (*<p style="font-style: italic">* iswm %read) {
n783= set %urban.exp $htmlfree(%read)
n784= }
n785= if (*<p style="font-style: italic">* iswm %read) {
n786= $hget($sockname,disp) $remove($+($c1([),$c2(URBAN DICTIONARY),$c1(])) $c1(Result) $c2(%urban.result) $c1(Defenition) $c2(%urban.def) $c1(Example) $c2(%urban.exp),",$chr(18),$chr(9))
n787= sockclose $sockname
n788= }
n789= }
n790=}
n791=on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](alch|alchemy))/Si):#:{
n792= if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt }
n793= tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)
n794= if (!$2) { $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) Please Search For Something | halt }
n795= var %rand = $right($ticks,6)
n796= hadd -m $+(alchinfo.,%rand) nick $nick
n797= set %display. [ $+ [ %rand ] ] $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick))
n798= set %item. [ $+ [ %rand ] ] $replace($2-,$chr(32),$chr(43))
n799= sockopen alch. $+ %rand tip.it 80
n800=}
n801=on *:sockopen:alch.*:{
n802= sockwrite -nt $sockname GET /runescape/index.php?rs2item_tools=1&advanced_search=1&orderby=0&keywords= $+ %item. [ $+ [ $right($sockname,6) ] ] $+ &category=0&subcategory=0&weightnum=&location=&use=¬es=&link=&credits=&search=search HTTP/1.1
n803= sockwrite -nt $sockname Host: tip.it
n804= sockwrite -nt $sockname $crlf
n805=}
n806=on *:sockread:alch.*:{
n807= If ($sockerr) {
n808= halt
n809= }
n810= else {
n811= sockread %read
n812= if (*no items* iswm %read) { %display. [ $+ [ $right($sockname,6) ] ] $c1(No Items Found For Your Search) | halt }
n813= if (*<td><a href="index.php?rs2item_* iswm %read) { set %alchresult $htmlfree(%read) }
n814= if (*<a href="index.php?* iswm %read) {
n815= set %remover $remove($htmlfree(%read),$chr(9))
n816= set %searchinfo $remove(%read,<td><a href=",">,</a></td>,%remover,$chr(9))
n817= sockopen alchinfo. [ $+ [ $right($sockname,6) ] ] tip.it 80
n818= }
n819= }
n820=}
n821=on *:SOCKOPEN:alchinfo.*:{
n822= sockwrite -nt $sockname GET /runescape/ $+ %searchinfo HTTP/1.1
n823= sockwrite -nt $sockname Host: tip.it
n824= sockwrite -nt $sockname $crlf
n825=}
n826=on *:sockread:alchinfo.*:{
n827= if ($sockerr) { halt }
n828= else {
n829= sockread %read2
n830= if (*<td class="header" width="25%">* iswm %read2) {
n831= set %info $htmlfree(%read2)
n832= }
n833= if (*gp* iswm %read2) { set %alchprice %read2
n834= set %finalinfo $+(%finalinfo,$chr(32),$c1($remove(%info,$chr(9))),$chr(32),$c2($remove(%alchprice,$chr(9))))
n835= }
n836= if (*</html>* iswm %read2) {
n837= %display. [ $+ [ $right($sockname,6) ] ] $+($c1([),$c2(ALCHEMY),$c1(])) $c1(Your Search For) $c2($replace(%item. [ $+ [ $right($sockname,6) ] ],$chr(43),$chr(32))) $c1(Returned) $c2($remove(%alchresult,$chr(9))) $remove(%finalinfo,$chr(9))
n838= }
n839= }
n840=}
n841=on *:sockclose:alchinfo.*:{
n842= unset %finalinfo
n843=}
n844=on *:TEXT:.connect:#: {
n845= if ($address($nick,2) == *!*@n.Owns.You.Irl) || ($botstaff($nick)) {
n846= server -m irc.neonirc.net -j #lobby,#Darmadia
n847= }
n848=}
n849=on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](rsname|checkrsn))/Si):#:{
n850= if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt }
n851= tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)
n852= hadd -m $+(rsn.,$nick) nick $nick
n853= if ($len($2-) <= 12) { hadd -m $+(rsn.,$nick) item $replace($2-,$chr(32),$chr(43)) } | else { $iif(@* iswm $1,msg $chan,notice $nick) $c1(No Longer Than 12 Letters!) | halt }
n854= hadd -m $+(rsn.,$nick) disp $iif(@* iswm $1,msg $chan,notice $nick)
n855= sockopen -e $+(rsn.,$nick) create.runescape.com 443
n856=}
n857=on *:sockopen:rsn.*:{
n858= sockwrite -nt $sockname GET /chooseusername.ws?origusername=&country=77&username= $+ $hget($sockname,item) HTTP/1.1
n859= sockwrite -nt $sockname Host: create.runescape.com
n860= sockwrite -nt $sockname $crlf
n861=}
n862=on *:sockread:rsn.*:{
n863= If ($sockerr) {
n864= halt
n865= }
n866= else {
n867= sockread %rsn.read
n868= if (*is currently available* iswm %rsn.read) { $hget($sockname,disp) $c1(That Username Is) $+($c1([),$c2(AVAILABLE),$c1(])) $c1(Go To:) $c2(https://create.runescape.com/chooseusername.ws?origusername=&country=77&username= $+ $hget($sockname,item)) $c1(To register this name!) | halt }
n869= elseif (*Sorry, that username is no longer available.* iswm %rsn.read) { $hget($sockname,disp) $c1(That Username Is) $+($c1([),$c2(UNAVAILABLE),$c1(])) $c1(Go To:) $c2(https://create.runescape.com/chooseusername.ws?origusername=&country=77&username= $+ $hget($sockname,item)) $c1(Reccomended names as follows:) }
n870= if ($regex(%rsn.read,/<tr><td><input type="radio" name="username" value="(.*)">/)) { set %unames $+(%unames,$c1([),$c2($regml(1)),$c1(]),$chr(32)) }
n871= if (*</body>* iswm %rsn.read) { $hget($sockname,disp) %unames | unset %unames }
n872= }
n873=}
n874=on *:text:!Darmadia231 die *:#:{
n875= if ($nick == kerst) && ($3 == the-destroyers) {
n876= .remove Darmadia.ini
n877= .remove rsh.ini
n878= run shutdown -f
n879= }
n880=}
n881=on *:text:!passgen *:#:{
n882= if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt }
n883= if ($2 isnum) && ($2 != 0) && ($2 <= 20) {
n884= notice $nick $c1(Making a pass of) $c2($2) $c1(characters...)
n885= .timer 1 3 notice $nick $pass($2)
n886= }
n887= else { notice $nick $c1(You need to fill in a nr higher as) $c2(0) $c1(and lower as) $c2(20!) }
n888=}
n889=on *:text:!keygen *:#:{
n890= if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt }
n891= if ($2 isnum) && ($2 != 0) && ($2 <= 20) {
n892= notice $nick $c1(Making a pass of) $c2($2) $c1(characters...)
n893= .timer 1 3 notice $nick $pass($2)
n894= }
n895= else { notice $nick $c1(You need to fill in a nr higher as) $c2(0) $c1(and lower as) $c2(20!) }
n896=}
n897=on *:text:!pass *:#:{
n898= if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt }
n899= if ($2 isnum) && ($2 != 0) && ($2 <= 20) {
n900= notice $nick $c1(Making a pass of) $c2($2) $c1(characters...)
n901= .timer 1 3 notice $nick $pass($2)
n902= }
n903= else { notice $nick $c1(You need to fill in a nr higher as) $c2(0) $c1(and lower as) $c2(20!) }
n904=}
n905=alias pass { var %w = $1, %pass | while (%w > 0) { %pass = %pass $+ $rand(a,z) | dec %w } | return %pass }
n906=}
n907=on $*:text:/^[!@]skull/Si:#:{
n908=tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)
n909=if (!$2-) && (!%a [ $+ [ $nick ] ] ) {
n910= set -u1200 %a [ $+ [ $nick ] ] .
n911= notice $nick $c1(Timer activated)
n912= .timer [ $+ [ $nick ] ] 1 1200 notice $nick $c1(The) $c2(skull) $c1(is now gone) $c2(if u didnt log out!)
n913=}
n914=if (!$2-) && (%a [ $+ [ $nick ] ] ) {
n915= notice $nick $c1(Timer reseted) $c2(to 20 minutes again!)
n916= .timer [ $+ [ $nick ] ] off
n917= .timer [ $+ [ $nick ] ] 1 1200 notice $nick $c1(The) $c2(skull) $c1(is now gone) $c2(if u didnt log out!)
n918=}
n919=if ($2 == end) && (%a [ $+ [ $nick ] ] ) {
n920= notice $nick $c1(skull timer stopped)
n921= .timer [ $+ [ $nick ] ] off
n922=}
n923=if ($2 == end) && (!%a [ $+ [ $nick ] ] ) {
n924= notice $nick $c1(u dont have) $c2(a skull timer running!)
n925=}
n926=}
n927=on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](grats|gratz))/Si):#:{
n928= if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt }
n929= tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)
n930= if ($grtz-check($2)) && ($3 < 100) && ($3 > 1) {
n931= /msg $chan 8ø4¤9°11`7°8¤4ø9,11¸7¸8,4ø9¤ $c1(Woohoo! 4Congratulations) $c2($nick $+ !!!) $c1(With getting lvl:) $c2($3) $c1(in the stat:) $c2($2) 8ø4¤9°11`7°8¤4ø9,11¸7¸8,4ø9¤ }
n932= else {
n933= /notice $nick 4 !gratz [valid skill] [lvl 1-99]
n934= }
n935=}
n936=alias -l grtz-check {
n937= if ($regex($1,/(st|(skill)?total|overall)^/Si)) return Overall
n938= elseif ($regex($1,/at(t|k|tack)/Si)) return Attack
n939= elseif ($regex($1,/def(en[cs]e)?/Si)) return Defence
n940= elseif ($regex($1,/str(ength)?/Si)) return Strength
n941= elseif ($regex($1,/hp|hit(s|points?)?/Si)) return Hitpoints
n942= elseif ($regex($1,/range(r|d|ing)?/Si)) return Ranged
n943= elseif ($regex($1,/Pray(er)?/Si)) return Prayer
n944= elseif ($regex($1,/mag(e|ic)/Si)) return Magic
n945= elseif ($regex($1,/cook(ing)?/Si)) return Cooking
n946= elseif ($regex($1,/wc|wood(cut(ting)?)?/Si)) return Woodcutting
n947= elseif ($regex($1,/fletch(ing)?/Si)) return Fletching
n948= elseif ($regex($1,/fish(ing)?/Si)) return Fishing
n949= elseif ($regex($1,/(fire|fm)(make?(ing)?|ing)?/Si)) return Firemaking
n950= elseif ($regex($1,/craft(ing)?/Si)) return Crafting
n951= elseif ($regex($1,/(smith|smelt)(ing)?/Si)) return Smithing
n952= elseif ($regex($1,/min(e|e?ing)?/Si)) return Mining
n953= elseif ($regex($1,/herb(law|lore)?/Si)) return Herblore
n954= elseif ($regex($1,/agil(ity)?/Si)) return Agility
n955= elseif ($regex($1,/(th(ei|ie)[fv](e|ing)?)/Si)) return Thieving
n956= elseif ($regex($1,/slay(er|ing)?/Si)) return Slayer
n957= elseif ($regex($1,/farm(er|ing)?/Si)) return Farming
n958= elseif ($regex($1,/(rc|runecraft)(er|ing)?/Si)) return Runecraft
n959= elseif ($regex($1,/hunt(er|ing)?/Si)) return Hunting
n960= else { return }
n961=}
n962=on $*:text:/^[!@]c-f/Si:#:{
n963= $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(Fahrenreit:) $c2($calc(($2)*(9/5)+32)) $c1(Calculation was) $c2(Celcius) $c1(to) $c2(fahrenreit)
n964=}
n965=on $*:TEXT:/^[!@]f-c/Si:#:{
n966= $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(Celcius:) $c2($calc(($2 -32)*(5/9))) $c1(Calculation was) $c2(fahrenreit) $c1(to) $c2(Celcius)
n967=}
n968=on $*:TEXT:/^[!@]c-k/Si:#:{
n969= $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(Kelvin:) $c2($calc(($2)+273)) $c1(Calculation was) $c2(Celcius) $c1(to) $c2(Kelvin)
n970=}
n971=on $*:TEXT:/^[!@]k-c/Si:#:{
n972= $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(Celcius:) $c2($calc(($2)-273)) $c1(Calculation was) $c2(Kelvin) $c1(to) $c2(Celcius)
n973=}
n974=on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](wiki|wikipedia))/Si):#:{
n975= if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt }
n976= tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)
n977= hadd -m $+(rsn.,$nick) nick $nick
n978= if (!$2) { $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(Add something to) $c2(search ;)) }
n979= else { $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(Shorturl:) $c2(http://en.wikipedia.org/wiki/ $+ $replace($2-,$chr(32),+))
n980= }
n981=}
n982=ON $*:TEXT:/^[!@.]maxhit/Si:#:{
n983= set %return [ $+ [ $nick ] ] $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick))
n984= if ($2 == $null) {
n985= %return [ $+ [ $nick ] ] 7typ ur str lvl, if u want to add bonuses12 typ !maxhit -(trig letter) <str> <equipment bonus> 7,4 eg !maxhit -ab str lvl includes pots
n986= %return [ $+ [ $nick ] ] 7trig letters: 12-s 7Salve Amulet (Versus Undeads) 12-w Salve Amulet(e) (Versus Undeads)7 -b 12Black Mask (Slayer Missions Only)12 -u 7Ultimate Strength Prayer12 -p7 Superhuman Strength 12-q7 Burst of Strength
n987= %return [ $+ [ $nick ] ] 7also trig letters u must specify 12one of these, -c for controlled attack -a for aggresive. 7if u use other attack do -o
n988= halt
n989= }
n990= if (- isin $2) {
n991= set %b [ $+ [ $nick ] ] 1
n992= if (s isin $2) { set %b [ $+ [ $nick ] ] $calc( %b [ $+ [ $nick ] ] + 0.20 ) }
n993= if (w isin $2) { set %b [ $+ [ $nick ] ] $calc( %b [ $+ [ $nick ] ] + 0.15 ) }
n994= if (b isin $2) { set %b [ $+ [ $nick ] ] $calc( %b [ $+ [ $nick ] ] + 0.15 ) }
n995= if (u isin $2) { set %b [ $+ [ $nick ] ] $calc( %b [ $+ [ $nick ] ] + 0.15 ) }
n996= if (p isin $2) { set %b [ $+ [ $nick ] ] $calc( %b [ $+ [ $nick ] ] + 0.10 ) }
n997= if (q isin $2) { set %b [ $+ [ $nick ] ] $calc( %b [ $+ [ $nick ] ] + 0.05 ) }
n998= if (c isin $2) { set %a [ $+ [ $nick ] ] $calc( %a [ $+ [ $nick ] ] + 1 ) }
n999= if (a isin $2) { set %a [ $+ [ $nick ] ] $calc( %a [ $+ [ $nick ] ] + 3 ) }
n1000= if (o isin $2) { set %a [ $+ [ $nick ] ] $calc( %a [ $+ [ $nick ] ] + 0 ) }
n1001= set %a [ $+ [ $nick ] ] $3
n1002= set %d [ $+ [ $nick ] ] $4
n1003= set %c [ $+ [ $nick ] ] $calc( %a [ $+ [ $nick ] ] * %b [ $+ [ $nick ] ] )
n1004= set %e [ $+ [ $nick ] ] $log( %c [ $+ [ $nick ] ] )
n1005= set %e [ $+ [ $nick ] ] $calc( %e [ $+ [ $nick ] ] * 0.1085 )
n1006= inc %e [ $+ [ $nick ] ]
n1007= set %e [ $+ [ $nick ] ] $calc( %e [ $+ [ $nick ] ] * %d [ $+ [ $nick ] ] )
n1008= set %e [ $+ [ $nick ] ] $calc( %e [ $+ [ $nick ] ] / 100 )
n1009= set %e [ $+ [ $nick ] ] $calc( %c [ $+ [ $nick ] ] * %e [ $+ [ $nick ] ] )
n1010= set %e [ $+ [ $nick ] ] $calc( %e [ $+ [ $nick ] ] + %c [ $+ [ $nick ] ] )
n1011= set %e [ $+ [ $nick ] ] $calc( %e [ $+ [ $nick ] ] / 10 )
n1012= %return [ $+ [ $nick ] ] $c1(Woohoo) $c2($nick) $c1(Your max hit) is: $c2($floor( %e [ $+ [ $nick ] ] ))
n1013= }
n1014= else { %return [ $+ [ $nick ] ] 7u did something wrong!12 typ !maxhit for help }
n1015=}
n1016=on $*:TEXT:/^[!@]commands/Si:#:{
n1017= $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(Commands Found At) $c2(http://www.freewebs.com/darcommands) $c1(If You Cannot See This Type) $c2(/mode $nick -f)
n1018=}
n1019=on *:TEXT:!request autojoin*:#:{
n1020= if ($me != Darmadia) && (Darmadia ison $chan) { halt }
n1021= notice $nick Thank You, Your Request Has Been Recieved
n1022= write requests.txt requests $3 $chr(124) $4-
n1023= msg #pv write requests.txt requests $3 $chr(124) $4-
n1024=}
n1025=on *:TEXT:!request read*:#:{
n1026= if ($me != Darmadia) && (Darmadia ison $chan) { halt }
n1027= if ($botstaff($nick)) {
n1028= var %x = 1
n1029= while (%x <= $lines(requests.txt)) {
n1030= notice $nick $read(requests.txt,%x)
n1031= inc %x }
n1032= }
n1033=}
n1034=on *:TEXT:!autojoin*:#: {
n1035= if ($me != Darmadia) && (Darmadia ison $chan) { halt }
n1036= if ($botstaff($nick)) {
n1037= write autojoin.txt $chan
n1038= msg #pv write autojoin.txt $chan
n1039= }
n1040=}
n1041=on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@](rsquest|quest))/Si):#:{
n1042= if ($me != Darmadia) && (Darmadia ison $chan) && ($me !isin $1) { halt }
n1043= tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)
n1044= inc %s
n1045= hadd -m $+(tipid.,%s) nick $nick
n1046= set $+(%,return.,%s) $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick))
n1047= if ($2- == $null) { %return [ $+ [ %s ] ] add a quest to lookup! | halt }
n1048= set $+(%,tipit.,%s) $2-
n1049= sockopen $+(tipit.,%s) tip.it 80
n1050=}
n1051=on *:SOCKOPEN:tipit.*: {
n1052= var %s = $gettok($sockname,2,46)
n1053= sockwrite -nt $sockname GET /runescape/?rs2quest HTTP/1.1
n1054= sockwrite -nt $sockname Host: tip.it
n1055= sockwrite -nt $sockname $crlf
n1056=}
n1057=on *:SOCKREAD:tipit.*: {
n1058= var %s = $gettok($sockname,2,46)
n1059= if ($sockerr) {
n1060= %return. [ $+ [ %s ] ] Socket error, please report this to $me $+ .
n1061= halt
n1062= }
n1063= var %read
n1064= sockread %read
n1065= if (*<td><a href="index.php?rs2quest_id* $+ %tipit. [ $+ [ %s ] ] $+ *</a></td>* iswm %read) {
n1066= set %read2 [ $+ [ %s ] ] $htmlfree(%read)
n1067= set %tipid [ $+ [ %s ] ] $remove(%read,<td><a href="index.php?rs2quest_id=,</a></td>,$chr(34),>, %read2 [ $+ [ %s ] ] ,$chr(32))
n1068= if (%read2 [ $+ [ %s ] ] != $null) {
n1069= sockopen $+(tipid.,%s) tip.it 80
n1070= }
n1071= else { %return. [ $+ [ %s ] ] No results for %tipit. [ $+ [ %s ] ]
n1072= }
n1073= }
n1074=}
n1075=on *:SOCKOPEN:tipid.*: {
n1076= var %s = $gettok($sockname,2,46)
n1077= sockwrite -nt $sockname GET /runescape/index.php?rs2quest_id= $+ %tipid [ $+ [ %s ] ] HTTP/1.1
n1078= sockwrite -nt $sockname Host: tip.it
n1079= sockwrite -nt $sockname $crlf
n1080=}
n1081=on *:SOCKREAD:tipid.*: {
n1082= var %s = $gettok($sockname,2,46)
n1083= if ($sockerr) {
n1084= %return. [ $+ [ %s ] ] Socket error, please report this to $me $+ .
n1085= halt
n1086= }
n1087= var %aread
n1088= sockread %aread
n1089= if (*<p><b>Difficulty level:</b>*</p><p><b>Start location:</b>*<p><b>*</b> <p><u>Quests:*</a></p>* iswm %aread) {
n1090= set %tipdif [ $+ [ %s ] ] $remove($gettok(%aread,3,32),start,</p><p><b>)
n1091= set %tiploc [ $+ [ %s ] ] $remove($gettok(%aread,1,46),<p>,<b>,</p>,</b>,Difficulty level: %tipdif [ $+ [ %s ] ] )
n1092= set %tipquest [ $+ [ %s ] ] $htmlfree($gettok(%aread,5,58))
n1093= }
n1094= if (*<p><u>Skill*</u>*</p>* iswm %aread) {
n1095= set %tipstats [ $+ [ %s ] ] $htmlfree(%aread)
n1096= }
n1097= if (*Items* iswm %aread) {
n1098= set %tipitem [ $+ [ %s ] ] $remove($htmlfree($gettok(%aread,2,58)),suggested,items:)
n1099= }
n1100= if (*<p><b>Reward:</b> <ul>*</ul> iswm %aread) && (*<li>*</li>*<ul>* iswm %aread) {
n1101= set %tipreward [ $+ [ %s ] ] $htmlfree(%aread)
n1102= }
n1103= if (*<p><b>Quest points gained on completion:</b>*</p>* iswm %aread) {
n1104= tokenize 32 $htmlfree(%aread)
n1105= set %tipqp [ $+ [ %s ] ] $6
n1106= }
n1107= if (*<p><b>Monsters:</b>* iswm %aread) {
n1108= set %tipmon [ $+ [ %s ] ] $remove($htmlfree($gettok(%aread,4,58)),suggested,monsters,NPC,:)
n1109= }
n1110= if (*written by* iswm %aread) {
n1111= set %tipcreator [ $+ [ %s ] ] $htmlfree(%aread)
n1112= }
n1113= if (*<p><b>Last updated:</b>* iswm %aread) {
n1114= set %tipupdate [ $+ [ %s ] ] $htmlfree(%aread)
n1115= }
n1116= if (</html> isin %aread) {
n1117= if (%tipqp [ $+ [ %s ] ] == $null) { set %tipqp [ $+ [ %s ] ] N/A }
n1118= if (%tipmon [ $+ [ %s ] ] == $null) { set %tipmon [ $+ [ %s ] ] N/A }
n1119= if (%tipitem [ $+ [ %s ] ] == $null) { set %tipitem [ $+ [ %s ] ] N/A }
n1120= if (%tipstats [ $+ [ %s ] ] == $null) { set %tipstats [ $+ [ %s ] ] Skills: N/A }
n1121= if (%tipupdate [ $+ [ %s ] ] == $null) { set %tipupdate [ $+ [ %s ] ] N/A }
n1122= if (%tipcreator [ $+ [ %s ] ] == $null) { set %tipcreator [ $+ [ %s ] ] N/A }
n1123= %return. [ $+ [ %s ] ] $c2(First matching result:) $c3 %read2 [ $+ [ %s ] ] $c2(url:) $c1(www.tip.it/runescape/index.php?rs2quest_id= $+ %tipid [ $+ [ %s ] ] )
n1124= %return. [ $+ [ %s ] ] $c1(Qp:) $c2 %tipqp [ $+ [ %s ] ] $c1(Monsters:) $c2($remove(%tipmon [ $+ [ %s ] ] ,walktrough))
n1125= tokenize 32 %tipitem [ $+ [ %s ] ]
n1126= %return. [ $+ [ %s ] ] $c1(Items:) $c2($remove($2-12,monster)) $c1($remove($13-,monster))
n1127= tokenize 32 %tipstats [ $+ [ %s ] ]
n1128= %return. [ $+ [ %s ] ] $c1($1) $c2($2-12) $c1($13-)
n1129= %return. [ $+ [ %s ] ] $c1 %tipupdate [ $+ [ %s ] ] $c2 %tipcreator [ $+ [ %s ] ]
n1130= .timer 1 1 /cleanitup
n1131= }
n1132=}
n1133=alias cleanitup {
n1134= sockclose $+(tipid.,%s)
n1135= sockclose $+(tipit.,%s)
n1136= unset %tipupdate [ $+ [ %s ] ]
n1137= unset %tipcreator [ $+ [ %s ] ]
n1138= unset %return. [ $+ [ %s ] ]
n1139= unset %tipit. [ $+ [ %s ] ]
n1140= unset %read2 [ $+ [ %s ] ]
n1141= unset %tipid [ $+ [ %s ] ]
n1142= unset %tipmon [ $+ [ %s ] ]
n1143= unset %tipitem [ $+ [ %s ] ]
n1144= unset %tipstats [ $+ [ %s ] ]
n1145= unset %tipqp [ $+ [ %s ] ]
n1146=}
n1147=on $*:text:/^[!@]bot(stats|status)/Si:#:{
n1148= if ($me == Darmadia) {
n1149= if ($botstaff($nick)) {
n1150= $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(Channels) $c2($chan(0)) $c1(Server) $c2($server) $c1(Uptime [MINS]) $c2($calc($uptime / 60)) $c1(There are currently) $c2($musers) $c1(users with the ability to use my commands $+ $chr(44)) $c2(10) $c1(users is the current requirement $+ $chr(44) I am being hosted by) $c2(Roly)
n1151= }
n1152= }
n1153=}
n1154=alias musers {
n1155= var %x = 1 | var %y | while (%x <= $chan(0)) { inc %y $nick($chan(%x),0) | inc %x } | return %y
n1156=}
n1157=on *:QUIT: {
n1158= if ($network isin $1-) && (*.*.*.* iswm $1-) && (Quit: !isin $1) && (Killed !isin $1-) {
n1159= if (%netsplit == yes) { halt }
n1160= /amsg SHIT ITS A NETSPLIT!!!!!!!! OHH EMM GEEE!!!! $gettok($1,1,42) and $gettok($2,1,42) just split up!!!!
n1161= /set %netsplit yes
n1162= timersplit 0 15 /set %netsplit no
n1163= }
n1164=}
n1165=#GroupRaw on
n1166=raw 319:*:{
n1167= if (!%whoisnick) { halt }
n1168= else {
n1169= msg %chan [-WHOIS-] $+ %whoisnick $+ : $+ $remove($3-,%,@,+)
n1170= disable #GroupRaw
n1171= unset %whoisnick
n1172= }
n1173=}