on *:JOIN:#Ahoy:{
  sockopen combat. [ $+ [ $remove($nick,Zips|) ] ] rsparsers.awardspace.com 80
}

on *:SOCKOPEN:combat.*:{
  sockwrite -n $sockname GET /stats.php?mode=cmb&user= $+ $gettok($sockname,2,46)) HTTP/1.1
  sockwrite -n $sockname Host: rsparsers.awardspace.com
  sockwrite -n $sockname $crlf
}

on :SOCKREAD:combat.*:{
  if ($sockerr) {
    halt
  }
  else {
    var %Combat
    if (*Attack* iswm %Combat) {
      tokenize 32 %Combat 
      hadd -m $sockname $1 $2
    }
    if (*Defence* iswm %Combat) {
      tokenize 32 %Combat
      hadd -m $sockname $1 $2
    }
    if (*Strength* iswm %Combat) {
      tokenize 32 %Combat
      hadd -m $sockname $1 $2
    }
    if (*Combat* iswm %Combat) {
      tokenize 32 %Combat
      hadd -m $sockname $1 $floor($2)
    }
    if (*pray:* iswm %combat) {
      msg #Ahoy 7[4 $gettok($sockname,2,46) 7] $clr1(Combat:) $crl2($hget($sockname,Combat:)) $clr1(Attack:) $crl2($hget($sockname,Attack:)) $clr1(Defence:) $crl2($hget($sockname,Defence:)) $clr1(Strength:) $crl2($hget($sockname,Strength:))
      hfree($sockname)
      sockclose $sockclose
    }
  }
}

alias -l clr1 return $+($chr(3),06,$1-) 
alias -l clr2 return $+($chr(3),04,$1-)