Bundesliga Spieltag im IRC...

[HagbardCeline]

Hi Leute,

es gab ja hier mal den Thread wegen nem Bundesliga Bot leider ist der gschlossen aber ich könnte mal eure hilfe gebrauchen. Und zwar habe ich hier ein Script welches ich sehr schön finde, welches aber leider für mIRC ist.

************************************
*
* FUSSBALL v2.0 ©daGroove...
*
************************************


on *:sockopen:fb: { 
  if (!$sockerr) {
    sockwrite -n $sockname GET $iif(%fb_t,/bliga/spiel.php?art=e&liga=bl $+ %fb_l $+ m&saison=04&saisonl=2004&lang=D&spieltag= $+ %fb_t,/bliga/spiel.php?liga=bl $+ %fb_l $+ m&art=e&saison=04&saisonl=2004&lang=D) HTTP/1.1 
    sockwrite -n $sockname HOST: www.dfb.de 
    sockwrite -n $sockname $crlf 
  } 
}

on *:sockread:fb: { 
  $event %fb_temp
  if ($regex(%fb_temp,/<tr><td VALIGN=.* COLSPAN=.*><font size=.* face=.*><b>(.*)</b></font></td></tr>/)) { msg %fb_ch $+(9,%fb_l,.) bundesliga $regml(1) }
  if ($regex(%fb_temp,/.*<font size=.* face=.*>(.*)</td>.*<font size=.* face=.*>(.*)</td>.*<font size=.* face=.*>(.*)</td>.*<font size=.* face=.*>(.*)</td>.*<a href=(.*)>.*</a></font></td></tr>/)) {
    .timer.fb $+ %fb_i 1 %fb_i msg %fb_ch 9 $regml(1) 11 $regml(2) 9 $regml(3) 11 $regml(4) | inc %fb_i 1
  }
}

alias -l fb { sockclose fb | sockopen fb www.dfb.de 80 }

on *:text:!fb*:#:{
  if ($2) && ($3) && (!$4) { unset %fb* | set %fb_i 1 | set %fb_l $2 | set %fb_t $3 | set %fb_ch $chan | fb }
  elseif ($2) && (!$3) { unset %fb* | set %fb_i 1 | set %fb_l $2 | set %fb_ch $chan | fb }
  else { msg $chan 10fussball v2.0 14©daGroove... 11tippe:9 !fb <bl1/bl2> <spieltag> (spieltag optional) }
}

Ausgabe: http://www.grooves-welt.de/addons/fb.html

Dieses Script würde ich gerne als tcl haben aber leider habe ich gar keinen plan von tcl.

Meine Frage gibt es vielleicht jemanden der das kann? - Würde mich sehr sehr freuen...

mfg HagbardCeline