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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
on *:text:!gametrailers*:#eropid:{
;;Floodprotection
sockopen GT www.gametrailers.com 80
;;Floodp 2
}
on *:sockopen:GT:{
sockwrite -n $sockname GET rssgenerate.php?s1=&favplats%5Bpc%5D=pc&vidformat%5Bflv%5D=on&vidformat%5Bwmv%5D=on&type%5Breview%5D=on&type%5Bpreview%5D=on&type%5Binterview%5D=on&type%5Bgameplay%5D=on&type%5Btrailer%5D=on&type%5Bfeature%5D=on&embed=on&quality%5Beither%5D=on&agegate%5Bno%5D=on&orderby=newest&limit=20 HTTP/1.1
sockwrite -n $sockname Host: www.gametrailers.com
sockwrite -n $sockname Connection: Keep-Alive
sockwrite -n $sockname $crlf
}
on *:sockread:GT:{
if ($sockerr > 0) return
:GAMET
sockread %GT
if ($sockbr == 0) return
if (%GT == $null) %GT = -
if (<pubDate> isin %GT) {
set %GTDate %GT
%GTDate = $replace(%GTDate,<pubDate>, ,</pubDate>, )
sockread %GT
sockread %GT
set %GTTitle %GT
%GTTitle = $replace(GTTitle,<exInfo:movieTitle>, ,</exInfo:movieTitle>, )
sockread %GT
set %GTGame %GT
%GTGame = $replace(%GTGame,<exInfo:gameName>, ,</exInfo:gameName>, )
sockread %GT
sockread %GT
set %GTLink %GT
%GTLink = $replace(%GTLink,<exInfo:gameURL>, ,</exInfo:gameURL>, )
msg %kanal %GTDate $+ : %GTGame - %GTTitle - %GTLink
sockclose GT
set %GTSOCK 0
halt
}
else {
if (%GTSOCK > 500) {
msg %kanal ERROR: sock is above 500, halting
sockclose GT
set %GTSOCK 0
halt
}
else {
if (</rss> isin %GT) {
msg %kanal ERROR No results found, closing socket
sockclose GT
set %GTSOCK 0
halt
}
else {
inc %GTSOCK
GOTO GAMET
}
}
}
}
|