Id: 10650; Nick: Daveoh; Timestamp: 2008-05-16 12:47:44; Pasted as: mIRC
Description: n/a 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52

on *:text:!stats *:#:{
  set %y.chan $chan
  outwarstats $2-
}
alias outwarstats {
  unset %N %ymsg 
  set %ymsg $iif(%y.chan,msg %y.chan,echo -a)
 
  if ($sock(outwarstats)) {
    %ymsg Please wait until the search has been completed.
    halt
  }
  set %y.words $replace($$1-,$chr(32),+)
  sockopen outwarstats torax.outwar.com 80
}
on *:SOCKOPEN:outwarstats: {
  sockwrite -nt $sockname GET /profile.php?transnick= $+ %y.words HTTP/1.1
  sockwrite -nt $sockname Host: torax.outwar.com
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:outwarstats: {
  if ($sockerr) {
    %ymsg Socket Error: $sockerr
    sockclose $sockname
    unset %y.* %N %ymsg
  }
  else {
    var %x
    sockread %x
    if ($regex(%x,/Cannot find profile/i)) {
      %ymsg The search for $qt( $+ $replace(%y.words,+,$chr(32)) $+ ) returned no results.
      sockclose $sockname
      unset %y.* %N %ymsg
    }
 
    if ($regex(%x,/<a href="(\/crew_profile\.php\?id=\d+)">(.+?)<\/a>/i)) {
      set %y.crew $regml(2)
      inc %N
      msg %y.chan 6* Level: $htmlfree(%y.class) 6* Crew: %y.crew
      if (%N == 1) {
        sockclose $sockname
        unset %y.* %N %ymsg
      }
    }
    if ($regex(%x,/<font size="2">Level (.+)</font>/i)) set %y.class $regml(1)
  }
}
alias htmlfree { 
  var %a,%b
  %b = $regsub($1,/[^<]*>|<[^>]*>|<[^>]*/g,$chr(32),%a)
  return $remove($replace(%a,&quot;,",&gt;,>,&lt,<,&amp;,&,&nbsp;,$chr(160)),?,$chr(9))
}
Parsed for bracket errors and indented: 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52

on *:text:!stats *:#:{
  set %y.chan $chan
  outwarstats $2-
}
alias outwarstats {
  unset %N %ymsg
  set %ymsg $iif(%y.chan,msg %y.chan,echo -a)
 
  if ($sock(outwarstats)) {
    %ymsg Please wait until the search has been completed.
    halt
  }
  set %y.words $replace($$1-,$chr(32),+)
  sockopen outwarstats torax.outwar.com 80
}
on *:SOCKOPEN:outwarstats: {
  sockwrite -nt $sockname GET /profile.php?transnick= $+ %y.words HTTP/1.1
  sockwrite -nt $sockname Host: torax.outwar.com
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:outwarstats: {
  if ($sockerr) {
    %ymsg Socket Error: $sockerr
    sockclose $sockname
    unset %y.* %N %ymsg
  }
  else {
    var %x
    sockread %x
    if ($regex(%x,/Cannot find profile/i)) {
      %ymsg The search for $qt( $+ $replace(%y.words,+,$chr(32)) $+ ) returned no results.
      sockclose $sockname
      unset %y.* %N %ymsg
    }
 
    if ($regex(%x,/<a href="(\/crew_profile\.php\?id=\d+)">(.+?)<\/a>/i)) {
      set %y.crew $regml(2)
      inc %N
      msg %y.chan 6* Level: $htmlfree(%y.class) 6* Crew: %y.crew
      if (%N == 1) {
        sockclose $sockname
        unset %y.* %N %ymsg
      }
    }
    if ($regex(%x,/<font size="2">Level (.+)</font>/i)) set %y.class $regml(1)
  }
}
alias htmlfree {
  var %a,%b
  %b = $regsub($1,/[^<]*>|<[^>]*>|<[^>]*/g,$chr(32),%a)
  return $remove($replace(%a,&quot;,",&gt;,>,&lt,<,&amp;,&,&nbsp;,$chr(160)),?,$chr(9))
}
Options: New, Download,
, mIRC Parser;
Copyright © 2006 by Zyberdog - Some rights reserved. (Browse/Disclaimer/Stats/About)