Unnamed

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

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

on :SOCKREAD:combat.*:{
  if ($sockerr) {
    halt
  }
  else {
    var %Combat. [ $+ [ $left($sockname,6) ] ]
    if (*Attack* iswm %Combat. [ $+ [ $left($sockname,6) ] ] ) {
      tokenize 32 %Combat. [ $+ [ $left($sockname,6) ] ]
      hadd -m $sockname $1 $2
    }
    if (*Defence* iswm %Combat. [ $+ [ $left($sockname,6) ] ] ) {
      tokenize 32 %Combat. [ $+ [ $left($sockname,6) ] ]
      hadd -m $sockname $1 $2
    }
    if (*Strength* iswm %Combat. [ $+ [ $left($sockname,6) ] ] ) {
      tokenize 32 %Combat. [ $+ [ $left($sockname,6) ] ]
      hadd -m $sockname $1 $2
    }
    if (*Combat* iswm %Combat. [ $+ [ $left($sockname,6) ] ] ) {
      tokenize 32 %Combat. [ $+ [ $left($sockname,6) ] ]
      hadd -m $sockname $1 $floor($2)
    }
    if (*pray:* iswm %Combat. [ $+ [ $left($sockname,6) ] ] ) {
      msg #Ahoy 7[4 $left($sockname,6) 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-)