Verry Simple Script If someone has there id added just type !info {nick} or !info {torn id}

On $*:Text:/^(!|@)Info.*/Si:#:{
  if ($($+(%,bot,$chan),2) == 0) { halt }
  if ($($+(%,Torn,$wildsite,$network),2) = 1) { .notice $nick Please wait 6 seconds to trigger this command again. | return }
  else {
    set -u6 $+(%,Torn,$wildsite,$network) 1 
    var %sockname = $+(Torn,$network,$2,$ticks)
    sockopen %sockname www.torn.com 80
    sockmark %sockname $iif($regml(1) == !,.msg $chan,.notice $nick) $2-
  } 
}
on *:sockopen:Torn*:{
  tokenize 32 $sock($sockname).mark 
  if ($sockerr) { $1-2 $sock($sockname).addr is having some technical difficulties. Please wait patiently! }
  else {
    sockwrite -nt $sockname GET $+(/profiles.php?XID=,$iif($3 isnum,$3,$read(ids.txt, sn, $iif($3,$3,$nick)))) HTTP/1.1
    sockwrite -nt $sockname Connection: close1
    sockwrite -nt $sockname Host: $+($sock($sockname).addr,$str($crlf,2))
  }
}
on *:sockread:Torn*:{
  tokenize 32 $sock($sockname).mark 
  if ($sockerr) { $1-2 $sock($sockname).addr is having some technical difficulties. Please wait patiently! }
  else {
    var %a | sockread %a
    if ($regex(%a,/<font color=#505050>Name:<\/font> <font color=(.+?)><b>(.+?)<\/b><\/font>/)) set %TornName $regml(2)
    if ($regex(%a,/<img src='/images/icons/(?:mal|fem)\.png' title='(.+?)'>/)) set %Gender $regml(1)
    if ($regex(%a,/<font class="level">Age</font><br>(.+?)</td>/)) set %TornAge $remove($regml(1),$chr(9))
    if ($regex(%a,/<font class="level">Level<br><font size="6(.+?)color="#ffffff">(.+?)<\/font><\/font>/)) set %TornLevel $regml(2)
    if ($regex(%a,/<font class="level">Rank<\/font><br>(<span class="rankSmall">|<font size="3" color="#ffffff">)(.+?)<\/(span|font)>/)) set %TornRank $regml(2)
    if ($regex(%a,/<font color=#505050>Faction: <\/font>(.+?)<br>/)) set %TornFaction $regml(1)
    if ($regex(%a,/<font color=#505050>Job:<\/font>(.+?)<br>/)) set %TornJob $regml(1)
    if ($regex(%a,/<font color=#505050>Life:<\/font>(.+?)<br>/)) set %TornLife $regml(1)
    if ($regex(%a,/<font color=#505050>Enemies:</font>(.+?)<br>/)) set %TornEnemies $regml(1)
    if ($regex(%a,/<font color=#505050>Friends:</font>(.+?)<br>/)) set %TornFriends $regml(1)
    if ($regex(%a,/<font color=#505050>Forum posts:</font> <a href=forums\.php\?searchword=(.+?)>(.+?)</a>(.+?)<br>/)) set %TornForum $regml(2) $regml(3) 
    if ($regex(%a,/<font color=#505050>Property:<\/font>(.+?)<font color=#505050>/)) set %TornProperty $hhfree($regml(1)) 
    if ($regex(%a,/<font color=#505050><br>Marital Status:</font>(.+?)<br>/)) set %TornMarital $hhfree($regml(1))
    if ($regex(%a,/<font color=#505050>Last action:<\/font>(.+?)<br>/)) set %TornAction $regml(1)
    if (</html> isin %a) {
      $1-2 12 Name: %TornName 6 ( $+ %Gender $+ ,7 Age: %TornAge $+ , 11 Level: %TornLevel $+ ,8 Rank: %TornRank $+ )
      $1-2 9 Faction: %TornFaction $+ ,2 Job: %TornJob $+ ,13 Life: %TornLife $+ , 14 Friends: %TornFriends $+ ,15 Enemies: %TornEnemies
      $1-2 7 Forum Posts: %TornForum $+ , Property: %TornProperty $+ , Marital: %TornMarital $+ , Last Action: %TornAction
    }
  }
}
alias -l hhfree { return $replace($regsubex($regsubex($1-,/<[^>]+>/g,),/&#(\d+);/g,$chr(\1)),&nbsp;,$chr(32),&quot;,") }