aiuto giochi bersaglio

ciao, ho scaricato il classico gioco del bersaglio bello ma purtroppo non è automatico chiedevo se èra possibile creare un alias che pesca le domande e le risposte in automatico da un file txt. ho visto in una chat che lo avevano in automatico ma credo avessero modificato il classico gioco del testa coda, cmnq in un modo o nell altro spero in un vostro aiuto. vi ringrazio anticipatamente winny:D (copia bersaglio ;**********************************************************************************************; Bersaglio versione 1.0 by Inocs ;**********************************************************************************************; ; Lo script è liberamente utilizzabile e modificabile ; Per commenti,critiche e suggerimenti scrivete a : ; Buon divertimento da : INOCS ( 18/10 inossidabile... eheh ) ;**********************************************************************************************; ;Per "caricare" il file : /load -rs bersaglio.txt ;per "scaricare" il file : /unload -rs bersaglio.txt alias apri { if ( %avviato != 5 ) { if ( %blocco != 10 ) { /set %conteggio 0 /set %bloccaggio 1 /set %avviato 0 /set %channel $1 /set %controlnick 0 /set %ripetizionewhile 0 /set %round 1 /set %timerif $ctime /set %bloccauno 1 /msg %channel 8,2[4,2***8,2 Bersaglio 4,2***8,2] 11,2in funzione ! 4,2by Inocs ( 8,2#nonsoloquiz 4,2) /msg %channel 9,2Per un aiuto sulle regole del gioco digitare 8,2!helpbe 9,2nel canale /msg %channel 4,2Siete pronti ? } if ( %blocco == 10 ) { /echo 2 -a Bersaglio già avviato Per chiuderlo e azzerare la classifica clicca "termina" e riavvialo . Altrimenti puoi riprenderlo da dove lo hai lasciato :) } /set %blocco 10 dialog -m bersaglio bersaglio } elseif ( %avviato == 5 ) { dialog -m bersrunning bersrunning /echo 2 -a Bersaglio già avviato ,con domande in corso /echo 2 -a Se vuoi avviarne uno nuovo clicca "Termina" e quindi riavvialo . Altrimenti puoi riprenderlo da dove lo hai lasciato :) } } dialog bersaglio { title "Bersaglio by Inocs" size -1 -1 424 198 box "Bersaglio", 1, 5 0 414 193 text "Start (o quiz) :", 105, 8 21 66 15 text "Parola 1 :", 106, 18 43 50 15 text "Parola 2 :", 107, 18 65 50 15 text "Parola 3 :", 108, 18 87 50 15 text "Parola 4 :", 109, 18 109 50 15 text "Bersaglio :", 110, 18 131 50 15 text "Ritardo indizi :",205, 172 22 100 15 text "Sec.",350, 292 22 30 15 text "Indizio 1 :", 206, 172 44 50 15 text "Indizio 2 :", 207, 172 66 50 15 text "Indizio 3 :", 208, 172 88 50 15 text "Indizio 4 :", 209, 172 110 50 15 text "Indizio 5 :", 210, 172 132 50 15 edit "" , 111, 75 18 90 22, autohs edit "" , 112, 75 40 90 22, autohs edit "" , 113, 75 62 90 22, autohs edit "" , 114, 75 84 90 22, autohs edit "" , 115, 75 106 90 22, autohs edit "" , 116, 75 128 90 22, autohs edit "5" , 131, 253 18 24 22, read,autohs edit "" , 132, 222 40 90 22, autohs edit "" , 133, 222 62 90 22, autohs edit "" , 134, 222 84 90 22, autohs edit "" , 135, 222 106 90 22, autohs edit "" , 136, 222 128 90 22, autohs button "Avvia round", 100, 330 21 80 25, ok button "<",393,240 21 13 15 button ">",394,277 21 13 15 button "Classifica", 101, 330 54 80 25 button "Mostra comandi", 102, 330 87 80 25 button "Annulla round", 347,330 120 80 25 button "Termina", 103,270 157 100 29 text "Messaggio al chan",578,18 157 55 35 edit "" , 580, 75 159 90 25, autohs button "Invia", 546,168 160 40 24 } on 1:dialog:bersaglio:sclick:546: { /set %messchannel $did(580).text if ( $did(580) != $null ) { /msg %channel 4,2Il quizzer dice :8,2 %messchannel did -r bersaglio 580 } } on 1:dialog:bersaglio:sclick:393: { if ( $did(131) != 0 ) { /set %refuse $did(131).text /set %refuseuno $calc( %refuse - 1 ) did -r bersaglio 131 did -a bersaglio 131 %refuseuno } } on 1:dialog:bersaglio:sclick:394: { if ( $did(131) != 20 ) { /set %refuse $did(131).text /set %refuseuno $calc( %refuse + 1 ) did -r bersaglio 131 did -a bersaglio 131 %refuseuno } } on 1:dialog:bersaglio:sclick:347: { if ( %round != 1 ) { if ( %bloccauno != 0 ) { /set %tokenpunti %memoriauno /set %tokennick %memoriadue /msg %channel 8,2Round annullato ! La classifica è stata riportata alla situazione precedente /set %bloccauno 0 if ( %round == 2 ) { /set %controlnick 0 } } } } on 1:dialog:bersaglio:sclick:102: { /mostrahelpcanale } on 1:dialog:bersaglio:sclick:103: { dialog -x bersaglio /mostrarisultati } on 1:dialog:bersaglio:sclick:101: { /scriviclass } dialog bersrunning { title "Bersaglio in corso...by Inocs" size -1 -1 300 270 box "Indizio", 1, 5 0 290 95 box "Controllo",2,5 100 290 165 text "Parola", 117, 18 20 80 15 text "in corso", 118, 18 35 80 15 edit "" , 121, 75 62 120 22, autohs edit %control , 119, 75 23 120 22, read,autohs button "Mostra domanda",436, 202 23 83 22 text "Indizio :", 120, 18 65 50 15 button "Dai indizio", 100, 202 62 83 22,ok text "Parola 1 :", 106, 18 121 50 15 text "Parola 2 :", 107, 18 143 50 15 text "Parola 3 :", 108, 18 165 50 15 text "Parola 4 :", 109, 18 187 50 15 text "Bersaglio :", 110, 18 209 50 15 edit %prima , 111, 75 118 120 22, read ,autohs edit %seconda , 112, 75 140 120 22,read , autohs edit %terza , 113, 75 162 120 22, read ,autohs edit %quarta , 114, 75 184 120 22, read , autohs edit %quinta , 115, 75 206 120 22, read ,autohs button "Correggi",101, 207 118 78 20, button "Correggi",102, 207 140 78 20, button "Correggi",103, 207 162 78 20, button "Correggi",104, 207 184 78 20, button "Correggi",105, 207 206 78 20, button "Conferma",201, 207 118 78 20, hide ,disable button "Conferma",202, 207 140 78 20, hide ,disable button "Conferma",203, 207 162 78 20, hide ,disable button "Conferma",204, 207 184 78 20, hide ,disable button "Conferma",205, 207 206 78 20, hide ,disable button "Termina",345, 170 235 80 25 button "Mostra comandi",555, 50 235 80 25 } on 1:dialog:bersrunning:sclick:436: { if ( %conteggio == 0 ) { /msg %channel 11,2Parola iniziale:8,2 %bersaglio_iniziale } if ( %conteggio == 1 ) { /msg %channel 11,2Riferimento attuale:8,2 %prima } if ( %conteggio == 2 ) { /msg %channel 11,2Riferimento attuale:8,2 %seconda } if ( %conteggio == 3 ) { /msg %channel 11,2Riferimento attuale:8,2 %terza } if ( %conteggio == 4 ) { /msg %channel 11,2Riferimento attuale:8,2 %quarta } } on 1:dialog:bersrunning:sclick:555: { /mostrahelpcanale } on 1:dialog:bersrunning:sclick:345: { /mostrarisultati dialog -x bersrunning } on 1:dialog:bersrunning:sclick:101: { if ( %conteggio == 0 ) { did -n bersrunning 111 did -f bersrunning 111 did -bh bersrunning 101 did -ev bersrunning 201 /msg %channel 9,2Attenzione ! 11,2La risposta corrente sta per essere modificata . Attendere /set %bloccaggio 0 } } on 1:dialog:bersrunning:sclick:102: { if ( %conteggio <= 1 ) { did -n bersrunning 112 did -f bersrunning 112 did -bh bersrunning 102 did -ev bersrunning 202 } if ( %conteggio == 1 ) { /msg %channel 9,2Attenzione ! 11,2La risposta corrente sta per essere modificata . Attendere /set %bloccaggio 0 } elseif ( %conteggio == 0 ) { /msg %channel 11,2Attenzione ! 9,2Sta per essere modificata una risposta successiva . Attendere /set %bloccaggio 0 } } on 1:dialog:bersrunning:sclick:103: { if ( %conteggio <= 2 ) { did -n bersrunning 113 did -f bersrunning 113 did -bh bersrunning 103 did -ev bersrunning 203 } if ( %conteggio == 2 ) { /msg %channel 9,2Attenzione ! 11,2La risposta corrente sta per essere modificata . Attendere /set %bloccaggio 0 } elseif ( %conteggio <= 1 ) { /msg %channel 11,2Attenzione ! 9,2Sta per essere modificata una risposta successiva . Attendere /set %bloccaggio 0 } } on 1:dialog:bersrunning:sclick:104: { if ( %conteggio <= 3 ) { did -n bersrunning 114 did -f bersrunning 114 did -bh bersrunning 104 did -ev bersrunning 204 } if ( %conteggio == 3 ) { /msg %channel 9,2Attenzione ! 11,2La risposta corrente sta per essere modificata . Attendere /set %bloccaggio 0 } elseif ( %conteggio <= 2 ) { /msg %channel 11,2Attenzione ! 9,2Sta per essere modificata una risposta successiva . Attendere /set %bloccaggio 0 } } on 1:dialog:bersrunning:sclick:105: { if ( %conteggio <= 4 ) { did -n bersrunning 115 did -f bersrunning 115 did -bh bersrunning 105 did -ev bersrunning 205 } if ( %conteggio == 4 ) { /msg %channel 9,2Attenzione ! 11,2La risposta corrente sta per essere modificata . Attendere /set %bloccaggio 0 } elseif ( %conteggio <= 3 ) { /msg %channel 11,2Attenzione ! 9,2Sta per essere modificata una risposta successiva . Attendere /set %bloccaggio 0 } } on 1:dialog:bersrunning:sclick:201: { /set %prima $did(111).text /set %control $did(111).text did -bh bersrunning 201 did -ev bersrunning 101 did -m bersrunning 111 if ( %conteggio == 0 ) { did -r bersrunning 119 did -a bersrunning 119 %control /msg %channel 9,2Risposta corrente modificata ... si riprende /set %bloccaggio 1 } } on 1:dialog:bersrunning:sclick:202: { /set %seconda $did(112).text /set %control $did(112).text did -bh bersrunning 202 did -ev bersrunning 102 did -m bersrunning 112 if ( %conteggio == 1 ) { did -r bersrunning 119 did -a bersrunning 119 %control /msg %channel 9,2Risposta corrente modificata ... si riprende /set %bloccaggio 1 } elseif ( %conteggio < 1 ) { /msg %channel 11,2Risposta successiva modificata . La risposta attuale non è cambiata /set %bloccaggio 1 } } on 1:dialog:bersrunning:sclick:203: { /set %terza $did(113).text /set %control $did(113).text did -bh bersrunning 203 did -ev bersrunning 103 did -m bersrunning 113 if ( %conteggio == 2 ) { did -r bersrunning 119 did -a bersrunning 119 %control /msg %channel 9,2Risposta corrente modificata ... si riprende /set %bloccaggio 1 } elseif ( %conteggio < 2 ) { /msg %channel 11,2Risposta successiva modificata . La risposta attuale non è cambiata /set %bloccaggio 1 } } on 1:dialog:bersrunning:sclick:204: { /set %quarta $did(114).text /set %control $did(114).text did -bh bersrunning 204 did -ev bersrunning 104 did -m bersrunning 114 if ( %conteggio == 3 ) { did -r bersrunning 119 did -a bersrunning 119 %control /msg %channel 9,2Attenzione ! Risposta corrente modificata ... si riprende /set %bloccaggio 1 } elseif ( %conteggio < 3 ) { /msg %channel 11,2Risposta successiva modificata . La risposta attuale non è cambiata /set %bloccaggio 1 } } on 1:dialog:bersrunning:sclick:205: { /set %quinta $did(115).text /set %control $did(115).text did -bh bersrunning 205 did -ev bersrunning 105 did -m bersrunning 115 if ( %conteggio == 4 ) { did -r bersrunning 119 did -a bersrunning 119 %control /msg %channel 9,2 Risposta corrente modificata . /set %bloccaggio 1 } elseif ( %conteggio < 4 ) { /msg %channel 11,2Risposta successiva modificata . La risposta attuale non è cambiata /set %bloccaggio 1 } } on 1:dialog:bersaglio:sclick:100: { /set %timeround $ctime /set %memoriauno %tokenpunti /set %memoriadue %tokennick /set %bersaglio_iniziale $did(111).text if ( $did(112) != $null ) /inc %avviato 1 | /set %prima $did(112).text if ( $did(113) != $null ) /inc %avviato 1 | /set %seconda $did(113).text if ( $did(114) != $null ) /inc %avviato 1 | /set %terza $did(114).text if ( $did(115) != $null ) /inc %avviato 1 | /set %quarta $did(115).text if ( $did(116) != $null ) /inc %avviato 1 | /set %quinta $did(116).text /set %ritardo $did(131).text if ( $did(132) != $null ) /set %indiziouno $did(132).text else { /set %indiziouno nnnn } if ( $did(133) != $null ) /set %indiziodue $did(133).text else { /set %indiziodue nnnn } if ( $did(134) != $null ) /set %indiziotre $did(134).text else { /set %indiziotre nnnn } if ( $did(135) != $null ) /set %indizioqua $did(135).text else { /set %indizioqua nnnn } if ( $did(136) != $null ) /set %indiziocin $did(136).text else { /set %indiziocin nnnn } if ( %avviato == 5 ) { if ( %bersaglio_iniziale != $null ) { /msg %channel 8,2[ Round %round ] /msg %channel 11,2Dovete indovinare8,2 %avviato parole11,2 per raggiungere il bersaglio ! /msg %channel 9,2Ogni risposta vale8,2 1 9,2punto 4,2Il vincitore del round guadagna8,2 2 4,2punti if ( %indiziouno != nnnn ) { /msg %channel 11,2La parola ( o il quiz ) di partenza è : 8,2[ %bersaglio_iniziale ] 9,2 Indizio tra9,2 %ritardo sec. timer 1 %ritardo /msg %channel 11,2Indizio :8,2 %indiziouno } else { /msg %channel 11,2La parola ( o il quiz ) di partenza è : 8,2[ %bersaglio_iniziale ] } /set %control %prima /set %conteggio 0 dialog -m bersrunning bersrunning } } if ( %avviato != 5 ) { dialog -m controllo controllo /set %avviato 0 } if ( %bersaglio_iniziale == $null ) { dialog -m controllo controllo /set %avviato 0 } } dialog controllo { title "Bersaglio" size -1 -1 200 88 box "Attenzione !", 102,5 0 190 84 text "Devi completare almeno tutti i campi della prima colonna!", 100,30 18 150 30 button "OK", 101,56 52 80 24, ok } on 1:dialog:controllo:sclick:101: { dialog -m bersaglio bersaglio } on 1:dialog:bersrunning:sclick:100: { /set %indizio $did(121).text if ( %indizio != $null ) { /msg %channel 11,2Indizio :8,2 %indizio } dialog -x bersrunning | dialog -m bersrunning bersrunning } alias solvi { if ( %bloccaggio == 1 ) { /set %nickoide $1 /set %riferisci 0 /set %avanz 1 /set %complessiv $numtok(%tokennick,44) while ( %avanz <= %complessiv ) { if ( $gettok(%tokennick,%avanz,44) == %nickoide ) { /set %korn $gettok(%tokenpunti,%avanz,44) /inc %korn 1 /set %riferisci 1 } /inc %avanz 1 } if ( %riferisci != 1 ) { /set %korn 1 } /set %parola $2 if ( %conteggio == 0 ) { if ( %parola == prima ) { /timer* off /set %nbsu %nickoide /punteggio %nickoide /inc %conteggio 1 /msg %channel 9,2Benissimo !4,2 La parola era 8,2 %prima 9,2 1 4,2Punto a8,2 %nickoide 4,2(8,2 %korn 4,2) if ( %indiziodue != nnnn ) { /msg %channel 11,2Adesso la parola di riferimento è 8,2[ %prima ] 9,2Indizio tra9,2 %ritardo sec. /timer 1 %ritardo /msg %channel 11,2Indizio :8,2 %indiziodue } else { /msg %channel 11,2Adesso la parola di riferimento è 8,2[ %prima ] } /set %control %seconda dialog -x bersrunning | dialog -m bersrunning bersrunning } } elseif ( %conteggio == 1 ) { if ( %parola == seconda ) { /timer* off /set %nbsd %nickoide /punteggio %nickoide /inc %conteggio 1 /msg %channel 9,2Benissimo !4,2 La parola era 8,2 %seconda 9,2 1 4,2Punto a8,2 %nickoide 4,2(8,2 %korn 4,2) if ( %indiziotre != nnnn ) { /msg %channel 11,2Adesso la parola di riferimento è 8,2[ %seconda ] 9,2 Indizio tra9,2 %ritardo sec. /timer 1 %ritardo /msg %channel 11,2Indizio :8,2 %indiziotre } else { /msg %channel 11,2Adesso la parola di riferimento è 8,2[ %seconda ] } /set %control %terza dialog -x bersrunning | dialog -m bersrunning bersrunning } } elseif ( %conteggio == 2 ) { if ( %parola == terza ) { /timer* off /set %nbst %nickoide /punteggio %nickoide /inc %conteggio 1 /msg %channel 9,2Benissimo !4,2 La parola era 8,2 %terza 9,2 1 4,2Punto a8,2 %nickoide 4,2(8,2 %korn 4,2) if ( %indizioqua != nnnn ) { /msg %channel 11,2Adesso la parola di riferimento è 8,2[ %terza ] 9,2 Indizio tra9,2 %ritardo sec. /timer 1 %ritardo /msg %channel 11,2Indizio :8,2 %indizioqua } else { /msg %channel 11,2Adesso la parola di riferimento è 8,2[ %terza ] } /set %control %quarta dialog -x bersrunning | dialog -m bersrunning bersrunning } } elseif ( %conteggio == 3 ) { if ( %parola == quarta ) { /timer* off /set %nbsq %nickoide /punteggio %nickoide /inc %conteggio 1 /msg %channel 9,2Benissimo !4,2 La parola era 8,2 %quarta 9,2 1 4,2Punto a8,2 %nickoide 4,2(8,2 %korn 4,2) if ( %indiziocin != nnnn ) { /msg %channel 11,2La parola di riferimento per il bersaglio è 8,2[ %quarta ] 9,2 Indizio tra9,2 %ritardo sec. /timer 1 %ritardo /msg %channel 11,2Indizio :8,2 %indiziocin } else { /msg %channel 11,2La parola di riferimento per il bersaglio è 8,2[ %quarta ] } /set %control %quinta dialog -x bersrunning | dialog -m bersrunning bersrunning } } elseif ( %conteggio == 4 ) { if ( %parola == quinta ) { /timer* off /set %avviato 0 /inc %round 1 /set %bloccauno 1 /set %nbsc %nickoide /punteggio %nickoide /set %timerounduno $ctime /set %durataround $duration( $calc( %timerounduno - %timeround ) ) /inc %conteggio 1 /msg %channel 8,2[ Centro ! ] 11,2Il bersaglio era 8,2 %quinta 9,2 1 4,2Punto a8,2 %nickoide 4,2(8,2 %korn 4,2) /msg %channel 4,2Durata del round :8,2 %durataround dialog -x bersrunning dialog -m bersaglio bersaglio did -r bersaglio 131 did -a bersaglio 131 %ritardo /set %prima /set %seconda /set %terza /set %quarta /set %quinta } } } } alias punteggio { /set %bloccaggio 0 /set %nickpunteggio $1 if ( %controlnick != 0 ) { /set %aumento 1 /set %iscritti $numtok(%tokennick,44) while ( %aumento <= %iscritti ) { /set %controparte $gettok(%tokennick,%aumento,44) if ( %nickpunteggio == %controparte ) { /set %riportopunteggio $gettok(%tokenpunti,%aumento,44) /inc %riportopunteggio 1 /set %tokenpunti $puttok(%tokenpunti,%riportopunteggio,%aumento,44) /break } if ( %nickpunteggio != %controparte ) { /inc %aumento 1 } if ( %aumento > %iscritti ) { /set %tokenpunti $instok(%tokenpunti,1,%aumento,44) /set %tokennick $instok(%tokennick,%nickpunteggio,%aumento,44) } } } if ( %controlnick == 0 ) { /set %controlnick 1 /set %tokennick %nickpunteggio /set %tokenpunti 1 } if ( %avviato == 0 ) { /set %tokbonus %nbsu /set %tokbonus $instok(%tokbonus,%nbsd,2,44) /set %tokbonus $instok(%tokbonus,%nbst,3,44) /set %tokbonus $instok(%tokbonus,%nbsq,4,44) /set %tokbonus $instok(%tokbonus,%nbsc,5,44) if ( %nbsu == %nbsd && %nbsd == %nbst && %nbst == %nbsq && %nbsq == %nbsc ) { /set %varwhile 1 /set %ragg $numtok(%tokennick,44) while ( %varwhile <= %ragg ) { if ( %nbsu == $gettok(%tokennick,%varwhile,44) ) { /set %sconi $gettok(%tokenpunti,%varwhile,44) /inc %sconi 6 /set %tokenpunti $puttok(%tokenpunti,%sconi,%varwhile,44) /set %fortune $gettok(%tokenpunti,%varwhile,44) } /inc %varwhile 1 } /timer 1 2 /msg %channel  /timer 1 2 /msg %channel 11,2Ha dato più risposte 8,2(5) 11,2e riceve8,2 2 11,2punti vittoria8,2 %nbsu 4,2(8,2 $calc( %fortune - 4 ) 4,2) /timer 1 4 /msg %channel  /timer 1 4 /msg %channel 9,2Un giocatore con 5 risposte !!! 4,2S8U4P9E13R7B11O9N4U8S 9,2di 4 punti a8,2 %nbsu 4,2(8 %fortune 4) /set %escludiuno 1 } else { /set %escludiuno 0 } if ( %escludiuno != 1 ) { /set %aa 1 /set %bb 2 /set %cc 3 /set %dd 4 /set %escludidue 0 while ( %aa < 2 ) { while ( %bb < 3 ) { while ( %cc < 4 ) { while ( %dd < 5 ) { if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) && $gettok(%tokbonus,%bb,44) == $gettok(%tokbonus,%cc,44) && $gettok(%tokbonus,%cc,44) == $gettok(%tokbonus,%dd,44) ) { /set %nickdaaumento %nbsu /set %escludidue 1 } /inc %dd 1 if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) && $gettok(%tokbonus,%bb,44) == $gettok(%tokbonus,%cc,44) && $gettok(%tokbonus,%cc,44) == $gettok(%tokbonus,%dd,44) ) { /set %nickdaaumento %nbsu /set %escludidue 1 } } /inc %cc 1 if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) && $gettok(%tokbonus,%bb,44) == $gettok(%tokbonus,%cc,44) && $gettok(%tokbonus,%cc,44) == $gettok(%tokbonus,%dd,44) ) { /set %nickdaaumento %nbsu /set %escludidue 1 } } /inc %bb 1 if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) && $gettok(%tokbonus,%bb,44) == $gettok(%tokbonus,%cc,44) && $gettok(%tokbonus,%cc,44) == $gettok(%tokbonus,%dd,44) ) { /set %nickdaaumento %nbsu /set %escludidue 1 } } /inc %aa 1 if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) && $gettok(%tokbonus,%bb,44) == $gettok(%tokbonus,%cc,44) && $gettok(%tokbonus,%cc,44) == $gettok(%tokbonus,%dd,44) ) { /set %nickdaaumento %nbsd /set %escludidue 1 } } if ( %escludidue == 1 ) { /set %varwhile 1 /set %ragg $numtok(%tokennick,44) while ( %varwhile <= %ragg ) { if ( %nickdaaumento == $gettok(%tokennick,%varwhile,44) ) { /set %sconi $gettok(%tokenpunti,%varwhile,44) /inc %sconi 4 /set %tokenpunti $puttok(%tokenpunti,%sconi,%varwhile,44) /set %fortune $gettok(%tokenpunti,%varwhile,44) } /inc %varwhile 1 } /timer 1 2 /msg %channel  /timer 1 2 /msg %channel 11,2Ha dato più risposte 8,2(4) 11,2e riceve8,2 2 11,2punti vittoria8,2 %nickdaaumento 4,2(8,2 $calc( %fortune - 2 ) 4,2) /timer 1 4 /msg %channel  /timer 1 4 /msg %channel 9,2Un giocatore con 4 risposte ! 7,2B11O9N4U8S 9,2di 2 punti a8,2 %nickdaaumento 4,2(8 %fortune 4) } } if ( %escludidue != 1 && %escludiuno != 1 ) { /set %escluditre 0 /set %aa 1 /set %bb 2 /set %cc 3 if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) && $gettok(%tokbonus,%bb,44) == $gettok(%tokbonus,%cc,44) ) { /set %nickdaaumento %nbsu /set %escluditre 1 } /inc %cc 1 if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) && $gettok(%tokbonus,%bb,44) == $gettok(%tokbonus,%cc,44) ) { /set %nickdaaumento %nbsu /set %escluditre 1 } /inc %cc 1 if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) && $gettok(%tokbonus,%bb,44) == $gettok(%tokbonus,%cc,44) ) { /set %nickdaaumento %nbsu /set %escluditre 1 } /inc %bb 1 /dec %cc 1 if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) && $gettok(%tokbonus,%bb,44) == $gettok(%tokbonus,%cc,44) ) { /set %nickdaaumento %nbsu /set %escluditre 1 } /inc %cc 1 if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) && $gettok(%tokbonus,%bb,44) == $gettok(%tokbonus,%cc,44) ) { /set %nickdaaumento %nbsu /set %escluditre 1 } /inc %bb 1 if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) && $gettok(%tokbonus,%bb,44) == $gettok(%tokbonus,%cc,44) ) { /set %nickdaaumento %nbsu /set %escluditre 1 } /inc %aa 1 /dec %bb 1 /dec %cc 1 if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) && $gettok(%tokbonus,%bb,44) == $gettok(%tokbonus,%cc,44) ) { /set %nickdaaumento %nbsd /set %escluditre 1 } /inc %cc 1 if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) && $gettok(%tokbonus,%bb,44) == $gettok(%tokbonus,%cc,44) ) { /set %nickdaaumento %nbsd /set %escluditre 1 } /inc %bb 1 if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) && $gettok(%tokbonus,%bb,44) == $gettok(%tokbonus,%cc,44) ) { /set %nickdaaumento %nbsd /set %escluditre 1 } /inc %aa 1 if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) && $gettok(%tokbonus,%bb,44) == $gettok(%tokbonus,%cc,44) ) { /set %nickdaaumento %nbst /set %escluditre 1 } if ( %escluditre == 1 ) { /set %varwhile 1 /set %ragg $numtok(%tokennick,44) while ( %varwhile <= %ragg ) { if ( %nickdaaumento == $gettok(%tokennick,%varwhile,44) ) { /set %sconi $gettok(%tokenpunti,%varwhile,44) /inc %sconi 2 /set %tokenpunti $puttok(%tokenpunti,%sconi,%varwhile,44) /set %fortune $gettok(%tokenpunti,%varwhile,44) } /inc %varwhile 1 } /timer 1 2 /msg %channel  /timer 1 2 /msg %channel 11,2Ha dato più risposte 8,2(3) 11,2e riceve8,2 2 11,2punti vittoria8,2 %nickdaaumento 4,2(8,2 %fortune 4,2) } } if ( %escludiuno != 1 && %escludidue != 1 && %escluditre != 1 ) { /set %escludiqua 0 /set %aa 1 /set %bb 2 /set %bluno 0 /set %bldue 0 /set %bltre 0 /set %blqua 0 /set %blcin 0 /set %blsei 0 /set %blset 0 /set %blott 0 /set %blnov 0 /set %nickgiausato 0 if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) ) { /set %nickdaaumento %nbsu /set %escludiqua 1 /set %bluno 1 /set %nickgiausato 1 } /inc %bb 1 if ( %bluno != 1 ) { if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) ) { /set %nickdaaumento %nbsu /set %escludiqua 1 /set %bldue 1 /set %nickgiausato 1 } } /inc %bb 1 if ( %bluno != 1 ) { if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) ) { /set %nickdaaumento %nbsu /set %escludiqua 1 /set %bltre 1 /set %nickgiausato 1 } } /inc %bb 1 if ( %bluno != 1 ) { if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) ) { /set %nickdaaumento %nbsu /set %escludiqua 1 /set %blqua 1 /set %nickgiausato 1 } } /inc %aa 1 /dec %bb 2 if ( %bluno != 1 && %bldue != 1 ) { if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) ) { if ( %nickgiausato == 1 ) { /set %nickdaaumentodue %nbsd | /set %nickgiausato 2 } if ( %nickgiausato == 0 ) { /set %nickdaaumento %nbsd | /set %nickgiausato 1 } /set %escludiqua 1 /set %blcin 1 } } /inc %bb 1 if ( %bluno != 1 && %bltre != 1 && %blcin != 1 ) { if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) ) { if ( %nickgiausato == 1 ) { /set %nickdaaumentodue %nbsd | /set %nickgiausato 2 } if ( %nickgiausato == 0 ) { /set %nickdaaumento %nbsd | /set %nickgiausato 1 } /set %escludiqua 1 /set %blsei 1 } } /inc %bb 1 if ( %bluno != 1 && %blqua != 1 && %blcin != 1 && %blsei != 1 ) { if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) ) { if ( %nickgiausato == 1 ) { /set %nickdaaumentodue %nbsd | /set %nickgiausato 2 } if ( %nickgiausato == 0 ) { /set %nickdaaumento %nbsd | /set %nickgiausato 1 } /set %escludiqua 1 /set %blset 1 } } /inc %aa 1 /dec %bb 1 if ( %bldue != 1 && %bltre != 1 && %blcin != 1 && %blsei != 1 ) { if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) ) { if ( %nickgiausato == 1 ) { /set %nickdaaumentodue %nbst | /set %nickgiausato 2 } if ( %nickgiausato == 0 ) { /set %nickdaaumento %nbst | /set %nickgiausato 1 } /set %escludiqua 1 /set %blott 1 } } /inc %bb 1 if ( %bldue != 1 && %blqua != 1 && %blcin != 1 && %blset != 1 && %blott != 1 ) { if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) ) { if ( %nickgiausato == 1 ) { /set %nickdaaumentodue %nbst | /set %nickgiausato 2 } if ( %nickgiausato == 0 ) { /set %nickdaaumento %nbst | /set %nickgiausato 1 } /set %escludiqua 1 /set %blnov 1 } } /inc %aa 1 if ( %bltre != 1 && %blqua != 1 && %blsei != 1 && %blset != 1 && %blott != 1 && %blnov != 1 ) { if ( $gettok(%tokbonus,%aa,44) == $gettok(%tokbonus,%bb,44) ) { if ( %nickgiausato == 1 ) { /set %nickdaaumentodue %nbsq | /set %nickgiausato 2 } if ( %nickgiausato == 0 ) { /set %nickdaaumento %nbsq | /set %nickgiausato 1 } /set %escludiqua 1 } } if ( %escludiqua != 0 ) { if ( %nickgiausato == 1 ) { /set %varwhile 1 /set %ragg $numtok(%tokennick,44) while ( %varwhile <= %ragg ) { if ( %nickdaaumento == $gettok(%tokennick,%varwhile,44) ) { /set %sconi $gettok(%tokenpunti,%varwhile,44) /inc %sconi 2 /set %tokenpunti $puttok(%tokenpunti,%sconi,%varwhile,44) /set %fortune $gettok(%tokenpunti,%varwhile,44) } /inc %varwhile 1 } /timer 1 2 /msg %channel  /timer 1 2 /msg %channel 11,2Ha dato più risposte 8,2(2) 11,2e riceve8,2 2 11,2punti vittoria8,2 %nickdaaumento 4,2(8,2 %fortune 4,2) } if ( %nickgiausato == 2 ) { /set %varwhile 1 /set %ragg $numtok(%tokennick,44) while ( %varwhile <= %ragg ) { if ( %nickdaaumento == $gettok(%tokennick,%varwhile,44) ) { /set %sconi $gettok(%tokenpunti,%varwhile,44) /inc %sconi 2 /set %tokenpunti $puttok(%tokenpunti,%sconi,%varwhile,44) /set %fortune $gettok(%tokenpunti,%varwhile,44) } if ( %nickdaaumentodue == $gettok(%tokennick,%varwhile,44) ) { /set %sconi $gettok(%tokenpunti,%varwhile,44) /inc %sconi 2 /set %tokenpunti $puttok(%tokenpunti,%sconi,%varwhile,44) /set %fortunedue $gettok(%tokenpunti,%varwhile,44) } /inc %varwhile 1 } /timer 1 2 /msg %channel  /timer 1 2 /msg %channel 11,2Hanno dato più risposte 8,2(2) 11,2e ricevono8,2 2 11,2punti vittoria : /timer 1 2 /msg %channel 8,2 %nickdaaumento 4,2(8,2 %fortune 4,2)8,2 %nickdaaumentodue 4,2(8,2 %fortunedue 4,2) } } } if ( %escludiuno != 1 && %escludidue != 1 && %escluditre != 1 && %escludiqua != 1 ) { /set %varwhile 1 /set %ragg $numtok(%tokennick,44) while ( %varwhile <= %ragg ) { if ( %nbsu == $gettok(%tokennick,%varwhile,44) ) { /set %sconi $gettok(%tokenpunti,%varwhile,44) /inc %sconi 2 /set %tokenpunti $puttok(%tokenpunti,%sconi,%varwhile,44) /set %fortune $gettok(%tokenpunti,%varwhile,44) } if ( %nbsd == $gettok(%tokennick,%varwhile,44) ) { /set %sconi $gettok(%tokenpunti,%varwhile,44) /inc %sconi 2 /set %tokenpunti $puttok(%tokenpunti,%sconi,%varwhile,44) /set %fortuneuno $gettok(%tokenpunti,%varwhile,44) } if ( %nbst == $gettok(%tokennick,%varwhile,44) ) { /set %sconi $gettok(%tokenpunti,%varwhile,44) /inc %sconi 2 /set %tokenpunti $puttok(%tokenpunti,%sconi,%varwhile,44) /set %fortunedue $gettok(%tokenpunti,%varwhile,44) } if ( %nbsq == $gettok(%tokennick,%varwhile,44) ) { /set %sconi $gettok(%tokenpunti,%varwhile,44) /inc %sconi 2 /set %tokenpunti $puttok(%tokenpunti,%sconi,%varwhile,44) /set %fortunetre $gettok(%tokenpunti,%varwhile,44) } if ( %nbsc == $gettok(%tokennick,%varwhile,44) ) { /set %sconi $gettok(%tokenpunti,%varwhile,44) /inc %sconi 2 /set %tokenpunti $puttok(%tokenpunti,%sconi,%varwhile,44) /set %fortunequa $gettok(%tokenpunti,%varwhile,44) } /inc %varwhile 1 } /timer 1 2 /msg %channel  /timer 1 2 /msg %channel 11,2Hanno dato più risposte8,2 (1) 11,2e ricevono8,2 2 11,2punti vittoria : /timer 1 2 /msg %channel 8,2 %nbsu 4,2(8,2 %fortune 4,2)8,2 %nbsd 4,2(8,2 %fortuneuno 4,2)8,2 %nbst 4,2(8,2 %fortunedue 4,2) /timer 1 2 /msg %channel 8,2 %nbsq 4,2(8,2 %fortunetre 4,2)8,2 %nbsc 4,2(8,2 %fortunequa 4,2) } } /ordinaclassifica } alias ordinaclassifica { /set %totale $numtok(%tokennick,44) /set %incrementativa 1 while ( %incrementativa < %totale ) { /set %increm %incrementativa /inc %increm 1 /set %puntiattuali $gettok(%tokenpunti,%incrementativa,44) /set %puntisuccessivi $gettok(%tokenpunti,%increm,44) /set %nickattuale $gettok(%tokennick,%incrementativa,44) /set %nicksuccessivo $gettok(%tokennick,%increm,44) if ( %puntiattuali < %puntisuccessivi ) { /set %tokennick $puttok(%tokennick,%nicksuccessivo,%incrementativa,44) /set %tokennick $puttok(%tokennick,%nickattuale,%increm,44) /set %tokenpunti $puttok(%tokenpunti,%puntisuccessivi,%incrementativa,44) /set %tokenpunti $puttok(%tokenpunti,%puntiattuali,%increm,44) /set %ripetizionewhile 1 } /inc %incrementativa 1 } if ( %ripetizionewhile == 1 ) { /set %ripetizionewhile 0 /ordinaclassificadue } if ( %ripetizionewhile == 0 ) { /timer 1 0.5 /set %bloccaggio 1 } } alias ordinaclassificadue { /set %totale $numtok(%tokennick,44) /set %incrementativa 1 while ( %incrementativa < %totale ) { /set %increm %incrementativa /inc %increm 1 /set %puntiattuali $gettok(%tokenpunti,%incrementativa,44) /set %puntisuccessivi $gettok(%tokenpunti,%increm,44) /set %nickattuale $gettok(%tokennick,%incrementativa,44) /set %nicksuccessivo $gettok(%tokennick,%increm,44) if ( %puntiattuali < %puntisuccessivi ) { /set %tokennick $puttok(%tokennick,%nicksuccessivo,%incrementativa,44) /set %tokennick $puttok(%tokennick,%nickattuale,%increm,44) /set %tokenpunti $puttok(%tokenpunti,%puntisuccessivi,%incrementativa,44) /set %tokenpunti $puttok(%tokenpunti,%puntiattuali,%increm,44) /set %ripetizionewhile 1 } /inc %incrementativa 1 } if ( %ripetizionewhile == 1 ) { /set %ripetizionewhile 0 /ordinaclassifica } if ( %ripetizionewhile == 0 ) { /timer 1 0.5 /set %bloccaggio 1 } } alias scriviclass { if ( %avviato == 0 ) { /set %inocs 1 /set %acciaio 5 /set %attualtime $ctime /set %trasc $duration( $calc( %attualtime - %timerif ) ) /set %roundmeno $calc( %round - 1 ) /msg %channel 7,2[ Classifica dopo %roundmeno round ] while ( %inocs <= %acciaio ) { if ( $gettok(%tokennick,%inocs,44) != $null ) { /msg %channel 11,2 %inocs ° posto :9,2 $gettok(%tokennick,%inocs,44) 8,2( $gettok(%tokenpunti,%inocs,44) ) if ( %inocs == %acciaio ) { /msg %channel 4,2 Tempo trascorso:8,2 %trasc } } else { /msg %channel 11,2 %inocs ° posto :8,2 [None] if ( %inocs == %acciaio ) { /msg %channel 7,2Tempo trascorso:8,2 %trasc } } /inc %inocs 1 } } else { /notice $1 11,2Round in corso $nick ! Attendi la fine per scorrere la classifica :) } } alias daipuntiindividuali { /set %nic $1 /set %luk $numtok(%tokennick,44) /set %av 1 while ( %av <= %luk ) { if ( $gettok(%tokennick,%av,44) == %nic ) { /notice %nic 8,2 $nick , i tuoi punti attuali sono $gettok(%tokenpunti,%av,44) /set %nientepunti 1 } /inc %av 1 } if ( %nientepunti != 1 ) { /notice %nic 8,2 $nick , attualmente non sei ancora in classifica :) } /set %nientepunti 0 } on 1:TEXT:%prima:%channel: if ( %conteggio == 0 ) { /solvi $nick prima } on 1:TEXT:%seconda:%channel: if ( %conteggio == 1 ) { /solvi $nick seconda } on 1:TEXT:%terza:%channel: if ( %conteggio == 2 ) { /solvi $nick terza } on 1:TEXT:%quarta:%channel: if ( %conteggio == 3 ) { /solvi $nick quarta } on 1:TEXT:%quinta:%channel: if ( %conteggio == 4 ) { /solvi $nick quinta } on 1:text:!classifica:%channel: if ( %blocco == 10 ) { /scriviclass $nick } on 1:text:!punti:%channel: if ( %blocco == 10 ) { /daipuntiindividuali $nick } on 1:text:!helpbe:%channel: if ( %blocco == 10 ) { /mostrahelp $nick } on 1:text:!indizio:%channel: if ( %blocco == 10 ) { /mostraindizio $nick } on 1:text:!domanda:%channel: if ( %blocco == 10 ) { /mostraparolattuale $nick } on 1:Nick: { /corregginick $newnick $nick } on 1:load: { /echo 4 -a 4Bersaglio by ******Inocs****** caricato /echo 4 -a 4Nello "status" informazioni utili per te ! /echo 4 4Apri il gioco dal menu che trovi nei canali /echo 4 4Eccoti alcuni suggerimenti sul gioco e sulla sua conduzione : /echo 4 4Il gioco ricalca il noto "bersaglio" della settimana enigmistica /echo 4 4Ogni parola può essere legata alla precedente da queste regole : /echo 4 4- Anagramma /echo 4 4- Sinonimo o contrario /echo 4 4- Aggiunta,sottrazione o cambio lettera /echo 4 4- Associata in un detto,in una massima,metafora o per semplice associazione di idee /echo 4 4- Associata nel nome di una persona celebre o di un luogo (reale o immaginario) /echo 4 4- Associata in un libro,in una canzone, o cmq in qualsiasi componimento o opera /echo 4 4N.B.:Ti ricordo che puoi personalizzare le regole (dando opportuni indizi) ;) /echo 4 4Esiste l'obbligo di presentare cinque domande(cioè cinque parole da indovinare consecutive) /echo 4 4Gli indizi sono omissibili;resta sempre tua la possibilità di darli successivamente /echo 4 4durante le varie fasi del gioco /echo 4 4Ti ricordo infine di chiudere sempre il gioco con i pulsanti "Termina" e non con la x di chiusura del dialog se vuoi trovare tutto azzerato in una futura partita(nel caso accadesse basta chiuderlo nella successiva sessione scaricando la classifica, oppure se vuoi puoi non "terminarlo" e mantenere la stessa classifica per una futura ripresa del gioco ! ) /echo 4 4Una volta chiuso (con la x o con "termina") il gioco puoi scaricarlo col comando : /unload -rs bersaglio.txt /echo 4 4,0******************************Buon divertimento !!********************************* } on 1:join:%channel: { if ( %blocco == 10 && $nick != $me ) { /notice $nick 11,2 BERSAGLIO è in funzione ! Sono stati giocati $calc( %round - 1 ) rounds /notice $nick 8,2 Digita !helpbe per conoscere le caratteristiche del gioco } if ( $nick == $me && %blocco == 10 ) { /echo 2 -a Attento 4,0 $me 2,0 ,su questo canale è avviato il gioco "bersaglio" gestito da te ! /echo 2 -a Se non lo chiudi la classifica resterà quella della partita precedente /echo 2 -a Per chiudere il gioco e resettarlo avvia il dialog e clicca "Termina" /echo 2 -a Altrimenti avvialo senza "terminarlo" e riprendi da dove lo hai lasciato } } menu channel { Bersaglio by Inocs .Avvia: /apri $chan } alias mostrarisultati { /timer* off /set %timerifdue $ctime /set %duratapartita $duration( $calc( %timerifdue - %timerif ) ) /msg %channel  /msg %channel 7,2***** Anche questa grandissima partita è finita ! ****** /msg %channel 11,2Si sono giocati8,2 $calc( %round - 1 ) rounds. 11,2Tempo complessivo:8,2 %duratapartita /set %lungh $numtok(%tokennick,44) if ( %lungh > 0 ) { /msg %channel 8,2 Vincitore/i : /set %n $gettok(%tokennick,1,44) /set %p $gettok(%tokenpunti,1,44) /msg %channel 9,2 %n 8,2punti %p /set %varwhile 2 while ( %varwhile <= %lungh ) { if ( $gettok(%tokenpunti,1,44) == $gettok(%tokenpunti,%varwhile,44) ) { /set %n $gettok(%tokennick,%varwhile,44) /set %p $gettok(%tokenpunti,%varwhile,44) /msg %channel 9,2 %n 8,2punti %p } /inc %varwhile 1 } } if ( %lungh == 0 ) { /msg %channel 8,2Nessun Vincitore } /msg %channel 8,2*****11,2 Bersaglio 8,2by Inocs 4,2( 8,2#nonsoloquiz 4,2)8,2 ***** /set %blocco 0 /set %avviato 0 /set %conteggio 0 /set %bloccaggio 0 /set %controlnick 0 /set %round 0 /set %tokenpunti /set %tokennick /set %Prima /set %seconda /set %terza /set %quarta /set %quinta } alias mostrahelp { /notice $1 11,2Il gioco ricalca il noto "bersaglio" della settimana enigmistica /notice $1 9,2Ogni parola può essere legata alla precedente da queste regole : /notice $1 4,2- 8,2Anagramma /notice $1 4,2- 8,2Sinonimo o contrario /notice $1 4,2- 8,2Aggiunta,sottrazione o cambio lettera /notice $1 4,2- 8,2In un detto,in una massima,metafora o per semplice associazione di idee /notice $1 4,2- 8,2Nel nome di una persona celebre o di un luogo (reali o immaginari) /notice $1 4,2- 8,2In un libro,in una canzone, o cmq in qualsiasi componimento ed opera /notice $1 8,2N.B.:9,2 si possono personalizzare le regole (dando opportuni indizi) :P /notice $1 11,2Comandi: 4,2!classifica 9,2!punti 8,2!domanda 9,2!indizio 4,2!helpbe ...11,2In bocca al lupo ! } alias mostrahelpcanale { /msg %channel 4,2****** I comandi sono ****** /msg %channel 9,2-8,2!classifica11,2 (mostra classifica generale) /msg %channel 9,2-8,2!punti11,2 (mostra punti personali) /msg %channel 9,2-8,2!domanda11,2 (mostra parola attuale di riferimento) /msg %channel 9,2-8,2!indizio11,2 (mostra l'indizio corrente) /msg %channel 9,2-8,2!helpbe11,2 (mostra l'aiuto in linea) } alias mostraindizio { if (%avviato > 0 ) { if ( %conteggio == 0 && %indiziouno != nnnn ) { /notice $1 9,2Tra %ritardo secondi giungerà l'indizio sul canale :) timer 1 %ritardo /msg %channel 11,2Indizio :8,2 %indiziouno } if ( %indiziouno == nnnn && %conteggio == 0 ) { /notice $1 9,2 Nessun indizio predefinito dal quizzer :) } if ( %conteggio == 1 && %indiziodue != nnnn ) { /notice $1 9,2Tra %ritardo secondi giungerà l'indizio sul canale :) timer 1 %ritardo /msg %channel 11,2Indizio :8,2 %indiziodue } if ( %indiziodue == nnnn && %conteggio == 1 ) { /notice $1 9,2 Nessun indizio predefinito dal quizzer :) } if ( %conteggio == 2 && %indiziotre != nnnn ) { /notice $1 9,2Tra %ritardo secondi giungerà l'indizio sul canale :) timer 1 %ritardo /msg %channel 11,2Indizio :8,2 %indiziotre } if ( %indiziotre == nnnn && %conteggio == 2 ) { /notice $1 9,2 Nessun indizio predefinito dal quizzer :) } if ( %conteggio == 3 && %indizioqua != nnnn ) { /notice $1 9,2Tra %ritardo secondi giungerà l'indizio sul canale :) timer 1 %ritardo /msg %channel 11,2Indizio :8,2 %indizioqua } if ( %indizioqua == nnnn && %conteggio == 3 ) { /notice $1 9,2 Nessun indizio predefinito dal quizzer :) } if ( %conteggio == 4 && %indiziocin != nnnn ) { /notice $1 9,2Tra %ritardo secondi giungerà l'indizio sul canale :) timer 1 %ritardo /msg %channel 11,2Indizio :8,2 %indiziocin } if ( %indiziocin == nnnn && %conteggio == 4 ) { /notice $1 9,2 Nessun indizio predefinito dal quizzer :) } } else { /notice $1 11,2Nessuna domanda in corso :P } } alias mostraparolattuale { if (%avviato > 0 ) { if ( %conteggio == 0 ) { /msg %channel 11,2Parola iniziale:8,2 %bersaglio_iniziale } if ( %conteggio == 1 ) { /msg %channel 11,2Riferimento attuale:8,2 %prima } if ( %conteggio == 2 ) { /msg %channel 11,2Riferimento attuale:8,2 %seconda } if ( %conteggio == 3 ) { /msg %channel 11,2Riferimento attuale:8,2 %terza } if ( %conteggio == 4 ) { /msg %channel 11,2Riferimento attuale:8,2 %quarta } } else { /notice $1 8,2Nessuna domanda in corso :P } } alias corregginick { /set %basta $numtok(%tokennick,44) /set %stanco 1 while ( %stanco <= %basta ) { if ( $2 == $gettok(%tokennick,%stanco,44) ) { /set %tokennick $puttok(%tokennick,$newnick,%stanco,44) } /inc %stanco 1 } }

Sicuramente si può fare, appena ho un po' di tempo provo a vedere P.S. Per evitare casini con il codice, quando incollate il codice mettetelo tra [.CODE] e [./CODE], senza puntini (o usate il pulsante in alto) :p

... be', io mi accodo anche qui perché, nel caso riusciste a fare o trovare un gioco del bersaglio automatico, m'interesserebbe anche parecchio :) nel caso ci fossero novità in tal senso spero di poterle leggere qui sul forum. Sempre con il mio grazie di cuore che non manca mai Laura

Eccoti trovato anche Bersaglio automatico.. Scaricatelo da qui [code]http://www.chat-libera.net/downloads/giochi/[/code]

ciao a tutti , mi fà piacere che dopo tanto siamo ritornati su questo gioco ma non è il bersagliolo che troviamo in giro da qualche tempo. quello che oh visto in giro è cosi(non saprei se è in automatico, magari a solo bisogno di tracce)vi ringrazio anticipatamente. <08@bot> 8,2 Scrivi la parola a 0,2 bot  <08@bot> 8,2 1° indizio 0,2 presidente  <08@bot> 8,2 2° indizio 0,2 zodiaco  <08@bot> 8,2 3° indizio 0,2 lavoro  <08@bot> 8,2 4° indizio 0,2 ordine  <08@bot> 8,2 5° indizio 0,2 oscuro  <08@bot> 8,2 avete 0,2 30 8,2 secondi  <08@bot> 0,5 mancano 10 secondi... sbrigatevi! <08@bot> 4,2 tempo scaduto 8,2la parola bersaglio era 0,2 cavaliere  <08@bot> 0,2 nick-1 8,2 con la parola 0,2 cavaliere 8,2 totalizza0,2 66 8,2 punti in 49 secondi0,2 Velocita <08@bot> 0,2 nick-2 8,2 con la parola 0,2 segno 8,2 totalizza0,2 0 8,2 punti in 60 secondi0,2 Velocita <08@bot> 8,2©9º°¨¨°º8© 0,2 Classifica 0,2 8,2©9º°¨¨°º8© <08@bot> 0,2 1 ) nick-1 8,2 con 0,2 66 8,2 punti  <08@bot> 0,2 2 ) nick-2 8,2 con 0,2 0 8,2 punti  <08@bot> 8,2 vince 8,2©9º°¨0,2 0,2 nick-1 8,2 9,2¨°º8©8,2 complimenti!  <08@bot> 8,2 Scrivi la parola a 0,2 bot  <08@bot> 8,2 1° indizio 0,2 escamotage  <08@bot> 8,2 2° indizio 0,2 astuzia  <08@bot> 8,2 3° indizio 0,2 accorgimento  <08@bot> 8,2 4° indizio 0,2 scappatoia  <08@bot> 8,2 5° indizio 0,2 soluzione  <08@bot> 8,2 avete 0,2 30 8,2 secondi  <08@bot> 0,5 mancano 10 secondi... sbrigatevi!  <08@bot> 4,2 tempo scaduto 8,2 la parola bersaglio era 0,2 stratagemma  <08@bot> 0,2 nick-2 8,2 con la risposta 0,2 esito 8,2 totalizza0,2 0 8,2 punti in 56 secondi0,2  <08@bot> 0,2 nick-1 8,2 con la risposta 0,2 stratagemma 8,2 totalizza0,2 47 8,2 punti in 68 secondi0,2 Velocita <08@bot> 8,2©9º°¨¨°º8© 0,2 Classifica 0,2 8,2©9º°¨¨°º8© <08@bot> 0,2 1 ) nick-1 8,2 con 0,2 47 8,2 punti  <08@bot> 0,2 2 ) nick-2 8,2 con 0,2 0 8,2 punti  <08@bot> 8,2 vince 8,2©9º°¨0,2 0,2 nick-1 8,2 9,2¨°º8©8,2 complimenti! 

Questo ho trovato :p Chi si accontenta gode