;*Fussball
on *:SOCKOPEN:fussball: { 
  sockwrite -n $sockname GET /de/fussball/spielplan/ $+ %fb.l $+ %fb $+ / $+ %fb.tag $+ .html HTTP/1.1
  sockwrite -n $sockname Host: buli.rtl.de
  sockwrite -n $sockname $crlf
}

on *:SOCKREAD:fussball: {
  sockread &temp 
  bwrite temp.txt -1 -1 &temp
}

on *:SOCKCLOSE:fussball: {
  set %fb.x 1
  while (%fb.x <= $lines(temp.txt)) {
    if ( - Spieltag isin $read(temp.txt,%fb.x)) {
      set %fb.spt $read(temp.txt,%fb.x))
    }
    if (<td class="rowbright" isin $read(temp.txt,%fb.x)) && (<a class="nav_d" !isin $read(temp.txt,%fb.x)) {
      write temp2.txt $wildtok($gettok($read(temp.txt,%fb.x),1,60),*,2,62)
    }
    if (<td class="rowdark" isin $read(temp.txt,%fb.x)) {
      write temp2.txt $wildtok($gettok($read(temp.txt,%fb.x),1,60),*,2,62)
    }
    if (<a class="teaserlink" isin $read(temp.txt,%fb.x)) {
      write temp2.txt $wildtok($gettok($read(temp.txt,%fb.x),1,60),*,2,62)
    }
    elseif ($len($read(temp.txt,%fb.x)) == 3) && ($chr(58) isin $read(temp.txt,%fb.x)) {
      write temp2.txt $read(temp.txt,%fb.x)
    }
    inc %fb.x 1
  }
  set %fb.ausgabe1 11,1[ $read(temp2.txt,1) $+  * $read(temp2.txt,2) $+ Uhr ] $chr(160) $read(temp2.txt,3) $read(temp2.txt,4) $read(temp2.txt,5)
  set %fb.ausgabe2 11,1[ $read(temp2.txt,6) $+  * $read(temp2.txt,7) $+ Uhr ] $chr(160) $read(temp2.txt,8) $read(temp2.txt,9) $read(temp2.txt,10)
  set %fb.ausgabe3 11,1[ $read(temp2.txt,11) $+  * $read(temp2.txt,12) $+ Uhr ] $chr(160) $read(temp2.txt,13) $read(temp2.txt,14) $read(temp2.txt,15)
  set %fb.ausgabe4 11,1[ $read(temp2.txt,16) $+  * $read(temp2.txt,17) $+ Uhr ] $chr(160) $read(temp2.txt,18) $read(temp2.txt,19) $read(temp2.txt,20)
  set %fb.ausgabe5 11,1[ $read(temp2.txt,21) $+  * $read(temp2.txt,22) $+ Uhr ] $chr(160) $read(temp2.txt,23) $read(temp2.txt,24) $read(temp2.txt,25)
  set %fb.ausgabe6 11,1[ $read(temp2.txt,26) $+  * $read(temp2.txt,27) $+ Uhr ] $chr(160) $read(temp2.txt,28) $read(temp2.txt,29) $read(temp2.txt,30)
  set %fb.ausgabe7 11,1[ $read(temp2.txt,31) $+  * $read(temp2.txt,32) $+ Uhr ] $chr(160) $read(temp2.txt,33) $read(temp2.txt,34) $read(temp2.txt,35)
  set %fb.ausgabe8 11,1[ $read(temp2.txt,36) $+  * $read(temp2.txt,37) $+ Uhr ] $chr(160) $read(temp2.txt,38) $read(temp2.txt,39) $read(temp2.txt,40)
  set %fb.ausgabe9 11,1[ $read(temp2.txt,41) $+  * $read(temp2.txt,42) $+ Uhr ] $chr(160) $read(temp2.txt,43) $read(temp2.txt,44) $read(temp2.txt,45)
  notice %fb.chan 8,1 %fb.spt  
  notice %fb.chan $replace($remove(%fb.ausgabe1,&nbsp;),&#58;,:)
  .timer.fb.1 1 1 notice %fb.chan $replace($remove(%fb.ausgabe2,&nbsp;),&#58;,:) 
  .timer.fb.2 1 2 notice %fb.chan $replace($remove(%fb.ausgabe3,&nbsp;),&#58;,:)
  .timer.fb.3 1 3 notice %fb.chan $replace($remove(%fb.ausgabe4,&nbsp;),&#58;,:)
  .timer.fb.4 1 4 notice %fb.chan $replace($remove(%fb.ausgabe5,&nbsp;),&#58;,:) 
  .timer.fb.5 1 5 notice %fb.chan $replace($remove(%fb.ausgabe6,&nbsp;),&#58;,:)
  .timer.fb.6 1 6 notice %fb.chan $replace($remove(%fb.ausgabe7,&nbsp;),&#58;,:) 
  .timer.fb.7 1 7 notice %fb.chan $replace($remove(%fb.ausgabe8,&nbsp;),&#58;,:) 
  .timer.fb.8 1 8 notice %fb.chan $replace($remove(%fb.ausgabe9,&nbsp;),&#58;,:) 
  .remove temp2.txt
  .remove temp.txt
  unset %fb*
}

on *:text:!fussball*:#:{
  if ( %modul_fussball == ein) {
    if ($2 == 1) || ($2 == 2) && (!$3) {
      set %fb.l buli
      set %fb.tag index
      set %fb $2
      set %fb.chan $nick
      sockopen fussball buli.rtl.de 80
    }
    elseif ($2 == 1) || ($2 == 2) && ($3) && (!$4) {
      set %fb.l buli
      set %fb.tag $3
      set %fb $2
      set %fb.chan $nick
      sockopen fussball buli.rtl.de 80
    }
    elseif ($2 == reg-n) || ($2 == reg-s) && (!$3) {
      set %fb.l $iif($2 == reg-n,rln,rls)
      set %fb.tag index
      set %fb.chan $nick
      sockopen fussball buli.rtl.de 80
    }
    elseif ($2 == reg-n) || ($2 == reg-s) && ($3) {
      set %fb.l $iif($2 == reg-n,rln,rls)
      set %fb.tag $3
      set %fb.chan $nick
      sockopen fussball buli.rtl.de 80
    }
    else {
      notice $nick 11,1Tippe !fussball 8,1[Bundesliga (1 oder 2) * Regionalliga (reg-n oder reg-s) * Spieltag (optional)] 
    }
  }
}
;*Fussball ende

;*Heise News
;on *:connect:{
;  if (!timer(.heise)) { .timer.heise 0 120 heise }
;}
on *:TEXT:!heise:#: { 
  if ( %modul_heise == ein) {
    heise
  }
}
alias heise {
  set %heise_chan $chan
  set %heise_nick $nick
  sockclose heise
  sockopen heise www.heise.de 80
}

on *:SOCKOPEN:heise {
  if (!$sockerr) {
    sockwrite -n heise GET /newsticker/heise.rdf HTTP/1.0
    sockwrite -n heise Host: www.heise.de
    sockwrite -n heise $crlf
  }
}

on *:SOCKREAD:heise {
  if (!$sockerr) {
    sockread %heise.temp
    if (*<title>*</title>* iswm %heise.temp) { write heise.txt $gettok($gettok(%heise.temp,2,60),2,62) }
    if (*<link>*</link>* iswm %heise.temp) { write heise.txt $gettok($gettok(%heise.temp,2,60),2,62) }
    .timer 1 3 sockclose heise
  }
}

on *:sockclose:heise: {
  if (%new.heise != $read(heise.txt,3)) { 
    set %heise2 11,1[HEISE]8 $read(heise.txt,3) 11,1*15  $+ $read(heise.txt,4) 
    set %new.heise $read(heise.txt,3)
    notice %heise_nick %heise_chan %heise2
  }
  else { notice %heise_nick %heise_chan 11,1Keine 8neuen News11 seit der letzten Anfrage. }
  write -c heise.txt
  unset %heise*
  unset %heise_nick
  unset %heise_chan
}
;*Heise News Ende

;* Mondgesicht
on *:text:*:#: {
  if ($gettok(%mondgesicht,1,44) == 1) {
    if ($1- == $chr(46)) {
      if (!$gettok(%mondgesicht,2,44)) && ( $nick != %mondnick1 ) && ( $nick != %mondnick2 ) && ( $nick != %mondnick3 ) && ( $nick != %mondnick4 ) {
        set %mondgesicht $+(%mondgesicht,$chr(44),1,$chr(44),$nick)
        msg $chan Oh da will jemand ein Mondgesicht anfangen...
        set %mondchan $chan
        set %mondnick1 $nick
        unset %mondnick2
        unset %mondnick3
        unset %mondnick4
      }
      elseif ($gettok(%mondgesicht,2,44) == 1) && ( $nick != %mondnick1 ) && ( $chan == %mondchan ) {
        set %mondgesicht $+($gettok(%mondgesicht,1,44),$chr(44),2,$chr(44),$addtok($gettok(%mondgesicht,3,44),$nick,44))
        msg $chan Jetzt wirds mir zu bunt! Macht das ihr mal fertig werdet, also wo bleibt das Komma?
        set %mondnick2 $nick
      }
    }
    elseif ($1- == $chr(44)) && ( $nick != %mondnick1 ) && ( $nick != %mondnick2 ) && ( $chan == %mondchan ) {
      if ($gettok(%mondgesicht,2,44) == 2) {
        set %mondgesicht $+($gettok(%mondgesicht,1,44),$chr(44),3,$chr(44),$addtok($gettok(%mondgesicht,3-,44),$nick,44))
        msg $chan Ja aber hallo, geht langsam aber sicher vorran!!
        set %mondnick3 $nick
      }
    }
    elseif ($1- == $chr(45)) && ( $nick != %mondnick1 ) && ( $nick != %mondnick2 ) && ( $nick != %mondnick3 ) && ( $chan == %mondchan ) {
      if ($gettok(%mondgesicht,2,44) == 3) {
        msg $chan Punkt, Punkt, Komma, Strich, fertig ist das Mondgesicht! Hat auch lange genug gedauert! Mondgesicht erstellt von:14 $addtok($gettok(%mondgesicht,3-,44),$nick,44) 
        set %mondgesicht $gettok(%mondgesicht,1,44)
        set %mondnick4 $nick
        unset %mondchan
      }
    }
  }
  elseif ( $1 == !mondgesicht ) {
    if ($2 == on) {
      if ($gettok(%mondgesicht,1,44) == 1) { notice $nick Mondgesicht ist bereits angeschaltet }
      else { set %mondgesicht 1 | msg $chan Mondgesicht 4xFx turned 3on. }
    }
    elseif ($1 == aus) {
      if ($gettok(%mondgesicht,1,44) == 0) { notice $nick Mondgesicht ist bereits ausgeschaltet }
      else { set %mondgesicht 0 | msg $chan Mondgesicht 4xFx turned 3off. }
    }
    else { notice $nick Mondgesicht: Überprüfe deine Angaben }
  }
}
on 1:NICK: {
  if ( $nick == %mondnick1 ) { set %mondnick1 $newnick }
  elseif ( $nick == %mondnick2 ) { set %mondnick2 $newnick }
  elseif ( $nick == %mondnick3 ) { set %mondnick3 $newnick }
  elseif ( $nick == %mondnick4 ) { set %mondnick4 $newnick }
}
;*Ende Mondgesicht
