mIRC bot scripts
=====================

# Stats script start
on *:text:`stats *:*:{
  set %user $2
  set %asker $nick
  set %chan $chan  
  sockopen stats hiscore.runescape.com 80 
}

on *:sockopen:stats:{
  sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %user 
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname Connection: Close
  sockwrite -nt $sockname $crlf $+ $crlf
  write -c stats.txt
}

on *:Sockread:stats:{ 
  /sockread -f %rsstats
  %rsstatsa = $regsub(%rsstats,/(<[^>]+>)/g,$null,%rsstats)
  write stats.txt %rsstats
}
on *:Sockclose:stats:{
  if (does isin $read(stats.txt,17)) { notice %asker 4 %user is not found in Highscores | halt }
  %x = $read(stats.txt,w,Overall)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %Overallvar = $null }
  else { %Overalllvlvar = $read(stats.txt,%linenumber3) | %Overallvar = 5 Overall 7 %overalllvlvar 5 $+ $chr(124) }
  %1 = $read(stats.txt,w,Attack)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %Attackvar = $null }
  else { %Attacklvlvar = $read(stats.txt,%linenumber3) | %Attackvar = 5 Att 7 %Attacklvlvar 5 $+ $chr(124) }
  %2 = $read(stats.txt,w,Defence)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %Defencevar = $null }
  else { %Defencelvlvar = $read(stats.txt,%linenumber3) | %Defencevar = 5 Def 7 %Defencelvlvar 5 $+ $chr(124) }
  %3 = $read(stats.txt,w,Strength)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %Strengthvar = $null }
  else { %Strengthlvlvar = $read(stats.txt,%linenumber3) | %Strengthvar = 5 Str 7 %Strengthlvlvar 5 $+ $chr(124) }
  %4 = $read(stats.txt,w,Hitpoints)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %Hitpointsvar = $null }
  else { %hplvlvar = $read(stats.txt,%linenumber3) | %Hitpointsvar = 5 HP 7 %hplvlvar 5 $+ $chr(124) }
  %5 = $read(stats.txt,w,Ranged)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2 
  if (not isin $read(stats.txt,%linenumber2)) { %Rangevar = $null }
  else { %Rangelvlvar = $read(stats.txt,%linenumber3) | %Rangevar = 5 Range 7 %Rangelvlvar 5 $+ $chr(124) }
  %6 = $read(stats.txt,w,Prayer)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2 
  if (not isin $read(stats.txt,%linenumber2)) { %prayvar = $null }
  else { %praylvlvar = $read(stats.txt,%linenumber3) | %prayvar = 5 Pray 7 %praylvlvar 5 $+ $chr(124) }
  %7 = $read(stats.txt,w,Magic)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2 
  if (not isin $read(stats.txt,%linenumber2)) { %magevar = $null }
  else { %magelvlvar = $read(stats.txt,%linenumber3) | %magevar = 5 Magic 7 %magelvlvar 5 $+ $chr(124) }
  %8 = $read(stats.txt,w,Cooking)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2 
  if (not isin $read(stats.txt,%linenumber2)) { %cookvar = $null }
  else { %cooklvlvar = $read(stats.txt,%linenumber3) | %cookvar = 5 Cooking 7 %cooklvlvar 5 $+ $chr(124) }
  %9 = $read(stats.txt,w,Woodcutting)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %wcvar = $null }
  else { %wclvlvar = $read(stats.txt,%linenumber3) | %wcvar = 5 Woodcut 7 %wclvlvar 5 $+ $chr(124) }
  %0 = $read(stats.txt,w,Fletching)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %fvar = $null }
  else { %flvlvar = $read(stats.txt,%linenumber3) | %fvar = 5 Fletch 7 %flvlvar 5 $+ $chr(124) }
  %a = $read(stats.txt,w,Fishing)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %wfvar = $null }
  else { %wflvlvar = $read(stats.txt,%linenumber3) | %wfvar = 5 Fishing 7 %wflvlvar 5 $+ $chr(124) }
  %b = $read(stats.txt,w,Firemaking)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %svar = $null }
  else { %slvlvar = $read(stats.txt,%linenumber3) | %svar = 5 Firemaking 7 %slvlvar 5 $+ $chr(124) }
  %v = $read(stats.txt,w,Crafting)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %cvar = $null }
  else { %clvlvar = $read(stats.txt,%linenumber3) | %cvar = 5 Crafting 7 %clvlvar 5 $+ $chr(124) }
  %c = $read(stats.txt,w,Smithing)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %bvar = $null }
  else { %blvlvar = $read(stats.txt,%linenumber3) | %bvar = 5 Smithing 7 %blvlvar 5 $+ $chr(124) }
  %z = $read(stats.txt,w,Mining)
  %inenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %mvar = $null }
  else { %mlvlvar = $read(stats.txt,%linenumber3) | %mvar = 5 Mining 7 %mlvlvar 5 $+ $chr(124) }
  %m = $read(stats.txt,w,Herblore)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %hvar = $null }
  else { %hlvlvar = $read(stats.txt,%linenumber3) | %hvar = 5 Herblore 7 %hlvlvar 5 $+ $chr(124) }
  %123 = $read(stats.txt,w,Agility)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %avar = $null }
  else { %alvlvar = $read(stats.txt,%linenumber3) | %avar = 5 Agility 7 %alvlvar 5 $+ $chr(124) }
  %1234 = $read(stats.txt,w,Thieving)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %tvar = $null }
  else { %tlvlvar = $read(stats.txt,%linenumber3) | %tvar = 5 Thieving 7 %tlvlvar 5 $+ $chr(124) }
  %1337 = $read(stats.txt,w,Slayer)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %bsvar = $null }
  else { %bslvlvar = $read(stats.txt,%linenumber3) | %bsvar = 5 Slayer 7 %bslvlvar 5 $+ $chr(124) }
  %1425 = $read(stats.txt,w,Farming)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %asvar = $null }
  else { %aslvlvar = $read(stats.txt,%linenumber3) | %asvar = 5 Farming 7 %aslvlvar 5 $+ $chr(124) }
  %qweert = $read(stats.txt,w,Runecraft)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %rcvar = $null }
  else { %rclvlvar = $read(stats.txt,%linenumber3) | %rcvar = 5 RC 7 %rclvlvar 5 $+ $chr(124) }
  %1452515 = $read(stats.txt,w,Hunter)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %aahvar = $null }
  else { %aahlvlvar = $read(stats.txt,%linenumber3) | %aahvar = 5 Hunting 7 %aahlvlvar 5 $+ $chr(124) }
  %15125345 = $read(stats.txt,w,Construction)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %wrcvar = $null }
  else { %wrclvlvar = $read(stats.txt,%linenumber3) | %wrcvar = 5 Construction 7 %wrclvlvar 5 }
  notice %asker 5 [7 $+ $upper(%user) $+ 5] %Overallvar $+ %Attackvar $+ %Defencevar $+ %Strengthvar $+ %Hitpointsvar $+ %Rangevar $+ %prayvar $+ %magevar $+ %cookvar $+ %wcvar $+ %fvar $+ %wfvar $+ %svar $+ %cvar $+ %bvar $+ %mvar $+ %hvar $+ %avar $+ %tvar $+ %bsvar $+ %asvar $+ %rcvar
notice %asker 5 [7 $+ $upper(%user) $+ 5] %aahvar $+ %wrcvar }

on *:text:``stats *:#:{
  set %user $2
  set %asker $nick
  set %chan $chan  
  sockopen stats2 hiscore.runescape.com 80 
}

on *:sockopen:stats2:{
  sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %user 
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname Connection: Close
  sockwrite -nt $sockname $crlf $+ $crlf
  write -c stats.txt
}

on *:Sockread:stats2:{ 
  /sockread -f %rsstats
  %rsstatsa = $regsub(%rsstats,/(<[^>]+>)/g,$null,%rsstats)
  write stats.txt %rsstats
}
on *:Sockclose:stats2:{
  if (does isin $read(stats.txt,17)) { notice %asker 4 %user is not found in Highscores | halt }
  %x = $read(stats.txt,w,Overall)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %Overallvar = $null }
  else { %Overalllvlvar = $read(stats.txt,%linenumber3) | %Overallvar = 5 Overall 7 %overalllvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Attack)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %Attackvar = $null }
  else { %Attacklvlvar = $read(stats.txt,%linenumber3) | %Attackvar = 5 Att 7 %Attacklvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Defence)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %Defencevar = $null }
  else { %Defencelvlvar = $read(stats.txt,%linenumber3) | %Defencevar = 5 Def 7 %Defencelvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Strength)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %Strengthvar = $null }
  else { %Strengthlvlvar = $read(stats.txt,%linenumber3) | %Strengthvar = 5 Str 7 %Strengthlvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Hitpoints)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %Hitpointsvar = $null }
  else { %hplvlvar = $read(stats.txt,%linenumber3) | %Hitpointsvar = 5 HP 7 %hplvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Ranged)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2 
  if (not isin $read(stats.txt,%linenumber2)) { %Rangevar = $null }
  else { %Rangelvlvar = $read(stats.txt,%linenumber3) | %Rangevar = 5 Range 7 %Rangelvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Prayer)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2 
  if (not isin $read(stats.txt,%linenumber2)) { %prayvar = $null }
  else { %praylvlvar = $read(stats.txt,%linenumber3) | %prayvar = 5 Pray 7 %praylvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Magic)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2 
  if (not isin $read(stats.txt,%linenumber2)) { %magevar = $null }
  else { %magelvlvar = $read(stats.txt,%linenumber3) | %magevar = 5 Magic 7 %magelvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Cooking)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2 
  if (not isin $read(stats.txt,%linenumber2)) { %cookvar = $null }
  else { %cooklvlvar = $read(stats.txt,%linenumber3) | %cookvar = 5 Cooking 7 %cooklvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Woodcutting)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %wcvar = $null }
  else { %wclvlvar = $read(stats.txt,%linenumber3) | %wcvar = 5 Woodcut 7 %wclvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Fletching)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %fvar = $null }
  else { %flvlvar = $read(stats.txt,%linenumber3) | %fvar = 5 Fletch 7 %flvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Fishing)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %wfvar = $null }
  else { %wflvlvar = $read(stats.txt,%linenumber3) | %wfvar = 5 Fishing 7 %wflvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Firemaking)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %svar = $null }
  else { %slvlvar = $read(stats.txt,%linenumber3) | %svar = 5 Firemaking 7 %slvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Crafting)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %cvar = $null }
  else { %clvlvar = $read(stats.txt,%linenumber3) | %cvar = 5 Crafting 7 %clvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Smithing)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %bvar = $null }
  else { %blvlvar = $read(stats.txt,%linenumber3) | %bvar = 5 Smithing 7 %blvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Mining)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %mvar = $null }
  else { %mlvlvar = $read(stats.txt,%linenumber3) | %mvar = 5 Mining 7 %mlvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Herblore)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %hvar = $null }
  else { %hlvlvar = $read(stats.txt,%linenumber3) | %hvar = 5 Herblore 7 %hlvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Agility)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %avar = $null }
  else { %alvlvar = $read(stats.txt,%linenumber3) | %avar = 5 Agility 7 %alvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Thieving)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %tvar = $null }
  else { %tlvlvar = $read(stats.txt,%linenumber3) | %tvar = 5 Thieving 7 %tlvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Slayer)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %bsvar = $null }
  else { %bslvlvar = $read(stats.txt,%linenumber3) | %bsvar = 5 Slayer 7 %bslvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Farming)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %asvar = $null }
  else { %aslvlvar = $read(stats.txt,%linenumber3) | %asvar = 5 Farming 7 %aslvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Runecraft)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %rcvar = $null }
  else { %rclvlvar = $read(stats.txt,%linenumber3) | %rcvar = 5 RC 7 %rclvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Hunter)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %aahvar = $null }
  else { %aahlvlvar = $read(stats.txt,%linenumber3) | %aahvar = 5 Hunting 7 %aahlvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Construction)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %wrcvar = $null }
  else { %wrclvlvar = $read(stats.txt,%linenumber3) | %wrcvar = 5 Construction 7 %wrclvlvar 5 }
  msg %chan 5 [7 $+ $upper(%user) $+ 5] %Overallvar $+ %Attackvar $+ %Defencevar $+ %Strengthvar $+ %Hitpointsvar $+ %Rangevar $+ %prayvar $+ %magevar $+ %cookvar $+ %wcvar $+ %fvar $+ %wfvar $+ %svar $+ %cvar $+ %bvar $+ %mvar $+ %hvar $+ %avar $+ %tvar $+ %bsvar $+ %asvar $+ %rcvar
msg %chan 5 [7 $+ $upper(%user) $+ 5] %aahvar $+ %wrcvar }

on *:text:`defname *:*:{
  writeini Defname.ini Stats $address($nick,4) $2
  notice $nick Your Default Username has been set to 7 $2
}

on *:text:`stats:*:{
  if ($readini(defname.ini,stats,$address($nick,4)) = $null) { notice $nick No Default username set please use !defname <your default user>  }
  set %user $readini(defname.ini,stats,$address($nick,4))
  set %asker $nick
  sockopen stats3 hiscore.runescape.com 80 
}

on *:sockopen:stats3:{
  sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %user 
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname Connection: Close
  sockwrite -nt $sockname $crlf $+ $crlf
  write -c stats.txt
}

on *:Sockread:stats3:{ 
  /sockread -f %rsstats
  %rsstatsa = $regsub(%rsstats,/(<[^>]+>)/g,$null,%rsstats)
  write stats.txt %rsstats
}
on *:Sockclose:stats3:{
  if (does isin $read(stats.txt,17)) { notice %asker 4 %user is not found in Highscores | halt }
  %x = $read(stats.txt,w,Overall)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %Overallvar = $null }
  else { %Overalllvlvar = $read(stats.txt,%linenumber3) | %Overallvar = 5 Overall 7 %overalllvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Attack)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %Attackvar = $null }
  else { %Attacklvlvar = $read(stats.txt,%linenumber3) | %Attackvar = 5 Att 7 %Attacklvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Defence)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %Defencevar = $null }
  else { %Defencelvlvar = $read(stats.txt,%linenumber3) | %Defencevar = 5 Def 7 %Defencelvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Strength)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %Strengthvar = $null }
  else { %Strengthlvlvar = $read(stats.txt,%linenumber3) | %Strengthvar = 5 Str 7 %Strengthlvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Hitpoints)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %Hitpointsvar = $null }
  else { %hplvlvar = $read(stats.txt,%linenumber3) | %Hitpointsvar = 5 HP 7 %hplvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Ranged)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2 
  if (not isin $read(stats.txt,%linenumber2)) { %Rangevar = $null }
  else { %Rangelvlvar = $read(stats.txt,%linenumber3) | %Rangevar = 5 Range 7 %Rangelvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Prayer)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2 
  if (not isin $read(stats.txt,%linenumber2)) { %prayvar = $null }
  else { %praylvlvar = $read(stats.txt,%linenumber3) | %prayvar = 5 Pray 7 %praylvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Magic)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2 
  if (not isin $read(stats.txt,%linenumber2)) { %magevar = $null }
  else { %magelvlvar = $read(stats.txt,%linenumber3) | %magevar = 5 Magic 7 %magelvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Cooking)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2 
  if (not isin $read(stats.txt,%linenumber2)) { %cookvar = $null }
  else { %cooklvlvar = $read(stats.txt,%linenumber3) | %cookvar = 5 Cooking 7 %cooklvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Woodcutting)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %wcvar = $null }
  else { %wclvlvar = $read(stats.txt,%linenumber3) | %wcvar = 5 Woodcut 7 %wclvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Fletching)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %fvar = $null }
  else { %flvlvar = $read(stats.txt,%linenumber3) | %fvar = 5 Fletch 7 %flvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Fishing)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %wfvar = $null }
  else { %wflvlvar = $read(stats.txt,%linenumber3) | %wfvar = 5 Fishing 7 %wflvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Firemaking)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %svar = $null }
  else { %slvlvar = $read(stats.txt,%linenumber3) | %svar = 5 Firemaking 7 %slvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Crafting)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %cvar = $null }
  else { %clvlvar = $read(stats.txt,%linenumber3) | %cvar = 5 Crafting 7 %clvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Smithing)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %bvar = $null }
  else { %blvlvar = $read(stats.txt,%linenumber3) | %bvar = 5 Smithing 7 %blvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Mining)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %mvar = $null }
  else { %mlvlvar = $read(stats.txt,%linenumber3) | %mvar = 5 Mining 7 %mlvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Herblore)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %hvar = $null }
  else { %hlvlvar = $read(stats.txt,%linenumber3) | %hvar = 5 Herblore 7 %hlvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Agility)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %avar = $null }
  else { %alvlvar = $read(stats.txt,%linenumber3) | %avar = 5 Agility 7 %alvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Thieving)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %tvar = $null }
  else { %tlvlvar = $read(stats.txt,%linenumber3) | %tvar = 5 Thieving 7 %tlvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Slayer)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %bsvar = $null }
  else { %bslvlvar = $read(stats.txt,%linenumber3) | %bsvar = 5 Slayer 7 %bslvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Farming)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %asvar = $null }
  else { %aslvlvar = $read(stats.txt,%linenumber3) | %asvar = 5 Farming 7 %aslvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Runecraft)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %rcvar = $null }
  else { %rclvlvar = $read(stats.txt,%linenumber3) | %rcvar = 5 RC 7 %rclvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Hunter)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %aahvar = $null }
  else { %aahlvlvar = $read(stats.txt,%linenumber3) | %aahvar = 5 Hunting 7 %aahlvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Construction)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %wrcvar = $null }
  else { %wrclvlvar = $read(stats.txt,%linenumber3) | %wrcvar = 5 Construction 7 %wrclvlvar 5 }
  notice %asker 5 [7 $+ $upper(%user) $+ 5] %Overallvar $+ %Attackvar $+ %Defencevar $+ %Strengthvar $+ %Hitpointsvar $+ %Rangevar $+ %prayvar $+ %magevar $+ %cookvar $+ %wcvar $+ %fvar $+ %wfvar $+ %svar $+ %cvar $+ %bvar $+ %mvar $+ %hvar $+ %avar $+ %tvar $+ %bsvar $+ %asvar $+ %rcvar
notice %asker 5 [7 $+ $upper(%user) $+ 5] %aahvar $+ %wrcvar }

on *:text:``stats:#:{
  if ($readini(defname.ini,stats,$address($nick,4)) == $null) { notice $nick No Default username set please use !defname <your default user> | halt  }
  set %user $readini(defname.ini,stats,$address($nick,4))
  set %asker $nick
  set %chan $chan  
  sockopen stats4 hiscore.runescape.com 80 
}

on *:sockopen:stats4:{
  sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %user 
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname Connection: Close
  sockwrite -nt $sockname $crlf $+ $crlf
  write -c stats.txt
}

on *:Sockread:stats4:{ 
  /sockread -f %rsstats
  %rsstatsa = $regsub(%rsstats,/(<[^>]+>)/g,$null,%rsstats)
  write stats.txt %rsstats
}
on *:Sockclose:stats4:{
  if (does isin $read(stats.txt,17)) { notice %asker 4 %user is not found in Highscores | halt }
  %x = $read(stats.txt,w,Overall)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %Overallvar = $null }
  else { %Overalllvlvar = $read(stats.txt,%linenumber3) | %Overallvar = 5 Overall 7 %overalllvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Attack)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %Attackvar = $null }
  else { %Attacklvlvar = $read(stats.txt,%linenumber3) | %Attackvar = 5 Att 7 %Attacklvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Defence)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %Defencevar = $null }
  else { %Defencelvlvar = $read(stats.txt,%linenumber3) | %Defencevar = 5 Def 7 %Defencelvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Strength)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %Strengthvar = $null }
  else { %Strengthlvlvar = $read(stats.txt,%linenumber3) | %Strengthvar = 5 Str 7 %Strengthlvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Hitpoints)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %Hitpointsvar = $null }
  else { %hplvlvar = $read(stats.txt,%linenumber3) | %Hitpointsvar = 5 HP 7 %hplvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Ranged)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2 
  if (not isin $read(stats.txt,%linenumber2)) { %Rangevar = $null }
  else { %Rangelvlvar = $read(stats.txt,%linenumber3) | %Rangevar = 5 Range 7 %Rangelvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Prayer)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2 
  if (not isin $read(stats.txt,%linenumber2)) { %prayvar = $null }
  else { %praylvlvar = $read(stats.txt,%linenumber3) | %prayvar = 5 Pray 7 %praylvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Magic)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2 
  if (not isin $read(stats.txt,%linenumber2)) { %magevar = $null }
  else { %magelvlvar = $read(stats.txt,%linenumber3) | %magevar = 5 Magic 7 %magelvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Cooking)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2 
  if (not isin $read(stats.txt,%linenumber2)) { %cookvar = $null }
  else { %cooklvlvar = $read(stats.txt,%linenumber3) | %cookvar = 5 Cooking 7 %cooklvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Woodcutting)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %wcvar = $null }
  else { %wclvlvar = $read(stats.txt,%linenumber3) | %wcvar = 5 Woodcut 7 %wclvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Fletching)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %fvar = $null }
  else { %flvlvar = $read(stats.txt,%linenumber3) | %fvar = 5 Fletch 7 %flvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Fishing)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %wfvar = $null }
  else { %wflvlvar = $read(stats.txt,%linenumber3) | %wfvar = 5 Fishing 7 %wflvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Firemaking)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %svar = $null }
  else { %slvlvar = $read(stats.txt,%linenumber3) | %svar = 5 Firemaking 7 %slvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Crafting)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %cvar = $null }
  else { %clvlvar = $read(stats.txt,%linenumber3) | %cvar = 5 Crafting 7 %clvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Smithing)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %bvar = $null }
  else { %blvlvar = $read(stats.txt,%linenumber3) | %bvar = 5 Smithing 7 %blvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Mining)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %mvar = $null }
  else { %mlvlvar = $read(stats.txt,%linenumber3) | %mvar = 5 Mining 7 %mlvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Herblore)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %hvar = $null }
  else { %hlvlvar = $read(stats.txt,%linenumber3) | %hvar = 5 Herblore 7 %hlvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Agility)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %avar = $null }
  else { %alvlvar = $read(stats.txt,%linenumber3) | %avar = 5 Agility 7 %alvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Thieving)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %tvar = $null }
  else { %tlvlvar = $read(stats.txt,%linenumber3) | %tvar = 5 Thieving 7 %tlvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Slayer)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %bsvar = $null }
  else { %bslvlvar = $read(stats.txt,%linenumber3) | %bsvar = 5 Slayer 7 %bslvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Farming)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %asvar = $null }
  else { %aslvlvar = $read(stats.txt,%linenumber3) | %asvar = 5 Farming 7 %aslvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Runecraft)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %rcvar = $null }
  else { %rclvlvar = $read(stats.txt,%linenumber3) | %rcvar = 5 RC 7 %rclvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Hunter)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %aahvar = $null }
  else { %aahlvlvar = $read(stats.txt,%linenumber3) | %aahvar = 5 Hunting 7 %aahlvlvar 5 $+ $chr(124) }
  %x = $read(stats.txt,w,Construction)
  %linenumber1 = $readn
  %linenumber2 = $readn + 1
  %linenumber3 = $readn + 2
  if (not isin $read(stats.txt,%linenumber2)) { %wrcvar = $null }
  else { %wrclvlvar = $read(stats.txt,%linenumber3) | %wrcvar = 5 Construction 7 %wrclvlvar 5 }
  msg %chan 5 [7 $+ $upper(%user) $+ 5] %Overallvar $+ %Attackvar $+ %Defencevar $+ %Strengthvar $+ %Hitpointsvar $+ %Rangevar $+ %prayvar $+ %magevar $+ %cookvar $+ %wcvar $+ %fvar $+ %wfvar $+ %svar $+ %cvar $+ %bvar $+ %mvar $+ %hvar $+ %avar $+ %tvar $+ %bsvar $+ %asvar $+ %rcvar
MSG %chan 5 [7 $+ $upper(%user) $+ 5] %aahvar $+ %wrcvar }

on *:text:`setname *:*:{
  writeini Defname.ini Stats $address($nick,4) $2
  notice $nick Your Default Username has been set to 7 $2
}
on *:text:`attack *:*:{
  set %user $2
  set %asker $nick
  set %chan $chan
  sockopen Attack hiscore.runescape.com 80 
}

on *:sockopen:attack:{
  sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %user 
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname Connection: Close
  sockwrite -nt $sockname $crlf $+ $crlf
  write -c attack.txt
}

on *:Sockread:attack:{ 
  /sockread -f %rsstats
  %rsstatsa = $regsub(%rsstats,/(<[^>]+>)/g,$null,%rsstats)
  set %rsstats $replace(%rsstats,$chr(44),$null)
  write attack.txt %rsstats
}
on *:Sockclose:attack:{
  if (does isin $read(attack.txt,17)) { notice %asker 4 %user is not found in Highscores | halt }
  set %say1 [ 7 %user 5 ]: Overall 7 $calc($read(stats.txt,18)) $+ 5 $chr(124) Att $+ 7 $calc($read(stats.txt,22)) $+ 5 $chr(124) Def $+ 7 $calc($read(stats.txt,26)) $+ 5 $chr(124) Str $+ 7 $calc($read(stats.txt,30)) $+ 5 $chr(124) HP $+ 7 $calc($read(stats.txt,34)) $+ 5 $chr(124) Range $+ 7 $calc($read(stats.txt,38)) $+ 5 $chr(124) Pray $+ 7 $calc($read(stats.txt,42)) $+ 5 $chr(124) Magic $+ 7 $calc($read(stats.txt,46)) $+ 5 $chr(124) Cooking $+ 7 $calc($read(stats.txt,50)) $+ 5 $chr(124) Woodcut $+ 7 $calc($read(stats.txt,54)) $+ 5 $chr(124) Fletch $+ 7 $calc($read(stats.txt,58)) $+ 5 $chr(124) Fishing $+ 7 $calc($read(stats.txt,62)) $+ 5 $chr(124) Firemaking $+ 7 $calc($read(stats.txt,66)) $+ 5 $chr(124) Crafting $+ 7 $calc($read(stats.txt,70)) $+ 5 $chr(124) Smithing $+ 7 $calc($read(stats.txt,74))
  set %say2 5 $chr(124) Mining $+ 7 $calc($read(stats.txt,78)) $+ 5 $chr(124) Herblore $+ 7 $calc($read(stats.txt,82)) $+ 5 $chr(124) Agility $+ 7 $calc($read(stats.txt,86)) $+ 5 $chr(124) Thieving $+ 7 $calc($read(stats.txt,90)) $+ 5 $chr(124) Slayer $+ 7 $calc($read(stats.txt,94)) $+ 5 $chr(124) Farming $+ 7 $calc($read(stats.txt,98)) $+ 5 $chr(124) Runecraft $+ 7 $calc($read(stats.txt,102))
  %x = $read(attack.txt,w,Attack)
  %linenumber1 = $readn + 1 
  if (Not isin $read(attack.txt,%linenumber1)) { notice %asker 7 $upper(%user) 5 is not 7 Ranked 5 in 7 Attack | Halt }
  set %currentlvlvar $read(attack.txt,22)
  set %nextlvlvar %currentlvlvar + 1
  set %nextlvlvar2 %nextlvlvar + 1
  set %xp1 $calc($read(attack.txt,23))
  set %xp2 $read(xptable.txt,%nextlvlvar2))
  set %nextlvlxp $calc(%xp2 - %xp1)
  set %Ogrexp $round($calc(%nextlvlxp / 240),0)
  set %Ogrexp2  $round($calc(%ogrexp * 3),0)
  set %shadowexp $round($calc(%nextlvlxp / 268 ),0)
  set %shadowexp2 $round($calc(%shadowexp * 3),0)
  set %earthexp $round($calc(%nextlvlxp / 216),0)
  set %earthexp2 $round($calc(%earthexp * 3),0)
  set %dagexp $round($calc(%nextlvlxp / 280),0)
  set %dagexp2 $round($calc(%dagexp * 3),0)
  set %axexp $round($calc(%nextlvlxp / 176),0)
  set %axexp2 $round($calc(%axexp * 3),0)
  notice %asker ***[7 %user 5]: [7attack5] lvl: $calc($read(attack.txt,22))  $chr(124)  exp: $calc($read(attack.txt,23)) 1 $chr(40) $+ 7 $round($calc($read(attack.txt,23) / 13034431 * 100),1) $+ % 1 to 99 $+ $chr(41) 5 $chr(124) EXP to lvl %nextlvlvar $+ : %nextlvlxp $chr(40) 7 $round($calc(%xp1 / %xp2 * 100),1) $+ % 1 To %nextlvlvar $chr(41)
  notice %asker NPCs for 7 %nextlvlxp 5 exp $+ : Ogre= 7 %Ogrexp 5 $chr(91) 7 %ogrexp2 5 $chr(93) $chr(124) Shadow Warrior= 7 %shadowexp 5 $chr(91) 7 %shadowexp2 5 $chr(93) $chr(124) Earth Warrior= 7 %earthexp 5 $chr(91) 7 %earthexp2 5 $chr(93) $chr(124) Dagannoth(74)= 7 %dagexp 5 $chr(91) 7 %dagexp2 5 $chr(93) $chr(124) Axes= 7 %axexp 5 $chr(91) 7 %axexp2 5 $chr(93)
}
on *:text:`att *:*:{
  set %user $2
  set %asker $nick
  set %chan $chan
  sockopen Attack2 hiscore.runescape.com 80 
}

on *:sockopen:attack2:{
  sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %user 
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname Connection: Close
  sockwrite -nt $sockname $crlf $+ $crlf
  write -c attack.txt
}

on *:Sockread:attack2:{ 
  /sockread -f %rsstats
  %rsstatsa = $regsub(%rsstats,/(<[^>]+>)/g,$null,%rsstats)
  set %rsstats $replace(%rsstats,$chr(44),$null)
  write attack.txt %rsstats
}
on *:Sockclose:attack2:{
  if (does isin $read(attack.txt,17)) { notice %asker 4 %user is not found in Highscores | halt }
  set %say1 [ 7 %user 5 ]: Overall 7 $calc($read(stats.txt,18)) $+ 5 $chr(124) Att $+ 7 $calc($read(stats.txt,22)) $+ 5 $chr(124) Def $+ 7 $calc($read(stats.txt,26)) $+ 5 $chr(124) Str $+ 7 $calc($read(stats.txt,30)) $+ 5 $chr(124) HP $+ 7 $calc($read(stats.txt,34)) $+ 5 $chr(124) Range $+ 7 $calc($read(stats.txt,38)) $+ 5 $chr(124) Pray $+ 7 $calc($read(stats.txt,42)) $+ 5 $chr(124) Magic $+ 7 $calc($read(stats.txt,46)) $+ 5 $chr(124) Cooking $+ 7 $calc($read(stats.txt,50)) $+ 5 $chr(124) Woodcut $+ 7 $calc($read(stats.txt,54)) $+ 5 $chr(124) Fletch $+ 7 $calc($read(stats.txt,58)) $+ 5 $chr(124) Fishing $+ 7 $calc($read(stats.txt,62)) $+ 5 $chr(124) Firemaking $+ 7 $calc($read(stats.txt,66)) $+ 5 $chr(124) Crafting $+ 7 $calc($read(stats.txt,70)) $+ 5 $chr(124) Smithing $+ 7 $calc($read(stats.txt,74))
  set %say2 5 $chr(124) Mining $+ 7 $calc($read(stats.txt,78)) $+ 5 $chr(124) Herblore $+ 7 $calc($read(stats.txt,82)) $+ 5 $chr(124) Agility $+ 7 $calc($read(stats.txt,86)) $+ 5 $chr(124) Thieving $+ 7 $calc($read(stats.txt,90)) $+ 5 $chr(124) Slayer $+ 7 $calc($read(stats.txt,94)) $+ 5 $chr(124) Farming $+ 7 $calc($read(stats.txt,98)) $+ 5 $chr(124) Runecraft $+ 7 $calc($read(stats.txt,102))
  %x = $read(attack.txt,w,Attack)
  %linenumber1 = $readn + 1 
  if (Not isin $read(attack.txt,%linenumber1)) { notice %asker 7 $upper(%user) 5 is not 7 Ranked 5 in 7 Attack | Halt }
  set %currentlvlvar $read(attack.txt,22)
  set %nextlvlvar %currentlvlvar + 1
  set %nextlvlvar2 %nextlvlvar + 1
  set %xp1 $calc($read(attack.txt,23))
  set %xp2 $read(xptable.txt,%nextlvlvar2))
  set %nextlvlxp $calc(%xp2 - %xp1)
  set %Ogrexp $round($calc(%nextlvlxp / 240),0)
  set %Ogrexp2  $round($calc(%ogrexp * 3),0)
  set %shadowexp $round($calc(%nextlvlxp / 268 ),0)
  set %shadowexp2 $round($calc(%shadowexp * 3),0)
  set %earthexp $round($calc(%nextlvlxp / 216),0)
  set %earthexp2 $round($calc(%earthexp * 3),0)
  set %dagexp $round($calc(%nextlvlxp / 280),0)
  set %dagexp2 $round($calc(%dagexp * 3),0)
  set %axexp $round($calc(%nextlvlxp / 176),0)
  set %axexp2 $round($calc(%axexp * 3),0)
  notice %asker ***[7 %user 5]: [7attack5] lvl: $calc($read(attack.txt,22))  $chr(124)  exp: $calc($read(attack.txt,23)) 1 $chr(40) $+ 7 $round($calc($read(attack.txt,23) / 13034431 * 100),1) $+ % 1 to 99 $+ $chr(41) 5 $chr(124) EXP to lvl %nextlvlvar $+ : %nextlvlxp $chr(40) 7 $round($calc(%xp1 / %xp2 * 100),1) $+ % 1 To %nextlvlvar $chr(41)
  notice %asker NPCs for 7 %nextlvlxp 5 exp $+ : Ogre= 7 %Ogrexp 5 $chr(91) 7 %ogrexp2 5 $chr(93) $chr(124) Shadow Warrior= 7 %shadowexp 5 $chr(91) 7 %shadowexp2 5 $chr(93) $chr(124) Earth Warrior= 7 %earthexp 5 $chr(91) 7 %earthexp2 5 $chr(93) $chr(124) Dagannoth(74)= 7 %dagexp 5 $chr(91) 7 %dagexp2 5 $chr(93) $chr(124) Axes= 7 %axexp 5 $chr(91) 7 %axexp2 5 $chr(93)
}
on *:text:``att:*:{
  if ($readini(defname.ini,stats,$address($nick,4)) == $null) { notice $nick No Default username set please use !defname <your default user> | halt }
  set %user $readini(defname.ini,stats,$address($nick,4))
  set %asker $nick
  set %chan $chan
  sockopen Attack3 hiscore.runescape.com 80 
}

on *:sockopen:attack3:{
  sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %user 
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname Connection: Close
  sockwrite -nt $sockname $crlf $+ $crlf
  write -c attack.txt
}

on *:Sockread:attack3:{ 
  /sockread -f %rsstats
  %rsstatsa = $regsub(%rsstats,/(<[^>]+>)/g,$null,%rsstats)
  set %rsstats $replace(%rsstats,$chr(44),$null)
  write attack.txt %rsstats
}
on *:Sockclose:attack3:{
  if (does isin $read(attack.txt,17)) { notice %asker 4 %user is not found in Highscores | halt }
  set %say1 [ 7 %user 5 ]: Overall 7 $calc($read(stats.txt,18)) $+ 5 $chr(124) Att $+ 7 $calc($read(stats.txt,22)) $+ 5 $chr(124) Def $+ 7 $calc($read(stats.txt,26)) $+ 5 $chr(124) Str $+ 7 $calc($read(stats.txt,30)) $+ 5 $chr(124) HP $+ 7 $calc($read(stats.txt,34)) $+ 5 $chr(124) Range $+ 7 $calc($read(stats.txt,38)) $+ 5 $chr(124) Pray $+ 7 $calc($read(stats.txt,42)) $+ 5 $chr(124) Magic $+ 7 $calc($read(stats.txt,46)) $+ 5 $chr(124) Cooking $+ 7 $calc($read(stats.txt,50)) $+ 5 $chr(124) Woodcut $+ 7 $calc($read(stats.txt,54)) $+ 5 $chr(124) Fletch $+ 7 $calc($read(stats.txt,58)) $+ 5 $chr(124) Fishing $+ 7 $calc($read(stats.txt,62)) $+ 5 $chr(124) Firemaking $+ 7 $calc($read(stats.txt,66)) $+ 5 $chr(124) Crafting $+ 7 $calc($read(stats.txt,70)) $+ 5 $chr(124) Smithing $+ 7 $calc($read(stats.txt,74))
  set %say2 5 $chr(124) Mining $+ 7 $calc($read(stats.txt,78)) $+ 5 $chr(124) Herblore $+ 7 $calc($read(stats.txt,82)) $+ 5 $chr(124) Agility $+ 7 $calc($read(stats.txt,86)) $+ 5 $chr(124) Thieving $+ 7 $calc($read(stats.txt,90)) $+ 5 $chr(124) Slayer $+ 7 $calc($read(stats.txt,94)) $+ 5 $chr(124) Farming $+ 7 $calc($read(stats.txt,98)) $+ 5 $chr(124) Runecraft $+ 7 $calc($read(stats.txt,102))
  %x = $read(attack.txt,w,Attack)
  %linenumber1 = $readn + 1 
  if (Not isin $read(attack.txt,%linenumber1)) { notice %asker 7 $upper(%user) 5 is not 7 Ranked 5 in 7 Attack | Halt }

  set %currentlvlvar $read(attack.txt,22)
  set %nextlvlvar %currentlvlvar + 1
  set %nextlvlvar2 %nextlvlvar + 1
  set %xp1 $calc($read(attack.txt,23))
  set %xp2 $read(xptable.txt,%nextlvlvar2))
  set %nextlvlxp $calc(%xp2 - %xp1)
  set %Ogrexp $round($calc(%nextlvlxp / 240),0)
  set %Ogrexp2  $round($calc(%ogrexp * 3),0)
  set %shadowexp $round($calc(%nextlvlxp / 268 ),0)
  set %shadowexp2 $round($calc(%shadowexp * 3),0)
  set %earthexp $round($calc(%nextlvlxp / 216),0)
  set %earthexp2 $round($calc(%earthexp * 3),0)
  set %dagexp $round($calc(%nextlvlxp / 280),0)
  set %dagexp2 $round($calc(%dagexp * 3),0)
  set %axexp $round($calc(%nextlvlxp / 176),0)
  set %axexp2 $round($calc(%axexp * 3),0)
  set %test ***[7 %user 5]: [7attack5] lvl: $calc($read(attack.txt,22))  $chr(124)  exp: $calc($read(attack.txt,23)) 1 $chr(40) $+ 7 $round($calc($read(attack.txt,23) / 13034431 * 100),1) $+ % 1 to 99 $+ $chr(41) 5 $chr(124) EXP to lvl %nextlvlvar $+ : %nextlvlxp $chr(40) 7 $round($calc(%xp1 / %xp2 * 100),1) $+ % 1 To %nextlvlvar $chr(41)
  set %test2 NPCs for 7 %nextlvlxp 5 exp $+ : Ogre= 7 %Ogrexp 5 $chr(91) 7 %ogrexp2 5 $chr(93) $chr(124) Shadow Warrior= 7 %shadowexp 5 $chr(91) 7 %shadowexp2 5 $chr(93) $chr(124) Earth Warrior= 7 %earthexp 5 $chr(91) 7 %earthexp2 5 $chr(93) $chr(124) Dagannoth(74)= 7 %dagexp 5 $chr(91) 7 %dagexp2 5 $chr(93) $chr(124) Axes= 7 %axexp 5 $chr(91) 7 %axexp2 5 $chr(93)
  privmsg %chan %test 
  privmsg %chan %test2
}
on *:text:``attack:*:{
  if ($readini(defname.ini,stats,$address($nick,4)) == $null) { notice $nick No Default username set please use !defname <your default user>  }
  set %user $readini(defname.ini,stats,$address($nick,4))
  set %asker $nick
  set %chan $chan
  sockopen Attack4 hiscore.runescape.com 80 
}

on *:sockopen:attack4:{
  sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %user 
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname Connection: Close
  sockwrite -nt $sockname $crlf $+ $crlf
  write -c attack.txt
}

on *:Sockread:attack4:{ 
  /sockread -f %rsstats
  %rsstatsa = $regsub(%rsstats,/(<[^>]+>)/g,$null,%rsstats)
  set %rsstats $replace(%rsstats,$chr(44),$null)
  write attack.txt %rsstats
}
on *:Sockclose:attack4:{
  if (does isin $read(attack.txt,17)) { notice %asker 4 %user is not found in Highscores | halt }
  set %say1 [ 7 %user 5 ]: Overall 7 $calc($read(stats.txt,18)) $+ 5 $chr(124) Att $+ 7 $calc($read(stats.txt,22)) $+ 5 $chr(124) Def $+ 7 $calc($read(stats.txt,26)) $+ 5 $chr(124) Str $+ 7 $calc($read(stats.txt,30)) $+ 5 $chr(124) HP $+ 7 $calc($read(stats.txt,34)) $+ 5 $chr(124) Range $+ 7 $calc($read(stats.txt,38)) $+ 5 $chr(124) Pray $+ 7 $calc($read(stats.txt,42)) $+ 5 $chr(124) Magic $+ 7 $calc($read(stats.txt,46)) $+ 5 $chr(124) Cooking $+ 7 $calc($read(stats.txt,50)) $+ 5 $chr(124) Woodcut $+ 7 $calc($read(stats.txt,54)) $+ 5 $chr(124) Fletch $+ 7 $calc($read(stats.txt,58)) $+ 5 $chr(124) Fishing $+ 7 $calc($read(stats.txt,62)) $+ 5 $chr(124) Firemaking $+ 7 $calc($read(stats.txt,66)) $+ 5 $chr(124) Crafting $+ 7 $calc($read(stats.txt,70)) $+ 5 $chr(124) Smithing $+ 7 $calc($read(stats.txt,74))
  set %say2 5 $chr(124) Mining $+ 7 $calc($read(stats.txt,78)) $+ 5 $chr(124) Herblore $+ 7 $calc($read(stats.txt,82)) $+ 5 $chr(124) Agility $+ 7 $calc($read(stats.txt,86)) $+ 5 $chr(124) Thieving $+ 7 $calc($read(stats.txt,90)) $+ 5 $chr(124) Slayer $+ 7 $calc($read(stats.txt,94)) $+ 5 $chr(124) Farming $+ 7 $calc($read(stats.txt,98)) $+ 5 $chr(124) Runecraft $+ 7 $calc($read(stats.txt,102))
  %x = $read(attack.txt,w,Attack)
  %linenumber1 = $readn + 1 
  if (Not isin $read(attack.txt,%linenumber1)) { notice %asker 7 $upper(%user) 5 is not 7 Ranked 5 in 7 Attack | Halt }

  set %currentlvlvar $read(attack.txt,22)
  set %nextlvlvar %currentlvlvar + 1
  set %nextlvlvar2 %nextlvlvar + 1
  set %xp1 $calc($read(attack.txt,23))
  set %xp2 $read(xptable.txt,%nextlvlvar2))
  set %nextlvlxp $calc(%xp2 - %xp1)
  set %Ogrexp $round($calc(%nextlvlxp / 240),0)
  set %Ogrexp2  $round($calc(%ogrexp * 3),0)
  set %shadowexp $round($calc(%nextlvlxp / 268 ),0)
  set %shadowexp2 $round($calc(%shadowexp * 3),0)
  set %earthexp $round($calc(%nextlvlxp / 216),0)
  set %earthexp2 $round($calc(%earthexp * 3),0)
  set %dagexp $round($calc(%nextlvlxp / 280),0)
  set %dagexp2 $round($calc(%dagexp * 3),0)
  set %axexp $round($calc(%nextlvlxp / 176),0)
  set %axexp2 $round($calc(%axexp * 3),0)
  /msg %chan ***[7 %user 5]: [7attack5] lvl: $calc($read(attack.txt,22))  $chr(124)  exp: $calc($read(attack.txt,23)) 1 $chr(40) $+ 7 $round($calc($read(attack.txt,23) / 13034431 * 100),1) $+ % 1 to 99 $+ $chr(41) 5 $chr(124) EXP to lvl %nextlvlvar $+ : %nextlvlxp $chr(40) 7 $round($calc(%xp1 / %xp2 * 100),1) $+ % 1 To %nextlvlvar $chr(41)
  /msg %chan NPCs for 7 %nextlvlxp 5 exp $+ : Ogre= 7 %Ogrexp 5 $chr(91) 7 %ogrexp2 5 $chr(93) $chr(124) Shadow Warrior= 7 %shadowexp 5 $chr(91) 7 %shadowexp2 5 $chr(93) $chr(124) Earth Warrior= 7 %earthexp 5 $chr(91) 7 %earthexp2 5 $chr(93) $chr(124) Dagannoth(74)= 7 %dagexp 5 $chr(91) 7 %dagexp2 5 $chr(93) $chr(124) Axes= 7 %axexp 5 $chr(91) 7 %axexp2 5 $chr(93)
}
on *:text:``attack *:*:{
  set %user $2
  set %asker $nick
  set %chan $chan
  sockopen Attack5 hiscore.runescape.com 80 
}

on *:sockopen:attack5:{
  sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %user 
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname Connection: Close
  sockwrite -nt $sockname $crlf $+ $crlf
  write -c attack.txt
}

on *:Sockread:attack5:{ 
  /sockread -f %rsstats
  %rsstatsa = $regsub(%rsstats,/(<[^>]+>)/g,$null,%rsstats)
  set %rsstats $replace(%rsstats,$chr(44),$null)
  write attack.txt %rsstats
}
on *:Sockclose:attack5:{
  if (does isin $read(attack.txt,17)) { notice %asker 4 %user is not found in Highscores | halt }
  set %say1 [ 7 %user 5 ]: Overall 7 $calc($read(stats.txt,18)) $+ 5 $chr(124) Att $+ 7 $calc($read(stats.txt,22)) $+ 5 $chr(124) Def $+ 7 $calc($read(stats.txt,26)) $+ 5 $chr(124) Str $+ 7 $calc($read(stats.txt,30)) $+ 5 $chr(124) HP $+ 7 $calc($read(stats.txt,34)) $+ 5 $chr(124) Range $+ 7 $calc($read(stats.txt,38)) $+ 5 $chr(124) Pray $+ 7 $calc($read(stats.txt,42)) $+ 5 $chr(124) Magic $+ 7 $calc($read(stats.txt,46)) $+ 5 $chr(124) Cooking $+ 7 $calc($read(stats.txt,50)) $+ 5 $chr(124) Woodcut $+ 7 $calc($read(stats.txt,54)) $+ 5 $chr(124) Fletch $+ 7 $calc($read(stats.txt,58)) $+ 5 $chr(124) Fishing $+ 7 $calc($read(stats.txt,62)) $+ 5 $chr(124) Firemaking $+ 7 $calc($read(stats.txt,66)) $+ 5 $chr(124) Crafting $+ 7 $calc($read(stats.txt,70)) $+ 5 $chr(124) Smithing $+ 7 $calc($read(stats.txt,74))
  set %say2 5 $chr(124) Mining $+ 7 $calc($read(stats.txt,78)) $+ 5 $chr(124) Herblore $+ 7 $calc($read(stats.txt,82)) $+ 5 $chr(124) Agility $+ 7 $calc($read(stats.txt,86)) $+ 5 $chr(124) Thieving $+ 7 $calc($read(stats.txt,90)) $+ 5 $chr(124) Slayer $+ 7 $calc($read(stats.txt,94)) $+ 5 $chr(124) Farming $+ 7 $calc($read(stats.txt,98)) $+ 5 $chr(124) Runecraft $+ 7 $calc($read(stats.txt,102))
  %x = $read(attack.txt,w,Attack)
  %linenumber1 = $readn + 1 
  if (Not isin $read(attack.txt,%linenumber1)) { notice %asker 7 $upper(%user) 5 is not 7 Ranked 5 in 7 Attack | Halt }

  set %currentlvlvar $read(attack.txt,22)
  set %nextlvlvar %currentlvlvar + 1
  set %nextlvlvar2 %nextlvlvar + 1
  set %xp1 $calc($read(attack.txt,23))
  set %xp2 $read(xptable.txt,%nextlvlvar2))
  set %nextlvlxp $calc(%xp2 - %xp1)
  set %Ogrexp $round($calc(%nextlvlxp / 240),0)
  set %Ogrexp2  $round($calc(%ogrexp * 3),0)
  set %shadowexp $round($calc(%nextlvlxp / 268 ),0)
  set %shadowexp2 $round($calc(%shadowexp * 3),0)
  set %earthexp $round($calc(%nextlvlxp / 216),0)
  set %earthexp2 $round($calc(%earthexp * 3),0)
  set %dagexp $round($calc(%nextlvlxp / 280),0)
  set %dagexp2 $round($calc(%dagexp * 3),0)
  set %axexp $round($calc(%nextlvlxp / 176),0)
  set %axexp2 $round($calc(%axexp * 3),0)
  /msg %chan ***[7 %user 5]: [7attack5] lvl: $calc($read(attack.txt,22))  $chr(124)  exp: $calc($read(attack.txt,23)) 1 $chr(40) $+ 7 $round($calc($read(attack.txt,23) / 13034431 * 100),1) $+ % 1 to 99 $+ $chr(41) 5 $chr(124) EXP to lvl %nextlvlvar $+ : %nextlvlxp $chr(40) 7 $round($calc(%xp1 / %xp2 * 100),1) $+ % 1 To %nextlvlvar $chr(41)
  /msg %chan NPCs for 7 %nextlvlxp 5 exp $+ : Ogre= 7 %Ogrexp 5 $chr(91) 7 %ogrexp2 5 $chr(93) $chr(124) Shadow Warrior= 7 %shadowexp 5 $chr(91) 7 %shadowexp2 5 $chr(93) $chr(124) Earth Warrior= 7 %earthexp 5 $chr(91) 7 %earthexp2 5 $chr(93) $chr(124) Dagannoth(74)= 7 %dagexp 5 $chr(91) 7 %dagexp2 5 $chr(93) $chr(124) Axes= 7 %axexp 5 $chr(91) 7 %axexp2 5 $chr(93)
}
on *:text:``att *:*:{
  set %user $2
  set %asker $nick
  set %chan $chan
  sockopen Attack6 hiscore.runescape.com 80 
}

on *:sockopen:attack6:{
  sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %user 
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname Connection: Close
  sockwrite -nt $sockname $crlf $+ $crlf
  write -c attack.txt
}

on *:Sockread:attack6:{ 
  /sockread -f %rsstats
  %rsstatsa = $regsub(%rsstats,/(<[^>]+>)/g,$null,%rsstats)
  set %rsstats $replace(%rsstats,$chr(44),$null)
  write attack.txt %rsstats
}
on *:Sockclose:attack6:{
  if (does isin $read(attack.txt,17)) { notice %asker 4 %user is not found in Highscores | halt }
  set %say1 [ 7 %user 5 ]: Overall 7 $calc($read(stats.txt,18)) $+ 5 $chr(124) Att $+ 7 $calc($read(stats.txt,22)) $+ 5 $chr(124) Def $+ 7 $calc($read(stats.txt,26)) $+ 5 $chr(124) Str $+ 7 $calc($read(stats.txt,30)) $+ 5 $chr(124) HP $+ 7 $calc($read(stats.txt,34)) $+ 5 $chr(124) Range $+ 7 $calc($read(stats.txt,38)) $+ 5 $chr(124) Pray $+ 7 $calc($read(stats.txt,42)) $+ 5 $chr(124) Magic $+ 7 $calc($read(stats.txt,46)) $+ 5 $chr(124) Cooking $+ 7 $calc($read(stats.txt,50)) $+ 5 $chr(124) Woodcut $+ 7 $calc($read(stats.txt,54)) $+ 5 $chr(124) Fletch $+ 7 $calc($read(stats.txt,58)) $+ 5 $chr(124) Fishing $+ 7 $calc($read(stats.txt,62)) $+ 5 $chr(124) Firemaking $+ 7 $calc($read(stats.txt,66)) $+ 5 $chr(124) Crafting $+ 7 $calc($read(stats.txt,70)) $+ 5 $chr(124) Smithing $+ 7 $calc($read(stats.txt,74))
  set %say2 5 $chr(124) Mining $+ 7 $calc($read(stats.txt,78)) $+ 5 $chr(124) Herblore $+ 7 $calc($read(stats.txt,82)) $+ 5 $chr(124) Agility $+ 7 $calc($read(stats.txt,86)) $+ 5 $chr(124) Thieving $+ 7 $calc($read(stats.txt,90)) $+ 5 $chr(124) Slayer $+ 7 $calc($read(stats.txt,94)) $+ 5 $chr(124) Farming $+ 7 $calc($read(stats.txt,98)) $+ 5 $chr(124) Runecraft $+ 7 $calc($read(stats.txt,102))
  %x = $read(attack.txt,w,Attack)
  %linenumber1 = $readn + 1 
  if (Not isin $read(attack.txt,%linenumber1)) { notice %asker 7 $upper(%user) 5 is not 7 Ranked 5 in 7 Attack | Halt }

  set %currentlvlvar $read(attack.txt,22)
  set %nextlvlvar %currentlvlvar + 1
  set %nextlvlvar2 %nextlvlvar + 1
  set %xp1 $calc($read(attack.txt,23))
  set %xp2 $read(xptable.txt,%nextlvlvar2))
  set %nextlvlxp $calc(%xp2 - %xp1)
  set %Ogrexp $round($calc(%nextlvlxp / 240),0)
  set %Ogrexp2  $round($calc(%ogrexp * 3),0)
  set %shadowexp $round($calc(%nextlvlxp / 268 ),0)
  set %shadowexp2 $round($calc(%shadowexp * 3),0)
  set %earthexp $round($calc(%nextlvlxp / 216),0)
  set %earthexp2 $round($calc(%earthexp * 3),0)
  set %dagexp $round($calc(%nextlvlxp / 280),0)
  set %dagexp2 $round($calc(%dagexp * 3),0)
  set %axexp $round($calc(%nextlvlxp / 176),0)
  set %axexp2 $round($calc(%axexp * 3),0)
  /msg %chan ***[7 %user 5]: [7attack5] lvl: $calc($read(attack.txt,22))  $chr(124)  exp: $calc($read(attack.txt,23)) 1 $chr(40) $+ 7 $round($calc($read(attack.txt,23) / 13034431 * 100),1) $+ % 1 to 99 $+ $chr(41) 5 $chr(124) EXP to lvl %nextlvlvar $+ : %nextlvlxp $chr(40) 7 $round($calc(%xp1 / %xp2 * 100),1) $+ % 1 To %nextlvlvar $chr(41)
  /msg %chan NPCs for 7 %nextlvlxp 5 exp $+ : Ogre= 7 %Ogrexp 5 $chr(91) 7 %ogrexp2 5 $chr(93) $chr(124) Shadow Warrior= 7 %shadowexp 5 $chr(91) 7 %shadowexp2 5 $chr(93) $chr(124) Earth Warrior= 7 %earthexp 5 $chr(91) 7 %earthexp2 5 $chr(93) $chr(124) Dagannoth(74)= 7 %dagexp 5 $chr(91) 7 %dagexp2 5 $chr(93) $chr(124) Axes= 7 %axexp 5 $chr(91) 7 %axexp2 5 $chr(93)
}
on *:text:`attack:*:{
  if ($readini(defname.ini,stats,$address($nick,4)) == $null) { notice $nick No Default username set please use !defname <your default user> | halt  }
  set %user $readini(defname.ini,stats,$address($nick,4))
  set %asker $nick
  set %chan $chan
  sockopen Attack8 hiscore.runescape.com 80 
}

on *:sockopen:attack8:{
  sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %user 
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname Connection: Close
  sockwrite -nt $sockname $crlf $+ $crlf
  write -c attack.txt
}

on *:Sockread:attack8:{ 
  /sockread -f %rsstats
  %rsstatsa = $regsub(%rsstats,/(<[^>]+>)/g,$null,%rsstats)
  set %rsstats $replace(%rsstats,$chr(44),$null)
  write attack.txt %rsstats
}
on *:Sockclose:attack8:{
  if (does isin $read(attack.txt,17)) { notice %asker 4 %user is not found in Highscores | halt }
  set %say1 [ 7 %user 5 ]: Overall 7 $calc($read(stats.txt,18)) $+ 5 $chr(124) Att $+ 7 $calc($read(stats.txt,22)) $+ 5 $chr(124) Def $+ 7 $calc($read(stats.txt,26)) $+ 5 $chr(124) Str $+ 7 $calc($read(stats.txt,30)) $+ 5 $chr(124) HP $+ 7 $calc($read(stats.txt,34)) $+ 5 $chr(124) Range $+ 7 $calc($read(stats.txt,38)) $+ 5 $chr(124) Pray $+ 7 $calc($read(stats.txt,42)) $+ 5 $chr(124) Magic $+ 7 $calc($read(stats.txt,46)) $+ 5 $chr(124) Cooking $+ 7 $calc($read(stats.txt,50)) $+ 5 $chr(124) Woodcut $+ 7 $calc($read(stats.txt,54)) $+ 5 $chr(124) Fletch $+ 7 $calc($read(stats.txt,58)) $+ 5 $chr(124) Fishing $+ 7 $calc($read(stats.txt,62)) $+ 5 $chr(124) Firemaking $+ 7 $calc($read(stats.txt,66)) $+ 5 $chr(124) Crafting $+ 7 $calc($read(stats.txt,70)) $+ 5 $chr(124) Smithing $+ 7 $calc($read(stats.txt,74))
  set %say2 5 $chr(124) Mining $+ 7 $calc($read(stats.txt,78)) $+ 5 $chr(124) Herblore $+ 7 $calc($read(stats.txt,82)) $+ 5 $chr(124) Agility $+ 7 $calc($read(stats.txt,86)) $+ 5 $chr(124) Thieving $+ 7 $calc($read(stats.txt,90)) $+ 5 $chr(124) Slayer $+ 7 $calc($read(stats.txt,94)) $+ 5 $chr(124) Farming $+ 7 $calc($read(stats.txt,98)) $+ 5 $chr(124) Runecraft $+ 7 $calc($read(stats.txt,102))
  %x = $read(attack.txt,w,Attack)
  %linenumber1 = $readn + 1 
  if (Not isin $read(attack.txt,%linenumber1)) { notice %asker 7 $upper(%user) 5 is not 7 Ranked 5 in 7 Attack | Halt }

  set %currentlvlvar $read(attack.txt,22)
  set %nextlvlvar %currentlvlvar + 1
  set %nextlvlvar2 %nextlvlvar + 1
  set %xp1 $calc($read(attack.txt,23))
  set %xp2 $read(xptable.txt,%nextlvlvar2))
  set %nextlvlxp $calc(%xp2 - %xp1)
  set %Ogrexp $round($calc(%nextlvlxp / 240),0)
  set %Ogrexp2  $round($calc(%ogrexp * 3),0)
  set %shadowexp $round($calc(%nextlvlxp / 268 ),0)
  set %shadowexp2 $round($calc(%shadowexp * 3),0)
  set %earthexp $round($calc(%nextlvlxp / 216),0)
  set %earthexp2 $round($calc(%earthexp * 3),0)
  set %dagexp $round($calc(%nextlvlxp / 280),0)
  set %dagexp2 $round($calc(%dagexp * 3),0)
  set %axexp $round($calc(%nextlvlxp / 176),0)
  set %axexp2 $round($calc(%axexp * 3),0)
  notice %asker ***[7 %user 5]: [7attack5] lvl: $calc($read(attack.txt,22))  $chr(124)  exp: $calc($read(attack.txt,23)) 1 $chr(40) $+ 7 $round($calc($read(attack.txt,23) / 13034431 * 100),1) $+ % 1 to 99 $+ $chr(41) 5 $chr(124) EXP to lvl %nextlvlvar $+ : %nextlvlxp $chr(40) 7 $round($calc(%xp1 / %xp2 * 100),1) $+ % 1 To %nextlvlvar $chr(41)
  notice %asker NPCs for 7 %nextlvlxp 5 exp $+ : Ogre= 7 %Ogrexp 5 $chr(91) 7 %ogrexp2 5 $chr(93) $chr(124) Shadow Warrior= 7 %shadowexp 5 $chr(91) 7 %shadowexp2 5 $chr(93) $chr(124) Earth Warrior= 7 %earthexp 5 $chr(91) 7 %earthexp2 5 $chr(93) $chr(124) Dagannoth(74)= 7 %dagexp 5 $chr(91) 7 %dagexp2 5 $chr(93) $chr(124) Axes= 7 %axexp 5 $chr(91) 7 %axexp2 5 $chr(93)
}
on *:text:`att:*:{
  if ($readini(defname.ini,stats,$address($nick,4)) == $null) { notice $nick No Default username set please use !defname <your default user> | halt }
  set %user $readini(defname.ini,stats,$address($nick,4))
  set %asker $nick
  set %chan $chan
  sockopen Attack7 hiscore.runescape.com 80 
}

on *:sockopen:attack7:{
  sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %user 
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname Connection: Close
  sockwrite -nt $sockname $crlf $+ $crlf
  write -c attack.txt
}

on *:Sockread:attack7:{ 
  /sockread -f %rsstats
  %rsstatsa = $regsub(%rsstats,/(<[^>]+>)/g,$null,%rsstats)
  set %rsstats $replace(%rsstats,$chr(44),$null)
  write attack.txt %rsstats
}
on *:Sockclose:attack7:{
  if (does isin $read(attack.txt,17)) { notice %asker 4 %user is not found in Highscores | halt }
  set %say1 [ 7 %user 5 ]: Overall 7 $calc($read(stats.txt,18)) $+ 5 $chr(124) Att $+ 7 $calc($read(stats.txt,22)) $+ 5 $chr(124) Def $+ 7 $calc($read(stats.txt,26)) $+ 5 $chr(124) Str $+ 7 $calc($read(stats.txt,30)) $+ 5 $chr(124) HP $+ 7 $calc($read(stats.txt,34)) $+ 5 $chr(124) Range $+ 7 $calc($read(stats.txt,38)) $+ 5 $chr(124) Pray $+ 7 $calc($read(stats.txt,42)) $+ 5 $chr(124) Magic $+ 7 $calc($read(stats.txt,46)) $+ 5 $chr(124) Cooking $+ 7 $calc($read(stats.txt,50)) $+ 5 $chr(124) Woodcut $+ 7 $calc($read(stats.txt,54)) $+ 5 $chr(124) Fletch $+ 7 $calc($read(stats.txt,58)) $+ 5 $chr(124) Fishing $+ 7 $calc($read(stats.txt,62)) $+ 5 $chr(124) Firemaking $+ 7 $calc($read(stats.txt,66)) $+ 5 $chr(124) Crafting $+ 7 $calc($read(stats.txt,70)) $+ 5 $chr(124) Smithing $+ 7 $calc($read(stats.txt,74))
  set %say2 5 $chr(124) Mining $+ 7 $calc($read(stats.txt,78)) $+ 5 $chr(124) Herblore $+ 7 $calc($read(stats.txt,82)) $+ 5 $chr(124) Agility $+ 7 $calc($read(stats.txt,86)) $+ 5 $chr(124) Thieving $+ 7 $calc($read(stats.txt,90)) $+ 5 $chr(124) Slayer $+ 7 $calc($read(stats.txt,94)) $+ 5 $chr(124) Farming $+ 7 $calc($read(stats.txt,98)) $+ 5 $chr(124) Runecraft $+ 7 $calc($read(stats.txt,102))
  %x = $read(attack.txt,w,Attack)
  %linenumber1 = $readn + 1 
  if (Not isin $read(attack.txt,%linenumber1)) { notice %asker 7 $upper(%user) 5 is not 7 Ranked 5 in 7 Attack | Halt }

  set %currentlvlvar $read(attack.txt,22)
  set %nextlvlvar %currentlvlvar + 1
  set %nextlvlvar2 %nextlvlvar + 1
  set %xp1 $calc($read(attack.txt,23))
  set %xp2 $read(xptable.txt,%nextlvlvar2))
  set %nextlvlxp $calc(%xp2 - %xp1)
  set %Ogrexp $round($calc(%nextlvlxp / 240),0)
  set %Ogrexp2  $round($calc(%ogrexp * 3),0)
  set %shadowexp $round($calc(%nextlvlxp / 268 ),0)
  set %shadowexp2 $round($calc(%shadowexp * 3),0)
  set %earthexp $round($calc(%nextlvlxp / 216),0)
  set %earthexp2 $round($calc(%earthexp * 3),0)
  set %dagexp $round($calc(%nextlvlxp / 280),0)
  set %dagexp2 $round($calc(%dagexp * 3),0)
  set %axexp $round($calc(%nextlvlxp / 176),0)
  set %axexp2 $round($calc(%axexp * 3),0)
  notice %asker ***[7 %user 5]: [7attack5] lvl: $calc($read(attack.txt,22))  $chr(124)  exp: $calc($read(attack.txt,23)) 1 $chr(40) $+ 7 $round($calc($read(attack.txt,23) / 13034431 * 100),1) $+ % 1 to 99 $+ $chr(41) 5 $chr(124) EXP to lvl %nextlvlvar $+ : %nextlvlxp $chr(40) 7 $round($calc(%xp1 / %xp2 * 100),1) $+ % 1 To %nextlvlvar $chr(41)
  notice %asker NPCs for 7 %nextlvlxp 5 exp $+ : Ogre= 7 %Ogrexp 5 $chr(91) 7 %ogrexp2 5 $chr(93) $chr(124) Shadow Warrior= 7 %shadowexp 5 $chr(91) 7 %shadowexp2 5 $chr(93) $chr(124) Earth Warrior= 7 %earthexp 5 $chr(91) 7 %earthexp2 5 $chr(93) $chr(124) Dagannoth(74)= 7 %dagexp 5 $chr(91) 7 %dagexp2 5 $chr(93) $chr(124) Axes= 7 %axexp 5 $chr(91) 7 %axexp2 5 $chr(93)
}
on *:text:`defence *:*:{
  set %user $2
  set %asker $nick
  set %chan $chan
  sockopen str1 hiscore.runescape.com 80 
}

on *:sockopen:str1:{
  sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %user 
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname Connection: Close
  sockwrite -nt $sockname $crlf $+ $crlf
  write -c str.txt
}

on *:Sockread:str1:{ 
  /sockread -f %rsstats
  %rsstatsa = $regsub(%rsstats,/(<[^>]+>)/g,$null,%rsstats)
  set %rsstats $replace(%rsstats,$chr(44),$null)
  write str.txt %rsstats
}
on *:Sockclose:str1:{
  if (does isin $read(str.txt,17)) { notice %asker 4 %user is not found in Highscores | halt }
  set %say1 [ 7 %user 5 ]: Overall 7 $calc($read(stats.txt,18)) $+ 5 $chr(124) Att $+ 7 $calc($read(stats.txt,22)) $+ 5 $chr(124) Def $+ 7 $calc($read(stats.txt,26)) $+ 5 $chr(124) Str $+ 7 $calc($read(stats.txt,30)) $+ 5 $chr(124) HP $+ 7 $calc($read(stats.txt,34)) $+ 5 $chr(124) Range $+ 7 $calc($read(stats.txt,38)) $+ 5 $chr(124) Pray $+ 7 $calc($read(stats.txt,42)) $+ 5 $chr(124) Magic $+ 7 $calc($read(stats.txt,46)) $+ 5 $chr(124) Cooking $+ 7 $calc($read(stats.txt,50)) $+ 5 $chr(124) Woodcut $+ 7 $calc($read(stats.txt,54)) $+ 5 $chr(124) Fletch $+ 7 $calc($read(stats.txt,58)) $+ 5 $chr(124) Fishing $+ 7 $calc($read(stats.txt,62)) $+ 5 $chr(124) Firemaking $+ 7 $calc($read(stats.txt,66)) $+ 5 $chr(124) Crafting $+ 7 $calc($read(stats.txt,70)) $+ 5 $chr(124) Smithing $+ 7 $calc($read(stats.txt,74))
  set %say2 5 $chr(124) Mining $+ 7 $calc($read(stats.txt,78)) $+ 5 $chr(124) Herblore $+ 7 $calc($read(stats.txt,82)) $+ 5 $chr(124) Agility $+ 7 $calc($read(stats.txt,86)) $+ 5 $chr(124) Thieving $+ 7 $calc($read(stats.txt,90)) $+ 5 $chr(124) Slayer $+ 7 $calc($read(stats.txt,94)) $+ 5 $chr(124) Farming $+ 7 $calc($read(stats.txt,98)) $+ 5 $chr(124) Runecraft $+ 7 $calc($read(stats.txt,102))
  %x = $read(str.txt,w,Defence)
  %linenumber1 = $readn + 1 
  if (Not isin $read(str.txt,%linenumber1)) { notice %asker 7 $upper(%user) 5 is not 7 Ranked 5 in 7 Defence | Halt }

  set %currentlvlvar $read(str.txt,26)
  set %nextlvlvar %currentlvlvar + 1
  set %nextlvlvar2 %nextlvlvar + 1
  set %xp1 $read(str.txt,27)
  set %xp2 $read(xptable.txt,%nextlvlvar2))
  set %nextlvlxp $calc(%xp2 - %xp1)
  set %Ogrexp $round($calc(%nextlvlxp / 240),0)
  set %Ogrexp2  $round($calc(%ogrexp * 3),0)
  set %shadowexp $round($calc(%nextlvlxp / 268 ),0)
  set %shadowexp2 $round($calc(%shadowexp * 3),0)
  set %earthexp $round($calc(%nextlvlxp / 216),0)
  set %earthexp2 $round($calc(%earthexp * 3),0)
  set %dagexp $round($calc(%nextlvlxp / 280),0)
  set %dagexp2 $round($calc(%dagexp * 3),0)
  set %axexp $round($calc(%nextlvlxp / 176),0)
  set %axexp2 $round($calc(%axexp * 3),0)
  notice %asker ***[7 %user 5]: [7Defence5] lvl: $calc($read(str.txt,26)))  $chr(124)  exp: $calc($read(str.txt,27)) 1 $chr(40) $+ 7 $round($calc($read(str.txt,27) / 13034431 * 100),1) $+ % 1 to 99 $+ $chr(41) 5 $chr(124) EXP to lvl %nextlvlvar $+ : %nextlvlxp $chr(40) 7 $round($calc(%xp1 / %xp2 * 100),1) $+ % 1 To %nextlvlvar $chr(41)
  notice %asker NPCs for 7 %nextlvlxp 5 exp $+ : Ogre= 7 %Ogrexp 5 $chr(91) 7 %ogrexp2 5 $chr(93) $chr(124) Shadow Warrior= 7 %shadowexp 5 $chr(91) 7 %shadowexp2 5 $chr(93) $chr(124) Earth Warrior= 7 %earthexp 5 $chr(91) 7 %earthexp2 5 $chr(93) $chr(124) Dagannoth(74)= 7 %dagexp 5 $chr(91) 7 %dagexp2 5 $chr(93) $chr(124) Axes= 7 %axexp 5 $chr(91) 7 %axexp2 5 $chr(93)
}
on *:text:`def *:*:{
  set %user $2
  set %asker $nick
  set %chan $chan
  sockopen str2 hiscore.runescape.com 80 
}

on *:sockopen:str2:{
  sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %user 
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname Connection: Close
  sockwrite -nt $sockname $crlf $+ $crlf
  write -c str.txt
}

on *:Sockread:str2:{ 
  /sockread -f %rsstats
  %rsstatsa = $regsub(%rsstats,/(<[^>]+>)/g,$null,%rsstats)
  set %rsstats $replace(%rsstats,$chr(44),$null)
  write str.txt %rsstats
}
on *:Sockclose:str2:{
  if (does isin $read(str.txt,17)) { notice %asker 4 %user is not found in Highscores | halt }
  set %say1 [ 7 %user 5 ]: Overall 7 $calc($read(stats.txt,18)) $+ 5 $chr(124) Att $+ 7 $calc($read(stats.txt,22)) $+ 5 $chr(124) Def $+ 7 $calc($read(stats.txt,26)) $+ 5 $chr(124) Str $+ 7 $calc($read(stats.txt,30)) $+ 5 $chr(124) HP $+ 7 $calc($read(stats.txt,34)) $+ 5 $chr(124) Range $+ 7 $calc($read(stats.txt,38)) $+ 5 $chr(124) Pray $+ 7 $calc($read(stats.txt,42)) $+ 5 $chr(124) Magic $+ 7 $calc($read(stats.txt,46)) $+ 5 $chr(124) Cooking $+ 7 $calc($read(stats.txt,50)) $+ 5 $chr(124) Woodcut $+ 7 $calc($read(stats.txt,54)) $+ 5 $chr(124) Fletch $+ 7 $calc($read(stats.txt,58)) $+ 5 $chr(124) Fishing $+ 7 $calc($read(stats.txt,62)) $+ 5 $chr(124) Firemaking $+ 7 $calc($read(stats.txt,66)) $+ 5 $chr(124) Crafting $+ 7 $calc($read(stats.txt,70)) $+ 5 $chr(124) Smithing $+ 7 $calc($read(stats.txt,74))
  set %say2 5 $chr(124) Mining $+ 7 $calc($read(stats.txt,78)) $+ 5 $chr(124) Herblore $+ 7 $calc($read(stats.txt,82)) $+ 5 $chr(124) Agility $+ 7 $calc($read(stats.txt,86)) $+ 5 $chr(124) Thieving $+ 7 $calc($read(stats.txt,90)) $+ 5 $chr(124) Slayer $+ 7 $calc($read(stats.txt,94)) $+ 5 $chr(124) Farming $+ 7 $calc($read(stats.txt,98)) $+ 5 $chr(124) Runecraft $+ 7 $calc($read(stats.txt,102))
  %x = $read(str.txt,w,Defence)
  %linenumber1 = $readn + 1 
  if (Not isin $read(str.txt,%linenumber1)) { notice %asker 7 $upper(%user) 5 is not 7 Ranked 5 in 7 Defence | Halt }


  set %currentlvlvar $read(str.txt,26))
  set %nextlvlvar %currentlvlvar + 1
  set %nextlvlvar2 %nextlvlvar + 1
  set %xp1 $calc($read(str.txt,27))
  set %xp2 $read(xptable.txt,%nextlvlvar2))
  set %nextlvlxp $calc(%xp2 - %xp1)
  set %Ogrexp $round($calc(%nextlvlxp / 240),0)
  set %Ogrexp2  $round($calc(%ogrexp * 3),0)
  set %shadowexp $round($calc(%nextlvlxp / 268 ),0)
  set %shadowexp2 $round($calc(%shadowexp * 3),0)
  set %earthexp $round($calc(%nextlvlxp / 216),0)
  set %earthexp2 $round($calc(%earthexp * 3),0)
  set %dagexp $round($calc(%nextlvlxp / 280),0)
  set %dagexp2 $round($calc(%dagexp * 3),0)
  set %axexp $round($calc(%nextlvlxp / 176),0)
  set %axexp2 $round($calc(%axexp * 3),0)
  notice %asker ***[7 %user 5]: [7Defence5] lvl: $calc($read(str.txt,26)))  $chr(124)  exp: $calc($read(str.txt,27)) 1 $chr(40) $+ 7 $round($calc($read(str.txt,27) / 13034431 * 100),1) $+ % 1 to 99 $+ $chr(41) 5 $chr(124) EXP to lvl %nextlvlvar $+ : %nextlvlxp $chr(40) 7 $round($calc(%xp1 / %xp2 * 100),1) $+ % 1 To %nextlvlvar $chr(41)
  notice %asker NPCs for 7 %nextlvlxp 5 exp $+ : Ogre= 7 %Ogrexp 5 $chr(91) 7 %ogrexp2 5 $chr(93) $chr(124) Shadow Warrior= 7 %shadowexp 5 $chr(91) 7 %shadowexp2 5 $chr(93) $chr(124) Earth Warrior= 7 %earthexp 5 $chr(91) 7 %earthexp2 5 $chr(93) $chr(124) Dagannoth(74)= 7 %dagexp 5 $chr(91) 7 %dagexp2 5 $chr(93) $chr(124) Axes= 7 %axexp 5 $chr(91) 7 %axexp2 5 $chr(93)
}
on *:text:``def:*:{
  if ($readini(defname.ini,stats,$address($nick,4)) == $null) { notice $nick No Default username set please use !defname <your default user> | halt  }
  set %user $readini(defname.ini,stats,$address($nick,4))
  set %asker $nick
  set %chan $chan
  sockopen str22 hiscore.runescape.com 80 
}

on *:sockopen:str22:{
  sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %user 
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname Connection: Close
  sockwrite -nt $sockname $crlf $+ $crlf
  write -c str.txt
}

on *:Sockread:str22:{ 
  /sockread -f %rsstats
  %rsstatsa = $regsub(%rsstats,/(<[^>]+>)/g,$null,%rsstats)
  set %rsstats $replace(%rsstats,$chr(44),$null)
  write str.txt %rsstats
}
on *:Sockclose:str22:{
  if (does isin $read(str.txt,17)) { notice %asker 4 %user is not found in Highscores | halt }
  set %say1 [ 7 %user 5 ]: Overall 7 $calc($read(stats.txt,18)) $+ 5 $chr(124) Att $+ 7 $calc($read(stats.txt,22)) $+ 5 $chr(124) Def $+ 7 $calc($read(stats.txt,26)) $+ 5 $chr(124) Str $+ 7 $calc($read(stats.txt,30)) $+ 5 $chr(124) HP $+ 7 $calc($read(stats.txt,34)) $+ 5 $chr(124) Range $+ 7 $calc($read(stats.txt,38)) $+ 5 $chr(124) Pray $+ 7 $calc($read(stats.txt,42)) $+ 5 $chr(124) Magic $+ 7 $calc($read(stats.txt,46)) $+ 5 $chr(124) Cooking $+ 7 $calc($read(stats.txt,50)) $+ 5 $chr(124) Woodcut $+ 7 $calc($read(stats.txt,54)) $+ 5 $chr(124) Fletch $+ 7 $calc($read(stats.txt,58)) $+ 5 $chr(124) Fishing $+ 7 $calc($read(stats.txt,62)) $+ 5 $chr(124) Firemaking $+ 7 $calc($read(stats.txt,66)) $+ 5 $chr(124) Crafting $+ 7 $calc($read(stats.txt,70)) $+ 5 $chr(124) Smithing $+ 7 $calc($read(stats.txt,74))
  set %say2 5 $chr(124) Mining $+ 7 $calc($read(stats.txt,78)) $+ 5 $chr(124) Herblore $+ 7 $calc($read(stats.txt,82)) $+ 5 $chr(124) Agility $+ 7 $calc($read(stats.txt,86)) $+ 5 $chr(124) Thieving $+ 7 $calc($read(stats.txt,90)) $+ 5 $chr(124) Slayer $+ 7 $calc($read(stats.txt,94)) $+ 5 $chr(124) Farming $+ 7 $calc($read(stats.txt,98)) $+ 5 $chr(124) Runecraft $+ 7 $calc($read(stats.txt,102))
  %x = $read(str.txt,w,Defence)
  %linenumber1 = $readn + 1 
  if (Not isin $read(str.txt,%linenumber1)) { notice %asker 7 $upper(%user) 5 is not 7 Ranked 5 in 7 Defence | Halt }


  set %currentlvlvar $read(str.txt,26))
  set %nextlvlvar %currentlvlvar + 1
  set %nextlvlvar2 %nextlvlvar + 1
  set %xp1 $calc($read(str.txt,27))
  set %xp2 $read(xptable.txt,%nextlvlvar2))
  set %nextlvlxp $calc(%xp2 - %xp1)
  set %Ogrexp $round($calc(%nextlvlxp / 240),0)
  set %Ogrexp2  $round($calc(%ogrexp * 3),0)
  set %shadowexp $round($calc(%nextlvlxp / 268 ),0)
  set %shadowexp2 $round($calc(%shadowexp * 3),0)
  set %earthexp $round($calc(%nextlvlxp / 216),0)
  set %earthexp2 $round($calc(%earthexp * 3),0)
  set %dagexp $round($calc(%nextlvlxp / 280),0)
  set %dagexp2 $round($calc(%dagexp * 3),0)
  set %axexp $round($calc(%nextlvlxp / 176),0)
  set %axexp2 $round($calc(%axexp * 3),0)
  msg %chan ***[7 %user 5]: [7Defence5]lvl: $calc($read(str.txt,26)))  $chr(124)  exp: $calc($read(str.txt,27)) 1 $chr(40) $+ 7 $round($calc($read(str.txt,27) / 13034431 * 100),1) $+ % 1 to 99 $+ $chr(41) 5 $chr(124) EXP to lvl %nextlvlvar $+ : %nextlvlxp $chr(40) 7 $round($calc(%xp1 / %xp2 * 100),1) $+ % 1 To %nextlvlvar $chr(41)
  msg %chan NPCs for 7 %nextlvlxp 5 exp $+ : Ogre= 7 %Ogrexp 5 $chr(91) 7 %ogrexp2 5 $chr(93) $chr(124) Shadow Warrior= 7 %shadowexp 5 $chr(91) 7 %shadowexp2 5 $chr(93) $chr(124) Earth Warrior= 7 %earthexp 5 $chr(91) 7 %earthexp2 5 $chr(93) $chr(124) Dagannoth(74)= 7 %dagexp 5 $chr(91) 7 %dagexp2 5 $chr(93) $chr(124) Axes= 7 %axexp 5 $chr(91) 7 %axexp2 5 $chr(93)

}
on *:text:``defence:*:{
  if ($readini(defname.ini,stats,$address($nick,4)) == $null) { notice $nick No Default username set please use !defname <your default user> | halt  }
  set %user $readini(defname.ini,stats,$address($nick,4))
  set %asker $nick
  set %chan $chan
  sockopen str3 hiscore.runescape.com 80 
}

on *:sockopen:str3:{
  sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %user 
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname Connection: Close
  sockwrite -nt $sockname $crlf $+ $crlf
  write -c str.txt
}

on *:Sockread:str3:{ 
  /sockread -f %rsstats
  %rsstatsa = $regsub(%rsstats,/(<[^>]+>)/g,$null,%rsstats)
  set %rsstats $replace(%rsstats,$chr(44),$null)
  write str.txt %rsstats
}
on *:Sockclose:str3:{
  if (does isin $read(str.txt,17)) { notice %asker 4 %user is not found in Highscores | halt }
  set %say1 [ 7 %user 5 ]: Overall 7 $calc($read(stats.txt,18)) $+ 5 $chr(124) Att $+ 7 $calc($read(stats.txt,22)) $+ 5 $chr(124) Def $+ 7 $calc($read(stats.txt,26)) $+ 5 $chr(124) Str $+ 7 $calc($read(stats.txt,30)) $+ 5 $chr(124) HP $+ 7 $calc($read(stats.txt,34)) $+ 5 $chr(124) Range $+ 7 $calc($read(stats.txt,38)) $+ 5 $chr(124) Pray $+ 7 $calc($read(stats.txt,42)) $+ 5 $chr(124) Magic $+ 7 $calc($read(stats.txt,46)) $+ 5 $chr(124) Cooking $+ 7 $calc($read(stats.txt,50)) $+ 5 $chr(124) Woodcut $+ 7 $calc($read(stats.txt,54)) $+ 5 $chr(124) Fletch $+ 7 $calc($read(stats.txt,58)) $+ 5 $chr(124) Fishing $+ 7 $calc($read(stats.txt,62)) $+ 5 $chr(124) Firemaking $+ 7 $calc($read(stats.txt,66)) $+ 5 $chr(124) Crafting $+ 7 $calc($read(stats.txt,70)) $+ 5 $chr(124) Smithing $+ 7 $calc($read(stats.txt,74))
  set %say2 5 $chr(124) Mining $+ 7 $calc($read(stats.txt,78)) $+ 5 $chr(124) Herblore $+ 7 $calc($read(stats.txt,82)) $+ 5 $chr(124) Agility $+ 7 $calc($read(stats.txt,86)) $+ 5 $chr(124) Thieving $+ 7 $calc($read(stats.txt,90)) $+ 5 $chr(124) Slayer $+ 7 $calc($read(stats.txt,94)) $+ 5 $chr(124) Farming $+ 7 $calc($read(stats.txt,98)) $+ 5 $chr(124) Runecraft $+ 7 $calc($read(stats.txt,102))
  %x = $read(str.txt,w,Defence)
  %linenumber1 = $readn + 1 
  if (Not isin $read(str.txt,%linenumber1)) { notice %asker 7 $upper(%user) 5 is not 7 Ranked 5 in 7 Defence | Halt }


  set %currentlvlvar $read(str.txt,26))
  set %nextlvlvar %currentlvlvar + 1
  set %nextlvlvar2 %nextlvlvar + 1
  set %xp1 $calc($read(str.txt,27))
  set %xp2 $read(xptable.txt,%nextlvlvar2))
  set %nextlvlxp $calc(%xp2 - %xp1)
  set %Ogrexp $round($calc(%nextlvlxp / 240),0)
  set %Ogrexp2  $round($calc(%ogrexp * 3),0)
  set %shadowexp $round($calc(%nextlvlxp / 268 ),0)
  set %shadowexp2 $round($calc(%shadowexp * 3),0)
  set %earthexp $round($calc(%nextlvlxp / 216),0)
  set %earthexp2 $round($calc(%earthexp * 3),0)
  set %dagexp $round($calc(%nextlvlxp / 280),0)
  set %dagexp2 $round($calc(%dagexp * 3),0)
  set %axexp $round($calc(%nextlvlxp / 176),0)
  set %axexp2 $round($calc(%axexp * 3),0)
  /msg %chan ***[7 %user 5]: [7Defence5]lvl: $calc($read(str.txt,26)))  $chr(124)  exp: $calc($read(str.txt,27)) 1 $chr(40) $+ 7 $round($calc($read(str.txt,27) / 13034431 * 100),1) $+ % 1 to 99 $+ $chr(41) 5 $chr(124) EXP to lvl %nextlvlvar $+ : %nextlvlxp $chr(40) 7 $round($calc(%xp1 / %xp2 * 100),1) $+ % 1 To %nextlvlvar $chr(41)
  /msg %chan NPCs for 7 %nextlvlxp 5 exp $+ : Ogre= 7 %Ogrexp 5 $chr(91) 7 %ogrexp2 5 $chr(93) $chr(124) Shadow Warrior= 7 %shadowexp 5 $chr(91) 7 %shadowexp2 5 $chr(93) $chr(124) Earth Warrior= 7 %earthexp 5 $chr(91) 7 %earthexp2 5 $chr(93) $chr(124) Dagannoth(74)= 7 %dagexp 5 $chr(91) 7 %dagexp2 5 $chr(93) $chr(124) Axes= 7 %axexp 5 $chr(91) 7 %axexp2 5 $chr(93)
}
on *:text:``defence *:*:{
  set %user $2
  set %asker $nick
  set %chan $chan
  sockopen str4 hiscore.runescape.com 80 
}

on *:sockopen:str4:{
  sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %user 
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname Connection: Close
  sockwrite -nt $sockname $crlf $+ $crlf
  write -c str.txt
}

on *:Sockread:str4:{ 
  /sockread -f %rsstats
  %rsstatsa = $regsub(%rsstats,/(<[^>]+>)/g,$null,%rsstats)
  set %rsstats $replace(%rsstats,$chr(44),$null)
  write str.txt %rsstats
}
on *:Sockclose:str4:{
  if (does isin $read(str.txt,17)) { notice %asker 4 %user is not found in Highscores | halt }
  set %say1 [ 7 %user 5 ]: Overall 7 $calc($read(stats.txt,18)) $+ 5 $chr(124) Att $+ 7 $calc($read(stats.txt,22)) $+ 5 $chr(124) Def $+ 7 $calc($read(stats.txt,26)) $+ 5 $chr(124) Str $+ 7 $calc($read(stats.txt,30)) $+ 5 $chr(124) HP $+ 7 $calc($read(stats.txt,34)) $+ 5 $chr(124) Range $+ 7 $calc($read(stats.txt,38)) $+ 5 $chr(124) Pray $+ 7 $calc($read(stats.txt,42)) $+ 5 $chr(124) Magic $+ 7 $calc($read(stats.txt,46)) $+ 5 $chr(124) Cooking $+ 7 $calc($read(stats.txt,50)) $+ 5 $chr(124) Woodcut $+ 7 $calc($read(stats.txt,54)) $+ 5 $chr(124) Fletch $+ 7 $calc($read(stats.txt,58)) $+ 5 $chr(124) Fishing $+ 7 $calc($read(stats.txt,62)) $+ 5 $chr(124) Firemaking $+ 7 $calc($read(stats.txt,66)) $+ 5 $chr(124) Crafting $+ 7 $calc($read(stats.txt,70)) $+ 5 $chr(124) Smithing $+ 7 $calc($read(stats.txt,74))
  set %say2 5 $chr(124) Mining $+ 7 $calc($read(stats.txt,78)) $+ 5 $chr(124) Herblore $+ 7 $calc($read(stats.txt,82)) $+ 5 $chr(124) Agility $+ 7 $calc($read(stats.txt,86)) $+ 5 $chr(124) Thieving $+ 7 $calc($read(stats.txt,90)) $+ 5 $chr(124) Slayer $+ 7 $calc($read(stats.txt,94)) $+ 5 $chr(124) Farming $+ 7 $calc($read(stats.txt,98)) $+ 5 $chr(124) Runecraft $+ 7 $calc($read(stats.txt,102))
  %x = $read(str.txt,w,Defence)
  %linenumber1 = $readn + 1 
  if (Not isin $read(str.txt,%linenumber1)) { notice %asker 7 $upper(%user) 5 is not 7 Ranked 5 in 7 Defence | Halt }


  set %currentlvlvar $read(str.txt,26))
  set %nextlvlvar %currentlvlvar + 1
  set %nextlvlvar2 %nextlvlvar + 1
  set %xp1 $calc($read(str.txt,27))
  set %xp2 $read(xptable.txt,%nextlvlvar2))
  set %nextlvlxp $calc(%xp2 - %xp1)
  set %Ogrexp $round($calc(%nextlvlxp / 240),0)
  set %Ogrexp2  $round($calc(%ogrexp * 3),0)
  set %shadowexp $round($calc(%nextlvlxp / 268 ),0)
  set %shadowexp2 $round($calc(%shadowexp * 3),0)
  set %earthexp $round($calc(%nextlvlxp / 216),0)
  set %earthexp2 $round($calc(%earthexp * 3),0)
  set %dagexp $round($calc(%nextlvlxp / 280),0)
  set %dagexp2 $round($calc(%dagexp * 3),0)
  set %axexp $round($calc(%nextlvlxp / 176),0)
  set %axexp2 $round($calc(%axexp * 3),0)
  /msg %chan ***[7 %user 5]: [7Defence5]lvl: $calc($read(str.txt,26)))  $chr(124)  exp: $calc($read(str.txt,27)) 1 $chr(40) $+ 7 $round($calc($read(str.txt,27) / 13034431 * 100),1) $+ % 1 to 99 $+ $chr(41) 5 $chr(124) EXP to lvl %nextlvlvar $+ : %nextlvlxp $chr(40) 7 $round($calc(%xp1 / %xp2 * 100),1) $+ % 1 To %nextlvlvar $chr(41)
  /msg %chan NPCs for 7 %nextlvlxp 5 exp $+ : Ogre= 7 %Ogrexp 5 $chr(91) 7 %ogrexp2 5 $chr(93) $chr(124) Shadow Warrior= 7 %shadowexp 5 $chr(91) 7 %shadowexp2 5 $chr(93) $chr(124) Earth Warrior= 7 %earthexp 5 $chr(91) 7 %earthexp2 5 $chr(93) $chr(124) Dagannoth(74)= 7 %dagexp 5 $chr(91) 7 %dagexp2 5 $chr(93) $chr(124) Axes= 7 %axexp 5 $chr(91) 7 %axexp2 5 $chr(93)
}
on *:text:``def *:*:{
  set %user $2
  set %asker $nick
  set %chan $chan
  sockopen str5 hiscore.runescape.com 80 
}

on *:sockopen:str5:{
  sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %user 
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname Connection: Close
  sockwrite -nt $sockname $crlf $+ $crlf
  write -c str.txt
}

on *:Sockread:str5:{ 
  /sockread -f %rsstats
  %rsstatsa = $regsub(%rsstats,/(<[^>]+>)/g,$null,%rsstats)
  set %rsstats $replace(%rsstats,$chr(44),$null)
  write str.txt %rsstats
}
on *:Sockclose:str5:{
  if (does isin $read(str.txt,17)) { notice %asker 4 %user is not found in Highscores | halt }
  set %say1 [ 7 %user 5 ]: Overall 7 $calc($read(stats.txt,18)) $+ 5 $chr(124) Att $+ 7 $calc($read(stats.txt,22)) $+ 5 $chr(124) Def $+ 7 $calc($read(stats.txt,26)) $+ 5 $chr(124) Str $+ 7 $calc($read(stats.txt,30)) $+ 5 $chr(124) HP $+ 7 $calc($read(stats.txt,34)) $+ 5 $chr(124) Range $+ 7 $calc($read(stats.txt,38)) $+ 5 $chr(124) Pray $+ 7 $calc($read(stats.txt,42)) $+ 5 $chr(124) Magic $+ 7 $calc($read(stats.txt,46)) $+ 5 $chr(124) Cooking $+ 7 $calc($read(stats.txt,50)) $+ 5 $chr(124) Woodcut $+ 7 $calc($read(stats.txt,54)) $+ 5 $chr(124) Fletch $+ 7 $calc($read(stats.txt,58)) $+ 5 $chr(124) Fishing $+ 7 $calc($read(stats.txt,62)) $+ 5 $chr(124) Firemaking $+ 7 $calc($read(stats.txt,66)) $+ 5 $chr(124) Crafting $+ 7 $calc($read(stats.txt,70)) $+ 5 $chr(124) Smithing $+ 7 $calc($read(stats.txt,74))
  set %say2 5 $chr(124) Mining $+ 7 $calc($read(stats.txt,78)) $+ 5 $chr(124) Herblore $+ 7 $calc($read(stats.txt,82)) $+ 5 $chr(124) Agility $+ 7 $calc($read(stats.txt,86)) $+ 5 $chr(124) Thieving $+ 7 $calc($read(stats.txt,90)) $+ 5 $chr(124) Slayer $+ 7 $calc($read(stats.txt,94)) $+ 5 $chr(124) Farming $+ 7 $calc($read(stats.txt,98)) $+ 5 $chr(124) Runecraft $+ 7 $calc($read(stats.txt,102))
  %x = $read(str.txt,w,Defence)
  %linenumber1 = $readn + 1 
  if (Not isin $read(str.txt,%linenumber1)) { notice %asker 7 $upper(%user) 5 is not 7 Ranked 5 in 7 Defence | Halt }


  set %currentlvlvar $read(str.txt,26))
  set %nextlvlvar %currentlvlvar + 1
  set %nextlvlvar2 %nextlvlvar + 1
  set %xp1 $calc($read(str.txt,27))
  set %xp2 $read(xptable.txt,%nextlvlvar2))
  set %nextlvlxp $calc(%xp2 - %xp1)
  set %Ogrexp $round($calc(%nextlvlxp / 240),0)
  set %Ogrexp2  $round($calc(%ogrexp * 3),0)
  set %shadowexp $round($calc(%nextlvlxp / 268 ),0)
  set %shadowexp2 $round($calc(%shadowexp * 3),0)
  set %earthexp $round($calc(%nextlvlxp / 216),0)
  set %earthexp2 $round($calc(%earthexp * 3),0)
  set %dagexp $round($calc(%nextlvlxp / 280),0)
  set %dagexp2 $round($calc(%dagexp * 3),0)
  set %axexp $round($calc(%nextlvlxp / 176),0)
  set %axexp2 $round($calc(%axexp * 3),0)
  /msg %chan ***[7 %user 5]: [7Defence5]lvl: $calc($read(str.txt,26)))  $chr(124)  exp: $calc($read(str.txt,27)) 1 $chr(40) $+ 7 $round($calc($read(str.txt,27) / 13034431 * 100),1) $+ % 1 to 99 $+ $chr(41) 5 $chr(124) EXP to lvl %nextlvlvar $+ : %nextlvlxp $chr(40) 7 $round($calc(%xp1 / %xp2 * 100),1) $+ % 1 To %nextlvlvar $chr(41)
  /msg %chan NPCs for 7 %nextlvlxp 5 exp $+ : Ogre= 7 %Ogrexp 5 $chr(91) 7 %ogrexp2 5 $chr(93) $chr(124) Shadow Warrior= 7 %shadowexp 5 $chr(91) 7 %shadowexp2 5 $chr(93) $chr(124) Earth Warrior= 7 %earthexp 5 $chr(91) 7 %earthexp2 5 $chr(93) $chr(124) Dagannoth(74)= 7 %dagexp 5 $chr(91) 7 %dagexp2 5 $chr(93) $chr(124) Axes= 7 %axexp 5 $chr(91) 7 %axexp2 5 $chr(93)
}
on *:text:`defence:*:{
  if ($readini(defname.ini,stats,$address($nick,4)) == $null) { notice $nick No Default username set please use !defname <your default user>  }
  set %user $readini(defname.ini,stats,$address($nick,4))
  set %asker $nick
  set %chan $chan
  sockopen str6 hiscore.runescape.com 80 
}

on *:sockopen:str6:{
  sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %user 
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname Connection: Close
  sockwrite -nt $sockname $crlf $+ $crlf
  write -c str.txt
}

on *:Sockread:str6:{ 
  /sockread -f %rsstats
  %rsstatsa = $regsub(%rsstats,/(<[^>]+>)/g,$null,%rsstats)
  set %rsstats $replace(%rsstats,$chr(44),$null)
  write str.txt %rsstats
}
on *:Sockclose:str6:{
  if (does isin $read(str.txt,17)) { notice %asker 4 %user is not found in Highscores | halt }
  set %say1 [ 7 %user 5 ]: Overall 7 $calc($read(stats.txt,18)) $+ 5 $chr(124) Att $+ 7 $calc($read(stats.txt,22)) $+ 5 $chr(124) Def $+ 7 $calc($read(stats.txt,26)) $+ 5 $chr(124) Str $+ 7 $calc($read(stats.txt,30)) $+ 5 $chr(124) HP $+ 7 $calc($read(stats.txt,34)) $+ 5 $chr(124) Range $+ 7 $calc($read(stats.txt,38)) $+ 5 $chr(124) Pray $+ 7 $calc($read(stats.txt,42)) $+ 5 $chr(124) Magic $+ 7 $calc($read(stats.txt,46)) $+ 5 $chr(124) Cooking $+ 7 $calc($read(stats.txt,50)) $+ 5 $chr(124) Woodcut $+ 7 $calc($read(stats.txt,54)) $+ 5 $chr(124) Fletch $+ 7 $calc($read(stats.txt,58)) $+ 5 $chr(124) Fishing $+ 7 $calc($read(stats.txt,62)) $+ 5 $chr(124) Firemaking $+ 7 $calc($read(stats.txt,66)) $+ 5 $chr(124) Crafting $+ 7 $calc($read(stats.txt,70)) $+ 5 $chr(124) Smithing $+ 7 $calc($read(stats.txt,74))
  set %say2 5 $chr(124) Mining $+ 7 $calc($read(stats.txt,78)) $+ 5 $chr(124) Herblore $+ 7 $calc($read(stats.txt,82)) $+ 5 $chr(124) Agility $+ 7 $calc($read(stats.txt,86)) $+ 5 $chr(124) Thieving $+ 7 $calc($read(stats.txt,90)) $+ 5 $chr(124) Slayer $+ 7 $calc($read(stats.txt,94)) $+ 5 $chr(124) Farming $+ 7 $calc($read(stats.txt,98)) $+ 5 $chr(124) Runecraft $+ 7 $calc($read(stats.txt,102))
  %x = $read(str.txt,w,Defence)
  %linenumber1 = $readn + 1 
  if (Not isin $read(str.txt,%linenumber1)) { notice %asker 7 $upper(%user) 5 is not 7 Ranked 5 in 7 Defence | Halt }


  set %currentlvlvar $read(str.txt,26))
  set %nextlvlvar %currentlvlvar + 1
  set %nextlvlvar2 %nextlvlvar + 1
  set %xp1 $calc($read(str.txt,27))
  set %xp2 $read(xptable.txt,%nextlvlvar2))
  set %nextlvlxp $calc(%xp2 - %xp1)
  set %Ogrexp $round($calc(%nextlvlxp / 240),0)
  set %Ogrexp2  $round($calc(%ogrexp * 3),0)
  set %shadowexp $round($calc(%nextlvlxp / 268 ),0)
  set %shadowexp2 $round($calc(%shadowexp * 3),0)
  set %earthexp $round($calc(%nextlvlxp / 216),0)
  set %earthexp2 $round($calc(%earthexp * 3),0)
  set %dagexp $round($calc(%nextlvlxp / 280),0)
  set %dagexp2 $round($calc(%dagexp * 3),0)
  set %axexp $round($calc(%nextlvlxp / 176),0)
  set %axexp2 $round($calc(%axexp * 3),0)
  notice %asker ***[7 %user 5]: [7Defence5]lvl: $calc($read(str.txt,26)))  $chr(124)  exp: $calc($read(str.txt,27)) 1 $chr(40) $+ 7 $round($calc($read(str.txt,27) / 13034431 * 100),1) $+ % 1 to 99 $+ $chr(41) 5 $chr(124) EXP to lvl %nextlvlvar $+ : %nextlvlxp $chr(40) 7 $round($calc(%xp1 / %xp2 * 100),1) $+ % 1 To %nextlvlvar $chr(41)
  notice %asker NPCs for 7 %nextlvlxp 5 exp $+ : Ogre= 7 %Ogrexp 5 $chr(91) 7 %ogrexp2 5 $chr(93) $chr(124) Shadow Warrior= 7 %shadowexp 5 $chr(91) 7 %shadowexp2 5 $chr(93) $chr(124) Earth Warrior= 7 %earthexp 5 $chr(91) 7 %earthexp2 5 $chr(93) $chr(124) Dagannoth(74)= 7 %dagexp 5 $chr(91) 7 %dagexp2 5 $chr(93) $chr(124) Axes= 7 %axexp 5 $chr(91) 7 %axexp2 5 $chr(93)
}
on *:text:`def:*:{
  if ($readini(defname.ini,stats,$address($nick,4)) == $null) { notice $nick No Default username set please use !defname <your default user> | halt  }
  set %user $readini(defname.ini,stats,$address($nick,4))
  set %asker $nick
  set %chan $chan
  sockopen str7 hiscore.runescape.com 80 
}

on *:sockopen:str7:{
  sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %user 
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname Connection: Close
  sockwrite -nt $sockname $crlf $+ $crlf
  write -c str.txt
}

on *:Sockread:str7:{ 
  /sockread -f %rsstats
  %rsstatsa = $regsub(%rsstats,/(<[^>]+>)/g,$null,%rsstats)
  set %rsstats $replace(%rsstats,$chr(44),$null)
  write str.txt %rsstats
}
on *:Sockclose:str7:{
  if (does isin $read(str.txt,17)) { notice %asker 4 %user is not found in Highscores | halt }
  set %say1 [ 7 %user 5 ]: Overall 7 $calc($read(stats.txt,18)) $+ 5 $chr(124) Att $+ 7 $calc($read(stats.txt,22)) $+ 5 $chr(124) Def $+ 7 $calc($read(stats.txt,26)) $+ 5 $chr(124) Str $+ 7 $calc($read(stats.txt,30)) $+ 5 $chr(124) HP $+ 7 $calc($read(stats.txt,34)) $+ 5 $chr(124) Range $+ 7 $calc($read(stats.txt,38)) $+ 5 $chr(124) Pray $+ 7 $calc($read(stats.txt,42)) $+ 5 $chr(124) Magic $+ 7 $calc($read(stats.txt,46)) $+ 5 $chr(124) Cooking $+ 7 $calc($read(stats.txt,50)) $+ 5 $chr(124) Woodcut $+ 7 $calc($read(stats.txt,54)) $+ 5 $chr(124) Fletch $+ 7 $calc($read(stats.txt,58)) $+ 5 $chr(124) Fishing $+ 7 $calc($read(stats.txt,62)) $+ 5 $chr(124) Firemaking $+ 7 $calc($read(stats.txt,66)) $+ 5 $chr(124) Crafting $+ 7 $calc($read(stats.txt,70)) $+ 5 $chr(124) Smithing $+ 7 $calc($read(stats.txt,74))
  set %say2 5 $chr(124) Mining $+ 7 $calc($read(stats.txt,78)) $+ 5 $chr(124) Herblore $+ 7 $calc($read(stats.txt,82)) $+ 5 $chr(124) Agility $+ 7 $calc($read(stats.txt,86)) $+ 5 $chr(124) Thieving $+ 7 $calc($read(stats.txt,90)) $+ 5 $chr(124) Slayer $+ 7 $calc($read(stats.txt,94)) $+ 5 $chr(124) Farming $+ 7 $calc($read(stats.txt,98)) $+ 5 $chr(124) Runecraft $+ 7 $calc($read(stats.txt,102))
  %x = $read(str.txt,w,Defence)
  %linenumber1 = $readn + 1 
  if (Not isin $read(str.txt,%linenumber1)) { notice %asker 7 $upper(%user) 5 is not 7 Ranked 5 in 7 Defence | Halt }


  set %currentlvlvar $read(str.txt,26))
  set %nextlvlvar %currentlvlvar + 1
  set %nextlvlvar2 %nextlvlvar + 1
  set %xp1 $calc($read(str.txt,27))
  set %xp2 $read(xptable.txt,%nextlvlvar2))
  set %nextlvlxp $calc(%xp2 - %xp1)
  set %Ogrexp $round($calc(%nextlvlxp / 240),0)
  set %Ogrexp2  $round($calc(%ogrexp * 3),0)
  set %shadowexp $round($calc(%nextlvlxp / 268 ),0)
  set %shadowexp2 $round($calc(%shadowexp * 3),0)
  set %earthexp $round($calc(%nextlvlxp / 216),0)
  set %earthexp2 $round($calc(%earthexp * 3),0)
  set %dagexp $round($calc(%nextlvlxp / 280),0)
  set %dagexp2 $round($calc(%dagexp * 3),0)
  set %axexp $round($calc(%nextlvlxp / 176),0)
  set %axexp2 $round($calc(%axexp * 3),0)
  notice %asker ***[7 %user 5]: [7Defence5]lvl: $calc($read(str.txt,26))))  $chr(124)  exp: $calc($read(str.txt,27)) 1 $chr(40) $+ 7 $round($calc($read(str.txt,27) / 13034431 * 100),1) $+ % 1 to 99 $+ $chr(41) 5 $chr(124) EXP to lvl %nextlvlvar $+ : %nextlvlxp $chr(40) 7 $round($calc(%xp1 / %xp2 * 100),1) $+ % 1 To %nextlvlvar $chr(41)
  notice %asker NPCs for 7 %nextlvlxp 5 exp $+ : Ogre= 7 %Ogrexp 5 $chr(91) 7 %ogrexp2 5 $chr(93) $chr(124) Shadow Warrior= 7 %shadowexp 5 $chr(91) 7 %shadowexp2 5 $chr(93) $chr(124) Earth Warrior= 7 %earthexp 5 $chr(91) 7 %earthexp2 5 $chr(93) $chr(124) Dagannoth(74)= 7 %dagexp 5 $chr(91) 7 %dagexp2 5 $chr(93) $chr(124) Axes= 7 %axexp 5 $chr(91) 7 %axexp2 5 $chr(93)
}
on *:text:`strength *:*:{
  set %user $2
  set %asker $nick
  set %chan $chan
  sockopen str21 hiscore.runescape.com 80 
}

on *:sockopen:str21:{
  sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %user 
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname Connection: Close
  sockwrite -nt $sockname $crlf $+ $crlf
  write -c str.txt
}

on *:Sockread:str21:{ 
  /sockread -f %rsstats
  %rsstatsa = $regsub(%rsstats,/(<[^>]+>)/g,$null,%rsstats)
  set %rsstats $replace(%rsstats,$chr(44),$null)
  write str.txt %rsstats
}
on *:Sockclose:str21:{
  if (does isin $read(str.txt,17)) { notice %asker 4 %user is not found in Highscores | halt }
  set %say1 [ 7 %user 5 ]: Overall 7 $calc($read(stats.txt,18)) $+ 5 $chr(124) Att $+ 7 $calc($read(stats.txt,22)) $+ 5 $chr(124) Def $+ 7 $calc($read(stats.txt,26)) $+ 5 $chr(124) Str $+ 7 $calc($read(stats.txt,30)) $+ 5 $chr(124) HP $+ 7 $calc($read(stats.txt,34)) $+ 5 $chr(124) Range $+ 7 $calc($read(stats.txt,38)) $+ 5 $chr(124) Pray $+ 7 $calc($read(stats.txt,42)) $+ 5 $chr(124) Magic $+ 7 $calc($read(stats.txt,46)) $+ 5 $chr(124) Cooking $+ 7 $calc($read(stats.txt,50)) $+ 5 $chr(124) Woodcut $+ 7 $calc($read(stats.txt,54)) $+ 5 $chr(124) Fletch $+ 7 $calc($read(stats.txt,58)) $+ 5 $chr(124) Fishing $+ 7 $calc($read(stats.txt,62)) $+ 5 $chr(124) Firemaking $+ 7 $calc($read(stats.txt,66)) $+ 5 $chr(124) Crafting $+ 7 $calc($read(stats.txt,70)) $+ 5 $chr(124) Smithing $+ 7 $calc($read(stats.txt,74))
  set %say2 5 $chr(124) Mining $+ 7 $calc($read(stats.txt,78)) $+ 5 $chr(124) Herblore $+ 7 $calc($read(stats.txt,82)) $+ 5 $chr(124) Agility $+ 7 $calc($read(stats.txt,86)) $+ 5 $chr(124) Thieving $+ 7 $calc($read(stats.txt,90)) $+ 5 $chr(124) Slayer $+ 7 $calc($read(stats.txt,94)) $+ 5 $chr(124) Farming $+ 7 $calc($read(stats.txt,98)) $+ 5 $chr(124) Runecraft $+ 7 $calc($read(stats.txt,102))
  %x = $read(str.txt,w,Strength)
  %linenumber1 = $readn + 1 
  if (Not isin $read(str.txt,%linenumber1)) { notice %asker 7 $upper(%user) 5 is not 7 Ranked 5 in 7 Strength | Halt }


  set %currentlvlvar $read(str.txt,30)
  set %nextlvlvar %currentlvlvar + 1
  set %nextlvlvar2 %nextlvlvar + 1
  set %xp1 $read(str.txt,27)
  set %xp2 $read(xptable.txt,%nextlvlvar2))
  set %nextlvlxp $calc(%xp2 - %xp1)
  set %Ogrexp $round($calc(%nextlvlxp / 240),0)
  set %Ogrexp2  $round($calc(%ogrexp * 3),0)
  set %shadowexp $round($calc(%nextlvlxp / 268 ),0)
  set %shadowexp2 $round($calc(%shadowexp * 3),0)
  set %earthexp $round($calc(%nextlvlxp / 216),0)
  set %earthexp2 $round($calc(%earthexp * 3),0)
  set %dagexp $round($calc(%nextlvlxp / 280),0)
  set %dagexp2 $round($calc(%dagexp * 3),0)
  set %axexp $round($calc(%nextlvlxp / 176),0)
  set %axexp2 $round($calc(%axexp * 3),0)
  notice %asker ***[7 %user 5]: [7Strength5] lvl: $calc($read(str.txt,30)))  $chr(124)  exp: $calc($read(str.txt,31)) 1 $chr(40) $+ 7 $round($calc($read(str.txt,31) / 13034431 * 100),1) $+ % 1 to 99 $+ $chr(41) 5 $chr(124) EXP to lvl %nextlvlvar $+ : %nextlvlxp $chr(40) 7 $round($calc(%xp1 / %xp2 * 100),1) $+ % 1 To %nextlvlvar $chr(41)
  notice %asker NPCs for 7 %nextlvlxp 5 exp $+ : Ogre= 7 %Ogrexp 5 $chr(91) 7 %ogrexp2 5 $chr(93) $chr(124) Shadow Warrior= 7 %shadowexp 5 $chr(91) 7 %shadowexp2 5 $chr(93) $chr(124) Earth Warrior= 7 %earthexp 5 $chr(91) 7 %earthexp2 5 $chr(93) $chr(124) Dagannoth(74)= 7 %dagexp 5 $chr(91) 7 %dagexp2 5 $chr(93) $chr(124) Axes= 7 %axexp 5 $chr(91) 7 %axexp2 5 $chr(93)
}
on *:text:`str *:*:{
  set %user $2
  set %asker $nick
  set %chan $chan
  sockopen str2222 hiscore.runescape.com 80 
}

on *:sockopen:str2222:{
  sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %user 
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname Connection: Close
  sockwrite -nt $sockname $crlf $+ $crlf
  write -c str.txt
}

on *:Sockread:str2222:{ 
  /sockread -f %rsstats
  %rsstatsa = $regsub(%rsstats,/(<[^>]+>)/g,$null,%rsstats)
  set %rsstats $replace(%rsstats,$chr(44),$null)
  write str.txt %rsstats
}
on *:Sockclose:str2222:{
  if (does isin $read(str.txt,17)) { notice %asker 4 %user is not found in Highscores | halt }
  set %say1 [ 7 %user 5 ]: Overall 7 $calc($read(stats.txt,18)) $+ 5 $chr(124) Att $+ 7 $calc($read(stats.txt,22)) $+ 5 $chr(124) Def $+ 7 $calc($read(stats.txt,26)) $+ 5 $chr(124) Str $+ 7 $calc($read(stats.txt,30)) $+ 5 $chr(124) HP $+ 7 $calc($read(stats.txt,34)) $+ 5 $chr(124) Range $+ 7 $calc($read(stats.txt,38)) $+ 5 $chr(124) Pray $+ 7 $calc($read(stats.txt,42)) $+ 5 $chr(124) Magic $+ 7 $calc($read(stats.txt,46)) $+ 5 $chr(124) Cooking $+ 7 $calc($read(stats.txt,50)) $+ 5 $chr(124) Woodcut $+ 7 $calc($read(stats.txt,54)) $+ 5 $chr(124) Fletch $+ 7 $calc($read(stats.txt,58)) $+ 5 $chr(124) Fishing $+ 7 $calc($read(stats.txt,62)) $+ 5 $chr(124) Firemaking $+ 7 $calc($read(stats.txt,66)) $+ 5 $chr(124) Crafting $+ 7 $calc($read(stats.txt,70)) $+ 5 $chr(124) Smithing $+ 7 $calc($read(stats.txt,74))
  set %say2 5 $chr(124) Mining $+ 7 $calc($read(stats.txt,78)) $+ 5 $chr(124) Herblore $+ 7 $calc($read(stats.txt,82)) $+ 5 $chr(124) Agility $+ 7 $calc($read(stats.txt,86)) $+ 5 $chr(124) Thieving $+ 7 $calc($read(stats.txt,90)) $+ 5 $chr(124) Slayer $+ 7 $calc($read(stats.txt,94)) $+ 5 $chr(124) Farming $+ 7 $calc($read(stats.txt,98)) $+ 5 $chr(124) Runecraft $+ 7 $calc($read(stats.txt,102))
  %x = $read(str.txt,w,Strength)
  %linenumber1 = $readn + 1 
  if (Not isin $read(str.txt,%linenumber1)) { notice %asker 7 $upper(%user) 5 is not 7 Ranked 5 in 7 Strength | Halt }
  set %currentlvlvar $read(str.txt,30))
  set %nextlvlvar %currentlvlvar + 1
  set %nextlvlvar2 %nextlvlvar + 1
  set %xp1 $calc($read(str.txt,31))
  set %xp2 $read(xptable.txt,%nextlvlvar2))
  set %nextlvlxp $calc(%xp2 - %xp1)
  set %Ogrexp $round($calc(%nextlvlxp / 240),0)
  set %Ogrexp2  $round($calc(%ogrexp * 3),0)
  set %shadowexp $round($calc(%nextlvlxp / 268 ),0)
  set %shadowexp2 $round($calc(%shadowexp * 3),0)
  set %earthexp $round($calc(%nextlvlxp / 216),0)
  set %earthexp2 $round($calc(%earthexp * 3),0)
  set %dagexp $round($calc(%nextlvlxp / 280),0)
  set %dagexp2 $round($calc(%dagexp * 3),0)
  set %axexp $round($calc(%nextlvlxp / 176),0)
  set %axexp2 $round($calc(%axexp * 3),0)
  notice %asker ***[7 %user 5]: [7Strength5] lvl: $calc($read(str.txt,30)))  $chr(124)  exp: $calc($read(str.txt,31)) 1 $chr(40) $+ 7 $round($calc($read(str.txt,31) / 13034431 * 100),1) $+ % 1 to 99 $+ $chr(41) 5 $chr(124) EXP to lvl %nextlvlvar $+ : %nextlvlxp $chr(40) 7 $round($calc(%xp1 / %xp2 * 100),1) $+ % 1 To %nextlvlvar $chr(41)
  notice %asker NPCs for 7 %nextlvlxp 5 exp $+ : Ogre= 7 %Ogrexp 5 $chr(91) 7 %ogrexp2 5 $chr(93) $chr(124) Shadow Warrior= 7 %shadowexp 5 $chr(91) 7 %shadowexp2 5 $chr(93) $chr(124) Earth Warrior= 7 %earthexp 5 $chr(91) 7 %earthexp2 5 $chr(93) $chr(124) Dagannoth(74)= 7 %dagexp 5 $chr(91) 7 %dagexp2 5 $chr(93) $chr(124) Axes= 7 %axexp 5 $chr(91) 7 %axexp2 5 $chr(93)
}
on *:text:``str:*:{
  if ($readini(defname.ini,stats,$address($nick,4)) == $null) { notice $nick No Default username set please use !defname <your default user> | halt  }
  set %user $readini(defname.ini,stats,$address($nick,4))
  set %asker $nick
  set %chan $chan
  sockopen str222 hiscore.runescape.com 80 
}

on *:sockopen:str222:{
  sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %user 
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname Connection: Close
  sockwrite -nt $sockname $crlf $+ $crlf
  write -c str.txt
}

on *:Sockread:str222:{ 
  /sockread -f %rsstats
  %rsstatsa = $regsub(%rsstats,/(<[^>]+>)/g,$null,%rsstats)
  set %rsstats $replace(%rsstats,$chr(44),$null)
  write str.txt %rsstats
}
on *:Sockclose:str222:{
  if (does isin $read(str.txt,17)) { notice %asker 4 %user is not found in Highscores | halt }
  set %say1 [ 7 %user 5 ]: Overall 7 $calc($read(stats.txt,18)) $+ 5 $chr(124) Att $+ 7 $calc($read(stats.txt,22)) $+ 5 $chr(124) Def $+ 7 $calc($read(stats.txt,26)) $+ 5 $chr(124) Str $+ 7 $calc($read(stats.txt,30)) $+ 5 $chr(124) HP $+ 7 $calc($read(stats.txt,34)) $+ 5 $chr(124) Range $+ 7 $calc($read(stats.txt,38)) $+ 5 $chr(124) Pray $+ 7 $calc($read(stats.txt,42)) $+ 5 $chr(124) Magic $+ 7 $calc($read(stats.txt,46)) $+ 5 $chr(124) Cooking $+ 7 $calc($read(stats.txt,50)) $+ 5 $chr(124) Woodcut $+ 7 $calc($read(stats.txt,54)) $+ 5 $chr(124) Fletch $+ 7 $calc($read(stats.txt,58)) $+ 5 $chr(124) Fishing $+ 7 $calc($read(stats.txt,62)) $+ 5 $chr(124) Firemaking $+ 7 $calc($read(stats.txt,66)) $+ 5 $chr(124) Crafting $+ 7 $calc($read(stats.txt,70)) $+ 5 $chr(124) Smithing $+ 7 $calc($read(stats.txt,74))
  set %say2 5 $chr(124) Mining $+ 7 $calc($read(stats.txt,78)) $+ 5 $chr(124) Herblore $+ 7 $calc($read(stats.txt,82)) $+ 5 $chr(124) Agility $+ 7 $calc($read(stats.txt,86)) $+ 5 $chr(124) Thieving $+ 7 $calc($read(stats.txt,90)) $+ 5 $chr(124) Slayer $+ 7 $calc($read(stats.txt,94)) $+ 5 $chr(124) Farming $+ 7 $calc($read(stats.txt,98)) $+ 5 $chr(124) Runecraft $+ 7 $calc($read(stats.txt,102))
  %x = $read(str.txt,w,Strength)
  %linenumber1 = $readn + 1 
  if (Not isin $read(str.txt,%linenumber1)) { notice %asker 7 $upper(%user) 5 is not 7 Ranked 5 in 7 Strength | Halt }
  set %currentlvlvar $read(str.txt,30))
  set %nextlvlvar %currentlvlvar + 1
  set %nextlvlvar2 %nextlvlvar + 1
  set %xp1 $calc($read(str.txt,31))
  set %xp2 $read(xptable.txt,%nextlvlvar2))
  set %nextlvlxp $calc(%xp2 - %xp1)
  set %Ogrexp $round($calc(%nextlvlxp / 240),0)
  set %Ogrexp2  $round($calc(%ogrexp * 3),0)
  set %shadowexp $round($calc(%nextlvlxp / 268 ),0)
  set %shadowexp2 $round($calc(%shadowexp * 3),0)
  set %earthexp $round($calc(%nextlvlxp / 216),0)
  set %earthexp2 $round($calc(%earthexp * 3),0)
  set %dagexp $round($calc(%nextlvlxp / 280),0)
  set %dagexp2 $round($calc(%dagexp * 3),0)
  set %axexp $round($calc(%nextlvlxp / 176),0)
  set %axexp2 $round($calc(%axexp * 3),0)
  msg %chan ***[7 %user 5]: [7Strength5]lvl: $calc($read(str.txt,30)))  $chr(124)  exp: $calc($read(str.txt,31)) 1 $chr(40) $+ 7 $round($calc($read(str.txt,31) / 13034431 * 100),1) $+ % 1 to 99 $+ $chr(41) 5 $chr(124) EXP to lvl %nextlvlvar $+ : %nextlvlxp $chr(40) 7 $round($calc(%xp1 / %xp2 * 100),1) $+ % 1 To %nextlvlvar $chr(41)
  msg %chan NPCs for 7 %nextlvlxp 5 exp $+ : Ogre= 7 %Ogrexp 5 $chr(91) 7 %ogrexp2 5 $chr(93) $chr(124) Shadow Warrior= 7 %shadowexp 5 $chr(91) 7 %shadowexp2 5 $chr(93) $chr(124) Earth Warrior= 7 %earthexp 5 $chr(91) 7 %earthexp2 5 $chr(93) $chr(124) Dagannoth(74)= 7 %dagexp 5 $chr(91) 7 %dagexp2 5 $chr(93) $chr(124) Axes= 7 %axexp 5 $chr(91) 7 %axexp2 5 $chr(93)

}
on *:text:``strength:*:{
  if ($readini(defname.ini,stats,$address($nick,4)) == $null) { notice $nick No Default username set please use !defname <your default user> | halt  }
  set %user $readini(defname.ini,stats,$address($nick,4))
  set %asker $nick
  set %chan $chan
  sockopen str1212121 hiscore.runescape.com 80 
}

on *:sockopen:str1212121:{
  sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %user 
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname Connection: Close
  sockwrite -nt $sockname $crlf $+ $crlf
  write -c str.txt
}

on *:Sockread:str1212121:{ 
  /sockread -f %rsstats
  %rsstatsa = $regsub(%rsstats,/(<[^>]+>)/g,$null,%rsstats)
  set %rsstats $replace(%rsstats,$chr(44),$null)
  write str.txt %rsstats
}
on *:Sockclose:str1212121:{
  if (does isin $read(str.txt,17)) { notice %asker 4 %user is not found in Highscores | halt }
  set %say1 [ 7 %user 5 ]: Overall 7 $calc($read(stats.txt,18)) $+ 5 $chr(124) Att $+ 7 $calc($read(stats.txt,22)) $+ 5 $chr(124) Def $+ 7 $calc($read(stats.txt,26)) $+ 5 $chr(124) Str $+ 7 $calc($read(stats.txt,30)) $+ 5 $chr(124) HP $+ 7 $calc($read(stats.txt,34)) $+ 5 $chr(124) Range $+ 7 $calc($read(stats.txt,38)) $+ 5 $chr(124) Pray $+ 7 $calc($read(stats.txt,42)) $+ 5 $chr(124) Magic $+ 7 $calc($read(stats.txt,46)) $+ 5 $chr(124) Cooking $+ 7 $calc($read(stats.txt,50)) $+ 5 $chr(124) Woodcut $+ 7 $calc($read(stats.txt,54)) $+ 5 $chr(124) Fletch $+ 7 $calc($read(stats.txt,58)) $+ 5 $chr(124) Fishing $+ 7 $calc($read(stats.txt,62)) $+ 5 $chr(124) Firemaking $+ 7 $calc($read(stats.txt,66)) $+ 5 $chr(124) Crafting $+ 7 $calc($read(stats.txt,70)) $+ 5 $chr(124) Smithing $+ 7 $calc($read(stats.txt,74))
  set %say2 5 $chr(124) Mining $+ 7 $calc($read(stats.txt,78)) $+ 5 $chr(124) Herblore $+ 7 $calc($read(stats.txt,82)) $+ 5 $chr(124) Agility $+ 7 $calc($read(stats.txt,86)) $+ 5 $chr(124) Thieving $+ 7 $calc($read(stats.txt,90)) $+ 5 $chr(124) Slayer $+ 7 $calc($read(stats.txt,94)) $+ 5 $chr(124) Farming $+ 7 $calc($read(stats.txt,98)) $+ 5 $chr(124) Runecraft $+ 7 $calc($read(stats.txt,102))
  %x = $read(str.txt,w,Strength)
  %linenumber1 = $readn + 1 
  if (Not isin $read(str.txt,%linenumber1)) { notice %asker 7 $upper(%user) 5 is not 7 Ranked 5 in 7 Strength | Halt }
  set %currentlvlvar $read(str.txt,30))
  set %nextlvlvar %currentlvlvar + 1
  set %nextlvlvar2 %nextlvlvar + 1
  set %xp1 $calc($read(str.txt,31))
  set %xp2 $read(xptable.txt,%nextlvlvar2))
  set %nextlvlxp $calc(%xp2 - %xp1)
  set %Ogrexp $round($calc(%nextlvlxp / 240),0)
  set %Ogrexp2  $round($calc(%ogrexp * 3),0)
  set %shadowexp $round($calc(%nextlvlxp / 268 ),0)
  set %shadowexp2 $round($calc(%shadowexp * 3),0)
  set %earthexp $round($calc(%nextlvlxp / 216),0)
  set %earthexp2 $round($calc(%earthexp * 3),0)
  set %dagexp $round($calc(%nextlvlxp / 280),0)
  set %dagexp2 $round($calc(%dagexp * 3),0)
  set %axexp $round($calc(%nextlvlxp / 176),0)
  set %axexp2 $round($calc(%axexp * 3),0)
  /msg %chan ***[7 %user 5]: [7Strength5]lvl: $calc($read(str.txt,30)))  $chr(124)  exp: $calc($read(str.txt,31)) 1 $chr(40) $+ 7 $round($calc($read(str.txt,31) / 13034431 * 100),1) $+ % 1 to 99 $+ $chr(41) 5 $chr(124) EXP to lvl %nextlvlvar $+ : %nextlvlxp $chr(40) 7 $round($calc(%xp1 / %xp2 * 100),1) $+ % 1 To %nextlvlvar $chr(41)
  /msg %chan NPCs for 7 %nextlvlxp 5 exp $+ : Ogre= 7 %Ogrexp 5 $chr(91) 7 %ogrexp2 5 $chr(93) $chr(124) Shadow Warrior= 7 %shadowexp 5 $chr(91) 7 %shadowexp2 5 $chr(93) $chr(124) Earth Warrior= 7 %earthexp 5 $chr(91) 7 %earthexp2 5 $chr(93) $chr(124) Dagannoth(74)= 7 %dagexp 5 $chr(91) 7 %dagexp2 5 $chr(93) $chr(124) Axes= 7 %axexp 5 $chr(91) 7 %axexp2 5 $chr(93)
}
on *:text:``strength *:*:{
  set %user $2
  set %asker $nick
  set %chan $chan
  sockopen str111111 hiscore.runescape.com 80 
}

on *:sockopen:str111111:{
  sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %user 
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname Connection: Close
  sockwrite -nt $sockname $crlf $+ $crlf
  write -c str.txt
}

on *:Sockread:str111111:{ 
  /sockread -f %rsstats
  %rsstatsa = $regsub(%rsstats,/(<[^>]+>)/g,$null,%rsstats)
  set %rsstats $replace(%rsstats,$chr(44),$null)
  write str.txt %rsstats
}
on *:Sockclose:str111111:{
  if (does isin $read(str.txt,17)) { notice %asker 4 %user is not found in Highscores | halt }
  set %say1 [ 7 %user 5 ]: Overall 7 $calc($read(stats.txt,18)) $+ 5 $chr(124) Att $+ 7 $calc($read(stats.txt,22)) $+ 5 $chr(124) Def $+ 7 $calc($read(stats.txt,26)) $+ 5 $chr(124) Str $+ 7 $calc($read(stats.txt,30)) $+ 5 $chr(124) HP $+ 7 $calc($read(stats.txt,34)) $+ 5 $chr(124) Range $+ 7 $calc($read(stats.txt,38)) $+ 5 $chr(124) Pray $+ 7 $calc($read(stats.txt,42)) $+ 5 $chr(124) Magic $+ 7 $calc($read(stats.txt,46)) $+ 5 $chr(124) Cooking $+ 7 $calc($read(stats.txt,50)) $+ 5 $chr(124) Woodcut $+ 7 $calc($read(stats.txt,54)) $+ 5 $chr(124) Fletch $+ 7 $calc($read(stats.txt,58)) $+ 5 $chr(124) Fishing $+ 7 $calc($read(stats.txt,62)) $+ 5 $chr(124) Firemaking $+ 7 $calc($read(stats.txt,66)) $+ 5 $chr(124) Crafting $+ 7 $calc($read(stats.txt,70)) $+ 5 $chr(124) Smithing $+ 7 $calc($read(stats.txt,74))
  set %say2 5 $chr(124) Mining $+ 7 $calc($read(stats.txt,78)) $+ 5 $chr(124) Herblore $+ 7 $calc($read(stats.txt,82)) $+ 5 $chr(124) Agility $+ 7 $calc($read(stats.txt,86)) $+ 5 $chr(124) Thieving $+ 7 $calc($read(stats.txt,90)) $+ 5 $chr(124) Slayer $+ 7 $calc($read(stats.txt,94)) $+ 5 $chr(124) Farming $+ 7 $calc($read(stats.txt,98)) $+ 5 $chr(124) Runecraft $+ 7 $calc($read(stats.txt,102))
  %x = $read(str.txt,w,Strength)
  %linenumber1 = $readn + 1 
  if (Not isin $read(str.txt,%linenumber1)) { notice %asker 7 $upper(%user) 5 is not 7 Ranked 5 in 7 Strength | Halt }
  set %currentlvlvar $read(str.txt,30))
  set %nextlvlvar %currentlvlvar + 1
  set %nextlvlvar2 %nextlvlvar + 1
  set %xp1 $calc($read(str.txt,31))
  set %xp2 $read(xptable.txt,%nextlvlvar2))
  set %nextlvlxp $calc(%xp2 - %xp1)
  set %Ogrexp $round($calc(%nextlvlxp / 240),0)
  set %Ogrexp2  $round($calc(%ogrexp * 3),0)
  set %shadowexp $round($calc(%nextlvlxp / 268 ),0)
  set %shadowexp2 $round($calc(%shadowexp * 3),0)
  set %earthexp $round($calc(%nextlvlxp / 216),0)
  set %earthexp2 $round($calc(%earthexp * 3),0)
  set %dagexp $round($calc(%nextlvlxp / 280),0)
  set %dagexp2 $round($calc(%dagexp * 3),0)
  set %axexp $round($calc(%nextlvlxp / 176),0)
  set %axexp2 $round($calc(%axexp * 3),0)
  /msg %chan ***[7 %user 5]: [7Strength5]lvl: $calc($read(str.txt,30)))  $chr(124)  exp: $calc($read(str.txt,31)) 1 $chr(40) $+ 7 $round($calc($read(str.txt,31) / 13034431 * 100),1) $+ % 1 to 99 $+ $chr(41) 5 $chr(124) EXP to lvl %nextlvlvar $+ : %nextlvlxp $chr(40) 7 $round($calc(%xp1 / %xp2 * 100),1) $+ % 1 To %nextlvlvar $chr(41)
  /msg %chan NPCs for 7 %nextlvlxp 5 exp $+ : Ogre= 7 %Ogrexp 5 $chr(91) 7 %ogrexp2 5 $chr(93) $chr(124) Shadow Warrior= 7 %shadowexp 5 $chr(91) 7 %shadowexp2 5 $chr(93) $chr(124) Earth Warrior= 7 %earthexp 5 $chr(91) 7 %earthexp2 5 $chr(93) $chr(124) Dagannoth(74)= 7 %dagexp 5 $chr(91) 7 %dagexp2 5 $chr(93) $chr(124) Axes= 7 %axexp 5 $chr(91) 7 %axexp2 5 $chr(93)
}
on *:text:``str *:*:{
  set %user $2
  set %asker $nick
  set %chan $chan
  sockopen str11111 hiscore.runescape.com 80 
}

on *:sockopen:str11111:{
  sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %user 
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname Connection: Close
  sockwrite -nt $sockname $crlf $+ $crlf
  write -c str.txt
}

on *:Sockread:str11111:{ 
  /sockread -f %rsstats
  %rsstatsa = $regsub(%rsstats,/(<[^>]+>)/g,$null,%rsstats)
  set %rsstats $replace(%rsstats,$chr(44),$null)
  write str.txt %rsstats
}
on *:Sockclose:str11111:{
  if (does isin $read(str.txt,17)) { notice %asker 4 %user is not found in Highscores | halt }
  set %say1 [ 7 %user 5 ]: Overall 7 $calc($read(stats.txt,18)) $+ 5 $chr(124) Att $+ 7 $calc($read(stats.txt,22)) $+ 5 $chr(124) Def $+ 7 $calc($read(stats.txt,26)) $+ 5 $chr(124) Str $+ 7 $calc($read(stats.txt,30)) $+ 5 $chr(124) HP $+ 7 $calc($read(stats.txt,34)) $+ 5 $chr(124) Range $+ 7 $calc($read(stats.txt,38)) $+ 5 $chr(124) Pray $+ 7 $calc($read(stats.txt,42)) $+ 5 $chr(124) Magic $+ 7 $calc($read(stats.txt,46)) $+ 5 $chr(124) Cooking $+ 7 $calc($read(stats.txt,50)) $+ 5 $chr(124) Woodcut $+ 7 $calc($read(stats.txt,54)) $+ 5 $chr(124) Fletch $+ 7 $calc($read(stats.txt,58)) $+ 5 $chr(124) Fishing $+ 7 $calc($read(stats.txt,62)) $+ 5 $chr(124) Firemaking $+ 7 $calc($read(stats.txt,66)) $+ 5 $chr(124) Crafting $+ 7 $calc($read(stats.txt,70)) $+ 5 $chr(124) Smithing $+ 7 $calc($read(stats.txt,74))
  set %say2 5 $chr(124) Mining $+ 7 $calc($read(stats.txt,78)) $+ 5 $chr(124) Herblore $+ 7 $calc($read(stats.txt,82)) $+ 5 $chr(124) Agility $+ 7 $calc($read(stats.txt,86)) $+ 5 $chr(124) Thieving $+ 7 $calc($read(stats.txt,90)) $+ 5 $chr(124) Slayer $+ 7 $calc($read(stats.txt,94)) $+ 5 $chr(124) Farming $+ 7 $calc($read(stats.txt,98)) $+ 5 $chr(124) Runecraft $+ 7 $calc($read(stats.txt,102))
  %x = $read(str.txt,w,Strength)
  %linenumber1 = $readn + 1 
  if (Not isin $read(str.txt,%linenumber1)) { notice %asker 7 $upper(%user) 5 is not 7 Ranked 5 in 7 Strength | Halt }
  set %currentlvlvar $read(str.txt,30))
  set %nextlvlvar %currentlvlvar + 1
  set %nextlvlvar2 %nextlvlvar + 1
  set %xp1 $calc($read(str.txt,31))
  set %xp2 $read(xptable.txt,%nextlvlvar2))
  set %nextlvlxp $calc(%xp2 - %xp1)
  set %Ogrexp $round($calc(%nextlvlxp / 240),0)
  set %Ogrexp2  $round($calc(%ogrexp * 3),0)
  set %shadowexp $round($calc(%nextlvlxp / 268 ),0)
  set %shadowexp2 $round($calc(%shadowexp * 3),0)
  set %earthexp $round($calc(%nextlvlxp / 216),0)
  set %earthexp2 $round($calc(%earthexp * 3),0)
  set %dagexp $round($calc(%nextlvlxp / 280),0)
  set %dagexp2 $round($calc(%dagexp * 3),0)
  set %axexp $round($calc(%nextlvlxp / 176),0)
  set %axexp2 $round($calc(%axexp * 3),0)
  /msg %chan ***[7 %user 5]: [7Strength5]lvl: $calc($read(str.txt,30)))  $chr(124)  exp: $calc($read(str.txt,31)) 1 $chr(40) $+ 7 $round($calc($read(str.txt,31) / 13034431 * 100),1) $+ % 1 to 99 $+ $chr(41) 5 $chr(124) EXP to lvl %nextlvlvar $+ : %nextlvlxp $chr(40) 7 $round($calc(%xp1 / %xp2 * 100),1) $+ % 1 To %nextlvlvar $chr(41)
  /msg %chan NPCs for 7 %nextlvlxp 5 exp $+ : Ogre= 7 %Ogrexp 5 $chr(91) 7 %ogrexp2 5 $chr(93) $chr(124) Shadow Warrior= 7 %shadowexp 5 $chr(91) 7 %shadowexp2 5 $chr(93) $chr(124) Earth Warrior= 7 %earthexp 5 $chr(91) 7 %earthexp2 5 $chr(93) $chr(124) Dagannoth(74)= 7 %dagexp 5 $chr(91) 7 %dagexp2 5 $chr(93) $chr(124) Axes= 7 %axexp 5 $chr(91) 7 %axexp2 5 $chr(93)
}
on *:text:`strength:*:{
  if ($readini(defname.ini,stats,$address($nick,4)) == $null) { notice $nick No Default username set please use !defname <your default user>  }
  set %user $readini(defname.ini,stats,$address($nick,4))
  set %asker $nick
  set %chan $chan
  sockopen str1111 hiscore.runescape.com 80 
}

on *:sockopen:str1111:{
  sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %user 
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname Connection: Close
  sockwrite -nt $sockname $crlf $+ $crlf
  write -c str.txt
}

on *:Sockread:str1111:{ 
  /sockread -f %rsstats
  %rsstatsa = $regsub(%rsstats,/(<[^>]+>)/g,$null,%rsstats)
  set %rsstats $replace(%rsstats,$chr(44),$null)
  write str.txt %rsstats
}
on *:Sockclose:str1111:{
  if (does isin $read(str.txt,17)) { notice %asker 4 %user is not found in Highscores | halt }
  set %say1 [ 7 %user 5 ]: Overall 7 $calc($read(stats.txt,18)) $+ 5 $chr(124) Att $+ 7 $calc($read(stats.txt,22)) $+ 5 $chr(124) Def $+ 7 $calc($read(stats.txt,26)) $+ 5 $chr(124) Str $+ 7 $calc($read(stats.txt,30)) $+ 5 $chr(124) HP $+ 7 $calc($read(stats.txt,34)) $+ 5 $chr(124) Range $+ 7 $calc($read(stats.txt,38)) $+ 5 $chr(124) Pray $+ 7 $calc($read(stats.txt,42)) $+ 5 $chr(124) Magic $+ 7 $calc($read(stats.txt,46)) $+ 5 $chr(124) Cooking $+ 7 $calc($read(stats.txt,50)) $+ 5 $chr(124) Woodcut $+ 7 $calc($read(stats.txt,54)) $+ 5 $chr(124) Fletch $+ 7 $calc($read(stats.txt,58)) $+ 5 $chr(124) Fishing $+ 7 $calc($read(stats.txt,62)) $+ 5 $chr(124) Firemaking $+ 7 $calc($read(stats.txt,66)) $+ 5 $chr(124) Crafting $+ 7 $calc($read(stats.txt,70)) $+ 5 $chr(124) Smithing $+ 7 $calc($read(stats.txt,74))
  set %say2 5 $chr(124) Mining $+ 7 $calc($read(stats.txt,78)) $+ 5 $chr(124) Herblore $+ 7 $calc($read(stats.txt,82)) $+ 5 $chr(124) Agility $+ 7 $calc($read(stats.txt,86)) $+ 5 $chr(124) Thieving $+ 7 $calc($read(stats.txt,90)) $+ 5 $chr(124) Slayer $+ 7 $calc($read(stats.txt,94)) $+ 5 $chr(124) Farming $+ 7 $calc($read(stats.txt,98)) $+ 5 $chr(124) Runecraft $+ 7 $calc($read(stats.txt,102))
  %x = $read(str.txt,w,Strength)
  %linenumber1 = $readn + 1 
  if (Not isin $read(str.txt,%linenumber1)) { notice %asker 7 $upper(%user) 5 is not 7 Ranked 5 in 7 Strength | Halt }
  set %currentlvlvar $read(str.txt,30))
  set %nextlvlvar %currentlvlvar + 1
  set %nextlvlvar2 %nextlvlvar + 1
  set %xp1 $calc($read(str.txt,31))
  set %xp2 $read(xptable.txt,%nextlvlvar2))
  set %nextlvlxp $calc(%xp2 - %xp1)
  set %Ogrexp $round($calc(%nextlvlxp / 240),0)
  set %Ogrexp2  $round($calc(%ogrexp * 3),0)
  set %shadowexp $round($calc(%nextlvlxp / 268 ),0)
  set %shadowexp2 $round($calc(%shadowexp * 3),0)
  set %earthexp $round($calc(%nextlvlxp / 216),0)
  set %earthexp2 $round($calc(%earthexp * 3),0)
  set %dagexp $round($calc(%nextlvlxp / 280),0)
  set %dagexp2 $round($calc(%dagexp * 3),0)
  set %axexp $round($calc(%nextlvlxp / 176),0)
  set %axexp2 $round($calc(%axexp * 3),0)
  notice %asker ***[7 %user 5]: [7Strength5]lvl: $calc($read(str.txt,30)))  $chr(124)  exp: $calc($read(str.txt,31)) 1 $chr(40) $+ 7 $round($calc($read(str.txt,31) / 13034431 * 100),1) $+ % 1 to 99 $+ $chr(41) 5 $chr(124) EXP to lvl %nextlvlvar $+ : %nextlvlxp $chr(40) 7 $round($calc(%xp1 / %xp2 * 100),1) $+ % 1 To %nextlvlvar $chr(41)
  notice %asker NPCs for 7 %nextlvlxp 5 exp $+ : Ogre= 7 %Ogrexp 5 $chr(91) 7 %ogrexp2 5 $chr(93) $chr(124) Shadow Warrior= 7 %shadowexp 5 $chr(91) 7 %shadowexp2 5 $chr(93) $chr(124) Earth Warrior= 7 %earthexp 5 $chr(91) 7 %earthexp2 5 $chr(93) $chr(124) Dagannoth(74)= 7 %dagexp 5 $chr(91) 7 %dagexp2 5 $chr(93) $chr(124) Axes= 7 %axexp 5 $chr(91) 7 %axexp2 5 $chr(93)
}
on *:text:`str:*:{
  if ($readini(defname.ini,stats,$address($nick,4)) == $null) { notice $nick No Default username set please use !defname <your default user> | halt  }
  set %user $readini(defname.ini,stats,$address($nick,4))
  set %asker $nick
  set %chan $chan
  sockopen str111 hiscore.runescape.com 80 
}

on *:sockopen:str111:{
  sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %user 
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname Connection: Close
  sockwrite -nt $sockname $crlf $+ $crlf
  write -c str.txt
}

on *:Sockread:str111:{ 
  /sockread -f %rsstats
  %rsstatsa = $regsub(%rsstats,/(<[^>]+>)/g,$null,%rsstats)
  set %rsstats $replace(%rsstats,$chr(44),$null)
  write str.txt %rsstats
}
on *:Sockclose:str111:{
  if (does isin $read(str.txt,17)) { notice %asker 4 %user is not found in Highscores | halt }
  set %say1 [ 7 %user 5 ]: Overall 7 $calc($read(stats.txt,18)) $+ 5 $chr(124) Att $+ 7 $calc($read(stats.txt,22)) $+ 5 $chr(124) Def $+ 7 $calc($read(stats.txt,26)) $+ 5 $chr(124) Str $+ 7 $calc($read(stats.txt,30)) $+ 5 $chr(124) HP $+ 7 $calc($read(stats.txt,34)) $+ 5 $chr(124) Range $+ 7 $calc($read(stats.txt,38)) $+ 5 $chr(124) Pray $+ 7 $calc($read(stats.txt,42)) $+ 5 $chr(124) Magic $+ 7 $calc($read(stats.txt,46)) $+ 5 $chr(124) Cooking $+ 7 $calc($read(stats.txt,50)) $+ 5 $chr(124) Woodcut $+ 7 $calc($read(stats.txt,54)) $+ 5 $chr(124) Fletch $+ 7 $calc($read(stats.txt,58)) $+ 5 $chr(124) Fishing $+ 7 $calc($read(stats.txt,62)) $+ 5 $chr(124) Firemaking $+ 7 $calc($read(stats.txt,66)) $+ 5 $chr(124) Crafting $+ 7 $calc($read(stats.txt,70)) $+ 5 $chr(124) Smithing $+ 7 $calc($read(stats.txt,74))
  set %say2 5 $chr(124) Mining $+ 7 $calc($read(stats.txt,78)) $+ 5 $chr(124) Herblore $+ 7 $calc($read(stats.txt,82)) $+ 5 $chr(124) Agility $+ 7 $calc($read(stats.txt,86)) $+ 5 $chr(124) Thieving $+ 7 $calc($read(stats.txt,90)) $+ 5 $chr(124) Slayer $+ 7 $calc($read(stats.txt,94)) $+ 5 $chr(124) Farming $+ 7 $calc($read(stats.txt,98)) $+ 5 $chr(124) Runecraft $+ 7 $calc($read(stats.txt,102))
  %x = $read(str.txt,w,Strength)
  %linenumber1 = $readn + 1 
  if (Not isin $read(str.txt,%linenumber1)) { notice %asker 7 $upper(%user) 5 is not 7 Ranked 5 in 7 Strength | Halt }
  set %currentlvlvar $read(str.txt,30))
  set %nextlvlvar %currentlvlvar + 1
  set %nextlvlvar2 %nextlvlvar + 1
  set %xp1 $calc($read(str.txt,31))
  set %xp2 $read(xptable.txt,%nextlvlvar2))
  set %nextlvlxp $calc(%xp2 - %xp1)
  set %Ogrexp $round($calc(%nextlvlxp / 240),0)
  set %Ogrexp2  $round($calc(%ogrexp * 3),0)
  set %shadowexp $round($calc(%nextlvlxp / 268 ),0)
  set %shadowexp2 $round($calc(%shadowexp * 3),0)
  set %earthexp $round($calc(%nextlvlxp / 216),0)
  set %earthexp2 $round($calc(%earthexp * 3),0)
  set %dagexp $round($calc(%nextlvlxp / 280),0)
  set %dagexp2 $round($calc(%dagexp * 3),0)
  set %axexp $round($calc(%nextlvlxp / 176),0)
  set %axexp2 $round($calc(%axexp * 3),0)
  notice %asker ***[7 %user 5]: [7Strength5]lvl: $calc($read(str.txt,30))))  $chr(124)  exp: $calc($read(str.txt,31)) 1 $chr(40) $+ 7 $round($calc($read(str.txt,31) / 13034431 * 100),1) $+ % 1 to 99 $+ $chr(41) 5 $chr(124) EXP to lvl %nextlvlvar $+ : %nextlvlxp $chr(40) 7 $round($calc(%xp1 / %xp2 * 100),1) $+ % 1 To %nextlvlvar $chr(41)
  notice %asker NPCs for 7 %nextlvlxp 5 exp $+ : Ogre= 7 %Ogrexp 5 $chr(91) 7 %ogrexp2 5 $chr(93) $chr(124) Shadow Warrior= 7 %shadowexp 5 $chr(91) 7 %shadowexp2 5 $chr(93) $chr(124) Earth Warrior= 7 %earthexp 5 $chr(91) 7 %earthexp2 5 $chr(93) $chr(124) Dagannoth(74)= 7 %dagexp 5 $chr(91) 7 %dagexp2 5 $chr(93) $chr(124) Axes= 7 %axexp 5 $chr(91) 7 %axexp2 5 $chr(93)
}
on *:text:`mining *:*:{
  set %chan $chan
  set %user $2
  set %asker $nick
  sockopen mining hiscore.runescape.com 80
}
on *:sockopen:mining:{
  sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %user 
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname Connection: Close
  sockwrite -nt $sockname $crlf $+ $crlf
  write -c mining.txt
}
on *:Sockread:mining:{ 
  /sockread -f %rsstats
  %rsstatsa = $regsub(%rsstats,/(<[^>]+>)/g,$null,%rsstats)
  set %rsstats $replace(%rsstats,$chr(44),$null)
  write mining.txt %rsstats
}
on *:Sockclose:mining:{
  set %say1 [ 7 %user 5 ]: Overall 7 $calc($read(stats.txt,18)) $+ 5 $chr(124) Att $+ 7 $calc($read(stats.txt,22)) $+ 5 $chr(124) Def $+ 7 $calc($read(stats.txt,26)) $+ 5 $chr(124) Str $+ 7 $calc($read(stats.txt,30)) $+ 5 $chr(124) HP $+ 7 $calc($read(stats.txt,34)) $+ 5 $chr(124) Range $+ 7 $calc($read(stats.txt,38)) $+ 5 $chr(124) Pray $+ 7 $calc($read(stats.txt,42)) $+ 5 $chr(124) Magic $+ 7 $calc($read(stats.txt,46)) $+ 5 $chr(124) Cooking $+ 7 $calc($read(stats.txt,50)) $+ 5 $chr(124) Woodcut $+ 7 $calc($read(stats.txt,54)) $+ 5 $chr(124) Fletch $+ 7 $calc($read(stats.txt,58)) $+ 5 $chr(124) Fishing $+ 7 $calc($read(stats.txt,62)) $+ 5 $chr(124) Firemaking $+ 7 $calc($read(stats.txt,66)) $+ 5 $chr(124) Crafting $+ 7 $calc($read(stats.txt,70)) $+ 5 $chr(124) Smithing $+ 7 $calc($read(stats.txt,74))
  set %say2 5 $chr(124) Mining $+ 7 $calc($read(stats.txt,78)) $+ 5 $chr(124) Herblore $+ 7 $calc($read(stats.txt,82)) $+ 5 $chr(124) Agility $+ 7 $calc($read(stats.txt,86)) $+ 5 $chr(124) Thieving $+ 7 $calc($read(stats.txt,90)) $+ 5 $chr(124) Slayer $+ 7 $calc($read(stats.txt,94)) $+ 5 $chr(124) Farming $+ 7 $calc($read(stats.txt,98)) $+ 5 $chr(124) Runecraft $+ 7 $calc($read(stats.txt,102))
  %x = $read(mining.txt,w,Mining)
  %linenumber1 = $readn + 1 
  if (Not isin $read(mining.txt,%linenumber1)) { notice %asker 7 $upper(%user) 5 is not 7 Ranked 5 in 7 Strength | Halt }
  set %currentlvlvar $read(mining.txt,$calc($readn + 1))
  set %nextlvlvar %currentlvlvar + 1
  set %nextlvlvar2 %nextlvlvar + 1
  set %xp1 $calc($read(mining.txt,$calc($readn + 1)))
  set %ranking $read(mining.txt,$calc($readn - 2))
  set %xp2 $read(xptable.txt,%nextlvlvar2))
  set %xptill $calc(%xp2 - %xp1)
  set %mithril 5 Mithril: 7 $round($calc(%xptill / 80),0) $+ 5 $chr(124)
  set %Granite 5 Granite: 7 $round($calc(%xptill / 75),0) $+ 5 $chr(124)
  set %Gems 5 Gems: 7 $round($calc(%xptill / 65),0) $+ 5 $chr(124)
  set %Gold 5 Gold: 7 $round($calc(%xptill / 65),0) $+ 5 $chr(124)
  set %Sandstone Sandstone: 7 $round($calc(%xptill / 60),0) $+ 5 $chr(124)
  set %Coal Coal: 7 $round($calc(%xptill / 50),0) $+ 5 $chr(124)
  set %Silver Silver: 7 $round($calc(%xptill / 40),0) $+ 5 $chr(124)
  set %iron Iron: 7 $round($calc(%xptill / 35),0) $+ 5 $chr(124)  
  notice %asker *** $+ 5 [7 $+ $upper(%user) $+ 5] [7Mining5] lvl: 7 %currentlvlvar 5 $chr(124) exp: 7 %xp1 5 ( 7 $round($calc(%xp1 / 13034431 * 100),2) $+ 5 $chr(37) to 99): $chr(124) rank: 7 %ranking 5 $chr(124) EXP to lvl $+ 7 %Nextlvlvar $+ 5 : 7 %xptill 5 ( 7 $round($calc(%xp1 / %xp2 * 100),2) $+ 5 $chr(37) to %nextlvlvar )
  notice %asker Required for 7 %xptill 5 mining exp: %mithril %Granite %gems %gold %sandstone %coal %silver %iron
}
on *:text:``mining *:*:{
  set %chan $chan
  set %user $2
  set %asker $nick
  sockopen mining2 hiscore.runescape.com 80
}
on *:sockopen:mining2:{
  sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %user 
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname Connection: Close
  sockwrite -nt $sockname $crlf $+ $crlf
  write -c mining.txt
}
on *:Sockread:mining2:{ 
  /sockread -f %rsstats
  %rsstatsa = $regsub(%rsstats,/(<[^>]+>)/g,$null,%rsstats)
  set %rsstats $replace(%rsstats,$chr(44),$null)
  write mining.txt %rsstats
}
on *:Sockclose:mining2:{
  set %say1 [ 7 %user 5 ]: Overall 7 $calc($read(stats.txt,18)) $+ 5 $chr(124) Att $+ 7 $calc($read(stats.txt,22)) $+ 5 $chr(124) Def $+ 7 $calc($read(stats.txt,26)) $+ 5 $chr(124) Str $+ 7 $calc($read(stats.txt,30)) $+ 5 $chr(124) HP $+ 7 $calc($read(stats.txt,34)) $+ 5 $chr(124) Range $+ 7 $calc($read(stats.txt,38)) $+ 5 $chr(124) Pray $+ 7 $calc($read(stats.txt,42)) $+ 5 $chr(124) Magic $+ 7 $calc($read(stats.txt,46)) $+ 5 $chr(124) Cooking $+ 7 $calc($read(stats.txt,50)) $+ 5 $chr(124) Woodcut $+ 7 $calc($read(stats.txt,54)) $+ 5 $chr(124) Fletch $+ 7 $calc($read(stats.txt,58)) $+ 5 $chr(124) Fishing $+ 7 $calc($read(stats.txt,62)) $+ 5 $chr(124) Firemaking $+ 7 $calc($read(stats.txt,66)) $+ 5 $chr(124) Crafting $+ 7 $calc($read(stats.txt,70)) $+ 5 $chr(124) Smithing $+ 7 $calc($read(stats.txt,74))
  set %say2 5 $chr(124) Mining $+ 7 $calc($read(stats.txt,78)) $+ 5 $chr(124) Herblore $+ 7 $calc($read(stats.txt,82)) $+ 5 $chr(124) Agility $+ 7 $calc($read(stats.txt,86)) $+ 5 $chr(124) Thieving $+ 7 $calc($read(stats.txt,90)) $+ 5 $chr(124) Slayer $+ 7 $calc($read(stats.txt,94)) $+ 5 $chr(124) Farming $+ 7 $calc($read(stats.txt,98)) $+ 5 $chr(124) Runecraft $+ 7 $calc($read(stats.txt,102))
  %x = $read(mining.txt,w,Mining)
  %linenumber1 = $readn + 1 
  if (Not isin $read(mining.txt,%linenumber1)) { notice %asker 7 $upper(%user) 5 is not 7 Ranked 5 in 7 Strength | Halt }
  set %currentlvlvar $read(mining.txt,$calc($readn + 1))
  set %nextlvlvar %currentlvlvar + 1
  set %nextlvlvar2 %nextlvlvar + 1
  set %xp1 $calc($read(mining.txt,$calc($readn + 1)))
  set %ranking $read(mining.txt,$calc($readn - 2))
  set %xp2 $read(xptable.txt,%nextlvlvar2))
  set %xptill $calc(%xp2 - %xp1)
  set %mithril 5 Mithril: 7 $round($calc(%xptill / 80),0) $+ 5 $chr(124)
  set %Granite 5 Granite: 7 $round($calc(%xptill / 75),0) $+ 5 $chr(124)
  set %Gems 5 Gems: 7 $round($calc(%xptill / 65),0) $+ 5 $chr(124)
  set %Gold 5 Gold: 7 $round($calc(%xptill / 65),0) $+ 5 $chr(124)
  set %Sandstone Sandstone: 7 $round($calc(%xptill / 60),0) $+ 5 $chr(124)
  set %Coal Coal: 7 $round($calc(%xptill / 50),0) $+ 5 $chr(124)
  set %Silver Silver: 7 $round($calc(%xptill / 40),0) $+ 5 $chr(124)
  set %iron Iron: 7 $round($calc(%xptill / 35),0) $+ 5 $chr(124)  
  msg %chan *** $+ 5 [7 $+ $upper(%user) $+ 5] [7Mining5] lvl: 7 %currentlvlvar 5 $chr(124) exp: 7 %xp1 5 ( 7 $round($calc(%xp1 / 13034431 * 100),2) $+ 5 $chr(37) to 99): $chr(124) rank: 7 %ranking 5 $chr(124) EXP to lvl $+ 7 %Nextlvlvar $+ 5 : 7 %xptill 5 ( 7 $round($calc(%xp1 / %xp2 * 100),2) $+ 5 $chr(37) to %nextlvlvar )
  msg %chan Required for 7 %xptill 5 mining exp: %mithril %Granite %gems %gold %sandstone %coal %silver %iron
}
on *:text:``mining:*:{
  if ($readini(defname.ini,stats,$address($nick,4)) == $null) { notice $nick No Default username set please use !defname <your default user> | halt  }
  set %user $readini(defname.ini,stats,$address($nick,4))
  set %chan $chan
  set %asker $nick
  sockopen mining3 hiscore.runescape.com 80
}
on *:sockopen:mining3:{
  sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %user 
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname Connection: Close
  sockwrite -nt $sockname $crlf $+ $crlf
  write -c mining.txt
}
on *:Sockread:mining3:{ 
  /sockread -f %rsstats
  %rsstatsa = $regsub(%rsstats,/(<[^>]+>)/g,$null,%rsstats)
  set %rsstats $replace(%rsstats,$chr(44),$null)
  write mining.txt %rsstats
}
on *:Sockclose:mining3:{
  set %say1 [ 7 %user 5 ]: Overall 7 $calc($read(stats.txt,18)) $+ 5 $chr(124) Att $+ 7 $calc($read(stats.txt,22)) $+ 5 $chr(124) Def $+ 7 $calc($read(stats.txt,26)) $+ 5 $chr(124) Str $+ 7 $calc($read(stats.txt,30)) $+ 5 $chr(124) HP $+ 7 $calc($read(stats.txt,34)) $+ 5 $chr(124) Range $+ 7 $calc($read(stats.txt,38)) $+ 5 $chr(124) Pray $+ 7 $calc($read(stats.txt,42)) $+ 5 $chr(124) Magic $+ 7 $calc($read(stats.txt,46)) $+ 5 $chr(124) Cooking $+ 7 $calc($read(stats.txt,50)) $+ 5 $chr(124) Woodcut $+ 7 $calc($read(stats.txt,54)) $+ 5 $chr(124) Fletch $+ 7 $calc($read(stats.txt,58)) $+ 5 $chr(124) Fishing $+ 7 $calc($read(stats.txt,62)) $+ 5 $chr(124) Firemaking $+ 7 $calc($read(stats.txt,66)) $+ 5 $chr(124) Crafting $+ 7 $calc($read(stats.txt,70)) $+ 5 $chr(124) Smithing $+ 7 $calc($read(stats.txt,74))
  set %say2 5 $chr(124) Mining $+ 7 $calc($read(stats.txt,78)) $+ 5 $chr(124) Herblore $+ 7 $calc($read(stats.txt,82)) $+ 5 $chr(124) Agility $+ 7 $calc($read(stats.txt,86)) $+ 5 $chr(124) Thieving $+ 7 $calc($read(stats.txt,90)) $+ 5 $chr(124) Slayer $+ 7 $calc($read(stats.txt,94)) $+ 5 $chr(124) Farming $+ 7 $calc($read(stats.txt,98)) $+ 5 $chr(124) Runecraft $+ 7 $calc($read(stats.txt,102))
  %x = $read(mining.txt,w,Mining)
  %linenumber1 = $readn + 1 
  if (Not isin $read(mining.txt,%linenumber1)) { notice %asker 7 $upper(%user) 5 is not 7 Ranked 5 in 7 Strength | Halt }
  set %currentlvlvar $read(mining.txt,$calc($readn + 1))
  set %nextlvlvar %currentlvlvar + 1
  set %nextlvlvar2 %nextlvlvar + 1
  set %xp1 $calc($read(mining.txt,$calc($readn + 1)))
  set %ranking $read(mining.txt,$calc($readn - 2))
  set %xp2 $read(xptable.txt,%nextlvlvar2))
  set %xptill $calc(%xp2 - %xp1)
  set %mithril 5 Mithril: 7 $round($calc(%xptill / 80),0) $+ 5 $chr(124)
  set %Granite 5 Granite: 7 $round($calc(%xptill / 75),0) $+ 5 $chr(124)
  set %Gems 5 Gems: 7 $round($calc(%xptill / 65),0) $+ 5 $chr(124)
  set %Gold 5 Gold: 7 $round($calc(%xptill / 65),0) $+ 5 $chr(124)
  set %Sandstone Sandstone: 7 $round($calc(%xptill / 60),0) $+ 5 $chr(124)
  set %Coal Coal: 7 $round($calc(%xptill / 50),0) $+ 5 $chr(124)
  set %Silver Silver: 7 $round($calc(%xptill / 40),0) $+ 5 $chr(124)
  set %iron Iron: 7 $round($calc(%xptill / 35),0) $+ 5 $chr(124)  
  msg %chan *** $+ 5 [7 $+ $upper(%user) $+ 5] [7Mining5] lvl: 7 %currentlvlvar 5 $chr(124) exp: 7 %xp1 5 ( 7 $round($calc(%xp1 / 13034431 * 100),2) $+ 5 $chr(37) to 99): $chr(124) rank: 7 %ranking 5 $chr(124) EXP to lvl $+ 7 %Nextlvlvar $+ 5 : 7 %xptill 5 ( 7 $round($calc(%xp1 / %xp2 * 100),2) $+ 5 $chr(37) to %nextlvlvar )
  msg %chan Required for 7 %xptill 5 mining exp: %mithril %Granite %gems %gold %sandstone %coal %silver %iron
}
on *:text:`mining:*:{
  if ($readini(defname.ini,stats,$address($nick,4)) == $null) { notice $nick No Default username set please use !defname <your default user> | halt  }
  set %user $readini(defname.ini,stats,$address($nick,4))
  set %chan $chan
  set %asker $nick
  sockopen mining4 hiscore.runescape.com 80
}
on *:sockopen:mining4:{
  sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %user 
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname Connection: Close
  sockwrite -nt $sockname $crlf $+ $crlf
  write -c mining.txt
}
on *:Sockread:mining4:{ 
  /sockread -f %rsstats
  %rsstatsa = $regsub(%rsstats,/(<[^>]+>)/g,$null,%rsstats)
  set %rsstats $replace(%rsstats,$chr(44),$null)
  write mining.txt %rsstats
}
on *:Sockclose:mining4:{
  set %say1 [ 7 %user 5 ]: Overall 7 $calc($read(stats.txt,18)) $+ 5 $chr(124) Att $+ 7 $calc($read(stats.txt,22)) $+ 5 $chr(124) Def $+ 7 $calc($read(stats.txt,26)) $+ 5 $chr(124) Str $+ 7 $calc($read(stats.txt,30)) $+ 5 $chr(124) HP $+ 7 $calc($read(stats.txt,34)) $+ 5 $chr(124) Range $+ 7 $calc($read(stats.txt,38)) $+ 5 $chr(124) Pray $+ 7 $calc($read(stats.txt,42)) $+ 5 $chr(124) Magic $+ 7 $calc($read(stats.txt,46)) $+ 5 $chr(124) Cooking $+ 7 $calc($read(stats.txt,50)) $+ 5 $chr(124) Woodcut $+ 7 $calc($read(stats.txt,54)) $+ 5 $chr(124) Fletch $+ 7 $calc($read(stats.txt,58)) $+ 5 $chr(124) Fishing $+ 7 $calc($read(stats.txt,62)) $+ 5 $chr(124) Firemaking $+ 7 $calc($read(stats.txt,66)) $+ 5 $chr(124) Crafting $+ 7 $calc($read(stats.txt,70)) $+ 5 $chr(124) Smithing $+ 7 $calc($read(stats.txt,74))
  set %say2 5 $chr(124) Mining $+ 7 $calc($read(stats.txt,78)) $+ 5 $chr(124) Herblore $+ 7 $calc($read(stats.txt,82)) $+ 5 $chr(124) Agility $+ 7 $calc($read(stats.txt,86)) $+ 5 $chr(124) Thieving $+ 7 $calc($read(stats.txt,90)) $+ 5 $chr(124) Slayer $+ 7 $calc($read(stats.txt,94)) $+ 5 $chr(124) Farming $+ 7 $calc($read(stats.txt,98)) $+ 5 $chr(124) Runecraft $+ 7 $calc($read(stats.txt,102))
  %x = $read(mining.txt,w,Mining)
  %linenumber1 = $readn + 1 
  if (Not isin $read(mining.txt,%linenumber1)) { notice %asker 7 $upper(%user) 5 is not 7 Ranked 5 in 7 Strength | Halt }
  set %currentlvlvar $read(mining.txt,$calc($readn + 1))
  set %nextlvlvar %currentlvlvar + 1
  set %nextlvlvar2 %nextlvlvar + 1
  set %xp1 $calc($read(mining.txt,$calc($readn + 1)))
  set %ranking $read(mining.txt,$calc($readn - 2))
  set %xp2 $read(xptable.txt,%nextlvlvar2))
  set %xptill $calc(%xp2 - %xp1)
  set %mithril 5 Mithril: 7 $round($calc(%xptill / 80),0) $+ 5 $chr(124)
  set %Granite 5 Granite: 7 $round($calc(%xptill / 75),0) $+ 5 $chr(124)
  set %Gems 5 Gems: 7 $round($calc(%xptill / 65),0) $+ 5 $chr(124)
  set %Gold 5 Gold: 7 $round($calc(%xptill / 65),0) $+ 5 $chr(124)
  set %Sandstone Sandstone: 7 $round($calc(%xptill / 60),0) $+ 5 $chr(124)
  set %Coal Coal: 7 $round($calc(%xptill / 50),0) $+ 5 $chr(124)
  set %Silver Silver: 7 $round($calc(%xptill / 40),0) $+ 5 $chr(124)
  set %iron Iron: 7 $round($calc(%xptill / 35),0) $+ 5 $chr(124)  
  notice %asker *** $+ 5 [7 $+ $upper(%user) $+ 5] [7Mining5] lvl: 7 %currentlvlvar 5 $chr(124) exp: 7 %xp1 5 ( 7 $round($calc(%xp1 / 13034431 * 100),2) $+ 5 $chr(37) to 99): $chr(124) rank: 7 %ranking 5 $chr(124) EXP to lvl $+ 7 %Nextlvlvar $+ 5 : 7 %xptill 5 ( 7 $round($calc(%xp1 / %xp2 * 100),2) $+ 5 $chr(37) to %nextlvlvar )
  notice %asker Required for 7 %xptill 5 mining exp: %mithril %Granite %gems %gold %sandstone %coal %silver %iron
}
on *:text:`agility *:*:{
  set %chan $chan
  set %user $2
  set %asker $nick
  sockopen agility hiscore.runescape.com 80
}
on *:sockopen:agility:{
  sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %user 
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname Connection: Close
  sockwrite -nt $sockname $crlf $+ $crlf
  write -c agility.txt
}
on *:Sockread:agility:{ 
  /sockread -f %rsstats
  %rsstatsa = $regsub(%rsstats,/(<[^>]+>)/g,$null,%rsstats)
  set %rsstats $replace(%rsstats,$chr(44),$null)
  write agility.txt %rsstats
}
on *:Sockclose:agility:{
  %x = $read(agility.txt,w,Agility)
  %linenumber1 = $readn + 1 
  if (Not isin $read(agility.txt,%linenumber1)) { notice %asker 7 $upper(%user) 5 is not 7 Ranked 5 in 7 Strength | Halt }
  set %currentlvlvar $read(agility.txt,$calc($readn + 1))
  set %nextlvlvar %currentlvlvar + 1
  set %nextlvlvar2 %nextlvlvar + 1
  set %xp1 $calc($read(agility.txt,$calc($readn + 1)))
  set %ranking $read(agility.txt,$calc($readn - 2))
  set %xp2 $read(xptable.txt,%nextlvlvar2))
  set %xptill $calc(%xp2 - %xp1)
  set %Wolf 5 Werewolves' Course: 7 $round($calc(%xptill / 540),0) $+ 5 $chr(124)
  set %Wild 5 Wilderness Course: 7 $round($calc(%xptill / 571),0) $+ 5 $chr(124)
  set %Ape 5 Ape Atoll: 7 $round($calc(%xptill / 580),0) $+ 5 $chr(124)
  set %Barb 5 Barbarian Course: 7 $round($calc(%xptill / 139.5),0) $+ 5 $chr(124)
  set %Pyramid Pyramid: 7 $round($calc(%xptill / 1014),0) $+ 5 $chr(124)
  set %Gnome Gnome Course: 7 $round($calc(%xptill / 86.5),0) $+ 5 $chr(124)
  notice %asker *** $+ 5 [7 $+ $upper(%user) $+ 5] [7Agility5] lvl: 7 %currentlvlvar 5 $chr(124) exp: 7 %xp1 5 ( 7 $round($calc(%xp1 / 13034431 * 100),2) $+ 5 $chr(37) to 99): $chr(124) rank: 7 %ranking 5 $chr(124) EXP to lvl $+ 7 %Nextlvlvar $+ 5 : 7 %xptill 5 ( 7 $round($calc(%xp1 / %xp2 * 100),2) $+ 5 $chr(37) to %nextlvlvar )
  notice %asker Required for 7 %xptill 5 Agility exp: %wolf %wild %ape %barb %pyramid %gnome
}
on *:text:``agility *:*:{
  set %chan $chan
  set %user $2
  set %asker $nick
  sockopen agility2 hiscore.runescape.com 80
}
on *:sockopen:agility2:{
  sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %user 
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname Connection: Close
  sockwrite -nt $sockname $crlf $+ $crlf
  write -c agility.txt
}
on *:Sockread:agility2:{ 
  /sockread -f %rsstats
  %rsstatsa = $regsub(%rsstats,/(<[^>]+>)/g,$null,%rsstats)
  set %rsstats $replace(%rsstats,$chr(44),$null)
  write agility.txt %rsstats
}
on *:Sockclose:agility2:{
  %x = $read(agility.txt,w,Agility)
  %linenumber1 = $readn + 1 
  if (Not isin $read(agility.txt,%linenumber1)) { notice %asker 7 $upper(%user) 5 is not 7 Ranked 5 in 7 Strength | Halt }
  set %currentlvlvar $read(agility.txt,$calc($readn + 1))
  set %nextlvlvar %currentlvlvar + 1
  set %nextlvlvar2 %nextlvlvar + 1
  set %xp1 $calc($read(agility.txt,$calc($readn + 1)))
  set %ranking $read(agility.txt,$calc($readn - 2))
  set %xp2 $read(xptable.txt,%nextlvlvar2))
  set %xptill $calc(%xp2 - %xp1)
  set %Wolf 5 Werewolves' Course: 7 $round($calc(%xptill / 540),0) $+ 5 $chr(124)
  set %Wild 5 Wilderness Course: 7 $round($calc(%xptill / 571),0) $+ 5 $chr(124)
  set %Ape 5 Ape Atoll: 7 $round($calc(%xptill / 580),0) $+ 5 $chr(124)
  set %Barb 5 Barbarian Course: 7 $round($calc(%xptill / 139.5),0) $+ 5 $chr(124)
  set %Pyramid Pyramid: 7 $round($calc(%xptill / 1014),0) $+ 5 $chr(124)
  set %Gnome Gnome Course: 7 $round($calc(%xptill / 86.5),0) $+ 5 $chr(124)
  msg %chan *** $+ 5 [7 $+ $upper(%user) $+ 5] [7Agility5] lvl: 7 %currentlvlvar 5 $chr(124) exp: 7 %xp1 5 ( 7 $round($calc(%xp1 / 13034431 * 100),2) $+ 5 $chr(37) to 99): $chr(124) rank: 7 %ranking 5 $chr(124) EXP to lvl $+ 7 %Nextlvlvar $+ 5 : 7 %xptill 5 ( 7 $round($calc(%xp1 / %xp2 * 100),2) $+ 5 $chr(37) to %nextlvlvar )
  msg %chan Required for 7 %xptill 5 Agility exp: %wolf %wild %ape %barb %pyramid %gnome
}
on *:text:``agility:*:{
  set %chan $chan
  if ($readini(defname.ini,stats,$address($nick,4)) == $null) { notice $nick No Default username set please use !defname <your default user> | halt }
  set %user $readini(defname.ini,stats,$address($nick,4))
  set %asker $nick
  sockopen agility3 hiscore.runescape.com 80
}
on *:sockopen:agility3:{
  sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %user 
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname Connection: Close
  sockwrite -nt $sockname $crlf $+ $crlf
  write -c agility.txt
}
on *:Sockread:agility3:{ 
  /sockread -f %rsstats
  %rsstatsa = $regsub(%rsstats,/(<[^>]+>)/g,$null,%rsstats)
  set %rsstats $replace(%rsstats,$chr(44),$null)
  write agility.txt %rsstats
}
on *:Sockclose:agility3:{
  %x = $read(agility.txt,w,Agility)
  %linenumber1 = $readn + 1 
  if (Not isin $read(agility.txt,%linenumber1)) { notice %asker 7 $upper(%user) 5 is not 7 Ranked 5 in 7 Strength | Halt }
  set %currentlvlvar $read(agility.txt,$calc($readn + 1))
  set %nextlvlvar %currentlvlvar + 1
  set %nextlvlvar2 %nextlvlvar + 1
  set %xp1 $calc($read(agility.txt,$calc($readn + 1)))
  set %ranking $read(agility.txt,$calc($readn - 2))
  set %xp2 $read(xptable.txt,%nextlvlvar2))
  set %xptill $calc(%xp2 - %xp1)
  set %Wolf 5 Werewolves' Course: 7 $round($calc(%xptill / 540),0) $+ 5 $chr(124)
  set %Wild 5 Wilderness Course: 7 $round($calc(%xptill / 571),0) $+ 5 $chr(124)
  set %Ape 5 Ape Atoll: 7 $round($calc(%xptill / 580),0) $+ 5 $chr(124)
  set %Barb 5 Barbarian Course: 7 $round($calc(%xptill / 139.5),0) $+ 5 $chr(124)
  set %Pyramid Pyramid: 7 $round($calc(%xptill / 1014),0) $+ 5 $chr(124)
  set %Gnome Gnome Course: 7 $round($calc(%xptill / 86.5),0) $+ 5 $chr(124)
  msg %chan *** $+ 5 [7 $+ $upper(%user) $+ 5] [7Agility5] lvl: 7 %currentlvlvar 5 $chr(124) exp: 7 %xp1 5 ( 7 $round($calc(%xp1 / 13034431 * 100),2) $+ 5 $chr(37) to 99): $chr(124) rank: 7 %ranking 5 $chr(124) EXP to lvl $+ 7 %Nextlvlvar $+ 5 : 7 %xptill 5 ( 7 $round($calc(%xp1 / %xp2 * 100),2) $+ 5 $chr(37) to %nextlvlvar )
  msg %chan Required for 7 %xptill 5 Agility exp: %wolf %wild %ape %barb %pyramid %gnome
}
on *:text:`agility:*:{
  set %chan $chan
  if ($readini(defname.ini,stats,$address($nick,4)) == $null) { notice $nick No Default username set please use !defname <your default user> | halt }
  set %user $readini(defname.ini,stats,$address($nick,4))
  set %asker $nick
  sockopen agility4 hiscore.runescape.com 80
}
on *:sockopen:agility4:{
  sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %user 
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname Connection: Close
  sockwrite -nt $sockname $crlf $+ $crlf
  write -c agility.txt
}
on *:Sockread:agility4:{ 
  /sockread -f %rsstats
  %rsstatsa = $regsub(%rsstats,/(<[^>]+>)/g,$null,%rsstats)
  set %rsstats $replace(%rsstats,$chr(44),$null)
  write agility.txt %rsstats
}
on *:Sockclose:agility4:{
  %x = $read(agility.txt,w,Agility)
  %linenumber1 = $readn + 1 
  if (Not isin $read(agility.txt,%linenumber1)) { notice %asker 7 $upper(%user) 5 is not 7 Ranked 5 in 7 Strength | Halt }
  set %currentlvlvar $read(agility.txt,$calc($readn + 1))
  set %nextlvlvar %currentlvlvar + 1
  set %nextlvlvar2 %nextlvlvar + 1
  set %xp1 $calc($read(agility.txt,$calc($readn + 1)))
  set %ranking $read(agility.txt,$calc($readn - 2))
  set %xp2 $read(xptable.txt,%nextlvlvar2))
  set %xptill $calc(%xp2 - %xp1)
  set %Wolf 5 Werewolves' Course: 7 $round($calc(%xptill / 540),0) $+ 5 $chr(124)
  set %Wild 5 Wilderness Course: 7 $round($calc(%xptill / 571),0) $+ 5 $chr(124)
  set %Ape 5 Ape Atoll: 7 $round($calc(%xptill / 580),0) $+ 5 $chr(124)
  set %Barb 5 Barbarian Course: 7 $round($calc(%xptill / 139.5),0) $+ 5 $chr(124)
  set %Pyramid Pyramid: 7 $round($calc(%xptill / 1014),0) $+ 5 $chr(124)
  set %Gnome Gnome Course: 7 $round($calc(%xptill / 86.5),0) $+ 5 $chr(124)
  notice %asker *** $+ 5 [7 $+ $upper(%user) $+ 5] [7Agility5] lvl: 7 %currentlvlvar 5 $chr(124) exp: 7 %xp1 5 ( 7 $round($calc(%xp1 / 13034431 * 100),2) $+ 5 $chr(37) to 99): $chr(124) rank: 7 %ranking 5 $chr(124) EXP to lvl $+ 7 %Nextlvlvar $+ 5 : 7 %xptill 5 ( 7 $round($calc(%xp1 / %xp2 * 100),2) $+ 5 $chr(37) to %nextlvlvar )
  notice %asker Required for 7 %xptill 5 Agility exp: %wolf %wild %ape %barb %pyramid %gnome
}
on *:text:``cooking:*:{
  set %chan $chan
  if ($readini(defname.ini,stats,$address($nick,4)) == $null) { notice $nick No Default username set please use !defname <your default user> | halt }
  set %user $readini(defname.ini,stats,$address($nick,4))
  set %asker $nick
  sockopen cooking hiscore.runescape.com 80
}
on *:sockopen:cooking:{
  sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %user 
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname Connection: Close
  sockwrite -nt $sockname $crlf $+ $crlf
  write -c cooking.txt
}
on *:Sockread:cooking:{ 
  /sockread -f %rsstats
  %rsstatsa = $regsub(%rsstats,/(<[^>]+>)/g,$null,%rsstats)
  set %rsstats $replace(%rsstats,$chr(44),$null)
  write cooking.txt %rsstats
}
on *:Sockclose:cooking:{
  %x = $read(cooking.txt,w,Cooking)
  %linenumber1 = $readn + 1 
  if (Not isin $read(cooking.txt,%linenumber1)) { notice %asker 7 $upper(%user) 5 is not 7 Ranked 5 in 7 Strength | Halt }
  set %currentlvlvar $read(cooking.txt,$calc($readn + 1))
  set %nextlvlvar %currentlvlvar + 1
  set %nextlvlvar2 %nextlvlvar + 1
  set %xp1 $calc($read(cooking.txt,$calc($readn + 1)))
  set %ranking $read(cooking.txt,$calc($readn - 2))
  set %xp2 $read(xptable.txt,%nextlvlvar2))
  set %xptill $calc(%xp2 - %xp1)
  set %monk 5 Monkfish: 7 $round($calc(%xptill / 150),0) $+ 5 $chr(124)
  set %Curry 5 Curry: 7 $round($calc(%xptill / 280),0) $+ 5 $chr(124)
  set %chocake 5 Chocolate Cake: 7 $round($calc(%xptill / 210),0) $+ 5 $chr(124)
  set %Sword 5 Swordfish: 7 $round($calc(%xptill / 140),0) $+ 5 $chr(124)
  set %Lobbs Lobster: 7 $round($calc(%xptill / 120),0) $+ 5 $chr(124)
  set %Tuna Tuna: 7 $round($calc(%xptill / 100),0) $+ 5 $chr(124)
  set %Salmon Salmon: 7 $round($calc(%xptill / 90),0) $+ 5 $chr(124)
  set %Trout Trout: 7 $round($calc(%xptill / 70),0) $+ 5 $chr(124)
  msg %chan *** $+ 5 [7 $+ $upper(%user) $+ 5] [7Cooking5] lvl: 7 %currentlvlvar 5 $chr(124) exp: 7 %xp1 5 ( 7 $round($calc(%xp1 / 13034431 * 100),2) $+ 5 $chr(37) to 99): $chr(124) rank: 7 %ranking 5 $chr(124) EXP to lvl $+ 7 %Nextlvlvar $+ 5 : 7 %xptill 5 ( 7 $round($calc(%xp1 / %xp2 * 100),2) $+ 5 $chr(37) to %nextlvlvar )
  msg %chan Required for 7 %xptill 5 Cooking exp: %monk %curry %chocake %sword %lobbs %tuna %salmon %trout
}
on *:text:``cooking *:*:{
  set %chan $chan
  set %user $2
  set %asker $nick
  sockopen cooking2 hiscore.runescape.com 80
}
on *:sockopen:cooking2:{
  sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %user 
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname Connection: Close
  sockwrite -nt $sockname $crlf $+ $crlf
  write -c cooking.txt
}
on *:Sockread:cooking2:{ 
  /sockread -f %rsstats
  %rsstatsa = $regsub(%rsstats,/(<[^>]+>)/g,$null,%rsstats)
  set %rsstats $replace(%rsstats,$chr(44),$null)
  write cooking.txt %rsstats
}
on *:Sockclose:cooking2:{
  %x = $read(cooking.txt,w,Cooking)
  %linenumber1 = $readn + 1 
  if (Not isin $read(cooking.txt,%linenumber1)) { notice %asker 7 $upper(%user) 5 is not 7 Ranked 5 in 7 Strength | Halt }
  set %currentlvlvar $read(cooking.txt,$calc($readn + 1))
  set %nextlvlvar %currentlvlvar + 1
  set %nextlvlvar2 %nextlvlvar + 1
  set %xp1 $calc($read(cooking.txt,$calc($readn + 1)))
  set %ranking $read(cooking.txt,$calc($readn - 2))
  set %xp2 $read(xptable.txt,%nextlvlvar2))
  set %xptill $calc(%xp2 - %xp1)
  set %monk 5 Monkfish: 7 $round($calc(%xptill / 150),0) $+ 5 $chr(124)
  set %Curry 5 Curry: 7 $round($calc(%xptill / 280),0) $+ 5 $chr(124)
  set %chocake 5 Chocolate Cake: 7 $round($calc(%xptill / 210),0) $+ 5 $chr(124)
  set %Sword 5 Swordfish: 7 $round($calc(%xptill / 140),0) $+ 5 $chr(124)
  set %Lobbs Lobster: 7 $round($calc(%xptill / 120),0) $+ 5 $chr(124)
  set %Tuna Tuna: 7 $round($calc(%xptill / 100),0) $+ 5 $chr(124)
  set %Salmon Salmon: 7 $round($calc(%xptill / 90),0) $+ 5 $chr(124)
  set %Trout Trout: 7 $round($calc(%xptill / 70),0) $+ 5 $chr(124)
  msg %chan *** $+ 5 [7 $+ $upper(%user) $+ 5] [7Cooking5] lvl: 7 %currentlvlvar 5 $chr(124) exp: 7 %xp1 5 ( 7 $round($calc(%xp1 / 13034431 * 100),2) $+ 5 $chr(37) to 99): $chr(124) rank: 7 %ranking 5 $chr(124) EXP to lvl $+ 7 %Nextlvlvar $+ 5 : 7 %xptill 5 ( 7 $round($calc(%xp1 / %xp2 * 100),2) $+ 5 $chr(37) to %nextlvlvar )
  msg %chan Required for 7 %xptill 5 Cooking exp: %monk %curry %chocake %sword %lobbs %tuna %salmon %trout
}
on *:text:`cooking *:*:{
  set %chan $chan
  set %user $2
  set %asker $nick
  sockopen cooking3 hiscore.runescape.com 80
}
on *:sockopen:cooking3:{
  sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %user 
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname Connection: Close
  sockwrite -nt $sockname $crlf $+ $crlf
  write -c cooking.txt
}
on *:Sockread:cooking3:{ 
  /sockread -f %rsstats
  %rsstatsa = $regsub(%rsstats,/(<[^>]+>)/g,$null,%rsstats)
  set %rsstats $replace(%rsstats,$chr(44),$null)
  write cooking.txt %rsstats
}
on *:Sockclose:cooking3:{
  %x = $read(cooking.txt,w,Cooking)
  %linenumber1 = $readn + 1 
  if (Not isin $read(cooking.txt,%linenumber1)) { notice %asker 7 $upper(%user) 5 is not 7 Ranked 5 in 7 Strength | Halt }
  set %currentlvlvar $read(cooking.txt,$calc($readn + 1))
  set %nextlvlvar %currentlvlvar + 1
  set %nextlvlvar2 %nextlvlvar + 1
  set %xp1 $calc($read(cooking.txt,$calc($readn + 1)))
  set %ranking $read(cooking.txt,$calc($readn - 2))
  set %xp2 $read(xptable.txt,%nextlvlvar2))
  set %xptill $calc(%xp2 - %xp1)
  set %monk 5 Monkfish: 7 $round($calc(%xptill / 150),0) $+ 5 $chr(124)
  set %Curry 5 Curry: 7 $round($calc(%xptill / 280),0) $+ 5 $chr(124)
  set %chocake 5 Chocolate Cake: 7 $round($calc(%xptill / 210),0) $+ 5 $chr(124)
  set %Sword 5 Swordfish: 7 $round($calc(%xptill / 140),0) $+ 5 $chr(124)
  set %Lobbs Lobster: 7 $round($calc(%xptill / 120),0) $+ 5 $chr(124)
  set %Tuna Tuna: 7 $round($calc(%xptill / 100),0) $+ 5 $chr(124)
  set %Salmon Salmon: 7 $round($calc(%xptill / 90),0) $+ 5 $chr(124)
  set %Trout Trout: 7 $round($calc(%xptill / 70),0) $+ 5 $chr(124)
  notice %asker *** $+ 5 [7 $+ $upper(%user) $+ 5] [7Cooking5] lvl: 7 %currentlvlvar 5 $chr(124) exp: 7 %xp1 5 ( 7 $round($calc(%xp1 / 13034431 * 100),2) $+ 5 $chr(37) to 99): $chr(124) rank: 7 %ranking 5 $chr(124) EXP to lvl $+ 7 %Nextlvlvar $+ 5 : 7 %xptill 5 ( 7 $round($calc(%xp1 / %xp2 * 100),2) $+ 5 $chr(37) to %nextlvlvar )
  notice %asker Required for 7 %xptill 5 Cooking exp: %monk %curry %chocake %sword %lobbs %tuna %salmon %trout
}
on *:text:`cooking:*:{
  set %chan $chan
  if ($readini(defname.ini,stats,$address($nick,4)) == $null) { notice $nick No Default username set please use !defname <your default user> | halt }
  set %user $readini(defname.ini,stats,$address($nick,4))
  set %asker $nick
  sockopen cooking4 hiscore.runescape.com 80
}
on *:sockopen:cooking4:{
  sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %user 
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname Connection: Close
  sockwrite -nt $sockname $crlf $+ $crlf
  write -c cooking.txt
}
on *:Sockread:cooking4:{ 
  /sockread -f %rsstats
  %rsstatsa = $regsub(%rsstats,/(<[^>]+>)/g,$null,%rsstats)
  set %rsstats $replace(%rsstats,$chr(44),$null)
  write cooking.txt %rsstats
}
on *:Sockclose:cooking4:{
  %x = $read(cooking.txt,w,Cooking)
  %linenumber1 = $readn + 1 
  if (Not isin $read(cooking.txt,%linenumber1)) { notice %asker 7 $upper(%user) 5 is not 7 Ranked 5 in 7 Strength | Halt }
  set %currentlvlvar $read(cooking.txt,$calc($readn + 1))
  set %nextlvlvar %currentlvlvar + 1
  set %nextlvlvar2 %nextlvlvar + 1
  set %xp1 $calc($read(cooking.txt,$calc($readn + 1)))
  set %ranking $read(cooking.txt,$calc($readn - 2))
  set %xp2 $read(xptable.txt,%nextlvlvar2))
  set %xptill $calc(%xp2 - %xp1)
  set %monk 5 Monkfish: 7 $round($calc(%xptill / 150),0) $+ 5 $chr(124)
  set %Curry 5 Curry: 7 $round($calc(%xptill / 280),0) $+ 5 $chr(124)
  set %chocake 5 Chocolate Cake: 7 $round($calc(%xptill / 210),0) $+ 5 $chr(124)
  set %Sword 5 Swordfish: 7 $round($calc(%xptill / 140),0) $+ 5 $chr(124)
  set %Lobbs Lobster: 7 $round($calc(%xptill / 120),0) $+ 5 $chr(124)
  set %Tuna Tuna: 7 $round($calc(%xptill / 100),0) $+ 5 $chr(124)
  set %Salmon Salmon: 7 $round($calc(%xptill / 90),0) $+ 5 $chr(124)
  set %Trout Trout: 7 $round($calc(%xptill / 70),0) $+ 5 $chr(124)
  notice %asker *** $+ 5 [7 $+ $upper(%user) $+ 5] [7Cooking5] lvl: 7 %currentlvlvar 5 $chr(124) exp: 7 %xp1 5 ( 7 $round($calc(%xp1 / 13034431 * 100),2) $+ 5 $chr(37) to 99): $chr(124) rank: 7 %ranking 5 $chr(124) EXP to lvl $+ 7 %Nextlvlvar $+ 5 : 7 %xptill 5 ( 7 $round($calc(%xp1 / %xp2 * 100),2) $+ 5 $chr(37) to %nextlvlvar )
  notice %asker Required for 7 %xptill 5 Cooking exp: %monk %curry %chocake %sword %lobbs %tuna %salmon %trout
}
on *:text:`fishing:*:{
  set %chan $chan
  if ($readini(defname.ini,stats,$address($nick,4)) == $null) { notice $nick No Default username set please use !defname <your default user> | halt }
  set %user $readini(defname.ini,stats,$address($nick,4))
  set %asker $nick
  sockopen fishing hiscore.runescape.com 80
}
on *:sockopen:fishing:{
  sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %user 
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname Connection: Close
  sockwrite -nt $sockname $crlf $+ $crlf
  write -c fishing.txt
}
on *:Sockread:fishing:{ 
  /sockread -f %rsstats
  %rsstatsa = $regsub(%rsstats,/(<[^>]+>)/g,$null,%rsstats)
  set %rsstats $replace(%rsstats,$chr(44),$null)
  write fishing.txt %rsstats
}
on *:Sockclose:fishing:{
  %x = $read(fishing.txt,w,Fishing)
  %linenumber1 = $readn + 1 
  if (Not isin $read(fishing.txt,%linenumber1)) { notice %asker 7 $upper(%user) 5 is not 7 Ranked 5 in 7 Strength | Halt }
  set %currentlvlvar $read(fishing.txt,$calc($readn + 1))
  set %nextlvlvar %currentlvlvar + 1
  set %nextlvlvar2 %nextlvlvar + 1
  set %xp1 $calc($read(fishing.txt,$calc($readn + 1)))
  set %ranking $read(fishing.txt,$calc($readn - 2))
  set %xp2 $read(xptable.txt,%nextlvlvar2))
  set %xptill $calc(%xp2 - %xp1)
  set %Sea 5 Sea Turtle: 7 $round($calc(%xptill / 38),0) $+ 5 $chr(124)
  set %Shark 5 Shark: 7 $round($calc(%xptill / 110),0) $+ 5 $chr(124)
  set %Karambwan 5 Karambwan: 7 $round($calc(%xptill / 105),0) $+ 5 $chr(124)
  set %Monk 5 Monkfish: 7 $round($calc(%xptill / 120),0) $+ 5 $chr(124)
  set %Lava 5 Lava Eel: 7 $round($calc(%xptill / 60),0) $+ 5 $chr(124)
  set %Sword Swordfish: 7 $round($calc(%xptill / 100),0) $+ 5 $chr(124)
  set %Bass Bass: 7 $round($calc(%xptill / 100),0) $+ 5 $chr(124)
  set %Lobster Lobster: 7 $round($calc(%xptill / 90),0) $+ 5 $chr(124)
  notice %asker *** $+ 5 [7 $+ $upper(%user) $+ 5] [7Fishing5] lvl: 7 %currentlvlvar 5 $chr(124) exp: 7 %xp1 5 ( 7 $round($calc(%xp1 / 13034431 * 100),2) $+ 5 $chr(37) to 99): $chr(124) rank: 7 %ranking 5 $chr(124) EXP to lvl $+ 7 %Nextlvlvar $+ 5 : 7 %xptill 5 ( 7 $round($calc(%xp1 / %xp2 * 100),2) $+ 5 $chr(37) to %nextlvlvar )
  notice %asker Required for 7 %xptill 5 Fishing exp: %Sea %Shark %Karambwan %Monk %Lava %Sword %Bass %Lobster
}
on *:text:`fishing *:*:{
  set %chan $chan
  set %user $2
  set %asker $nick
  sockopen fishing2 hiscore.runescape.com 80
}
on *:sockopen:fishing2:{
  sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %user 
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname Connection: Close
  sockwrite -nt $sockname $crlf $+ $crlf
  write -c fishing.txt
}
on *:Sockread:fishing2:{ 
  /sockread -f %rsstats
  %rsstatsa = $regsub(%rsstats,/(<[^>]+>)/g,$null,%rsstats)
  set %rsstats $replace(%rsstats,$chr(44),$null)
  write fishing.txt %rsstats
}
on *:Sockclose:fishing2:{
  %x = $read(fishing.txt,w,Fishing)
  %linenumber1 = $readn + 1 
  if (Not isin $read(fishing.txt,%linenumber1)) { notice %asker 7 $upper(%user) 5 is not 7 Ranked 5 in 7 Strength | Halt }
  set %currentlvlvar $read(fishing.txt,$calc($readn + 1))
  set %nextlvlvar %currentlvlvar + 1
  set %nextlvlvar2 %nextlvlvar + 1
  set %xp1 $calc($read(fishing.txt,$calc($readn + 1)))
  set %ranking $read(fishing.txt,$calc($readn - 2))
  set %xp2 $read(xptable.txt,%nextlvlvar2))
  set %xptill $calc(%xp2 - %xp1)
  set %Sea 5 Sea Turtle: 7 $round($calc(%xptill / 38),0) $+ 5 $chr(124)
  set %Shark 5 Shark: 7 $round($calc(%xptill / 110),0) $+ 5 $chr(124)
  set %Karambwan 5 Karambwan: 7 $round($calc(%xptill / 105),0) $+ 5 $chr(124)
  set %Monk 5 Monkfish: 7 $round($calc(%xptill / 120),0) $+ 5 $chr(124)
  set %Lava 5 Lava Eel: 7 $round($calc(%xptill / 60),0) $+ 5 $chr(124)
  set %Sword Swordfish: 7 $round($calc(%xptill / 100),0) $+ 5 $chr(124)
  set %Bass Bass: 7 $round($calc(%xptill / 100),0) $+ 5 $chr(124)
  set %Lobster Lobster: 7 $round($calc(%xptill / 90),0) $+ 5 $chr(124)
  notice %asker *** $+ 5 [7 $+ $upper(%user) $+ 5] [7Fishing5] lvl: 7 %currentlvlvar 5 $chr(124) exp: 7 %xp1 5 ( 7 $round($calc(%xp1 / 13034431 * 100),2) $+ 5 $chr(37) to 99): $chr(124) rank: 7 %ranking 5 $chr(124) EXP to lvl $+ 7 %Nextlvlvar $+ 5 : 7 %xptill 5 ( 7 $round($calc(%xp1 / %xp2 * 100),2) $+ 5 $chr(37) to %nextlvlvar )
  notice %asker Required for 7 %xptill 5 Fishing exp: %Sea %Shark %Karambwan %Monk %Lava %Sword %Bass %Lobster
}
on 9999:text:`clearvar:*:{
  unset %*
  msg $chan All Variables Cleared
}
on *:text:``fishing *:*:{
  set %chan $chan
  set %user $2
  set %asker $nick
  sockopen fishing3 hiscore.runescape.com 80
}
on *:sockopen:fishing3:{
  sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %user 
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname Connection: Close
  sockwrite -nt $sockname $crlf $+ $crlf
  write -c fishing.txt
}
on *:Sockread:fishing3:{ 
  /sockread -f %rsstats
  %rsstatsa = $regsub(%rsstats,/(<[^>]+>)/g,$null,%rsstats)
  set %rsstats $replace(%rsstats,$chr(44),$null)
  write fishing.txt %rsstats
}
on *:Sockclose:fishing3:{
  %x = $read(fishing.txt,w,Fishing)
  %linenumber1 = $readn + 1 
  if (Not isin $read(fishing.txt,%linenumber1)) { notice %asker 7 $upper(%user) 5 is not 7 Ranked 5 in 7 Strength | Halt }
  set %currentlvlvar $read(fishing.txt,$calc($readn + 1))
  set %nextlvlvar %currentlvlvar + 1
  set %nextlvlvar2 %nextlvlvar + 1
  set %xp1 $calc($read(fishing.txt,$calc($readn + 1)))
  set %ranking $read(fishing.txt,$calc($readn - 2))
  set %xp2 $read(xptable.txt,%nextlvlvar2))
  set %xptill $calc(%xp2 - %xp1)
  set %Sea 5 Sea Turtle: 7 $round($calc(%xptill / 38),0) $+ 5 $chr(124)
  set %Shark 5 Shark: 7 $round($calc(%xptill / 110),0) $+ 5 $chr(124)
  set %Karambwan 5 Karambwan: 7 $round($calc(%xptill / 105),0) $+ 5 $chr(124)
  set %Monk 5 Monkfish: 7 $round($calc(%xptill / 120),0) $+ 5 $chr(124)
  set %Lava 5 Lava Eel: 7 $round($calc(%xptill / 60),0) $+ 5 $chr(124)
  set %Sword Swordfish: 7 $round($calc(%xptill / 100),0) $+ 5 $chr(124)
  set %Bass Bass: 7 $round($calc(%xptill / 100),0) $+ 5 $chr(124)
  set %Lobster Lobster: 7 $round($calc(%xptill / 90),0) $+ 5 $chr(124)
  msg %chan *** $+ 5 [7 $+ $upper(%user) $+ 5] [7Fishing5] lvl: 7 %currentlvlvar 5 $chr(124) exp: 7 %xp1 5 ( 7 $round($calc(%xp1 / 13034431 * 100),2) $+ 5 $chr(37) to 99): $chr(124) rank: 7 %ranking 5 $chr(124) EXP to lvl $+ 7 %Nextlvlvar $+ 5 : 7 %xptill 5 ( 7 $round($calc(%xp1 / %xp2 * 100),2) $+ 5 $chr(37) to %nextlvlvar )
  msg %chan Required for 7 %xptill 5 Fishing exp: %Sea %Shark %Karambwan %Monk %Lava %Sword %Bass %Lobster
}
on *:text:``fishing:*:{
  set %chan $chan
  if ($readini(defname.ini,stats,$address($nick,4)) == $null) { notice $nick No Default username set please use !defname <your default user> | halt }
  set %user $readini(defname.ini,stats,$address($nick,4))
  set %asker $nick
  sockopen fishing4 hiscore.runescape.com 80
}
on *:sockopen:fishing4:{
  sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %user 
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname Connection: Close
  sockwrite -nt $sockname $crlf $+ $crlf
  write -c fishing.txt
}
on *:Sockread:fishing4:{ 
  /sockread -f %rsstats
  %rsstatsa = $regsub(%rsstats,/(<[^>]+>)/g,$null,%rsstats)
  set %rsstats $replace(%rsstats,$chr(44),$null)
  write fishing.txt %rsstats
}
on *:Sockclose:fishing4:{
  %x = $read(fishing.txt,w,Fishing)
  %linenumber1 = $readn + 1 
  if (Not isin $read(fishing.txt,%linenumber1)) { notice %asker 7 $upper(%user) 5 is not 7 Ranked 5 in 7 Strength | Halt }
  set %currentlvlvar $read(fishing.txt,$calc($readn + 1))
  set %nextlvlvar %currentlvlvar + 1
  set %nextlvlvar2 %nextlvlvar + 1
  set %xp1 $calc($read(fishing.txt,$calc($readn + 1)))
  set %ranking $read(fishing.txt,$calc($readn - 2))
  set %xp2 $read(xptable.txt,%nextlvlvar2))
  set %xptill $calc(%xp2 - %xp1)
  set %Sea 5 Sea Turtle: 7 $round($calc(%xptill / 38),0) $+ 5 $chr(124)
  set %Shark 5 Shark: 7 $round($calc(%xptill / 110),0) $+ 5 $chr(124)
  set %Karambwan 5 Karambwan: 7 $round($calc(%xptill / 105),0) $+ 5 $chr(124)
  set %Monk 5 Monkfish: 7 $round($calc(%xptill / 120),0) $+ 5 $chr(124)
  set %Lava 5 Lava Eel: 7 $round($calc(%xptill / 60),0) $+ 5 $chr(124)
  set %Sword Swordfish: 7 $round($calc(%xptill / 100),0) $+ 5 $chr(124)
  set %Bass Bass: 7 $round($calc(%xptill / 100),0) $+ 5 $chr(124)
  set %Lobster Lobster: 7 $round($calc(%xptill / 90),0) $+ 5 $chr(124)
  msg %chan *** $+ 5 [7 $+ $upper(%user) $+ 5] [7Fishing5] lvl: 7 %currentlvlvar 5 $chr(124) exp: 7 %xp1 5 ( 7 $round($calc(%xp1 / 13034431 * 100),2) $+ 5 $chr(37) to 99): $chr(124) rank: 7 %ranking 5 $chr(124) EXP to lvl $+ 7 %Nextlvlvar $+ 5 : 7 %xptill 5 ( 7 $round($calc(%xp1 / %xp2 * 100),2) $+ 5 $chr(37) to %nextlvlvar )
  msg %chan Required for 7 %xptill 5 Fishing exp: %Sea %Shark %Karambwan %Monk %Lava %Sword %Bass %Lobster
}
# END of stats script

# Price
alias -l htmlfree {
  var %x = "", %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}
alias priceconfig {
  echo -a * *********************************
  echo -a * To set price options use the following commands:
  echo -a * /priceall <on $+ $chr(124) $+ off> - Allows the use of the "all" trigger.  (.price -a rune set returns rune (g) set, rune (t) set, and rune set.)  Default is off due to flooding issues.
  echo -a * /pricecolor <color1 color2 color3> - Sets colors of the output text.  Default is 14 07 15 (looks like: 14Santa Hat:07 25,000,000gp |15 zybez.net)
  echo -a * *********************************
}
alias priceall {
  if ($1 == on) { set %priceall on | echo -a * Price All is now set to "on" | return Price All = On }
  elseif ($1 == off) { set %priceall off | echo -a * Price All is now set to "off" | return Price All = Off }
  else { echo -a * Invalid Syntax.  Either /priceall on or /priceall off. | return Invalid Syntax }
}
alias pricecolor {
  if ($len($1) == 2) && ($len($2) == 2) && ($len($3) == 2) && ($1 isnum) && ($2 isnum) && ($3 isnum) && ($1 <= 15) && ($2 <= 15) && ($3 <= 15) {
    set %c1 $1 | set %c2 $2 | set %c3 $3
    echo -a * Colors Set.  Output will now look like below:
    echo -a *  $+ %c1 Santa Hat: $+ %c2 25,000,000gp $chr(124) $+  $+ %c3 zybez.net
  }
  else {
    echo -a * Invalid color selection.  Please use two digit color codes from 01 to 15.
  }
}
;Do not change priceappend.  Zybez will break the script again if you do.  Feel free to shorten it, but give credit to zybez ALWAYS.
;if it breaks again because of this, I wont release a new update.
alias priceappend {
  return $+(,%c3,,http://zybez.net)
}

on *:TEXT:`price*:#: {
  if (%price.busy != $null) { .notice $nick 3Sorry but %price.busy is already using this command... please wait 3 seconds and try again. | halt }
  set -u3 %price.busy $nick
  write -c pricedownload.txt
  if ($2 == -a) {
    set %priceflag $2
    set %rs.item $replace($3-,$chr(32),$chr(43))
  }
  else {
    set %rs.item $replace($2-,$chr(32),$chr(43))
  }
  set %pricenick $nick
  set %msg.type private
  price
}
on *:TEXT:``price*:#: {
  if (%price.busy != $null) { .notice $nick 3Sorry but %price.busy is already using this command... please wait 3 seconds and try again. | halt }
  set -u3 %price.busy $nick
  write -c pricedownload.txt
  if ($2 == -a) {
    set %priceflag $2
    set %rs.item $replace($3-,$chr(32),$chr(43))
  }
  else {
    set %rs.item $replace($2-,$chr(32),$chr(43))
  }
  set %pricechannel $chan
  set %pricenick $nick
  set %msg.type public
  price
}
alias pricemsg {
  if (%priceall == on) && (%priceflag == -a) {
    var %itemnamecount 1
    var %pricecount 2
    while ($read(pricedownload.txt,1)) {
      var %itemname $read(pricedownload.txt,1))
      var %price $read(pricedownload.txt,2)
      var %output  $+ %c1 $+ %itemname $+ : $+ %c2 %price $+  %type $chr(124) $+  $+ %c3 $priceappend
      if (spelling isin $read(pricedownload.txt,1)) { notice %pricenick 07Your search did not return any results. Please make sure your spelling is correct and that you are typing full words. | halt  }
      if (%msg.type == private) { notice %pricenick 3 %output } 
      elseif (%msg.type == public) { msg %pricechannel 3 %output }
      else { msg %pricechannel Error.  Please eat a sock. }
      write -dl 1 pricedownload.txt
      write -dl 1 pricedownload.txt
    }
  }
  else {
    var %itemname $read(pricedownload.txt,1)
    var %price $read(pricedownload.txt,2)
    var %output  $+ %c1 $+ %itemname $+ : $+ %c2 %price $+  %type $chr(124) $+  $+ %c3 $priceappend
    if (spelling isin $read(pricedownload.txt,1)) { notice %pricenick 07Your search did not return any results. Please make sure your spelling is correct and that you are typing full words. | halt  }
    if (%msg.type == private) { notice %pricenick 3 %output } 
    elseif (%msg.type == public) { msg %pricechannel 3 %output }
    else { msg %pricechannel Error.  Please eat a sock. }
  }
  unset %priceflag
}
alias price sockclose price | sockopen price zybez.net 80
on *:sockopen:price:{
  sockwrite -n $sockname GET /priceguide.php?search_terms= $+ %rs.item $+ &search_area=1&price_low=&price_high=&member=1&Search HTTP/1.1
  sockwrite -n $sockname Host: www.zybez.net $+ $crlf $+ $crlf
}
on *:sockread:price:{
  if ($sockerr) {
    echo -a Error.
    halt
  }
  else {
    sockread %temp
    if ($regex(%temp,/^<!--name/)) || ($regex(%temp,/^<!--price/)) {
      write pricedownload.txt $htmlfree($replace(%temp,&amp $+ $chr(59),&))
      timerSOCKET 1 1 pricemsg
    }
  }
}
on *:sockclose:price:{
}
# END Price

# Start calc
on *:text:`calc *:*:{
  set %calculatorvar1 $2-  
  if (m !isin $2) && (k !isin $2) && (b !isin $2) && (c !isin $2) { notice $nick 4 $2 $+ = 9 $calc($2-) }  
  if (m isin $2) || (k isin $2) || (b isin $2) || (c isin $2) && (/ !isin $2) { set %calculatorvar2 $replace(%calculatorvar1,m,*1000000)
    set %calculatorvar3 $replace(%calculatorvar2,k,*1000)
    set %calculatorvar4 $replace(%calculatorvar3,b,*1000000000)
    set %calculatorvar5 $replace(%calculatorvar4,c,*100)
    set %calculatorvar6 $replace(%calculatorvar5,/,$chr(47))
    notice $nick 4 $2 $+ = $+ 2 $calc(%calculatorvar5)
  }

  if (m isin $2) || (k isin $2) || (b isin $2) || (c isin $2) && (/ isin $2) { set %calculatorvar2 $replace(%calculatorvar1,m,*1000000)
    set %calculatorvar3 $replace(%calculatorvar2,k,*1000)
    set %calculatorvar4 $replace(%calculatorvar3,b,*1000000000)
    set %calculatorvar5 $replace(%calculatorvar4,c,*100)
    set %calculatorvar6 $remtok(%calculatorvar5,*,1,47)
    set %calculatorvar7 $remtok(%calculatorvar5,*,2,47)
    notice $nick 4 $2 $+ = $+ 2 $calc($calc(%calculatorvar7) / $calc(%calculatorvar6))
  }
}

on *:text:``calc *:*:{
  set %calculatorvar1 $2-  
  if (m !isin $2-) && (k !isin $2-) && (b !isin $2-) && (c !isin $2-) { msg $chan 4 $2 $+ = 9 $calc($2-) }  
  if (m isin $2-) || (k isin $2-) || (b isin $2-) || (c isin $2-) && (/ !isin $2) { set %calculatorvar2 $replace(%calculatorvar1,m,*1000000)
    set %calculatorvar3 $replace(%calculatorvar2,k,*1000)
    set %calculatorvar4 $replace(%calculatorvar3,b,*1000000000)
    set %calculatorvar5 $replace(%calculatorvar4,c,*100)
    msg $chan 2 $2 $+ = $+ 2 $calc(%calculatorvar5)
  }
  if (m isin $2) || (k isin $2) || (b isin $2) || (c isin $2) && (/ isin $2) { set %calculatorvar2 $replace(%calculatorvar1,m,*1000000)
    set %calculatorvar3 $replace(%calculatorvar2,k,*1000)
    set %calculatorvar4 $replace(%calculatorvar3,b,*1000000000)
    set %calculatorvar5 $replace(%calculatorvar4,c,*100)
    set %calculatorvar6 $remtok(%calculatorvar5,*,1,47)
    set %calculatorvar7 $remtok(%calculatorvar5,*,2,47)
    msg $chan 2 $2 $+ = $+ $calc($calc(%calculatorvar7) / $calc(%calculatorvar6))

  }
}
# END calc

# kick
on *:text:`kick*:#: {
  if ( $nick == Evilwithin10 ) { scon -a msg chanserv kick #esc $2- (requested by Evil) }
  else { halt }
}
on *:text:`ban*:#: {
  if ( $nick == Evilwithin10 ) { scon -a msg chanserv ban #esc $2- (requested by Evil) }
  else { halt }
}
on *:text:`unban*:#: {
  if ( $nick == Evilwithin10 ) { scon -a msg chanserv unban #esc $2- }
  else { halt }
}
on *:text:`ignore*:#: {
  if ( $nick == Evilwithin10 ) { scon -a ignore -w $2- swiftirc } { scon -a msg $2- You are being ignored by Evils_Bot for 5 minutes. } { .notice Evilwithin10 $2- is being ignored } { timer 1 300 /ignore -rw $2- } { timer 1 300 /scon -a msg $2- your ignore has now ended. } { timer 1 300 /.notice Evilwithin10 the $2- ignore has expired. }
  else { halt }
}
on *:text:`unignore*:#: {
  if ( $nick == Evilwithin10 ) { scon -a ignore -r $2- } { scon -a .notice $2- you are no longer being ignored } { .notice Evilwithin10 $2- removed from ignore }
  else { halt }
}
# end kick

# Commands
/*
on *:join:#: {
  if ( $nick == Evils_Bot ) { msg $chan Hello, I am Evil's Bot. to see my current commands list type !commands. If you don't want me in the channel, you can use `part to get rid of me :\ }
  else if ( $nick == Evilwithin10 ) { msg $chan Evilwithin10 is in da house! w00t! }
}
*/

on *:text:!commands:#: {
  { .notice $nick Evils_Bot uses backticks (`) instead of ! or @, in part, so that the channel doesnt get flooded by multiple bots at once. 1 backtick (`) before the command name sends the results of the command to the user privately, while 2 (``) sends it publically for all in the channel to see. }
  { .notice $nick bot commands currently include: price, stats, setname/defname, attack, strength, defence, mining, and agility. there are others, but those are reserved for the bots creator only (Evilwithin10). The stats script was written by Ichiboa and is still being developed, so more commands will be added to the stats script later. }
}
on *:text:`commands:#: {
  { .notice $nick Evils_Bot uses backticks (`) instead of ! or @, in part, so that the channel doesnt get flooded by multiple bots at once. 1 backtick (`) before the command name sends the results of the command to the user privately, while 2 (``) sends it publically for all in the channel to see. }
  { .notice $nick bot commands currently include: price, stats, setname/defname, attack, strength, defence, mining, and agility. there are others, but those are reserved for the bots creator only (Evilwithin10). The stats script was written by Ichiboa and is still being developed, so more commands will be added to the stats script later. }
}
# END commands

# kill
on *:text:`kill Evils_Bot*:#:{
  if ( $nick == Evilwithin10 ) { scon -a quit Deaded :( ( $2- ) }
  elseif ( $nick !== Evilwithin10 ) { msg $chan 4Access Denied! your name isn't Evilwithin10! }
}
# end kill

#Start MISC
on *:text:`esc:#:{
  if ( $nick == Evilwithin10 ) { server -m irc.swiftirc.net }
  elseif ( $nick !== Evilwithin10 ) { msg $chan 4Access Denied! ONLY Evilwithin10 can use this command! }
}
# END Misc

#RS Worlds
on *:text:`world*:#:{
  if ( $2- == 1 ) { .notice $nick http://ul7.runescape.com/l1,p0,j1 }
  else if ( $2- == 2 ) { .notice $nick http://ul8.runescape.com/l1,p0,j1 }
  else if ( $2- == 3 ) { .notice $nick http://po3.runescape.com/l1,p0,j1 }
  else if ( $2- == 4 ) { .notice $nick http://po4.runescape.com/l1,p0,j1 }
  else if ( $2- == 5 ) { .notice $nick http://po5.runescape.com/l1,p0,j1 }
  else if ( $2- == 6 ) { .notice $nick http://po6.runescape.com/l1,p0,j1 }
  else if ( $2- == 7 ) { .notice $nick http://above2.runescape.com/l1,p0,j1 }
  else if ( $2- == 8 ) { .notice $nick http://above3.runescape.com/l1,p0,j1 }
  else if ( $2- == 9 ) { .notice $nick http://above4.runescape.com/l1,p0,j1 }
  else if ( $2- == 10 ) { .notice $nick http://jolt7.runescape.com/l1,p0,j1 }
  else if ( $2- == 11 ) { .notice $nick http://jolt8.runescape.com/l1,p0,j1 }
  else if ( $2- == 12 ) { .notice $nick http://jolt9.runescape.com/l1,p0,j1 }
  else if ( $2- == 13 ) { .notice $nick http://nl3.runescape.com/l1,p0,j1 }
  else if ( $2- == 14 ) { .notice $nick http://nl4.runescape.com/l1,p0,j1 }
  else if ( $2- == 15 ) { .notice $nick http://mn2.runescape.com/l1,p0,j1 }
  else if ( $2- == 16 ) { .notice $nick http://mn3.runescape.com/l1,p0,j1 }
  else if ( $2- == 17 ) { .notice $nick http://nav1.runescape.com/l1,p0,j1 }
  else if ( $2- == 18 ) { .notice $nick http://nav2.runescape.com/l1,p0,j1 }
  else if ( $2- == 19 ) { .notice $nick http://nl7.runescape.com/l1,p0,j1 }
  else if ( $2- == 20 ) { .notice $nick http://nl8.runescape.com/l1,p0,j1 }
  else if ( $2- == 21 ) { .notice $nick http://nl11.runescape.com/l1,p0,j1 }
  else if ( $2- == 22 ) { .notice $nick http://nl1.runescape.com/l1,p0,j1 }
  else if ( $2- == 23 ) { .notice $nick http://mn4.runescape.com/l1,p0,j1 }
  else if ( $2- == 24 ) { .notice $nick http://mn5.runescape.com/l1,p0,j1 }
  else if ( $2- == 25 ) { .notice $nick http://nl12.runescape.com/l1,p0,j1 }
  else if ( $2- == 26 ) { .notice $nick http://ul5.runescape.com/l1,p0,j1 }
  else if ( $2- == 27 ) { .notice $nick http://nl5.runescape.com/l1,p0,j1 }
  else if ( $2- == 28 ) { .notice $nick http://nl6.runescape.com/l1,p0,j1 }
  else if ( $2- == 29 ) { .notice $nick http://ul6.runescape.com/l1,p0,j1 }
  else if ( $2- == 30 ) { .notice $nick http://po7.runescape.com/l1,p0,j1 }
  else if ( $2- == 31 ) { .notice $nick http://po8.runescape.com/l1,p0,j1 }
  else if ( $2- == 32 ) { .notice $nick http://ul1.runescape.com/l1,p0,j1 }
  else if ( $2- == 33 ) { .notice $nick http://at1.runescape.com/l1,p0,j1 }
  else if ( $2- == 34 ) { .notice $nick http://at2.runescape.com/l1,p0,j1 }
  else if ( $2- == 35 ) { .notice $nick http://at3.runescape.com/l1,p0,j1 }
  else if ( $2- == 36 ) { .notice $nick http://at4.runescape.com/l1,p0,j1 }
  else if ( $2- == 37 ) { .notice $nick http://nav3.runescape.com/l1,p0,j1 }
  else if ( $2- == 38 ) { .notice $nick http://ny9.runescape.com/l1,p0,j1 }
  else if ( $2- == 39 ) { .notice $nick http://ny10.runescape.com/l1,p0,j1 }
  else if ( $2- == 40 ) { .notice $nick http://ny11.runescape.com/l1,p0,j1 }
  else if ($2- == 41) { .notice $nick http://ny12.runescape.com/l1,p0,j1 }
  else if ($2- == 42) { .notice $nick http://po2.runescape.com/l1,p0,j1 }
  else if ($2- == 43) { .notice $nick http://sl11.runescape.com/l1,p0,j1 }
  else if ($2- == 44) { .notice $nick http://at6.runescape.com/l1,p0,j1 }
  else if ($2- == 45) { .notice $nick http://ny13.runescape.com/l1,p0,j1 }
  else if ($2- == 46) { .notice $nick http://ny14.runescape.com/l1,p0,j1 }
  else if ($2- == 47) { .notice $nick http://above5.runescape.com/l1,p0,j1 }
  else if ($2- == 48) { .notice $nick http://above6.runescape.com/l1,p0,j1 }
  else if ($2- == 50) { .notice $nick http://ams2.runescape.com/l1,p0,j1 }
  else if ($2- == 51) { .notice $nick http://ams3.runescape.com/l1,p0,j1 }
  else if ($2- == 52) { .notice $nick http://ams4.runescape.com/l1,p0,j1 }
  else if ($2- == 53) { .notice $nick http://ams7.runescape.com/l1,p0,j1 }
  else if ($2- == 54) { .notice $nick http://ams8.runescape.com/l1,p0,j1 }
  else if ($2- == 55) { .notice $nick http://ch1.runescape.com/l1,p0,j1 }
  else if ($2- == 56) { .notice $nick http://nl10.runescape.com/l1,p0,j1 }
  else if ($2- == 57) { .notice $nick http://ch3.runescape.com/l1,p0,j1 }
  else if ($2- == 58) { .notice $nick http://ch4.runescape.com/l1,p0,j1 }
  else if ($2- == 59) { .notice $nick http://ch5.runescape.com/l1,p0,j1 }
  else if ($2- == 60) { .notice $nick http://ch6.runescape.com/l1,p0,j1 }
  else if ($2- == 61) { .notice $nick http://se1.runescape.com/l1,p0,j1 }
  else if ($2- == 62) { .notice $nick http://se2.runescape.com/l1,p0,j1 }
  else if ($2- == 63) { .notice $nick http://se3.runescape.com/l1,p0,j1 }
  else if ($2- == 64) { .notice $nick http://se4.runescape.com/l1,p0,j1 }
  else if ($2- == 65) { .notice $nick http://se5.runescape.com/l1,p0,j1 }
  else if ($2- == 66) { .notice $nick http://se6.runescape.com/l1,p0,j1 }
  else if ($2- == 67) { .notice $nick http://jolt10.runescape.com/l1,p0,j1 }
  else if ($2- == 68) { .notice $nick http://jolt11.runescape.com/l1,p0,j1 }
  else if ($2- == 69) { .notice $nick http://jolt12.runescape.com/l1,p0,j1 }
  else if ($2- == 70) { .notice $nick http://po6.runescape.com/l1,p0,j1 }
  else if ($2- == 71) { .notice $nick http://mn7.runescape.com/l1,p0,j1 }
  else if ($2- == 72) { .notice $nick http://sl1.runescape.com/l1,p0,j1 }
  else if ($2- == 73) { .notice $nick http://sl2.runescape.com/l1,p0,j1 }
  else if ($2- == 74) { .notice $nick http://sl3.runescape.com/l1,p0,j1 }
  else if ($2- == 75) { .notice $nick http://sl4.runescape.com/l1,p0,j1 }
  else if ($2- == 76) { .notice $nick http://sl5.runescape.com/l1,p0,j1 }
  else if ($2- == 77) { .notice $nick http://sl6.runescape.com/l1,p0,j1 }
  else if ($2- == 78) { .notice $nick http://sl7.runescape.com/l1,p0,j1 }
  else if ($2- == 79) { .notice $nick http://sl8.runescape.com/l1,p0,j1 }
  else if ($2- == 80) { .notice $nick http://jolt1.runescape.com/l1,p0,j1 }
  else if ($2- == 81) { .notice $nick http://jolt2.runescape.com/l1,p0,j1 }
  else if ($2- == 82) { .notice $nick http://jolt3.runescape.com/l1,p0,j1 }
  else if ($2- == 83) { .notice $nick http://jolt4.runescape.com/l1,p0,j1 }
  else if ($2- == 84) { .notice $nick http://jolt5.runescape.com/l1,p0,j1 }
  else if ($2- == 85) { .notice $nick http://ny1.runescape.com/l1,p0,j1 }
  else if ($2- == 86) { .notice $nick http://ny2.runescape.com/l1,p0,j1 }
  else if ($2- == 87) { .notice $nick http://ny4.runescape.com/l1,p0,j1 }
  else if ($2- == 88) { .notice $nick http://ny5.runescape.com/l1,p0,j1 }
  else if ($2- == 89) { .notice $nick http://ny6.runescape.com/l1,p0,j1 }
  else if ($2- == 90) { .notice $nick http://ny7.runescape.com/l1,p0,j1 }
  else if ($2- == 91) { .notice $nick http://ny8.runescape.com/l1,p0,j1 }
  else if ($2- == 92) { .notice $nick http://nl9.runescape.com/l1,p0,j1 }
  else if ($2- == 93) { .notice $nick http://mi1.runescape.com/l1,p0,j1 }
  else if ($2- == 94) { .notice $nick http://mi2.runescape.com/l1,p0,j1 }
  else if ($2- == 95) { .notice $nick http://mi3.runescape.com/l1,p0,j1 }
  else if ($2- == 96) { .notice $nick http://mi4.runescape.com/l1,p0,j1 }
  else if ($2- == 97) { .notice $nick http://mi5.runescape.com/l1,p0,j1 }
  else if ($2- == 98) { .notice $nick http://mi6.runescape.com/l1,p0,j1 }
  else if ($2- == 99) { .notice $nick http://mi7.runescape.com/l1,p0,j1 }
  else if ($2- == 100) { .notice $nick http://ul3.runescape.com/l1,p0,j1 }
  else if ($2- == 101) { .notice $nick http://at7.runescape.com/l1,p0,j1 }
  else if ($2- == 102) { .notice $nick http://at8.runescape.com/l1,p0,j1 }
  else if ($2- == 103) { .notice $nick http://at9.runescape.com/l1,p0,j1 }
  else if ($2- == 104) { .notice $nick http://at10.runescape.com/l1,p0,j1 }
  else if ($2- == 105) { .notice $nick http://mn8.runescape.com/l1,p0,j1 }
  else if ($2- == 106) { .notice $nick http://mn9.runescape.com/l1,p0,j1 }
  else if ($2- == 107) { .notice $nick http://au1.runescape.com/l1,p0,j1 }
  else if ($2- == 108) { .notice $nick http://au2.runescape.com/l1,p0,j1 }
  else if ($2- == 109) { .notice $nick http://au3.runescape.com/l1,p0,j1 }
  else if ($2- == 110) { .notice $nick http://au4.runescape.com/l1,p0,j1 }
  else if ($2- == 111) { .notice $nick http://au5.runescape.com/l1,p0,j1 }
  else if ($2- == 112) { .notice $nick http://au6.runescape.com/l1,p0,j1 }
  else if ($2- == 113) { .notice $nick http://nav4.runescape.com/l1,p0,j1 }
  else if ($2- == 114) { .notice $nick http://nav5.runescape.com/l1,p0,j1 }
  else if ($2- == 115) { .notice $nick http://nav6.runescape.com/l1,p0,j1 }
  else if ($2- == 116) { .notice $nick http://nav7.runescape.com/l1,p0,j1 }
  else if ($2- == 117) { .notice $nick http://swe1.runescape.com/l1,p0,j1 }
  else if ($2- == 118) { .notice $nick http://swe2.runescape.com/l1,p0,j1 }
  else if ($2- == 119) { .notice $nick http://swe3.runescape.com/l1,p0,j1 }
  else if ($2- == 120) { .notice $nick http://swe4.runescape.com/l1,p0,j1 }
  else if ($2- == 121) { .notice $nick http://swe5.runescape.com/l1,p0,j1 }
  else if ($2- == 124) { .notice $nick http://swe8.runescape.com/l1,p0,j1 }
  else if ($2- == 125) { .notice $nick http://va1.runescape.com/l1,p0,j1 }
  else if ($2- == 126) { .notice $nick http://va2.runescape.com/l1,p0,j1 }
  else if ($2- == 127) { .notice $nick http://va3.runescape.com/l1,p0,j1 }
  else if ($2- == 128) { .notice $nick http://va4.runescape.com/l1,p0,j1 }
  else if ($2- == 129) { .notice $nick http://va5.runescape.com/l1,p0,j1 }
  else if ($2- == 130) { .notice $nick http://va6.runescape.com/l1,p0,j1 }
  else if ($2- == 131) { .notice $nick http://va7.runescape.com/l1,p0,j1 }
  else if ($2- == 132) { .notice $nick http://va8.runescape.com/l1,p0,j1 }
  else if ($2- == 133) { .notice $nick http://hel1.runescape.com/l1,p0,j1 }
  else if ($2- == 134) { .notice $nick http://hel2.runescape.com/l1,p0,j1 }
  else if ($2- == 135) { .notice $nick http://hel3.runescape.com/l1,p0,j1 }
  else if ($2- == 136) { .notice $nick http://hel4.runescape.com/l1,p0,j1 }
  else if ($2- == 137) { .notice $nick http://hel5.runescape.com/l1,p0,j1 }
  else if ($2- == 138) { .notice $nick http://hel6.runescape.com/l1,p0,j1 }
  else { halt }
}
#END RS WORLDS

# ChanLink Script
on *:text:*:#: {
  if ( $chan == #evilswitch ) { scon -a msg #esc 4 $nick says:2 $filter($1-) }
  elseif ( $chan == #esc ) { scon -a msg #evilswitch 4 $nick says:2 $filter($1-) }
  else { halt }
}

on *:join:#evilswitch: scon -a msg #esc 3 $nick has joined #evilswitch (5IRCStorm3)
on *:join:#esc: scon -a msg #evilswitch 3 $nick has joined #esc (5SwiftIRC3)
on *:part:#evilswitch: scon -a msg #esc 3 $nick has left #evilswitch (5IRCStorm3)
on *:part:#esc: scon -a msg #evilswitch 3 $nick has left #esc (5SwiftIRC3)
on 1:action:*:#esc: scon -a msg #evilswitch 6 $nick $filter($1-)
on 1:action:*:#evilswitch: scon -a msg #esc 6 $nick $filter($1-)
on *:QUIT:#esc: scon -a msg #evilswitch 3 $nick has left #esc (2QUIT3)
on *:QUIT:#evilswitch: scon -a msg #evilswitch 3 $nick has left #esc (2QUIT3)
on *:kick:#esc: scon -a msg #evilswitch 3 $nick has left #esc (4KICKED3)
# END ChanLink