;--------------------------------------------------------------
;acro
;by PanToufLe 
;--------------------------------------------------------------
;veste grafica by Novi-ziO & {sTrEGa}


on 1:NICK:{ 
  if (%gameacro_stato != OFF) && ( $nick != $newnick ) {
    acro_search $nick
    if (%trovato == 1) {
      %acro_chnickline = $read -l %pos acroclass.txt
      %acro_chnickline = $puttok(%acro_chnickline,$newnick,1,46)
      write -l %pos acroclass.txt %acro_chnickline
    }
    acro_manchesearch $nick
    if (%trovato == 1) {
      %acro_chnickline = $read -l %pos acromanche.txt
      %acro_chnickline = $puttok(%acro_chnickline,$newnick,1,36)
      write -l %pos acromanche.txt %acro_chnickline
    }  
  }
}

on 1:JOIN:%acro_canale:{ if (%gameacro_stato != OFF) { .msg $nick —] $acrotalk(acro il gioco θ attivo. Digita) !aiuto  $acrotalk(nel canale per le istruzioni) [— } }

on 1:TEXT:!punti:%acro_canale:{ 
  if (%gameacro_stato != OFF) {
    acro_search $nick
    if (%trovato == 1) {
      .msg $nick Il tuo punteggio θ %acro_ptsquery 
    }
  }
}

on 1:TEXT:!acro:%acro_canale: {
  if (%gameacro_stato != OFF) {
    if (%acro_mode == 1 ) { msg %acro_canale  $+ %c11 —[ %acro_manchenum $+  $+ %c11 ]—  $acrotalk( acro Le lettere a disposizione sono:) %acro_current $acrotalk(L'argomento θ:) 4 %acro_currenttopic [— }
    else { msg %acro_canale           —] $acrotalk(acro nessuna manche in corso. Attendi la prossima!) [— }
  }
} 

on 1:TEXT:!aiuto:%acro_canale: acro_help $nick

on 1:TEXT:*:?:{
  if (%gameacro_stato == ON) && (%acro_mode == 3) && ($1 != $null) { .msg $nick —] $acrotalk(Tempo scaduto. Non posso accettare la tua richiesta) [— | halt }
  if (%gameacro_stato == ON) && (%acro_mode == 1) && ($1 != $null) {
    set %acro_string $1-
    acro_verifica %acro_string
    if (%acro_ok == 1) {
      acro_manchesearch $nick
      if (%trovato == 0) {
        set %acro_fileline $nick
        set %acro_fileline $instok(%acro_fileline,%acro_string,2,36)
        set %acro_fileline $addtok(%acro_fileline,-$-,36)
        write acromanche.txt %acro_fileline
        .msg $nick —] $acrotalk(Acronimo accettato. Se vuoi correggerlo scrivine un altro) [— | halt
      }
      if (%trovato == 1) {
        set %acro_fileline $read -l %pos acromanche.txt
        set %acro_fileline $puttok(%acro_fileline,%acro_string,2,36)
        write -l %pos acromanche.txt %acro_fileline
        .msg $nick —] $acrotalk(Ho cancellato la frase precedente ed inserito la nuova) [— | halt
      }
    }
    else { .msg $nick —] $acrotalk(Fai attenzione. Non hai usato le lettere a disposizione) [—  4 %acro_current  | halt }
  }
  if (%gameacro_stato == ON) && (%acro_mode == 2) && ($1 != $null) {
    acro_manchesearch $nick
    if (%trovato == 0) { .msg $nick —] $acrotalk(Non hai partecipato alla manche, non puoi votare. Sciς!) [— | halt }
    if (%trovato == 1) {
      set %acro_string $1
      if (%acro_string isnum 1 - $lines(acromanche.txt)) {
        if ($istok(%acro_alvoted,$nick,32) == $true) { .msg $nick —] $acrotalk(Hai giΰ votato in questa manche. Non θ mica la legge Cirami neh!) [— | halt }
        else { 
          set %acro_fileline $read -l %acro_string acromanche.txt
          set %acro_people $gettok(%acro_fileline,3,36)
          if ($gettok(%acro_fileline,1,36) == $nick) { .msg $nick —] $acrotalk(Ti buchi di vinavil? Non puoi autovotarti!) [— | halt }
          if (%acro_people == $chr(45)) { set %acro_people $nick }
          else { set %acro_people $addtok(%acro_people,$nick,32) }
          set %acro_fileline $puttok(%acro_fileline,%acro_people,3,36)
          write -l %acro_string acromanche.txt %acro_fileline
          .msg $nick —] $acrotalk(Voto registrato) [—
          set %acro_alvoted %acro_alvoted $nick
          if ($numtok(%acro_alvoted,32) == $lines(acromanche.txt)) { 
            .timervote off
            msg %acro_canale  $+ %c11 —[ %acro_manchenum $+  $+ %c11 ]— $acrotalk(Votazione completata. Hanno votato tutti!)
            .timervote 1 3 acro_endofvote
          }
        } 
      }
      else { .msg $nick $acrotalk(Puoi votare una frase da) 1 a $lines(acromanche.txt) ! }
    }
  }
}


alias acro_verifica {
  set %acro_ok 1 
  if ($numtok(%acro_string,32) != $len(%acro_current)) { set %acro_ok 0 | goto vend }
  set %k 1
  while (%k <= $len(%acro_current)) && (%acro_ok == 1) {
    if ($left($gettok(%acro_string,%k,32),1) != $mid(%acro_current,%k,1)) { set %acro_ok 0 }
    inc %k
  }
  :vend
}

on 1:notice:acroon*:?:{ 
  if ($3 == %game_password) {
    if (%gameacro_stato != ON) || (%gameacro_stato == $null) {
      unset %acro*
      set %acro_canale %game_channel
      if ( %acro_canale !ischan ) { halt }
      set %acro_target $2
      if (%acro_target !isnum) { .msg $nick —] $acrotalk(Non hai inserito un valore valido. Fai ripartire il quiz) [— | halt }
      set %gameacro_stato ON
      set %acro_mode 3
      set %acro_pausetime 40
      set %acro_votetime 30
      set %acro_manchenum 0
      if $exists(acroclass.txt) { .remove acroclass.txt }
      if $exists(acromanche.txt) { .remove acromanche.txt }
      msg %acro_canale            —] $acrotalk(acro AcTivaTeD by) 4 $nick  [—
      msg %acro_canale            —] $acrotalk(La partita termina a) 4 %acro_target  $acrotalk(punti. Buona fortuna :) )
      .timerhub 1 10 acro_hub
    }
  }
}


alias acro_endofgame {
  if $exists(acroclass.txt) { .remove acroclass.txt }
  if $exists(acromanche.txt) { .remove acromanche.txt }
  msg %acro_canale            —] $acrotalk(acro θ TeRmiNaTo!!!) [—
  msg %acro_canale            —] $acrotalk(Vince) 4 %acro_1nick  $acrotalk(con) 4 %acro_1pts  $acrotalk(punti. Complimenti!) [—
  set %gameacro_stato OFF
  unset %acro*
}

on 1:notice:acrooff*:?:{
  if ($2 == %game_password) && (%gameacro_stato == ON) {
    if $exists(acroclass.txt) { .remove acroclass.txt }
    if $exists(acromanche.txt) { .remove acromanche.txt }
    .timer* off
    msg %acro_canale           —] $acrotalk(Acro Stoppato! Punteggi eliminati!) [—
    set %gameacro_stato OFF
    unset %acro*
  }
}

on 1:notice:acropausa*:?:{
  if ($2 == %game_password) {
    if (%gameacro_stato == ON) || (%gameacro_stato == PAUSE) {
      if (%acro_mode != 3) { .msg $nick —] $acrotalk(Attendi il termine della manche il corso) [- } 
      else {
        if (%gameacro_stato == PAUSE) { set %gameacro_stato ON | msg %acro_canale            —] $acrotalk([acro] Riprende. Sveglia!) [— | .timernew 1 30 acro_hub | halt } 
        if (%gameacro_stato == ON) { set %gameacro_stato PAUSE | msg %acro_canale            —] $acrotalk([acro] θ in Pausa) [— | .timernew off | halt }
      }
    }
  }
}



alias acro_help {
  if ( %gameacro_stato != OFF) && (%acro_antiflood != ON) {
    set %acro_antiflood ON
    .timer1 1 1 .msg $1 $acrotalk([acro] Modalitΰ di gioco:)
    .timer2 1 2 .msg $1  “““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““
    .timer3 1 3 .msg $1  $acrotalk(Ad ogni manche viene fornito un set di lettere. Sviluppa l'acronimo costituito dalle lettere) 
    .timer4 1 4 .msg $1  $acrotalk(date nel tempo indicato scrivendolo in query a)  $me . $acrotalk(Alla fine) 
    .timer5 1 5 .msg $1  $acrotalk(della manche vengono riportate tutte le frasi create. Vota una di queste scrivendone il numero) 
    .timer6 1 6 .msg $1  $acrotalk(corrispondente. Ciascun voto vale un punto nella classifica generale.) 
    .timer6 1 7 .msg $1  $acrotalk(Chi non vota perde eventuali punti!)
    .timer8 1 8 .msg $1  “““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““
    .timer10 1 10 set %acro_antiflood OFF
  }
}

alias acro_instr {
  if ( %gameacro_stato != OFF ) && (%acro_antiflood != ON) {
    set %acro_antiflood ON
    .timer1 1 1 msg %acro_canale $acrotalk([acro] Modalitΰ di gioco:)
    .timer2 1 2 msg %acro_canale  “““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““
    .timer3 1 3 msg %acro_canale  $acrotalk(Ad ogni manche viene fornito un set di lettere. Sviluppa l'acronimo costituito dalle lettere)
    .timer4 1 4 msg %acro_canale  $acrotalk(date nel tempo indicato scrivendolo in query a)  $me . $acrotalk(Alla fine)
    .timer5 1 5 msg %acro_canale  $acrotalk(della manche vengono riportate tutte le frasi create. Vota una di queste scrivendone il numero) 
    .timer6 1 6 msg %acro_canale  $acrotalk(corrispondente. Ciascun voto vale un punto nella classifica generale.) 
    .timer6 1 7 msg %acro_canale  $acrotalk(Chi non vota perde eventuali punti!)
    .timer8 1 8 msg %acro_canale  “““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““
    .timer10 1 10 set %acro_antiflood OFF
  }
}

on 1:notice:acrohelp*:?:{ if ($2 == %game_password) && (%gameacro_stato == ON) acro_instr }

alias acro_search { 
  %lineefile = $lines(acroclass.txt)
  set %i 1
  set %trovato 0
  while ( ( %i <= %lineefile ) && ( %trovato == 0 ) ) {
    %riga = $read -l %i acroclass.txt    
    %nome = $gettok(%riga,1,46)
    %acro_ptsquery = $gettok(%riga,2,46)
    if ( %nome == $1 ) {
      set %trovato 1 
      set %pos %i
    }
    inc %i 1 
  }
}


alias acro_manchesearch { 
  %lineefile = $lines(acromanche.txt)
  set %i 1
  set %trovato 0
  while ( ( %i <= %lineefile ) && ( %trovato == 0 ) ) {
    %riga = $read -l %i acromanche.txt    
    %nome = $gettok(%riga,1,36)
    if ( %nome == $1 ) {
      set %trovato 1 
      set %pos %i
    }
    inc %i 1 
  }
}

alias acro_start_manche { if (%gameacro_stato == ON) {
    if $exists(acromanche.txt) { .remove acromanche.txt }
    inc %acro_manchenum
    unset %acro_current
    unset %acro_alvoted
    unset %acro_didnotvote
    set %acro_currenttopic $read -l $rand(1,$lines(AcroTopics.txt)) AcroTopics.txt
    if ($rand(1,4) == 1) { set %acro_currenttopic 4libero }
    set %acro_curlen $rand(3,9)
    set %acro_durata $calc(10 + 10 * %acro_curlen)
    set %z 1
    while (%z <= %acro_curlen) { 
      set %random $rand(1,23) 
      if (%random == 1) { set %acro_current %acro_current $+ A }
      if (%random == 2) { set %acro_current %acro_current $+ E }
      if (%random == 3) { set %acro_current %acro_current $+ I }
      if (%random == 4) { set %acro_current %acro_current $+ O }
      if (%random == 5) { set %acro_current %acro_current $+ U }
      if (%random == 6) { set %acro_current %acro_current $+ B }
      if (%random == 7) { set %acro_current %acro_current $+ C }
      if (%random == 8) { set %acro_current %acro_current $+ D }
      if (%random == 9) { set %acro_current %acro_current $+ F }
      if (%random == 10) { set %acro_current %acro_current $+ G }
      if (%random == 11) { set %acro_current %acro_current $+ H }
      if (%random == 12) { acro_ext_rand }
      if (%random == 13) { acro_ext_rand }
      if (%random == 14) { set %acro_current %acro_current $+ L }
      if (%random == 15) { set %acro_current %acro_current $+ M }
      if (%random == 16) { set %acro_current %acro_current $+ N }
      if (%random == 17) { set %acro_current %acro_current $+ P }
      if (%random == 18) { set %acro_current %acro_current $+ Q }
      if (%random == 19) { set %acro_current %acro_current $+ R }
      if (%random == 20) { set %acro_current %acro_current $+ S }
      if (%random == 21) { set %acro_current %acro_current $+ T }
      if (%random == 22) { set %acro_current %acro_current $+ V }
      if (%random == 23) { set %acro_current %acro_current $+ Z }
      inc %z
    }
    .timer21 1 1 msg %acro_canale  $+ %c11 —[ %acro_manchenum $+  $+ %c11 ]— $acrotalk(acro - Manche N°) 4 %acro_manchenum  
    .timer22 1 2 msg %acro_canale  $+ %c11 —[ %acro_manchenum $+  $+ %c11 ]— $acrotalk(Le lettere sono) 4 %acro_current  $acrotalk(L'argomento θ :) 4 %acro_currenttopic 
    .timer24 1 4 msg %acro_canale  $+ %c11 —[ %acro_manchenum $+  $+ %c11 ]— $acrotalk(Scrivi la frase a)  $me  $acrotalk(in query)
    .timer25 1 5 msg %acro_canale  $+ %c11 —[ %acro_manchenum $+  $+ %c11 ]— $acrotalk(Avete) 4 %acro_durata  $acrotalk(secondi a partire da ora!)
    set %acro_mode 1
    .timeralert 1 $calc(%acro_durata - 10) { acro_alert }
  }
}

alias acro_ext_rand {
  set %randomext $rand(1,5) 
  if (%randomext == 1) { set %acro_current %acro_current $+ J }
  if (%randomext == 2) { set %acro_current %acro_current $+ K }
  if (%randomext == 3) { set %acro_current %acro_current $+ W }
  if (%randomext == 4) { set %acro_current %acro_current $+ X }
  if (%randomext == 5) { set %acro_current %acro_current $+ Y }
}



alias acro_alert {
  msg %acro_canale  $+ %c11 —[ %acro_manchenum $+  $+ %c11 ]— $acrotalk(Ancora) 4 10  $acrotalk(secondi. Presto!)
  .timerend 1 10 acro_endofmanche
}

alias acro_endofmanche {
  if ($lines(acromanche.txt) > 2) {
    set %acro_mode 2
    msg %acro_canale  $+ %c11 —[ %acro_manchenum $+  $+ %c11 ]— $acrotalk(tempo scaduto !!!)
    msg %acro_canale  $+ %c11 —[ %acro_manchenum $+  $+ %c11 ]— $acrotalk(Le lettere erano) 4 %acro_current . $acrotalk(Ecco cosa hanno concepito i vostri perversi cervellini:)
    close -m
    set %acro_timercount 1
    set %acro_ntim $calc($lines(acromanche.txt) + 1)
    .timermsg %acro_ntim 2 acro_acromsg
  }
  else { set %acro_mode 3 | msg %acro_canale  $+ %c11 —[ %acro_manchenum $+  $+ %c11 ]— $acrotalk(Giocatori insufficienti. Forza menagrami! Prossima manche tra) 4 %acro_pausetime  $acrotalk(secondi) | .timernew 1 %acro_pausetime acro_hub }
}

alias acro_acromsg {
  if (%acro_timercount <= $lines(acromanche.txt)) {
    set %linez $read -l %acro_timercount acromanche.txt
    set %acro_acro $gettok(%linez,2,36)
    msg %acro_canale $chr(91) $+ %acro_timercount $+ $chr(93) $+ %acro_acro
  }
  if (%acro_timercount == $calc($lines(acromanche.txt) + 1)) { msg %acro_canale $acrotalk(Votazioni aperte. Avete) %acro_votetime $acrotalk(secondi per votare una frase.) | .timervote 1 %acro_votetime acro_endofvote }
  inc %acro_timercount
}



alias acro_elabora {
  set %z 1
  while (%z <= $lines(acromanche.txt)) {
    set %acro_linez $read -l %z acromanche.txt
    set %acro_linez $puttok(%acro_linez,$numtok($gettok(%acro_linez,3,36),32),4,36)
    if ($gettok(%acro_linez,3,36) == $chr(45)) { set %acro_linez $puttok(%acro_linez,0,4,36) }
    write -l %z acromanche.txt %acro_linez
    inc %z
  }
}

alias acro_endofvote {
  set %acro_mode 0
  acro_elabora
  acro_ordina_rovescio
  msg %acro_canale  $+ %c11 —[ %acro_manchenum $+  $+ %c11 ]— $acrotalk(Ecco i risultati della) %acro_manchenum  $+ ͺ $acrotalk(manche (1 voto = 1 punto):)
  close -m
  set %acro_timercount 1
  set %acro_ntim $calc($lines(acromanche.txt) + 1)
  .timermsg %acro_ntim 2 acro_resmsg
}

alias acro_resmsg {
  if (%acro_timercount <= $lines(acromanche.txt)) {
    set %linez $read -l %acro_timercount acromanche.txt
    set %acro_nick $gettok(%linez,1,36)
    set %acro_acro $gettok(%linez,2,36)
    set %acro_people $gettok(%linez,3,36)
    set %acro_points $gettok(%linez,4,36)
    if (%acro_points == 0) msg %acro_canale  $+ %c11 —[ %acro_manchenum $+  $+ %c11 ]— $acrotalk(Non ha ricevuto voti l' acronimo di: )  %acro_nick 4 $+ %acro_acro   
    else msg %acro_canale  $+ %c11 —[ %acro_manchenum $+  $+ %c11 ]— $acrotalk(L'acronimo di)  %acro_nick 4 $+ %acro_acro  $acrotalk(ha ricevuto) 4 %acro_points  $acrotalk(da)  %acro_people 
  }
  if (%acro_timercount == $calc($lines(acromanche.txt) + 1)) { acro_checkvoters | .timerclass 1 10 acro_preclass }
  inc %acro_timercount
}



alias acro_checkvoters {
  set %z 1
  while (%z <= $lines(acromanche.txt)) {
    set %acro_linez $read -l %z acromanche.txt
    set %acro_nick $gettok(%acro_linez,1,36)
    if ($istok(%acro_alvoted,%acro_nick,32) == $false) {
      set %acro_linez $puttok(%acro_linez,0,4,36)
      set %acro_didnotvote %acro_didnotvote %acro_nick
    }
    write -l %z acromanche.txt %acro_linez
    inc %z
  }
  if ($numtok(%acro_didnotvote,32) == 1) msg %acro_canale  $+ %c11 —[ %acro_manchenum $+  $+ %c11 ]— 4 %acro_didnotvote  $acrotalk(non ha votato e perde i punti in questa manche.)
  if ($numtok(%acro_didnotvote,32) > 1) msg %acro_canale  $+ %c11 —[ %acro_manchenum $+  $+ %c11 ]— 4 %acro_didnotvote  $acrotalk(non hanno votato e perdono i punti in questa manche.)
}

alias acro_ordina_rovescio { 
  set %acro_nltxt $lines(acromanche.txt)
  set %p 1
  while (%p < %acro_nltxt) { 
    set %x 1
    while (%x < %acro_nltxt) {
      set %y $calc(%x + 1 )
      set %acro_upper $read -l %x acromanche.txt
      set %acro_lower $read -l %y acromanche.txt
      set %acro_uppt  $gettok(%acro_upper,4,36)
      set %acro_lowpt $gettok(%acro_lower,4,36)
      if (%acro_uppt >= %acro_lowpt) {
        write -l %x acromanche.txt %acro_lower
        write -l %y acromanche.txt %acro_upper
      }
      inc %x
    }
    inc %p
  }
}

alias acro_agg_class {
  set %z 1
  while (%z <= $lines(acromanche.txt)) {
    set %acro_clline $read -l %z acromanche.txt
    set %acro_clnick $gettok(%acro_clline,1,36)  
    set %acro_manchepts $gettok(%acro_clline,4,36)  
    acro_search %acro_clnick
    if (%trovato == 0) {
      set %acro_input %acro_clnick
      set %acro_input $addtok(%acro_clnick,%acro_manchepts,46)
      write acroclass.txt %acro_input
    }  
    if (%trovato == 1) {
      set %acro_input $read -l %pos acroclass.txt
      set %acro_oldpts $gettok(%acro_input,2,46)  
      inc %acro_oldpts %acro_manchepts
      set %acro_input $puttok(%acro_input,%acro_oldpts,2,46)  
      write -l %pos acroclass.txt %acro_input
    }
    inc %z
  }
  acro_ordina
}

alias acro_ordina { 
  set %acro_nltxt $lines(acroclass.txt)
  set %p 1
  while (%p < %acro_nltxt) {
    set %x 1
    while (%x < %acro_nltxt) {
      set %y $calc(%x + 1 )
      set %acro_upper $read -l %x acroclass.txt
      set %acro_lower $read -l %y acroclass.txt
      set %acro_uppt  $gettok(%acro_upper,2,46)
      set %acro_lowpt $gettok(%acro_lower,2,46)
      if (%acro_uppt < %acro_lowpt) {
        write -l %x acroclass.txt %acro_lower
        write -l %y acroclass.txt %acro_upper
      }
      inc %x
    } 
    inc %p
  }
}



alias acro_preclass {
  acro_agg_class
  if $exists(acromanche.txt) { .remove acromanche.txt }
  set %timercounter 1
  .timerclass 7 2 acro_msgclass
}

alias acro_msgclass {
  if (%timercounter == 1) { msg %acro_canale —] $acrotalk(Classifica:) [— }
  if (%timercounter == 2) { 
    set %acro_1line $read -l1 acroclass.txt
    set %acro_1nick $gettok(%acro_1line,1,46)
    set %acro_1pts  $gettok(%acro_1line,2,46)
    if (%acro_1pts == $null) { set %acro_1pts - }
    msg %acro_canale  $+ %c11 —[ %acro_manchenum $+  $+ %c11 ]—  $acrotalk(1°posto:) —] $+ 4 %acro_1pts $+  [— %acro_1nick 
  }
  if (%timercounter == 3) {
    set %acro_2line $read -l2 acroclass.txt
    set %acro_2nick $gettok(%acro_2line,1,46)
    set %acro_2pts  $gettok(%acro_2line,2,46)
    if (%acro_2pts == $null) { set %acro_2pts - }
    msg %acro_canale  $+ %c11 —[ %acro_manchenum $+  $+ %c11 ]—  $acrotalk(2°posto:) —] $+ 4 %acro_2pts $+  [— %acro_2nick 
  }
  if (%timercounter == 4) {
    set %acro_3line $read -l3 acroclass.txt
    set %acro_3nick $gettok(%acro_3line,1,46)
    set %acro_3pts  $gettok(%acro_3line,2,46)
    if (%acro_3pts == $null) { set %acro_3pts - }
    msg %acro_canale  $+ %c11 —[ %acro_manchenum $+  $+ %c11 ]—  $acrotalk(3°posto:) —] $+ 4 $+ 4 %acro_3pts $+  [— %acro_3nick 
  }
  if (%timercounter == 5) {
    set %acro_4line $read -l4 acroclass.txt
    set %acro_4nick $gettok(%acro_4line,1,46)
    set %acro_4pts  $gettok(%acro_4line,2,46)
    if (%acro_4pts == $null) { set %acro_4pts - }
    msg %acro_canale  $+ %c11 —[ %acro_manchenum $+  $+ %c11 ]—  $acrotalk(4°posto:) —] $+ 4 $+  %acro_4pts $+  [— %acro_4nick 
  }
  if (%timercounter == 6) {
    set %acro_5line $read -l5 acroclass.txt
    set %acro_5nick $gettok(%acro_5line,1,46)
    set %acro_5pts  $gettok(%acro_5line,2,46)
    if (%acro_5pts == $null) { set %acro_5pts - }
    msg %acro_canale  $+ %c11 —[ %acro_manchenum $+  $+ %c11 ]—  $acrotalk(5°posto:) —] $+ 4 $+ 4 %acro_5pts $+  [— %acro_5nick 
  }
  if (%timercounter == 7) { set %acro_mode 3 | .timerhub 1 %acro_pausetime acro_hub }
  inc %timercounter
}

alias acro_hub {
  if ( ( %acro_1pts > %acro_2pts ) && ( %acro_1pts >= %acro_target ) ) { acro_endofgame }
  else { if (%gameacro_stato == ON) { msg %acro_canale            —] $acrotalk(Tra) 4 5  $acrotalk(secondi la prossima manche) [— | .timernew 1 5 acro_start_manche } }
}

on 1:notice:acrov-5*:?: {
  if (%gameacro_stato != OFF) && ($2 == %game_password) {
    if (%acro_votetime == 15) { .msg $nick —] $acrotalk(Non puoi scendere sotto i 15 secondi) [—  }
    else {
      dec %acro_votetime 5
      .msg %acro_canale —] $acrotalk(Il tempo a disposizione per votare θ ora di) 4 %acro_votetime  $acrotalk(secondi)   [—
    }
  }
}

on 1:notice:acrov+5*:?: {
  if (%gameacro_stato != OFF) && ($2 == %game_password) && (%acro_target < 500) {
    inc %acro_votetime 5
    .msg %acro_canale —] $acrotalk(Il tempo a disposizione per votare θ ora di) 4 %acro_votetime  $acrotalk(secondi) [—
  }
}

on 1:notice:acrop-5*:?:{
  if (%gameacro_stato != OFF) && ($2 == %game_password) {
    if (%acro_pausetime < 15) { .msg $nick —] $acrotalk(Non puoi scendere sotto i) 4 10  $acrotalk(secondi) [— }
    else {
      dec %acro_pausetime 5
      .msg %acro_canale —] $acrotalk(L'attesa tra due manche θ ora di) 4 %acro_pausetime  $acrotalk(secondi) [—
    }
  }
}

on 1:notice:acrop+5*:?:{
  if (%gameacro_stato != OFF)  && ($2 == %game_password) {
    inc %acro_pausetime 5
    .msg %acro_canale —] $acrotalk(L'attesa tra due manche θ ora di) 4 %acro_pausetime  $acrotalk(secondi) [—
  }
}


on 1:notice:Acro New *:?:{
  var %acro_newtopic = $3-
  var %acro_newok = 1
  var %ii = 1
  while ((%acro_newok == 1) && (%ii <= $lines(AcroTopics.txt))) {
    set %iitemp $read -l %ii AcroTopics.txt
    if (%iitemp == %acro_newtopic) set %acro_newok 0
    inc %ii
  }
  if (%acro_newok == 1) { write AcroTopics.txt %acro_newtopic | .msg %acro_canale —] $acrotalk(Aggiunto il nuovo topic:) 4 %acro_newtopic  $acrotalk(da) 4 $nick [— }
  else .msg $nick —] $acrotalk(Topic giΰ presente :) [— )
}

on 1:notice:Acro List:?:{
  unset %topics
  var %i = 1
  while (%i <= $lines(AcroTopics.txt)) {
    var %topic = $read -l %i AcroTopics.txt
    if ($ispair(%i) == $true) { set %topics %topics $+ 4 %topic  }  
    if ($ispair(%i) == $false) { set %topics %topics $+ 4 %topic  }
    inc %i
  }
  msg %game_channel —] $acrotalk(Topic presenti:) [— 4 %topics 
}

menu channel {
  -
  Giochi
  .Acro++
  ..Let's go:acro_start
  ..Dialog ON:dialog -m AcroGame AcroGame 
  ..Dialog OFF:dialog -x AcroGame AcroGame 
  ..Pausa/riprendi:pausaacro
  ..End of game:acro_endofgame
  ..Istruzioni:acro_instr
  -
}

alias acro_start {
  if (%gameacro_stato != ON) || (%gameacro_stato == $null) {
    unset %acro*
    set %acro_canale $?="Su che canale avviare il gioco?"
    if ( %acro_canale !ischan ) { echo -a —] $acroatalk(Canale non valido) [— | halt }
    set %acro_target $?="Inserisci il numero di punti da totalizzare per vincere:"
    if (%acro_target !isnum) { echo -a —] $acrotalk(Non hai inserito un valore valido. Fai ripartire il quiz) [— | halt }
    msg %acro_canale            —] $acrotalk(acro AcTivaTeD) [—
    msg %acro_canale            —] $acrotalk(La partita termina a) 4 %acro_target  $acrotalk(punti. Buona fortuna :) ) [— 
    dialog -m AcroGame AcroGame 
  } 
}




dialog AcroGame {
  title "Acro"
  size -1 -1 240 288
  box "Acro Commands Console", 500, 1 1 240 135, autohs
  button "Start Game", 501, 1 16 240 30, autohs
  button "Pausa/Riprendi", 502, 1 46 240 30, autohs
  button "Dai istruzioni", 503, 1  76 240 30, autohs
  button "End-Of-Game", 504, 1 106 240 30, autohs
  box "Regola tempi di gioco", 510, 1 136 240 120, autohs 
  text "Aumenta/decrementa di 10 secondi la durata di ogni manche", 511, 65 160 105 40, autohs
  button "+10", 512, 5  160 50 30, autohs
  button "-10", 513, 186 160 50 30, autohs
  text "Aumenta/decrementa di 5 secondi l'attesa tra 2 manches", 514, 65 210 105 40, autohs
  button "+5", 515, 5  210 50 30, autohs
  button "-5", 516, 186 210 50 30, autohs
  button "Chiudi questa finestra", 517, 1 255 240 30, ok
} 

on 1:dialog:AcroGame:sclick:501: { 
  set %gameacro_stato ON
  set %acro_mode 3
  set %acro_pausetime 40
  set %acro_votetime 30
  set %acro_manchenum 0
  if $exists(acroclass.txt) { .remove acroclass.txt }
  if $exists(acromanche.txt) { .remove acromanche.txt }
  acro_hub
}

on 1:dialog:AcroGame:sclick:502: {   
  if (%gameacro_stato == ON) || (%gameacro_stato == PAUSE) {
    if (%acro_mode != 3) { .echo -a $acrotalk(Attendi il termine della manche il corso) } 
    else {
      if (%gameacro_stato == PAUSE) { set %gameacro_stato ON | msg %acro_canale            —] $acrotalk(acro Riprende. Sveglia!) [— | .timernew 1 30 acro_hub | halt } 
      if (%gameacro_stato == ON) { set %gameacro_stato PAUSE | msg %acro_canale            —] $acrotalk(acro θ in Pausa) [— | .timernew off | halt }
    }
  }
}

alias pausaacro {
  if (%gameacro_stato == ON) || (%gameacro_stato == PAUSE) {
    if (%acro_mode != 3) { .echo -a $acrotalk(Attendi il termine della manche il corso) } 
    else {
      if (%gameacro_stato == PAUSE) { set %gameacro_stato ON | msg %acro_canale            —] $acrotalk(acro Riprende. Sveglia!) [— | .timernew 1 30 acro_hub | halt } 
      if (%gameacro_stato == ON) { set %gameacro_stato PAUSE | msg %acro_canale            —] $acrotalk(acro θ in Pausa) [— | .timernew off | halt }
    }
  }
}

on 1:dialog:AcroGame:sclick:503: { acro_instr }

on 1:dialog:AcroGame:sclick:504: {   
  if (%gameacro_stato == ON) {
    if $exists(acroclass.txt) { .remove acroclass.txt }
    if $exists(acromanche.txt) { .remove acromanche.txt }
    .timer* off
    msg %acro_canale           —] $acrotalk(Acro Stoppato! Punteggi eliminati!) [—
    set %gameacro_stato OFF
    unset %acro*
  }
}
}

on 1:dialog:AcroGame:sclick:513: {
if (%gameacro_stato != OFF) {
  if (%acro_pausetime < 50) { echo -a —] $acrotalk(Non puoi scendere sotto i 40 secondi) [— }
  else {
    dec %acro_pausetime 10
    msg %acro_canale —] $acrotalk(Il tempo a disposizione per ogni manche θ ora di) 4 %acro_pausetime  $acrotalk(secondi) [—
  }
}
}

on 1:dialog:AcroGame:sclick:512: {
if (%gameacro_stato != OFF) {
  inc %acro_pausetime 10
  msg %acro_canale —] $acrotalk(Il tempo a disposizione per ogni manche θ ora di) 4 %acro_pausetime  $acrotalk(secondi) [—
}
}

on 1:dialog:AcroGame:sclick:516: {
if (%gameacro_stato != OFF) {
  if (%acro_votetime < 15) { echo -a —] $acrotalk(Non puoi scendere sotto i 10 secondi) [— }
  else {
    dec %acro_votetime 5
    msg %acro_canale —] $acrotalk(L'attesa tra due manche θ ora di) 4 %acro_votetime   $acrotalk(secondi) [—
  }
}
}

on 1:dialog:AcroGame:sclick:515: {
if (%gameacro_stato != OFF) {
  inc %acro_votetime 5
  msg %acro_canale —] $acrotalk(L'attesa tra due manche θ ora di) 4 %acro_votetime   $acrotalk(secondi) [—
}
}