Giochi

winni2 Messages postés 7 Date d'inscription mercredi 14 janvier 2009 Statut Membre Dernière intervention 9 février 2009 - 23 janv. 2009 à 07:59
cs_wims Messages postés 2466 Date d'inscription vendredi 23 juillet 2004 Statut Membre Dernière intervention 1 août 2010 - 24 janv. 2009 à 03:24
bonjour, J'ai une faveur à demander, car vous êtes très bien à faire de l'mirc.vi x addons addons ci-joint un jeu (désolé mais il est en italien) est un manuel, malheureusement, je voudrais savoir si possible d'ajouter un code et d'effectuer une recherche que txt mots réponses automatiquement grâce, je l'espère pour votre aide

;**********************************************************************************************;
                                   bersaglio
 ;**********************************************************************************************;


;                   Lo script è liberamente utilizzabile e modificabile
            
;         ;**********************************************************************************************;




;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 �3;8,2[�2;�3;4,2***�2;�3;8,2 Bersaglio �2;�3;4,2***�F;�3;8,2] �3;11,2in funzione !         �3;4,2by Inocs ( �3;8,2#nonsoloquiz �3;4,2)
      /msg %channel �3;9,2Per un aiuto sulle regole del gioco digitare �2;�3;8,2!helpbe �F;�3;9,2nel canale
      /msg %channel �2;�3;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 �3;4,2Il quizzer dice :�3;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 �3;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 �3;11,2Parola iniziale:�2;�3;8,2 %bersaglio_iniziale
}
if ( %conteggio == 1 ) {
/msg %channel �3;11,2Riferimento attuale:�2;�3;8,2 %prima
}
if ( %conteggio == 2 ) {
/msg %channel �3;11,2Riferimento attuale:�2;�3;8,2 %seconda
}
if ( %conteggio == 3 ) {
/msg %channel �3;11,2Riferimento attuale:�2;�3;8,2 %terza
}
if ( %conteggio == 4 ) {
/msg %channel �3;11,2Riferimento attuale:�2;�3;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 �3;9,2Attenzione ! �3;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 �3;9,2Attenzione ! �3;11,2La risposta corrente sta per essere modificata . Attendere
    /set %bloccaggio 0
  }
  elseif ( %conteggio == 0 ) {
    /msg %channel �3;11,2Attenzione ! �3;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 �3;9,2Attenzione ! �3;11,2La risposta corrente sta per essere modificata . Attendere
    /set %bloccaggio 0
  }
  elseif ( %conteggio <= 1 ) {
    /msg %channel �3;11,2Attenzione ! �3;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 �3;9,2Attenzione ! �3;11,2La risposta corrente sta per essere modificata . Attendere
    /set %bloccaggio 0
  }
  elseif ( %conteggio <= 2 ) {
    /msg %channel �3;11,2Attenzione ! �3;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 �3;9,2Attenzione ! �3;11,2La risposta corrente sta per essere modificata . Attendere
    /set %bloccaggio 0
  }
  elseif ( %conteggio <= 3 ) {
    /msg %channel �3;11,2Attenzione ! �3;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 �3;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 �3;9,2Risposta corrente modificata ... si riprende
    /set %bloccaggio 1
  }
  elseif ( %conteggio < 1 ) {
    /msg %channel �3;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 �3;9,2Risposta corrente modificata ... si riprende
    /set %bloccaggio 1
  }
  elseif ( %conteggio < 2 ) {
    /msg %channel �3;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 �3;9,2Attenzione ! Risposta corrente modificata ... si riprende
    /set %bloccaggio 1
  }
  elseif ( %conteggio < 3 ) {
    /msg %channel �3;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 �3;9,2 Risposta corrente modificata .
    /set %bloccaggio 1
  }
  elseif ( %conteggio < 4 ) {
    /msg %channel �3;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 �2;�3;8,2[ Round %round ]
      /msg %channel �3;11,2Dovete indovinare�2;�3;8,2 %avviato parole�F;�3;11,2 per raggiungere il bersaglio !
      /msg %channel �3;9,2Ogni risposta vale�3;8,2 1 �3;9,2punto �3;4,2Il vincitore del round guadagna�3;8,2 2 �3;4,2punti
      if ( %indiziouno != nnnn ) {
      /msg %channel �3;11,2La parola ( o il quiz ) di partenza è : �2;�3;8,2[ %bersaglio_iniziale ] �F;�3;9,2 Indizio tra�2;�3;9,2 %ritardo sec.
      timer 1 %ritardo /msg %channel �3;11,2Indizio :�2;�3;8,2 %indiziouno
      }
      else {
      /msg %channel �3;11,2La parola ( o il quiz ) di partenza è : �2;�3;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 �3;11,2Indizio :�2;�3;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 �2;�3;9,2Benissimo !�F;�3;4,2 La parola era �2;�3;8,2 %prima �F;�3;9,2 1 �3;4,2Punto a�2;�3;8,2 %nickoide �F;�3;4,2(�3;8,2 %korn �3;4,2)
        if ( %indiziodue != nnnn ) {
        /msg %channel �3;11,2Adesso la parola di riferimento è �2;�3;8,2[ %prima ] �F;�3;9,2Indizio tra�2;�3;9,2 %ritardo sec.
        /timer 1 %ritardo /msg %channel �3;11,2Indizio :�2;�3;8,2 %indiziodue
        }
        else {
        /msg %channel �3;11,2Adesso la parola di riferimento è �2;�3;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 �2;�3;9,2Benissimo !�F;�3;4,2 La parola era �2;�3;8,2 %seconda �F;�3;9,2 1 �3;4,2Punto a�2;�3;8,2 %nickoide �F;�3;4,2(�3;8,2 %korn �3;4,2)
        if ( %indiziotre != nnnn ) {
        /msg %channel �3;11,2Adesso la parola di riferimento è �2;�3;8,2[ %seconda ] �F;�3;9,2 Indizio tra�2;�3;9,2 %ritardo sec.
        /timer 1 %ritardo /msg %channel �3;11,2Indizio :�2;�3;8,2 %indiziotre
        }
        else {
        /msg %channel �3;11,2Adesso la parola di riferimento è �2;�3;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 �2;�3;9,2Benissimo !�F;�3;4,2 La parola era �2;�3;8,2 %terza �F;�3;9,2 1 �3;4,2Punto a�2;�3;8,2 %nickoide �F;�3;4,2(�3;8,2 %korn �3;4,2)
        if ( %indizioqua != nnnn ) {
        /msg %channel �3;11,2Adesso la parola di riferimento è �2;�3;8,2[ %terza ] �F;�3;9,2 Indizio tra�2;�3;9,2 %ritardo sec.
        /timer 1 %ritardo /msg %channel �3;11,2Indizio :�2;�3;8,2 %indizioqua
        }
        else {
        /msg %channel �3;11,2Adesso la parola di riferimento è �2;�3;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 �2;�3;9,2Benissimo !�F;�3;4,2 La parola era �2;�3;8,2 %quarta �F;�3;9,2 1 �3;4,2Punto a�2;�3;8,2 %nickoide �F;�3;4,2(�3;8,2 %korn �3;4,2)
        if ( %indiziocin != nnnn ) {
        /msg %channel �3;11,2La parola di riferimento per il bersaglio è �2;�3;8,2[ %quarta ] �F;�3;9,2 Indizio tra�2;�3;9,2 %ritardo sec.
        /timer 1 %ritardo /msg %channel �3;11,2Indizio :�2;�3;8,2 %indiziocin
        }
        else {
        /msg %channel �3;11,2La parola di riferimento per il bersaglio è �2;�3;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 �2;�3;8,2[ Centro ! ] �2;�3;11,2Il bersaglio era �2;�3;8,2 %quinta �2;�3;9,2 1 �3;4,2Punto a�2;�3;8,2 %nickoide �F;�3;4,2(�3;8,2 %korn �3;4,2)
        /msg %channel �3;4,2Durata del round :�3;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 �3;
/timer 1 2 /msg %channel �3;11,2Ha dato più risposte �3;8,2(5) �3;11,2e riceve�3;8,2 2 �3;11,2punti vittoria�2;�3;8,2 %nbsu �F;�3;4,2(�3;8,2 $calc( %fortune - 4 ) �3;4,2)
/timer 1 4 /msg %channel �3;
/timer 1 4 /msg %channel �3;9,2Un giocatore con 5 risposte !!! �3;4,2S�3;8U�3;4P�3;9E�3;13R�3;7B�3;11O�3;9N�3;4U�3;8S �3;9,2di 4 punti a�2;�3;8,2 %nbsu �F;�3;4,2(�3;8 %fortune �3;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 1if ( $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 1if ( $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 1if ( $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 1if ( $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 �3;
/timer 1 2 /msg %channel �3;11,2Ha dato più risposte �3;8,2(4) �3;11,2e riceve�3;8,2 2 �3;11,2punti vittoria�2;�3;8,2 %nickdaaumento �F;�3;4,2(�3;8,2 $calc( %fortune - 2 ) �3;4,2)
/timer 1 4 /msg %channel �3;
/timer 1 4 /msg %channel �3;9,2Un giocatore con 4 risposte ! �3;7,2B�3;11O�3;9N�3;4U�3;8S �3;9,2di 2 punti a�2;�3;8,2 %nickdaaumento �F;�3;4,2(�3;8 %fortune �3;4)
}
}
if ( %escludidue != 1 && %escludiuno != 1 ) {
/set %escluditre 0
/set %aa 1
/set %bb 2
/set %cc 3if ( $gettok(%tokbonus,%aa,44) $gettok(%tokbonus,%bb,44) && $gettok(%tokbonus,%bb,44) $gettok(%tokbonus,%cc,44) ) {
/set %nickdaaumento %nbsu
/set %escluditre 1
}
/inc %cc 1if ( $gettok(%tokbonus,%aa,44) $gettok(%tokbonus,%bb,44) && $gettok(%tokbonus,%bb,44) $gettok(%tokbonus,%cc,44) ) {
/set %nickdaaumento %nbsu
/set %escluditre 1
}
/inc %cc 1if ( $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 1if ( $gettok(%tokbonus,%aa,44) $gettok(%tokbonus,%bb,44) && $gettok(%tokbonus,%bb,44) $gettok(%tokbonus,%cc,44) ) {
/set %nickdaaumento %nbsu
/set %escluditre 1
}
/inc %cc 1if ( $gettok(%tokbonus,%aa,44) $gettok(%tokbonus,%bb,44) && $gettok(%tokbonus,%bb,44) $gettok(%tokbonus,%cc,44) ) {
/set %nickdaaumento %nbsu
/set %escluditre 1
}
/inc %bb 1if ( $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 1if ( $gettok(%tokbonus,%aa,44) $gettok(%tokbonus,%bb,44) && $gettok(%tokbonus,%bb,44) $gettok(%tokbonus,%cc,44) ) {
/set %nickdaaumento %nbsd
/set %escluditre 1
}
/inc %cc 1if ( $gettok(%tokbonus,%aa,44) $gettok(%tokbonus,%bb,44) && $gettok(%tokbonus,%bb,44) $gettok(%tokbonus,%cc,44) ) {
/set %nickdaaumento %nbsd
/set %escluditre 1
}
/inc %bb 1if ( $gettok(%tokbonus,%aa,44) $gettok(%tokbonus,%bb,44) && $gettok(%tokbonus,%bb,44) $gettok(%tokbonus,%cc,44) ) {
/set %nickdaaumento %nbsd
/set %escluditre 1
}
/inc %aa 1if ( $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 �3;
/timer 1 2 /msg %channel �3;11,2Ha dato più risposte �3;8,2(3) �3;11,2e riceve�3;8,2 2 �3;11,2punti vittoria�2;�3;8,2 %nickdaaumento �F;�3;4,2(�3;8,2 %fortune �3;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 �3;
/timer 1 2 /msg %channel �3;11,2Ha dato più risposte �3;8,2(2) �3;11,2e riceve�3;8,2 2 �3;11,2punti vittoria�2;�3;8,2 %nickdaaumento �F;�3;4,2(�3;8,2 %fortune �3;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 �3;
/timer 1 2 /msg %channel �3;11,2Hanno dato più risposte �3;8,2(2) �3;11,2e ricevono�3;8,2 2 �3;11,2punti vittoria :
/timer 1 2 /msg %channel �2;�3;8,2 %nickdaaumento �F;�3;4,2(�3;8,2 %fortune �3;4,2)�2;�3;8,2 %nickdaaumentodue �F;�3;4,2(�3;8,2 %fortunedue �3;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 �3;
/timer 1 2 /msg %channel �3;11,2Hanno dato più risposte�3;8,2 (1) �3;11,2e ricevono�3;8,2 2 �3;11,2punti vittoria :
/timer 1 2 /msg %channel �2;�3;8,2 %nbsu �F;�3;4,2(�3;8,2 %fortune �3;4,2)�2;�3;8,2 %nbsd �F;�3;4,2(�3;8,2 %fortuneuno �3;4,2)�2;�3;8,2 %nbst �F;�3;4,2(�3;8,2 %fortunedue �3;4,2)
/timer 1 2 /msg %channel �2;�3;8,2 %nbsq �F;�3;4,2(�3;8,2 %fortunetre �3;4,2)�2;�3;8,2 %nbsc �F;�3;4,2(�3;8,2 %fortunequa �3;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  �2;�3;7,2[ Classifica dopo %roundmeno round ]
while ( %inocs <= %acciaio ) {
if ( $gettok(%tokennick,%inocs,44) != $null ) {
/msg %channel �3;11,2 %inocs ° posto :�3;9,2 $gettok(%tokennick,%inocs,44) �3;8,2( $gettok(%tokenpunti,%inocs,44) )
if ( %inocs == %acciaio ) { /msg %channel �3;4,2 Tempo trascorso:�3;8,2 %trasc }
}
else {
/msg %channel �3;11,2 %inocs ° posto :�3;8,2 [None]
if ( %inocs == %acciaio ) { /msg %channel �3;7,2Tempo trascorso:�3;8,2 %trasc }
}
/inc %inocs 1
}
}
else {
/notice $1 �3;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 �3;8,2 $nick , i tuoi punti attuali sono $gettok(%tokenpunti,%av,44)
/set %nientepunti 1
}
/inc %av 1
}
if ( %nientepunti != 1 ) {
/notice %nic �3;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 �3;4Bersaglio by ******Inocs****** caricato
/echo 4 -a �3;4Nello "status" informazioni utili per te !
/echo 4  �3;4Apri il gioco dal menu che trovi nei canali
/echo 4  �3;4Eccoti alcuni suggerimenti sul gioco e sulla sua conduzione :
/echo 4  �3;4Il gioco ricalca il noto "bersaglio" della settimana enigmistica
/echo 4  �3;4Ogni parola può essere legata alla precedente da queste regole :
/echo 4  �3;4- Anagramma
/echo 4  �3;4- Sinonimo o contrario
/echo 4  �3;4- Aggiunta,sottrazione o cambio lettera
/echo 4  �3;4- Associata in un detto,in una massima,metafora o per semplice associazione di idee
/echo 4  �3;4- Associata nel nome di una persona celebre o di un luogo (reale o immaginario)
/echo 4  �3;4- Associata in un libro,in una canzone, o cmq in qualsiasi componimento o opera
/echo 4  �3;4N.B.:Ti ricordo che puoi personalizzare le regole (dando opportuni indizi) ;)
/echo 4  �3;4Esiste l'obbligo di presentare cinque domande(cioè cinque parole da indovinare consecutive)
/echo 4  �3;4Gli indizi sono omissibili;resta sempre tua la possibilità di darli successivamente
/echo 4  �3;4durante le varie fasi del gioco
/echo 4  �3;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  �3;4Una volta chiuso (con la x o con "termina") il gioco puoi scaricarlo col comando : /unload -rs bersaglio.txt
/echo 4  �3;4,0******************************Buon divertimento !!*********************************
}
on 1:join:%channel: {
if ( %blocco == 10 && $nick != $me ) {
/notice $nick �3;11,2 BERSAGLIO è in funzione ! Sono stati giocati $calc( %round - 1 ) rounds
/notice $nick �3;8,2 Digita !helpbe per conoscere le caratteristiche del gioco
}if ( $nick $me && %blocco 10 ) {
/echo 2 -a Attento �2;�3;4,0 $me �F;�3;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 �3;
/msg %channel �3;7,2***** Anche questa grandissima partita è finita ! ******
/msg %channel �3;11,2Si sono giocati�3;8,2 $calc( %round - 1 ) rounds. �3;11,2Tempo complessivo:�3;8,2 %duratapartita
/set %lungh $numtok(%tokennick,44)
if ( %lungh > 0 ) {
/msg %channel �3;8,2 Vincitore/i :
/set %n $gettok(%tokennick,1,44)
/set %p $gettok(%tokenpunti,1,44)
/msg %channel �3;9,2 %n �3;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 �3;9,2 %n �3;8,2punti %p
}
/inc %varwhile 1
}
}
if ( %lungh == 0 ) {
/msg %channel �3;8,2Nessun Vincitore
}
/msg %channel �3;8,2*****�3;11,2 Bersaglio �3;8,2by Inocs �3;4,2( �3;8,2#nonsoloquiz �3;4,2)�3;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 �3;11,2Il gioco ricalca il noto "bersaglio" della settimana enigmistica
/notice $1 �3;9,2Ogni parola può essere legata alla precedente da queste regole :
/notice $1 �3;4,2- �3;8,2Anagramma
/notice $1 �3;4,2- �3;8,2Sinonimo o contrario
/notice $1 �3;4,2- �3;8,2Aggiunta,sottrazione o cambio lettera
/notice $1 �3;4,2- �3;8,2In un detto,in una massima,metafora o per semplice associazione di idee
/notice $1 �3;4,2- �3;8,2Nel nome di una persona celebre o di un luogo (reali o immaginari)
/notice $1 �3;4,2- �3;8,2In un libro,in una canzone, o cmq in qualsiasi componimento ed opera
/notice $1 �3;8,2N.B.:�3;9,2 si possono personalizzare le regole (dando opportuni indizi) :P
/notice $1 �3;11,2Comandi: �3;4,2!classifica �3;9,2!punti �3;8,2!domanda �3;9,2!indizio �3;4,2!helpbe ...�3;11,2In bocca al lupo !
}
alias mostrahelpcanale {
/msg %channel �2;�3;4,2****** I comandi sono ******
/msg %channel �3;9,2-�3;8,2!classifica�3;11,2 (mostra classifica generale)
/msg %channel �3;9,2-�3;8,2!punti�3;11,2 (mostra punti personali)
/msg %channel �3;9,2-�3;8,2!domanda�3;11,2 (mostra parola attuale di riferimento)
/msg %channel �3;9,2-�3;8,2!indizio�3;11,2 (mostra l'indizio corrente)
/msg %channel �3;9,2-�3;8,2!helpbe�3;11,2 (mostra l'aiuto in linea)
}


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


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


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


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


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


}
else {
/notice $1 �3;11,2Nessuna domanda in corso :P
}
}
alias mostraparolattuale {
if (%avviato > 0 ) {
if ( %conteggio == 0 ) {
/msg %channel �3;11,2Parola iniziale:�2;�3;8,2 %bersaglio_iniziale
}
if ( %conteggio == 1 ) {
/msg %channel �3;11,2Riferimento attuale:�2;�3;8,2 %prima
}
if ( %conteggio == 2 ) {
/msg %channel �3;11,2Riferimento attuale:�2;�3;8,2 %seconda
}
if ( %conteggio == 3 ) {
/msg %channel �3;11,2Riferimento attuale:�2;�3;8,2 %terza
}
if ( %conteggio == 4 ) {
/msg %channel �3;11,2Riferimento attuale:�2;�3;8,2 %quarta
}
}
else {
/notice $1 �3;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
}


}


 


 


 

4 réponses

cs_wims Messages postés 2466 Date d'inscription vendredi 23 juillet 2004 Statut Membre Dernière intervention 1 août 2010 1
23 janv. 2009 à 11:23
OUTCH, ça pique les yeux ton truc là.
J'ai pas vraiment compris ta demande, je sais pas si c'est un traducteur qui génère ça mais c'est pas compréhensible.
0
winni2 Messages postés 7 Date d'inscription mercredi 14 janvier 2009 Statut Membre Dernière intervention 9 février 2009
23 janv. 2009 à 17:32
bonjour, je pense qu'il est difficile d'expliquer, même xche Je ne sais pas français, mais je vais essayer:
c'est un jeu pour mirc addons appelé cible, malheureusement, vous pouvez jouer en mettant les questions et les réponses que manuellement par le panneau de la partie.
ma demande était de savoir si vous pouvez ajouter un code que tous les addons affronter les questions et les réponses automatiquement, peut-être la création d'un fichier txt (comme trivia quiz) merci: D
0
winni2 Messages postés 7 Date d'inscription mercredi 14 janvier 2009 Statut Membre Dernière intervention 9 février 2009
23 janv. 2009 à 20:50
bonjour, j'ai oublié d'expliquer le jeu. ici vous faire un exemple.
cible (roma)
indice 1 (nazione)
indice 2 (italia)
indice 3 (Lazio)
indice 4 (papa)
mot roma
grazie :D
0
cs_wims Messages postés 2466 Date d'inscription vendredi 23 juillet 2004 Statut Membre Dernière intervention 1 août 2010 1
24 janv. 2009 à 03:24
Ok, j'ai saisis un peu près ce que tu voulais faire, malheuresement, le code n'est pas vraiment bien codé et est très long...
Je n'ai pas du tout l'envie, ni le temps de modifier ce code pour l'automatisé, pourquoi ne pas utiliser wquizz directement ?
0