on *:connect: {
;Timer til at checke hver 5 min efter en nyhed
.timerGETNeWS 0 300 Get:NEWS
}
alias Get:NEWS:again {
unset %Link.H %Link.M %Link.S
get:news
}
alias Get:NEWS {
;Logo
set %logo 7,0[NeWS]1,0
;Lukker sockets hvis en skulle være åben ved en fejl
sockclose GetNEWS_M
sockclose GetNEWS_H
sockclose GetNEWS_S
;Åbner sockets med 5 sekunders mellemrum så de ikke overskriver hinanden.
sockopen GetNEWS_H www.HLTV.org 80
.timer 1 5 sockopen GetNEWS_M www.myMYM.com 80
.timer 1 10 sockopen GetNEWS_S www.sk-gaming.com 80
}
on *:sockopen:GetNEWS*:{
;Hvad socket er markeret med et bogstav i enden af navnet for at vi kan identificere dem i det videre forløb..
if ($right($sockname,1) = M) {
;Vi henter info fra www.myMYm.com/en/rss/news/cs.xml
sockwrite -n $sockname GET /en/rss/news/cs.xml HTTP/1.1
;/en/archiv.html?game=cs&author=0&after=dd-mm-yyyy&before=dd-mm-yyyy&n_mainnews=0&am p;submit=Filter
sockwrite -n $sockname Host: www.myMYm.com $+ $crlf $+ $crlf
}
if ($right($sockname,1) = S) {
;Vi henter info fra www.sk-gaming.com/rss/news/cs
sockwrite -n $sockname GET /rss/channel/cs HTTP/1.1
sockwrite -n $sockname Host: www.sk-gaming.com $+ $crlf $+ $crlf
}
if ($right($sockname,1) = H) {
;Vi henter info fra www.hltv.org/
sockwrite -n $sockname GET / HTTP/1.1
sockwrite -n $sockname Host: www.hltv.org $+ $crlf $+ $crlf
}
}
on *:sockread:GetNEWS*:{
;Unset %x hvis der skulle være sket en fejl.
unset %x
;henter info fra socket til variable: %x
sockread %x
;Vi bruger markeringen til at identifisere hvilken hjemmeside der læses fra. (M = MyMyM)
if ($right($sockname,1) = M) {
;Vi checker socket efter nogle forskellige dataer og henter den info vi skal bruge som gemmes i %Tekst %Link og %Title og det hele spyttes ud i et window..
if (<title> isin $gettok(%x,1,32)) {
if (%Des) {
set %Title $left($right(%x,-9),-9)
}
}
elseif (<link> isin $gettok(%x,1,32)) {
if (%Des) {
set %Link $left($right(%x,-8),-8)
}
}
elseif (<description> isin $gettok(%x,1,32)) {
if (%Des) {
unset %Des
set %Tekst $left($right(%x,-15),-15)
if (%Link = %Link.M) { goto done1 }
set %Link.M %Link
if (!$window(@CS-NeWS)) { /window -fk0 @CS-NeWS }
aline -p @CS-NeWS %logo www.myMyM.com %logo $time $date %logo
aline -p @CS-NeWS %Logo %Title %Logo %Tekst %logo %Link %logo
aline -p @CS-NeWS 7,0------------------- NeWS @ Patty
:done1
sockclose $sockname
unset %x %link %title %des %tekst
halt
}
else { set -u5 %Des 1 }
}
}
if ($right($sockname,1) = S) {
set %x $remove(%x,![CDATA[)
if (<title> isin $gettok(%x,1,32)) {
if (%Des = 2) {
set %Title $left($right(%x,-11),-11)
}
else { inc %Des 1 }
}
elseif (<link> isin $gettok(%x,1,32)) {
if (%Des = 2) {
set %Link $left($right(%x,-9),-7)
}
}
elseif (<description> isin $gettok(%x,1,32)) {
if (%Des = 2) {
set %Tekst $remove($left($gettok(%x,3,62),-2),"))
if (%Link = %Link.S) { goto done3 }
set %Link.S %Link
if (!$window(@CS-NeWS)) { /window -fk0 @CS-NeWS }
aline -p @CS-NeWS %Logo www.SK-Gaming.com %logo $time $date %logo
aline -p @CS-NeWS %logo %Title %Logo %Tekst %logo %Link %logo
aline -p @CS-NeWS 7,0------------------- NeWS @ Patty
:done3
sockclose $sockname
unset %x %link %title %des %tekst
halt
}
}
}
if ($right($sockname,1) = H) {
if (%Temp.Data >= 1) {
if (!$gettok(%x,16,34)) {
unset %Temp.data
;echo -a INTET
sockclose GetNEWS_H
sockopen GetNEWS_H www.HLTV.org 80
;set %Temp.data 0
halt
}
set %Link $remove($gettok(%x,12,34),amp;)
if (%Link = %Link.H) { goto DONE2 }
set %Link.H %Link
if (!$window(@CS-NeWS)) { /window -fk0 @CS-NeWS }
aline -p @CS-NeWS %Logo www.HLTV.org %logo $time $date %logo
aline -p @CS-NeWS %logo $gettok(%x,16,34) %logo www.HLTV.org $+ %Link %logo
aline -p @CS-NeWS 7,0------------------- NeWS @ Patty
:DONE2
dec %Temp.data
unset %x %link
sockclose $sockname
}
elseif (*<div*class=*newsRight*>* iswm %x) {
set -u5 %Temp.data 1
}
}
unset %x
}