On Join Info

Platform: mIRC
Published Jun 12, 2012
Updated Jun 12, 2012
374 0
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),",",&,&)
On Join Info

Comments
