on 1:QUIT: { 
  if ($1- == excess flood) { 
    inc %quitban
    timer 1 3 unset %quitban
  }
  if (%quitban == 3) {
    ban # $nick 2
  }
}
on *:load: {
  set %quiz.channel #quiz
  set %quizzeit 19
  set %quizcolor 11,1
  set %quizcolorfrage 8,1
  set %quizcolorfrage1 11,1
  set %quizhinweis 9,1
  set %quizinfo 1,15
  set %quizinfotext 4,15
  set %quiz.start 01.04.2006
  set %quit.zeit 15:00:00
  set %quiz.hp n/a
  set %autotipzeit 4
  set %mindestquizuser 1
  set %neuefragenicks Bandy Frank
  set %stopnicks Bandy Frank
  set %startnicks Bandy Frank
}

dialog quiz.optionen {
  title Quiz Optionen - %bsver
  size -1 -1 530 330
  edit "" ,1, 5 25 480 20,autohs
  edit "" ,6, 5 70 100 20,autohs
  edit "" ,15, 5 115 70 20,autohs
  edit "" ,18, 80 115 70 20,autohs
  edit "" ,20, 155 115 70 20,autohs
  edit "" ,22, 230 115 70 20,autohs
  edit "" ,24, 305 115 70 20,autohs
  edit "" ,26, 380 115 70 20,autohs
  edit "" ,44, 455 115 70 20,autohs
  edit "" ,36, 5 230 480 20,autohs
  edit "" ,38, 5 185 480 20,autohs
  edit "" ,41, 110 140 375 20,autohs
  button "Sek." ,17, 110 70 70 20,autohs
  button "Ändern" ,28, 185 70 70 20,autohs
  button "Ändern" ,29, 260 70 70 20,autohs
  button "Zeigen" ,30, 335 70 70 20,authos
  button "Zeigen" ,31, 410 70 70 20,authos
  text "Op-Nicks die neue Fragen auslösen dürfen [!neuefrage]" ,5, 5 5 300 15
  text "Op-Nicks die das Quiz stoppen dürfen [!stop]" ,37, 5 210 300 15
  text "Op-Nicks die das Quiz starten dürfen [!start]" ,39, 5 165 300 15
  text "Quiz-Homepage =>" ,40, 5 142 100 15
  text "Quiz-Chan eintragen" ,4, 5 50 100 15
  text "Neue Frage in" ,16, 110 50 70 15
  text "Grund Farbe" ,14, 5 95 70 15
  text "Frage Farbe" ,19, 80 95 70 15
  text "2.Frage Farbe" ,21, 155 95 70 15
  text "Hinweis Farbe" ,23, 230 95 70 15
  text "Startdatum" ,25, 305 95 70 15
  text "Startzeit" ,27, 380 95 70 15
  text "AutoTippZeit" ,43, 455 95 70 15
  text "Quiz-Fragen" ,32, 190 50 70 15
  text "News-Info" ,33, 265 50 70 15
  text "Fehler-Info" ,34, 340 50 70 15
  text "Getränke" ,35, 415 50 70 15
  text "Erstellt von Bandy",9, 5 292 120 30
  text "Nach jedem Nick ein Leerzeichen lassen, ändere die Grundeinstellungen der Farben, und",10, 5 255 480 20
  text "den Quiz-Chan, wo das Quiz laufen soll. Viel Spass als Quiz-Master.",13, 5 275 480 20
  button "OK",2, 350 300 50 20, OK
  button "Abbruch",3, 410 300 50 20, Cancel
}
on *:DIALOG:quiz.optionen:init:0:{
  did -a quiz.optionen 1 %neuefragenicks
  did -a quiz.optionen 6 %quiz.channel
  did -a quiz.optionen 15 %quizcolor
  did -a quiz.optionen 18 %quizcolorfrage
  did -a quiz.optionen 20 %quizcolorfrage1
  did -a quiz.optionen 22 %quizhinweis
  did -a quiz.optionen 24 %quiz.start
  did -a quiz.optionen 26 %quiz.zeit
  did -a quiz.optionen 44 %autotipzeit
  did -a quiz.optionen 36 %stopnicks
  did -a quiz.optionen 38 %startnicks
  did -a quiz.optionen 41 %quiz.hp
}
On *:DIALOG:quiz.optionen:sclick:2:{
  set %neuefragenicks $did(quiz.optionen,1).text
  set %quiz.channel $did(quiz.optionen,6).text
  set %quizcolor $did(quiz.optionen,15).text
  set %quizcolorfrage $did(quiz.optionen,18).text
  set %quizcolorfrage1 $did(quiz.optionen,20).text
  set %quizhinweis $did(quiz.optionen,22).text
  set %quiz.start $did(quiz.optionen,24).text
  set %quiz.zeit $did(quiz.optionen,26).text
  set %autotipzeit $did(quiz.optionen,44).text
  set %stopnicks $did(quiz.optionen,36).text
  set %startnicks $did(quiz.optionen,38).text
  set %quiz.hp $did(quiz.optionen,41).text
}
On *:DIALOG:quiz.optionen:sclick:17:{
  var %zeit = $$?"Nach wievielen Sekunden soll die neue Frage angezeigt werden?" | set %quizzeit $calc( %zeit + 1 -2 )
}
On *:DIALOG:quiz.optionen:sclick:28:{
  /run " $+ $file($mircdir) $+ bandyquiz\fragen.txt"
}
On *:DIALOG:quiz.optionen:sclick:29:{
  /run " $+ $file($mircdir) $+ bandyquiz\news.txt"
}
On *:DIALOG:quiz.optionen:sclick:30:{
  /run " $+ $file($mircdir) $+ bandyquiz\fehler.txt"
}
On *:DIALOG:quiz.optionen:sclick:31:{
  /run " $+ $file($mircdir) $+ bandyquiz\getraenk.txt"
}

alias fehler-text {
  copy -o $scriptdirfehler.txt $scriptdirfehler_nicht_sortiert.txt 
  timer $lines($scriptdirfehler_nicht_sortiert.txt) 0 fehler1-text
}
alias fehler1-text {
  var %nummer = 1
  var %zeile = $read -l $+ %nummer $scriptdirfehler_nicht_sortiert.txt
  var %fragennummer = $mid(%zeile, $calc($pos(%zeile,$chr(32),6) +1), $calc($pos(%zeile,$chr(32),7) - $pos(%zeile,$chr(32),6)) )
  inc %nummer 1
  var %zeile1 = $read -l $+ %nummer $scriptdirfehler_nicht_sortiert.txt
  var %fragennummer1 = $mid(%zeile1, $calc($pos(%zeile1,$chr(32),6) +1), $calc($pos(%zeile1,$chr(32),7) - $pos(%zeile1,$chr(32),6)) )
  if (%fragennummer < fragennummer1) {
    set %endnummer %fragennummer
    set %endzeile %zeile
    set %endzeilennummer 1
    goto ordnen
  }
  if (%fragennummer >= fragennummer1) {
    set %endnummer %fragennummer1
    set %endzeile %zeile1
    set %endzeilennummer %nummer
    goto ordnen
  }
  :ordnen
  if ( %nummer <= $lines($scriptdirfehler_nicht_sortiert.txt)) {
    inc %nummer 1
    var %zeile1 = $read -l $+ %nummer $scriptdirfehler_nicht_sortiert.txt
    var %fragennummer1 = $mid(%zeile1, $calc($pos(%zeile1,$chr(32),6) +1), $calc($pos(%zeile1,$chr(32),7) - $pos(%zeile1,$chr(32),6)) )
    if (%endnummer >= %fragennummer1) {
      set %endnummer %fragennummer1
      set %endzeile %zeile1
      set %endzeilennummer %nummer
      goto ordnen
    }
    else goto ordnen
  }
  else {
    write -dl $+ %endzeilennummer $scriptdirfehler_nicht_sortiert.txt
    write $scriptdirfehlersortiert.txt %endzeile
    echo in Zeile %endzeilennummer 0____  %endzeile
  }
}

alias biersortieren {
  var %biertest = 2
  var %bierbest = $read($scriptdirbier_nicht_sortiert.txt,2)
  var %biernick = $read($scriptdirbier_nicht_sortiert.txt,1)
  var %bier_zeilen-nummer 2
  :test
  if ($lines($scriptdirbier_nicht_sortiert.txt) > %biertest) {
    var %bierjetzt = $read($scriptdirbier_nicht_sortiert.txt,%biertest)
    var %bierjetztnick = $read($scriptdirbier_nicht_sortiert.txt,$calc(%biertest -1))
    if ( %bierbest >= %bierjetzt ) { inc %biertest 2 | goto test }
    if (%bierbest < %bierjetzt ) { 
      set %bierbest %bierjetzt
      set %biernick %bierjetztnick
      set %bier_zeilen-nummer %biertest
      inc %biertest 2 
      goto test
    }
  }
  if ($lines($scriptdirbier_nicht_sortiert.txt) = %biertest) {
    write $scriptdirbier-geordnet.txt %biernick
    write $scriptdirbier-geordnet.txt %bierbest
    echo Zeile %biernick %bierbest
    write -dl $+ %bier_zeilen-nummer $scriptdirbier_nicht_sortiert.txt
    write -dl $+ $calc(%bier_zeilen-nummer -1) $scriptdirbier_nicht_sortiert.txt
  }
}

;Addiren von Bier-Statistiken
alias biertesten { 
  set %datenbank1 $sfile($scriptdir\,Wähle die 1. datei aus)
  set %datenbank2 $sfile($scriptdir\,Wähle die 2. datei aus)
  copy -o %datenbank1 $scriptdirdatenbanken\
  copy -o %datenbank2 $scriptdirdatenbanken\
  set %datenbank1 $scriptdirdatenbanken\ $+ $nopath(%datenbank1)
  set %datenbank2 $scriptdirdatenbanken\ $+ $nopath(%datenbank2)

  hp-bieraddieren
}

alias hp-bieraddieren {
  var %aktuelle_zeile = 1

  ;festlegen der von der addiert wird

  if ( $lines(%datenbank1) > $lines(%datenbank2) ) { 
    var %max_zeile = $lines(%datenbank2) 
    var %auswahl = %datenbank2
    var %auswahl1 = %datenbank1  
  }
  else {  
    var %max_zeile = $lines(%datenbank1) 
    var %auswahl = %datenbank1
    var %auswahl1 = %datenbank2

  }


  ;wenn zeilennummer kleiner gesamtzeilen = schleife
  ;punkte herausfinden aus den jeweiligen datenbanken

  :addieren
  while ( %aktuelle_zeile <= %max_zeile ) {

    var %nick = $read -l1 %auswahl   
    var %zeile = 2
    var %punkte = $read -l $+ %zeile %auswahl
    var %nick2 = $read(%auswahl1,w, %nick)
    var %zeile2 = $calc($readn +1)
    var %punkte2 = $read -l $+ %zeile2 %auswahl1

    ;wenn es den nick aus datenbank1 in datenbank2 nicht gibt schreib ihn neu

    if ( %nick2 == $null ) {
      write $scriptdirpunkteaddiert.txt %nick
      write $scriptdirpunkteaddiert.txt %punkte
      write -dl1 %auswahl
      write -dl1 %auswahl
    }
    if ( %nick2 != $null ) { 
      write $scriptdirpunkteaddiert.txt %nick 
      write $scriptdirpunkteaddiert.txt $calc( %punkte + %punkte2 )
      write -dl1 %auswahl
      write -dl1 %auswahl
      write -dl $+ %zeile2 %auswahl1
      write -ds $+ %nick2 %auswahl1
    }
    echo -a Runde %aktuelle_zeile
    inc %aktuelle_zeile 2
    goto addieren
  }
  if ( %aktuelle_zeile > %max_zeile ) { 
    echo -a %auswahl1
    copy -a %auswahl1 $scriptdirpunkteaddiert.txt

    ;statistiken ordnen

    /timer $lines($scriptdirpunkteaddiert.txt) 0 hp-biersortieren
  }
}

alias hp-biersortieren {
  var %biertest = 2
  var %bierbest = $read($scriptdirpunkteaddiert.txt,2)
  var %biernick = $read($scriptdirpunkteaddiert.txt,1)
  var %bier_zeilen-nummer 2
  :test
  if ($lines($scriptdirpunkteaddiert.txt) > %biertest) {
    var %bierjetzt = $read($scriptdirpunkteaddiert.txt,%biertest)
    var %bierjetztnick = $read($scriptdirpunkteaddiert.txt,$calc(%biertest -1))
    if ( %bierbest >= %bierjetzt ) { inc %biertest 2 | goto test }
    if (%bierbest < %bierjetzt ) { 
      set %bierbest %bierjetzt
      set %biernick %bierjetztnick
      set %bier_zeilen-nummer %biertest
      inc %biertest 2 
      goto test
    }
  }
  if ($lines($scriptdirpunkteaddiert.txt) = %biertest) {
    write $scriptdirbsortiert.txt %biernick
    write $scriptdirbsortiert.txt %bierbest
    echo Zeile %biernick %bierbest
    write -dl $+ %bier_zeilen-nummer $scriptdirpunkteaddiert.txt
    write -dl $+ $calc(%bier_zeilen-nummer -1) $scriptdirpunkteaddiert.txt
  }
}

;Addieren von Punkte-Statistiken
alias testtest { 
  var %loop = 1
  set %datenanzahl $?="Wieviele Dateien sollen addiert werden?"
  while ( %loop <= %datenanzahl ) {
    set %datenbank [ $+ [ %loop ] ] $sfile($scriptdir\,Wähle die %loop $+ . datei aus)
    copy -o %datenbank [ $+ [ %loop ] ] $scriptdirdatenbanken\
    set %datenbank [ $+ [ %loop ] ] $scriptdirdatenbanken\ $+ $nopath(%datenbank [ $+ [ %loop ] ] )
    if ( $read(%datenbank [ $+ [ %loop ] ] ,1) = = ) { write -dl1 %datenbank [ $+ [ %loop ] ] }
    inc %loop 1
  }
  hp-punkteaddieren
}

;%datenanzahl = anzahl der dateien die addiert werden soll

alias hp-punkteaddieren {
  write -c $scriptdirpunkteaddiert.txt
  var %loop = 1
  while ( %loop < %datenanzahl ) {

    var %aktuelle_zeile = 1

    ;festlegen der datenbank von der addiert wird

    if ( $lines(%datenbank [ $+ [ %loop ] ] ) > $lines(%datenbank [ $+ [ $calc( %loop +1 )] ] ) ) { 
      var %max_zeile = $lines(%datenbank [ $+ [ $calc( %loop +1 )] ] ) 
      var %kleinauswahl = %datenbank [ $+ [ $calc( %loop +1 )] ]
      var %grosauswahl = %datenbank [ $+ [ %loop ] ]
    }
    else {  
      var %max_zeile = $lines(%datenbank [ $+ [ %loop ] ] ) 
      var %kleinauswahl = %datenbank [ $+ [ %loop ] ]
      var %grosauswahl = %datenbank [ $+ [ $calc( %loop +1 ) ] ]
      echo -a grosauswahl %grosauswahl
    }

    ;wenn zeilennummer kleiner gesamtzeilen = schleife
    ;punkte herausfinden aus den jeweiligen datenbanken

    :addieren
    while ( %aktuelle_zeile <= %max_zeile ) {

      var %zeile = $read -l1 %kleinauswahl
      var %nick = $left(%zeile,$calc($pos(%zeile,=,1) -1))   
      var %zeile2 = $read(%grosauswahl,w, %nick $+ *)
      var %punkte = $right(%zeile,$calc($pos(%zeile,=,1) * -1))
      var %punkte2 = $right(%zeile2,$calc($pos(%zeile2,=,1) * -1))

      ;wenn es den nick aus datenbank1 in datenbank2 nicht gibt schreib ihn neu

      if ( %zeile2 == $null ) {
        write $scriptdirpunkteaddiert.txt %zeile
        write -dl1 %kleinauswahl
      }
      if ( %zeile2 != $null ) { 
        write $scriptdirpunkteaddiert.txt %nick $+ = $+ $calc( %punkte + %punkte2 )
        write -dl1 %kleinauswahl
        write -ds $+ %zeile2 %grosauswahl
      }
      echo -a Runde %aktuelle_zeile
      inc %aktuelle_zeile 1
      goto addieren
    }

    if ( %aktuelle_zeile > %max_zeile ) { 
      echo -a %grosauswahl
      copy -a %grosauswahl $scriptdirpunkteaddiert.txt
      ;write -il1 $scriptdirpunkteaddiert.txt =

      ;statistiken ordnen

      /timer $lines($scriptdirpunkteaddiert.txt) 0 hp-sortieren
    }
    inc %loop 1
  }
}
alias hp-sortieren {
  set %fenster_zeilen $lines($scriptdirpunkteaddiert.txt)
  set %i 1
  var %ord_rund_ = 1
  var %z = 1
  set %xyz_zeile $read -l $+ %z $scriptdirpunkteaddiert.txt 
  set %xyz_punkte $right(%xyz_zeile,$calc($len(%xyz_zeile) - $pos(%xyz_zeile, = , 1))) 
  goto schauen
  :schauen
  inc %ord_rund_ 1
  if ( %i > %fenster_zeilen) { 
    write $scriptdirsortiert.txt %xyz_zeile 
    echo -a %ord_rund_ $+ . %xyz_zeile
    write -ds $+ %xyz_zeile $scriptdirpunkteaddiert.txt
  halt }
  if ( %i <= %fenster_zeilen ) { 
    set %prüf_zeile $read -l $+ %i $scriptdirpunkteaddiert.txt 
    set %prüf_punkte $right(%prüf_zeile,$calc($len(%prüf_zeile) - $pos(%prüf_zeile, = , 1))) 
    if (%xyz_punkte >= %prüf_punkte) { inc %i 1 | goto schauen }
    if (%xyz_punkte < %prüf_punkte) { set %xyz_zeile %prüf_zeile 
      set %xyz_punkte %prüf_punkte 
      inc %i 1 | goto schauen
    }
  }
}

alias hp-erstpunkt {
  set %hp-erst 1
  goto schreiben
  :schreiben
  if ($lines($scriptdirsortiert.txt) > %hp-erst) {
    set %aaaaplatz %hp-erst
    set %aaaazeile $read($scriptdirsortiert.txt, %hp-erst)
    set %aaaanick $left(%aaaazeile,$calc($pos(%aaaazeile,=,1) -1))
    set %aaaapunkte $right(%aaaazeile,$calc($len(%aaaazeile) - $pos(%aaaazeile, = , 1)))    
    set %aaaanicklange $len(%aaaanick)
    echo la %aaaanicklange
    write $scriptdirhp-fertig.txt %aaaaplatz $+ .Platz: %aaaanick $+ $str(+,$calc(28 - %aaaanicklange)) %aaaapunkte
    echo zeile: %aaaaplatz $+ .Platz: %aaaanick $str(+,$calc(28 - %aaaanicklange)) %aaaapunkte
    inc %hp-erst 1
    goto schreiben
  }
}
alias hp-erstbier {
  set %hp-erst 1  
  var %platz = 1
  goto schreiben
  :schreiben
  if ($lines($scriptdirbiersortiert.txt) > %hp-erst) {
    var %nick = $read -l $+ %hp-erst $scriptdirbiersortiert.txt
    var %bier = $read -l $+ $calc(%hp-erst + 1) $scriptdirbiersortiert.txt 
    var %bierlange = $len(%nick) 
    write hp-$scriptdirbier.txt %platz $+ .Platz: %nick $str(+,$calc(29 - %bierlange)) %bier
    echo -a %platz $+ .Platz: %nick $str(+,$calc(29 - %bierlange)) %bier  
    inc %hp-erst 2
    inc %platz 1
    goto schreiben
  }
}

;%max_zeile   = anzahl in der kleineren atenbank enthaltenen zeilen
;%zeile       = Zeile mit nick aus 1. Datenbank
;%zeile2      = Zeile mit nick aus 2. Datenbank
;%punkte      = Punkte des jeweiligen Nicks aus Datenbank 1
;%punkte2     = Punkte des jeweiligen Nicks aus Datenbank 2
;%nick        = Nick der addiert wird
;%ersterna                                = Zeit bis zur antwort
;%zeit                                    = Zeit die Mirc Online ist bei           Fragestellung        in Millisekunden (z.B. 8234621)
;%zeiten                                  = Zeit die Mirc Online ist bis        zur ersten Antwort      in Millisekunden (z.B. 8434621)
;%zeiterst                                = Zeit die Mirc Online ist bei        Antwort des Ersten       in Sekunden (z.B. 8,532)
;$calc(($uptime(mirc) - %zeit) / 1000)    = Zeit bis zur      Antwort     in Sekinden (z.B. 18,346)
;$calc(($uptime(mirc) - %zeiterst) /1000) = Zeit hinter dem Ersten        in Sekunden (z.B. 4,345)
;%punkte_durchgang
$calc((%zeiten - $uptime(mirc)) / 1000)
on *:Text:*:%quiz.channel: { 
  if ($1 == $null) { halt }
  if ( %schaetzen == $null ) {
    if ( %antwort == $1- ) || ( %antwort2 == $1- ) || ( %antwort3 == $1- ) || ( %antwort4 == $1- ) || ( %antwort5 == $1- ) || ( %antwort6 == $1- ) || ( %antwort7 == $1- ) || ( %antwort8 == $1- ) || ( %antwort9 == $1- ) || ( %antwort10 == $1- ) || ( %antwort11 == $1- ) || ( %antwort12 == $1- ) || ( %antwort13 == $1- ) {
      if ( $nick $+ . !isin %nick ) && ( $left($nick, 5) != guest ) && ( $nick $+ . !isin %boese_nicks ) { 
        if ( %countuser = $null ) { inc %countuser 1 }
        if ( %countuser == 1 ) && ( %quiz = $null ) {
          var %zeiten = $uptime(mirc)
          set %zeiterst $calc((%zeiten - %zeit) / 1000)
          set %ersterna + $+ $nick $+ + $+ %zeiterst $+ +
          timerAntwort_loeschen 1 10 /nach10sek
          timer666 off
          if ( %zeiterst < $right($read($scriptdirbestzeit.txt,w,$nick $+ =*),$calc($len($read($scriptdirbestzeit.txt,w,$nick $+ =*)) - $pos($read($scriptdirbestzeit.txt,w,$nick $+ =*), = , 1))) ) { write -l $+ $readn $scriptdirbestzeit.txt $nick $+ = $+ %zeiterst }
          if ( $right($read($scriptdirbestzeit.txt,w,$nick $+ =*),$calc($len($read($scriptdirbestzeit.txt,w,$nick $+ =*)) - $pos($read($scriptdirbestzeit.txt,w,$nick $+ =*), = , 1)))  == $null ) { write $scriptdirbestzeit.txt $nick $+ = $+ $calc(($uptime(mirc)  - %zeit) /1000) }
          set %autostop 1
          set %nick %nick $+ $nick $+ .
          if ( %bier > 2 ) && ( $right(%bier,1) != 4 ) && ( $right(%bier,1) != 9 ) && ( $nick != %biersammler ) {
            var %i = 1 
            var %punkte_neu $calc(%bier + 8)  
            set %punkte_in_den_channel $calc(%bier + 8)
            set %biersammler $nick | set %trinken Bier | unset %raumrunde
            notice $nick %quizcolor Gratuliere, für deine richtige Antwort nach %zeiterst Sekunden bekommst du %punkte_neu Punkte ! 0,0 
            if ($nick == %duellteilnehmer) { inc %duellteilnehmerpunkte %punkte_neu }
            if ($nick == %duellteilnehmer1) { inc %duellteilnehmer1punkte %punkte_neu }
            if ($nick = %team1ok2) && (%teamrunde > 1) { inc %team1punkte %punkte_neu }
            if ($nick = %team1ok1) && (%teamrunde > 1) { inc %team1punkte %punkte_neu }
            if ($nick = %team2ok1) && (%teamrunde > 1) { inc %team2punkte %punkte_neu }
            if ($nick = %team2ok2) && (%teamrunde > 1) { inc %team2punkte %punkte_neu }
            var %zeile = $read($scriptdirstats.txt, w, $nick $+ =*)
            var %punkte = $right(%zeile,$calc($len(%zeile) - $pos(%zeile, = , 1)))
            var %nick = $left(%zeile, $pos(%zeile ,  =  , 1) )
            var %zeilennummer = $readn
            var %monatzeile = $read($scriptdirstats $+ $mid($date,4,2) $+ .txt, w, $nick $+ =*)
            var %monatpunkte = $right(%monatzeile,$calc($len(%monatzeile) - $pos(%monatzeile, = , 1)))
            var %monatnick = $left(%monatzeile, $pos(%monatzeile ,  =  , 1) )
            var %monatzeilennummer = $readn
            ;        echo -a         if ( %zeile != $null ) { write -l $+ %zeilennummer $scriptdirstats.txt $nick $+ = $+ $calc(%bier + 8) }
            if (%monatzeile = $null) { write $scriptdirstats $+ $mid($date,4,2) $+ .txt $nick $+ = $+ $calc(%bier + 8) }
            if ( %zeile = $null ) { 
              write $scriptdirstats.txt $nick $+ = $+ $calc(%bier + 8)
            }
            if ( %monatzeile != $null ) { write -l $+ %monatzeilennummer $scriptdirstats $+ $mid($date,4,2) $+ .txt $nick $+ = $+ $calc( %monatpunkte + $calc(%bier + 8) ) }
            if ( %zeile != $null ) { 
              write -l $+ %zeilennummer $scriptdirstats.txt $nick $+ = $+ $calc( %punkte + $calc(%bier + 8) )
            }
            set %bier 1          
            inc %countuser 1
            halt
          }
          if (($right(%bier,1) == 4 ) || ( $right(%bier,1) == 9 )) && ( $nick != %biersammler ) {
            var %i = 1
            var %punkte_neu $calc(%bier + 13)  
            set %punkte_in_den_channel $calc(%bier + 13)
            set %biersammler $nick
            notice $nick %quizcolor Gratuliere, für deine richtige Antwort nach %zeiterst Sekunden bekommst du %punkte_neu Punkte ! 0,0
            if ($nick == %duellteilnehmer) { inc %duellteilnehmerpunkte %punkte_neu }
            if ($nick == %duellteilnehmer1) { inc %duellteilnehmer1punkte %punkte_neu }
            if ($nick = %team1ok2) && (%teamrunde > 1) { inc %team1punkte %punkte_neu }
            if ($nick = %team1ok1) && (%teamrunde > 1) { inc %team1punkte %punkte_neu }
            if ($nick = %team2ok1) && (%teamrunde > 1) { inc %team2punkte %punkte_neu }
            if ($nick = %team2ok2) && (%teamrunde > 1) { inc %team2punkte %punkte_neu }
            var %zeile = $read($scriptdirstats.txt, w, $nick $+ =*)
            var %punkte = $right(%zeile,$calc($len(%zeile) - $pos(%zeile, = , 1)))
            var %nick = $left(%zeile, $pos(%zeile ,  =  , 1) )
            var %zeilennummer = $readn
            var %monatzeile = $read($scriptdirstats $+ $mid($date,4,2) $+ .txt, w, $nick $+ =*)
            var %monatpunkte = $right(%monatzeile,$calc($len(%monatzeile) - $pos(%monatzeile, = , 1)))
            var %monatnick = $left(%monatzeile, $pos(%monatzeile ,  =  , 1) )
            var %monatzeilennummer = $readn
            ;        echo -a         if ( %zeile != $null ) { write -l $+ %zeilennummer $scriptdirstats.txt $nick $+ = $+ $calc(%bier + 13) }
            if (%monatzeile = $null) { write $scriptdirstats $+ $mid($date,4,2) $+ .txt $nick $+ = $+ $calc(%bier + 13) }
            if ( %zeile = $null ) { 
              write $scriptdirstats.txt $nick $+ = $+ $calc(%bier + 13)
            }
            if ( %monatzeile != $null ) { write -l $+ %monatzeilennummer $scriptdirstats $+ $mid($date,4,2) $+ .txt $nick $+ = $+ $calc( %monatpunkte + $calc(%bier + 13) ) }
            if ( %zeile != $null ) { 
              write -l $+ %zeilennummer $scriptdirstats.txt $nick $+ = $+ $calc( %punkte + $calc(%bier + 13) )
            }
            set %bier 1 
            inc %countuser 1
            halt
          }
          if (( $right(%bier,1) == 9 ) || ($right(%bier,1) == 4 )) && ( $nick == %biersammler ) {
            inc %bier 1 
            var %punkte_neu = $calc( (%bier - 3) +10 )
            set %punkte_in_den_channel $calc( (%bier - 3) +10 )
            if ($nick == %duellteilnehmer) { inc %duellteilnehmerpunkte %punkte_neu }
            if ($nick == %duellteilnehmer1) { inc %duellteilnehmer1punkte %punkte_neu }
            if ($nick = %team1ok2) && (%teamrunde > 1) { inc %team1punkte %punkte_neu }
            if ($nick = %team1ok1) && (%teamrunde > 1) { inc %team1punkte %punkte_neu }
            if ($nick = %team2ok1) && (%teamrunde > 1) { inc %team2punkte %punkte_neu }
            if ($nick = %team2ok2) && (%teamrunde > 1) { inc %team2punkte %punkte_neu }
            timerbier 1 10 /bierspruch
            notice $nick %quizcolor Für deine %bier Runden lange Serie bekommst du $calc(%bier - 3) Zusatzpunkte!! Du bekommst also $calc(%bier + 7) Punkte! (da schmeckt das Glas %trinken doch gleich viel besser *gg*) 
            if ( $read($scriptdirbier.txt, w, $nick $+ * ) = $null ) { write $scriptdirbier.txt $nick | write $scriptdirbier.txt 1 | write $scriptdirbier $+ $mid( $date,4,2) $+ .txt $nick | write $scriptdirbier $+ $mid( $date,4,2) $+ .txt 1 }
            if ( $read($scriptdirbier.txt, w, $nick $+ * ) != $null ) { 
              var %biere = $read -l $+ $calc($readn + 1) $scriptdirbier.txt 
              write -l $+ $readn $scriptdirbier.txt $calc(%biere +1)
              if ( $read($scriptdirbier $+ $mid( $date ,4,2) $+ .txt, w, $nick $+ * ) != $null ) {
                var %mbiere = $read -l $+ $calc($readn + 1) $scriptdirbier $+ $mid( $date ,4,2) $+ .txt 
                write -l $+ $readn $scriptdirbier $+ $mid( $date ,4,2) $+ .txt $calc(%mbiere +1) 
              }
              if ( $read($scriptdirbier $+ $mid( $date ,4,2) $+ .txt, w, $nick $+ * ) = $null ) { 
                write $scriptdirbier $+ $mid( $date,4,2) $+ .txt $nick 
              write $scriptdirbier $+ $mid( $date,4,2) $+ .txt 1 }
            }
            var %zeile = $read($scriptdirstats.txt, w, $nick $+ =*)
            var %punkte = $right(%zeile,$calc($len(%zeile) - $pos(%zeile, = , 1)))
            var %nick = $left(%zeile, $pos(%zeile ,  =  , 1) )
            var %zeilennummer = $readn
            var %monatzeile = $read($scriptdirstats $+ $mid($date,4,2) $+ .txt, w, $nick $+ =*)
            var %monatpunkte = $right(%monatzeile,$calc($len(%monatzeile) - $pos(%monatzeile, = , 1)))
            var %monatnick = $left(%monatzeile, $pos(%monatzeile ,  =  , 1) )
            var %monatzeilennummer = $readn
            ;        echo -a         if ( %zeile != $null ) { write -l $+ %zeilennummer $scriptdirstats.txt $nick $+ = $+ $calc( (%bier - 3) +10 ) }
            if (%monatzeile = $null) { write $scriptdirstats $+ $mid($date,4,2) $+ .txt $nick $+ = $+ $calc( (%bier - 3) +10 ) }
            if ( %zeile = $null ) { 
              write $scriptdirstats.txt $nick $+ = $+ $calc( (%bier - 3) +10 )
            }
            if ( %monatzeile != $null ) {            write -l $+ %monatzeilennummer $scriptdirstats $+ $mid($date,4,2) $+ .txt $nick $+ = $+ $calc( %monatpunkte + $calc( (%bier - 3) +10 ) ) }
            if ( %zeile != $null ) { 
              write -l $+ %zeilennummer $scriptdirstats.txt $nick $+ = $+ $calc( %punkte + $calc( (%bier - 3) +10 ) )
            }
            inc %countuser 1
            halt
          }
          if ( $nick == %biersammler ) { inc %bier 1 }
          if ( $nick != %biersammler ) { set %bier 1 | set %biersammler $nick | set %trinken Bier | unset %raumrunde }
          set %punkte_in_den_channel 10
          notice $nick %quizcolor Gratuliere, für deine richtige Antwort nach %zeiterst Sekunden bekommst du 10 Punkte ! 0,0 
          if ($nick == %duellteilnehmer) { inc %duellteilnehmerpunkte 10 }
          if ($nick == %duellteilnehmer1) { inc %duellteilnehmer1punkte 10 }
          if ($nick = %team1ok2) && (%teamrunde > 1) { inc %team1punkte 10 }
          if ($nick = %team1ok1) && (%teamrunde > 1) { inc %team1punkte 10 }
          if ($nick = %team2ok1) && (%teamrunde > 1) { inc %team2punkte 10 }
          if ($nick = %team2ok2) && (%teamrunde > 1) { inc %team2punkte 10 }
          var %zeile = $read($scriptdirstats.txt, w, $nick $+ =*)
          var %punkte = $right(%zeile,$calc($len(%zeile) - $pos(%zeile, = , 1)))
          var %nick = $left(%zeile, $pos(%zeile ,  =  , 1) )
          var %zeilennummer = $readn
          var %monatzeile = $read($scriptdirstats $+ $mid($date,4,2) $+ .txt, w, $nick $+ =*)
          var %monatpunkte = $right(%monatzeile,$calc($len(%monatzeile) - $pos(%monatzeile, = , 1)))
          var %monatnick = $left(%monatzeile, $pos(%monatzeile ,  =  , 1) )
          var %monatzeilennummer = $readn
          ;        echo -a         if ( %zeile != $null ) { write -l $+ %zeilennummer $scriptdirstats.txt $nick $+ = $+ $calc( %punkte + 10 ) }
          if (%monatzeile = $null) { 
          write $scriptdirstats $+ $mid($date,4,2) $+ .txt $nick $+ = $+ 10 }
          if ( %zeile = $null ) { 
            write $scriptdirstats.txt $nick $+ = $+ 10
          }
          if ( %monatzeile != $null ) {   
          write -l $+ %monatzeilennummer $scriptdirstats $+ $mid($date,4,2) $+ .txt $nick $+ = $+ $calc( %monatpunkte + 10 ) }
          if ( %zeile != $null ) { 
            write -l $+ %zeilennummer $scriptdirstats.txt $nick $+ = $+ $calc( %punkte + 10 )
          }
          inc %countuser 1
          halt
        } 
        if ( %countuser == 2 ) && ( %quiz = $null ) {
          set %ersterna %ersterna $+ $nick $+ + $+ $calc(($uptime(mirc) - %zeit) / 1000) $+ +
          if ( $calc(($uptime(mirc)  - %zeit) / 1000) < $right($read($scriptdirbestzeit.txt,w,$nick $+ =*),$calc($len($read($scriptdirbestzeit.txt,w,$nick $+ =*)) - $pos($read($scriptdirbestzeit.txt,w,$nick $+ =*), = , 1))) ) { write -l $+ $readn $scriptdirbestzeit.txt $nick $+ = $+ $calc(($uptime(mirc)  - %zeit) / 1000) }
          if ( $right($read($scriptdirbestzeit.txt,w,$nick $+ =*),$calc($len($read($scriptdirbestzeit.txt,w,$nick $+ =*)) - $pos($read($scriptdirbestzeit.txt,w,$nick $+ =*), = , 1)))  == $null ) { write $scriptdirbestzeit.txt $nick $+ = $+ $calc(($uptime(mirc)  - %zeit) /1000) }
          set %nick %nick $+ $nick $+ .
          notice $nick %quizcolor Gratuliere, für deine richtige Antwort nach $mid(%ersterna,$calc($pos(%ersterna,+,4) +1),$calc($pos(%ersterna,+,3) - $pos(%ersterna,+,2) -1)) Sekunden bekommst du 7 Punkte ! 0,0      
          ;        echo -a $mid(%ersterna,$calc($pos(%ersterna,+,4) +1),$calc($pos(%ersterna,+,3) - $pos(%ersterna,+,2) -1))
          if ($nick == %duellteilnehmer) { inc %duellteilnehmerpunkte 7 }
          if ($nick == %duellteilnehmer1) { inc %duellteilnehmer1punkte 7 }
          if ($nick = %team1ok2) && (%teamrunde > 1) { inc %team1punkte 7 }
          if ($nick = %team1ok1) && (%teamrunde > 1) { inc %team1punkte 7 }
          if ($nick = %team2ok1) && (%teamrunde > 1) { inc %team2punkte 7 }
          if ($nick = %team2ok2) && (%teamrunde > 1) { inc %team2punkte 7 }
          var %zeile = $read($scriptdirstats.txt, w, $nick $+ =*)
          var %punkte = $right(%zeile,$calc($len(%zeile) - $pos(%zeile, = , 1)))
          var %nick = $left(%zeile, $pos(%zeile ,  =  , 1) )
          var %zeilennummer = $readn
          var %monatzeile = $read($scriptdirstats $+ $mid($date,4,2) $+ .txt, w, $nick $+ =*)
          var %monatpunkte = $right(%monatzeile,$calc($len(%monatzeile) - $pos(%monatzeile, = , 1)))
          var %monatnick = $left(%monatzeile, $pos(%monatzeile ,  =  , 1) )
          var %monatzeilennummer = $readn
          ;        echo -a         if ( %zeile != $null ) { write -l $+ %zeilennummer $scriptdirstats.txt $nick $+ = $+ $calc( %punkte + 7 ) }
          if (%monatzeile = $null) { write $scriptdirstats $+ $mid($date,4,2) $+ .txt $nick $+ = $+ 7 }
          if ( %zeile = $null ) { 
            write $scriptdirstats.txt $nick $+ = $+ 7
          }
          if ( %monatzeile != $null ) {
            write -l $+ %monatzeilennummer $scriptdirstats $+ $mid($date,4,2) $+ .txt $nick $+ = $+ $calc( %monatpunkte + 7 )
          }
          if ( %zeile != $null ) { 
            write -l $+ %zeilennummer $scriptdirstats.txt $nick $+ = $+ $calc( %punkte + 7 )
          }
          inc %countuser 1
          halt
        }
        if ( %countuser == 3 ) && ( %quiz = $null ) {
          set %ersterna %ersterna $+ $nick $+ + $+ $calc(($uptime(mirc) - %zeit) / 1000) $+ +
          if ( $calc(($uptime(mirc)  - %zeit) / 1000) < $right($read($scriptdirbestzeit.txt,w,$nick $+ =*),$calc($len($read($scriptdirbestzeit.txt,w,$nick $+ =*)) - $pos($read($scriptdirbestzeit.txt,w,$nick $+ =*), = , 1))) ) { write -l $+ $readn $scriptdirbestzeit.txt $nick $+ = $+ $calc(($uptime(mirc)  - %zeit) / 1000) }
          if ( $right($read($scriptdirbestzeit.txt,w,$nick $+ =*),$calc($len($read($scriptdirbestzeit.txt,w,$nick $+ =*)) - $pos($read($scriptdirbestzeit.txt,w,$nick $+ =*), = , 1)))  == $null ) { write $scriptdirbestzeit.txt $nick $+ = $+ $calc(($uptime(mirc)  - %zeit) /1000) }
          set %nick %nick $+ $nick $+ .
          notice $nick %quizcolor Gratuliere, für deine richtige Antwort nach $mid(%ersterna,$calc($pos(%ersterna,+,6) +1),$calc($pos(%ersterna,+,5) - $pos(%ersterna,+,4) -1)) Sekunden bekommst du 5 Punkte ! 0,0      
          if ($nick == %duellteilnehmer) { inc %duellteilnehmerpunkte 5 }
          if ($nick == %duellteilnehmer1) { inc %duellteilnehmer1punkte 5 }
          if ($nick = %team1ok2) && (%teamrunde > 1) { inc %team1punkte 5 }
          if ($nick = %team1ok1) && (%teamrunde > 1) { inc %team1punkte 5 }
          if ($nick = %team2ok1) && (%teamrunde > 1) { inc %team2punkte 5 }
          if ($nick = %team2ok2) && (%teamrunde > 1) { inc %team2punkte 5 }
          var %zeile = $read($scriptdirstats.txt, w, $nick $+ =*)
          var %punkte = $right(%zeile,$calc($len(%zeile) - $pos(%zeile, = , 1)))
          var %nick = $left(%zeile, $pos(%zeile ,  =  , 1) )
          var %zeilennummer = $readn
          var %monatzeile = $read($scriptdirstats $+ $mid($date,4,2) $+ .txt, w, $nick $+ =*)
          var %monatpunkte = $right(%monatzeile,$calc($len(%monatzeile) - $pos(%monatzeile, = , 1)))
          var %monatnick = $left(%monatzeile, $pos(%monatzeile ,  =  , 1) )
          var %monatzeilennummer = $readn
          ;        echo -a         if ( %zeile != $null ) { write -l $+ %zeilennummer $scriptdirstats.txt $nick $+ = $+ $calc( %punkte + 5 ) }
          if (%monatzeile = $null) { write $scriptdirstats $+ $mid($date,4,2) $+ .txt $nick $+ = $+ 5 }
          if ( %zeile = $null ) { 
            write $scriptdirstats.txt $nick $+ = $+ 5
          }
          if ( %monatzeile != $null ) { 
            write -l $+ %monatzeilennummer $scriptdirstats $+ $mid($date,4,2) $+ .txt $nick $+ = $+ $calc( %monatpunkte + 5 )
          }
          if ( %zeile != $null ) { 
            write -l $+ %zeilennummer $scriptdirstats.txt $nick $+ = $+ $calc( %punkte + 5 )
          }
          inc %countuser 1
          halt
        }
        if ( %countuser == 4 ) && ( %quiz = $null ) {
          set %ersterna %ersterna $+ $nick $+ + $+ $calc(($uptime(mirc) - %zeit) / 1000) $+ +
          if ( $calc(($uptime(mirc)  - %zeit) / 1000) < $right($read($scriptdirbestzeit.txt,w,$nick $+ =*),$calc($len($read($scriptdirbestzeit.txt,w,$nick $+ =*)) - $pos($read($scriptdirbestzeit.txt,w,$nick $+ =*), = , 1))) ) { write -l $+ $readn $scriptdirbestzeit.txt $nick $+ = $+ $calc(($uptime(mirc)  - %zeit) / 1000) }
          if ( $right($read($scriptdirbestzeit.txt,w,$nick $+ =*),$calc($len($read($scriptdirbestzeit.txt,w,$nick $+ =*)) - $pos($read($scriptdirbestzeit.txt,w,$nick $+ =*), = , 1)))  == $null ) { write $scriptdirbestzeit.txt $nick $+ = $+ $calc(($uptime(mirc)  - %zeit) /1000) }
          set %nick %nick $+ $nick $+ .
          notice $nick %quizcolor Gratuliere, für deine richtige Antwort nach $mid(%ersterna,$calc($pos(%ersterna,+,8) +1),$calc($pos(%ersterna,+,7) - $pos(%ersterna,+,6) -1)) Sekunden bekommst du 3 Punkte ! 0,0      
          if ($nick == %duellteilnehmer) { inc %duellteilnehmerpunkte 3 }
          if ($nick == %duellteilnehmer1) { inc %duellteilnehmer1punkte 3 }
          if ($nick = %team1ok2) && (%teamrunde > 1) { inc %team1punkte 3 }
          if ($nick = %team1ok1) && (%teamrunde > 1) { inc %team1punkte 3 }
          if ($nick = %team2ok1) && (%teamrunde > 1) { inc %team2punkte 3 }
          if ($nick = %team2ok2) && (%teamrunde > 1) { inc %team2punkte 3 }
          var %zeile = $read($scriptdirstats.txt, w, $nick $+ =*)
          var %punkte = $right(%zeile,$calc($len(%zeile) - $pos(%zeile, = , 1)))
          var %nick = $left(%zeile, $pos(%zeile ,  =  , 1) )
          var %zeilennummer = $readn
          var %monatzeile = $read($scriptdirstats $+ $mid($date,4,2) $+ .txt, w, $nick $+ =*)
          var %monatpunkte = $right(%monatzeile,$calc($len(%monatzeile) - $pos(%monatzeile, = , 1)))
          var %monatnick = $left(%monatzeile, $pos(%monatzeile ,  =  , 1) )
          var %monatzeilennummer = $readn
          ;        echo -a         if ( %zeile != $null ) { write -l $+ %zeilennummer $scriptdirstats.txt $nick $+ = $+ $calc( %punkte + 3 ) }
          if (%monatzeile = $null) { write $scriptdirstats $+ $mid($date,4,2) $+ .txt $nick $+ = $+ 3 }
          if ( %zeile = $null ) { 
            write $scriptdirstats.txt $nick $+ = $+ 3
          }
          if ( %monatzeile != $null ) { 
            write -l $+ %monatzeilennummer $scriptdirstats $+ $mid($date,4,2) $+ .txt $nick $+ = $+ $calc( %monatpunkte + 3 )
          }
          if ( %zeile != $null ) { 
            write -l $+ %zeilennummer $scriptdirstats.txt $nick $+ = $+ $calc( %punkte + 3 )
          }
          inc %countuser 1
          halt
        }
        if ( %countuser == 5 ) && ( %quiz = $null ) {
          set %ersterna %ersterna $+ $nick $+ + $+ $calc(($uptime(mirc) - %zeit) / 1000) $+ +
          if ( $calc(($uptime(mirc)  - %zeit) / 1000) < $right($read($scriptdirbestzeit.txt,w,$nick $+ =*),$calc($len($read($scriptdirbestzeit.txt,w,$nick $+ =*)) - $pos($read($scriptdirbestzeit.txt,w,$nick $+ =*), = , 1))) ) { write -l $+ $readn $scriptdirbestzeit.txt $nick $+ = $+ $calc(($uptime(mirc)  - %zeit) / 1000) }
          if ( $right($read($scriptdirbestzeit.txt,w,$nick $+ =*),$calc($len($read($scriptdirbestzeit.txt,w,$nick $+ =*)) - $pos($read($scriptdirbestzeit.txt,w,$nick $+ =*), = , 1)))  == $null ) { write $scriptdirbestzeit.txt $nick $+ = $+ $calc(($uptime(mirc)  - %zeit) /1000) }
          set %nick %nick $+ $nick $+ .
          notice $nick %quizcolor Gratuliere, für deine richtige Antwort nach $mid(%ersterna,$calc($pos(%ersterna,+,10) +1),$calc($pos(%ersterna,+,9) - $pos(%ersterna,+,8) -1)) Sekunden bekommst du 2 Punkte ! 0,0      
          if ($nick == %duellteilnehmer) { inc %duellteilnehmerpunkte 2 }
          if ($nick == %duellteilnehmer1) { inc %duellteilnehmer1punkte 2 }
          if ($nick = %team1ok2) && (%teamrunde > 1) { inc %team1punkte 2 }
          if ($nick = %team1ok1) && (%teamrunde > 1) { inc %team1punkte 2 }
          if ($nick = %team2ok1) && (%teamrunde > 1) { inc %team2punkte 2 }
          if ($nick = %team2ok2) && (%teamrunde > 1) { inc %team2punkte 2 }
          var %zeile = $read($scriptdirstats.txt, w, $nick $+ =*)
          var %punkte = $right(%zeile,$calc($len(%zeile) - $pos(%zeile, = , 1)))
          var %nick = $left(%zeile, $pos(%zeile ,  =  , 1) )
          var %zeilennummer = $readn
          var %monatzeile = $read($scriptdirstats $+ $mid($date,4,2) $+ .txt, w, $nick $+ =*)
          var %monatpunkte = $right(%monatzeile,$calc($len(%monatzeile) - $pos(%monatzeile, = , 1)))
          var %monatnick = $left(%monatzeile, $pos(%monatzeile ,  =  , 1) )
          var %monatzeilennummer = $readn
          ;        echo -a         if ( %zeile != $null ) { write -l $+ %zeilennummer $scriptdirstats.txt $nick $+ = $+ $calc( %punkte + 2 ) }
          if (%monatzeile = $null) { write $scriptdirstats $+ $mid($date,4,2) $+ .txt $nick $+ = $+ 2 }
          if ( %zeile = $null ) { 
            write $scriptdirstats.txt $nick $+ = $+ 2
          }
          if ( %monatzeile != $null ) { 
            write -l $+ %monatzeilennummer $scriptdirstats $+ $mid($date,4,2) $+ .txt $nick $+ = $+ $calc( %monatpunkte + 2 )
          }
          if ( %zeile != $null ) { 
            write -l $+ %zeilennummer $scriptdirstats.txt $nick $+ = $+ $calc( %punkte + 2 )
          }
          inc %countuser 1
          halt  
        }
        if ( %countuser == 6 ) && ( %quiz = $null ) {
          set %ersterna %ersterna $+ $nick $+ + $+ $calc(($uptime(mirc) - %zeit) / 1000) $+ +
          if ( $calc(($uptime(mirc)  - %zeit) / 1000) < $right($read($scriptdirbestzeit.txt,w,$nick $+ =*),$calc($len($read($scriptdirbestzeit.txt,w,$nick $+ =*)) - $pos($read($scriptdirbestzeit.txt,w,$nick $+ =*), = , 1))) ) { write -l $+ $readn $scriptdirbestzeit.txt $nick $+ = $+ $calc(($uptime(mirc)  - %zeit) / 1000) }
          if ( $right($read($scriptdirbestzeit.txt,w,$nick $+ =*),$calc($len($read($scriptdirbestzeit.txt,w,$nick $+ =*)) - $pos($read($scriptdirbestzeit.txt,w,$nick $+ =*), = , 1)))  == $null ) { write $scriptdirbestzeit.txt $nick $+ = $+ $calc(($uptime(mirc)  - %zeit) /1000) }
          set %nick %nick $+ $nick $+ .
          notice $nick %quizcolor Gratuliere, für deine richtige Antwort nach $mid(%ersterna,$calc($pos(%ersterna,+,12) +1),$calc($pos(%ersterna,+,11) - $pos(%ersterna,+,10) -1)) Sekunden bekommst du 1 Punkte ! 0,0      
          if ($nick == %duellteilnehmer) { inc %duellteilnehmerpunkte 1 }
          if ($nick == %duellteilnehmer1) { inc %duellteilnehmer1punkte 1 }
          if ($nick = %team1ok2) && (%teamrunde > 1) { inc %team1punkte 1 }
          if ($nick = %team1ok1) && (%teamrunde > 1) { inc %team1punkte 1 }
          if ($nick = %team2ok1) && (%teamrunde > 1) { inc %team2punkte 1 }
          if ($nick = %team2ok2) && (%teamrunde > 1) { inc %team2punkte 1 }
          var %zeile = $read($scriptdirstats.txt, w, $nick $+ =*)
          var %punkte = $right(%zeile,$calc($len(%zeile) - $pos(%zeile, = , 1)))
          var %nick = $left(%zeile, $pos(%zeile ,  =  , 1) )
          var %zeilennummer = $readn
          var %monatzeile = $read($scriptdirstats $+ $mid($date,4,2) $+ .txt, w, $nick $+ =*)
          var %monatpunkte = $right(%monatzeile,$calc($len(%monatzeile) - $pos(%monatzeile, = , 1)))
          var %monatnick = $left(%monatzeile, $pos(%monatzeile ,  =  , 1) )
          var %monatzeilennummer = $readn
          ;        echo -a         if ( %zeile != $null ) { write -l $+ %zeilennummer $scriptdirstats.txt $nick $+ = $+ $calc( %punkte + 1 ) }
          if (%monatzeile = $null) { write $scriptdirstats $+ $mid($date,4,2) $+ .txt $nick $+ = $+ 1 }
          if ( %zeile = $null ) { 
            write $scriptdirstats.txt $nick $+ = $+ 1
          }
          if ( %monatzeile != $null ) { 
            write -l $+ %monatzeilennummer $scriptdirstats $+ $mid($date,4,2) $+ .txt $nick $+ = $+ $calc( %monatpunkte + 1 )
          }
          if ( %zeile != $null ) { 
            write -l $+ %zeilennummer $scriptdirstats.txt $nick $+ = $+ $calc( %punkte + 1 )
          }
          inc %countuser 1
          halt
        }
        if ( %countuser == 7 ) && ( %quiz = $null ) {
          set %ersterna %ersterna $+ $nick $+ + $+ $calc(($uptime(mirc) - %zeit) / 1000) $+ +
          if ( $calc(($uptime(mirc)  - %zeit) / 1000) < $right($read($scriptdirbestzeit.txt,w,$nick $+ =*),$calc($len($read($scriptdirbestzeit.txt,w,$nick $+ =*)) - $pos($read($scriptdirbestzeit.txt,w,$nick $+ =*), = , 1))) ) { write -l $+ $readn $scriptdirbestzeit.txt $nick $+ = $+ $calc(($uptime(mirc)  - %zeit) / 1000) }
          if ( $right($read($scriptdirbestzeit.txt,w,$nick $+ =*),$calc($len($read($scriptdirbestzeit.txt,w,$nick $+ =*)) - $pos($read($scriptdirbestzeit.txt,w,$nick $+ =*), = , 1)))  == $null ) { write $scriptdirbestzeit.txt $nick $+ = $+ $calc(($uptime(mirc)  - %zeit) /1000) }
          set %nick %nick $+ $nick $+ .
          notice $nick %quizcolor Gratuliere, für deine richtige Antwort nach $mid(%ersterna,$calc($pos(%ersterna,+,14) +1),$calc($pos(%ersterna,+,13) - $pos(%ersterna,+,12) -1)) Sekunden bekommst du 1 Punkte ! 0,0      
          if ($nick == %duellteilnehmer) { inc %duellteilnehmerpunkte 1 }
          if ($nick == %duellteilnehmer1) { inc %duellteilnehmer1punkte 1 }
          if ($nick = %team1ok2) && (%teamrunde > 1) { inc %team1punkte 1 }
          if ($nick = %team1ok1) && (%teamrunde > 1) { inc %team1punkte 1 }
          if ($nick = %team2ok1) && (%teamrunde > 1) { inc %team2punkte 1 }
          if ($nick = %team2ok2) && (%teamrunde > 1) { inc %team2punkte 1 }
          var %zeile = $read($scriptdirstats.txt, w, $nick $+ =*)
          var %punkte = $right(%zeile,$calc($len(%zeile) - $pos(%zeile, = , 1)))
          var %nick = $left(%zeile, $pos(%zeile ,  =  , 1) )
          var %zeilennummer = $readn
          var %monatzeile = $read($scriptdirstats $+ $mid($date,4,2) $+ .txt, w, $nick $+ =*)
          var %monatpunkte = $right(%monatzeile,$calc($len(%monatzeile) - $pos(%monatzeile, = , 1)))
          var %monatnick = $left(%monatzeile, $pos(%monatzeile ,  =  , 1) )
          var %monatzeilennummer = $readn
          ;        echo -a         if ( %zeile != $null ) { write -l $+ %zeilennummer $scriptdirstats.txt $nick $+ = $+ $calc( %punkte + 1 ) }
          if (%monatzeile = $null) { write $scriptdirstats $+ $mid($date,4,2) $+ .txt $nick $+ = $+ 1 }
          if ( %zeile = $null ) { 
            write $scriptdirstats.txt $nick $+ = $+ 1
          }
          if ( %monatzeile != $null ) {   
            write -l $+ %monatzeilennummer $scriptdirstats $+ $mid($date,4,2) $+ .txt $nick $+ = $+ $calc( %monatpunkte + 1 )
          }
          if ( %zeile != $null ) { 
            write -l $+ %zeilennummer $scriptdirstats.txt $nick $+ = $+ $calc( %punkte + 1 )
          }
          inc %countuser 1
          halt
        }
        if ( %countuser == 8 ) && ( %quiz = $null ) {
          set %ersterna %ersterna $+ $nick $+ + $+ $calc(($uptime(mirc) - %zeit) / 1000) $+ +
          if ( $calc(($uptime(mirc)  - %zeit) / 1000) < $right($read($scriptdirbestzeit.txt,w,$nick $+ =*),$calc($len($read($scriptdirbestzeit.txt,w,$nick $+ =*)) - $pos($read($scriptdirbestzeit.txt,w,$nick $+ =*), = , 1))) ) { write -l $+ $readn $scriptdirbestzeit.txt $nick $+ = $+ $calc(($uptime(mirc)  - %zeit) / 1000) }
          if ( $right($read($scriptdirbestzeit.txt,w,$nick $+ =*),$calc($len($read($scriptdirbestzeit.txt,w,$nick $+ =*)) - $pos($read($scriptdirbestzeit.txt,w,$nick $+ =*), = , 1)))  == $null ) { write $scriptdirbestzeit.txt $nick $+ = $+ $calc(($uptime(mirc)  - %zeit) /1000) }
          set %nick %nick $+ $nick $+ .
          notice $nick %quizcolor Gratuliere, für deine richtige Antwort nach $mid(%ersterna,$calc($pos(%ersterna,+,16) +1),$calc($pos(%ersterna,+,15) - $pos(%ersterna,+,14) -1)) Sekunden bekommst du 1 Punkte ! 0,0      
          if ($nick == %duellteilnehmer) { inc %duellteilnehmerpunkte 1 }
          if ($nick == %duellteilnehmer1) { inc %duellteilnehmer1punkte 1 }
          if ($nick = %team1ok2) && (%teamrunde > 1) { inc %team1punkte 1 }
          if ($nick = %team1ok1) && (%teamrunde > 1) { inc %team1punkte 1 }
          if ($nick = %team2ok1) && (%teamrunde > 1) { inc %team2punkte 1 }
          if ($nick = %team2ok2) && (%teamrunde > 1) { inc %team2punkte 1 }
          var %zeile = $read($scriptdirstats.txt, w, $nick $+ =*)
          var %punkte = $right(%zeile,$calc($len(%zeile) - $pos(%zeile, = , 1)))
          var %nick = $left(%zeile, $pos(%zeile ,  =  , 1) )
          var %zeilennummer = $readn
          var %monatzeile = $read($scriptdirstats $+ $mid($date,4,2) $+ .txt, w, $nick $+ =*)
          var %monatpunkte = $right(%monatzeile,$calc($len(%monatzeile) - $pos(%monatzeile, = , 1)))
          var %monatnick = $left(%monatzeile, $pos(%monatzeile ,  =  , 1) )
          var %monatzeilennummer = $readn
          ;        echo -a         if ( %zeile != $null ) { write -l $+ %zeilennummer $scriptdirstats.txt $nick $+ = $+ $calc( %punkte + 1 ) }
          if (%monatzeile = $null) { write $scriptdirstats $+ $mid($date,4,2) $+ .txt $nick $+ = $+ 1 }    
          if ( %zeile = $null ) { 
            write $scriptdirstats.txt $nick $+ = $+ 1
          }
          if ( %monatzeile != $null ) { 
            write -l $+ %monatzeilennummer $scriptdirstats $+ $mid($date,4,2) $+ .txt $nick $+ = $+ $calc( %monatpunkte + 1 )
          }
          if ( %zeile != $null ) { 
            write -l $+ %zeilennummer $scriptdirstats.txt $nick $+ = $+ $calc( %punkte + 1 )
          }
          inc %countuser 1
          halt
        }
        if ( %countuser == 9 ) && ( %quiz = $null ) { 
          set %ersterna %ersterna $+ $nick $+ + $+ $calc(($uptime(mirc) - %zeit) / 1000) $+ +
          if ( $calc(($uptime(mirc)  - %zeit) / 1000) < $right($read($scriptdirbestzeit.txt,w,$nick $+ =*),$calc($len($read($scriptdirbestzeit.txt,w,$nick $+ =*)) - $pos($read($scriptdirbestzeit.txt,w,$nick $+ =*), = , 1))) ) { write -l $+ $readn $scriptdirbestzeit.txt $nick $+ = $+ $calc(($uptime(mirc)  - %zeit) / 1000) }
          if ( $right($read($scriptdirbestzeit.txt,w,$nick $+ =*),$calc($len($read($scriptdirbestzeit.txt,w,$nick $+ =*)) - $pos($read($scriptdirbestzeit.txt,w,$nick $+ =*), = , 1)))  == $null ) { write $scriptdirbestzeit.txt $nick $+ = $+ $calc(($uptime(mirc)  - %zeit) /1000) }
          set %nick %nick $+ $nick $+ .
          notice $nick %quizcolor Gratuliere, für deine richtige Antwort nach $mid(%ersterna,$calc($pos(%ersterna,+,18) +1),$calc($pos(%ersterna,+,17) - $pos(%ersterna,+,16) -1)) Sekunden bekommst du 1 Punkte ! 0,0      
          if ($nick == %duellteilnehmer) { inc %duellteilnehmerpunkte 1 }
          if ($nick == %duellteilnehmer1) { inc %duellteilnehmer1punkte 1 }
          if ($nick = %team1ok2) && (%teamrunde > 1) { inc %team1punkte 1 }
          if ($nick = %team1ok1) && (%teamrunde > 1) { inc %team1punkte 1 }
          if ($nick = %team2ok1) && (%teamrunde > 1) { inc %team2punkte 1 }
          if ($nick = %team2ok2) && (%teamrunde > 1) { inc %team2punkte 1 }
          var %zeile = $read($scriptdirstats.txt, w, $nick $+ =*)
          var %punkte = $right(%zeile,$calc($len(%zeile) - $pos(%zeile, = , 1)))
          var %nick = $left(%zeile, $pos(%zeile ,  =  , 1) )
          var %zeilennummer = $readn
          var %monatzeile = $read($scriptdirstats $+ $mid($date,4,2) $+ .txt, w, $nick $+ =*)
          var %monatpunkte = $right(%monatzeile,$calc($len(%monatzeile) - $pos(%monatzeile, = , 1)))
          var %monatnick = $left(%monatzeile, $pos(%monatzeile ,  =  , 1) )
          var %monatzeilennummer = $readn
          ;        echo -a         if ( %zeile != $null ) { write -l $+ %zeilennummer $scriptdirstats.txt $nick $+ = $+ $calc( %punkte + 1 ) }
          if (%monatzeile = $null) { write $scriptdirstats $+ $mid($date,4,2) $+ .txt $nick $+ = $+ 1 }
          if ( %zeile = $null ) { 
            write $scriptdirstats.txt $nick $+ = $+ 1
          }
          if ( %monatzeile != $null ) { 
            write -l $+ %monatzeilennummer $scriptdirstats $+ $mid($date,4,2) $+ .txt $nick $+ = $+ $calc( %monatpunkte + 1 )
          }
          if ( %zeile != $null ) { 
            write -l $+ %zeilennummer $scriptdirstats.txt $nick $+ = $+ $calc( %punkte + 1 )
          }
          inc %countuser 1
          halt
        }
        if ( %countuser == 10 ) && ( %quiz = $null ) {
          set %ersterna %ersterna $+ $nick $+ + $+ $calc(($uptime(mirc) - %zeit) / 1000) $+ +
          if ( $calc(($uptime(mirc)  - %zeit) / 1000) < $right($read($scriptdirbestzeit.txt,w,$nick $+ =*),$calc($len($read($scriptdirbestzeit.txt,w,$nick $+ =*)) - $pos($read($scriptdirbestzeit.txt,w,$nick $+ =*), = , 1))) ) { write -l $+ $readn $scriptdirbestzeit.txt $nick $+ = $+ $calc(($uptime(mirc)  - %zeit) / 1000) }
          if ( $right($read($scriptdirbestzeit.txt,w,$nick $+ =*),$calc($len($read($scriptdirbestzeit.txt,w,$nick $+ =*)) - $pos($read($scriptdirbestzeit.txt,w,$nick $+ =*), = , 1)))  == $null ) { write $scriptdirbestzeit.txt $nick $+ = $+ $calc(($uptime(mirc)  - %zeit) /1000) }
          set %nick %nick $+ $nick $+ .
          notice $nick %quizcolor Gratuliere, für deine richtige Antwort nach $mid(%ersterna,$calc($pos(%ersterna,+,20) +1),$calc($pos(%ersterna,+,19) - $pos(%ersterna,+,18) -1)) Sekunden bekommst du 1 Punkte ! 0,0      
          if ($nick == %duellteilnehmer) { inc %duellteilnehmerpunkte 1 }
          if ($nick == %duellteilnehmer1) { inc %duellteilnehmer1punkte 1 }
          if ($nick = %team1ok2) && (%teamrunde > 1) { inc %team1punkte 1 }
          if ($nick = %team1ok1) && (%teamrunde > 1) { inc %team1punkte 1 }
          if ($nick = %team2ok1) && (%teamrunde > 1) { inc %team2punkte 1 }
          if ($nick = %team2ok2) && (%teamrunde > 1) { inc %team2punkte 1 }
          var %zeile = $read($scriptdirstats.txt, w, $nick $+ =*)
          var %punkte = $right(%zeile,$calc($len(%zeile) - $pos(%zeile, = , 1)))
          var %nick = $left(%zeile, $pos(%zeile ,  =  , 1) )
          var %zeilennummer = $readn
          var %monatzeile = $read($scriptdirstats $+ $mid($date,4,2) $+ .txt, w, $nick $+ =*)
          var %monatpunkte = $right(%monatzeile,$calc($len(%monatzeile) - $pos(%monatzeile, = , 1)))
          var %monatnick = $left(%monatzeile, $pos(%monatzeile ,  =  , 1) )
          var %monatzeilennummer = $readn
          ;        echo -a         if ( %zeile != $null ) { write -l $+ %zeilennummer $scriptdirstats.txt $nick $+ = $+ $calc( %punkte + 1 ) }
          if (%monatzeile = $null) { write $scriptdirstats $+ $mid($date,4,2) $+ .txt $nick $+ = $+ 1 }
          if ( %zeile = $null ) { 
            write $scriptdirstats.txt $nick $+ = $+ 1
          }
          if ( %monatzeile != $null ) {     
            write -l $+ %monatzeilennummer $scriptdirstats $+ $mid($date,4,2) $+ .txt $nick $+ = $+ $calc( %monatpunkte + 1 )
          }
          if ( %zeile != $null ) { 
            write -l $+ %zeilennummer $scriptdirstats.txt $nick $+ = $+ $calc( %punkte + 1 )
          }
          inc %countuser 1
          halt
        }
      } 
    }
  }
  if ( %schaetzen != $null ) { 
    if ( ! !isin $1- ) && ( * !isin $1- ) && ( $nick $+ . !isin %nick ) && ($1- <= 999999999999999999 ) && ( $left($nick, 5) != guest ) && ( %countuser != 11) && ( $nick $+ . !isin %boese_nicks ) {
      inc %schaetzungen 1
      set %nick %nick $+ $nick $+ .
      if ( %antwort > $1 ) {
        set %schaetzung $+ %schaetzungen $calc( %antwort - $1 ) 
      }
      if ( %antwort <= $1 ) {
        set %schaetzung $+ %schaetzungen $calc( $1 - %antwort ) 
      }
      set %schaetzungnick $+ %schaetzungen $nick
    }
  }
}

alias mstats-erhoehen {
var %mplusanzahl = $count(%ersterna,+)
var %mrunde = 1
:naechster
if ( %mrunde > %mplusanzahl ) { unset %ersterna | unset %nick | halt }
while %mrunde <= %mplusanzahl {
var %mvorsprung = 1
var %mnick = $mid(%ersterna,$calc($pos(%ersterna,+,%mrunde) +1),$calc($pos(%ersterna,+,$calc(%mrunde +1)) - $calc($pos(%ersterna,+,%mrunde) +1)))
var %mzeile = $read($scriptdirstats $+ $mid($date,4,2) $+ .txt , w, %mnick $+ =*)
var %mpunkte = $right(%mzeile,$calc($len(%mzeile) - $pos(%mzeile, = , 1)))
var %mzeilennummer = $readn
goto rangliste
}
:rangliste

var %mhoehere-zeile = $read -l $+ $calc(%mzeilennummer - %mvorsprung) $scriptdirstats $+ $mid($date,4,2) $+ .txt
if ($calc(%mzeilennummer - %mvorsprung) = 1) { write -dl $+ %mzeilennummer $scriptdirstats $+ $mid($date,4,2) $+ .txt | write -il2 $scriptdirstats $+ $mid($date,4,2) $+ .txt %mnick $+ = $+ %mpunkte | inc %mrunde 2 | goto naechster }
var %mhoehere-punkte = $right(%mhoehere-zeile,$calc($len(%mhoehere-zeile) - $pos(%mhoehere-zeile, = , 1)))
var %mhoehere-nick = $left(%mhoehere-zeile, $pos(%mhoehere-zeile , = , 1) )
while ( %mhoehere-punkte < %mpunkte ) { var %merhoehung = ja | var %irgendwas1 = auch ja | inc %mvorsprung 1 | goto rangliste }
if ( %mhoehere-punkte >= %mpunkte ) && ( %merhoehung != $null ) {
write -dl $+ %mzeilennummer $scriptdirstats $+ $mid($date,4,2) $+ .txt
write -il $+ $calc(%mzeilennummer - %mvorsprung +1) $scriptdirstats $+ $mid($date,4,2) $+ .txt %mnick $+ = $+ %mpunkte
if (%mnick != $null) && (%irgendwas1 != $null) {
var %irgendwas1
set %mquiz.aufstieg %mquiz.aufstieg  $+ %mnick $+  ( $+ %mpunkte Pkt) auf Rang  $+ $calc(%mzeilennummer - %mvorsprung) $+  $+ ;
}
if (%mnick = $null ) {
timer 1 10 msg %quiz.channel 4,1Es sind folgende Quizzer in der Monatsstatistik aufgestiegen:8,1 %mquiz.aufstieg }
timer 1 11 unset %mquiz.aufstieg
inc %mrunde 2 | goto naechster }
if ( %mhoehere-punkte >= %mpunkte ) && ( %merhoehung = $null ) { inc %mrunde 2 | goto naechster }
}

alias stats-erhoehen {
  var %plusanzahl = $count(%ersterna,+)
  var %runde = 1
  :naechster
  if ( %runde > %plusanzahl ) { unset %countuser | mstats-erhoehen | unset %nick | halt }
  while %runde <= %plusanzahl {
    var %vorsprung = 1
    var %nick = $mid(%ersterna,$calc($pos(%ersterna,+,%runde) +1),$calc($pos(%ersterna,+,$calc(%runde +1)) - $calc($pos(%ersterna,+,%runde) +1)))
    var %zeile = $read($scriptdirstats.txt, w, %nick $+ =*)
    var %punkte = $right(%zeile,$calc($len(%zeile) - $pos(%zeile, = , 1)))
    var %zeilennummer = $readn
    goto rangliste 
  }
  :rangliste

  var %hoehere-zeile = $read -l $+ $calc(%zeilennummer - %vorsprung) $scriptdirstats.txt
  if ($calc(%zeilennummer - %vorsprung) = 1) { write -dl $+ %zeilennummer $scriptdirstats.txt | write -il2 $scriptdirstats.txt %nick $+ = $+ %punkte }
  var %hoehere-punkte = $right(%hoehere-zeile,$calc($len(%hoehere-zeile) - $pos(%hoehere-zeile, = , 1)))
  var %hoehere-nick = $left(%hoehere-zeile, $pos(%hoehere-zeile ,  =  , 1) )
  while ( %hoehere-punkte < %punkte ) { var %erhoehung = ja  | var %irgendwas = auch ja | inc %vorsprung 1 | goto rangliste }
  if ( %hoehere-punkte >= %punkte ) && ( %erhoehung != $null ) { 
    write -dl $+ %zeilennummer $scriptdirstats.txt 
    write -il $+ $calc(%zeilennummer - %vorsprung +1) $scriptdirstats.txt %nick $+ = $+ %punkte 
    if (%nick != $null) && (%irgendwas != $null) { 
      var %irgendwas
      set %quiz.aufstieg %quiz.aufstieg  $+ %nick $+  ( $+ %punkte Pkt) auf Rang  $+ $calc(%zeilennummer - %vorsprung) $+  $+ ;
    }
    if (%nick = $null ) {
    timer 1 10 msg %quiz.channel 4,1Es sind folgende Quizzer in der Statistik aufgestiegen:8,1 %quiz.aufstieg }
    timer 1 11 unset %quiz.aufstieg
  inc %runde 2 | goto naechster }
  while ( %hoehere-punkte >= %punkte ) && ( %erhoehung = $null ) { inc %runde 2 | goto naechster }
}

alias nach10sek {
  unset %frage
  set %quiz an  
  if ( %schaetzen != $null ) {
    msg %quiz.channel %quizcolor Die richtige Antwort war: 4 %antwortindenchannel 0
  }
  if ( %schaetzen = $null ) {
    msg %quiz.channel %quizcolor Eine richtige Antwort von ( $+ %antwortzahl Antworten) war: 4 %antwortindenchannel 0 
    if ( %wievielantworten > 0 ) { msg %quiz.channel %quizcolor Es gab $calc(%wievielantworten - 1) weitere Antwortmöglichkeiten 0 }
  }
  if ( $right(%runde,1) == 5 ) || ( $right(%runde,1) == 0 ) { set %los 1 | timerLos_loeschen 1 $calc(%quizzeit + 11) unset %los } 
  timernach_15_sek 1 5 /nach15sek
  set %schaetzantwort %antwort
  unset %antwort*
  frageinfo
}

alias nach15sek {
  if ( %duellok != $null ) {  set %duellteilnehmer1 %duellok1 | set %duellteilnehmer %duellok | set %duellrunde 1 | set %duellteilnehmerpunkte 0 | set %duellteilnehmer1punkte 0 | unset %duellok* }
  timerNeue_Frage 1 3 /neuefrage
  timerInfo 1 5 /info
  punkteindenchannel
}

alias frageinfo {
  var %frageninfozeilentext = $read(" $mircdir\bandyquiz\frageninfo.txt")
  set %frageninfotextmeldung %frageninfozeilentext
  msg %quiz.channel %quizcolorfrage Zusatzinfo: %frageninfotextmeldung
}

alias punkteindenchannel { 
  if ( %schaetzen != $null ) {
    var %durchlauf 1
    :schleife
    var %zahl = 1 
    while ( %schaetzung [ $+ [ %zahl ] ] = $null ) && ( %zahl <= 10 ) { inc %zahl 1 }
    set %schaetzerster %schaetzung  [ $+ [ %zahl ] ]
    while ( %schaetzungen >= %zahl ) { 
      if ( %schaetzerster >= %schaetzung [ $+ [ %zahl ] ] ) && ( %schaetzung [ $+ [ %zahl ] ] != $null ) {
        set %schaetzerster %schaetzung [ $+ [ %zahl ] ]
        set %schaetznickerst %schaetzungnick [ $+ [ %zahl ] ]
        var %position %zahl
        inc %zahl 1
      }
      else inc %zahl 1
    }
    if ( %schaetzungen < %zahl ) {
      if ( %durchlauf = 1 ) && (%schaetznickerst != $null) { 
        if ( %bier > 2 ) && ( $right(%bier,1) != 4 ) && ( $right(%bier,1) != 9 ) && ( %schaetznickerst != %biersammler ) {
          set %biersammler %schaetznickerst | set %trinken Bier | unset %raumrunde | set %punkteanzeige %schaetznickerst ( $+ $calc(%bier + 8) Pkt),
          var %zeile = $read($scriptdirstats.txt, w, %schaetznickerst $+ =*)
          var %punkte = $right(%zeile,$calc($len(%zeile) - $pos(%zeile, = , 1)))
          var %nick = $left(%zeile, $pos(%zeile ,  =  , 1) )
          var %zeilennummer = $readn
          var %monatzeile = $read($scriptdirstats $+ $mid($date,4,2) $+ .txt, w, %schaetznickerst $+ =*)
          var %monatpunkte = $right(%monatzeile,$calc($len(%monatzeile) - $pos(%monatzeile, = , 1)))
          var %monatnick = $left(%monatzeile, $pos(%monatzeile ,  =  , 1) )
          var %monatzeilennummer = $readn
          if (%monatzeile = $null) { write $scriptdirstats $+ $mid($date,4,2) $+ .txt %schaetznickerst $+ = $+ $calc(%bier + 8) }
          if ( %zeile = $null ) { 
          write $scriptdirstats.txt %schaetznickerst $+ = $+ $calc(%bier + 8) }
          if ( %monatzeile != $null ) { write -l $+ %monatzeilennummer $scriptdirstats $+ $mid($date,4,2) $+ .txt %schaetznickerst $+ = $+ $calc( %monatpunkte + $calc(%bier + 8) ) }
          if ( %zeile != $null ) { 
          write -l $+ %zeilennummer $scriptdirstats.txt %schaetznickerst $+ = $+ $calc( %punkte + $calc(%bier + 8) ) }
        }
        set %bier 1
        if (($right(%bier,1) == 4 ) || ( $right(%bier,1) == 9 )) && ( %schaetznickerst != %biersammler ) {
          var %i = 1
          set %punkteanzeige %schaetznickerst ( $+ $calc(%bier + 13) Pkt),
          set %biersammler schaetznickerst
          var %zeile = $read($scriptdirstats.txt, w, %schaetznickerst $+ =*)
          var %punkte = $right(%zeile,$calc($len(%zeile) - $pos(%zeile, = , 1)))
          var %nick = $left(%zeile, $pos(%zeile ,  =  , 1) )
          var %zeilennummer = $readn
          var %monatzeile = $read($scriptdirstats $+ $mid($date,4,2) $+ .txt, w, %schaetznickerst $+ =*)
          var %monatpunkte = $right(%monatzeile,$calc($len(%monatzeile) - $pos(%monatzeile, = , 1)))
          var %monatnick = $left(%monatzeile, $pos(%monatzeile ,  =  , 1) )
          var %monatzeilennummer = $readn
          if (%monatzeile = $null) { write $scriptdirstats $+ $mid($date,4,2) $+ .txt %schaetznickerst $+ = $+ $calc(%bier + 13) }
          if ( %zeile = $null ) { 
            write $scriptdirstats.txt %schaetznickerst $+ = $+ $calc(%bier + 13)
          }
          if ( %monatzeile != $null ) { write -l $+ %monatzeilennummer $scriptdirstats $+ $mid($date,4,2) $+ .txt %schaetznickerst $+ = $+ $calc( %monatpunkte + $calc(%bier + 13) ) }
          if ( %zeile != $null ) { 
            write -l $+ %zeilennummer $scriptdirstats.txt %schaetznickerst $+ = $+ $calc( %punkte + $calc(%bier + 13) )
          }
          set %bier 1 
        }
        if (( $right(%bier,1) == 9 ) || ($right(%bier,1) == 4 )) && ( %schaetznickerst == %biersammler ) {
          inc %bier 1 
          set %punkteanzeige %schaetznickerst ( $+ $calc( (%bier - 3) +10 ) Pkt),
          timerbier 1 10 /bierspruch
          if ( $read($scriptdirbier.txt, w, %schaetznickerst $+ * ) = $null ) { write $scriptdirbier.txt %schaetznickerst | write $scriptdirbier.txt 1 | write $scriptdirbier $+ $mid( $date,4,2) $+ .txt %schaetznickerst | write $scriptdirbier $+ $mid( $date,4,2) $+ .txt 1 }
          if ( $read($scriptdirbier.txt, w, %schaetznickerst $+ * ) != $null ) { 
            var %biere = $read -l $+ $calc($readn + 1) $scriptdirbier.txt 
            write -l $+ $readn $scriptdirbier.txt $calc(%biere +1)
            if ( $read($scriptdirbier $+ $mid( $date ,4,2) $+ .txt, w, %schaetznickerst $+ * ) != $null ) {
              var %mbiere = $read -l $+ $calc($readn + 1) $scriptdirbier $+ $mid( $date ,4,2) $+ .txt 
              write -l $+ $readn $scriptdirbier $+ $mid( $date ,4,2) $+ .txt $calc(%mbiere +1) 
            }
            if ( $read($scriptdirbier $+ $mid( $date ,4,2) $+ .txt, w, %schaetznickerst $+ * ) = $null ) { 
              write $scriptdirbier $+ $mid( $date,4,2) $+ .txt %schaetznickerst
            write $scriptdirbier $+ $mid( $date,4,2) $+ .txt 1 }
          }
          var %zeile = $read($scriptdirstats.txt, w, %schaetznickerst $+ =*)
          var %punkte = $right(%zeile,$calc($len(%zeile) - $pos(%zeile, = , 1)))
          var %nick = $left(%zeile, $pos(%zeile ,  =  , 1) )
          var %zeilennummer = $readn
          var %monatzeile = $read($scriptdirstats $+ $mid($date,4,2) $+ .txt, w, %schaetznickerst $+ =*)
          var %monatpunkte = $right(%monatzeile,$calc($len(%monatzeile) - $pos(%monatzeile, = , 1)))
          var %monatnick = $left(%monatzeile, $pos(%monatzeile ,  =  , 1) )
          var %monatzeilennummer = $readn
          if (%monatzeile = $null) { write $scriptdirstats $+ $mid($date,4,2) $+ .txt %schaetznickerst $+ = $+ $calc( (%bier - 3) +10 ) }
          if ( %zeile = $null ) { 
            write $scriptdirstats.txt %schaetznickerst $+ = $+ $calc( (%bier - 3) +10 )
          }
          if ( %monatzeile != $null ) {            write -l $+ %monatzeilennummer $scriptdirstats $+ $mid($date,4,2) $+ .txt %schaetznickerst $+ = $+ $calc( %monatpunkte + $calc( (%bier - 3) +10 ) ) }
          if ( %zeile != $null ) { 
            write -l $+ %zeilennummer $scriptdirstats.txt %schaetznickerst $+ = $+ $calc( %punkte + $calc( (%bier - 3) +10 ) )
          }
        }
        if ( %schaetznickerst  == %biersammler ) { inc %bier 1 }
        if ( %schaetznickerst  != %biersammler ) { set %bier 1 | set %biersammler %schaetznickerst | set %trinken Bier | unset %raumrunde }
        set %punkteanzeige %schaetznickerst (10 Pkt),
        var %zeile = $read($scriptdirstats.txt, w, %schaetznickerst $+ =*)
        var %punkte = $right(%zeile,$calc($len(%zeile) - $pos(%zeile, = , 1)))
        var %nick = $left(%zeile, $pos(%zeile ,  =  , 1) )
        var %zeilennummer = $readn
        var %monatzeile = $read($scriptdirstats $+ $mid($date,4,2) $+ .txt, w, %schaetznickerst  $+ =*)
        var %monatpunkte = $right(%monatzeile,$calc($len(%monatzeile) - $pos(%monatzeile, = , 1)))
        var %monatnick = $left(%monatzeile, $pos(%monatzeile ,  =  , 1) )
        var %monatzeilennummer = $readn
        if (%monatzeile = $null) { 
        write $scriptdirstats $+ $mid($date,4,2) $+ .txt %schaetznickerst $+ = $+ 10 }
        if ( %zeile = $null ) { 
          write $scriptdirstats.txt %schaetznickerst $+ = $+ 10
        }
        if ( %monatzeile != $null ) {   
        write -l $+ %monatzeilennummer $scriptdirstats $+ $mid($date,4,2) $+ .txt %schaetznickerst $+ = $+ $calc( %monatpunkte + 10 ) }
        if ( %zeile != $null ) { 
          write -l $+ %zeilennummer $scriptdirstats.txt %schaetznickerst $+ = $+ $calc( %punkte + 10 )
        }
      }
      if ( %durchlauf = 2 ) && (%schaetznickerst != $null) { set %punkteanzeige %punkteanzeige %schaetznickerst (7 Pkt), }
      if ( %durchlauf = 3 ) && (%schaetznickerst != $null) { set %punkteanzeige %punkteanzeige %schaetznickerst (5 Pkt), }
      if ( %durchlauf = 4 ) && (%schaetznickerst != $null) { set %punkteanzeige %punkteanzeige %schaetznickerst (4 Pkt), }
      if ( %durchlauf = 5 ) && (%schaetznickerst != $null) { set %punkteanzeige %punkteanzeige %schaetznickerst (3 Pkt), }
      if ( %durchlauf = 6 ) && (%schaetznickerst != $null) { set %punkteanzeige %punkteanzeige %schaetznickerst (2 Pkt), }
      if ( %durchlauf = 7 ) && (%schaetznickerst != $null) { set %punkteanzeige %punkteanzeige %schaetznickerst (1 Pkt), }
      if ( %durchlauf = 8 ) && (%schaetznickerst != $null) { set %punkteanzeige %punkteanzeige %schaetznickerst (1 Pkt), }
      if ( %durchlauf = 9 ) && (%schaetznickerst != $null) { set %punkteanzeige %punkteanzeige %schaetznickerst (1 Pkt), }
      if ( %durchlauf = 10 ) && (%schaetznickerst != $null) { set %punkteanzeige %punkteanzeige %schaetznickerst (1 Pkt), }
      inc %durchlauf 1
      unset %schaetzungnick [ $+ [ %position ] ]
      unset %schaetzung [ $+ [ %position ] ]
      unset %schaetznickerst
      unset %schaetzerster 
      if ( %durchlauf < 11 ) { goto schleife }
    }
    msg %quiz.channel %quizcolor %punkteanzeige 
    unset %punkteanzeige
  }
  else {
    var %nicks = $calc(($count(%ersterna,+) -1) / 2)
    var %nickanzahl = 1
    var %runde = 1
    goto counter
    :counter
    if ( %nickanzahl < $calc(%nicks * 2) ) {
      var %nick = $mid(%ersterna,$calc($pos(%ersterna,+,%nickanzahl) +1),$calc($pos(%ersterna,+,$calc(%nickanzahl +1)) - $calc($pos(%ersterna,+,%nickanzahl) +1)))  
      var %punktzeit = $mid(%ersterna,$calc($pos(%ersterna,+,$calc(%nickanzahl +1)) +1),$calc($pos(%ersterna,+,$calc(%nickanzahl +2)) - $calc($pos(%ersterna,+,$calc(%nickanzahl +1)) +1)))      
      if ( %runde = 1 ) { var %punkte %punkte_in_den_channel | goto variable }
      if ( %runde = 2 ) { var %punkte 7 | goto variable }
      if ( %runde = 3 ) { var %punkte 5 | goto variable }
      if ( %runde = 4 ) { var %punkte 3 | goto variable }
      if ( %runde = 5 ) { var %punkte 2 | goto variable }
      if ( %runde = 6 ) { var %punkte 1 | goto variable }
      if ( %runde = 7 ) { var %punkte 1 | goto variable }
      if ( %runde = 8 ) { var %punkte 1 | goto variable }
      if ( %runde = 9 ) { var %punkte 1 | goto variable }
      if ( %runde = 10 ) { var %punkte 1 | goto variable }
    }
    if ( %nickanzahl >= $calc(%nicks * 2) ) { msg %quiz.channel %quizcolor %punkteanzeige | unset %punkteanzeige | stats-erhoehen | halt }
    :variable
    set %punkteanzeige %punkteanzeige %nick ( $+ %punkte Pkt, %punktzeit sek $+ ),
    inc %runde 1  
    inc %nickanzahl 2 
    goto counter 
  }
}
alias stopfrage { set %quizstatus Aus }

alias neuefrage { 
  if ( $server == irc.birc-script.de ) && ( $me isop #bandyscript ) { goto done }
  if ( $server == irc.birc-script.de ) && ( $me isop #quiz ) { goto done }
  if ( $server == irc.birc-script.de ) && ( $chan == #quiz ) { msg $chan 12 $me !! Dieser Raum ist gesperrt für Dein Quiz. | set %quizstatus Aus | msg $active  12Das Quiz ist wieder AUSGESCHALTET | halt } 
  if ( $server == irc.birc-script.de ) && ( $chan == #radiosunlight ) { msg $chan 12 $me !! Dieser Raum ist gesperrt für Dein Quiz. | set %quizstatus Aus | msg $active  12Das Quiz ist wieder AUSGESCHALTET | halt } 
  if ( $server == irc.birc-script.de ) && ( $chan == #bandyscript ) { msg $chan 12 $me !! Dieser Raum ist gesperrt für Dein Quiz. | set %quizstatus Aus | msg $active  12Das Quiz ist wieder AUSGESCHALTET | halt }
  if ( $server == irc.radiosunlight.de ) && ( $me isop #bandyscript ) { goto done }
  if ( $server == irc.radiosunlight.de ) && ( $me isop #quiz ) { goto done }
  if ( $server == irc.radiosunlight.de ) && ( $chan == #quiz ) { msg $chan 12 $me !! Dieser Raum ist gesperrt für Dein Quiz. | set %quizstatus Aus | msg $active  12Das Quiz ist wieder AUSGESCHALTET | halt } 
  if ( $server == irc.radiosunlight.de ) && ( $chan == #radiosunlight ) { msg $chan 12 $me !! Dieser Raum ist gesperrt für Dein Quiz. | set %quizstatus Aus | msg $active  12Das Quiz ist wieder AUSGESCHALTET | halt } 
  if ( $server == irc.radiosunlight.de ) && ( $chan == #bandyscript ) { msg $chan 12 $me !! Dieser Raum ist gesperrt für Dein Quiz. | set %quizstatus Aus | msg $active  12Das Quiz ist wieder AUSGESCHALTET | halt }
  :done
  if ( $right(%bier,1) == 0 ) || ( $right(%bier,1) == 5 ) {
    var %bierstatsnick = $read($scriptdirbier.txt , w, %biersammler ) 
    var %bierzeilennummer = $readn
    var %bierpunkte = $read -l $+ $calc(%bierzeilennummer + 1) $scriptdirbier.txt
    var %zahldazu = 1
    var %aufstieg = 0    
    if ( %bierstatsnick != $null ) { goto bierstatsfinden }

    :bierstatsfinden
    var %vorgaenger = $read -l $+ $calc(%bierzeilennummer - %zahldazu) $scriptdirbier.txt
    if ( %bierpunkte > %vorgaenger ) { inc %aufstieg 1 | inc %zahldazu 2 | goto bierstatsfinden }
    if ( %bierpunkte <= %vorgaenger ) && ( %aufstieg != $null ) { write -dl $+ %bierzeilennummer $scriptdirbier.txt | write -dl $+ $calc(%bierzeilennummer) $scriptdirbier.txt | write -il $+ $calc(%bierzeilennummer - %zahldazu +1) $scriptdirbier.txt %biersammler | write -il $+ $calc(%bierzeilennummer - %zahldazu +2 ) $scriptdirbier.txt %bierpunkte }
    if ( $calc(%bierzeilennummer - %zahldazu) < 1 ) { write -dl $+ %bierzeilennummer $scriptdirbier.txt | write -dl $+ $calc(%bierzeilennummer) $scriptdirbier.txt | write -il1 $scriptdirbier.txt %biersammler | write -il2 $scriptdirbier.txt %bierpunkte }
  }
  if ( %quizstatus == Aus ) { halt }
  /unset %schaetz*  
  /unset %ord_*
  /unset %auto!* 
  /unset %wievielantworten   
  /unset %autostop
  /unset %ersterna
  /unset %punkte_in_den_channel  
  /unset %autotip   
  /unset %nick
  /unset %quiztyp
  /unset %countuser
  /unset %unterstrichen
  /timer666 off  
  /timerRunde 1 10 /inc %runde 1
  /timerDuell 1 5 /duell
  /timer 1 5 /teamstats
  msg %quiz.channel %quizcolor Runde $calc(%runde + 1) $+ : Die nächste Frage wird in $calc(%quizzeit +1) Sekunden gestellt 
  if ( $right(%bier,1) == 4 ) || ( $right(%bier,1) == 9 ) { msg %quiz.channel 4 %biersammler 12 steht eine Frage vor dem nächsten Glas %trinken wer %biersammler stoppt (und das Glas %trinken beschützt *gg*) bekommt zusätzlich $calc(%bier + 3) Punkte }
  if (( $right(%bier,1) != 4 ) && ( $right(%bier,1) != 9 ) ) && ( %bier > 2 ) { msg %quiz.channel 4 %biersammler 12 hat eine %bier $+ er Serie hingelegt, wer %biersammler stoppt bekommt zusätzlich $calc(%bier - 2) Punkte }

  /timerFrage 1 %quizzeit /set %frage $read(" $+ $file($mircdir) $+ bandyquiz\fragen.txt",%quiz.frage)
  /timerAntwort 1 %quizzeit /antworten
  /timerQuiztyp 1 %quizzeit /quizmodus
  /timer 1 %quizzeit /unset %quiz
  /timerFrage_stellen 1 $calc(%quizzeit +1) /fragestellen
  /timerAuto_Tip 1 $calc(%quizzeit + 30) /autotip1 
} 

alias quizmodus {
  set %quiztyp $read(" $+ $file($mircdir) $+ bandyquiz\fragen.txt",%quiz.typ)
  if ( %quiztyp != $null) {
    if ( $left(%quiztyp,40 ) = Die vorherige Frage war eine Schätzfrage ) {
      set %schaetzen ja
      timerautotip off
    }
  }
}

alias bierspruch { 
  if (%raumrunde != $null) && (%trinken != $null) { msg %quiz.channel 4 %biersammler 12 hat entschieden eine Channelrunde %trinken zu schmeissen! Ein hoch auf den Spender!! PROST!!! | unset %raumrunde }
  elseif (%raumrunde != $null) && (%trinken == $null) { msg %quiz.channel 4 %biersammler  12 hat entschieden eine Channelrunde 4 BIER 12 zu schmeissen! Ein hoch auf den Spender!! PROST!!! | unset %raumrunde }
  elseif (%trinken != $null) && (%raumrunde == $null) { msg %quiz.channel Herzlichen Glückwunsch %biersammler du hast %bier mal in Folge die Frage als Erster beantwortet und wirst dafür mit einem Glas 4 $upper(%trinken)  belohnt!!! 12*PROST*  }
  elseif (%trinken == $null) && (%raumrunde = $null) { msg %quiz.channel Herzlichen Glückwunsch %biersammler du hast %bier mal in Folge die Frage als Erster beantwortet und wirst dafür mit einem Glas 4 BIER  belohnt!!! 12*PROST* } 
}

alias teamstats {  
  if (%teamrunde = 1) { msg %quiz.channel 12 Das Duell zwischen  %team1ok1  $+ ,  %team1ok2  und  %team2ok1  $+ ,  %team2ok2  fängt mit der nächsten Frage an! | inc %teamrunde 1 | halt }
  if (%teamrunde >= 11) && (%team1punkte  > %team2punkte ) { msg %quiz.channel 12 Endstand nach $calc(%teamrunde -1) Runden im Duell zwischen  %team1ok1  $+ , $+  %team1ok2  und  %team2ok1  $+ , $+  %team2ok2  ist %team1punkte : %team2punkte $+ .  12 Somit haben  %team1ok1  $+ ,  %team1ok2  mit  $calc(%team1punkte - %team2punkte) Punkten  Vorsprung gewonnen. Herzlichen Glückwunsch!!! | inc %gewonnenduell [ $+ [ %team1ok1 ] ] 1 | inc %gewonnenduell [ $+ [ %team1ok2 ] ] 1 | inc %anzahlduell [ $+ [ %team1ok2 ] ] 1 | inc %anzahlduell [ $+ [ %team1ok1 ] ] 1 | inc %anzahlduell [ $+ [ %team2ok2 ] ] 1 | inc %anzahlduell [ $+ [ %team2ok1 ] ] 1 | unset %team* }
  if (%teamrunde >= 11) && (%team1punkte  < %team2punkte ) { msg %quiz.channel 12 Endstand nach $calc(%teamrunde -1) Runden im Duell zwischen  %team1ok1  $+ , $+  %team1ok2  und  %team2ok1  $+ , $+  %team2ok2  ist %team1punkte : %team2punkte $+ .  12 Somit haben  %team2ok1  $+ ,  %team2ok2  mit  $calc(%team2punkte - %team1punkte) Punkten  Vorsprung gewonnen. Herzlichen Glückwunsch!!! | inc %gewonnenduell [ $+ [ %team1ok1 ] ] 1 | inc %gewonnenduell [ $+ [ %team1ok2 ] ] 1 | inc %anzahlduell [ $+ [ %team1ok2 ] ] 1 | inc %anzahlduell [ $+ [ %team1ok1 ] ] 1 | inc %anzahlduell [ $+ [ %team2ok2 ] ] 1 | inc %anzahlduell [ $+ [ %team2ok1 ] ] 1 | unset %team* }
  if (%teamrunde >= 11) && (%team1punkte  = %team2punkte ) { msg %quiz.channel 12 Endstand nach $calc(%teamrunde -1) Runden im Duell zwischen  %team1ok1  $+ , $+  %team1ok2  und  %team2ok1  $+ , $+  %team2ok2  ist %team1punkte : %team2punkte $+ .  12 Das Duell ist Unentschieden ausgegangen | inc %anzahlduell [ $+ [ %team1ok2 ] ] 1 | inc %anzahlduell [ $+ [ %team1ok1 ] ] 1 | inc %anzahlduell [ $+ [ %team2ok2 ] ] 1 | inc %anzahlduell [ $+ [ %team2ok1 ] ] 1 | unset %team* }
  if (%teamrunde <= 10) { msg %quiz.channel 12 In der $calc(%teamrunde -1) $+ . Duellrunde hat  %team1ok1  $+ , $+  %team1ok2  %team1punkte Punkte und  %team2ok1  $+ , $+  %team2ok2  %team2punkte Punkte | inc %teamrunde 1 }
}

alias duell {  
  if (%duellrunde = 1) { msg %quiz.channel 12 Das Duell zwischen  %duellteilnehmer  und  %duellteilnehmer1  fängt mit der nächsten Frage an! | inc %duellrunde 1 | halt }
  if (%duellrunde >= 11) && (%duellteilnehmerpunkte > %duellteilnehmer1punkte) { msg %quiz.channel 12 Endstand nach $calc(%duellrunde -1) Runden im Duell zwischen  %duellteilnehmer  und  %duellteilnehmer1  ist %duellteilnehmerpunkte : %duellteilnehmer1punkte $+ .  12 Somit hat  %duellteilnehmer  mit  $calc(%duellteilnehmerpunkte - %duellteilnehmer1punkte) Punkten  Vorsprung gewonnen. Herzlichen Glückwunsch!!! | inc %gewonnenduell [ $+ [ %duellteilnehmer ] ] 1 | inc %anzahlduell [ $+ [ %duellteilnehmer ] ] 1 | inc %anzahlduel1 [ $+ [ %duellteilnehmer1 ] ] 1 | unset %duell* }
  if (%duellrunde >= 11) && (%duellteilnehmerpunkte < %duellteilnehmer1punkte) { msg %quiz.channel 12 Endstand nach $calc(%duellrunde -1) Runden im Duell zwischen  %duellteilnehmer  und  %duellteilnehmer1  ist %duellteilnehmerpunkte : %duellteilnehmer1punkte $+ .  12 Somit hat  %duellteilnehmer1  mit  $calc(%duellteilnehmer1punkte - %duellteilnehmerpunkte) Punkten  Vorsprung gewonnen. Herzlichen Glückwunsch!!! | inc %gewonnenduell [ $+ [ %duellteilnehmer1 ] ] 1 | inc %anzahlduell [ $+ [ %duellteilnehmer ] ] 1 | inc %anzahlduell [ $+ [ %duellteilnehmer1 ] ] 1 | unset %duell* }
  if (%duellrunde >= 11) && (%duellteilnehmerpunkte = %duellteilnehmer1punkte) { msg %quiz.channel 12 Endstand nach $calc(%duellrunde -1) Runden im Duell zwischen  %duellteilnehmer  und  %duellteilnehmer1  ist %duellteilnehmerpunkte : %duellteilnehmer1punkte $+ .  12 Das Duell ist Unentschieden ausgegangen | inc %gewonnenduell [ $+ [ %duellteilnehmer1 ] ] 1 | inc %anzahlduell [ $+ [ %duellteilnehmer ] ] 1 | inc %anzahlduell1 [ $+ [ %duellteilnehmer1 ] ] 1 | unset %duell* }
  if (%duellrunde <= 10) { msg %quiz.channel 12 In der $calc(%duellrunde -1) $+ . Duellrunde hat  %duellteilnehmer  %duellteilnehmerpunkte Punkte und  %duellteilnehmer1  %duellteilnehmer1punkte Punkte | inc %duellrunde 1 }
}

alias fragestellen {
  msg %quiz.channel %quizcolorfrage FRAGE: %quizcolorfrage1 %frage | set %zeit $uptime(mirc) | set -u3 %hilfen_ 1  | autofrage
  if (%schaetzen = ja ) { /timernach10sek 1 20 /nach10sek }
}

alias autotip1 {
  if ( %nick = $null )  {  /timer666 $len(%antwort) %autotipzeit /autotip 
  } 
} 



alias antworten {
  var %antwortzeile = $read(" $+ $file($mircdir) $+ bandyquiz\fragen.txt",%quiz.antwort) 
  set %antwortzahl $count(%antwortzeile, + )
  set %möglichkeiten %antwortzeile
  if (%antwortzahl != 0 ) {  set %antwort $left(%antwortzeile,$calc($pos(%antwortzeile,+,1) -1 )) | set %antwortindenchannel %antwort }
  if (%antwortzahl = 0 ) { set %antwort %antwortzeile | set %antwortindenchannel %antwort | set %antwortzahl 1 }

  if (%antwortzahl > 1) {
    var %zahl = 1
    while %zahl <= %antwortzahl {
      var %anfang = $calc($pos(%antwortzeile,+,%zahl) + 1 )
      var %ende = $calc($pos(%antwortzeile,+,$calc(%zahl + 1)) - $calc($pos(%antwortzeile,+,%zahl) +1 ) ) 
      if ( $len($mid(%antwortzeile,%anfang, %ende)) > $len(%antwort) ) {
        set %antwort [ $+ [ $calc(%zahl + 1) ] ] %antwort
        set %antwort $mid(%antwortzeile,%anfang, %ende)
      }
      else {
        set %antwort [ $+ [ $calc(%zahl + 1) ] ] $mid(%antwortzeile,%anfang, %ende)
      }
      inc %zahl 1
    }
    set %antwortindenchannel %antwort

    while %zahl > 1 {
      if ( %antwort [ $+ [ %zahl ] ] isin %antwortindenchannel) {
        var %position = $calc($pos(%antwortindenchannel,%antwort [ $+ [ %zahl ] ]) - 1)

        set %antwortindenchannel $left(%antwortindenchannel, %position) $+  $+ %antwort [ $+ [ %zahl ] ] $+  $+ $mid(%antwortindenchannel, $calc(%position + 1  + $len(%antwort [ $+ [ %zahl ] ])))
        set %zahl 0
      }
      else inc %zahl -1 
    }
  }
}

alias autofrage {
  var %infozeile = $read(" $+ $file($mircdir) $+ bandyquiz\fragen.txt",%quiz.typ) 
  set %infotext %infozeile
  /write -c $mircdir\bandyquiz\frageninfo.txt %infotext
  set %inc.zahl $rand(0,$calc($lines(" $+ $file($mircdir) $+ bandyquiz\fragen.txt") / 3 ) )  
  set %quiz.frage $calc( ( %inc.zahl * 3) + 1 )
  set %quiz.antwort $calc( ( %inc.zahl * 3) + 2 )
  set %quiz.typ $calc( ( %inc.zahl * 3) + 3 )
}

alias autotip {  
  if ( %autostop != $null ) { halt }
  if ( %autotip = $null ) { 
    if ( %auto!tip != $null ) { set %autotip 1 } 
    if ( %auto!tipp != $null ) { set %autotip 3 } 
  }
  inc %autotip 1
  if ( %autotip >= $len(%antwort) ) { halt }
  else {
    if ( %auto!vok == $null ) {
      var %buchstaben = $left($replace(%antwort, $chr(32), _), %autotip) 
      var %punktpunktpunkt = $right($replace(%antwort , $chr(32), _, a,., ä,., b,., c,., d,., e,., f,., g,., h,., i,., j,., k,., l,., m,., n,., o,., ö,., p,., q,., r,., s,., t,., u,., ü,., v,., w,., x,., y,., z,., 0,., 1,., 2,., 3,., 4,., 5,., 6,., 7,., 8,., 9,.), $calc($len(%punktpunktpunkt)- %autotip ))
      if ( isin %antwortindenchannel) || ( %unterstrichen != $null ) { 
        if ( %unterstrichen = $null ) { 
          set %erstesU $pos(%antwortindenchannel,,1) 
          set %zweitesU $calc($pos(%antwortindenchannel,,2) -1)
          set %unterstrichen ja
          set %antwortindenchannel $remove(%antwortindenchannel, )
        }
        var %zeile = %buchstaben $+ %punktpunktpunkt
        msg %quiz.channel %quizcolorfrage Tipp: $replace($left(%zeile, $calc(%erstesU -1)) $+  $+ $mid(%zeile, %erstesU , $calc(%zweitesU - 1)) $+  $+ $right(%zeile,$calc($len(%zeile) - $calc(%zweitesU - 1))) , _ , $chr(32) )
      }
      else {
        msg %quiz.channel %quizcolorfrage Tipp: $replace(%buchstaben $+ %punktpunktpunkt, _, $chr(32) )
      }
    }
    if ( %auto!vok != $null ) {
      var %buchstaben = $left($replace(%antwortindenchannel, $chr(32), _), %autotip)
      var %punktpunktpunkt = $right($replace(%antwort, b,., c,., d,., f,., g,., h,., j,., k,., l,., m,., n,., p,., q,., r,., s,., t,., v,., w,., x,., y,., z,., 0,., 1,., 2,., 3,., 4,., 5,., 6,., 7,., 8,., 9,.), $calc($len(%punktpunktpunkt)- %autotip ))
      if ( isin %antwortindenchannel) || ( %unterstrichen != $null ) { 
        if ( %unterstrichen = $null ) { 
          set %erstesU $pos(%antwortindenchannel,,1) 
          set %zweitesU $calc($pos(%antwortindenchannel,,2) -1)
          set %unterstrichen ja
          set %antwortindenchannel $remove(%antwortindenchannel, )
        }
        var %zeile = %buchstaben $+ %punktpunktpunkt
        msg %quiz.channel %quizcolorfrage Tipp: $replace($left(%zeile, $calc(%erstesU -1)) $+  $+ $mid(%zeile, %erstesU , $calc(%zweitesU - 1)) $+  $+ $right(%zeile,$calc($len(%zeile) - $calc(%zweitesU - 1))) , _, $chr(32))
      }
      else {
        msg %quiz.channel %quizcolorfrage Tipp: $replace(%buchstaben $+ %punktpunktpunkt, _, $chr(32) )
      }
    }
  }
}
#quiz off
on *:connect: { set %quiznick | set %wieviel 0 | set %quiz_zähler 0 | set %notify $notify(0) | timernotice1 1 5 quiz_not | timernotice2 0 300 quiz_not }
#quiz end

alias quiz_not { 
  timernotice2 0 300 quiz_not
  inc %wieviel 6
  var %xp = 1
  goto quiznotify
  :quiznotify
  if ( %quiz_zähler < %wieviel ) { 
    if ( %xp < %notify ) {
      if ( $notify( %xp ).ison == $true ) && ( $notify( %xp ) !isin %quiznick ) && ( $left($notify( %xp ),$calc($pos($notify( %xp ),!) -1)) $+ . !isin %boese_nicks ) && ($level($notify( %xp )) == 101) { set %zeile.quiznachricht $notify( %xp ) | if ( %zeile.quiznachricht = *!*@* ) { msg %zeile.quiznachricht Hi, das Quiz läuft, du weisst schon wo :) Wer diese Nachricht nicht mehr bekommen möchte soll mir bescheid sagen! } | if ( %zeile.quiznachricht != *!*@* ) { msg %zeile.quiznachricht Hi, das Quiz läuft, du weisst schon wo :) Wer diese Nachricht nicht mehr bekommen möchte soll mir bescheid sagen! } | set %quiznick %quiznick %zeile.quiznachricht | inc %xp 1 | inc %quiz_zähler 1 }
    }
    if ( %xp >= %notify ) { halt }
    inc %xp 1
    goto quiznotify
  }
}
on *:part:%quiz.channel: { 
  inc %quizbesucher 1
  if ( %quizstatus = An ) {
    if ( $nick( %quiz.channel ,0) <= %mindestquizuser ) && ( %autoquizanfang = Ein ) {
      set %quizstatus Aus | timerfrage off | timerantwort off | timerquiztyp off | timer2 off | timerfrage_stellen off | timer666 off | timerauto_tip off | timerduell off | msg %quiz.channel  11,1Das Quiz ist AUSGESCHALTET
    }
  }
}
on *:join:%quiz.channel: { 
  { 
    if ( %floodno == $null ) { set -u1 %floodno 1
      if ( %frage = $null ) { /notice $nick %quizhinweis Zur Zeit is keine Frage gestellt 0 }
      if ( %frage != $null ) { /notice $nick %quizhinweis 4Es wurde folgende Frage gestellt:12 %frage 0 }
    }
  }
  inc %quizbesucher 1
  if ($level($nick $+ !*@*) == 101) {
    if ($nick $+ . isin %boese_nicks) { halt }
    if ( $me isop $chan ) { /mode # +v $nick }
    if ( $me !isop $chan ) { cs voice # $nick }
    if ( $nick !isin %quiznick ) { set %quiznick $nick $+ !*@* } 
    if ( %quizstatus = Aus ) {
      if ( $nick( %quiz.channel ,0) >= %mindestquizuser ) && ( %autoquizanfang = Ein ) {
        /msg %quiz.channel  11,1Das Quiz ist ANGESCHALTET | set %quizstatus An | /neuefrage 
      }
    }
  }
  if ($level($nick $+ !*@*) != 101) && ( %quizstatus = Aus ) && ( %autoquizanfang = Ein ) {
    if ( $nick( %quiz.channel ,0) >= %mindestquizuser ) {
      /msg %quiz.channel  11,1Das Quiz ist ANGESCHALTET | set %quizstatus An | /neuefrage 
    }
  }
}


;NEU NEU NEU NEU NEU NEU NEU NEU NEU NEU NEU NEU NEU NEU NEU NEU NEU NEU NEU NEU NEU NEU NEU NEU NEU NEU NEU NEU NEU 


alias duellsortieren {
  var %zeile = 1
  :sort
  if ( $read(remote.ini, w, *anzahlduell*, %zeile ) != $null ) { 
    write $scriptdirduellanzahl.txt $right($read(remote.ini, w, *anzahlduell*, %zeile ), $calc($pos($read(remote.ini, w, *anzahlduell*, %zeile ),=,1) * -1))
    var %zeile $calc($readn + 1) 
  goto sort }
}

alias sortieren {
  set %fenster_zeilen $lines($scriptdirstatsunsortiert.txt)
  set %i 2
  var %ord_rund_ = 1
  var %z = 2
  set %xyz_zeile $read -l $+ %z $scriptdirstatsunsortiert.txt 
  set %xyz_punkte $right(%xyz_zeile,$calc($len(%xyz_zeile) - $pos(%xyz_zeile, = , 1))) 
  goto schauen
  :schauen
  inc %ord_rund_ 1
  if ( %i > %fenster_zeilen) { 
    write $scriptdirsortiert.txt %xyz_zeile 
    echo -a %ord_rund_ $+ . %xyz_zeile
    /write -ds $+ %xyz_zeile $scriptdirstatsunsortiert.txt
  halt }
  if ( %i <= %fenster_zeilen) { 
    set %prüf_zeile $read -l $+ %i $scriptdirstatsunsortiert.txt 
    set %prüf_punkte $right(%prüf_zeile,$calc($len(%prüf_zeile) - $pos(%prüf_zeile, = , 1))) 
    if (%xyz_punkte >= %prüf_punkte) { inc %i 1 | goto schauen }
    if (%xyz_punkte < %prüf_punkte) { set %xyz_zeile %prüf_zeile 
      set %xyz_punkte %prüf_punkte 
      inc %i 1 | goto schauen
    }
  }
}

alias bestzeitsortieren {
  set %fenster_zeilen $lines($scriptdirbestzeit_nicht_sortiert.txt)
  set %i 2
  var %ord_rund_ = 1
  var %z = 2
  set %xyz_zeile $read -l $+ %z $scriptdirbestzeit_nicht_sortiert.txt 
  set %xyz_punkte $right(%xyz_zeile,$calc($len(%xyz_zeile) - $pos(%xyz_zeile, = , 1))) 
  goto schauen
  :schauen
  inc %ord_rund_ 1
  if ( %i > %fenster_zeilen) { 
    write $scriptdirbestzeit_sortiert.txt %xyz_zeile 
    echo -a %ord_rund_ $+ . %xyz_zeile
    /write -ds $+ %xyz_zeile $scriptdirbestzeit_nicht_sortiert.txt
    halt
  }
  if ( %i <= %fenster_zeilen) { 
    set %prüf_zeile $read -l $+ %i $scriptdirbestzeit_nicht_sortiert.txt 
    set %prüf_punkte $right(%prüf_zeile,$calc($len(%prüf_zeile) - $pos(%prüf_zeile, = , 1))) 
    if (%xyz_punkte <= %prüf_punkte) { inc %i 1 | goto schauen }
    if (%xyz_punkte > %prüf_punkte) { set %xyz_zeile %prüf_zeile 
      set %xyz_punkte %prüf_punkte 
      inc %i 1 | goto schauen
    }
  }
}

alias doppelte {
  set %fenster_zeilen $lines($scriptdirstats.txt)
  var %z = 2  
  var %doppelrunde 1
  :doppel
  if ( %z < $lines($scriptdirstats.txt)) {
    set %doppel_zeile $read -l $+ %z $scriptdirstats.txt 
    set %doppel_nick $left(%doppel_zeile, $calc($pos(%doppel_zeile ,  =  , 1) - 1 ) )
    set %doppelnummer $calc($readn +1)    
    if ( $read($scriptdirstats.txt, w, %doppel_nick $+ =* , %doppelnummer ) = $null ) {
      inc %z 1
      inc %doppelrunde 1
      goto doppel
    }
    if ( $read($scriptdirstats.txt, w, %doppel_nick $+ =* , %doppelnummer ) != $null ) { 
      window -ea @doppelte
      aline @doppelte die Zeile %doppel_zeile ist mehrfach da: $read($scriptdirstats.txt, w, %doppel_nick $+ =* , %doppelnummer )
      inc %z 1
      inc %doppelrunde 1
      goto doppel
    }
  }
}
alias bierdoppelte {
  set %fenster_zeilen $lines($scriptdirbier.txt)
  var %z = 1  
  :doppel
  if ( %z < $lines($scriptdirbier.txt)) {
    set %doppel_bier_nick $read -l $+ %z $scriptdirbier.txt 
    set %doppelnummer $calc($readn +2) 
    set %doppelbier $read -l $+ $calc(%z +1) $scriptdirbier.txt 
    if ( $read($scriptdirbier.txt, w, %doppel_bier_nick , %doppelnummer ) = $null ) {
      inc %z 2
      goto doppel
    }
    if ( $read($scriptdirbier.txt, w, %doppel_bier_nick $+ * , %doppelnummer ) != $null ) { 
      window -ea @bierdoppelte
      aline @bierdoppelte die Zeile 4 %doppel_bier_nick  mit %doppelbier Bieren steht in Zeile 12 $calc(%doppelnummer -2)  
      aline @bierdoppelte die Zeile 4 $read($scriptdirbier.txt, w, %doppel_bier_nick , %doppelnummer )  mit $read -l $+ $calc($readn +1) $scriptdirbier.txt Bieren steht in Zeile 12 $calc($readn -2) 
      aline @bierdoppelte 0
      inc %z 2
      goto doppel
    }
  }
}
alias biersortieren {
  var %biertest = 2
  var %bierbest = $read($scriptdirbier_nicht_sortiert.txt,2)
  var %biernick = $read($scriptdirbier_nicht_sortiert.txt,1)
  var %bier_zeilen-nummer 2
  :test
  if ($lines($scriptdirbier_nicht_sortiert.txt) > %biertest) {
    var %bierjetzt = $read($scriptdirbier_nicht_sortiert.txt,%biertest)
    var %bierjetztnick = $read($scriptdirbier_nicht_sortiert.txt,$calc(%biertest -1))
    if ( %bierbest >= %bierjetzt ) { inc %biertest 2 | goto test }
    if ( %bierbest < %bierjetzt ) { 
      set %bierbest %bierjetzt
      set %biernick %bierjetztnick
      set %bier_zeilen-nummer %biertest
      inc %biertest 2 
      goto test
    }
  }
  if ($lines($scriptdirbier_nicht_sortiert.txt) = %biertest) {
    write $scriptdirbier-geordnet.txt %biernick
    write $scriptdirbier-geordnet.txt %bierbest
    echo Zeile %biernick %bierbest
    write -dl $+ %bier_zeilen-nummer $scriptdirbier_nicht_sortiert.txt
    write -dl $+ $calc(%bier_zeilen-nummer -1) $scriptdirbier_nicht_sortiert.txt
  }
}
