aiuto giochi bersaglio

Di più
15 Anni 1 Settimana fa - 15 Anni 1 Settimana fa #1360 da winnina
aiuto giochi bersaglio è stato creato da winnina
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
}

}
Ultima Modifica 15 Anni 1 Settimana fa da AnyWay.
Di più
15 Anni 1 Settimana fa - 15 Anni 1 Settimana fa #1361 da AnyWay
Risposta da AnyWay al topic Re:aiuto giochi bersaglio
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

Vieni in chat con me!
Ultima Modifica 15 Anni 1 Settimana fa da AnyWay.
Di più
14 Anni 11 Mesi fa #1387 da magia
Risposta da magia al topic Re:aiuto giochi bersaglio
... 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
Di più
14 Anni 1 Mese fa #4624 da DaemonGood
Risposta da DaemonGood al topic Re:aiuto giochi bersaglio
Eccoti trovato anche Bersaglio automatico..
Scaricatelo da qui
http://www.chat-libera.net/downloads/giochi/
Di più
14 Anni 1 Mese fa #4628 da winnina
Risposta da winnina al topic Re:aiuto giochi bersaglio
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!
Di più
14 Anni 1 Mese fa #4659 da DaemonGood
Risposta da DaemonGood al topic Re:aiuto giochi bersaglio
Questo ho trovato :p
Chi si accontenta gode
Tempo creazione pagina: 0.113 secondi