on 1:TEXT:%wyraz:%mkkanal: congr $nick
on 1:TEXT:!punkty:%mkkanal:{
  if (%stat != juzbyl) { /statt }
  set %stat juzbyl
}
alias del {
  if ($1 == $null) set %delay $?="Opoznienie zadawanych pytan w sekundach:"
  else %delay = $1-
  msg %mkkanal 9,2 Opoznienie miedzy pytaniami: %delay s
}
alias statt {
  set %staty 5
  if ($1 != $null) set %staty $1
  set %quizczas $duration($calc($ctime - %quizstart))
  if (%licz == 1) { msg %mkkanal 9,2 {#hs-quiz} 12,0 Punktacja po4 %licz 12wyrazie ( $+ %quizczas $+ ): }
  else { msg %mkkanal 9,2 {#hs-quiz} 12,0 Punktacja po4 %licz 12wyrazach ( $+ %quizczas $+ ): }
  var %qils 1
  while (%qils <= %staty) {
    msg %mkkanal 5 $+ %qils $+ . Miejsce:12 $imie(%quiz [ $+ [ %qils ] $+ miejsce ] ) (4 %quiz [ $+ [ %qils ] $+ miejscePunkty ] 12 $+ $rodzaj(%quiz [ $+ [ %qils ] $+ miejscePunkty) $+ )
    inc %qils 1
  }
  unset %staty
}
alias mkcounter {
  var %stawka 1
  if ($2 != $null) { set %stawka $2 }
  if ( %quiz [ $+ [ $$1 ] ] == $null) {
    inc %gracze
    set %quiz [ $+ [ %gracze ] $+ miejsce ] $1
    set %quiz [ $+ [ %gracze ] $+ miejscePunkty ] %stawka
    set %quiz [ $+ [ $$1 ] ] %stawka
  }
  else { inc %quiz [ $+ [ $$1 ] ] %stawka }
}
alias mkrank {
  var %miejsce 1
  while (%miejsce <= %gracze) {
    if (%quiz [ $+ [ %miejsce ] $+ miejsce ] == $1) {
      var %akt 1
      while (%gracze >= %akt) {
        if (%quiz [ $+ [ $1 ] ] > %quiz [ $+ [ %akt ] $+ miejscePunkty ]) {
          var %akt2 %miejsce
          while (%akt2 > %akt) {
            set %akt3 %akt2 - 1
            set %quiz [ $+ [ %akt2 ] $+ miejsce ] %quiz [ $+ [ %akt3 ] $+ miejsce ]
            set %quiz [ $+ [ %akt2 ] $+ miejscePunkty ] %quiz [ $+ [ %akt3 ] $+ miejscePunkty ]
            unset %akt3
            dec %akt2 1
          }
          set %quiz [ $+ [ %akt ] $+ miejsce ] $1
          set %quiz [ $+ [ %akt ] $+ miejscePunkty ] %quiz [ $+ [ $1 ] ]
          break
        }
        inc %akt 1
      }
    }
    inc %miejsce
  }
}
alias adress {
  if (*!*@*.*.cvx.ppp.tpnet.pl iswm $address($1,1)) set %adres $1
  if (*!*@*.*.ppp.tpnet.pl iswm $address($1,1)) set %adres $1
  else set %adres $address($1,1)
  if (%adres == $null) set %adres $1
}


on 1:TEXT:!podp:%mkkanal: {
  if (%wyraz == $null) { halt }
  if ($1 != $null) { inc %ktory $1 | dec %ktory }
  %text = $remove(%wyraz,*)
  %space = $chr(32)
  %kropka = $chr(46)
  %minus = $chr(45)
  %i = 1
  %dlugosc = $len(%text) + 1
  set %ktory3 %ktory
  :next
  if %i != %dlugosc {
    if %ktory >= %i {
      %litera = $mid(%text,%i,1)
      if %litera == %space { set %litera _ | set %ktory %i + %ktory3 }
      if %litera == %minus { set %litera %minus | set %ktory %i + %ktory3 }
      inc %i
      set %nowytext %nowytext $+ %litera
    goto next }
    if $mid(%text,%i,1) == %space { set %nowytext %nowytext $+ _ | set %ktory %i + %ktory3 | inc %i 1 | goto next }
    if $mid(%text,%i,1) == %minus { set %nowytext %nowytext $+ %minus | set %ktory %i + %ktory3 | inc %i 1 | goto next }
    set %nowytext %nowytext $+ %kropka | inc %i 1 | goto next
  }
  %nowytext = $replace(%nowytext,_,%space)
  msg %mkkanal 9,2 Podpowiedz: 8 %nowytext
  set %ktory %ktory3 + 1
  unset %nowytext %text %space %kropka %i %dlugosc %litera %ktory3 %minus
}
alias autom {
  set %delay 12
  unset %mkkanal %wyraz %litery %ilosc_liter %pomieszany_wyraz %numery %numer_litery %litera %score* %wyniki* %poz* %xx %xxx %punkty*
  if ($1 == $null) set %mkkanal $?="Podaj kanal, na ktorym chcesz uruchomic Quiz:"
  else set %mkkanal $1
  if ($2 == $null) set %plk $file="Wybierz plik z pytaniami" c:\*.txt
  else set %plk $2-
  mkon
  set %licz 1
  set %wyraz $read -s %licz %plk
  .timerm -pr 1 %delay wyraz
}

alias wyraz {
  .timerm off
  if (%licz > $lines(%plk)) {
    msg %mkkanal 9,2 Koniec pytan
    dec %licz
    unset %wyraz
    Goto End
  }
  %litery = $len(%wyraz)
  %ilosc_liter = $len(%wyraz)
  %ileliter = %ilosc_liter
  unset %pomieszany_wyraz %numery
  while (%ilosc_liter > 0) {
    %numer_litery = $rand(1,%litery)
    while (x %numer_litery x isin %numery) {
      %numer_litery = $rand(1,%litery)
    }
    %litera = $mid(%wyraz,%numer_litery,1)
    %numery = %numery $+ x %numer_litery x
    %pomieszany_wyraz = %pomieszany_wyraz $+ %litera
    dec %ilosc_liter
  }

  pisz_wyraz
  :End
}
alias -l pisz_wyraz {
  set %qqstart $uptime(mirc)
  msg %mkkanal 11,2 {#hs-quiz}
  msg %mkkanal 9,2 Pytanie numer %licz z $lines(%plk).
  msg %mkkanal 8,2 Uloz wyraz z liter: 12,0 %pomieszany_wyraz 
}
alias mkon {
  if ($script(kf.als) != $null) .unload -rs kf.als
  if ($script(kfx.rem) != $null) .unload -rs kfx.rem
  if ($script(kf1.rem) != $null) .unload -rs kf1.rem
  if ($alias(kf.als) != $null) .unload -a kf.als
  msg %mkkanal 11,2 {#hs-quiz} 9Mieszacz Kfiss™ by oyey 
  msg %mkkanal 9,2 Dostepne komendy: !podp , !punkty
  set %ktory 1
  set %quizstart $ctime
}
alias -l congr {
  set %findel %delay * 1000
  .play stop
  set %ktory 1
  %qtodp = $calc(($uptime(mirc) - %qqstart) / 1000)
  adress $nick
  mkcounter %adres
  set %wyraz2 %wyraz
  mkrank %adres
  set %pierwszy $nick
  msg %mkkanal 9,2 Brawo!8 $1 9odgadl(a) wyraz:8 %wyraz 9,2po czasie: 8,2 %qtodp sek 9,2 suma punktow:8,2 %quiz [ $+ [ %adres ] ] $+8,2
  .enable #bonus
  .timerbonus 1 1 .disable #bonus
  unset %stat

  inc %licz
  set %wyraz $read -s %licz %plk
  .timerm -pr 1 %delay wyraz
}
alias mkoff {
  set %quizczas $duration($calc($ctime - %quizstart))
  msg %mkkanal 0,2 {#hs-quiz} 8Mieszacz Kfiss™ 9zakonczony! 
  if (%licz == 1) { msg %mkkanal 9,2 Czas gry:8 %licz 9wyraz w8 %quizczas  }
  else { msg %mkkanal 9,2 Czas gry:8 %licz 9wyrazow w8 %quizczas  }
  unset %mkkanal %wyraz %litery %ilosc_liter %pomieszany_wyraz %numery %numer_litery %litera %score* %wyniki* %poz* %xx %xxx %punkty*
  unset %quiz* %stawka %gracze %plk %num %par %lin %ktory %ktory %podp %block %autonxt %delay %starydel %adres %stat %pomoc* %q1 %q2 %rc %pytan %pyt %licz
}
alias wyniki wyniki2 %wyniki
alias -l wyniki2 {
  %poz = 2
  while (%poz <= 149) {
    if (($ [ $+ [ %poz ] ] != $null) && (- $ [ $+ [ %poz ] ] 11 !isin %wyniki2)) %wyniki2 = - $ [ $+ [ %poz ] ] 11 $+ %score [ $+ [ $ [ $+ [ %poz ] ] ] ] - %wyniki2
    inc %poz 3
  }
  if (%wyniki2 != $null) wyniki3 %wyniki2
}
alias -l wyniki3 {
  %poz = 2
  while (%poz <= 198) {
    if ($ [ $+ [ %poz ] ] != $null) {
      %xx = $ [ $+ [ %poz ] ] 11 $+ %score [ $+ [ $ [ $+ [ %poz ] ] ] ]
      %xxx = $ [ $+ [ %poz ] $+ [ - ] $+ [ $calc(%poz + 1) ] ]
      %wyniki2 = $replace(%wyniki2,%xxx ,%xx)
    }
    inc %poz 4
  }
  %xtend = 800
  %poz1 = 1
  %poz2 = 5
  while (%xtend != 0) {
    if ((%poz1 == $null) || (%poz1 >= 201)) {
      %poz1 = 1
      %poz2 = 5
    }
    wyniki4 %wyniki2
    wyniki4 %wyniki2
    inc %poz1 4
    inc %poz2 4
  }
  unset %poz1 %poz2 %poz1b %poz2b %xtend
  if (%wyniki2 != $null) {
    msg %mkkanal 8,2 Mieszacz Kfiss™ - wyniki: 
    msg %mkkanal 11,14 %wyniki2 
  }
}

alias imie {
  if ($1 == $null) return ---
  elseif ($ial($1,1).nick == $null) { if (%quiz [ $+ [ $1 ] ] == $null) { return 1 $+ $1 } | else return $1 }
  else { return $ial($1,1).nick }
}

alias -l wyniki4 {
  %punktyx1 = $mid($ [ $+ [ $calc(%poz1 + 2) ] ] ,4,$calc($len($ [ $+ [ $calc(%poz1 + 2) ] ] ) - 4))
  %punktyx2 = $mid($ [ $+ [ $calc(%poz2 + 2) ] ] ,4,$calc($len($ [ $+ [ $calc(%poz2 + 2) ] ] ) - 4))
  %repl1 = $ [ $+ [ %poz1 ] $+ [ - ] $+ [ $calc(%poz1 + 3) ] ]
  %repl2 = $ [ $+ [ %poz2 ] $+ [ - ] $+ [ $calc(%poz2 + 3) ] ]
  if (%punktyx1 < %punktyx2) {
    inc %xtend
    %wyniki2 = $replace(%wyniki2,%repl1,qwertyuiop)
    %wyniki2 = $replace(%wyniki2,%repl2,asdfghjklz)
    %wyniki2 = $replace(%wyniki2,qwertyuiop,%repl2)
    %wyniki2 = $replace(%wyniki2,asdfghjklz,%repl1)
  }

  else dec %xtend
  if ($mid($ [ $+ [ $calc(%poz1 + 2) ] ] , 4,$len($ [ $+ [ $calc(%poz1 + 2) ] ] - 4)) == 0) %wyniki2 = $remove(%wyniki2,%repl1)
  if ($mid($ [ $+ [ $calc(%poz2 + 2) ] ] , 4,$len($ [ $+ [ $calc(%poz2 + 2) ] ] - 4)) == 0) %wyniki2 = $remove(%wyniki2,%repl2)
  unset %repl1 %repl2
}
#bonus off
unset %wyraz
on 1:TEXT:%wyraz2:%mkkanal: congr2 $nick
alias -l congr2 {
  if (%pierwszy != $nick) {
    set %findel %delay * 1000
    .play stop
    set %ktory 1
    adress $nick
    mkcounter %adres
    mkrank %adres
    msg %mkkanal 9,6 Brawo!8 $1 9byl(a) tuz tuz! 9Odgadl(a) wyraz:8 %wyraz2 9suma punktow:8,6 %quiz [ $+ [ %adres ] ] $+8,6
    unset %wyraz2
  }
}
#bonus end
alias rodzaj {
  if ($1 == $null) return
  if ($1 == 1) { return punkcik. }
  elseif (($1 > 1) && ($1 < 5)) { return punkty. }
  else { return punktow. }
}