rendered paste bodyon *:JOIN:#u_r_kidding:{
msg $chan 2 Hi $nick , Clan Audacious, led by U_R_Kidding and Flame_Outlaw will be opening in less than one week, there is some minor things left to tweak, but we will be having our first event shortly.
}
menu * {
Access:/dialog -m Access Access
}
dialog Access {
title "Access"
size -1 -1 134 94
option dbu
Button "Access", 1, 34 4 68 20
Button "Add Access", 2, 5 31 50 30
button "Delete Access", 3, 79 31 50 30
box "", 4, 76 28 56 36
box "", 5, 2 28 56 36
button "Cancel", 6, 53 68 29 15, ok cancel
box "", 7, 50 64 35 21
box "", 8, 31 1 74 26
text "Made By Ody", 9, 45 85 49 8
}
on *:dialog:access:sclick:2: {
/dialog -x Access access
/dialog -m Access2 access2
}
on *:dialog:access:sclick:3: {
/dialog -x Access access
/dialog -m Access3 access3
}
dialog Access2 {
title "Add Access"
size -1 -1 134 68
option dbu
edit "", 10, 8 29 50 10
edit "", 11, 75 29 50 10
button "quit", 20, 80 51 37 12, cancel
button "Set", 12, 20 51 37 12, ok
text "Nick", 13, 22 20 25 8, center
text "Level", 14, 86 20 25 8, center
text "Add Access", 15, 33 2 65 8, center
}
on *:dialog:access2:sclick:12: {
/cs access $active add $did($dname,10) $did($dname,11)
}
dialog Access3 {
title "Delete Access"
size -1 -1 134 57
option dbu
edit "", 16, 41 20 50 10
button "quit", 21, 80 40 37 12, ok
button "Del", 17, 20 40 37 12, cancel
text "Nick", 18, 53 12 25 8, center
text "Del Access", 19, 33 2 65 8, center
}
on *:dialog:access3:sclick:17: {
/cs access $active del $did($dname,16)
}
on *:text:!ml:#: {
notice $nick 12 http://www.runehead.com/clans/ml.php?clan=fidelity
}
on *:text:!w2:#: {
notice $nick 12 http://www.di-rs.com/world2.html
}
on *:text:!key:#: {
notice $nick 12 will be a link here when its available
}
on *:text:!forums:#: {
notice $nick 12 creating new forums
}
on *:TEXT:!defname*:#:{ writeini -n defnames.ini $nick
$address($nick,2) $replace($2-,$chr(32),_) | msg $chan
The default name " $+ $readini(FILE,-n,...)
(defnames.ini,$nick,$address($nick,2)) $+ " has been
set to the host: $address($nick,2) }
on *:JOIN:#:{ if ( $chan == #chan ) { halt }
/mode $chan +v $nick
}
on *:text:!commands:#:{
msg $nick !forums
msg $nick !ml
}
on *:TEXT:!Wed:#: {
notice $nick 7 The Event For Wednesday Is Fight Pits
}
on *:TEXT:!Thur:#: {
notice $nick 7 The Event On Thursday Is King Black Dragon
}
on *:TEXT:!Mon:#: {
notice $nick 7 The Event On Monday Is Castle Wars
}
on *:TEXT:!Tues:#: {
notice $nick 7 The Event On Tuesday Is Random Skill Event
}
on *:TEXT:!Fri:#: {
notice $nick 7 The Event On Friday Is Kalphite Queen
}
on *:TEXT:!Sat:#: {
notice $nick 7 The Event On Saturday Is Trawler or Random Wildy Event Here Is Where You Can Vote 2http://z4.invisionfree.com/Clan_Fidelity/index.php?showforum=18
}
on *:TEXT:!Sun:#: {
notice $nick 7 The Event On Sunday Is GodWars or
}
}
on *:TEXT:!slap *:#: {
msge $chan $nick 14 slaps $iff($2,$2,$nick) with a slimey trout, iR0boT grabs the trout and pets it ($r(0,1000) trouts were saved)
}
on *:text:!wb *:#: {
msg $chan 14 Why $iif($2,$2,$nick) hello and welcome back where have you been hiding for these last few minutes? You must have heard us talking about you!
}
on *:text:!kc:#: {
msg $chan 6 $nick 's kill count $r(0,100)
}
on *:text:!val:#: {
notice $nick 14 Wonderful stats don't want to put the rest of you to shame
}
on *:text:!zean:#: {
notice $nick 14 Yes thats me but who are you??
}
on *:text:!kanne10:#: {
notice $nick 14 Just call me Arnie I have the stats to prove it!
}
on *:text:!Outlaw:#: {
notice $nick 14 Ok Im just in stealth mode but deadly!
}
on *:text:!Amy:#: {
notice $nick 14 Foood!!!.... Where!?!?
}
clan search start
on $*:text:/^[!@](clan)/Si:#:{
sockclose clan
set %clan.user $replace($2-,$chr(32),$chr(95))
set %output.clan $iif($me = [PK]iBusta && iBusta ison $chan,halt) $iif($left($1,1) == @,msg $chan,notice $nick)
sockopen clan www.runehead.com 80
}
ON *:SOCKOPEN:clan:{
sockwrite -nt $sockname GET /clans/search.php?search= $+ %clan.user HTTP/1.1
sockwrite -nt $sockname Host: www.runehead.com
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:clan:{
if ($sockerr) {
echo -s Failed to connect to internet.
sockclose $sockname
}
else {
var %clan.read
sockread %clan.read
if ($regex(%clan.read,/<td class='tableborder'><a href='(.*)' title='(.*)'>(.*)<\/a><\/td>/i)) {
var %clan.read2
sockread %clan.read2
%output.clan $+($c1,12 $chr(91),Clan,$chr(93)) $+($c2,$chr(91), 12 User:,3 %clan.user,12 $chr(93)) 12 $+($c1,$chr(91),$regml(3),$chr(93)) $+($c1,$chr(91),12 Site: 3 http://runehead.com/clans/,$regml(1),12 $chr(93))
}
if (*No results were found for the* iswm %clan.read) {
%output.clan $c1(%clan.user) $c2(Was not found in) $c1(www.runehead.com) $c2(Memberlist)
}
}
}
Clan Search end
grats start
on *:text:!grats * * *:#: {
msg $chan 15,0 % 15,11 @ 11,10 % 15,12 @ 2,6 % 0,1 CONGRATULATIONS $iif($2,$2,$nick) on getting level $iif($3,$3,$nick) $iif($4,$4,$nick) !!!2,6 % 15,12@ 11,10 % 15,11@ 15,0 %
}
grats end
on *:TEXT:!away*:#: {
set %reason [ $+ [ $nick ] ] $2-
msg $chan $nick is now Away, Reason: %reason [ $+ [ $nick ] ]
}
on *:TEXT:!back*:#: {
msg $chan $nick is now Back from: %reason [ $+ [ $nick ] ] $+ .
unset %reason [ $+ [ $nick ] ]
}
}
on *:SOCKOPEN:stats.*: {
var %bleh = $gettok($sockname,2,46)
if ($sockerr) {
.echo 4 -s Error while connecting to the stats page: $sock($sockname).wsmsg
return
}
.sockwrite -n $sockname GET /index_lite.ws?player= $+ $hget($($+(u,%bleh),2),user) HTTP/1.1
.sockwrite -n $sockname User-Agent: FreeBot (Crawler Bot; thefreebot.com;)
.sockwrite -n $sockname Host: hiscore.runescape.com $+ $crlf $+ $crlf
}
on *:SOCKREAD:stats.*: {
var %bleh = $gettok($sockname,2,46)
if ($sockerr) {
echo 4 -s Error while reading the stats: $sock($sockname).wsms
return
}
.sockread %RSStats
if (*404 Not Found* iswm %RSStats) {
$($hget($($+(u,%bleh),2),display),2) $s1(%nick,The user) $s2(%nick,$hget($($+(u,%bleh),2),user)) $s1(%nick,doesn't appear in the hiscores.)
.sockclose $sockname
halt
}
if ($numtok(%RSStats,44) >= 3) {
.inc $($+(%,snum.,%bleh),1)
.tokenize 44 %RSStats
.hadd -m $($+(u,%bleh),2) $u2fid($($+(%,snum.,%bleh),2)) $1 $2 $3
}
}
on *:SOCKCLOSE:stats.*: {
var %bleh = $gettok($sockname,2,46)
.stats.show $($+(u,%bleh),2)
}
alias s1 { return $+($chr(3),$cntn($clr(stats.base,$address($1,1))),$2-,$chr(3)) }
alias s2 { return $+($chr(3),$cntn($clr(stats.secondary,$address($1,1))),$2-,$chr(3)) }
alias stats.show {
var %send = $hget($1,display),%send2 = .notice $hget($1,nick),%show = $+($mircdirSkills\,$hget($1,skill),.ini),%skill = $hget($1,skill),%user = $hget($1,user),%hash = $1,%addy = $hget($1,address),%nick = $hget($1,nick),%user_s = $hget($1,user_s)
var %item = $hget($1,item),%target = $hget($1,target)
if (*echo* iswm %send) { goto skipnclear }
if ($hget(%hash,compare)) {
if ($hget(%hash,completed) == yes) { goto clearup }
if ($hget($($+(u,$hget(%hash,compare)),2),%skill)) {
.hadd $($+(u,$hget(%hash,compare))) completed yes
var %chash = $($+(u,$hget(%hash,compare)))
var %cuser = $hget(%chash,user)
var %cuser_s = $hget(%chash,user_s)
var %cnick = $hget(%chash,nick)
$(<font color="green">%send,2) $s1(%nick,$lr(%nick,stats,cp)) $s2(%nick,$iif($right(%user,1) == ?,%user_s,%user)) $s1(%nick,$lr(%nick,stats,and)) $s2(%nick,$iif($right($hget(%chash,user),1) == ?,%cuser_s,%cuser)) $s1(%nick,$lr(%nick,stats,in)) $s2(%nick,%skill)
$(<font color="green">%send,2) $s2(%nick,%user) $s1(%nick,Rank) $s2(%nick,$bytes($skill(%hash,%skill).rank,b)) $s1(%nick,Level) $s2(%nick,$bytes($skill(%hash,%skill).lvl,b)) $s1(%nick,Exp) $s2(%nick,$bytes($skill(%hash,%skill).exp,b))
$(<font color="green">%send,2) $s2(%nick,$iif($right($hget(%chash,user),1) == ?,%cnick,%cuser)) $s1(%nick,Rank) $s2(%nick,$bytes($skill(%chash,%skill).rank,b)) $s1(%nick,Level) $s2(%nick,$bytes($skill(%chash,%skill).lvl,b)) $s1(%nick,Exp) $s2(%nick,$bytes($skill(%chash,%skill).exp,b))
if ($skill(%hash,%skill).exp == $skill(%chash,%skill).exp) { $(<font color="green">%send,2) $s2(%nick,%user) $s1(%nick,and) $s2(%nick,$iif($right($hget(%chash,user),1) == ?,%cnick,%cuser)) $s1(%nick,are at a tie!) }
if ($skill(%hash,%skill).exp > $skill(%chash,%skill).exp) { $(<font color="green">%send,2) $s2(%nick,%user) $s1(%nick,is) $s2(%nick,$bytes($calc($skill(%hash,%skill).lvl - $skill(%chash,%skill).lvl),b)) $s1(%nick,levels,) $s2(%nick,$bytes($calc($skill(%chash,%skill).rank - $skill(%hash,%skill).rank),b)) $s1(%nick,ranks and) $s2(%nick,$bytes($calc($skill(%hash,%skill).exp - $skill(%chash,%skill).exp),b)) $s1(%nick,exp ahead of) $s2(%nick,$iif($right($hget(%chash,user),1) == ?,%cnick,%cuser)) }
if ($skill(%chash,%skill).exp > $skill(%hash,%skill).exp) { $(<font color="green">%send,2) $s2(%nick,$iif($right($hget(%chash,user),1) == ?,%cnick,%cuser)) $s1(%nick,is) $s2(%nick,$bytes($calc($skill(%chash,%skill).lvl - $skill(%hash,%skill).lvl),b)) $s1(%nick,levels,) $s2(%nick,$bytes($calc($skill(%hash,%skill).rank - $skill(%chash,%skill).rank),b)) $s1(%nick,ranks and) $s2(%nick,$bytes($calc($skill(%chash,%skill).exp - $skill(%hash,%skill).exp),b)) $s1(%nick,exp ahead of) $s2(%nick,%user) }
goto clearup
}
else { goto skipnclear }
}
if (%skill == Combat) {
var %cmb = $combat.final($skill(%hash,attack).lvl,$skill(%hash,defence).lvl,$skill(%hash,strength).lvl,$skill(%hash,hitpoints).lvl,$skill(%hash,prayer).lvl,$skill(%hash,ranged).lvl,$skill(%hash,magic).lvl)
var %cmbc = $calc($iif(*.* !iswm %cmb,$calc(%cmb +1),$ceil(%cmb)) - %cmb)
$(<font color="green">%send,2) $s1(%nick,$lr(%nick,stats,name)) $s2(%nick,$iif($rsns(%nick,%user) == $true,%user,%nick)) $s1(%nick,$lr(%nick,stats,cmb)) $s2(%nick,%cmb) $&
$s1(%nick,Attack) $s2(%nick,$skill(%hash,attack).lvl) $s1(%nick,Defence) $s2(%nick,$skill(%hash,defence).lvl) $s1(%nick,Strength) $s2(%nick,$skill(%hash,strength).lvl) $s1(%nick,HitPoints) $s2(%nick,$skill(%hash,hitpoints).lvl) $s1(%nick,Ranged) $s2(%nick,$skill(%hash,ranged).lvl) $s1(%nick,Magic) $s2(%nick,$skill(%hash,magic).lvl) $s1(%nick,Prayer) $s2(%nick,$skill(%hash,prayer).lvl)
$(<font color="green">%send,2) $s1(%nick,$lr(%nick,stats,ll) Attack) $s2(%nick,$ceil($calc(( %cmbc ) / ( 1 / 3 )))) $&
$s1(%nick,Strength) $s2(%nick,$ceil($calc(( %cmbc ) / ( 1 / 3 )))) $&
$s1(%nick,Defence) $s2(%nick,$ceil($calc(( %cmbc ) / ( 1 / 4 )))) $&
$s1(%nick,HitPoints) $s2(%nick,$ceil($calc(( %cmbc ) / ( 1 / 4 )))) $&
$s1(%nick,Prayer) $s2(%nick,$ceil($calc(( %cmbc ) / ( 1 / 8 ))))
goto clearup
}
if (%skill == PestControl) {
var %att = $skill(%hash,attack).lvl,%def = $skill(%hash,defence).lvl,%str = $skill(%hash,strength).lvl,%hp = $skill(%hash,hitpoints).lvl,%mag = $skill(%hash,magic).lvl,%ran = $skill(%hash,ranged).lvl,%pra = $skill(%hash,prayer).lvl
var %attxp = $skill(%hash,attack).exp,%defxp = $skill(%hash,defence).exp,%strxp = $skill(%hash,strength).exp,%hpxp = $skill(%hash,hitpoints).exp,%magxp = $skill(%hash,magic).exp,%ranxp = $skill(%hash,ranged).exp,%praxp = $skill(%hash,prayer).exp
;PC = (Level*Level)/6 for Att, Str, Def, Hp, Magic, Range
;PC = (Level*Level)/12 for Prayer
;If more than 100 pts are traded in PC = ((Level*Level)/6)*.10)+((Level*Level)/6)
if (%att != -) { var %attn = $calc((%att * %att) /6) | var %atta = $calc((((%att * %att) /6) * .10) + ((%att * %att)/6)) }
if (%def != -) { var %defn = $calc((%def * %def) /6) | var %defa = $calc((((%def * %def) /6) * .10) + ((%def * %def)/6)) }
if (%str != -) { var %strn = $calc((%str * %str) /6) | var %stra = $calc((((%str * %str) /6) * .10) + ((%str * %str)/6)) }
if (%hp != -) { var %hpn = $calc((%hp * %hp) /6) | var %hpa = $calc((((%hp * %hp) /6) * .10) + ((%hp * %hp)/6)) }
if (%ran != -) { var %rann = $calc((%ran * %ran) /6) | var %rana = $calc((((%ran * %ran) /6) * .10) + ((%ran * %ran)/6)) }
if (%mag != -) { var %magn = $calc((%mag * %mag) /6) | var %maga = $calc((((%mag * %mag) /6) * .10) + ((%mag * %mag)/6)) }
if (%pra != -) { var %pran = $calc((%pra * %pra) /12) | var %praa = $calc((((%pra * %pra) /12) * .10) + ((%pra * %pra)/12)) }
var %atte = $iif(%att >= 99,$calc(200000000 - %attxp),$calc($exp($calc(%att +1)) - %attxp))
var %defe = $iif(%def >= 99,$calc(200000000 - %defxp),$calc($exp($calc(%def +1)) - %defxp))
var %stre = $iif(%str >= 99,$calc(200000000 - %strxp),$calc($exp($calc(%str +1)) - %strxp))
var %hpe = $iif(%hp >= 99,$calc(2000000000 - %hpxp),$calc($exp($calc(%hp +1)) - %hpxp))
var %rane = $iif(%ran >= 99,$calc(200000000 - %ranxp),$calc($exp($calc(%ran +1)) - %ranxp))
var %mage = $iif(%mag >= 99,$calc(200000000 - %magxp),$calc($exp($calc(%mag +1)) - %magxp))
var %prae = $iif(%pra >= 99,$calc(200000000 - %praxp),$calc($exp($calc(%pra +1)) - %praxp))
$(<font color="green">%send,2) $s1(%nick,$lr(%nick,stats,pc1l)) $s2(%nick,$iif($rsns(%nick,%user) == $true,%user,%nick))
$(<font color="green">%send,2) $iif(%attn,$s1(%nick,Attack) $s2(%nick,$ceil($calc(%atte / %attn)) $chr(40) $+ $ceil($calc(%atte / %atta)) $+ $chr(41))) $&
$iif(%defn,$s1(%nick,Defence) $s2(%nick,$ceil($calc(%defe / %defn)) $chr(40) $+ $ceil($calc(%defe / %defa)) $+ $chr(41))) $&
$iif(%strn,$s1(%nick,Strength) $s2(%nick,$ceil($calc(%stre / %strn)) $chr(40) $+ $ceil($calc(%stre / %stra)) $+ $chr(41))) $&
$iif(%hpn,$s1(%nick,HitPoints) $s2(%nick,$ceil($calc(%hpe / %hpn)) $chr(40) $+ $ceil($calc(%hpe / %hpa)) $+ $chr(41))) $&
$iif(%rann,$s1(%nick,Ranged) $s2(%nick,$ceil($calc(%rane / %rann)) $chr(40) $+ $ceil($calc(%rane / %rana)) $+ $chr(41))) $&
$iif(%magn,$s1(%nick,Magic) $s2(%nick,$ceil($calc(%mage / %magn)) $chr(40) $+ $ceil($calc(%mage / %maga)) $+ $chr(41))) $&
$iif(%pran,$s1(%nick,Prayer) $s2(%nick,$ceil($calc(%prae / %praa)) $chr(40) $+ $ceil($calc(%prae / %praa)) $+ $chr(41)))
goto clearup
}
if (%skill == stats) {
$(<font color="green">%send,2) $s1(%nick,$lr(%nick,stats,sf)) $s2(%nick,$iif($rsns(%nick,%user) == $true,%user,%nick)) $+ $s1(%nick,:)
$(<font color="green">%send,2) $s1(%nick,Overall) $s2(%nick,$skill(%hash,overall).lvl) $s1(%nick,Attack) $s2(%nick,$skill(%hash,attack).lvl) $s1(%nick,Defence) $s2(%nick,$skill(%hash,defence).lvl) $s1(%nick,Strength) $s2(%nick,$skill(%hash,strength).lvl) $s1(%nick,HitPoints) $s2(%nick,$skill(%hash,hitpoints).lvl) $s1(%nick,Prayer) $s2(%nick,$skill(%hash,prayer).lvl) $s1(%nick,Magic) $s2(%nick,$skill(%hash,magic).lvl) $&
$s1(%nick,Ranged) $s2(%nick,$skill(%hash,ranged).lvl) $s1(%nick,Cooking) $s2(%nick,$skill(%hash,cooking).lvl) $s1(%nick,Fishing) $s2(%nick,$skill(%hash,fishing).lvl) $s1(%nick,RuneCrafting) $s2(%nick,$skill(%hash,runecraft).lvl) $s1(%nick,Agility) $s2(%nick,$skill(%hash,agility).lvl) $s1(%nick,Construction) $s2(%nick,$skill(%hash,construction).lvl)
$(<font color="green">%send,2) $s1(%nick,Herblore) $s2(%nick,$skill(%hash,herblore).lvl) $s1(%nick,Thieving) $s2(%nick,$skill(%hash,thieving).lvl) $s1(%nick,Crafting) $s2(%nick,$skill(%hash,crafting).lvl) $s1(%nick,Fletching) $s2(%nick,$skill(%hash,fletching).lvl) $s1(%nick,Slayer) $s2(%nick,$skill(%hash,slayer).lvl) $s1(%nick,Mining) $s2(%nick,$skill(%hash,mining).lvl) $&
$s1(%nick,Smithing) $s2(%nick,$skill(%hash,smithing).lvl) $s1(%nick,Firemaking) $s2(%nick,$skill(%hash,firemaking).lvl) $s1(%nick,WoodCutting) $s2(%nick,$skill(%hash,woodcutting).lvl) $s1(%nick,Farming) $s2(%nick,$skill(%hash,farming).lvl) $s1(%nick,Hunter) $s2(%nick,$skill(%hash,hunter).lvl)
goto clearup
}
if (%skill = closest) {
var %a = 1
while (%a <= $hget(%hash,0).item) {
.dll WhileFix.dll WhileFix .
var %itm = $hget(%hash,%a).item
if (%itm == Overall || %itm == display || %itm == address || %itm == user || %itm == nick || %itm == skill) { noop }
elseif ($skill(%hash,%itm).exp == -) { noop }
elseif ($skill(%hash,%itm).lvl == 99) { noop }
else {
var %tmp = $skill(%hash,%itm).exp
var %tmp2 = $skill(%hash,%itm).lvl
var %tmp3 = $exp($calc(%tmp2 + 1))
var %perc = $calc((%tmp * 100) / %tmp3)
var %nt = $calc($exp($calc(%tmp2 + 1)) - %tmp)
if (%nt < $gettok(%close,2,124) || %close == $null) { var %close = $+(%a,$chr(124),%nt) }
}
;echo -s %a - %itm - %tmp - %tmp2 - %nt - %close
inc %a
}
if ($gettok(%close,1,124) == 0 || %close == $null) { $(<font color="green">%send,2) $s1(%nick,$lr(%nick,stats,aeo)) $s2(%nick,$lr(%nick,stats,cl)) $s1(%nick,$lr(%nick,stats,wrs)) | goto clearup }
else {
$(<font color="green">%send,2) $s2(%nick,$+($iif($rsns(%nick,%user) == $true,%user,%nick),'s)) $s1(%nick,$lr(%nick,stats,csl)) $s2(%nick,$hget(%hash,$gettok(%close,1,124)).item) $s1(%nick,$lr(%nick,stats,wj)) $s2(%nick,$bytes($gettok(%close,2,124),b) ( $+ $bytes(%perc,b) $+ $chr(37) $+ )) $s1(%nick,$lr(%nick,stats,ell)) $s2(%nick,$calc($skill(%hash,$hget(%hash,$gettok(%close,1,124)).item).lvl +1))
goto clearup
}
}
if (!$hget($1,%skill) && %skill != Closest) { $(<font color="green">%send,2) $s1(%nick,The user) $iif(%nick,$rsns(%nick,%user) == $true,$s2(%nick,%user)) $s1(%nick,does not feature in the) $s2(%nick,%skill) $s1(%nick,hiscore table) | goto clearup }
.tokenize 32 $remove($hget($1,%skill),$chr(44))
.var %disp
var %b = 0,%a = 1
while (%target <= $skill(%hash,%skill).lvl) { .dll WhileFix.dll WhileFix . | inc %target 1 }
var %nlp = $round($calc(($skill(%hash,%skill).exp * 100) / $exp($calc($skill(%hash,%skill).lvl + 1))),2)
var %tlp = $round($calc(($skill(%hash,%skill).exp * 100) / $exp(%target)),2)
var %e2l = $iif($skill(%hash,%skill).lvl >= 99,$calc($iif(%skill = Overall,5000000000,200000000) - $3),$calc($exp(%target) - $3))
$(<font color="green">%send,2) $s1(%nick,$lr(%nick,stats,skill)) $s2(%nick,%skill) $s1(%nick,$lr(%nick,stats,user)) $s2(%nick,$iif($rsns(%nick,%user) == $true,%user,%nick))
$(<font color="green">%send,2) $s1(%nick,$lr(%nick,stats,rank)) $s2(%nick,$bytes($1,b)) $s1(%nick,$lr(%nick,stats,lvl)) $s2(%nick,$bytes($2,b)) $s1(%nick,$lr(%nick,stats,exp)) $s2(%nick,$bytes($3,b)) $clr_gsu(%nick,( $+ %nlp $+ $chr(37) to $calc($skill(%hash,%skill).lvl +1) $+ )) $s1(%nick,$lr(%nick,stats,xp2) $iif($skill(%hash,%skill).lvl < 99,Lvl $s2(%nick,%target),$s2(%nick,$lr(%nick,stats,prf))) $+ :) $s2(%nick,$bytes(%e2l,b)) $clr_gsu(%nick,( $+ %tlp $+ $chr(37) to %target $+ ))
if (%item != 0) {
if ($readini(%show,%item,exp)) { var %out1 = $calc(%e2l / $v1),%out2 = $v1 | $(<font color="green">%send,2) $s1(%nick,You will need to get) $s2(%nick,%item) $s1(%nick,$lr(%nick,stats,ato)) $s2(%nick,$bytes($ceil(%out1),b)) $s1(%nick,$lr(%nick,stats,ta)) $s2(%nick,$bytes(%out2,b)) $s1(%nick,$lr(%nick,stats,etal)) $s2(%nick,%target) }
goto clearup
}
if (%skill == overall || %e2l == 0) { goto clearup }
if (%skill == attack || %skill == defence || %skill == strength) { var %show = $+($mircdirSkills\,melee.ini) | var %skill = melee }
if ($se(stats,out.lines) == NONE) { goto clearup }
var %minlvl = $iif($se(stats,under) == all,0,$calc($skill(%hash,%skill).lvl - $se(stats,under)))
var %maxlvl = $calc($skill(%hash,%skill).lvl + $se(stats,over))
while (%a <= $iif($ini(%show,0) >= $se(stats,out.lines),$iif($se(stats,out.lines) == ALL,$ini(%show,%skill,0),$ifmatch),$ifmatch)) {
.dll WhileFix.dll WhileFix .
var %ilvl = $readini(%show,$ini(%show,%a),lvl)
if ((%ilvl >= %minlvl && %ilvl <= %maxlvl) || ($ini(%show,0) <= $calc($se(stats,out.lines) * $se(stats,out.amt)))) {
var %disp = %disp $s1(%nick,$saka($ini(%show,%a))) $s2(%nick,$bytes($ceil($calc(%e2l / $readini(%show,$ini(%show,%a),exp))),b))
inc %b
}
if (%b >= $se(stats,out.amt)) {
$(<font color="green">%send2,2) %disp
var %b = 0
.unset %disp
}
inc %a
}
if (%disp) {
$(<font color="green">%send2,2) %disp
}
:clearup
.hfree %hash
.unset $($+(%,*,$remove(%hash,u)),1)
if ($hget(%hash,compare)) {
.hfree $($+(u,$hget(%hash,compare)),1)
.unset $($+(%,*,$hget(%hash,compare)),1)
}
:skipnclear
}
on $*:TEXT:/^.(def|set)(name|rsn) (-s )?.{3,12}$/Si:#: {
if ($left($1,1) != $se(trigger,public) && $left($1,1) != $se(trigger,private)) { halt }
.writeini -n RSN.ini $address($nick,3) rsn $remove($iif($2 == -s,$3-,$2-),$chr(36))
.writeini -n RSN.ini $address($nick,3) show $iif($2 == -s,$false,$true)
.notice $nick $s1(%nick,$lr(%nick,stats,drsn)) $s2(%nick,$remove($iif($2 == -s,$3-,$2-),$chr(36))) $iif($2 == -s,$s1(%nick,$lr(%nick,stats,rsnh)))
}
on $*:TEXT:/^.rsn /Si:#: {
if ($left($1,1) != $se(trigger,public) && $left($1,1) != $se(trigger,private)) { halt }
var %send = $iif($left($1,1) == $se(trigger,private) || $readini(chansetting.ini,$chan,public) == off,.notice $nick,.msg $chan)
if ($2 !ison $chan) { halt }
if (!$readini(RSN.ini,$address($2,3),rsn)) { $(<font color="green">%send,2) $s1(%nick,$lr(%nick,stats,nstrsn)) $s2(%nick,$2) | halt }
if ($rsns($2) == $true) { $(<font color="green">%send,2) $s1(%nick,$lr(%nick,stats,trsnf)) $s2(%nick,$2) $s1(%nick,$lr(%nick,stats,is)) $s2(%nick,$iif($right($rsn($2),1) == ?,$2,$left($rsn($2),-1))) | halt }
else { $(<font color="green">%send,2) $s1(%nick,$lr(%nick,stats,trsnf)) $s2(%nick,$2) $s1(%nick,$lr(%nick,stats,ist)) $s2(%nick,$lr(%nick,stats,h)) }
}
alias -l gotonclear {
var %hash = $1
.hfree %hash
.unset $($+(%,*,$remove(%hash,u)),1)
if ($hget(%hash,compare)) {
.hfree $($+(u,$hget(%hash,compare)),1)
.unset $($+(%,*,$hget(%hash,compare)),1)
}
}
on *:TEXT:*:#: {
if (!$se(private,active)) { halt }
if ($se(status,stats) == off) { halt }
if ($left($1,1) != $se(trigger,public) && $left($1,1) != $se(trigger,private)) { halt }
if ($left($1,1) == $se(trigger,private) && $readini(chansetting.ini,$chan,private) == off) { halt }
if (!$f2u($right($1,-1))) { halt }
var %class = $+($r(0,9),$r(0,9),$r(0,9),$r(0,9),$r(0,9),$r(0,9))
var %class2 = $+($r(0,9),$r(0,9),$r(0,9),$r(0,9),$r(0,9),$r(0,9))
hadd -m $($+(u,%class),2) nick $nick
if ($f2u($right($1,-1)) == Compare) {
if (!$f2u($2)) { $iif($left($1,1) == $se(trigger,public) && $readini(chansetting.ini,$chan,public) == on,msg $chan,notice $nick) $s1($nick,Error:) $s2($nick,$2) $s1($nick,is not a valid skill) | halt }
if (!$3) { $iif($left($1,1) == $se(trigger,public) && $readini(chansetting.ini,$chan,public) == on,msg $chan,notice $nick) $s1($nick,Error:) $s2($nick,You must specify a user to compare with.) | halt }
hadd -m $($+(u,%class),2) compare %class2
var %tmpusr2 = $iif(!$4,$3,$4)
if ($+(*,$chr(38),*) iswm %tmpusr2) {
if ($remove(%tmpusr2,$chr(38)) !ison $chan) {
$($iif($left($1,1) == $se(trigger,private) || $readini(chansetting.ini,$chan,public) == off,.notice $nick,.msg $chan),2) $s1($nick,An) $s2($nick,Error) $s1($nick,occured when attempting to initiate a stats lookup)
.gotonclear $($+(u,%class2),2)
halt
}
%tmpusr2 = $rsn($remove(%tmpusr2,$chr(28)))
if (!%tmpusr2) {
$($iif($left($1,1) == $se(trigger,private) || $readini(chansetting.ini,$chan,public) == off,.notice $nick,.msg $chan),2) $s1($nick,An) $s2($nick,Error) $s1($nick,occured when attempting to initiate a stats lookup)
.gotonclear $($+(u,%class2),2)
halt
}
}
hadd -m $($+(u,%class2),2) user $replace(%tmpusr2,$chr(32),_)
hadd -m $($+(u,%class2),2) compare %class
hadd -m $($+(u,%class2),2) skill $f2u($2)
hadd -m $($+(u,%class2),2) nick $nick
hadd -m $($+(u,%class2),2) completed No
hadd -m $($+(u,%class2),2) address $address($nick,3)
hadd -m $($+(u,%class),2) address $address($nick,3)
hadd -m $($+(u,%class),2) skill $f2u($2)
hadd -m $($+(u,%class),2) completed No
hadd -m $($+(u,%class),2) user $replace($iif(!$4,$rsn(%tmpusr2),$3),$chr(32),_)
hadd -m $($+(u,%class),2) user_s %tmpusr2
hadd -m $($+(u,%class2),2) display $iif($left($1,1) == $se(trigger,public) && $readini(chansetting.ini,$chan,public) == on,msg $chan,notice $nick)
}
else {
var %rsn = $2-,%target = next
noop $regex(target,$2-,/#([0-9]{1,2})/Si)
noop $regex(item,$2-,/-i"(.+?)"/Si)
if ($regml(item,0) >= 1) { var %item = $regml(item,1) | %rsn = $remove(%rsn,$+(-i",%item,")) }
else { var %item = 0 }
if ($regml(target,0) >= 1) { var %target = $regml(target,1) | %rsn = $remove(%rsn,$+($chr(35),%target)) }
else { var %target = 0 }
hadd -m $($+(u,%class),2) user_s $iif(!%rsn,$nick,$ifmatch)
if ($+(*,$chr(38),*) iswm %rsn) {
if ($remove(%rsn,$chr(38)) !ison $chan) {
$($iif($left($1,1) == $se(trigger,private) || $readini(chansetting.ini,$chan,public) == off,.notice $nick,.msg $chan),2) $s1($nick,An) $s2($nick,Error) $s1($nick,occured when attempting to initiate a stats lookup)
.gotonclear $($+(u,%class),2)
halt
}
%rsn = $rsn($remove(%rsn,$chr(38)))
}
hadd -m $($+(u,%class),2) address $address($nick,3)
hadd -m $($+(u,%class),2) skill $f2u($right($1,-1))
hadd -m $($+(u,%class),2) item %item
hadd -m $($+(u,%class),2) target %target
hadd -m $($+(u,%class),2) user $replace($rsn($nick,$iif(%rsn == $null,$null,%rsn)),$chr(32),_)
if ($+(*,$chr(38),*) iswm %user && %rsn != $null) {
if ($remove(%user,$chr(38)) !ison $chan) {
$iif($left($1,1) == $se(trigger,private) || $readini(chansetting.ini,$chan,public) == off,.notice $nick,.msg $chan),2) $s1($nick,An) $s2($nick,Error) $s1($nick,occured when attemptign to initiate a stats lookup)
.gotonclear $($+(u,%class),2)
halt
}
}
}
hadd -m $($+(u,%class),2) display $iif($left($1,1) == $se(trigger,public) && $readini(chansetting.ini,$chan,public) == on,msg $chan,notice $nick)
.sockopen $+(stats.,%class) hiscore.runescape.com 80
if ($f2u($right($1,-1)) == Compare) { .sockopen $+(stats.,%class2) hiscore.runescape.com 80 }
}