hello, long time I found this addon, but unfortunately I do not understand much codici.in this very nice addon are written questions and answers Manuli, I ask you to help if possible, put a code with a txt question that loads the questions and answers automatically. I'm Italian excuse my English. thanks: D

;**********************************************************************************************;
                            Bersaglio versione 1.0    by Inocs
;**********************************************************************************************;

;                   Lo script è liberamente utilizzabile e modificabile

;           Per commenti,critiche e suggerimenti scrivete a : antonik@inwind.it    

;                Buon divertimento da  : INOCS ( 18/10 inossidabile... eheh )

;**********************************************************************************************;

;Per "caricare" il file : /load -rs bersaglio.txt
;per "scaricare" il file : /unload -rs bersaglio.txt

alias apri {
  if ( %avviato != 5 ) {
    if ( %blocco != 10 ) { 
    /set %conteggio 0
    /set %bloccaggio 1
    /set %avviato 0
    /set %channel $1
    /set %controlnick 0
    /set %ripetizionewhile 0
    /set %round 1
    /set %timerif $ctime
    /set %bloccauno 1
      /msg %channel 8,2[4,2***8,2 Bersaglio 4,2***8,2] 11,2in funzione !         4,2by Inocs ( 8,2#nonsoloquiz 4,2)
      /msg %channel 9,2Per un aiuto sulle regole del gioco digitare 8,2!helpbe 9,2nel canale
      /msg %channel 4,2Siete pronti ?

    }
    if ( %blocco == 10 ) { /echo 2 -a Bersaglio già avviato Per chiuderlo e azzerare la classifica clicca "termina" e riavvialo . Altrimenti puoi riprenderlo da dove lo hai lasciato :) }
    /set %blocco 10
    dialog -m bersaglio bersaglio
  }
  elseif ( %avviato == 5 ) {
    dialog -m bersrunning bersrunning
    /echo 2 -a Bersaglio già avviato ,con domande in corso
    /echo 2 -a Se vuoi avviarne uno nuovo clicca "Termina" e quindi riavvialo . Altrimenti puoi riprenderlo da dove lo hai lasciato  :)
  }
}

dialog bersaglio {
  title "Bersaglio                           by Inocs"
  size -1 -1 424 198
  box "Bersaglio", 1, 5 0 414 193
  text "Start (o quiz) :", 105, 8 21 66 15
  text "Parola 1 :", 106, 18 43 50 15 
  text "Parola 2 :", 107, 18 65 50 15
  text "Parola 3 :", 108, 18 87 50 15
  text "Parola 4 :", 109, 18 109 50 15
  text "Bersaglio :", 110, 18 131 50 15
  text "Ritardo indizi :",205, 172 22 100 15
  text "Sec.",350, 292 22 30 15
  text "Indizio 1 :", 206, 172 44 50 15 
  text "Indizio 2 :", 207, 172 66 50 15
  text "Indizio 3 :", 208, 172 88 50 15
  text "Indizio 4 :", 209, 172 110 50 15
  text "Indizio 5 :", 210, 172 132 50 15
  edit "" , 111, 75 18 90 22, autohs
  edit "" , 112, 75 40 90 22, autohs
  edit "" , 113, 75 62 90 22, autohs
  edit "" , 114, 75 84 90 22, autohs
  edit "" , 115, 75 106 90 22, autohs
  edit "" , 116, 75 128 90 22, autohs

  edit "5" , 131, 253 18 24 22, read,autohs

  edit "" , 132, 222 40 90 22, autohs
  edit "" , 133, 222 62 90 22, autohs
  edit "" , 134, 222 84 90 22, autohs
  edit "" , 135, 222 106 90 22, autohs
  edit "" , 136, 222 128 90 22, autohs
  button "Avvia round", 100, 330 21 80 25, ok
  button "<",393,240 21 13 15
  button ">",394,277 21 13 15
  button "Classifica", 101, 330 54 80 25
  button "Mostra comandi", 102, 330 87 80 25
  button "Annulla round", 347,330 120 80 25
  button "Termina", 103,270 157 100 29
  text "Messaggio al chan",578,18 157 55 35
  edit "" , 580, 75 159 90 25, autohs
  button "Invia", 546,168 160 40 24
}

on 1:dialog:bersaglio:sclick:546: {
/set %messchannel $did(580).text
if ( $did(580) != $null ) {
/msg %channel 4,2Il quizzer dice :8,2 %messchannel
did -r bersaglio 580
}
}

on 1:dialog:bersaglio:sclick:393: {
if ( $did(131) != 0 ) {
/set %refuse $did(131).text
/set %refuseuno $calc( %refuse - 1 )
did -r bersaglio 131
did -a bersaglio 131 %refuseuno
}
}

on 1:dialog:bersaglio:sclick:394: {
if ( $did(131) != 20 ) {
/set %refuse $did(131).text
/set %refuseuno $calc( %refuse + 1 )
did -r bersaglio 131
did -a bersaglio 131 %refuseuno
}
}

on 1:dialog:bersaglio:sclick:347: {
if ( %round != 1 ) {
if ( %bloccauno != 0 ) {
/set %tokenpunti %memoriauno
/set %tokennick %memoriadue
/msg %channel 8,2Round annullato ! La classifica è stata riportata alla situazione precedente
/set %bloccauno 0
if ( %round == 2 ) {
/set %controlnick 0
}
}
}
}

on 1:dialog:bersaglio:sclick:102: {
/mostrahelpcanale
}

on 1:dialog:bersaglio:sclick:103: {
  dialog -x bersaglio
  /mostrarisultati

}

on 1:dialog:bersaglio:sclick:101: {
/scriviclass
}

dialog bersrunning {
  title "Bersaglio in corso...by Inocs"
  size -1 -1 300 270
  box "Indizio", 1, 5 0 290 95
  box "Controllo",2,5 100 290 165
  text "Parola", 117, 18 20 80 15
  text "in corso", 118, 18 35 80 15
  edit "" , 121, 75 62 120 22, autohs
  edit %control , 119, 75 23 120 22, read,autohs
  button "Mostra domanda",436, 202 23 83 22
  text "Indizio :", 120, 18 65 50 15
  button "Dai indizio", 100, 202 62 83 22,ok
  text "Parola 1 :", 106, 18 121 50 15 
  text "Parola 2 :", 107, 18 143 50 15
  text "Parola 3 :", 108, 18 165 50 15
  text "Parola 4 :", 109, 18 187 50 15
  text "Bersaglio :", 110, 18 209 50 15
  edit %prima , 111, 75 118 120 22, read ,autohs
  edit %seconda , 112, 75 140 120 22,read , autohs
  edit %terza , 113, 75 162 120 22, read ,autohs
  edit %quarta , 114, 75 184 120 22, read , autohs
  edit %quinta , 115, 75 206 120 22, read ,autohs
  button "Correggi",101, 207 118 78 20, 
  button "Correggi",102, 207 140 78 20,
  button "Correggi",103, 207 162 78 20,  
  button "Correggi",104, 207 184 78 20, 
  button "Correggi",105, 207 206 78 20, 
  button "Conferma",201, 207 118 78 20, hide ,disable
  button "Conferma",202, 207 140 78 20, hide ,disable
  button "Conferma",203, 207 162 78 20, hide ,disable
  button "Conferma",204, 207 184 78 20, hide ,disable
  button "Conferma",205, 207 206 78 20, hide ,disable
  button "Termina",345, 170 235 80 25
  button "Mostra comandi",555, 50 235 80 25
}

on 1:dialog:bersrunning:sclick:436: {
if ( %conteggio == 0 ) {
/msg %channel 11,2Parola iniziale:8,2 %bersaglio_iniziale
}
if ( %conteggio == 1 ) {
/msg %channel 11,2Riferimento attuale:8,2 %prima
}
if ( %conteggio == 2 ) {
/msg %channel 11,2Riferimento attuale:8,2 %seconda
}
if ( %conteggio == 3 ) {
/msg %channel 11,2Riferimento attuale:8,2 %terza
}
if ( %conteggio == 4 ) {
/msg %channel 11,2Riferimento attuale:8,2 %quarta
}

}

on 1:dialog:bersrunning:sclick:555: {
/mostrahelpcanale
}

on 1:dialog:bersrunning:sclick:345: {
/mostrarisultati
dialog -x bersrunning
}

on 1:dialog:bersrunning:sclick:101: {
  if ( %conteggio == 0 ) {
    did -n bersrunning 111
    did -f bersrunning 111
    did -bh bersrunning 101
    did -ev bersrunning 201
    /msg %channel 9,2Attenzione ! 11,2La risposta corrente sta per essere modificata . Attendere 
    /set %bloccaggio 0
  }
}
on 1:dialog:bersrunning:sclick:102: {
  if ( %conteggio <= 1 ) {
    did -n bersrunning 112
    did -f bersrunning 112
    did -bh bersrunning 102
    did -ev bersrunning 202
  }
  if ( %conteggio == 1 ) {
    /msg %channel 9,2Attenzione ! 11,2La risposta corrente sta per essere modificata . Attendere 
    /set %bloccaggio 0
  }
  elseif ( %conteggio == 0 ) {
    /msg %channel 11,2Attenzione ! 9,2Sta per essere modificata una risposta successiva . Attendere 
    /set %bloccaggio 0
  }
}
on 1:dialog:bersrunning:sclick:103: {
  if ( %conteggio <= 2 ) {
    did -n bersrunning 113
    did -f bersrunning 113
    did -bh bersrunning 103
    did -ev bersrunning 203
  }
  if ( %conteggio == 2 ) {
    /msg %channel 9,2Attenzione ! 11,2La risposta corrente sta per essere modificata . Attendere 
    /set %bloccaggio 0
  }
  elseif ( %conteggio <= 1 ) {
    /msg %channel 11,2Attenzione ! 9,2Sta per essere modificata una risposta successiva . Attendere 
    /set %bloccaggio 0
  }
}
on 1:dialog:bersrunning:sclick:104: {
  if ( %conteggio <= 3 ) {
    did -n bersrunning 114
    did -f bersrunning 114
    did -bh bersrunning 104
    did -ev bersrunning 204
  }
  if ( %conteggio == 3 ) {
    /msg %channel 9,2Attenzione ! 11,2La risposta corrente sta per essere modificata . Attendere 
    /set %bloccaggio 0
  }
  elseif ( %conteggio <= 2 ) {
    /msg %channel 11,2Attenzione ! 9,2Sta per essere modificata una risposta successiva . Attendere 
    /set %bloccaggio 0
  }
}
on 1:dialog:bersrunning:sclick:105: {
  if ( %conteggio <= 4 ) {
    did -n bersrunning 115
    did -f bersrunning 115
    did -bh bersrunning 105
    did -ev bersrunning 205
  }
  if ( %conteggio == 4 ) {
    /msg %channel 9,2Attenzione ! 11,2La risposta corrente sta per essere modificata . Attendere 
    /set %bloccaggio 0
  }
  elseif ( %conteggio <= 3 ) {
    /msg %channel 11,2Attenzione ! 9,2Sta per essere modificata una risposta successiva . Attendere 
    /set %bloccaggio 0
  }
}

on 1:dialog:bersrunning:sclick:201: {
  /set %prima $did(111).text
  /set %control $did(111).text
  did -bh bersrunning 201
  did -ev bersrunning 101
  did -m bersrunning 111
  if ( %conteggio == 0 ) {
    did -r bersrunning 119
    did -a bersrunning 119 %control
    /msg %channel 9,2Risposta corrente modificata ... si riprende 
    /set %bloccaggio 1
  }
}

on 1:dialog:bersrunning:sclick:202: {
  /set %seconda $did(112).text
  /set %control $did(112).text
  did -bh bersrunning 202
  did -ev bersrunning 102
  did -m bersrunning 112
  if ( %conteggio == 1 ) {
    did -r bersrunning 119
    did -a bersrunning 119 %control
    /msg %channel 9,2Risposta corrente modificata ... si riprende
    /set %bloccaggio 1
  }
  elseif ( %conteggio < 1 ) {
    /msg %channel 11,2Risposta successiva modificata . La risposta attuale non è cambiata 
    /set %bloccaggio 1
  }
}
on 1:dialog:bersrunning:sclick:203: {
  /set %terza $did(113).text
  /set %control $did(113).text
  did -bh bersrunning 203
  did -ev bersrunning 103
  did -m bersrunning 113
  if ( %conteggio == 2 ) {
    did -r bersrunning 119
    did -a bersrunning 119 %control
    /msg %channel 9,2Risposta corrente modificata ... si riprende
    /set %bloccaggio 1
  }
  elseif ( %conteggio < 2 ) {
    /msg %channel 11,2Risposta successiva modificata . La risposta attuale non è cambiata
    /set %bloccaggio 1
  }
}

on 1:dialog:bersrunning:sclick:204: {
  /set %quarta $did(114).text
  /set %control $did(114).text
  did -bh bersrunning 204
  did -ev bersrunning 104
  did -m bersrunning 114
  if ( %conteggio == 3 ) {
    did -r bersrunning 119
    did -a bersrunning 119 %control
    /msg %channel 9,2Attenzione ! Risposta corrente modificata ... si riprende
    /set %bloccaggio 1
  }
  elseif ( %conteggio < 3 ) {
    /msg %channel 11,2Risposta successiva modificata . La risposta attuale non è cambiata
    /set %bloccaggio 1
  }
}
on 1:dialog:bersrunning:sclick:205: {
  /set %quinta $did(115).text
  /set %control $did(115).text
  did -bh bersrunning 205
  did -ev bersrunning 105
  did -m bersrunning 115
  if ( %conteggio == 4 ) {
    did -r bersrunning 119
    did -a bersrunning 119 %control
    /msg %channel 9,2 Risposta corrente modificata .
    /set %bloccaggio 1
  }
  elseif ( %conteggio < 4 ) {
    /msg %channel 11,2Risposta successiva modificata . La risposta attuale non è cambiata
    /set %bloccaggio 1
  }
}
on 1:dialog:bersaglio:sclick:100: {
  /set %timeround $ctime
  /set %memoriauno %tokenpunti
  /set %memoriadue %tokennick
  /set %bersaglio_iniziale $did(111).text
  if ( $did(112) != $null )  /inc %avviato 1 | /set %prima $did(112).text
  if ( $did(113) != $null )  /inc %avviato 1 | /set %seconda $did(113).text
  if ( $did(114) != $null )  /inc %avviato 1 | /set %terza $did(114).text
  if ( $did(115) != $null )  /inc %avviato 1 | /set %quarta $did(115).text
  if ( $did(116) != $null )  /inc %avviato 1 | /set %quinta $did(116).text

  /set %ritardo $did(131).text

  if ( $did(132) != $null ) /set %indiziouno $did(132).text
  else { /set %indiziouno nnnn 
  }
  if ( $did(133) != $null ) /set %indiziodue $did(133).text
  else { /set %indiziodue nnnn
  }
  if ( $did(134) != $null ) /set %indiziotre $did(134).text
  else { /set %indiziotre nnnn
  }
  if ( $did(135) != $null ) /set %indizioqua $did(135).text
  else { /set %indizioqua nnnn
  }
  if ( $did(136) != $null ) /set %indiziocin $did(136).text
  else { /set %indiziocin nnnn 
  }

  if ( %avviato == 5 ) {
    if ( %bersaglio_iniziale != $null ) {
      /msg %channel 8,2[ Round %round ]
      /msg %channel 11,2Dovete indovinare8,2 %avviato parole11,2 per raggiungere il bersaglio !
      /msg %channel 9,2Ogni risposta vale8,2 1 9,2punto 4,2Il vincitore del round guadagna8,2 2 4,2punti
      if ( %indiziouno != nnnn ) {
      /msg %channel 11,2La parola ( o il quiz ) di partenza è : 8,2[ %bersaglio_iniziale ] 9,2 Indizio tra9,2 %ritardo sec.
      timer 1 %ritardo /msg %channel 11,2Indizio :8,2 %indiziouno 
      }
      else {
      /msg %channel 11,2La parola ( o il quiz ) di partenza è : 8,2[ %bersaglio_iniziale ]
      }

      /set %control %prima 
      /set %conteggio 0
      dialog -m bersrunning bersrunning
    }
  }
  if ( %avviato != 5 ) {
    dialog -m controllo controllo 
    /set %avviato 0
  }
  if ( %bersaglio_iniziale == $null ) {
    dialog -m controllo controllo
    /set %avviato 0  
  }
}
dialog controllo {
  title "Bersaglio"
  size -1 -1 200 88
  box "Attenzione !", 102,5 0 190 84
  text "Devi completare almeno tutti i campi della prima colonna!", 100,30 18 150 30 
  button "OK", 101,56 52 80 24, ok
}
on 1:dialog:controllo:sclick:101: {
  dialog -m bersaglio bersaglio
}
on 1:dialog:bersrunning:sclick:100: {
  /set %indizio $did(121).text
  if ( %indizio != $null ) {
    /msg %channel 11,2Indizio :8,2 %indizio
  }
  dialog -x bersrunning | dialog -m bersrunning bersrunning
}

alias solvi {
  if ( %bloccaggio == 1 ) {
    /set %nickoide $1

    /set %riferisci 0
    /set %avanz 1
    /set %complessiv $numtok(%tokennick,44)
    while ( %avanz <= %complessiv ) {
    if ( $gettok(%tokennick,%avanz,44) == %nickoide ) {
    /set %korn $gettok(%tokenpunti,%avanz,44)
    /inc %korn 1 
    /set %riferisci 1
    } 
    /inc %avanz 1
    } 
    if ( %riferisci != 1 ) {
    /set %korn 1
    }

    /set %parola $2
    if ( %conteggio == 0 ) { 
      if ( %parola == prima ) {
        /timer* off
        /set %nbsu %nickoide
        /punteggio %nickoide
        /inc %conteggio 1 
        /msg %channel 9,2Benissimo !4,2 La parola era 8,2 %prima 9,2 1 4,2Punto a8,2 %nickoide 4,2(8,2 %korn 4,2)
        if ( %indiziodue != nnnn ) {
        /msg %channel 11,2Adesso la parola di riferimento è 8,2[ %prima ] 9,2Indizio tra9,2 %ritardo sec. 
        /timer 1 %ritardo /msg %channel 11,2Indizio :8,2 %indiziodue
        }
        else {
        /msg %channel 11,2Adesso la parola di riferimento è 8,2[ %prima ]
        }
        /set %control %seconda

        dialog -x bersrunning | dialog -m bersrunning bersrunning
      }
    }
    elseif ( %conteggio == 1 ) {
      if ( %parola == seconda ) {
        /timer* off
        /set %nbsd %nickoide
        /punteggio %nickoide
        /inc %conteggio 1 
        /msg %channel 9,2Benissimo !4,2 La parola era 8,2 %seconda 9,2 1 4,2Punto a8,2 %nickoide 4,2(8,2 %korn 4,2)
        if ( %indiziotre != nnnn ) {
        /msg %channel 11,2Adesso la parola di riferimento è 8,2[ %seconda ] 9,2 Indizio tra9,2 %ritardo sec.
        /timer 1 %ritardo /msg %channel 11,2Indizio :8,2 %indiziotre
        }
        else {
        /msg %channel 11,2Adesso la parola di riferimento è 8,2[ %seconda ]
        }
        /set %control %terza
        dialog -x bersrunning | dialog -m bersrunning bersrunning
      }
    }
    elseif ( %conteggio == 2 ) {
      if ( %parola == terza ) {
        /timer* off
        /set %nbst %nickoide
        /punteggio %nickoide
        /inc %conteggio 1 
        /msg %channel 9,2Benissimo !4,2 La parola era 8,2 %terza 9,2 1 4,2Punto a8,2 %nickoide 4,2(8,2 %korn 4,2)
        if ( %indizioqua != nnnn ) {
        /msg %channel 11,2Adesso la parola di riferimento è 8,2[ %terza ] 9,2 Indizio tra9,2 %ritardo sec.
        /timer 1 %ritardo /msg %channel 11,2Indizio :8,2 %indizioqua
        }
        else {
        /msg %channel 11,2Adesso la parola di riferimento è 8,2[ %terza ]
        }
        /set %control %quarta

        dialog -x bersrunning | dialog -m bersrunning bersrunning
      }
    }
    elseif ( %conteggio == 3 ) {
      if ( %parola == quarta ) {
        /timer* off
        /set %nbsq %nickoide
        /punteggio %nickoide
        /inc %conteggio 1 
        /msg %channel 9,2Benissimo !4,2 La parola era 8,2 %quarta 9,2 1 4,2Punto a8,2 %nickoide 4,2(8,2 %korn 4,2)
        if ( %indiziocin != nnnn ) {
        /msg %channel 11,2La parola di riferimento per il bersaglio è 8,2[ %quarta ] 9,2 Indizio tra9,2 %ritardo sec.
        /timer 1 %ritardo /msg %channel 11,2Indizio :8,2 %indiziocin
        }
        else {
        /msg %channel 11,2La parola di riferimento per il bersaglio è 8,2[ %quarta ]
        }
        /set %control %quinta

        dialog -x bersrunning | dialog -m bersrunning bersrunning
      }
    }
    elseif ( %conteggio == 4 ) {
      if ( %parola == quinta ) {
        /timer* off
        /set %avviato 0
        /inc %round 1
        /set %bloccauno 1
        /set %nbsc %nickoide 
        /punteggio %nickoide  
        /set %timerounduno $ctime
        /set %durataround $duration( $calc( %timerounduno - %timeround ) )  
        /inc %conteggio 1 

        /msg %channel 8,2[ Centro ! ] 11,2Il bersaglio era 8,2 %quinta 9,2 1 4,2Punto a8,2 %nickoide 4,2(8,2 %korn 4,2)
        /msg %channel 4,2Durata del round :8,2 %durataround    

        dialog -x bersrunning
        dialog -m bersaglio bersaglio
        did -r bersaglio 131
        did -a bersaglio 131 %ritardo
        /set %prima
        /set %seconda
        /set %terza
        /set %quarta
        /set %quinta
      }
    }
  }
}

alias punteggio {
        /set %bloccaggio 0
        /set %nickpunteggio $1
        if ( %controlnick != 0 ) {
        /set %aumento 1
        /set %iscritti $numtok(%tokennick,44)  
          while ( %aumento <= %iscritti ) {        
             /set %controparte $gettok(%tokennick,%aumento,44)
           if ( %nickpunteggio == %controparte ) {
             /set %riportopunteggio $gettok(%tokenpunti,%aumento,44)
             /inc %riportopunteggio 1

            /set %tokenpunti $puttok(%tokenpunti,%riportopunteggio,%aumento,44)

             /break

           }

          if ( %nickpunteggio != %controparte ) {
                 /inc %aumento 1
                      }

                     if ( %aumento > %iscritti ) {

          /set %tokenpunti $instok(%tokenpunti,1,%aumento,44)

          /set %tokennick $instok(%tokennick,%nickpunteggio,%aumento,44)

                     }
         }

        }    
        if ( %controlnick == 0 ) {
        /set %controlnick 1
        /set %tokennick %nickpunteggio
        /set %tokenpunti 1     
        }

if ( %avviato == 0 ) {
/set %tokbonus %nbsu
/set %tokbonus $instok(%tokbonus,%nbsd,2,44)
/set %tokbonus $instok(%tokbonus,%nbst,3,44)
/set %tokbonus $instok(%tokbonus,%nbsq,4,44)
/set %tokbonus $instok(%tokbonus,%nbsc,5,44)

if ( %nbsu == %nbsd && %nbsd == %nbst && %nbst == %nbsq && %nbsq == %nbsc ) {
/set %varwhile 1
/set %ragg $numtok(%tokennick,44)
while ( %varwhile <= %ragg ) {
if ( %nbsu == $gettok(%tokennick,%varwhile,44) ) {
/set %sconi $gettok(%tokenpunti,%varwhile,44)
/inc %sconi 6
/set %tokenpunti $puttok(%tokenpunti,%sconi,%varwhile,44)
/set %fortune $gettok(%tokenpunti,%varwhile,44)
}
/inc %varwhile 1
}
/timer 1 2 /msg %channel 
/timer 1 2 /msg %channel 11,2Ha dato più risposte 8,2(5) 11,2e riceve8,2 2 11,2punti vittoria8,2 %nbsu 4,2(8,2 $calc( %fortune - 4 ) 4,2) 
/timer 1 4 /msg %channel 
/timer 1 4 /msg %channel 9,2Un giocatore con 5 risposte !!! 4,2S8U4P9E13R7B11O9N4U8S 9,2di 4 punti a8,2 %nbsu 4,2(8 %fortune 4)
/set %escludiuno 1
}
else {
/set %escludiuno 0
}
if ( %escludiuno != 1 ) {
/set %aa 1
/set %bb 2
/set %cc 3
/set %dd 4
/set %escludidue 0
while ( %aa < 2 ) {
while ( %bb < 3 ) {
while ( %cc < 4 ) {
while ( %dd < 5 ) {
if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) && $gettok(%tokbonus,%bb,44) == $gettok(%tokbonus,%cc,44) && $gettok(%tokbonus,%cc,44) == $gettok(%tokbonus,%dd,44) ) {
/set %nickdaaumento %nbsu
/set %escludidue 1
}
/inc %dd 1
if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) && $gettok(%tokbonus,%bb,44) == $gettok(%tokbonus,%cc,44) && $gettok(%tokbonus,%cc,44) == $gettok(%tokbonus,%dd,44) ) {
/set %nickdaaumento %nbsu
/set %escludidue 1
}
}
/inc %cc 1
if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) && $gettok(%tokbonus,%bb,44) == $gettok(%tokbonus,%cc,44) && $gettok(%tokbonus,%cc,44) == $gettok(%tokbonus,%dd,44) ) {
/set %nickdaaumento %nbsu
/set %escludidue 1
}
}
/inc %bb 1
if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) && $gettok(%tokbonus,%bb,44) == $gettok(%tokbonus,%cc,44) && $gettok(%tokbonus,%cc,44) == $gettok(%tokbonus,%dd,44) ) {
/set %nickdaaumento %nbsu
/set %escludidue 1
}
}
/inc %aa 1
if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) && $gettok(%tokbonus,%bb,44) == $gettok(%tokbonus,%cc,44) && $gettok(%tokbonus,%cc,44) == $gettok(%tokbonus,%dd,44) ) {
/set %nickdaaumento %nbsd
/set %escludidue 1
}
}
if ( %escludidue == 1 ) {
/set %varwhile 1
/set %ragg $numtok(%tokennick,44)
while ( %varwhile <= %ragg ) {
if ( %nickdaaumento == $gettok(%tokennick,%varwhile,44) ) {
/set %sconi $gettok(%tokenpunti,%varwhile,44)
/inc %sconi 4
/set %tokenpunti $puttok(%tokenpunti,%sconi,%varwhile,44)
/set %fortune $gettok(%tokenpunti,%varwhile,44)
}
/inc %varwhile 1
}
/timer 1 2 /msg %channel 
/timer 1 2 /msg %channel 11,2Ha dato più risposte 8,2(4) 11,2e riceve8,2 2 11,2punti vittoria8,2 %nickdaaumento 4,2(8,2 $calc( %fortune - 2 ) 4,2) 
/timer 1 4 /msg %channel 
/timer 1 4 /msg %channel 9,2Un giocatore con 4 risposte ! 7,2B11O9N4U8S 9,2di 2 punti a8,2 %nickdaaumento 4,2(8 %fortune 4)
}
}
if ( %escludidue != 1 && %escludiuno != 1 ) {
/set %escluditre 0
/set %aa 1
/set %bb 2
/set %cc 3
if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) && $gettok(%tokbonus,%bb,44) == $gettok(%tokbonus,%cc,44) ) {
/set %nickdaaumento %nbsu
/set %escluditre 1
}
/inc %cc 1
if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) && $gettok(%tokbonus,%bb,44) == $gettok(%tokbonus,%cc,44) ) {
/set %nickdaaumento %nbsu
/set %escluditre 1
}
/inc %cc 1
if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) && $gettok(%tokbonus,%bb,44) == $gettok(%tokbonus,%cc,44) ) {
/set %nickdaaumento %nbsu
/set %escluditre 1
}
/inc %bb 1
/dec %cc 1
if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) && $gettok(%tokbonus,%bb,44) == $gettok(%tokbonus,%cc,44) ) {
/set %nickdaaumento %nbsu
/set %escluditre 1
}
/inc %cc 1
if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) && $gettok(%tokbonus,%bb,44) == $gettok(%tokbonus,%cc,44) ) {
/set %nickdaaumento %nbsu
/set %escluditre 1
}
/inc %bb 1
if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) && $gettok(%tokbonus,%bb,44) == $gettok(%tokbonus,%cc,44) ) {
/set %nickdaaumento %nbsu
/set %escluditre 1
}
/inc %aa 1
/dec %bb 1
/dec %cc 1
if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) && $gettok(%tokbonus,%bb,44) == $gettok(%tokbonus,%cc,44) ) {
/set %nickdaaumento %nbsd
/set %escluditre 1
}
/inc %cc 1
if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) && $gettok(%tokbonus,%bb,44) == $gettok(%tokbonus,%cc,44) ) {
/set %nickdaaumento %nbsd
/set %escluditre 1
}
/inc %bb 1
if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) && $gettok(%tokbonus,%bb,44) == $gettok(%tokbonus,%cc,44) ) {
/set %nickdaaumento %nbsd
/set %escluditre 1
}
/inc %aa 1
if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) && $gettok(%tokbonus,%bb,44) == $gettok(%tokbonus,%cc,44) ) {
/set %nickdaaumento %nbst
/set %escluditre 1
}
if ( %escluditre == 1 ) {
/set %varwhile 1
/set %ragg $numtok(%tokennick,44)
while ( %varwhile <= %ragg ) {
if ( %nickdaaumento == $gettok(%tokennick,%varwhile,44) ) {
/set %sconi $gettok(%tokenpunti,%varwhile,44)
/inc %sconi 2
/set %tokenpunti $puttok(%tokenpunti,%sconi,%varwhile,44)
/set %fortune $gettok(%tokenpunti,%varwhile,44)
}
/inc %varwhile 1
}
/timer 1 2 /msg %channel 
/timer 1 2 /msg %channel 11,2Ha dato più risposte 8,2(3) 11,2e riceve8,2 2 11,2punti vittoria8,2 %nickdaaumento 4,2(8,2 %fortune 4,2)
}
}
if ( %escludiuno != 1 && %escludidue != 1 && %escluditre != 1 ) {
/set %escludiqua 0
/set %aa 1
/set %bb 2
/set %bluno 0 
/set %bldue 0 
/set %bltre 0 
/set %blqua 0 
/set %blcin 0
/set %blsei 0 
/set %blset 0 
/set %blott 0 
/set %blnov 0 
/set %nickgiausato 0
if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) ) {
/set %nickdaaumento %nbsu
/set %escludiqua 1
/set %bluno 1
/set %nickgiausato 1
}
/inc %bb 1
if ( %bluno != 1 ) {
if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) ) {
/set %nickdaaumento %nbsu
/set %escludiqua 1
/set %bldue 1
/set %nickgiausato 1
}
}
/inc %bb 1
if ( %bluno != 1 ) {
if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) ) {
/set %nickdaaumento %nbsu
/set %escludiqua 1
/set %bltre 1
/set %nickgiausato 1
}
}
/inc %bb 1
if ( %bluno != 1 ) {
if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) ) {
/set %nickdaaumento %nbsu
/set %escludiqua 1
/set %blqua 1
/set %nickgiausato 1
}
}
/inc %aa 1
/dec %bb 2
if ( %bluno != 1 && %bldue != 1 ) {
if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) ) {
if ( %nickgiausato == 1 ) { /set %nickdaaumentodue %nbsd | /set %nickgiausato 2 }
if ( %nickgiausato == 0 ) { /set %nickdaaumento %nbsd | /set %nickgiausato 1 }
/set %escludiqua 1
/set %blcin 1
}
}
/inc %bb 1
if ( %bluno != 1 && %bltre != 1 && %blcin != 1 ) {
if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) ) {
if ( %nickgiausato == 1 ) { /set %nickdaaumentodue %nbsd | /set %nickgiausato 2 }
if ( %nickgiausato == 0 ) { /set %nickdaaumento %nbsd | /set %nickgiausato 1 }

/set %escludiqua 1
/set %blsei 1
}
}
/inc %bb 1
if ( %bluno != 1 && %blqua != 1 && %blcin != 1 && %blsei != 1 ) {
if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) ) {
if ( %nickgiausato == 1 ) { /set %nickdaaumentodue %nbsd | /set %nickgiausato 2 }
if ( %nickgiausato == 0 ) { /set %nickdaaumento %nbsd | /set %nickgiausato 1 }

/set %escludiqua 1
/set %blset 1
}
}
/inc %aa 1
/dec %bb 1
if ( %bldue != 1 && %bltre != 1 && %blcin != 1 && %blsei != 1 ) {
if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) ) {
if ( %nickgiausato == 1 ) { /set %nickdaaumentodue %nbst | /set %nickgiausato 2 }
if ( %nickgiausato == 0 ) { /set %nickdaaumento %nbst | /set %nickgiausato 1 }
/set %escludiqua 1
/set %blott 1
}
}
/inc %bb 1
if ( %bldue != 1 && %blqua != 1 && %blcin != 1 && %blset != 1 && %blott != 1 ) {
if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) ) {
if ( %nickgiausato == 1 ) { /set %nickdaaumentodue %nbst | /set %nickgiausato 2 }
if ( %nickgiausato == 0 ) { /set %nickdaaumento %nbst | /set %nickgiausato 1 }

/set %escludiqua 1
/set %blnov 1
}
}
/inc %aa 1
if ( %bltre != 1 && %blqua != 1 && %blsei != 1 && %blset != 1 && %blott != 1 && %blnov != 1 ) {
if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) ) {
if ( %nickgiausato == 1 ) { /set %nickdaaumentodue %nbsq | /set %nickgiausato 2 }
if ( %nickgiausato == 0 ) { /set %nickdaaumento %nbsq | /set %nickgiausato 1 }
/set %escludiqua 1
}
}

if ( %escludiqua != 0 ) {
if ( %nickgiausato == 1 ) {
/set %varwhile 1
/set %ragg $numtok(%tokennick,44)
while ( %varwhile <= %ragg ) {
if ( %nickdaaumento == $gettok(%tokennick,%varwhile,44) ) {
/set %sconi $gettok(%tokenpunti,%varwhile,44)
/inc %sconi 2
/set %tokenpunti $puttok(%tokenpunti,%sconi,%varwhile,44)
/set %fortune $gettok(%tokenpunti,%varwhile,44)
}
/inc %varwhile 1
}
/timer 1 2 /msg %channel 
/timer 1 2 /msg %channel 11,2Ha dato più risposte 8,2(2) 11,2e riceve8,2 2 11,2punti vittoria8,2 %nickdaaumento 4,2(8,2 %fortune 4,2)
}
if ( %nickgiausato == 2 ) {
/set %varwhile 1
/set %ragg $numtok(%tokennick,44)
while ( %varwhile <= %ragg ) {
if ( %nickdaaumento == $gettok(%tokennick,%varwhile,44) ) {
/set %sconi $gettok(%tokenpunti,%varwhile,44)
/inc %sconi 2
/set %tokenpunti $puttok(%tokenpunti,%sconi,%varwhile,44)
/set %fortune $gettok(%tokenpunti,%varwhile,44) 
}
if ( %nickdaaumentodue == $gettok(%tokennick,%varwhile,44) ) {
/set %sconi $gettok(%tokenpunti,%varwhile,44)
/inc %sconi 2
/set %tokenpunti $puttok(%tokenpunti,%sconi,%varwhile,44)
/set %fortunedue $gettok(%tokenpunti,%varwhile,44) 
}
/inc %varwhile 1
}
/timer 1 2 /msg %channel 
/timer 1 2 /msg %channel 11,2Hanno dato più risposte 8,2(2) 11,2e ricevono8,2 2 11,2punti vittoria :
/timer 1 2 /msg %channel 8,2 %nickdaaumento 4,2(8,2 %fortune 4,2)8,2 %nickdaaumentodue 4,2(8,2 %fortunedue 4,2)
}
}
}
if ( %escludiuno != 1 && %escludidue != 1 && %escluditre != 1 && %escludiqua != 1 ) {
/set %varwhile 1
/set %ragg $numtok(%tokennick,44)
while ( %varwhile <= %ragg ) {
if ( %nbsu == $gettok(%tokennick,%varwhile,44) ) {
/set %sconi $gettok(%tokenpunti,%varwhile,44)
/inc %sconi 2
/set %tokenpunti $puttok(%tokenpunti,%sconi,%varwhile,44)
/set %fortune $gettok(%tokenpunti,%varwhile,44) 
}
if ( %nbsd == $gettok(%tokennick,%varwhile,44) ) {
/set %sconi $gettok(%tokenpunti,%varwhile,44)
/inc %sconi 2
/set %tokenpunti $puttok(%tokenpunti,%sconi,%varwhile,44)
/set %fortuneuno $gettok(%tokenpunti,%varwhile,44) 
}
if ( %nbst == $gettok(%tokennick,%varwhile,44) ) {
/set %sconi $gettok(%tokenpunti,%varwhile,44)
/inc %sconi 2
/set %tokenpunti $puttok(%tokenpunti,%sconi,%varwhile,44)
/set %fortunedue $gettok(%tokenpunti,%varwhile,44) 
}
if ( %nbsq == $gettok(%tokennick,%varwhile,44) ) {
/set %sconi $gettok(%tokenpunti,%varwhile,44)
/inc %sconi 2
/set %tokenpunti $puttok(%tokenpunti,%sconi,%varwhile,44)
/set %fortunetre $gettok(%tokenpunti,%varwhile,44) 
}
if ( %nbsc == $gettok(%tokennick,%varwhile,44) ) {
/set %sconi $gettok(%tokenpunti,%varwhile,44)
/inc %sconi 2
/set %tokenpunti $puttok(%tokenpunti,%sconi,%varwhile,44)
/set %fortunequa $gettok(%tokenpunti,%varwhile,44) 
}
/inc %varwhile 1
}
/timer 1 2 /msg %channel 
/timer 1 2 /msg %channel 11,2Hanno dato più risposte8,2 (1) 11,2e ricevono8,2 2 11,2punti vittoria :
/timer 1 2 /msg %channel 8,2 %nbsu 4,2(8,2 %fortune 4,2)8,2 %nbsd 4,2(8,2 %fortuneuno 4,2)8,2 %nbst 4,2(8,2 %fortunedue 4,2)
/timer 1 2 /msg %channel 8,2 %nbsq 4,2(8,2 %fortunetre 4,2)8,2 %nbsc 4,2(8,2 %fortunequa 4,2)
}
}
/ordinaclassifica
}
alias ordinaclassifica {
/set %totale $numtok(%tokennick,44)
/set %incrementativa 1
while ( %incrementativa < %totale ) {
/set %increm %incrementativa
/inc %increm 1
/set %puntiattuali $gettok(%tokenpunti,%incrementativa,44)
/set %puntisuccessivi $gettok(%tokenpunti,%increm,44)
/set %nickattuale $gettok(%tokennick,%incrementativa,44)
/set %nicksuccessivo $gettok(%tokennick,%increm,44)
if ( %puntiattuali < %puntisuccessivi ) {
/set %tokennick $puttok(%tokennick,%nicksuccessivo,%incrementativa,44)
/set %tokennick $puttok(%tokennick,%nickattuale,%increm,44)
/set %tokenpunti $puttok(%tokenpunti,%puntisuccessivi,%incrementativa,44)
/set %tokenpunti $puttok(%tokenpunti,%puntiattuali,%increm,44)
/set %ripetizionewhile 1
}
/inc %incrementativa 1
}
if ( %ripetizionewhile == 1 ) {
/set %ripetizionewhile 0
/ordinaclassificadue
}
if ( %ripetizionewhile == 0 ) { 
/timer 1 0.5 /set %bloccaggio 1 
}
}
alias ordinaclassificadue {
/set %totale $numtok(%tokennick,44)
/set %incrementativa 1
while ( %incrementativa < %totale ) {
/set %increm %incrementativa
/inc %increm 1
/set %puntiattuali $gettok(%tokenpunti,%incrementativa,44)
/set %puntisuccessivi $gettok(%tokenpunti,%increm,44)
/set %nickattuale $gettok(%tokennick,%incrementativa,44)
/set %nicksuccessivo $gettok(%tokennick,%increm,44)
if ( %puntiattuali < %puntisuccessivi ) {
/set %tokennick $puttok(%tokennick,%nicksuccessivo,%incrementativa,44)
/set %tokennick $puttok(%tokennick,%nickattuale,%increm,44)
/set %tokenpunti $puttok(%tokenpunti,%puntisuccessivi,%incrementativa,44)
/set %tokenpunti $puttok(%tokenpunti,%puntiattuali,%increm,44)
/set %ripetizionewhile 1
}
/inc %incrementativa 1
}
if ( %ripetizionewhile == 1 ) {
/set %ripetizionewhile 0
/ordinaclassifica
}
if ( %ripetizionewhile == 0 ) {
/timer 1 0.5 /set %bloccaggio 1 
}
}
alias scriviclass {
 if ( %avviato == 0 ) {
/set %inocs 1
/set %acciaio 5
/set %attualtime $ctime
/set %trasc $duration( $calc( %attualtime - %timerif ) )
/set %roundmeno $calc( %round - 1 )
/msg %channel  7,2[ Classifica dopo %roundmeno round ] 
while ( %inocs <= %acciaio ) {
if ( $gettok(%tokennick,%inocs,44) != $null ) {
/msg %channel 11,2 %inocs ° posto :9,2 $gettok(%tokennick,%inocs,44) 8,2( $gettok(%tokenpunti,%inocs,44) )
if ( %inocs == %acciaio ) { /msg %channel 4,2 Tempo trascorso:8,2 %trasc }
}
else {
/msg %channel 11,2 %inocs ° posto :8,2 [None]
if ( %inocs == %acciaio ) { /msg %channel 7,2Tempo trascorso:8,2 %trasc }
}
/inc %inocs 1
}
}
else {
/notice $1 11,2Round in corso $nick ! Attendi la fine per scorrere la classifica :)
}
}
alias daipuntiindividuali {
/set %nic $1
/set %luk $numtok(%tokennick,44)
/set %av 1
while ( %av <= %luk ) {
if ( $gettok(%tokennick,%av,44) == %nic ) {
/notice %nic 8,2 $nick , i tuoi punti attuali sono $gettok(%tokenpunti,%av,44) 
/set %nientepunti 1
}
/inc %av 1
}
if ( %nientepunti != 1 ) {
/notice %nic 8,2 $nick , attualmente non sei ancora in classifica :)
}
/set %nientepunti 0
}
on 1:TEXT:%prima:%channel: if ( %conteggio == 0 ) { /solvi $nick prima }
on 1:TEXT:%seconda:%channel: if ( %conteggio == 1 ) { /solvi $nick seconda }
on 1:TEXT:%terza:%channel: if ( %conteggio == 2 ) { /solvi $nick terza }
on 1:TEXT:%quarta:%channel: if ( %conteggio == 3 ) { /solvi $nick quarta }  
on 1:TEXT:%quinta:%channel: if ( %conteggio == 4 ) { /solvi $nick quinta }

on 1:text:!classifica:%channel: if ( %blocco == 10 ) { /scriviclass $nick }
on 1:text:!punti:%channel: if ( %blocco == 10 ) { /daipuntiindividuali $nick }
on 1:text:!helpbe:%channel: if ( %blocco == 10 ) { /mostrahelp $nick }
on 1:text:!indizio:%channel: if ( %blocco == 10 ) { /mostraindizio $nick }
on 1:text:!domanda:%channel: if ( %blocco == 10 ) { /mostraparolattuale $nick }

on 1:Nick: {
/corregginick $newnick $nick 
}
on 1:load: {
/echo 4 -a 4Bersaglio by ******Inocs****** caricato
/echo 4 -a 4Nello "status" informazioni utili per te !
/echo 4  4Apri il gioco dal menu che trovi nei canali
/echo 4  4Eccoti alcuni suggerimenti sul gioco e sulla sua conduzione :
/echo 4  4Il gioco ricalca il noto "bersaglio" della settimana enigmistica
/echo 4  4Ogni parola può essere legata alla precedente da queste regole :
/echo 4  4- Anagramma
/echo 4  4- Sinonimo o contrario
/echo 4  4- Aggiunta,sottrazione o cambio lettera
/echo 4  4- Associata in un detto,in una massima,metafora o per semplice associazione di idee
/echo 4  4- Associata nel nome di una persona celebre o di un luogo (reale o immaginario)
/echo 4  4- Associata in un libro,in una canzone, o cmq in qualsiasi componimento o opera
/echo 4  4N.B.:Ti ricordo che puoi personalizzare le regole (dando opportuni indizi) ;)
/echo 4  4Esiste l'obbligo di presentare cinque domande(cioè cinque parole da indovinare consecutive)
/echo 4  4Gli indizi sono omissibili;resta sempre tua la possibilità di darli successivamente
/echo 4  4durante le varie fasi del gioco
/echo 4  4Ti ricordo infine di chiudere sempre il gioco con i pulsanti "Termina" e non con la x di chiusura del dialog se vuoi trovare tutto azzerato in una futura partita(nel caso accadesse basta chiuderlo nella successiva sessione scaricando la classifica, oppure se vuoi puoi non "terminarlo" e mantenere la stessa classifica per una futura ripresa del gioco ! )
/echo 4  4Una volta chiuso (con la x o con "termina") il gioco puoi scaricarlo col comando : /unload -rs bersaglio.txt
/echo 4  4,0******************************Buon divertimento !!*********************************
}
on 1:join:%channel: {
if ( %blocco == 10 && $nick != $me ) {
/notice $nick 11,2 BERSAGLIO è in funzione ! Sono stati giocati $calc( %round - 1 ) rounds
/notice $nick 8,2 Digita !helpbe per conoscere le caratteristiche del gioco
}
if ( $nick == $me && %blocco == 10 ) {
/echo 2 -a Attento 4,0 $me 2,0 ,su questo canale è avviato il gioco "bersaglio" gestito da te !
/echo 2 -a Se non lo chiudi la classifica resterà quella della partita precedente
/echo 2 -a Per chiudere il gioco e resettarlo avvia il dialog e clicca "Termina"
/echo 2 -a Altrimenti avvialo senza "terminarlo" e riprendi da dove lo hai lasciato
}
}
menu channel {
Bersaglio by Inocs
.Avvia: /apri $chan
}
alias mostrarisultati {
/timer* off
/set %timerifdue $ctime
/set %duratapartita $duration( $calc( %timerifdue - %timerif ) )
/msg %channel 
/msg %channel 7,2***** Anche questa grandissima partita è finita ! ******
/msg %channel 11,2Si sono giocati8,2 $calc( %round - 1 ) rounds. 11,2Tempo complessivo:8,2 %duratapartita
/set %lungh $numtok(%tokennick,44)
if ( %lungh > 0 ) {
/msg %channel 8,2 Vincitore/i :
/set %n $gettok(%tokennick,1,44)
/set %p $gettok(%tokenpunti,1,44)
/msg %channel 9,2 %n 8,2punti %p 
/set %varwhile 2
while ( %varwhile <= %lungh ) {
if ( $gettok(%tokenpunti,1,44) == $gettok(%tokenpunti,%varwhile,44) ) {
/set %n $gettok(%tokennick,%varwhile,44)
/set %p $gettok(%tokenpunti,%varwhile,44)
/msg %channel 9,2 %n 8,2punti %p
}
/inc %varwhile 1
}
}
if ( %lungh == 0 ) {
/msg %channel 8,2Nessun Vincitore
}
/msg %channel 8,2*****11,2 Bersaglio 8,2by Inocs 4,2( 8,2#nonsoloquiz 4,2)8,2 *****

  /set %blocco 0
  /set %avviato 0
  /set %conteggio 0
  /set %bloccaggio 0
  /set %controlnick 0
  /set %round 0
  /set %tokenpunti
  /set %tokennick
  /set %Prima
  /set %seconda
  /set %terza
  /set %quarta
  /set %quinta
}
alias mostrahelp {
/notice $1 11,2Il gioco ricalca il noto "bersaglio" della settimana enigmistica
/notice $1 9,2Ogni parola può essere legata alla precedente da queste regole :
/notice $1 4,2- 8,2Anagramma
/notice $1 4,2- 8,2Sinonimo o contrario
/notice $1 4,2- 8,2Aggiunta,sottrazione o cambio lettera
/notice $1 4,2- 8,2In un detto,in una massima,metafora o per semplice associazione di idee
/notice $1 4,2- 8,2Nel nome di una persona celebre o di un luogo (reali o immaginari)
/notice $1 4,2- 8,2In un libro,in una canzone, o cmq in qualsiasi componimento ed opera
/notice $1 8,2N.B.:9,2 si possono personalizzare le regole (dando opportuni indizi) :P
/notice $1 11,2Comandi: 4,2!classifica 9,2!punti 8,2!domanda 9,2!indizio 4,2!helpbe ...11,2In bocca al lupo !
}
alias mostrahelpcanale {
/msg %channel 4,2****** I comandi sono ******
/msg %channel 9,2-8,2!classifica11,2 (mostra classifica generale)
/msg %channel 9,2-8,2!punti11,2 (mostra punti personali)
/msg %channel 9,2-8,2!domanda11,2 (mostra parola attuale di riferimento)
/msg %channel 9,2-8,2!indizio11,2 (mostra l'indizio corrente)
/msg %channel 9,2-8,2!helpbe11,2 (mostra l'aiuto in linea)
}

alias mostraindizio {
if (%avviato > 0 ) {
if ( %conteggio == 0 && %indiziouno != nnnn ) {
/notice $1 9,2Tra %ritardo secondi giungerà l'indizio sul canale :)
timer 1 %ritardo /msg %channel 11,2Indizio :8,2 %indiziouno
}
if ( %indiziouno == nnnn && %conteggio == 0 ) { /notice $1 9,2 Nessun indizio predefinito dal quizzer :) } 

if ( %conteggio == 1  && %indiziodue != nnnn ) {
/notice $1 9,2Tra %ritardo secondi giungerà l'indizio sul canale :)
timer 1 %ritardo /msg %channel 11,2Indizio :8,2 %indiziodue
}
if ( %indiziodue == nnnn && %conteggio == 1 ) { /notice $1 9,2 Nessun indizio predefinito dal quizzer :) } 

if ( %conteggio == 2 && %indiziotre != nnnn ) {
/notice $1 9,2Tra %ritardo secondi giungerà l'indizio sul canale :)
timer 1 %ritardo /msg %channel 11,2Indizio :8,2 %indiziotre
}
if ( %indiziotre == nnnn && %conteggio == 2 ) { /notice $1 9,2 Nessun indizio predefinito dal quizzer :) } 

if ( %conteggio == 3 && %indizioqua != nnnn ) {
/notice $1 9,2Tra %ritardo secondi giungerà l'indizio sul canale :)
timer 1 %ritardo /msg %channel 11,2Indizio :8,2 %indizioqua
}
if ( %indizioqua == nnnn && %conteggio == 3 ) { /notice $1 9,2 Nessun indizio predefinito dal quizzer :) } 

if ( %conteggio == 4 && %indiziocin != nnnn ) {
/notice $1 9,2Tra %ritardo secondi giungerà l'indizio sul canale :)
timer 1 %ritardo /msg %channel 11,2Indizio :8,2 %indiziocin
}
if ( %indiziocin == nnnn && %conteggio == 4 ) { /notice $1 9,2 Nessun indizio predefinito dal quizzer :) } 

}
else {
/notice $1 11,2Nessuna domanda in corso :P
}
}
alias mostraparolattuale {
if (%avviato > 0 ) {
if ( %conteggio == 0 ) {
/msg %channel 11,2Parola iniziale:8,2 %bersaglio_iniziale
}
if ( %conteggio == 1 ) {
/msg %channel 11,2Riferimento attuale:8,2 %prima
}
if ( %conteggio == 2 ) {
/msg %channel 11,2Riferimento attuale:8,2 %seconda
}
if ( %conteggio == 3 ) {
/msg %channel 11,2Riferimento attuale:8,2 %terza
}
if ( %conteggio == 4 ) {
/msg %channel 11,2Riferimento attuale:8,2 %quarta
}
}
else {
/notice $1 8,2Nessuna domanda in corso :P
}
}
alias corregginick {
/set %basta $numtok(%tokennick,44)
/set %stanco 1
while ( %stanco <= %basta ) {
if ( $2 == $gettok(%tokennick,%stanco,44) ) {
/set %tokennick $puttok(%tokennick,$newnick,%stanco,44)
}
/inc %stanco 1
}

}