Stuff

[script]
n0=on *:TEXT:!OW*:#: {
n1=  if (!$regex($2,(S|s)igil|(T|t)orax|(F|f)abar|(Z|z)imbob)) || (!$3) { halt }
n2=  sockopen outwar $+($lower($regml(1)),.outwar.com) 80
n3=  sockmark outwar $2- $chan
n4=}
n5=on *:SOCKOPEN:outwar: {
n6=  var %s = sockwrite -n $sockname
n7=  %s GET $+(/profile.php?transnick=,$gettok($sock($sockname).mark,2,32)) HTTP/1.1
n8=  %s Host: $+($gettok($sock($sockname).mark,1,32),.outwar.com)
n9=  %s Connection: close
n10=  %s $crlf
n11=}
n12=on *:SOCKREAD:outwar: {
n13=  var %a
n14=  sockread -f %a
n15=  if ($+(%s.exp,%s.cl,%s.gr,%s.gu,%s.pa,%s.un,%s.cr,%s.mn)) {
n16=    var %r = $iif(%s.pa,$gettok(%a,5,60),$gettok(%a,4,60))
n17=    var %r = $gettok(%r,2,62)
n18=    set %s $+(%s,$chr(42),$+(%s.exp,%s.cl,%s.gr,%s.gu,%s.pa,%s.un,%s.cr,%s.mn) %r)
n19=    unset %s.*
n20=  }
n21=  else {
n22=    if (*size="1">EXPERIENCE</font>* iswm %a) {
n23=      set %s.exp 4»Exp:7
n24=    }
n25=    if (*size="1">CLASS</font>* iswm %a) {
n26=      set %s.cl 4»Class:7
n27=    }
n28=    if (*size="1">Growth Yesterday</font>* iswm %a) {
n29=      set %s.gr 4»Growth Yesterday:7
n30=    }
n31=    if (*size="1">UNDERLING GROWTH YESTERDAY</font>* iswm %a) {
n32=      set %s.gu 4»Underling Growth Yesterday:7
n33=    }
n34=    if (*>MONEY</b>* iswm %a) {
n35=      set %s.mn 4»Money:7
n36=    }
n37=    if (*size="1">PARENT</font>* iswm %a) {
n38=      set %s.pa 4»Parent:7
n39=    }
n40=    if (*href="followers.php?id=*>UNDERLINGS</a>* iswm %a) {
n41=      set %s.un 4»Underlings:7
n42=    }
n43=    if (*<a href="/crewprofile.php?id=* iswm %a) {
n44=      var %r = $gettok(%a,4,60)
n45=      %r = $gettok(%r,2,62)
n46=      set %s.cr 4»Crew:7 %r
n47=    }
n48=    if (*<a href="aim:goim?screenname=* iswm %a) {
n49=      var %r = $gettok(%a,2,60)
n50=      %r = $gettok(%a,4,60)
n51=      set %s.sn 4»AIM S/N:7
n52=    } 
n53=    if (%s.sn) {
n54=      if (*<td width="50%" bgcolor="#666666"><font size="2">* iswm %a) { halt }
n55=      var %r = $gettok(%a,3,60)
n56=      %r = $replace($gettok(%r,2,62),&lt;,<,&tl;,>)
n57=      set %s $+(%s,$chr(42),%s.sn %r)
n58=      unset %s.sn
n59=    }
n60=
n61=  }
n62=}
n63=on *:SOCKCLOSE:outwar: {
n64=  var %x = $numtok(%s,42),%y = 1
n65=  msg $gettok($sock($sockname).mark,3,32) 4»7 Stats for $gettok($sock($sockname).mark,2,32) on 

$gettok($sock($sockname).mark,1,32) 4«
n66=  while (%y <= %x) {
n67=    .timer 1 1 msg $gettok($sock($sockname).mark,3,32) $gettok(%s,%y,42)
n68=    inc %y
n69=  }
n70=  .timer 1 1 msg $gettok($sock($sockname).mark,3,32) 4»7 End of Stats 4«
n71=  unset %s
n72=}