[script]
n0=;nema ponavljanja!
n1=; igra pocinje kada neko otkuca !nemaponavljanja
n2=; takodje moguce je pratiti otkucane reci (ukljucuje se iz queryja)
n3=
n4=on 1:TEXT:*:?:{
n5=  if ($1- == !nemaponavljanja) nemaponavljanja.start $nick
n6=  elseif ($hget( [ nemaponavljanja. $+ [ $nick ] ] ) == $null) return
n7=  else nemaponavljanja.analyze $nick $1-
n8=}
n9=
n10=on 1:INPUT:*:{
n11=  ;; za listu rechi
n12=  if ($hget(nemaponavljanja-listarechi) != $null) nemaponavljanja.analyze nemaponavljanja-listarechi $1-
n13=  if ($hget( [ nemaponavljanja. $+ [ $active ] ] ) != $null) nemaponavljanja.analyze $active $1-
n14=}
n15=
n16=alias nemaponavljanja.start {
n17=  ; stop
n18=  if ($hget( [ nemaponavljanja. $+ [ $1 ] ] ) != $null) {
n19=    hfree nemaponavljanja. $+ [ $1 ] 
n20=    msg $1 Ima ponavljanja, $1...
n21=    halt
n22=  }
n23=  else {
n24=    msg $1 Nema ponavljanja, $1!
n25=    hmake nemaponavljanja. $+ [ $1 ] 500
n26=  }
n27=}
n28=
n29=alias nemaponavljanja.analyze {
n30=  var %linijatexta = $lower($strip($2-))
n31=  var %rech
n32=  var %brojach = 1
n33=
n34=  ;trazimo pocetak
n35=  :opet
n36=  if ($mid(%linijatexta,%brojach,1) !isin qwertyuiopasdfghjklzxcvbnm0123456789) {
n37=    inc %brojach
n38=    if (%brojach > $len(%linijatexta)) return
n39=    goto opet
n40=  }
n41=  ;;trazimo kraj
n42=  :opet2
n43=  if ($mid(%linijatexta,%brojach,1) isin qwertyuiopasdfghjklzxcvbnm0123456789) {
n44=    %rech = %rech $+ $mid(%linijatexta,%brojach,1)
n45=    inc %brojach
n46=    goto opet2
n47=  }
n48=
n49=  if (%rech != $null) {
n50=    if ($1 == nemaponavljanja-listarechi) nemaponavljanja.dodajulistu %rech $1
n51=    else nemaponavljanja.dodajrech %rech $1
n52=    unset %rech
n53=  }
n54=  if (%brojach <= $len(%linijatexta)) goto opet
n55=  if ($window(@nemaponavljanja-listarechi) != $null) nemaponavljanja.ispishilisturechi
n56=}
n57=
n58=alias nemaponavljanja.dodajrech {
n59=  ;ne racunaju se male reci  
n60=  if ($len($1) <= 3) return
n61=  if ($hget( [ nemaponavljanja. $+ [ $2 ] ] , [ $1 ] ) != $null) {
n62=    msg $2 Rec $1 je vec izgovorena u $hget( [ nemaponavljanja. $+ [ $2 ] ] , [ $1 ] ) $+ !
n63=    ;kraj
n64=    nemaponavljanja.start $2
n65=  }
n66=  else hadd nemaponavljanja. $+ [ $2 ] $1 $time
n67=}
n68=
n69=alias nemaponavljanja.dodajulistu {
n70=  var %brojponavljanja = $hget(nemaponavljanja-listarechi, [ $1 ] )
n71=  if (%brojponavljanja != $null) {
n72=    inc %brojponavljanja
n73=    hadd nemaponavljanja-listarechi $1 $iif(%brojponavljanja < 10, 0) $+ $iif(%brojponavljanja < 100, 0) $+ %brojponavljanja
n74=  }
n75=  else hadd nemaponavljanja-listarechi $1 001
n76=}
n77=
n78=menu query {
n79=  nemaponavljanja
n80=  .$iif($hget( [ nemaponavljanja. $+ [ $active ] ] ) == $null,pocni,prekini) igru: nemaponavljanja.start $active
n81=  .-
n82=  .$iif($hget(nemaponavljanja-listarechi) == $null,pocni,prestani) da pratis rechi: {
n83=    if ($hget(nemaponavljanja-listarechi) == $null) hmake nemaponavljanja-listarechi 500
n84=    else hfree nemaponavljanja-listarechi
n85=  }
n86=  .$iif($hget(nemaponavljanja-listarechi) != $null,pokazi rechi): nemaponavljanja.ispishilisturechi
n87=}
n88=
n89=menu @nemaponavljanja-listarechi {
n90=  $iif($hget(nemaponavljanja-listarechi) == $null,ukljuci,iskljuci) listu rechi: {
n91=    if ($hget(nemaponavljanja-listarechi) == $null) hmake nemaponavljanja-listarechi 500
n92=    else {
n93=      hfree nemaponavljanja-listarechi
n94=      window -c @nemaponavljanja-listarechi
n95=    }
n96=  }
n97=  ;;  $iif($hget(nemaponavljanja-listarechi) != $null,osvezi listu rechi): nemaponavljanja.ispishilisturechi
n98=    -
n99=    $iif($hget(nemaponavljanja-listarechi) != $null,sachuvaj listu rechi): hsave -os nemaponavljanja-listarechi " $+ [ $file="Upishi ime fajla" . ] $+ "
n100=    uchitaj listu rechi: hload -s nemaponavljanja-listarechi " $+ [ $file="Pronadji ranije sacuvan fajl" . ] $+ "
n101=}
n102=
n103=alias nemaponavljanja.ispishilisturechi {
n104=  if ($window(@nemaponavljanja-listarechi) == $null)  {
n105=    window -ls -t2 @nemaponavljanja-listarechi 450 150 150 200
n106=  }
n107=  clear @nemaponavljanja-listarechi
n108=  var %brojach = $hget(nemaponavljanja-listarechi,0).item
n109=  titlebar @nemaponavljanja-listarechi - ukupno %brojach razlicitih reci
n110=  var %rech
n111=  :opet
n112=  %rech = $hget(nemaponavljanja-listarechi, [ %brojach ] ).item
n113=  aline @nemaponavljanja-listarechi $hget(nemaponavljanja-listarechi,%rech) $chr(9) %rech
n114=  dec %brojach
n115=  if (%brojach > 0) goto opet
n116=  window -s @nemaponavljanja-listarechi
n117=  iline 14 @nemaponavljanja-listarechi $calc($line(@nemaponavljanja-listarechi,0) + 1) ------------------------------------------------------
n118=  aline @nemaponavljanja-listarechi x $chr(9) rec
n119=  sline @nemaponavljanja-listarechi $line(@nemaponavljanja-listarechi,0))
n120=}