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
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
}
}
;**********************************************************************************************;
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
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.
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.
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
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
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
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
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
cible (roma)
indice 1 (nazione)
indice 2 (italia)
indice 3 (Lazio)
indice 4 (papa)
mot roma
grazie :D
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
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 ?
Je n'ai pas du tout l'envie, ni le temps de modifier ce code pour l'automatisé, pourquoi ne pas utiliser wquizz directement ?