Miscellany

on *:JOIN:#BKA: {
  if ($nick == $me) || ($nick isin %bkst) { halt }
  set -u15 %name $iif($readini(botinfo.ini,defname,$address($nick,3)),$readini(botinfo.ini,defname,$address($nick,3)),$nick)
  set -u15 %jnick $nick
  var %x 1
  while ($sock(cmbck. $+ %x)) {
    inc %x
  }
  sockopen $+(cmbck.,%x) hiscore.runescape.com 80
}
on *:SOCKOPEN:cmbck.*: {
  sockwrite -n $sockname GET /index_lite.ws?player= $+ %name HTTP/1.1
  sockwrite -n $sockname Host: hiscore.runescape.com
  sockwrite -n $sockname $crlf
}
on *:SOCKREAD:cmbck.*: {
  var %read
  var %att
  var %str
  var %def
  var %hp
  var %range
  var %prayer
  var %magic
  var %summon
  sockread %read
  if (*404 - page not* iswm %read) {
    msg #BKAStaff *** $+($chr(91),$c1($nick,Combat),$chr(93),:) $c2($nick,Combat stats of) $qt($c1($nick,%name)) $c2($nick,not found.)
    sockclose $sockname
    halt
  }
  if (*,*,* iswm %read) {
    sockread %att
    sockread %def
    sockread %str
    sockread %hp
    sockread %range
    sockread %prayer
    sockread %magic
    var %1 1
    while (%1 <= 17) {
      sockread %summon
      inc %1
    }
    var %att $iif($gettok(%att,2,44) == -1,1,$v1)
    var %def $iif($gettok(%def,2,44) == -1,1,$v1)
    var %str $iif($gettok(%str,2,44) == -1,1,$v1)
    var %hp $iif($gettok(%hp,2,44) == -1,10,$v1)
    var %range $iif($gettok(%range,2,44) == -1,1,$v1)
    var %prayer $iif($gettok(%prayer,2,44) == -1,1,$v1)
    var %magic $iif($gettok(%magic,2,44) == -1,1,$v1)
    var %summon $iif($gettok(%summon,2,44) == -1,1,$v1)
    var %info $cmblvl(%att,%str,%def,%hp,%range,%prayer,%magic,%summon)
    var %f2pcmb $f2pcmblvl(%att,%str,%def,%hp,%range,%prayer,%magic)   
    msg #BKAStaff *** $+($chr(91),$c1($nick,Combat),$chr(93),:) $c1($nick,%name) $c2($nick,is level) $c1($nick,$gettok(%info,1,32)) $chr(40) $+ $c1($nick,F2P $gettok(%f2pcmb,1,32)) $+ $c2($nick,$chr(41) $chr(91)) $+ $c1($nick,$gettok(%info,2,32)) $+ $c2($nick,$chr(93) $chr(124)) $c2($nick,ASD $+ $+($chr(2),H,$chr(2),RPMU)) $+ : $c1($nick,%att %str %def $+($chr(2),%hp,$chr(2)) %range %prayer %magic %summon)
    if ($gettok(%f2pcmb,1,32 >= 100)) {
      mode #bka +v %jnick
    }
    elseif ((%range >= 95) || (%magic >= 95)) && (%f2pcmb >= 95) {
      mode #bka +v %jnick
    }
    sockclose $sockname
    halt
  }
}
on $*:TEXT:/^[.!@](bandos|arma(dyl)?|sara(domin)?|zam?(my|orak)) (-p|-r|-g)?/Si:#: {
  set %trip $remove($1,!,.,@)
  if (Sara isin %trip) { set %team Saradomin | unset %trip }
  elseif (Arma isin %trip) { set %team Armadyl | unset %trip }
  elseif (Zam isin %trip) { set %team Zamorak | unset %trip }
  else {
    set %team Bandos
    unset %trip
  }
  if ($2 == -p) {
    writeini bka.ini %team $iif($readini(botinfo.ini,defname,$address($nick,3)),$readini(botinfo.ini,defname,$address($nick,3)),$nick) $iif($regex($3,/^tank(er)?$/Si),Tanker,$iif($3,$3-,Not Tanker))
    notice $nick $nick $+ : You are on the list for the %team Team.
  }
  if ($2 == -r) {
    remini bka.ini %team $iif($readini(botinfo.ini,defname,$address($nick,3)),$readini(botinfo.ini,defname,$address($nick,3)),$nick)
    notice $nick $nick $+ : You are off the list for the %team Team.
  }
  if ($2 == -g) {
    notice $nick $nick $+ : I will pm you a list for the %team Team.
    var %i = 0
    while (%i < $ini(bka.ini,%team,0)) {
      inc %i
      msg $nick $ini(bka.ini,%team,%i) - $readini(bka.ini,%team,$ini(bka.ini,%team,%i))
    }
  }
}
alias -l f2pcmblvl {
  ;1=attack,2=strength,3=defence,4=hitpoints,5=ranged,6=prayer,7=magic
  var %base $calc($calc($calc($3 * 100) + $calc($4 * 100) + $calc($iif($isbit($6,1),$calc($6 - 1) * 50,$6 * 50))) / 400)
  if ($isbit($5,1) == 1) {
    var %ranged $calc($calc($calc($calc($5 - 1) + $calc($5 * 2)) * 65) / 400)
  }
  else {
    var %ranged $calc($calc($5 * 195) / 400)
  }
  if ($isbit($7,1) == 1) {
    var %magic $calc($calc($calc($calc($7 - 1) + $calc($7 * 2)) * 65) / 400)
  }
  else {
    var %magic $calc($calc($7 * 195) / 400)
  }
  var %melee $calc($calc($calc($1 * 130) + $calc($2 * 130)) / 400)
  return $calc($gettok($sorttok(%melee %ranged %magic,32,nr),1,32) + %base) $iif($gettok($sorttok(%melee %ranged %magic,32,nr),1,32) == %melee,Melee,$iif($gettok($sorttok(%melee %ranged %magic,32,nr),1,32) == %ranged,Ranged,$iif($gettok($sorttok(%melee %ranged %magic,32,nr),1,32) == %magic,Magic)))
}
alias -l cmblvl { 
  ;att,str,def,hit,range,prayer,mage,summoning 
  var %a $calc($3 * 100) 
  var %b $calc($4 * 100) 
  if ($isbit($6,1)) var %c $calc($calc($6 - 1) * 50) 
  else var %c $calc($6 * 50) 
  if ($isbit($8,1)) var %d $calc($calc($8 - 1) * 50) 
  else var %d $calc($8 * 50) 
  var %base $calc($calc(%a + %b + %c + %d) / 400) 
  var %e $calc($1 * 130), %f $calc($2 * 130) 
  if ($isbit($5,1)) var %g $calc($calc($calc($5 - 1) + $calc($5 * 2)) * 65) 
  else var %g $calc($5 * 195) 
  if ($isbit($7,1)) var %h $calc($calc($calc($7 - 1) + $calc($7 * 2)) * 65) 
  else var %h $calc($7 * 195) 
  var %melee $calc($calc(%e + %f) / 400) 
  var %range $calc(%g / 400) 
  var %mage $calc(%h / 400) 
  if ($gettok($sorttok(%melee %range %mage,32,nr),1,32) == %melee) var %type Melee 
  elseif ($v1 == %range) var %type Ranged 
  else var %type Magic 
  return $calc($v1 + %base) %type 
}
alias -l c1 return $+($chr(3),$iif($readini(botinfo.ini,n,defcolor,$address($1,3)),$v1,07),$2-,$chr(3))
alias -l c2 {
  if ($readini(botinfo.ini,n,defcolor2,$address($1,3))) {
    return $+($chr(3),$v1,$2-,$chr(3))
  }
  else {
    return $2-
  }
}
alias -l htmlfree { 
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) 
  return %x 
}