on 1:TEXT:!spiegacaos:#:{ msg $chan 0,2 Regole 4CAOS0,2. Scopo del gioco: trovare il + alto numero di parole della categoria 0,4indicata0,2. All'avvio iscriversi in una squadra.Le risposte vanno scritte SUL CANALE e 0,5UNA PER RIGA0,2. Se la risposta corrisponde a una di quelle previste e se sarai il + veloce a scriverla, ti verrà assegnato il punto.Ogni partita dura0,4 50,2round.Se cambi0,4 nick 0,2durante il gioco non terrà più conto delle tue risposte. }
on 1:TEXT:!gioca caos:#:{
  if %game_in_progress == $null { set %game_in_progress 0,23mIR4C6A7o4S }
  else { notice $nick Spiacente $nick, devi attendere. C'è già una partita di %game_in_progress in corso. | halt }
  if $nick(0,$chan) < 3 { msg $chan 0,4Spiacente $nick. 0,2E' necessario che tu abbia almeno un avversario per giocare a Caos | unset %game_in_progress | halt }
  unset %chaos* | chaoscount | set %chaosteam1score 0 | set %chaosteam2score 0
  .enable #chaosjoin | .enable #chaosteams | .disable #chanprot
  msg $chan 1,0mIR4C6A7o4S4 Avviato1,0! 1,0Per giocare devi iscriverti digitando sul chan, 4entro 30 secondi, 1,0!gioco
  msg $chan 0,5Il round0,5 10,5 partirà tra 30 secondi...1,0[ PER LE REGOLE DEL GIOCO BASTA DGT IN CHAN 4!spiegacaos1,0]
  set %chaosround 0 | .timer 1 35 start_chaos
}
 
#chaosjoin off
on 1:JOIN:#:{
  if $nick(0,$chan) < 2 && %game_in_progress == 3mIR4C6A7o4S { disable #chaosjoin | unset %game_in_progress }
  if $nick(0,$chan) > 2  { .notice $nick 0,2 C'è una partita di 3mIR4C6A7o4S0,2 in corso, 0,2 Per giocare devi iscriverti digitando sul chan 0,2!gioco }
}
#chaosjoin end
 
#chaosteams off
on 1:TEXT:!gioco:*:{
  if $nick !isin %chaosteam2 && $nick !isin %chaosteam1 { set %chaosteam1 $nick %chaosteam1 | .msg $chan 4 $nick 1,0Sei iscritto al gioco }
}
 
alias start_chaos {
  if %chaosteam1 == $null { msg $comchan($me,1) 0,4ERRORE:0,5 Nessun iscritto al gioco. }
  if %chaosteam1 == $null { unset %game_in_progress | .disable #chaosjoin | .disable #chaosteams | .disable #chaosanswers | .enable #floodprot | halt }
  unset %chaos_correct_answers | unset %chaos_current_round_winners | inc %chaosround
  :round1to5
  set %chaos_current  $r(1,%chaos_categories)
  if $exists($mircdirplayed.cat) == $true && $lines($mircdirplayed.cat) == %chaos_categories { remove $mircdirplayed.cat }
  if $exists($mircdirplayed.cat) == $true { set %chaos_cat_check $lines($mircdirplayed.cat) }
  else { set %chaos_cat_check 0 }
  :fileloop
  if %chaos_cat_check < 1 { goto fileend }
  set %chaos_fileline $read -l $+ %chaos_cat_check $mircdirplayed.cat
  if %chaos_current == %chaos_fileline { goto round1to5 }
  dec %chaos_cat_check | goto fileloop
  :fileend
  write $mircdirplayed.cat %chaos_current
  msg $comchan($me,1) 8,2Round0,2 %chaosround 0,2- 9,2Categoria: $+ %chaosround [ 0,2 $read -l1 [ $mircdir [ $+ [ %chaos_current ] ] ] ]
  if %chaosround == 5 { msg $comchan($me,1) 0,4(Ultimo 0,2Round!0,2Le risposte valgono 0,4 30,2 punti!) }
  echo $comchan($me,1) Current File In Use:0,2 $scriptdir $+ %chaos_current | .enable #chaosanswers
  .timer 1 35 msg $comchan($me,1) 1,0 4Attenzione!1,0 Mancano4 10 1,0secondi alla fine del tempo
  .timer 1 45 .disable #chaosanswers
  .timer 1 46 chaos_success
  chaosanswers | halt
}
on 1:TEXT:!comandicaos:#:.msg $chan 0,2Comandi Caos: 0,2!teams (per conoscere le squadre) 0,2!spiegacaos 0,2(per vedere le regole del gioco)
on 1:TEXT:!spiegacaos:#: { msg $chan Regole 0,2CAOS0,2. Scopo del gioco: trovare il 0,4+0,2 alto numero di parole della categoria indicata. All'avvio iscriversi in una squadra. Le risposte vanno scritte 0,3SUL CANALE0,2 e UNA PER RIGA0,2. Se la risposta 0,4 corrisponde0,2 a una di quelle previste e se sarai il + 0,4veloce0,2 a scriverla, ti verrà assegnato il punto. Ogni partita dura4 50,2 round. Se cambi nick durante il gioco non terrà più conto delle tue risposte. }
on 1:TEXT:!teams:#:.msg $chan 0,2Composizione squadre: 0,4 Team10,2:0,2 %chaosteam1 0......0,4Team20,2:0,2 %chaosteam2
#chaosteams end

#chaosanswers off
on 1:TEXT:*:#:{
  if $nick isin %chaosteam1 {
    if " $+ $1- $+ " isin %chaos_correct_answers && $1- !isin %chaos_current_round_winners {
      set %chaos_current_round_winners $nick $+ , $+ $1- $+ , $+ %chaos_current_round_winners
      set %chaostempanswer " $+ $1- $+ "
      set %chaos_correct_answers $remove(%chaos_correct_answers,%chaostempanswer)
      if $nick isin %chaosteam1 { inc %chaosteam1score 2
        if %chaosround == 5 { inc %chaosteam1score 1 }
      }
 
} } } }
 
#chaosanswers end

alias chaoscount {
  set %chaos_categories 1
  :loop
  set %chaos_file $scriptdir $+ %chaos_categories
  if $exists(%chaos_file) == $true { inc %chaos_categories | goto loop }
  if $exists(%chaos_file) == $false { dec %chaos_categories }
}
 
alias chaosanswers {
  set %chaos_counter 1
  :loop
  if %chaos_counter > $calc($lines(%chaos_current) -1) { goto end }
  inc %chaos_counter | set %chaos_temp3 $read -l $+ %chaos_counter %chaos_current 
  set %chaos_correct_answers " $+ %chaos_temp3 $+ " %chaos_correct_answers | goto loop
  :end
}
 
alias chaos_success {
  msg $comchan($me,1) 1,0Risposte esatte:
  set %chaos_temp2 1
  :loop
  if $gettok(%chaos_current_round_winners,%chaos_temp2,44) == $null { goto end }
  msg $comchan($me,1) 0,2 $+ $gettok(%chaos_current_round_winners,$calc(%chaos_temp2 + 1),44) 0,2di:0,2 $gettok(%chaos_current_round_winners,%chaos_temp2,44)
  inc %chaos_temp2 2
  goto loop  
  :end
  msg $comchan($me,1) 0,2Risposte NON trovate:0,2 %chaos_correct_answers
  msg $comchan($me,1) 1,0 4Punteggi: %chaosteam1score 1,01,00.............
  if %chaosround < 5 {
    msg $comchan($me,1) 1,0 4 pronti... via!
    unset %chaos_correct_answers | unset %chaos_current_round_winners | inc %chaosround
    :round1to5
    set %chaos_current  $r(1,%chaos_categories)
    if $exists($mircdirplayed.cat) == $true && $lines($mircdirplayed.cat) == %chaos_categories { remove $mircdirplayed.cat }
    if $exists($mircdirplayed.cat) == $true { set %chaos_cat_check $lines($mircdirplayed.cat) }
    else { set %chaos_cat_check 0 }
    :fileloop
    if %chaos_cat_check < 1 { goto fileend }
    set %chaos_fileline $read -l $+ %chaos_cat_check $mircdirplayed.cat
    if %chaos_current == %chaos_fileline { goto round1to5 }
    dec %chaos_cat_check | goto fileloop
    :fileend
    write $mircdirplayed.cat %chaos_current
    msg $comchan($me,1) 8,2Round0,2 %chaosround 0,2- 9,2Categoria: $+ %chaosround [ 0,2 $read -l1 [ $mircdir [ $+ [ %chaos_current ] ] ] ]
    if %chaosround == 5 { msg $comchan($me,1) 0,4Ultimo 0,2Round!0,2Le risposte valgono 0,4 3 0,2punti! }
    echo $comchan($me,1) Current File In Use:0,2 $scriptdir $+ %chaos_current | .enable #chaosanswers
    .timer 1 35 msg $comchan($me,1) 0,4Attenzione!0,2 Mancano0,4 10 0,2secondi0,2 alla fine del tempo
    .timer 1 45 .disable #chaosanswers
    .timer 1 46 chaos_success
    chaosanswers | halt
  }
  if %chaosround >= 5 {
    msg $comchan($me,1) 0,4Gioco Terminato.0,2 Questa partita di 3mIR4C6A7o4S0,2è finita! 
    if %chaosteam1score {
      msg $comchan($me,1) 0,2Vince il Giocatore :0,2 %chaosteam1 
    }
    if %chaosteam1score > %chaosteam2score { msg $comchan($me,1) 0,5Bravissimo $nick0,5!!! | msg $comchan($me,1) $read  $mircdirCaoswin.txt }
    msg $comchan($me,1) 0,2 Vince il giocatore :0,2 %chaosteam1
    msg $comchan($me,1) 1,0Aiutaci a costruire il database delle domande. Invia la tua categoria a un 4 operatore
    .timer 1 5 msg $comchan($me,1) 0,23mIR4C6A7o4S0,2 2.0 -
    .disable #chaosjoin | .disable #chaosteams | .enable #chanprot
    .timer 1 6 unset %game_in_progress
} }
 
#chaosanswers off
on 1:TEXT:*:#:{
  if $nick isin %chaosteam1 {
    if " $+ $1- $+ " isin %chaos_correct_answers && $1- !isin %chaos_current_round_winners {
      set %chaos_current_round_winners $nick $+ , $+ $1- $+ , $+ %chaos_current_round_winners
      set %chaostempanswer " $+ $1- $+ "
      set %chaos_correct_answers $remove(%chaos_correct_answers,%chaostempanswer)
      if $nick isin %chaosteam1 { inc %chaosteam1score 2
        if %chaosround == 5 { inc %chaosteam1score 1 }
      }
 
} } } }
 
#chaosanswers end

alias chaoscount {
  set %chaos_categories 1
  :loop
  set %chaos_file $scriptdir $+ %chaos_categories
  if $exists(%chaos_file) == $true { inc %chaos_categories | goto loop }
  if $exists(%chaos_file) == $false { dec %chaos_categories }
}
 
alias chaosanswers {
  set %chaos_counter 1
  :loop
  if %chaos_counter > $calc($lines(%chaos_current) -1) { goto end }
  inc %chaos_counter | set %chaos_temp3 $read -l $+ %chaos_counter %chaos_current 
  set %chaos_correct_answers " $+ %chaos_temp3 $+ " %chaos_correct_answers | goto loop
  :end
}