Sillabah mad

[color=#FF0000]C[/color]iao a tutti, è la prima volta che scrivo qui e faccio i complimenti per il sito molto ben organizzato. [color=#FF0000]A[/color]vrei una questione da proporvi, credo sia questa la sezione adatta... in caso contrario mi scuso. [color=#FF0000]I[/color]l sillabah contenuto nel mirabot possiede anche l'opzione "mad", che però non è attivabile tramite il menu contestuale dei giochi come il gioco classico, bensì solo tramite comando manuale /notice bot sillabon punti password mad... e non è proprio il massimo della comodità. [color=#FF0000]E[/color]bbene, la mia domanda è questa: qualcuno saprebbe cosa dovrei aggiungere per ottenere la voce che attiva il mad nel menu? ho aperto il file col blocco note per leggerne il contenuto, ma non sono riuscito a venirne a capo. [color=#FF0000]I[/color]l comando che attiva il dialog del gioco normale è /sillaba_start [color=#FF0000]R[/color]ingazio anticipatamente tutti per ogni eventuale risposta[color=#FF0000].[/color] :)

Il gioco Sillabah legge le variabili che gli passi, in ordine. Le variabili sono quelle che dicevi tu: [code]!sillabaon punti password [mad][/code] Se c'è la parola magica "mad" il gioco verrà attivato in modalità mad, altrimenti in modalità normale.

Ciao AnyWay, ti ringrazio innanzitutto della risposta e mi scuso se sono sparito ma ho avuto alcuni problemi... Credo di aver spiegato con poca chiarezza quello che intendo fare, sinteticamente una cosa simile a [url=http://www.chatt-gratis.net/forum-della-chat/giochi/1537-menu-di-avvio-e-stop-gioco-scaraquick.html]questa[/url] (probabilmente avrei dovuto postare anch'io nella sezione giochi, ma non l'avevo proprio notata, chiedo venia) Attualmente dal menu tasto dx Giochi -----> Sil-la-Bah c'è la voce "avvia" che attiva il gioco in funzione classica, io vorrei aggiungere la voce "avvia mad" che avvia per l'appunto il gioco in modalità mad. Ho provato a venirne a capo da solo aprendo il file Sillabah.pan col blocco note e leggendo in giro qualcosa sul mirc scripting, ma purtroppo ci capisco davvero poco (probabilmente dovrei studiarmelo per bene, ma il tempo a disposizione non è moltissimo) volevi quindi capire quale codice aggiungere al file del gioco (o eventualmente anche al remote.ini di mirabot se necessario). Buona Domenica ;)

Sì, nel file dei popups, avranno usato lo schema "sillabaon punti password", quindi lì sotto dovrai aggiungere una nuova riga, mettendoci anche il "mad" finale. Se hai problemi, incolla la riga nei popups, che si riferisce a Sillabah normale.

Purtroppo quello schema non mi pare ci sia, o sono io che davvero non riesco a capirci nulla, questo è il codice integrale del Sillabah.pan : [spoiler][hide][code];-------------------------------------------------------------- Sil-la-bah 2.0 by PanToufLe Per caricare lo script: /load -rs Sillabah.pan Per il corretto funzionamento dello script assicurarsi che il dizionario sia contenuto nella sottocartella Dictionary. ;-------------------------------------------------------------- ;veste grafica by Novi-ziO & {sTrEGa} on 1:NICK:{ if (%gamesillaba_stato != OFF) && ( $nick != $newnick ) { sillaba_search $newnick if (%trovato == 1) { %sillaba_tmpp = %sillaba_ptsquery write -dl %pos sillclass.txt } sillaba_search $nick if (%trovato == 1) { %sillaba_chnickline = $read -l %pos sillclass.txt %sillaba_ptsquery = $calc(%sillaba_ptsquery + %sillaba_tmpp) %sillaba_chnickline = $puttok(%sillaba_chnickline,%sillaba_ptsquery,2,46) %sillaba_chnickline = $puttok(%sillaba_chnickline,$newnick,1,46) write -l %pos sillclass.txt %sillaba_chnickline } sillaba_manchesearch $nick if (%trovato == 1) { %sillaba_chnickline = $read -l %pos sillabamanche.txt %sillaba_chnickline = $puttok(%sillaba_chnickline,$newnick,1,46) write -l %pos sillabamanche.txt %sillaba_chnickline } } unset %sillaba_tmpp } on 1:JOIN:%sillaba_canale:{ if (%gamesillaba_stato != OFF) { .msg $nick —] $sillabatalk(Si-LLa-BaH Running! %sillaba_canale ) [— $sillabatalk(Digita)  !aiuto  $sillabatalk(nel canale per le istruzioni) } } on 1:TEXT:!punti:%sillaba_canale:{ if (%gamesillaba_stato != OFF) { sillaba_search $nick if (%trovato == 1) { .msg $nick $sillabatalk(Il tuo punteggio è) 4 %sillaba_ptsquery } } } on 1:TEXT:!sillaba:%sillaba_canale: { if (%gamesillaba_stato != OFF) { if (%sillaba_manche == ON ) { msg %sillaba_canale $sillabatalk(Sillaba corrente) 4 %Sillaba_current . $sillabatalk(Limite a) 4 %sillaba_lenmax  $sillabatalk(lettere.) } else { msg %sillaba_canale $sillabatalk(Nessuna manche in corso. Attendi la prossima.) } } } on 1:TEXT:!valori:%sillaba_canale:{ if (%gamesillaba_stato != OFF) { if (%sillaba_mad != 1) msg %sillaba_canale $sillabatalk(Valori: a=1 b=3 c=1 d=3 e=1 f=3 g=3 h=6 i=1 j=8 k=8 l=2 m=2 n=2 o=1 p=3 q=6 r=1 s=1 t=1 u=3 v=3 w=8 x=8 y=8 z=5) else msg %sillaba_canale $sillabatalk(Valori: %sillaba_madvaluesline) } } on 1:TEXT:!aiuto:%sillaba_canale: sillaba_help $nick on 1:TEXT:*:?:{ if (%gamesillaba_stato == ON) && (%sillaba_manche == OFF) && ($1 != $null) && ($nick != $me) { .msg $nick $sillabatalk(Manche terminata. Non posso accettare la tua richiesta) } if (%gamesillaba_stato == ON) && (%sillaba_manche == ON) && ($1 != $null) && ($nick != $me) { sillaba_manchesearch $nick if ($1 == -delete) { if (%trovato == 1) { write -dl %pos sillabamanche.txt .msg $nick $sillabatalk(Ho eliminato la tua entry. Scrivine una nuova) } } else { set %sillaba_string $1 if (%trovato == 1) { .msg $nick $sillabatalk(Hai già dato la parola) 4 %sillaba_wentry . -Delete  $sillabatalk(per cancellarla) | halt } if ($len(%sillaba_string) > %sillaba_lenmax) { .msg $nick $sillabatalk(Il limite per questa manche è di) 4 %sillaba_lenmax  $sillabatalk(lettere) | halt } if (%Sillaba_current !isin %sillaba_string ) { .msg $nick Stiamo giocando per la sillaba %sillaba_current  . La tua parola non la contiene | halt } else { set %sillaba_starlet $left(%sillaba_string,1) set %sillaba_trovato $read($scriptdirdictionary\ $+ italiano. [ $+ [ %sillaba_starlet ] ],w,%sillaba_string,1) if ( %sillaba_trovato == %sillaba_string ) { .msg $nick $sillabatalk(Parola Accettata) set %sillaba_linez $nick set %sillaba_linez $addtok(%sillaba_linez,%sillaba_string,46) write sillabamanche.txt %sillaba_linez } else .msg $nick $sillabatalk(Questa parola non esiste nel mio dizionario, spiacente) } } close -m $nick } } alias sillaba_start { if ( %gamesillaba_stato == ON ) || ( %gamesillaba_stato == PAUSE ) { if ( $?!="Sei sicuro/a di voler avviare il gioco? Potrebbe essere già attivo oppure in pausa? " == $true ) { set %gamesillaba_stato OFF } } if (%gamesillaba_stato == OFF) || (%gamesillaba_stato == $null) { unset %sillaba* set %sillaba_canale $?="Su che canale avviare il gioco?" if ( %sillaba_canale !ischan ) { echo -a $sillabatalk(Canale non valido) | halt } set %sillaba_target $?="Inserisci il numero di punti da totalizzare per vincere:" if (%sillaba_target !isnum) { echo -a $sillabatalk(Non hai inserito un valore valido. Fai ripartire il quiz) | halt } set %gamesillaba_stato ON set %sillaba_manche OFF set %sillaba_durata 80 set %sillaba_pausetime 15 set %sillaba_manchenum 0 set %sillaba_mad 0 if ($exists(sillabarecord.txt) == $false) sillaba_generahs set %sillaba_record $read -l 11 SillabaRecord.txt set %sillaba_reckeeper $gettok(%sillaba_record,1,35) set %sillaba_record $gettok(%sillaba_record,2,35) if $exists(sillclass.txt) { .remove sillclass.txt } if $exists(sillabamanche.txt) { .remove sillabamanche.txt } msg %sillaba_canale           —] $sillabatalk(Si-LLa-BaH by PanToufLe AtTivAtO !!) [— msg %sillaba_canale           —] $sillabatalk(Si vince a) 4 %sillaba_target  $sillabatalk(punti) [— echo -a $sillabatalk(Fai partire la prima manche quando vuoi dal pannello col tasto START GAME) dialog -m sillabagame sillabagame } } on 1:notice:sillabaon*:?:{ if ($3 == %Game_Password) { if (%gamesillaba_stato == OFF) || (%gamesillaba_stato == $null) { unset %sillaba* set %sillaba_canale %game_channel if ( %sillaba_canale !ischan ) { .msg $nick $sillabatalk(Non mi trovo su %sillaba_canale, spiacente) | halt } set %sillaba_target $2 if (%sillaba_target !isnum) { .msg $nick $sillabatalk(Non hai inserito un valore valido. Fai ripartire il quiz) | halt } set %gamesillaba_stato ON set %sillaba_manche OFF set %sillaba_durata 70 set %sillaba_pausetime 15 set %sillaba_manchenum 0 set %sillaba_mad 0 if ($4 == MAD) set %sillaba_mad 1 if ($exists(sillabarecord.txt) == $false) sillaba_generahs set %sillaba_record $read -l 11 SillabaRecord.txt set %sillaba_reckeeper $gettok(%sillaba_record,1,35) set %sillaba_record $gettok(%sillaba_record,2,35) if $exists(sillclass.txt) { .remove sillclass.txt } if $exists(sillabamanche.txt) { .remove sillabamanche.txt } msg %sillaba_canale —] $sillabatalk(Si-LLa-BaH by PanToufLe AtTivAtO da) 4 $nick [— msg %sillaba_canale —] $sillabatalk(Si vince a) 4 %sillaba_target  $sillabatalk(punti) [— .timerhub 1 20 sillaba_hub } } } alias sillaba_generahs { %x = 1 while ( %x <= 11 ) { write sillabarecord.txt none#0 inc %x } } alias sillaba_endofgame { if ($lines(sillclass.txt) > 4) && (%sillaba_target > 199) && (%sillaba_mad == 0) { set %x 1 while (%x <= $lines(sillclass.txt)) { set %sillaba_line $read -l %x sillclass.txt set %sillaba_nick $gettok(%sillaba_line,1,46) set %sillaba_pts $gettok(%sillaba_line,2,46) set %sillaba_media $calc(%sillaba_pts / %sillaba_manchenum) set %y 1 if (%sillaba_nick == `computer`) goto stophere sillaba_gcs %sillaba_nick if (%trovato == 0) { while (%y <= 10) { set %sillaba_procline $read -l %y Sillabarecord.txt set %sillaba_ptsentry $gettok(%sillaba_procline,2,35) if (%sillaba_media > %sillaba_ptsentry) { set %z %y set %sillaba_inline %sillaba_nick $+ $chr(35) $+ %sillaba_media msg %sillaba_canale 4 %sillaba_nick  $sillabatalk(raggiunge la posizione) 4 %y  $sillabatalk(con la media di) 4 %sillaba_media  $sillabatalk(punti.) while (%z <= 10) { set %sillaba_temp $read -l %z sillabarecord.txt write -l %z Sillabarecord.txt %sillaba_inline set %sillaba_inline %sillaba_temp inc %z } goto stophere } inc %y } } if (%trovato == 1) { if (%sillaba_media <= %sillaba_ptsquery) goto stophere write -dl %pos sillabarecord.txt while (%y <= %pos) { set %sillaba_procline $read -l %y Sillabarecord.txt set %sillaba_ptsentry $gettok(%sillaba_procline,2,35) if (%sillaba_media > %sillaba_ptsentry) { set %sillaba_inline %sillaba_nick $+ $chr(35) $+ %sillaba_media msg %sillaba_canale 4 %sillaba_nick  $sillabatalk(raggiunge la posizione) 4 %y  $sillabatalk(con la media di) 4 %sillaba_media  $sillabatalk(punti.) write -il %y Sillabarecord.txt %sillaba_inline goto stophere } inc %y } } :stophere inc %x } } if $exists(sillclass.txt) { .remove sillclass.txt } if $exists(sillabamanche.txt) { .remove sillabamanche.txt } msg %sillaba_canale           —] $sillabatalk(Si-LLa-BaH Terminato) [— msg %sillaba_canale           —] $sillabatalk(vince) 4 %sillaba_1nick  $sillabatalk(con) 4 %sillaba_1pts  $sillabatalk(punti) [— msg %sillaba_canale           —] $sillabatalk(www.IrcGames.it) [— set %gamesillaba_stato OFF unset %sillaba* } alias sillaba_gcs { set %i 1 set %trovato 0 while ( ( %i <= 10 ) && ( %trovato == 0 ) ) { %riga = $read -l %i sillabarecord.txt %nome = $gettok(%riga,1,35) %sillaba_ptsquery = $gettok(%riga,2,35) if ( %nome == $1 ) { set %trovato 1 set %pos %i } inc %i 1 } } on 1:notice:sillabaoff*:?:{ if ($2 == %Game_Password) && (%gamesillaba_stato == ON) { if $exists(sillclass.txt) { .remove sillclass.txt } if $exists(sillabamanche.txt) { .remove sillabamanche.txt } .timer* off msg %sillaba_canale           —] $sillabatalk(Si-LLa-BaH Terminato) [— msg %sillaba_canale           —] $sillabatalk(vince) 4 %sillaba_1nick  $sillabatalk(con) 4 %sillaba_1pts  $sillabatalk(punti) [— msg %sillaba_canale           —] $sillabatalk(www.IrcGames.it) [— set %gamesillaba_stato OFF unset %sillaba* } } alias sillaba_end_query { if (%gamesillaba_stato == ON) || (%gamesillaba_stato == PAUSE) { if ( $?!="Vuoi terminare il gioco? Esso verrà fermato alla fine della prossima manche o di quella in corso " == $true ) { set %sillaba_target -1 } } } alias sillaba_pause { if (%gamesillaba_stato == ON) || (%gamesillaba_stato == PAUSE) { if (%sillaba_manche == ON) { echo -a $sillabatalk(Attendi il termine della manche il corso) } if (%sillaba_manche == OFF) { if (%gamesillaba_stato == PAUSE) { set %gamesillaba_stato ON | msg %sillaba_canale           —] $sillabatalk(Attenzione: il Si-LLa-BaH riprende!) [— | .timernext 1 %sillaba_pausetime sillaba_start_manche | halt } if (%gamesillaba_stato == ON) { set %gamesillaba_stato PAUSE | msg %sillaba_canale           —] $sillabatalk(Si-LLa-BaH in Pausa. Attendere prego...) [— } } } } on 1:notice:sillabapausa*:?:{ if ($2 == %Game_Password) { if (%gamesillaba_stato == ON) || (%gamesillaba_stato == PAUSE) { if (%sillaba_manche == ON) { .msg $nick —] $sillabatalk(Attendi il termine della manche il corso) [— } if (%sillaba_manche == OFF) { if (%gamesillaba_stato == PAUSE) { set %gamesillaba_stato ON | msg %sillaba_canale           —] $sillabatalk(Attenzione: il Si-LLa-BaH riprende!) [— | .timernext 1 %sillaba_pausetime sillaba_start_manche | halt } if (%gamesillaba_stato == ON) { set %gamesillaba_stato PAUSE | msg %sillaba_canale           —] $sillabatalk(Si-LLa-BaH in Pausa. Attendere prego...) [— } } } } } alias sillaba_help { if ( %gamesillaba_stato != OFF) && (%sillaba_antiflood != ON) { set %sillaba_antiflood ON .timer1 1 1 .msg $1 —] $sillabatalk(©©© Sil-La-Bah ©©© - Modalità di gioco :) [— .timer2 1 2 .msg $1  “““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““ .timer3 1 3 .msg $1  $sillabatalk(Ad ogni manche viene proposta una sillaba. Componi una parola che contenga la sillaba) .timer4 1 4 .msg $1  $sillabatalk(e che non superi il limite fissato di lettere. Dopodichè scrivila in query a  $me .) .timer5 1 5 .msg $1  $sillabatalk(!sillaba per vedere la sillaba corrente. !valori per vedere quanto vale ciascuna) .timer6 1 6 .msg $1  $sillabatalk(lettera. !punti per conoscere il tuo punteggio.) .timer7 1 7 .msg $1  $sillabatalk(Puoi dare una sola parola! Se vuoi cancellare una parola scrivi) -delete  $sillabatalk((sempre a)  $me ) .timer8 1 8 .msg $1  ““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““ .timer9 1 9 .msg $1  $sillabatalk(Divertiti con il gioco della sillaba!) .timer10 1 10 set %sillaba_antiflood OFF } } alias sillaba_instr { if ( %gamesillaba_stato != OFF ) && (%sillaba_antiflood != ON) { set %sillaba_antiflood ON .timer11 1 1 msg %sillaba_canale —] $sillabatalk(©©© Sil-La-Bah ©©© - Modalità di gioco :) [— .timer12 1 2 msg %sillaba_canale  “““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““ .timer13 1 3 msg %sillaba_canale  $sillabatalk(Ad ogni manche viene proposta una sillaba. Componi una parola che contenga la sillaba) .timer14 1 4 msg %sillaba_canale  $sillabatalk(e che non superi il limite fissato di lettere. Dopodichè scrivila in query a  $me .) .timer15 1 5 msg %sillaba_canale  $sillabatalk(!sillaba per vedere la sillaba corrente. !valori per vedere quanto vale ciascuna) .timer16 1 6 msg %sillaba_canale  $sillabatalk(lettera. !punti per conoscere il tuo punteggio.) .timer17 1 7 msg %sillaba_canale  $sillabatalk(Puoi dare una sola parola! Se vuoi cancellare una parola scrivi) -delete  $sillabatalk((sempre a)  $me ) .timer18 1 8 msg %sillaba_canale  ““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““ .timer19 1 9 msg %sillaba_canale  $sillabatalk(Divertiti con il gioco della sillaba!) .timer20 1 10 set %sillaba_antiflood OFF } } on 1:notice:sillabahelp*:?:{ if ($2 == %Game_Password) && (%gamesillaba_stato == ON) sillaba_instr } alias sillaba_search { %lineefile = $lines(sillclass.txt) set %i 1 set %trovato 0 while ( ( %i <= %lineefile ) && ( %trovato == 0 ) ) { %riga = $read -l %i sillclass.txt %nome = $gettok(%riga,1,46) %sillaba_ptsquery = $gettok(%riga,2,46) if ( %nome == $1 ) { set %trovato 1 set %pos %i } inc %i 1 } } alias sillaba_manchesearch { %lineefile = $lines(sillabamanche.txt) set %i 1 set %trovato 0 while ( ( %i <= %lineefile ) && ( %trovato == 0 ) ) { %riga = $read -l %i sillabamanche.txt %nome = $gettok(%riga,1,46) if ( %nome == $1 ) { set %trovato 1 set %pos %i } inc %i 1 } } alias sillaba_ordina { set %sillaba_nltxt $lines(sillclass.txt) set %p 1 while (%p < %sillaba_nltxt) { set %x 1 while (%x < %sillaba_nltxt) { set %y $calc(%x + 1 ) set %sillaba_upper $read -l %x sillclass.txt set %sillaba_lower $read -l %y sillclass.txt set %sillaba_uppt $gettok(%sillaba_upper,2,46) set %sillaba_lowpt $gettok(%sillaba_lower,2,46) if (%sillaba_uppt < %sillaba_lowpt) { write -l %x sillclass.txt %sillaba_lower write -l %y sillclass.txt %sillaba_upper } inc %x } inc %p } sillaba_ordina_rovescio } alias sillaba_ordina_rovescio { set %sillaba_nltxt $lines(sillabamanche.txt) set %p 1 while (%p < %sillaba_nltxt) { set %x 1 while (%x < %sillaba_nltxt) { set %y $calc(%x + 1 ) set %sillaba_upper $read -l %x sillabamanche.txt set %sillaba_lower $read -l %y sillabamanche.txt set %sillaba_uppt $gettok(%sillaba_upper,3,46) set %sillaba_lowpt $gettok(%sillaba_lower,3,46) if (%sillaba_uppt > %sillaba_lowpt) { write -l %x sillabamanche.txt %sillaba_lower write -l %y sillabamanche.txt %sillaba_upper } inc %x } inc %p } } alias Sillaba_start_manche { if (%gamesillaba_stato == ON) { inc %sillaba_manchenum set %sillaba_hub OFF set %sillaba_lunghezza $rand(2,4) set %sillaba_lettera $rand(a,z) :again set %sillaba_llf $lines($scriptdirdictionary\ $+ italiano. [ $+ [ %sillaba_lettera ] ] ) set %sillaba_rdln $rand(1,%sillaba_llf) set %sillaba_extr $read($scriptdirdictionary\ $+ italiano. [ $+ [ %sillaba_lettera ] ] , %sillaba_rdln ) if ($len(%sillaba_extr) < 6) { goto again } set %sillaba_rdst $rand(1,$calc($len(%sillaba_extr) - %sillaba_lunghezza + 1)) set %sillaba_current $mid(%sillaba_extr,%sillaba_rdst,%sillaba_lunghezza) set %sillaba_current $upper(%sillaba_current) set %sillaba_lenmax $rand(6,15) if (%sillaba_mad == 1) sillaba_makevalues set %sillaba_bonustype $rand(1,5) if (%sillaba_bonustype == 1) { set %sillaba_bmult $rand(2,5) set %sillaba_bpos $rand(1,%sillaba_lenmax) set %sillaba_blet $rand(a,z) set %sillaba_bonusbanner $sillabatalk(Bonus) 4 [Random x $+ %sillaba_bmult $+ ]  $sillabatalk(Posizione) 4 %sillaba_bpos $+ ª  } if (%sillaba_bonustype == 2) { set %sillaba_bmult $rand(2,5) set %sillaba_bpos $rand(1,%sillaba_lenmax) set %sillaba_blet $rand(a,z) set %sillaba_bonusbanner $sillabatalk(Bonus) 4 [Random x $+ %sillaba_bmult $+ ]  $sillabatalk(Lettera) $upper(%sillaba_blet) } if (%sillaba_bonustype == 3) { set %sillaba_bonusbanner $sillabatalk(Bonus) 4 [Vocali x2]  } if (%sillaba_bonustype == 4) { set %sillaba_bmult 2 set %sillaba_blet $rand(a,z) set %sillaba_bonusbanner $sillabatalk(Bonus) 4 [x2]  $sillabatalk(su ogni lettera) 4 $upper(%sillaba_blet) } if (%sillaba_bonustype == 5) { set %sillaba_bpoints $rand(2,7) set %sillaba_blet $rand(a,z) set %sillaba_bonusbanner —] 4 + $+ %sillaba_bpoints  $sillabatalk( punti se la parola inizia per) 4 $upper(%sillaba_blet) [— } .timer21 1 1 msg %sillaba_canale  $+ %c9 —[ %sillaba_manchenum $+  $+ %c9 ]— $sillabatalk(Si-LLa-BaH round N° ) 4 [ %sillaba_manchenum ] .timer22 1 2 msg %sillaba_canale  $+ %c9 —[ %sillaba_manchenum $+  $+ %c9 ]— $sillabatalk(Si gioca con la sillaba) 4 %sillaba_current .timer23 1 3 msg %sillaba_canale  $+ %c9 —[ %sillaba_manchenum $+  $+ %c9 ]— $sillabatalk(Il limite è fissato a) 4 %sillaba_lenmax  $sillabatalk(lettere) .timer24 1 4 msg %sillaba_canale  $+ %c9 —[ %sillaba_manchenum $+  $+ %c9 ]— %Sillaba_bonusbanner .timer25 1 5 msg %sillaba_canale  $+ %c9 —[ %sillaba_manchenum $+  $+ %c9 ]— $sillabatalk(La tua parola in query a)  $me if (%sillaba_mad == 1) { .timer26 1 6 msg %sillaba_canale 8,2 %sillaba_oklets .timer27 1 6 msg %sillaba_canale 8,2 %sillaba_badlets } .timer28 1 7 msg %sillaba_canale  $+ %c9 —[ %sillaba_manchenum $+  $+ %c9 ]— $sillabatalk(Avete) 4 %sillaba_durata $+  $sillabatalk(secondi a partire da ora!) set %sillaba_manche ON .timeralert 1 $calc(%sillaba_durata + 2) { sillaba_alert } } } alias sillaba_makevalues { %sillaba_madvalues = $calc($rand(0,8)-3) %sillaba_madvalues = $instok(%sillaba_madvalues,$calc($rand(0,15)-5),2,32) %sillaba_madvalues = $instok(%sillaba_madvalues,$calc($rand(0,15)-5),3,32) %sillaba_madvalues = $instok(%sillaba_madvalues,$calc($rand(0,15)-5),4,32) %sillaba_madvalues = $instok(%sillaba_madvalues,$calc($rand(0,8)-3),5,32) %sillaba_madvalues = $instok(%sillaba_madvalues,$calc($rand(0,15)-5),6,32) %sillaba_madvalues = $instok(%sillaba_madvalues,$calc($rand(0,15)-5),7,32) %sillaba_madvalues = $instok(%sillaba_madvalues,$calc($rand(0,15)-5),8,32) %sillaba_madvalues = $instok(%sillaba_madvalues,$calc($rand(0,8)-3),9,32) %sillaba_madvalues = $instok(%sillaba_madvalues,$calc($rand(0,15)-5),10,32) %sillaba_madvalues = $instok(%sillaba_madvalues,$calc($rand(0,15)-5),11,32) %sillaba_madvalues = $instok(%sillaba_madvalues,$calc($rand(0,15)-5),12,32) %sillaba_madvalues = $instok(%sillaba_madvalues,$calc($rand(0,15)-5),13,32) %sillaba_madvalues = $instok(%sillaba_madvalues,$calc($rand(0,15)-5),14,32) %sillaba_madvalues = $instok(%sillaba_madvalues,$calc($rand(0,8)-3),15,32) %sillaba_madvalues = $instok(%sillaba_madvalues,$calc($rand(0,15)-5),16,32) %sillaba_madvalues = $instok(%sillaba_madvalues,$calc($rand(0,15)-5),17,32) %sillaba_madvalues = $instok(%sillaba_madvalues,$calc($rand(0,15)-5),18,32) %sillaba_madvalues = $instok(%sillaba_madvalues,$calc($rand(0,15)-5),19,32) %sillaba_madvalues = $instok(%sillaba_madvalues,$calc($rand(0,15)-5),20,32) %sillaba_madvalues = $instok(%sillaba_madvalues,$calc($rand(0,8)-3),21,32) %sillaba_madvalues = $instok(%sillaba_madvalues,$calc($rand(0,15)-5),22,32) %sillaba_madvalues = $instok(%sillaba_madvalues,$calc($rand(0,15)-5),23,32) %sillaba_madvalues = $instok(%sillaba_madvalues,$calc($rand(0,15)-5),24,32) %sillaba_madvalues = $instok(%sillaba_madvalues,$calc($rand(0,15)-5),25,32) %sillaba_madvalues = $instok(%sillaba_madvalues,$calc($rand(0,15)-5),26,32) unset %sillaba_madvaluesline unset %sillaba_oklets unset %sillaba_badlets %i = 1 while (%i <= 26) { if ($gettok(%sillaba_madvalues,%i,32) < 0) set %sillaba_temp 4 $+ $chr($calc(64 + %i)) $+ = $+ $gettok(%sillaba_madvalues,%i,32) else set %sillaba_temp 8 $+ $chr($calc(64 + %i)) $+ = $+ $gettok(%sillaba_madvalues,%i,32) %sillaba_madvaluesline = $instok(%sillaba_madvaluesline,%sillaba_temp,%i,32) if ($gettok(%sillaba_madvalues,%i,32) < 0) set %sillaba_badlets $addtok(%sillaba_badlets,%sillaba_temp,32) else set %sillaba_oklets $addtok(%sillaba_oklets,%sillaba_temp,32) inc %i } } alias sillaba_alert { msg %sillaba_canale           —] $sillabatalk(Mancano solo) 4 10  $sillabatalk(secondi. Fate in fretta!) [— set %sillaba_comline `Computer` set %sillaba_comline $addtok(%sillaba_comline,%sillaba_extr,46) if ($len(%sillaba_extr) <= %sillaba_lenmax) write sillabamanche.txt %sillaba_comline .timerend 1 10 sillaba_endofmanche } alias sillaba_endofmanche { set %sillaba_manche OFF msg %sillaba_canale           —] $sillabatalk(Tempo Scaduto!) $sillabatalk(Si giocava per la sillaba) 4 %sillaba_current [— if (%sillaba_bonustype == 1) msg %sillaba_canale  $+ %c9 —[ %sillaba_manchenum $+  $+ %c9 ]— $sillabatalk(Lettera bonus)  x $+ %sillaba_bmult $+  $sillabatalk(in posizione)  %sillaba_bpos  $sillabatalk(era la) 4 $upper(%sillaba_blet) $+ . $sillabatalk(Risultati della) 4 %sillaba_manchenum $+ ª $sillabatalk(manche) if (%sillaba_bonustype == 2) msg %sillaba_canale  $+ %c9 —[ %sillaba_manchenum $+  $+ %c9 ]— $sillabatalk(Lettera)  $upper(%sillaba_blet)  $sillabatalk(bonus)  x $+ %sillaba_bmult $+  $sillabatalk(era sulla posizione)  %sillaba_bpos $+  . $sillabatalk(Risultati della) 4 %sillaba_manchenum $+ ª $sillabatalk(manche) if (%sillaba_bonustype == 3) msg %sillaba_canale  $+ %c9 —[ %sillaba_manchenum $+  $+ %c9 ]— $sillabatalk(Tutte le vocali valgono doppio. Risultati della) 4 %sillaba_manchenum $+ ª $sillabatalk(manche) if (%sillaba_bonustype == 4) msg %sillaba_canale  $+ %c9 —[ %sillaba_manchenum $+  $+ %c9 ]— $sillabatalk(Tutte le lettere)  $upper(%sillaba_blet)  $sillabatalk(in questa manche valgono doppio . Risultati della) 4 %sillaba_manchenum $+ ª $sillabatalk(manche) if (%sillaba_bonustype == 5) msg %sillaba_canale  $+ %c9 —[ %sillaba_manchenum $+  $+ %c9 ]— $sillabatalk(Le parole chiave erano:)  $upper(%sillaba_blet)  $sillabatalk(hanno) 4 + $+ %sillaba_bpoints  $sillabatalk(punti . Risultati della) 4 %sillaba_manchenum $+ ª $sillabatalk(manche) sillaba_elabora close -m set %sillaba_timercount 1 set %sillaba_fatto 0 set %sillaba_ntim $calc($lines(sillabamanche.txt) + 1) .timermsg %sillaba_ntim 2 sillaba_resmsg } alias sillaba_elabora { set %z 1 while ( %z <= $lines(sillabamanche.txt) ) { set %sillaba_finale 0 set %sillaba_elline $read -l %z sillabamanche.txt set %sillaba_remains $gettok(%sillaba_elline,2,46) set %sillaba_elline $instok(%sillaba_elline,-,3,46) set %sillaba_elline $instok(%sillaba_elline,-,3,46) if (%z == 1) { set %sillaba_elline $puttok(%sillaba_elline,Velocità[2],4,46) } set %sillaba_letpos 1 while ($len(%sillaba_remains) > 0) { set %sillaba_leflet $calc($len(%sillaba_remains) - 1 ) set %sillaba_proclet $left(%sillaba_remains,1) set %sillaba_remains $right(%sillaba_remains,%sillaba_leflet) set %sillaba_let_pts $sillaba_ptsxlet(%sillaba_proclet) if (%sillaba_bonustype <= 2) { if ( %sillaba_blet == %sillaba_proclet ) && ( %sillaba_bpos == %sillaba_letpos ) { set %sillaba_let_pts $calc(%sillaba_let_pts * %sillaba_bmult) set %sillaba_elbonuses $gettok(%sillaba_elline,4,46) if (%sillaba_elbonuses == -) { set %sillaba_elline $puttok(%sillaba_elline,Bonus[ $+ x $+ %sillaba_bmult $+ ],4,46) } else { set %sillaba_elbonuses $addtok(%sillaba_elbonuses,Bonus[ $+ x $+ %sillaba_bmult $+ ],43) set %sillaba_elline $puttok(%sillaba_elline,%sillaba_elbonuses,4,46) } } } if (%sillaba_bonustype == 4) && (%sillaba_proclet == %sillaba_blet) { set %sillaba_let_pts $calc(%sillaba_let_pts * 2) } if (%sillaba_bonustype == 5) && (%sillaba_proclet = %sillaba_blet) && (%sillaba_letpos == 1) { set %sillaba_elbonuses $gettok(%sillaba_elline,4,46) if (%sillaba_elbonuses == -) { set %sillaba_elline $puttok(%sillaba_elline,LetteraIniziale,4,46) } else { set %sillaba_elbonuses $addtok(%sillaba_elbonuses,LetteraIniziale,43) set %sillaba_elline $puttok(%sillaba_elline,%sillaba_elbonuses,4,46) } } inc %sillaba_finale %sillaba_let_pts inc %sillaba_letpos } set %sillaba_elline $puttok(%sillaba_elline,%sillaba_finale,3,46) write -l %z sillabamanche.txt %sillaba_elline inc %z } sillaba_bonusleng } alias sillaba_ptsxlet { if (%sillaba_mad == 0) { if ($1 == a) && (%sillaba_bonustype != 3) return 1 if ($1 == a) && (%sillaba_bonustype == 3) return 2 if ($1 == b) return 3 if ($1 == c) return 1 if ($1 == d) return 3 if ($1 == e) && (%sillaba_bonustype != 3) return 1 if ($1 == e) && (%sillaba_bonustype == 3) return 2 if ($1 == f) return 3 if ($1 == g) return 3 if ($1 == h) return 6 if ($1 == i) && (%sillaba_bonustype != 3) return 1 if ($1 == i) && (%sillaba_bonustype == 3) return 2 if ($1 == j) return 8 if ($1 == k) return 8 if ($1 == l) return 2 if ($1 == m) return 2 if ($1 == n) return 2 if ($1 == o) && (%sillaba_bonustype != 3) return 1 if ($1 == o) && (%sillaba_bonustype == 3) return 2 if ($1 == p) return 3 if ($1 == q) return 6 if ($1 == r) return 1 if ($1 == s) return 1 if ($1 == t) return 1 if ($1 == u) && (%sillaba_bonustype != 3) return 3 if ($1 == u) && (%sillaba_bonustype == 3) return 6 if ($1 == v) return 3 if ($1 == w) return 8 if ($1 == x) return 8 if ($1 == y) return 8 if ($1 == z) return 5 if ($1 == -) return 0 if ($1 == `) return 0 } if (%sillaba_mad == 1) { if ($1 == a) && (%sillaba_bonustype != 3) return $gettok(%sillaba_madvalues,1,32) if ($1 == a) && (%sillaba_bonustype == 3) return $calc(2 * $gettok(%sillaba_madvalues,1,32)) if ($1 == b) return $gettok(%sillaba_madvalues,2,32) if ($1 == c) return $gettok(%sillaba_madvalues,3,32) if ($1 == d) return $gettok(%sillaba_madvalues,4,32) if ($1 == e) && (%sillaba_bonustype != 3) return $gettok(%sillaba_madvalues,5,32) if ($1 == e) && (%sillaba_bonustype == 3) return $calc(2 * $gettok(%sillaba_madvalues,5,32)) if ($1 == f) return $gettok(%sillaba_madvalues,6,32) if ($1 == g) return $gettok(%sillaba_madvalues,7,32) if ($1 == h) return $gettok(%sillaba_madvalues,8,32) if ($1 == i) && (%sillaba_bonustype != 3) return $gettok(%sillaba_madvalues,9,32) if ($1 == i) && (%sillaba_bonustype == 3) return $calc(2 * $gettok(%sillaba_madvalues,9,32)) if ($1 == j) return $gettok(%sillaba_madvalues,10,32) if ($1 == k) return $gettok(%sillaba_madvalues,11,32) if ($1 == l) return $gettok(%sillaba_madvalues,12,32) if ($1 == m) return $gettok(%sillaba_madvalues,13,32) if ($1 == n) return $gettok(%sillaba_madvalues,14,32) if ($1 == o) && (%sillaba_bonustype != 3) return $gettok(%sillaba_madvalues,15,32) if ($1 == o) && (%sillaba_bonustype == 3) return $calc(2 * $gettok(%sillaba_madvalues,15,32)) if ($1 == p) return $gettok(%sillaba_madvalues,16,32) if ($1 == q) return $gettok(%sillaba_madvalues,17,32) if ($1 == r) return $gettok(%sillaba_madvalues,18,32) if ($1 == s) return $gettok(%sillaba_madvalues,19,32) if ($1 == t) return $gettok(%sillaba_madvalues,20,32) if ($1 == u) && (%sillaba_bonustype != 3) return $gettok(%sillaba_madvalues,21,32) if ($1 == u) && (%sillaba_bonustype == 3) return $calc(2 * $gettok(%sillaba_madvalues,21,32)) if ($1 == v) return $gettok(%sillaba_madvalues,22,32) if ($1 == w) return $gettok(%sillaba_madvalues,23,32) if ($1 == x) return $gettok(%sillaba_madvalues,24,32) if ($1 == y) return $gettok(%sillaba_madvalues,25,32) if ($1 == z) return $gettok(%sillaba_madvalues,26,32) if ($1 == -) return 0 if ($1 == `) return 0 } } alias sillaba_bonusleng { set %z 1 set %sillaba_blmax 0 while (%z <= $lines(sillabamanche.txt)) { set %sillaba_blline $read -l %z sillabamanche.txt set %sillaba_blword $gettok(%sillaba_blline,2,46) if ($len(%sillaba_blword) > %sillaba_blmax) { set %sillaba_blmax $len(%sillaba_blword) } inc %z } set %z 1 while (%z <= $lines(sillabamanche.txt)) { set %sillaba_blline $read -l %z sillabamanche.txt set %sillaba_blword $gettok(%sillaba_blline,2,46) if ($len(%sillaba_blword) == %sillaba_blmax) { set %sillaba_bonuses $gettok(%sillaba_blline,4,46) if (%sillaba_bonuses == -) { set %sillaba_blline $puttok(%sillaba_blline,Lunghezza[4],4,46) | write -l %z sillabamanche.txt %sillaba_blline } else { set %sillaba_bonuses $addtok(%sillaba_bonuses,Lunghezza[4],43) set %sillaba_blline $puttok(%sillaba_blline,%sillaba_bonuses,4,46) write -l %z sillabamanche.txt %sillaba_blline } } inc %z } sillaba_bonusorig } alias sillaba_bonusorig { set %z 1 while (%z <= $lines(sillabamanche.txt)) { set %sillaba_rfwf 0 set %q 1 set %sillaba_borefline $read -l %z sillabamanche.txt set %sillaba_borefword $gettok(%sillaba_borefline,2,46) while (%q <= $lines(sillabamanche.txt)) && (%sillaba_rfwf == 0) { set %sillaba_boline $read -l %q sillabamanche.txt set %sillaba_boword $gettok(%sillaba_boline,2,46) if (%sillaba_borefword == %sillaba_boword) && (%z != %q) { set %sillaba_rfwf 1 } inc %q } if (%sillaba_rfwf == 0) { set %sillaba_bonuses $gettok(%sillaba_borefline,4,46) if (%sillaba_bonuses == -) { set %sillaba_borefline $puttok(%sillaba_borefline,Originalità[3],4,46) | write -l %z sillabamanche.txt %sillaba_borefline } else { set %sillaba_bonuses $addtok(%sillaba_bonuses,Originalità[3],43) set %sillaba_borefline $puttok(%sillaba_borefline,%sillaba_bonuses,4,46) write -l %z sillabamanche.txt %sillaba_borefline } } inc %z } sillaba_attrbonus } alias sillaba_attrbonus { set %z 1 while (%z <= $lines(sillabamanche.txt)) { set %sillaba_baline $read -l %z sillabamanche.txt set %sillaba_bapts $gettok(%sillaba_baline,3,46) set %sillaba_babonu $gettok(%sillaba_baline,4,46) if ( $istok(%sillaba_babonu,Velocità[2],43) == $true ) { inc %sillaba_bapts 2 } if ( $istok(%sillaba_babonu,Lunghezza[4],43) == $true ) { inc %sillaba_bapts 4 } if ( $istok(%sillaba_babonu,Originalità[3],43) == $true ) { inc %sillaba_bapts 3 } if ( $istok(%sillaba_babonu,LetteraIniziale,43) == $true ) { inc %sillaba_bapts %sillaba_bpoints } set %sillaba_baline $puttok(%sillaba_baline,%sillaba_bapts,3,46) write -l %z sillabamanche.txt %sillaba_baline inc %z } sillaba_agg_class } alias sillaba_agg_class { set %z 1 while (%z <= $lines(sillabamanche.txt)) { set %sillaba_clline $read -l %z sillabamanche.txt set %sillaba_clnick $gettok(%sillaba_clline,1,46) set %sillaba_manchepts $gettok(%sillaba_clline,3,46) sillaba_search %sillaba_clnick if (%trovato == 0) { set %sillaba_input %sillaba_clnick set %sillaba_input $addtok(%sillaba_clnick,%sillaba_manchepts,46) write sillclass.txt %sillaba_input } if (%trovato == 1) { set %sillaba_input $read -l %pos sillclass.txt set %sillaba_oldpts $gettok(%sillaba_input,2,46) inc %sillaba_oldpts %sillaba_manchepts set %sillaba_input $puttok(%sillaba_input,%sillaba_oldpts,2,46) write -l %pos sillclass.txt %sillaba_input } inc %z } sillaba_ordina } alias sillaba_resmsg { if ($lines(sillabamanche.txt) == $null ) || ($lines(sillabamanche.txt) == 0) && (%sillaba_fatto == 0) { msg %sillaba_canale —] $sillabatalk(nessuna parola trovata. Una parola che conteneva la sillaba era) 4 %sillaba_extr [— | set %sillaba_fatto 1 } if (%sillaba_timercount <= $lines(sillabamanche.txt)) { set %linez $read -l %sillaba_timercount sillabamanche.txt set %nick $gettok(%linez,1,46) set %word $gettok(%linez,2,46) set %wscore $gettok(%linez,3,46) set %bonuses $gettok(%linez,4,46) msg %sillaba_canale  $+ %c9 —[ %sillaba_manchenum $+  $+ %c9 ]— —] %nick [— $sillabatalk(con la parola) 4 %word  $sillabatalk(totalizza) 4 %wscore  $sillabatalk(punti)  %bonuses  } if (%sillaba_timercount == $calc($lines(sillabamanche.txt) + 1)) { .timerpreclass 1 5 sillaba_prepreclass } inc %sillaba_timercount } alias sillaba_prepreclass { if $exists(sillabamanche.txt) { set %sillaba_pnrline $read -l $lines(sillabamanche.txt) sillabamanche.txt set %sillaba_pnrecord $gettok(%sillaba_pnrline,3,46) set %sillaba_pnrkeeper $gettok(%sillaba_pnrline,1,46) if (%sillaba_pnrecord > %sillaba_record) && (%sillaba_mad == 0) { msg %sillaba_canale $sillabatalk(Nuovo Record) 4 ( $+ %sillaba_pnrecord $+ )  $sillabatalk(di punti in una manche. Il precedente)  ( $+ %sillaba_record $+ )  $sillabatalk(apparteneva a) 4 %sillaba_reckeeper  set %sillaba_record %sillaba_pnrecord set %sillaba_reckeeper %sillaba_pnrkeeper set %sillaba_pnrline %sillaba_reckeeper $+ $chr(35) $+ %sillaba_record write -l 11 SillabaRecord.txt %sillaba_pnrline } .remove sillabamanche.txt } .timerclass 1 5 sillaba_preclass } alias sillaba_preclass { set %timercounter 1 .timerclass 7 2 sillaba_msgclass } alias sillaba_msgclass { if (%timercounter == 1) { msg %sillaba_canale  $+ %c9 —[ %sillaba_manchenum $+  $+ %c9 ]—  $sillabatalk(Classifica:) } if (%timercounter == 2) { set %sillaba_1line $read -l1 sillclass.txt set %sillaba_1nick $gettok(%sillaba_1line,1,46) set %sillaba_1pts $gettok(%sillaba_1line,2,46) if (%sillaba_1pts == $null) { set %sillaba_1pts - } msg %sillaba_canale  $+ %c9 —[ %sillaba_manchenum $+  $+ %c9 ]—  $sillabatalk(1° posto:) —] $+ 4 %sillaba_1pts $+  [— %sillaba_1nick  } if (%timercounter == 3) { set %sillaba_2line $read -l2 sillclass.txt set %sillaba_2nick $gettok(%sillaba_2line,1,46) set %sillaba_2pts $gettok(%sillaba_2line,2,46) if (%sillaba_2pts == $null) { set %sillaba_2pts - } msg %sillaba_canale  $+ %c9 —[ %sillaba_manchenum $+  $+ %c9 ]—  $sillabatalk(2° posto:) —] $+ 4 %sillaba_2pts $+  [— %sillaba_2nick  } if (%timercounter == 4) { set %sillaba_3line $read -l3 sillclass.txt set %sillaba_3nick $gettok(%sillaba_3line,1,46) set %sillaba_3pts $gettok(%sillaba_3line,2,46) if (%sillaba_3pts == $null) { set %sillaba_3pts - } msg %sillaba_canale  $+ %c9 —[ %sillaba_manchenum $+  $+ %c9 ]—  $sillabatalk(3° posto:) —] $+ 4 %sillaba_3pts $+  [— %sillaba_3nick  } if (%timercounter == 5) { set %sillaba_4line $read -l4 sillclass.txt set %sillaba_4nick $gettok(%sillaba_4line,1,46) set %sillaba_4pts $gettok(%sillaba_4line,2,46) if (%sillaba_4pts == $null) { set %sillaba_4pts - } msg %sillaba_canale  $+ %c9 —[ %sillaba_manchenum $+  $+ %c9 ]—  $sillabatalk(4° posto:) —] $+ 4 %sillaba_4pts $+  [— %sillaba_4nick  } if (%timercounter == 6) { set %sillaba_5line $read -l5 sillclass.txt set %sillaba_5nick $gettok(%sillaba_5line,1,46) set %sillaba_5pts $gettok(%sillaba_5line,2,46) if (%sillaba_5pts == $null) { set %sillaba_5pts - } msg %sillaba_canale  $+ %c9 —[ %sillaba_manchenum $+  $+ %c9 ]—  $sillabatalk(5° posto:) —] $+ 4 %sillaba_5pts $+  [— %sillaba_5nick  } if (%timercounter == 7) { .timerhub 1 %sillaba_pausetime sillaba_hub } inc %timercounter } alias sillaba_hub { if ( (( %sillaba_1pts > %sillaba_2pts ) && ( %sillaba_1pts >= %sillaba_target )) || (!($exists(sillclass.txt)) && (%sillaba_target == -1)) ) { sillaba_endofgame } else { if (%gamesillaba_stato == ON) { msg %sillaba_canale           —] $sillabatalk(Attenzione! Sta per partire la prossima manche) [— | .timernew 1 5 sillaba_start_manche | set %sillaba_hub ON } } } menu channel { - Giochi .Sil-la-Bah ..Avvia:sillaba_start ..Dialog ON:dialog -m SillabaGame SillabaGame ..Dialog OFF:dialog -x SillabaGame SIllabaGame ..Pausa/riprendi:sillaba_pause ..End of game:sillaba_end_query ..Istruzioni:sillaba_instr - } dialog SillabaGame { title "Sillaba Game by " size -1 -1 240 288 box "Sillaba Game Commands Console", 500, 1 1 240 135, autohs button "Start Game", 501, 1 16 240 30, autohs button "Pausa/Riprendi", 502, 1 46 240 30, autohs button "Dai istruzioni", 503, 1 76 240 30, autohs button "End-Of-Game", 504, 1 106 240 30, autohs box "Regola tempi di gioco", 510, 1 136 240 120, autohs text "Aumenta/decrementa di 10 secondi la durata di ogni manche", 511, 65 160 105 40, autohs button "+10", 512, 5 160 50 30, autohs button "-10", 513, 186 160 50 30, autohs text "Aumenta/decrementa di 5 secondi l'attesa tra 2 manches", 514, 65 210 105 40, autohs button "+5", 515, 5 210 50 30, autohs button "-5", 516, 186 210 50 30, autohs button "Chiudi questa finestra", 517, 1 255 240 30, ok } on 1:dialog:SillabaGame:sclick:501: { if (%sillaba_manchenum == 0) && (%sillaba_hub != ON) { sillaba_hub } } on 1:dialog:SillabaGame:sclick:502: { sillaba_pause } on 1:dialog:SillabaGame:sclick:503: { sillaba_instr } on 1:dialog:SillabaGame:sclick:504: { sillaba_end_query } on 1:dialog:SillabaGame:sclick:513: { if (%gamesillaba_stato != OFF) { if (%sillaba_durata < 50) { echo -a $sillabatalk(Non puoi scendere sotto i 40 secondi) } else { dec %sillaba_durata 10 msg %sillaba_canale $sillabatalk(Il tempo a disposizione per ogni manche è ora di) 4 %sillaba_durata  $sillabatalk(secondi) } } } on 1:dialog:SillabaGame:sclick:512: { if (%gamesillaba_stato != OFF) { inc %sillaba_durata 10 msg %sillaba_canale $sillabatalk(Il tempo a disposizione per ogni manche è ora di) 4 %sillaba_durata  $sillabatalk(secondi) } } on 1:dialog:SillabaGame:sclick:516: { if (%gamesillaba_stato != OFF) { if (%sillaba_pausetime < 15) { echo -a $sillabatalk(Non puoi scendere sotto i 10 secondi) } else { dec %sillaba_pausetime 5 msg %sillaba_canale $sillabatalk(L'attesa tra due manche è ora di) 4 %sillaba_pausetime  $sillabatalk(secondi) } } } on 1:dialog:SillabaGame:sclick:515: { if (%gamesillaba_stato != OFF) { inc %sillaba_pausetime 5 msg %sillaba_canale $sillabatalk(L'attesa tra due manche è ora di) 4 %sillaba_pausetime  $sillabatalk(secondi) } } on 1:notice:sillabam-10*:?: { if (%gamesillaba_stato != OFF) && ($2 == %Game_Password) && (%sillaba_target < 500) { if (%sillaba_durata < 50) { .msg $nick $sillabatalk(Non puoi scendere sotto i 40 secondi) } else { dec %sillaba_durata 10 msg %sillaba_canale $sillabatalk(Il tempo a disposizione per ogni manche è ora di) 4 %sillaba_durata  $sillabatalk(secondi) } } } on 1:notice:sillabam+10*:?: { if (%gamesillaba_stato != OFF) && ($2 == %Game_Password) && (%sillaba_target < 500) { inc %sillaba_durata 10 msg %sillaba_canale $sillabatalk(Il tempo a disposizione per ogni manche è ora di) 4 %sillaba_durata 4 $sillabatalk(secondi) } } on 1:notice:sillabap-5*:?:{ if (%gamesillaba_stato != OFF) && ($2 == %Game_Password) { if (%sillaba_pausetime < 15) { .msg $nick $sillabatalk(Non puoi scendere sotto i 10 secondi) } else { dec %sillaba_pausetime 5 msg %sillaba_canale $sillabatalk(L'attesa tra due manche è ora di) 4 %sillaba_pausetime  $sillabatalk(secondi) } } } on 1:notice:sillabap+5*:?:{ if (%gamesillaba_stato != OFF) && ($2 == %Game_Password) { inc %sillaba_pausetime 5 msg %sillaba_canale $sillabatalk(L'attesa tra due manche è ora di) 4 %sillaba_pausetime 4 $sillabatalk(secondi) } } on 1:notice:sillabatarget*:?:{ if (%gamesillaba_stato != OFF) && ($3 == %Game_Password) && ($2 > 0) { set %sillaba_target $2 msg %sillaba_canale $sillabatalk(Il punteggio da raggiungere ora è:) 4 %sillaba_target  } } on 1:text:!SillabaHs:%game_channel:{ set %i 1 unset %hs while (%i <= 10) { set %line $read -l %i sillabarecord.txt set %nick $gettok(%line,1,35) set %pts $gettok(%line,2,35) if $calc(%i % 2) { set %line 4 %Pts $+  %nick } else { set %line 4 %Pts $+  %nick } set %hs %hs $+  •·• $+ %line inc %i } set %line $read -l 11 Sillabarecord.txt set %nick $gettok(%line,1,35) set %pts $gettok(%line,2,35) msg %game_channel —] $sillabatalk(Sillaba High Scores) [— msg %game_channel $sillabatalk(Record punti in una manche) 4 %nick  $+ [4 %pts ] msg %game_channel $sillabatalk(Top Ten media punti:) 4 %hs }[/code][/hide][/spoiler] I punti salienti presumo siano questi: [spoiler][hide][code]alias sillaba_start { if ( %gamesillaba_stato == ON ) || ( %gamesillaba_stato == PAUSE ) { if ( $?!="Sei sicuro/a di voler avviare il gioco? Potrebbe essere già attivo oppure in pausa? " == $true ) { set %gamesillaba_stato OFF } } if (%gamesillaba_stato == OFF) || (%gamesillaba_stato == $null) { unset %sillaba* set %sillaba_canale $?="Su che canale avviare il gioco?" if ( %sillaba_canale !ischan ) { echo -a $sillabatalk(Canale non valido) | halt } set %sillaba_target $?="Inserisci il numero di punti da totalizzare per vincere:" if (%sillaba_target !isnum) { echo -a $sillabatalk(Non hai inserito un valore valido. Fai ripartire il quiz) | halt } set %gamesillaba_stato ON set %sillaba_manche OFF set %sillaba_durata 80 set %sillaba_pausetime 15 set %sillaba_manchenum 0 set %sillaba_mad 0 if ($exists(sillabarecord.txt) == $false) sillaba_generahs set %sillaba_record $read -l 11 SillabaRecord.txt set %sillaba_reckeeper $gettok(%sillaba_record,1,35) set %sillaba_record $gettok(%sillaba_record,2,35) if $exists(sillclass.txt) { .remove sillclass.txt } if $exists(sillabamanche.txt) { .remove sillabamanche.txt } msg %sillaba_canale           —] $sillabatalk(Si-LLa-BaH by PanToufLe AtTivAtO !!) [— msg %sillaba_canale           —] $sillabatalk(Si vince a) 4 %sillaba_target  $sillabatalk(punti) [— echo -a $sillabatalk(Fai partire la prima manche quando vuoi dal pannello col tasto START GAME) dialog -m sillabagame sillabagame } } on 1:notice:sillabaon*:?:{ if ($3 == %Game_Password) { if (%gamesillaba_stato == OFF) || (%gamesillaba_stato == $null) { unset %sillaba* set %sillaba_canale %game_channel if ( %sillaba_canale !ischan ) { .msg $nick $sillabatalk(Non mi trovo su %sillaba_canale, spiacente) | halt } set %sillaba_target $2 if (%sillaba_target !isnum) { .msg $nick $sillabatalk(Non hai inserito un valore valido. Fai ripartire il quiz) | halt } set %gamesillaba_stato ON set %sillaba_manche OFF set %sillaba_durata 70 set %sillaba_pausetime 15 set %sillaba_manchenum 0 set %sillaba_mad 0 if ($4 == MAD) set %sillaba_mad 1 if ($exists(sillabarecord.txt) == $false) sillaba_generahs set %sillaba_record $read -l 11 SillabaRecord.txt set %sillaba_reckeeper $gettok(%sillaba_record,1,35) set %sillaba_record $gettok(%sillaba_record,2,35) if $exists(sillclass.txt) { .remove sillclass.txt } if $exists(sillabamanche.txt) { .remove sillabamanche.txt } msg %sillaba_canale —] $sillabatalk(Si-LLa-BaH by PanToufLe AtTivAtO da) 4 $nick [— msg %sillaba_canale —] $sillabatalk(Si vince a) 4 %sillaba_target  $sillabatalk(punti) [— .timerhub 1 20 sillaba_hub }[/code][/hide][/spoiler] [spoiler] [hide][code]menu channel { - Giochi .Sil-la-Bah ..Avvia:sillaba_start ..Dialog ON:dialog -m SillabaGame SillabaGame ..Dialog OFF:dialog -x SillabaGame SIllabaGame ..Pausa/riprendi:sillaba_pause ..End of game:sillaba_end_query ..Istruzioni:sillaba_instr [/code][/hide] [/spoiler]

[color=#FF0000]C[/color]iao, io suggerirei di mettere nel bot due file [color=#FF0000]per[/color] avviare tutti i giochi con un file .mrc chiamato comandi veloci[color=#FF0000]:[/color] [code]on ^*:text:*:#nomecanale:{ if (!supersquareon == $1) { /notice nomebot supersquareon 300 } elseif (!supersquareoff == $1) { /notice nomebot supersquareoff } elseif (!sillapluson == $1) { /notice nomebot sillapluson 300 } elseif (!sillaplusoff == $1) { /notice nomebot sillaplusoff } elseif (!squareon == $1) { /notice nomebot squareon 300 } elseif (!squareoff == $1) { /notice nomebot squareoff } } [/code] Nota bene il numero 300 è il punteggio da raggiungere, per avviare i giochi digita in chat !nomegiocoon 300, per fermarli !nomegiocooff e 1 file txt chiamato gamebot: [code]on 1:START:{ %Game_Channel = #nomecanale %Game_Password = } on 1:CONNECT:{ join %Game_Channel } [/code] [color=#FF0000]L[/color]a password è facoltativa, naturalmente se l'aggiungete dovete mettere la stessa nel file mrc es.: [code]on ^*:text:*:#nomecanale:{ if (!supersquareon == $1) { /notice nomebot supersquareon 300 passowrd } elseif (!supersquareoff == $1) { /notice nomebot supersquareoff password } [/code] [color=#FF0000]N[/color]aturalmente i due files vanno caricati in remote, spero di essermi spiegata[color=#FF0000].[/color] :)

[quote]menu channel { - Giochi .Sil-la-Bah ..Avvia:sillaba_start [color=#FF0000]..Avvia MAD:.notice $me sillabaon 350 %Game_Password MAD[/color] ..Dialog ON:dialog -m SillabaGame SillabaGame ..Dialog OFF:dialog -x SillabaGame SIllabaGame ..Pausa/riprendi:sillaba_pause ..End of game:sillaba_end_query ..Istruzioni:sillaba_instr[/quote] Prova così.

Purtroppo AnyWay non funziona :( winnina, credo di capire che quel codice serva ad avviare il gioco scrivendo in canale il comando !nomegiocoon o sbaglio? Quello che vorrei è aggiungere una voce al menu (quello tasto destro Giochi -----> Sil-la-Bah) che avii il gioco in modalità mad, possibilmente ottenendo la stessa finestra di input per la scelta del canale e dei punti. Forse è più complicato di quello che credevo... vabbè, proverò ad aggiungere un comando veloce per avviarlo dal canale. Grazie mille ad entrambi :)

Se non funziona probabilmente è perché non hai una password impostata e quindi devi modificare anche qui: [code] on 1:notice:sillabaon*:?:{ ;;;;;Qui va via la prima riga e la graffa chiusa corrispondente in fondo if (%gamesillaba_stato == OFF) || (%gamesillaba_stato == $null) { unset %sillaba* set %sillaba_canale %game_channel if ( %sillaba_canale !ischan ) { .msg $nick $sillabatalk(Non mi trovo su %sillaba_canale, spiacente) | halt } set %sillaba_target $2 if (%sillaba_target !isnum) { .msg $nick $sillabatalk(Non hai inserito un valore valido. Fai ripartire il quiz) | halt } set %gamesillaba_stato ON set %sillaba_manche OFF set %sillaba_durata 70 set %sillaba_pausetime 15 set %sillaba_manchenum 0 set %sillaba_mad 0 ;;;;;; Qui da $4 diventa $3 if ($3 == MAD) set %sillaba_mad 1 if ($exists(sillabarecord.txt) == $false) sillaba_generahs set %sillaba_record $read -l 11 SillabaRecord.txt set %sillaba_reckeeper $gettok(%sillaba_record,1,35) set %sillaba_record $gettok(%sillaba_record,2,35) if $exists(sillclass.txt) { .remove sillclass.txt } if $exists(sillabamanche.txt) { .remove sillabamanche.txt } msg %sillaba_canale —] $sillabatalk(Si-LLa-BaH by PanToufLe AtTivAtO da) 4 $nick [— msg %sillaba_canale —] $sillabatalk(Si vince a) 4 %sillaba_target  $sillabatalk(punti) [— .timerhub 1 20 sillaba_hub } } [/code] E qui: [quote] menu channel { - Giochi .Sil-la-Bah ..Avvia:sillaba_start [color=#FF0000]..Avvia MAD:.notice $me sillabaon 350 MAD[/color] ..Dialog ON:dialog -m SillabaGame SillabaGame ..Dialog OFF:dialog -x SillabaGame SIllabaGame ..Pausa/riprendi:sillaba_pause ..End of game:sillaba_end_query ..Istruzioni:sillaba_instr [/quote] Tieni presente, che come dicevo inizialmente, la soluzione di avviarli tramite comando testuale (puoi usare il codice che winnina ha inserito gentilmente), secondo me resta la più comoda.