Miscellany

alias c1 { return $+($chr(3),14,$1-) } 
alias c2 { return $+($chr(3),04,$1-) }

on $*:text:/^[!@](info)/Si:#:{ 
  if ($sock(inf)) .sockclose inf
  set %ml $clan($2-)   
  var %c 1 | while ($read(cl2.txt,%c)) { set %list %list $($+($,c,$iif($and(%c,1),$v1,2),$chr(40),$+([,$regsubex($read(cl2.txt,%c),/(\b.)/g,$upper(\1)),]),$chr(41)),3) | inc %c }
  set %outp $iif($left($1,1) == @, msg $nick, notice $nick) 
  if ($2 == list) { %outp $c2(Type) $c1(!info clan) $c2(choose one:) %list | unset %list %outp %ml }
  if ($2 == $null) { %outp $c2(You have to enter a clan, Type) $c1(!info list) $c2(to see a list of clans) | unset %outp %list }
  else { 
    sockopen inf www.runehead.com 80 
  }
}
on *:SOCKOPEN:inf:{
  sockwrite -nt $sockname GET /clans/ml.php?clan= $+ %ml HTTP/1.1
  sockwrite -nt $sockname Host: www.runehead.com
  sockwrite -nt $sockname $crlf
}

on *:SOCKREAD:inf:{
  if ($sockerr) { halt }
  else {
    var %sock
    sockread %sock
    if (*<li><b>Total Members:</b>*</li>* iswm %sock) {
      tokenize 32 %sock
    set %tot $htmlfree($gettok(%sock,3,32)) }
    if (*<li><b>Average Combat:</b>*</li>* iswm %sock) {
      tokenize 32 %sock
    set %cmb $htmlfree($gettok(%sock,3,32)) }
    if (*<li><b>Average Hitpoints:</b>*/li>* iswm %sock) {
      tokenize 32 %sock
    set %hp $htmlfree($gettok(%sock,3,32)) }
    if (*<li><b>Stats Last Updated:</b>*/li>* iswm %sock) {
      tokenize 32 %sock
    set %date $htmlfree($gettok(%sock,4-7,32)) }
    if (*<li class='gap'><b>Average Overall:</b>*</li>* iswm %sock) {
      tokenize 32 %sock
    set %over $htmlfree($gettok(%sock,4,32)) }
    if (*<li><b>Stats Last Updated:</b>*</li>* iswm %sock) {
      tokenize 32 %sock 
    set %date $htmlfree($gettok(%sock,4-8,32)) }
    if (*<p><b>F2P or P2P: </b>*</p>* iswm %sock) {
      tokenize 32 %sock 
      if ($htmlfree($gettok(%sock,4-6,32)) == F2P &amp; P2P) { set %bas F2p & P2p }
      else { set %bas $htmlfree($gettok(%sock,4-5,32)) } 
    }
    if (*<p><b>Time Base: </b>*</p>* iswm %sock) {
      tokenize 32 %sock
    set %time $htmlfree($gettok(%sock,3,32)) }
    if (*<p><b>Cape Colour: </b>*</p>* iswm %sock) {
      tokenize 32 %sock
    set %cape $htmlfree($gettok(%sock,3-4,32)) }
    if (*<p><b>Home World: </b>* iswm %sock) {
      tokenize 32 %sock
    set %hw $htmlfree($gettok(%sock,3-4,32)) }
    if (*<p><b>Clan Initials: </b>*</p>* iswm %sock) {
      tokenize 32 %sock
    set %ini $htmlfree($gettok(%sock,3-4,32)) }
    if (*<p><b>Website: </b><a href='*'* iswm %sock) {
      tokenize 32 %sock
    set %site $gettok($gettok(%sock,3,32),2,39) } 
    if (*<td colspan='20'>*:: Memberlist </td>* iswm %sock) {
      tokenize 32 %sock
      set %clan $remove($htmlfree($gettok(%sock,2-,32)),$chr(58)) 
      %outp $c2(Info about) $c1(%clan) $+ $c1(:)
      %outp $c2(Total members:) $c1(%tot) $c2(Cmb Avarage:) $c1(%cmb) $c2(Hp average:) $c1(%hp) $c2(Overall average:) $c1(%over) $c2(F2p or P2p:) $c1(%bas) $c2(Time base:) $c1(%time) $c2(Cape colour:) $c1(%cape) $c2(Home world:) $c1(%hw) $c2(Clan initials:) $c1(%ini) $c2(Site:) $c1(%site) $c2(Last updated:) $c1(%date)
      %outp $c2(Memberlist link:) $c1(www.runehead.com/clans/ml.php?clan= $+ %ml )
      sockclose inf
      unset %tot %cmb %hp %over %bas %time %cape 
      unset %hw %ini %site %date %outp %clan %ml %list
    }
  }
}


alias clan { 
  if ($regex($1-,/rsd|runescape dinasty/i)) return rsdinasty
  if ($regex($1-,/rdc|red devil clan/i)) return rdcml
  if ($regex($1-,/ag(gression)?/i)) return aggression
  if ($regex($1-,/di|damage incorporated/i)) return diml
  if ($regex($1-,/df|divine forces/i)) return dfofficial
  if ($regex($1-,/tt|the titans/i)) return titans
  if ($regex($1-,/tc|cor(r)?|the corruption/i)) return corr
  if ($regex($1-,/tmrd|the mighty red dragons/i)) return tmrd
  if ($regex($1-,/trwf|the runescape warhungers federation/i)) return timikp
  if ($regex($1-,/rot|reign of terror/i)) return rs_rot
  if ($regex($1-,/luna(gang)?/i)) return rsluna
  if ($regex($1-,/eos|echo of silence/i)) return eoslist
  if ($regex($1-,/rr|rune raiders/i)) return runer
  if ($regex($1-,/lf|lithuanian forces/i)) return lfclan
  if ($regex($1-,/vr|violent resolution/i)) return vr_ml
  if ($regex($1-,/col(lision)?/i)) return rscol
  if ($regex($1-,/ti|tha inforcerz/i)) return thainforcerz
  if ($regex($1-,/g(lad(s|z))?|the gladiator(s|z)?/i)) return gladiatorz
  if ($regex($1-,/exer(citum)?/i)) return rsexer
  if ($regex($1-,/nl|no limit/i)) return nolimit
  if ($regex($1-,/ni|noobs incorporated/i)) return pitbull
  if ($regex($1-,/eh|eternal honour/i)) return eh_staff

}

alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) | return %x }