Someone

on *:JOIN:#pegasus: {
  set %cmb.chan $chan
  set %cmb.nick $nick
  cmb $nick
}

alias -l cmb {
  sockopen $+(cmb.,%cmbcount) vulcan.ueuo.com 80
  inc %cmbcount
}

on *:SOCKOPEN:cmb.*: {
  if ($sockerr) { echo -a Error - $sockerr | halt }
  sockwrite -n $sockname GET /geniestats.php?rsname= $+ %cmb.nick HTTP/1.1 
  sockwrite -n $sockname Host: vulcan.ueuo.com
  sockwrite -n $sockname Connection: Close
  sockwrite -t $sockname $crlf
}

on *:SOCKREAD:cmb.*: {
  if ($sockerr) { echo -a Error - $sockerr | halt }
  else {
    sockread %tmp
    ;    echo -a 04 %tmp
    if ($regex(%tmp,/Genie:Attack\|[^|]*\|([^|]*)\|[^|]*/ig)) set %att $iif($regml(1),$regml(1),0)
    if ($regex(%tmp,/Genie:Defence\|[^|]*\|([^|]*)\|[^|]*/ig)) set %def $iif($regml(1),$regml(1),0)
    if ($regex(%tmp,/Genie:Strength\|[^|]*\|([^|]*)\|[^|]*/ig)) set %str $iif($regml(1),$regml(1),0)
    if ($regex(%tmp,/Genie:Hitpoints\|[^|]*\|([^|]*)\|[^|]*/ig)) set %hp $iif($regml(1),$regml(1),0)
    if ($regex(%tmp,/Genie:Ranged\|[^|]*\|([^|]*)\|[^|]*/ig)) set %r $iif($regml(1),$regml(1),0)
    if ($regex(%tmp,/Genie:Prayer\|[^|]*\|([^|]*)\|[^|]*/ig)) set %p $iif($regml(1),$regml(1),0)
    if ($regex(%tmp,/Genie:Magic\|[^|]*\|([^|]*)\|[^|]*/ig)) set %m $iif($regml(1),$regml(1),0)
  }
}


on *:SOCKCLOSE:cmb.*: {
  var %ranger = $round($calc(0.4875 * %r + 0.250 * (%hp + %def) + 0.125 * %p),2)
  var %mage = $round($calc(0.4875 * %m + 0.250 * (%hp + %def) + 0.125 * %p),2)
  var %melee = $round($calc(0.325 * (%att + %str) + 0.250 * (%hp + %def) + 0.125 * %p),2)

  $iif(%ranger > %mage, %combat = %ranger, %combat = %mage)
  $iif(%combat > %melee, %combat = %combat, %combat = %melee)

  if (%combat >= 90) mode %cmb.chan +v %cmb.nick
  unset %cmb.chan %cmb.nick %att %str %def %hp %r %p %m %combat
}