#german.counterstrike Forum

Counterstriker - 14.03.2004 - 11:30

alias tv {
if ($hget(tv)) { hfree tv | hmake tv }
else { hmake tv }
tokenize 44 $iif($1,$1-,HS)
if (!$window(@tv)) { window -ebl15kvxz @tv Tahoma 9 | addchannel $sender }
else { clear @tv }
if (!$istok($sender,$1,44)) {
aline $color(info) @tv Sender leider nicht gefunden, bitte versuchen sie einen dieser sender:
aline $color(info) @tv   $gettok($sender,1-15,44)
aline $color(info) @tv   $gettok($sender,16-30,44)
aline $color(info) @tv   $gettok($sender,31-45,44)
aline $color(info) @tv   $gettok($sender,46-60,44)
return
}
hadd tv sender $replace($1,$chr(32),+)
tv.get
}
menu @tv {
dclick:{
tv $gettok($sender,$1,44)
}
}
alias -l sender { return ARD,ZDF,RTL,SAT.1,PRO 7,KABEL 1,HS,RTL 2,S-RTL,ARTE,NEUNLIVE,VOX,3SAT,RS,NDR,WEST,BAYERN,MDR,HESSEN,SW III,TV BERLIN,TVNRW,MUNCHEN,HH1,SFB1,ORB,FAB,HR,MTV,MTV2,VIVA,VIVAPLUS,PREMIERE,DSF,E-SPORT,N-TV,N24,E-NEWS,KINDER KANAL,PHOENIX,TELE5,XXP,AU,CNN,NBC,BBCWORLD,FRANCE 2,FR3,TV5,TF1,ORF1,ORF2,DK1,DK2,SF1,SF2,NL1,NL2,NL3,TRT }
alias -l addchannel { tokenize 44 $1- | aline -l $color(info) @tv $* }
alias -l tv.get {
sockclose tv
sockopen tv www.tvtoday.de 80
aline $color(info2) @tv Connecting...
}
on *:sockopen:tv:{
if ($sockerr) {
aline $color(highlight) @TV Error - Can't connect: $sockerr
sockclose $sockname
}
else {
aline $color(info2) @tv Connected - Sending request.
aline $color(whois) @tv $str(-,500)
sockwrite -n tv GET $+(/tv/programm/programm.php?ztag=0&sparte=alle&uhrzeit=Ax,$base($calc($time(HH) -1),10,10,2),&sender=,$hget(tv,sender)) HTTP/1.1
if ($hget(tv)) { hfree tv }
sockwrite -n tv Host: www.tvtoday.de
sockwrite -n tv Connection: Keep-Alive
sockwrite -n tv $crlf
}
}
on *:sockread:tv: {
if ($sockerr) { socketerror $sockname $sockerr | halt }
sockread %tv
if ( <td valign="top" bgcolor="#a8a8a8"><span class="text-grau">*</span></td> iswm %tv) {
set %tv.zeit $gettok($gettok(%tv,3,62),1,60)
}
if ( <td valign="middle" width="476"><span class="headline"><a href="*" TARGET="programm_popup" onclick="openWindowLupeCustom('*', 'programm_popup', 525, 700); return false;"><span class="link-intern"><u>*</u></span></a></span><span class="text"> <i>*</i>*<br></span> iswm %tv) {
set %tv.sendung $gettok($gettok(%tv,6,62),1,60)
set %tv.länge $gettok($gettok($gettok(%tv,12,62),1,60),1,98)
set %tv.showview $right($gettok($gettok(%tv,13,62),1,60),-2)
}
if ( <td valign="middle" width="476"><span class="headline"><span class="headline">*</span></span><span class="text"> <i>*</i>*<br></span> iswm %tv) {
set %tv.sendung $gettok($gettok(%tv,4,62),1,60)
set %tv.länge $gettok($gettok($gettok(%tv,8,62),1,60),1,98)
set %tv.showview $right($gettok($gettok(%tv,9,62),1,60),-2)
}
if ( <span class="text">*</span><br></td> iswm %tv) {
if ($window(@TV)) {
aline $color(info) @TV $+(,%tv.zeit, - ,%tv.sendung,)
aline $color(info) @tv   %tv.länge
if (%tv.showview) { aline $color(info) @tv   $ifmatch }
if ($remove($gettok($gettok(%tv,2,62),1,60),$chr(32))) {
var %info = $gettok($gettok(%tv,2,62),1,60),%i = 0,%x = $numtok(%info,183)
while (%i < %x) {
inc %i
aline $color(info2) @tv   $gettok(%info,%i,183)
}
}
aline $color(whois) @tv $str(-,500)
}
}
}
on *:sockclose:tv: {
aline $color(info2) @tv Connection closed.
unset %tv*
}