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,",",>,>,<,<,&,&, ,$chr(160)),?,$chr(9))
} |