Anonymous

on *:TEXT:!jc on:#: {
  if ($nick isop $chan) || ($nick ishop $chan) {
    set %jc. [ $+ [ $chan ] ] on
    msg $chan 4 $nick has enabled On-Join combat check for  $chan $+ .
  }
}

on *:TEXT:!jc off:#: {
  if ($nick isop $chan) || ($nick ishop $chan) {
    set %jc. [ $+ [ $chan ] ] off
    msg $chan 4 $nick has disabled On-Join combat check for  $chan $+ .
  }
}

on *:JOIN:#: {
  if (%jc. [ $+ [ $chan ] ] == on) {
    if ($sock(cmbjoin)) .sockclose cmbjoin
    set %nick.join $replace($nick,$chr(32),+)
    set %chan.way msg $chan
    sockopen cmbjoin rsparsers.awardspace.com 80
  }
}

on *:SOCKOPEN:cmbjoin: {
  sockwrite -nt $sockname GET /stats.php?mode=cmb&user= $+ %nick.join HTTP/1.1
  sockwrite -nt $sockname Host: rsparsers.awardspace.com
  sockwrite -nt $sockname $crlf
}

on *:SOCKREAD:cmbjoin: {
  if ($sockerr) { echo -a SOCKET ERROR: $sckerr }
  else {
    var %cmbjoinread
    sockread %cmbjoinread
    if (*Attack:* iswm %cmbjoinread) { set %attack $remove(%cmbjoinread,Attack:) }
    if (*Defence:* iswm %cmbjoinread) { set %defence $remove(%cmbjoinread,Defence:) }
    if (*Strength:* iswm %cmbjoinread) { set %strength $remove(%cmbjoinread,Strength:) }
    if (*Range:* iswm %cmbjoinread) { set %range $remove(%cmbjoinread,Range:) }
    if (*Magic:* iswm %cmbjoinread) { set %magic $remove(%cmbjoinread,Magic:) }
    if (*Prayer:* iswm %cmbjoinread) { set %prayer $remove(%cmbjoinread,Prayer:) }
    if (*Hitpoints:* iswm %cmbjoinread) { set %hitpoints $remove(%cmbjoinread,Hitpoints:) }
    if (*Combat:* iswm %cmbjoinread) { set %combat $remove(%cmbjoinread,Combat:) }
    if (*Class:* iswm %cmbjoinread) { set %class $remove(%cmbjoinread,Class:) }
    if (*att:* iswm %cmbjoinread) { set %nextatt $remove(%cmbjoinread,att:) }
    if (*def:* iswm %cmbjoinread) { set %nextdef $remove(%cmbjoinread,def:) }
    if (*str:* iswm %cmbjoinread) { set %nextstr $remove(%cmbjoinread,str:) }
    if (*hp:* iswm %cmbjoinread) { set %nexthp $remove(%cmbjoinread,hp:) }
    if (*rng:* iswm %cmbjoinread) { set %nextrng $remove(%cmbjoinread,rng:) }
    if (*mage:* iswm %cmbjoinread) { set %nextmage $remove(%cmbjoinread,mage:) }
    if (*pray:* iswm %cmbjoinread) { set %nextpray $remove(%cmbjoinread,pray:) 
      %chan.way 2 %nick.join 4is 2 %combat 4Combat
      %chan.way 4Attk: 2 %attack 4Str: 2 %strength 4Def: 2 %defence 4Range: 2 %range 4Mage: 2 %magic 4Prayer: 2 %prayer 4Hitpoints: 2 %hipoints
      %chan.way 4Till next level: 2 %nextatt 4attack 2 %nextdef 4def 2 %nextstr 4str 2 %nexthp 4hp 2 %nextrng 4range 2 %nextmage 4mage 2 %nextpray 4pray
      unset %chan.way
      unset %nick.join
      unset %attack
      unset %defence
      unset %strength
      unset %range
      unset %magic
      unset %prayer
      unset %hitpoints
      unset %combat
      unset %class
      unset %nextatt
      unset %nextdef
      unset %nextstr
      unset %nexthp
      unset %nextmage
      unset %nextpray
      unset %nextrng  
      sockclose cmbjoin
    }
  }
}