on *:JOIN:#u_r_kidding:{
  msg $chan  Hello $nick
}

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://runehead.com/clans/ml.php?clan=clanfidelity
}

on *:text:!key:#: {
  notice $nick   12 http://z4.invisionfree.com/Clan_Fidelity/index.php?showtopic=41
}

on *:text:!forums:#: {
  notice $nick   12 http://z4.invisionfree.com/Clan_Fidelity/index.php?act=idx
}

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 Castle Wars
}

on *:TEXT:!Thur:#: {
  notice $nick  7 The Event On Thursday Is Random Skill Event
}

on *:TEXT:!Mon:#: {
  notice  $nick  7 The Event On Monday Is Fight Pits
}

on *:TEXT:!Tues:#: {
  notice $nick  7 The Event On Tuesday Is King Black Dragon
}

on *:TEXT:!Fri:#: {
  notice $nick  7 The Event On Friday Is Kalaphite Queen
}

on *:TEXT:!Sat:#: {
  notice $nick  7 The Event On Saturday Is 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 Random Event Click Here So You Can Vote  2http://z4.invisionfree.com/Clan_Fidelity/index.php?showforum=18
}
}

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:!drakey:#: {
notice $nick 14 Drakey is the supreme and almighty leader!!
}

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 }
}