rendered paste bodyon $*:TEXT:/^.rsnews*/Si:#: {
if ($left($1,1) != %trigger.public && $left($1,1) != %trigger.private) { halt }
if ($left($1,1) == %trigger.public && $readini(chansetting.ini,$chan,public) == off) { halt }
if ($left($1,1) == %trigger.private && $readini(chansetting.ini,$chan,private) == off) { halt }
if ($sock(rsnews)) { halt }
.set %rsn.out $iif($left($1,1) == %trigger.public,msg $chan,notice $nick)
.set %rsn.ploc $ceil($calc($2 / 20))
.set %rsn.num $iif(!$2 || $2 !isnum,1,$calc($2 - ((%rsn.ploc -1) * 20))))
.set %rsnr $false
.sockopen rsnews news.runescape.com 80
}
alias nc1 { return $+($chr(3),$cntn(%color.news.base),$1,$chr(3),) }
alias nc2 { return $+($chr(3),$cntn(%color.news.secondary),$1,$chr(3),) }
on *:SOCKOPEN:rsnews: {
if ($sockerr) { echo 4 -s ** SockOpen Error ** $sock($sockname).wsmsg | return }
.sockwrite -n $sockname GET /lang/en/aff/runescape/list.ws?cat=0&page= $+ %rsn.ploc HTTP/1.1
.sockwrite -n $sockname Host: news.runescape.com $+ $crlf $+ $crlf
}
on *:SOCKREAD:rsnews: {
if ($sockerr) { echo 4 -s ** SockRead Error ** $sock($sockname).wsmsg | return }
.sockread %rsn
if (!%rsn) { halt }
if (%rsnr == 4) { .set $+(%,rsn.date.,$calc($var(%rsn.date.*,0) +1)) $nohtml(%rsn) | .set %rsnr $false }
if (%rsnr == 3) { .set $+(%,rsn.title.,$calc($var(%rsn.title.*,0) +1)) $nohtml(%rsn) | inc %rsnr }
if (%rsnr == 2) { inc %rsnr }
if (%rsnr == 1) { .set $+(%,rsn.type.,$calc($var(%rsn.type.*,0) +1)) $nohtml(%rsn) | inc %rsnr }
if (*<td valign="top" style="color:black;">* iswm %rsn) { .set %rsnr 1 }
}
on *:SOCKCLOSE:rsnews: {
if ($($+(%,rsn.type.,%rsn.num),2) == $null) { %rsn.out $nc1(RuneScape News) $n2(No news article found with that number) }
else { %rsn.out $nc1(RuneScape News) ( $+ $nc2($($+(%,rsn.type.,%rsn.num),2)) $+ ): $nc2($($+(%,rsn.title.,%rsn.num),2)) $nc1(Posted On) $nc2($($+(%,rsn.date.,%rsn.num),2)) }
.unset %rsn.*
}
on *:join:#:{
if (($chan == #Pured) || ($chan == #Pest-attack)) {
set %whoisnick $nick
whois $nick
}
}
raw 319:*:{
msg #Pured,#Pest-attack 7 $+ %whoisnick Is On:6 $3-
unset %whoisnick
}
on $*:text:/^[!.](Setpcw|Setworld)/Si:#Pured,#pest-attack:{
if ($nick isvoice $chan || $nick isreg $chan) { notice $nick You need to be halfop + | halt }
if ($2- == %world) { notice $Nick That was the world set | halt }
set %world $2-
set %worldnick $nick
set %time $ctime
msg $chan 10The pestcontrol world has been updated by12 $nick
}
on $*:text:/^[!.](World|w|pcw)/Si:#pured,#pest-attack:{
$iif(%world, notice $nick 10The current pestcontrol world is12 %world 10Last updated10 $duration($calc( $ctime - %time )) 10By12 %worldnick, Notice $Nick There is not a set Pestcontrol world)
}
on $*:text:/^[!.](unSetpcw|unSetworld):#Pured,#pest-attack:{
if ($nick isop $chan || $nick ishop $chan) {
if (%world) {
unset %world
unset %worldnick
unset %time
msg $chan 10The pestcontrol world has been unset
}
}
}
on $*:text:/^[!@.]players/Si:#Pured:{
sockclose players
set %output.players $iif($left($1,1) == @, msg $chan, notice $nick)
sockopen players [url="http://www.o-ss.net/"]www.o-ss.net[/url] 80
}
ON *:SOCKOPEN:players:{
sockwrite -nt $sockname GET /parsers/players.php HTTP/1.1
sockwrite -nt $sockname Host: [url="http://www.o-ss.net/"]www.o-ss.net[/url]
sockwrite -nt $sockname $crlf
}
ON *:SOCKREAD:players:{
if ($sockerr) {
echo -a Error in total players on RuneScape lookup
sockclose $sockname
halt
}
else {
var %read
sockread %read
if (*end* iswm %read) { %output.players RuneScape Players Online: $bytes($remove(%read,end),bd)
sockclose $sockname }
}
}
on *:SOCKCLOSE:players:{
unset %output.players
}
on $*:text:/^[!@.]skill/Si:#:{
sockclose skill
set %rsn $replace($3-,$chr(32),_)
set %skill $skill($2)
set %output.skill $iif($left($1,1) == @, msg $chan, notice $nick)
sockopen skill o-ss.net 80
}
on *:SOCKOPEN:skill:{
sockwrite -nt $sockname GET /parsers/skills.php?skill= $+ %skill $+ &user= $+ %rsn HTTP/1.1
sockwrite -nt $sockname Host: o-ss.net
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:skill:{
if ($sockerr) {
echo -a Error in skill lookup
sockclose $sockname
halt
}
else {
var %read | sockread %read
if (*end* iswm %read) { tokenize 32 %read | %output.skill User: %rsn Skill: %skill 5Rank:7 $1 Level: $2 Exp: $3
sockclose $sockname }
}
}
on *:SOCKCLOSE:skill:{
unset %output.skill
unset %rsn
unset %skill
}
alias -l skill {
if ($1 == 0) || ($regex($1,/^(st|(skill)?total|overall)$/Si)) return Overall
elseif ($1 == 1) || ($regex($1,/^at(t|k|tack)$/Si)) return Attack
elseif ($1 == 2) || ($regex($1,/^def(en[cs]e)?$$/Si)) return Defence
elseif ($1 == 3) || ($regex($1,/^str(ength)?$/Si)) return Strength
elseif ($1 == 4) || ($regex($1,/^hp|hit(s|points?)?$/Si)) return Hitpoints
elseif ($1 == 5) || ($regex($1,/^range(r|d|ing)?$/Si)) return Ranged
elseif ($1 == 6) || ($regex($1,/^Pray(er)?$$/Si)) return Prayer
elseif ($1 == 7) || ($regex($1,/^mag(e|ic)$$/Si)) return Magic
elseif ($1 == 8) || ($regex($1,/^cook(ing)?$/Si)) return Cooking
elseif ($1 == 9) || ($regex($1,/^wc|wood(cut(ting)?)?$/Si)) return Woodcutting
elseif ($1 == 10) || ($regex($1,/^fletch(ing)?$/Si)) return Fletching
elseif ($1 == 11) || ($regex($1,/^fish(ing)?$/Si)) return Fishing
elseif ($1 == 12) || ($regex($1,/^(fire|fm)(make?(ing)?|ing)?$/Si)) return Firemaking
elseif ($1 == 13) || ($regex($1,/^craft(ing)?$/Si)) return Crafting
elseif ($1 == 14) || ($regex($1,/^(smith|smelt)(ing)?$/Si)) return Smithing
elseif ($1 == 15) || ($regex($1,/^mine(ing)?$/Si)) return Mining
elseif ($1 == 16) || ($regex($1,/^herb(law|lore)?$/Si)) return Herblore
elseif ($1 == 17) || ($regex($1,/^agil(ity)?$/Si)) return Agility
elseif ($1 == 18) || ($regex($1,/^(th(ei|ie)[fv](e|ing)?)$/Si)) return Thieving | elseif ($1 == 19) || ($regex($1,/^slay(er|ing)?$/Si)) return Slayer
elseif ($1 == 20) || ($regex($1,/^farm(er|ing)?$/Si)) return Farming
elseif ($1 == 21) || ($regex($1,/^(rc|runecraft)(er|ing)?$/Si)) return Runecraft
elseif ($1 == 22) || ($regex($1,/^hunt(er|ing)?$/Si)) return Hunter
elseif ($1 == 23) || ($regex($1,/^(con)(ion|ing)?$/si)) return Construction
}
alias pc { return $floor($calc(( $1 ^ 2) / 6 )) }
}
on $*:TEXT:/^[@!]set ?co?m?b((a)?(t))? ?(.+)$/Si:#Pured: {
if ($nick isop $chan) {
writeini -n pccheck.ini $chan cmb $regml($regml(0))
msg $chan $+($chr(3),$readini(pccheck.ini,$chan,color1)) $+ The required combat level for $+($chr(3),$readini(pccheck.ini,$chan,color2)) $+ $chan $+($chr(3),$readini(pccheck.ini,$chan,color1)) $+ has been set to $+($chr(3),$iif(? iswm $readini(pccheck.ini,$chan,color2),0 $+ $v2,$v2)) $+ $regml($regml(0))
}
}
on $*:TEXT:/^[@!]set ?(at[kt]|str) ?(.+)$/Si:#Pured: {
if ($nick isop $chan) { writeini -n pccheck.ini $chan attstr $regml($regml(0))
msg $chan $+($chr(3),$readini(pccheck.ini,$chan,color1)) $+ The required combined attack and strength level for $+($chr(3),$readini(pccheck.ini,$chan,color2)) $+ $chan $+($chr(3),$readini(pccheck.ini,$chan,color1)) $+ has been set to $+($chr(3),$iif(? iswm $readini(pccheck.ini,$chan,color2),0 $+ $v2,$v2)) $+ $regml($regml(0)) }}on $*:TEXT:/^[@!]ban ?(time)? ?(.+)$/Si:#: { if ($nick isop $chan) { writeini -n pccheck.ini $chan ban $regml($regml(0)) msg $chan $+($chr(3),$readini(pccheck.ini,$chan,color1)) $+ The amount of minutes a user will be banned when not meeting the requirements for $+($chr(3),$readini(pccheck.ini,$chan,color2)) $+ $chan $+($chr(3),$readini(pccheck.ini,$chan,color1)) $+ has been set to $+($chr(3),$iif(? iswm $readini(pccheck.ini,$chan,color2),0 $+ $v2,$v2)) $+ $regml($regml(0))
}
}
}
}
on $*:TEXT:/^[@!]color1 ?(.+)$/Si:#Pured: {
if ($nick isop $chan) {
writeini -n pccheck.ini $chan color1 $regml($regml(0))
msg $chan $+($chr(3),$readini(pccheck.ini,$chan,color1)) $+ The first color for $+($chr(3),$readini(pccheck.ini,$chan,color2)) $+ $chan $+($chr(3),$readini(pccheck.ini,$chan,color1)) $+ has been set to $+($chr(3),$iif(? iswm $readini(pccheck.ini,$chan,color2),0 $+ $v2,$v2)) $+ $regml($regml(0))
}
}
on $*:TEXT:/^[@!]color2 ?(.+)$/Si:#Pured: {
if ($nick isop $chan) {
writeini -n pccheck.ini $chan color2 $regml($regml(0))
msg $chan $+($chr(3),$readini(pccheck.ini,$chan,color1)) $+ The second color for $+($chr(3),$readini(pccheck.ini,$chan,color2)) $+ $chan $+($chr(3),$readini(pccheck.ini,$chan,color1)) $+ has been set to $+($chr(3),$iif(? iswm $readini(pccheck.ini,$chan,color2),0 $+ $v2,$v2)) $+ $regml($regml(0))
}
}
on $*:TEXT:/^[@!]enable$/:#Pured: {
if ($nick isop $chan) {
if ($istok($readini(pccheck.ini,achan,achan),$chan,44)) { msg $chan $+($chr(3),$readini(pccheck.ini,$chan,color1)) $+ The combat checking function has already been enabled $+($chr(3),$readini(pccheck.ini,$chan,color2)) $+ $chan }
else {
writeini -n pccheck.ini achan achan $addtok($readini(pccheck.ini,achan,achan),$chan,44)
set %pccheck.chans $readini(pccheck.ini,achan,achan)
if (!$readini(pccheck.ini,$chan,cmb)) { writeini -n pccheck.ini $chan cmb 100 }
if (!$readini(pccheck.ini,$chan,attstr)) { writeini -n pccheck.ini $chan attstr 180 }
if (!$readini(pccheck.ini,$chan,color1)) { writeini -n pccheck.ini $chan color1 14 }
if (!$readini(pccheck.ini,$chan,color2)) { writeini -n pccheck.ini $chan color2 04 }
if (!$readini(pccheck.ini,$chan,ban)) { writeini -n pccheck.ini $chan ban 600 }
msg $chan $+($chr(3),$readini(pccheck.ini,$chan,color1)) $+ The combat checking function has been enabled for $+($chr(3),$readini(pccheck.ini,$chan,color2)) $+ $chan $+ $+($chr(3),$readini(pccheck.ini,$chan,color1)) $+ $iif($me isop $chan,$chr(46),$iif($me ishop $chan,$chr(46),$chr(44) but I do not have the power to kick users if they do not meet the requirements.))
}
}
}
on $*:TEXT:/^[@!]disable$/:#Pured: {
if ($nick isop $chan) {
if (!$istok($readini(pccheck.ini,achan,achan),$chan,44)) { msg $chan $+($chr(3),$iif($readini(pccheck.ini,$chan,color1),$v1,14)) $+ The combat checking function has already been disabled $+($chr(3),$iif($readini(pccheck.ini,$chan,color2),$v1,14)) $+ $chan }
else {
writeini -n pccheck.ini achan achan $iif($deltok($readini(pccheck.ini,achan,achan),$findtok($readini(pccheck.ini,achan,achan),$chan,1,44),44),$v1,#&null)
set %pccheck.chans $readini(pccheck.ini,achan,achan)
msg $chan $+($chr(3),$readini(pccheck.ini,$chan,color1)) $+ The combat checking function has been disabled for $+($chr(3),$readini(pccheck.ini,$chan,color2)) $+ $chan
}
}
}
on *:JOIN:%pccheck.chans: {
pccheck $chan $nick
}
alias pccheck {
if ($2) {
var %i 1
while ($sock(pccheck. $+ %i)) {
inc %i
}
set %pccheck. $+ %i $+ .chan $1
set %pccheck. $+ %i $+ .user $2
sockopen pccheck. $+ %i www.o-ss.net 80
}
}
on *:SOCKOPEN:pccheck.*:{
/sockwrite -t $sockname GET /parsers/stats.php?user= $+ $($+(%,pccheck.,$gettok($sockname,2,46),.user),2) HTTP/1.1 $+ $crlf
/sockwrite -t $sockname Host: www.o-ss.net $+ $crlf
/sockwrite -t $sockname $crlf
}
on *:SOCKREAD:pccheck.*:{
if ($sockerr) {
$($+(%,pccheck.,$gettok($sockname,2,46),.self),2) Socket error while looking up $(% $+ $sockname $+ .user,2) $+ : $sockerr unset %pccheck. $+
} else {
sockread %read
while ($sockbr > 0) {
sockread %read
tokenize 32 %read
if ($1 == <b>Warning</b>:) { msg $($+(%,pccheck.,$gettok($sockname,2,46),.chan),2) $+($chr(3),$readini(pccheck.ini,$($+(%,pccheck.,$gettok($sockname,2,46),.chan),2),color1)) $+ Unable to connect to highscores for user $+($chr(3),$readini(pccheck.ini,$($+(%,pccheck.,$gettok($sockname,2,46),.chan),2),color2)) $+ $($+(%,pccheck.,$gettok($sockname,2,46),.user),2) | sockclose $sockname }
else {
if ($1 == Attack) { var %att = $replace($3,Ranked,1) }
if ($1 == Defence) { var %def = $replace($3,Ranked,1) }
if ($1 == Strength) { var %str = $replace($3,Ranked,1) }
if ($1 == Hitpoints) { var %hp = $replace($3,Ranked,10) }
if ($1 == Ranged) { var %range = $replace($3,Ranked,1) }
if ($1 == Prayer) { var %pray = $replace($3,Ranked,1) }
if ($1 == Magic) { var %mage = $replace($3,Ranked,1) }
if ($1 == END) {
var %cmb = $meleecmb(%att,%str,%def,%hp,%range,%mage,%pray) Melee
if ($rangecmb(%att,%str,%def,%hp,%range,%mage,%pray) > $gettok(%cmb,1,32)) { var %cmb = $v1 Ranged }
if ($magecmb(%att,%str,%def,%hp,%range,%mage,%pray) > $gettok(%cmb,1,32)) { var %cmb = $v1 Magic }
msg $($+(%,pccheck.,$gettok($sockname,2,46),.chan),2) 14[12RSN: 04 $+ $($+(%,pccheck.,$gettok($sockname,2,46),.user),2) 14× 12Cmb: 04 $+ $gettok(%cmb,1,32) 14× 12Class: 04 $+ $gettok(%cmb,2,32) $+ 14] × [12Att: 04 $+ %att 14× 12Str: 04 $+ %str 14× 12Def: 04 $+ %def 14× 12HP: 04 $+ %hp 14× 12Mage: 04 $+ %mage 14× 12Range: 04 $+ %range 14× 12Prayer: 04 $+ %pray $+ 14]
if ($gettok(%cmb,1,32) < $readini(pccheck.ini,n,$($+(%,pccheck.,$gettok($sockname,2,46),.chan),2),cmb)) {
if ($calc(%att + %str) >= $readini(pccheck.ini,n,$($+(%,pccheck.,$gettok($sockname,2,46),.chan),2),attstr)){
mode $($+(%,pccheck.,$gettok($sockname,2,46),.chan),2) +v $($+(%,pccheck.,$gettok($sockname,2,46),.user),2)
}
else {
ban -u $+ $readini(pccheck.ini,n,$($+(%,pccheck.,$gettok($sockname,2,46),.chan),2),ban) $($+(%,pccheck.,$gettok($sockname,2,46),.chan),2) $($+(%,pccheck.,$gettok($sockname,2,46),.user),2) 2 kick $($+(%,pccheck.,$gettok($sockname,2,46),.chan),2) $($+(%,pccheck.,$gettok($sockname,2,46),.user),2) $+($chr(3),$readini(pccheck.ini,$($+(%,pccheck.,$gettok($sockname,2,46),.chan),2),color1)) $+ You do not meet the minimum requirements (Combat Level $readini(pccheck.ini,n,$($+(%,pccheck.,$gettok($sockname,2,46),.chan),2),cmb) or att+str lvl $v2 $+ ) for this channel.
}
}
else { mode $($+(%,pccheck.,$gettok($sockname,2,46),.chan),2) +v $($+(%,pccheck.,$gettok($sockname,2,46),.user),2) }
}
}
}
}
}
alias meleecmb {
if ($0 == 7) { return $calc((($1 + $2) * 0.325) + ($3 * 0.25) + ($4 * 0.25) + ($7 * 0.125)) }
elseif ($0 == 5) { return $calc((($1 + $2) * 0.325) + ($3 * 0.25) + ($4 * 0.25) + ($5 * 0.125)) }
}
alias rangecmb {
if ($0 == 7) { return $calc((($5 * 1.5) * 0.325) + ($3 * 0.25) + ($4 * 0.25) + ($7 * 0.125)) }
elseif ($0 == 4) { return $calc((($1 * 1.5) * 0.325) + ($2 * 0.25) + ($3 * 0.25) + ($4 * 0.125))
}
}
alias magecmb {
if ($0 == 7) { return $calc((($6 * 1.5) * 0.325) + ($3 * 0.25) + ($4 * 0.25) + ($7 * 0.125)) }
elseif ($0 == 4) { return $calc((($1 * 1.5) * 0.325) + ($2 * 0.25) + ($3 * 0.25) + ($4 * 0.125)) }
}