On Join Info for Torn

on *:JOIN:#: {
  if ($botonlyh == on) && ($botonlynick != $me) halt
  if ($read(ids.txt,s,$iif($2,$2,$nick))) || ($2 isnum) { name_test $iif($2 isnum,$2,$read(ids.txt,s,$iif($2,$2,$nick))) # $iif($2 isnum,$2,$read(ids.txt,s,$iif($2,$2,$nick))) }
  else { msg $chan 3There is no ID saved for $iif($2,$2,$nick) $+ ! }
}
alias name_test {
  var %ticks = $ticks
  sockopen $+(name_test,%ticks) www.torn.com 80
  sockmark $+(name_test,%ticks) $1-
}
on *:SOCKOPEN:name_test*:{
  sockwrite -nt $sockname GET /profiles.php?XID= $+ $gettok($sock($sockname).mark,3,32) HTTP/1.1
  sockwrite -nt $sockname Host: www.torn.com
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:name_test*: {
  var %tcread | sockread %tcread
  if ($regex(%tcread,/<font class="level">Rank<\/font><br><font size="3" color="#ffffff">(.+?)<\/font>/i)) hadd -m $sockname rank $regml(1)
  if ($regex(%tcread,/<font class="level">Rank<\/font><br><a href=halloffame.php?step=rank><font size="3" color="#ffffff">(.+?)<\/font><\/a>/i)) hadd -m $sockname rank $regml(1)
  if ($regex(%tcread,/<font class="level">Rank<\/font><br><a href=halloffame.php?step=rank><span class="rankSmall">(.+?)<\/span><\/a>/i)) hadd -m $sockname rank $regml(1)
  if ($regex(%tcread,/<font class="level">Rank<\/font><br><span class="rankSmall">(.+?)<\/span>/i)) hadd -m $sockname rank $regml(1)
  if ($regex(%tcread,/<font color=#505050>Name:<\/font> <font color=(.+?)><b>(.+?)<\/b><\/font>/i)) hadd -m $sockname name $regml(2)
  if ($regex(%tcread,/<font class="level">Level<br><font (.+?)>(.+?)</font></font>/i)) hadd -m $sockname level $regml(2)
  if ($regex(%tcread,/<font class="level">Age<\/font><br>(\S+)\s+<\/td>/i)) hadd -m $sockname age $regml(1)
  if ($regex(%tcread,/<font color=#505050>Life:<\/font> (.+?)<br>/i)) hadd -m $sockname life $regml(1)
  if ($regex(%tcread,/<font color=#505050>Faction: <\/font>(.+?)<br>/i)) hadd -m $sockname fac $regml(1)
  if ($regex(%tcread,/<font color=#505050>Last action:<\/font>(.+?)<br>/i)) hadd -m $sockname last $regml(1)
  if ($hget($sockname,status)) {
    .msg $gettok($sock($sockname).mark,2,32) 10 $+  Name: 6 $hget($sockname,name) 10 (Level: 6 $hget($sockname,level) $+ , 10Age: 6 $hget($sockname,age) $+ , 10Faction: 6 $hget($sockname,fac) $+ , 10Life: 6 $hget($sockname,life) $+ , 10Rank: 6 $hget($sockname,rank) $+ , 10Status: 6 $hget($sockname,status) $+ , 10Last Action: 6 $hget($sockname,last)) $+ )
    ;.msg $gettok($sock($sockname).mark,2,32) 3Attack $hget($sockname,name) $+ : $+(http://www.torn.com/attack.php?PID=,$gettok($sock($sockname).mark,3,32),&refreshcode=666)
    hfree $sockname
    ;change colour by changing 3 to something xD
    sockclose $sockname
  }
  if ($regex(%tcread,/<div id="statusText">/)) {
    var %tcread | sockread %tcread
    if ($regex(%tcread,/<font color=#(.+?)>(.+?)<\/font>/i)) {
      var %x = $regml(2)
      if (* is currently okay iswm %x) hadd -m $sockname status Okay
      elseif ($regex(%x,/In (hospital|jail) for (.+?) <br>(.+)/i)) hadd -m $sockname status In the $lower($regml(1)) for $regml(2) ( $+ $regsubex($ticks,$remove($hhfree($regml(3)),.),/^\s+(.+)/,\1) $+ )
      elseif ($regex(%x,/Currently traveling on a plane<br>/i)) hadd -m $sockname status Travelling
      else hadd -m $sockname status $hhfree($replace(%x,<br>,$chr(32)))
    }
  }
}
on *:SOCKCLOSE:name_test*:{
  if ($hget($sockname)) hfree $sockname
}
alias -l hhfree return $replace($regsubex($+($ticks,$r(1,1000)),$regsubex($ticks,$1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null),/(\d+);/g,$chr(\1)), ,$chr(32),",",&,&)