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

alias 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= $+ $eval($+(%,$sockname,.nick),2) 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 $+(%,$sockname,.att) $iif($regml(1),$regml(1),0)
    if ($regex(%tmp,/Genie:Defence\|[^|]*\|([^|]*)\|[^|]*/ig)) set $+(%,$sockname,.def) $iif($regml(1),$regml(1),0)
    if ($regex(%tmp,/Genie:Strength\|[^|]*\|([^|]*)\|[^|]*/ig)) set $+(%,$sockname,.str) $iif($regml(1),$regml(1),0)
    if ($regex(%tmp,/Genie:Hitpoints\|[^|]*\|([^|]*)\|[^|]*/ig)) set $+(%,$sockname,.hp) $iif($regml(1),$regml(1),0)
    if ($regex(%tmp,/Genie:Ranged\|[^|]*\|([^|]*)\|[^|]*/ig)) set $+(%,$sockname,.r) $iif($regml(1),$regml(1),0)
    if ($regex(%tmp,/Genie:Prayer\|[^|]*\|([^|]*)\|[^|]*/ig)) set $+(%,$sockname,.p) $iif($regml(1),$regml(1),0)
    if ($regex(%tmp,/Genie:Magic\|[^|]*\|([^|]*)\|[^|]*/ig)) set $+(%,$sockname,.m) $iif($regml(1),$regml(1),0)
  }
}


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

  $iif($eval($+(%,$sockname,.ranger),2) > $eval($+(%,$sockname,.mage),2), set $+(%,$sockname,.combat) $eval($+(%,$sockname,.ranger),2), set $+(%,$sockname,.combat) $eval($+(%,$sockname,.mage),2))
  $iif($eval($+(%,$sockname,.combat),2) > $eval($+(%,$sockname,.melee),2), set $+(%,$sockname,.combat) $eval($+(%,$sockname,.combat),2), set $+(%,$sockname,.combat) $eval($+(%,$sockname,.melee),2))
  echo -a $eval($+(%,$sockname,.combat),2)
  if ( $eval($+(%,$sockname,.combat),2) >= 90 ) mode $eval($+(%,$sockname,.chan),2) +v $eval($+(%,$sockname,.nick),2)
  unset %tmp $+(%,$sockname,.*)
}