xTrivia — File Browser
xTriviav1.0 / xTriviav1.0 / xTriviaByRibellina / xtrivia / bot / Addons / Giochi / Frame-Up.mrc
Frame-Up.mrc — 42.26 KB — Download this file
;--------------------------------------------------------------
frameup 1.0
by PanToufLe
Per caricare lo script: /load -rs framuup.pan
Per il corretto funzionamento dello script assicurarsi
che il dizionario sia contenuto nella sottocartella Dictionary.
;--------------------------------------------------------------
on 1:NICK:{
if (%gameframuup_stato != OFF) && ( $nick != $newnick ) {
framuup_search $newnick
if (%trovato == 1) {
%framuup_tmpp = %framuup_ptsquery
write -dl %pos framuupclass.txt
}
framuup_search $nick
if (%trovato == 1) {
%framuup_chnickline = $read -l %pos framuupclass.txt
%framuup_ptsquery = $calc(%framuup_ptsquery + %framuup_tmpp)
%framuup_chnickline = $puttok(%framuup_chnickline,%framuup_ptsquery,2,46)
%framuup_chnickline = $puttok(%framuup_chnickline,$newnick,1,46)
write -l %pos framuupclass.txt %framuup_chnickline
}
framuup_manchesearch $nick
if (%trovato == 1) {
%framuup_chnickline = $read -l %pos framuupmanche.txt
%framuup_chnickline = $puttok(%framuup_chnickline,$newnick,1,46)
write -l %pos framuupmanche.txt %framuup_chnickline
}
}
unset %framuup_tmpp
}
on 1:JOIN:%game_channel:{ if (%gameframuup_stato != OFF) { .msg $nick 4,1 ©º°¨¨°º©'4,1 Frame-Up in corso su %game_channel 4,1 '©º°¨¨°º© 8,1 Digita !aiuto nel canale per le istruzioni } }
on 1:TEXT:!punti:%game_channel:{
if (%gameframuup_stato != OFF) {
framuup_search $nick
if (%trovato == 1) {
.msg $nick Il tuo punteggio è %framuup_ptsquery
}
}
}
on 1:TEXT:!sintassi:%game_channel: {
if (%gameframuup_stato != OFF) {
if (%framuup_manche == ON ) { msg %game_channel %framuup_sintax 8,1 . Limite a 4,1 %framuup_lenmax 8,1 lettere. }
else { msg %game_channel 4,1 Nessuna manche in corso. Attendi la prossima. }
}
}
on 1:TEXT:!valori:%game_channel:{
if (%gameframuup_stato != OFF) {
if (%framuup_mad == 0) msg %game_channel 8,1 Valori:4,1 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 %game_channel 8,1 Valori:4,1 %framuup_madvaluesline
}
}
on 1:TEXT:!aiuto:%game_channel: framuup_help $nick
on 1:TEXT:*:?:{
if (%gameframuup_stato == ON) && (%framuup_manche == OFF) && ($1 != $null) && ($nick != $me) { .msg $nick Manche terminata. Non posso accettare la tua richiesta }
if (%gameframuup_stato == ON) && (%framuup_manche == ON) && ($1 != $null) && ($nick != $me) {
framuup_manchesearch $nick
if ($1 == -delete) {
if (%trovato == 1) {
write -dl %pos framuupmanche.txt
.msg $nick Ho eliminato la tua entry. Scrivine una nuova
}
}
else {
set %framuup_string $1
if (%trovato == 1) { .msg $nick Hai già dato la parola %framuup_wentry . -Delete per cancellarla | halt }
if ($len(%framuup_string) > %framuup_lenmax) { .msg $nick Il limite per questa manche è di %framuup_lenmax lettere | halt }
if ($framuup_verify(%framuup_string) == 0) { .msg $nick Attenzione: La tua parola non rispetta la sintassi! | halt }
else {
set %framuup_starlet $left(%framuup_string,1)
set %framuup_trovato $read($scriptdirdictionary\ $+ italiano. [ $+ [ %framuup_starlet ] ],w,%framuup_string,1)
if ( %framuup_trovato == %framuup_string ) {
.msg $nick Parola Accettata
set %framuup_linez $nick
set %framuup_linez $addtok(%framuup_linez,%framuup_string,46)
write framuupmanche.txt %framuup_linez
}
else .msg $nick Questa parola non esiste nel mio dizionario, spiacente
}
}
close -m $nick
}
}
alias framuup_verify {
set %z 1
while (%z <= $numtok(%framuup_selected,32)) {
set %framuup_verifying $gettok(%framuup_selected,%z,32)
set %framuup_verifyingpos $gettok(%framuup_verifying,1,61)
set %framuup_verifyinglet $gettok(%framuup_verifying,2,61)
if ($mid($1,%framuup_verifyingpos,1) != %framuup_verifyinglet) return 0
inc %z
}
return 1
}
alias framuup_start {
if ( %gameframuup_stato == ON ) || ( %gameframuup_stato == PAUSE ) { if ( $?!="Sei sicuro/a di voler avviare il gioco? Potrebbe essere già attivo oppure in pausa? " == $true ) { set %gameframuup_stato OFF } }
if (%gameframuup_stato == OFF) || (%gameframuup_stato == $null) {
unset %framuup*
set %game_channel $?="Su che canale avviare il gioco?"
if ( %game_channel !ischan ) { echo -a Canale non valido | halt }
set %framuup_target $?="Inserisci il numero di punti da totalizzare per vincere:"
if (%framuup_target !isnum) { echo -a Non hai inserito un valore valido. Fai ripartire il quiz | halt }
set %gameframuup_stato ON
set %framuup_manche OFF
set %framuup_durata 80
set %framuup_pausetime 15
set %framuup_manchenum 0
set %framuup_mad 0
if ($exists(framuuprecord.txt) == $false) framuup_generahs
set %framuup_record $read -l 11 framuupRecord.txt
set %framuup_reckeeper $gettok(%framuup_record,1,35)
set %framuup_record $gettok(%framuup_record,2,35)
if $exists(framuupclass.txt) { .remove framuupclass.txt }
if $exists(framuupmanche.txt) { .remove framuupmanche.txt }
msg %game_channel 9,1 '©º°¨¨°º©4,1 ©º°¨ 4,1 Frame-Up8,1 AtTivAtO !!4,1 ¨°º©9,1 ©º°¨¨°º©'
msg %game_channel 9,1 '©º°¨¨°º©4,1 ©º°¨¨¨°º© 0,1 Si vince a 9,1 %framuup_target 0,1 punti 4,1 ©º°¨¨¨°º©9,1 ©º°¨¨°º©'
echo -a 8,1 Fai partire la prima manche quando vuoi dal pannello col tasto START GAME
dialog -m framuupgame framuupgame
}
}
on 1:notice:frameon*:?:{
if ($3 == %Game_Password) {
if (%gameframuup_stato == OFF) || (%gameframuup_stato == $null) {
unset %framuup*
set %game_channel %game_channel
if ( %game_channel !ischan ) { .msg $nick Non mi trovo su %game_channel, spiacente | halt }
set %framuup_target $2
if (%framuup_target !isnum) { .msg $nick Non hai inserito un valore valido. Fai ripartire il quiz | halt }
set %gameframuup_stato ON
set %framuup_manche OFF
set %framuup_durata 70
set %framuup_pausetime 15
set %framuup_manchenum 0
set %framuup_mad 0
if ($4 == MAD) set %framuup_mad 1
if ($exists(framuuprecord.txt) == $false) framuup_generahs
set %framuup_record $read -l 11 framuupRecord.txt
set %framuup_reckeeper $gettok(%framuup_record,1,35)
set %framuup_record $gettok(%framuup_record,2,35)
if $exists(framuupclass.txt) { .remove framuupclass.txt }
if $exists(framuupmanche.txt) { .remove framuupmanche.txt }
msg %game_channel 9,1 '©º°¨¨°º©4,1 ©º°¨ 4,1 Frame-Up8,1 AtTivAtO da $nick 4,1¨°º©9,1 ©º°¨¨°º©'
msg %game_channel 9,1 '©º°¨¨°º©4,1 ©º°¨¨¨°º© 0,1 Si vince a 9,1 %framuup_target 0,1 punti 4,1 ©º°¨¨¨°º©9,1 ©º°¨¨°º©'
.timerhub 1 20 framuup_hub
}
}
}
alias framuup_generahs {
%x = 1
while ( %x <= 11 ) {
write framuuprecord.txt none#0
inc %x
}
}
alias framuup_endofgame {
if ($lines(framuupclass.txt) > 4) && (%framuup_target > 199) && (%framuup_mad == 0) {
set %x 1
while (%x <= $lines(framuupclass.txt)) {
set %framuup_line $read -l %x framuupclass.txt
set %framuup_nick $gettok(%framuup_line,1,46)
set %framuup_pts $gettok(%framuup_line,2,46)
set %framuup_media $calc(%framuup_pts / %framuup_manchenum)
set %y 1
framuup_gcs %framuup_nick
if (%trovato == 0) {
while (%y <= 10) {
set %framuup_procline $read -l %y framuuprecord.txt
set %framuup_ptsentry $gettok(%framuup_procline,2,35)
if (%framuup_media > %framuup_ptsentry) {
set %z %y
set %framuup_inline %framuup_nick $+ $chr(35) $+ %framuup_media
msg %game_channel 8,1 %framuup_nick 4,1conquista la posizione numero8,1 %y 4,1con la media di9,1 %framuup_media 4,1punti.
while (%z <= 10) {
set %framuup_temp $read -l %z framuuprecord.txt
write -l %z framuuprecord.txt %framuup_inline
set %framuup_inline %framuup_temp
inc %z
}
goto stophere
}
inc %y
}
}
if (%trovato == 1) {
if (%framuup_media <= %framuup_ptsquery) goto stophere
write -dl %pos framuuprecord.txt
while (%y <= %pos) {
set %framuup_procline $read -l %y framuuprecord.txt
set %framuup_ptsentry $gettok(%framuup_procline,2,35)
if (%framuup_media > %framuup_ptsentry) {
set %framuup_inline %framuup_nick $+ $chr(35) $+ %framuup_media
msg %game_channel 8,1 %framuup_nick 4,1 raggiunge la posizione8,1 %y 4,1con la media di9,1 %framuup_media 4,1punti.
write -il %y framuuprecord.txt %framuup_inline
goto stophere
}
inc %y
}
}
:stophere
inc %x
}
}
if $exists(framuupclass.txt) { .remove framuupclass.txt }
if $exists(framuupmanche.txt) { .remove framuupmanche.txt }
msg %game_channel 9,1 '©º°¨¨°º©4,1 ©º°¨¨¨°º© 4,1 Frame-Up Terminato 4,1 ©º°¨¨¨°º©9,1 ©º°¨¨°º©'
msg %game_channel 9,1 '©º°¨¨°º©4,1 ©º°¨ 0,1 Con8,1 %framuup_1pts 0,1 punti vince8,1 %framuup_1nick 4,1 ¨¨°º©9,1 ©º°¨¨°º©'
set %gameframuup_stato OFF
unset %framuup*
}
alias framuup_gcs {
set %i 1
set %trovato 0
while ( ( %i <= 10 ) && ( %trovato == 0 ) ) {
%riga = $read -l %i framuuprecord.txt
%nome = $gettok(%riga,1,35)
%framuup_ptsquery = $gettok(%riga,2,35)
if ( %nome == $1 ) {
set %trovato 1
set %pos %i
}
inc %i 1
}
}
on 1:notice:frameoff*:?:{
if ($2 == %Game_Password) && (%gameframuup_stato == ON) {
if $exists(framuupclass.txt) { .remove framuupclass.txt }
if $exists(framuupmanche.txt) { .remove framuupmanche.txt }
.timer* off
msg %game_channel 9,1 '©º°¨¨°º©4,1 ©º°¨¨¨°º© 4,1 Frame-Up Terminato 4,1 ©º°¨¨¨°º©9,1 ©º°¨¨°º©'
msg %game_channel 9,1 '©º°¨¨°º©4,1 ©º°¨ 0,1 Con8,1 %framuup_1pts 0,1 punti vince8,1 %framuup_1nick 4,1 ¨¨°º©9,1 ©º°¨¨°º©'
set %gameframuup_stato OFF
unset %framuup*
}
}
alias framuup_end_query {
if (%gameframuup_stato == ON) || (%gameframuup_stato == PAUSE) {
if ( $?!="Vuoi terminare il gioco? Esso verrà fermato alla fine della prossima manche o di quella in corso " == $true ) { set %framuup_target -1 }
}
}
alias framuup_pause {
if (%gameframuup_stato == ON) || (%gameframuup_stato == PAUSE) {
if (%framuup_manche == ON) { echo -a 8,1 Attendi il termine della manche il corso }
if (%framuup_manche == OFF) {
if (%gameframuup_stato == PAUSE) { set %gameframuup_stato ON | msg %game_channel 4,1 ©º°¨¨¨°º© 4,1 Attenzione: il Si-LLa-BaH riprende 4,1 ©º°¨¨¨°º© | .timernext 1 %framuup_pausetime framuup_start_manche | halt }
if (%gameframuup_stato == ON) { set %gameframuup_stato PAUSE | msg %game_channel 4,1 ©º°¨¨¨°º© 8,1 Si-LLa-BaH in Pausa. Attendere prego... 4,1 ©º°¨¨¨°º© }
}
}
}
on 1:notice:framepausa*:?:{
if ($2 == %Game_Password) {
if (%gameframuup_stato == ON) || (%gameframuup_stato == PAUSE) {
if (%framuup_manche == ON) { .msg $nick Attendi il termine della manche il corso }
if (%framuup_manche == OFF) {
if (%gameframuup_stato == PAUSE) { set %gameframuup_stato ON | msg %game_channel 4,1 ©º°¨¨¨°º© 4,1 Attenzione: il Si-LLa-BaH riprende 4,1 ©º°¨¨¨°º© | .timernext 1 %framuup_pausetime framuup_start_manche | halt }
if (%gameframuup_stato == ON) { set %gameframuup_stato PAUSE | msg %game_channel 4,1 ©º°¨¨¨°º© 8,1 Si-LLa-BaH in Pausa. Attendere prego... 4,1 ©º°¨¨¨°º© }
}
}
}
}
alias framuup_help {
if ( %gameframuup_stato != OFF) && (%framuup_antiflood != ON) {
set %framuup_antiflood ON
.timer1 1 1 .msg $1 4,1 ©©© Frame-Up ©©© - Modalità di gioco :
.timer2 1 2 .msg $1 8,1 “““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““
.timer3 1 3 .msg $1 4,1 Ad ogni manche viene indicato lo schema di lettere da seguire. Trova una parola secondo lo schema
.timer4 1 4 .msg $1 4,1 che non superi il limite fissato di lettere. Dopodichè scrivila in query a $me .
.timer5 1 5 .msg $1 4,1 !sintassi per vedere lo schema corrente. !valori per vedere quanto vale ciascuna lettera.
.timer6 1 6 .msg $1 4,1 !punti per conoscere il tuo punteggio.
.timer7 1 7 .msg $1 4,1 Puoi dare una sola parola! Se vuoi cancellare una parola scrivi -delete (sempre a $me )
.timer8 1 8 .msg $1 8,1 ““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““
.timer9 1 9 .msg $1 4,1 Divertiti con Frame-up!
.timer10 1 10 set %framuup_antiflood OFF
}
}
alias framuup_instr {
if ( %gameframuup_stato != OFF ) && (%framuup_antiflood != ON) {
set %framuup_antiflood ON
.timer11 1 1 msg %game_channel 4,1 ©©© Frame-Up ©©© - Modalità di gioco :
.timer2 1 2 msg %game_channel 8,1 “““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““
.timer3 1 3 msg %game_channel 4,1 Ad ogni manche viene indicato lo schema di lettere da seguire. Trova una parola secondo lo schema
.timer4 1 4 msg %game_channel 4,1 che non superi il limite fissato di lettere. Dopodichè scrivila in query a $me .
.timer5 1 5 msg %game_channel 4,1 !sintassi per vedere lo schema corrente. !valori per vedere quanto vale ciascuna lettera.
.timer6 1 6 msg %game_channel 4,1 !punti per conoscere il tuo punteggio.
.timer7 1 7 msg %game_channel 4,1 Puoi dare una sola parola! Se vuoi cancellare una parola scrivi -delete (sempre a $me )
.timer8 1 8 msg %game_channel 8,1 ““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““““
.timer19 1 9 msg %game_channel 4,1 Divertiti con Frame-Up!
.timer20 1 10 set %framuup_antiflood OFF
}
}
on 1:notice:framehelp*:?:{ if ($2 == %Game_Password) && (%gameframuup_stato == ON) framuup_instr }
alias framuup_search {
%lineefile = $lines(framuupclass.txt)
set %i 1
set %trovato 0
while ( ( %i <= %lineefile ) && ( %trovato == 0 ) ) {
%riga = $read -l %i framuupclass.txt
%nome = $gettok(%riga,1,46)
%framuup_ptsquery = $gettok(%riga,2,46)
if ( %nome == $1 ) {
set %trovato 1
set %pos %i
}
inc %i 1
}
}
alias framuup_manchesearch {
%lineefile = $lines(framuupmanche.txt)
set %i 1
set %trovato 0
while ( ( %i <= %lineefile ) && ( %trovato == 0 ) ) {
%riga = $read -l %i framuupmanche.txt
%nome = $gettok(%riga,1,46)
if ( %nome == $1 ) {
set %trovato 1
set %pos %i
}
inc %i 1
}
}
alias framuup_ordina {
set %framuup_nltxt $lines(framuupclass.txt)
set %p 1
while (%p < %framuup_nltxt) {
set %x 1
while (%x < %framuup_nltxt) {
set %y $calc(%x + 1 )
set %framuup_upper $read -l %x framuupclass.txt
set %framuup_lower $read -l %y framuupclass.txt
set %framuup_uppt $gettok(%framuup_upper,2,46)
set %framuup_lowpt $gettok(%framuup_lower,2,46)
if (%framuup_uppt < %framuup_lowpt) {
write -l %x framuupclass.txt %framuup_lower
write -l %y framuupclass.txt %framuup_upper
}
inc %x
}
inc %p
}
framuup_ordina_rovescio
}
alias framuup_ordina_rovescio {
set %framuup_nltxt $lines(framuupmanche.txt)
set %p 1
while (%p < %framuup_nltxt) {
set %x 1
while (%x < %framuup_nltxt) {
set %y $calc(%x + 1 )
set %framuup_upper $read -l %x framuupmanche.txt
set %framuup_lower $read -l %y framuupmanche.txt
set %framuup_uppt $gettok(%framuup_upper,3,46)
set %framuup_lowpt $gettok(%framuup_lower,3,46)
if (%framuup_uppt > %framuup_lowpt) {
write -l %x framuupmanche.txt %framuup_lower
write -l %y framuupmanche.txt %framuup_upper
}
inc %x
}
inc %p
}
}
alias framuup_start_manche { if (%gameframuup_stato == ON) {
unset %framuup_selected
unset %framuup_avoidbonus
unset %framuup_sintax
inc %framuup_manchenum
set %framuup_hub OFF
set %framuup_twothree $rand(1,5)
if (%framuup_twothree == 5) set %framuup_framednum 3
else set %framuup_framednum 2
set %framuup_lettera $rand(a,z)
:again
set %framuup_llf $lines($scriptdirdictionary\ $+ italiano. [ $+ [ %framuup_lettera ] ] )
set %framuup_rdln $rand(1,%framuup_llf)
set %framuup_extr $read($scriptdirdictionary\ $+ italiano. [ $+ [ %framuup_lettera ] ] , %framuup_rdln )
if (($len(%framuup_extr) < 6) || ($len(%framuup_extr) > 12)) { goto again }
set %framuup_lenmax $len(%framuup_extr)
set %framuup_scheme $str(* $+ $chr(32),%framuup_lenmax)
while ($numtok(%framuup_selected,32) < %framuup_framednum) {
set %framuup_framedpos $rand(1,$len(%framuup_extr))
if (%framuup_framedpos == 1) set %framuup_avoidbonus 1
set %framuup_framedletter $mid(%framuup_extr,%framuup_framedpos,1)
set %framuup_framedgroup %framuup_framedpos $+ = $+ %framuup_framedletter
set %framuup_selected $addtok(%framuup_selected,%framuup_framedgroup,32)
}
set %z 1
while (%z <= %framuup_framednum) {
set %framuup_building $gettok(%framuup_selected,%z,32)
set %framuup_buildingpos $gettok(%framuup_building,1,61)
set %framuup_buildinglet $gettok(%framuup_building,2,61)
set %framuup_scheme $puttok(%framuup_scheme,%framuup_buildinglet,%framuup_buildingpos,32)
inc %z
}
set %z 1
while (%z <= %framuup_framednum) {
set %framuup_building $gettok(%framuup_selected,%z,32)
set %framuup_buildingpos $gettok(%framuup_building,1,61)
set %framuup_buildinglet $gettok(%framuup_building,2,61)
set %framuup_sintaxitem 4,1 $framuup_card(%framuup_buildingpos) 4,1lettera:8,1 $upper(%framuup_buildinglet)
set %framuup_sintax %framuup_sintax $+ %framuup_sintaxitem
inc %z
}
if (%framuup_mad == 1) framuup_makevalues
:rebonus
set %framuup_bonustype $rand(1,5)
if (%framuup_bonustype == 1) {
set %framuup_bmult $rand(2,5)
set %framuup_bpos $rand(1,%framuup_lenmax)
set %framuup_blet $rand(a,z)
set %framuup_bonusbanner 4,1 Bonus8,1 [Random x $+ %framuup_bmult $+ ] 4,1Posizione8,1 %framuup_bpos $+ ª
}
if (%framuup_bonustype == 2) {
set %framuup_bmult $rand(2,5)
set %framuup_bpos $rand(1,%framuup_lenmax)
set %framuup_blet $rand(a,z)
set %framuup_bonusbanner 4,1 Bonus8,1 [Random x $+ %framuup_bmult $+ ] 4,1Lettera8,1 $upper(%framuup_blet)
}
if (%framuup_bonustype == 3) { set %framuup_bonusbanner 4,1 Bonus8,1 [Vocali x2] }
if (%framuup_bonustype == 4) {
set %framuup_bmult 2
set %framuup_blet $rand(a,z)
set %framuup_bonusbanner 4,1 Bonus8,1 [x2] 4,1su ogni lettera8,1 $upper(%framuup_blet)
}
if (%framuup_bonustype == 5) {
if (%framuup_avoidbonus == 1) goto rebonus
set %framuup_bpoints $rand(2,7)
set %framuup_blet $rand(a,z)
set %framuup_bonusbanner 8,1 + $+ %framuup_bpoints punti 4,1se la parola inizia per8,1 $upper(%framuup_blet)
}
.timer21 1 1 msg %game_channel 9,1 ©º°¨8,1 Frame-Up round N° $+ %framuup_manchenum $+ 9,1 ¨°º©
.timer22 1 2 msg %game_channel %framuup_sintax
.timer23 1 3 msg %game_channel 4,1 Il limite è fissato a8,1 %framuup_lenmax 4,1 lettere
.timer23 1 3 msg %game_channel 4,1 Schema: 8,1 %framuup_scheme
.timer24 1 4 msg %game_channel %framuup_bonusbanner
.timer25 1 5 msg %game_channel 4,1 La tua parola in query a8,1 $me
if (%framuup_mad == 1) {
.timer26 1 6 msg %game_channel 8,1 %framuup_oklets
.timer27 1 6 msg %game_channel 8,1 %framuup_badlets
}
.timer28 1 7 msg %game_channel 8,1 Avete9,1 %framuup_durata $+ 8,1 secondi a partire da ora!
set %framuup_manche ON
.timeralert 1 $calc(%framuup_durata + 2) { framuup_alert }
}
}
alias framuup_makevalues {
%framuup_madvalues = $calc($rand(0,8)-3)
%framuup_madvalues = $instok(%framuup_madvalues,$calc($rand(0,15)-5),2,32)
%framuup_madvalues = $instok(%framuup_madvalues,$calc($rand(0,15)-5),3,32)
%framuup_madvalues = $instok(%framuup_madvalues,$calc($rand(0,15)-5),4,32)
%framuup_madvalues = $instok(%framuup_madvalues,$calc($rand(0,8)-3),5,32)
%framuup_madvalues = $instok(%framuup_madvalues,$calc($rand(0,15)-5),6,32)
%framuup_madvalues = $instok(%framuup_madvalues,$calc($rand(0,15)-5),7,32)
%framuup_madvalues = $instok(%framuup_madvalues,$calc($rand(0,15)-5),8,32)
%framuup_madvalues = $instok(%framuup_madvalues,$calc($rand(0,8)-3),9,32)
%framuup_madvalues = $instok(%framuup_madvalues,$calc($rand(0,15)-5),10,32)
%framuup_madvalues = $instok(%framuup_madvalues,$calc($rand(0,15)-5),11,32)
%framuup_madvalues = $instok(%framuup_madvalues,$calc($rand(0,15)-5),12,32)
%framuup_madvalues = $instok(%framuup_madvalues,$calc($rand(0,15)-5),13,32)
%framuup_madvalues = $instok(%framuup_madvalues,$calc($rand(0,15)-5),14,32)
%framuup_madvalues = $instok(%framuup_madvalues,$calc($rand(0,8)-3),15,32)
%framuup_madvalues = $instok(%framuup_madvalues,$calc($rand(0,15)-5),16,32)
%framuup_madvalues = $instok(%framuup_madvalues,$calc($rand(0,15)-5),17,32)
%framuup_madvalues = $instok(%framuup_madvalues,$calc($rand(0,15)-5),18,32)
%framuup_madvalues = $instok(%framuup_madvalues,$calc($rand(0,15)-5),19,32)
%framuup_madvalues = $instok(%framuup_madvalues,$calc($rand(0,15)-5),20,32)
%framuup_madvalues = $instok(%framuup_madvalues,$calc($rand(0,8)-3),21,32)
%framuup_madvalues = $instok(%framuup_madvalues,$calc($rand(0,15)-5),22,32)
%framuup_madvalues = $instok(%framuup_madvalues,$calc($rand(0,15)-5),23,32)
%framuup_madvalues = $instok(%framuup_madvalues,$calc($rand(0,15)-5),24,32)
%framuup_madvalues = $instok(%framuup_madvalues,$calc($rand(0,15)-5),25,32)
%framuup_madvalues = $instok(%framuup_madvalues,$calc($rand(0,15)-5),26,32)
unset %framuup_madvaluesline
unset %framuup_oklets
unset %framuup_badlets
%i = 1
while (%i <= 26) {
if ($gettok(%framuup_madvalues,%i,32) < 0) set %framuup_temp 4 $+ $chr($calc(64 + %i)) $+ = $+ $gettok(%framuup_madvalues,%i,32)
else set %framuup_temp 8 $+ $chr($calc(64 + %i)) $+ = $+ $gettok(%framuup_madvalues,%i,32)
%framuup_madvaluesline = $instok(%framuup_madvaluesline,%framuup_temp,%i,32)
if ($gettok(%framuup_madvalues,%i,32) < 0) set %framuup_badlets $addtok(%framuup_badlets,%framuup_temp,32)
else set %framuup_oklets $addtok(%framuup_oklets,%framuup_temp,32)
inc %i
}
}
alias framuup_card {
if ($1 == 1) return Prima
if ($1 == 2) return Seconda
if ($1 == 3) return Terza
if ($1 == 4) return Quarta
if ($1 == 5) return Quinta
if ($1 == 6) return Sesta
if ($1 == 7) return Settima
if ($1 == 8) return Ottava
if ($1 == 9) return Nona
if ($1 == 10) return Decima
if ($1 == 11) return Undicesima
if ($1 == 12) return Dodicesima
}
alias framuup_alert {
msg %game_channel 9,1 ©º°¨8,1 Mancano solo 10 secondi. Fate in fretta!9,1 ¨°º©
.timerend 1 10 framuup_endofmanche
}
alias framuup_endofmanche {
set %framuup_manche OFF
msg %game_channel 9,1 ©º°¨8,1 Tempo Scaduto!9,1 ¨°º©
if (%framuup_bonustype == 1) msg %game_channel 9,1 Lettera bonus8,1 x $+ %framuup_bmult $+ 9,1 in posizione8,1 %framuup_bpos 9,1 era la8,1 $upper(%framuup_blet) $+ 9,1 . Risultati della 8,1 %framuup_manchenum $+ ª9,1 manche:
if (%framuup_bonustype == 2) msg %game_channel 9,1 Lettera8,1 $upper(%framuup_blet) 9,1bonus8,1 x $+ %framuup_bmult $+ 9,1 era sulla posizione8,1 %framuup_bpos $+ 9,1 . Risultati della 8,1 %framuup_manchenum $+ ª9,1 manche:
if (%framuup_bonustype == 3) msg %game_channel 9,1 Tutte le vocali valgono 8,1doppio 9,1in questa manche. Risultati della 8,1 %framuup_manchenum $+ ª9,1 manche:
if (%framuup_bonustype == 4) msg %game_channel 9,1 Tutte le lettere8,1 $upper(%framuup_blet) 9,1in questa manche valgono8,1 doppio9,1 . Risultati della 8,1 %framuup_manchenum $+ ª9,1 manche:
if (%framuup_bonustype == 5) msg %game_channel 9,1 Le parole che iniziano per8,1 $upper(%framuup_blet) 9,1 hanno 8,1 + $+ %framuup_bpoints punti9,1 . Risultati della 8,1 %framuup_manchenum $+ ª9,1 manche:
framuup_elabora
close -m
set %framuup_timercount 1
set %framuup_fatto 0
set %framuup_ntim $calc($lines(framuupmanche.txt) + 1)
.timermsg %framuup_ntim 2 framuup_resmsg
}
alias framuup_elabora {
set %z 1
while ( %z <= $lines(framuupmanche.txt) ) {
set %framuup_finale 0
set %framuup_elline $read -l %z framuupmanche.txt
set %framuup_remains $gettok(%framuup_elline,2,46)
set %framuup_elline $instok(%framuup_elline,-,3,46)
set %framuup_elline $instok(%framuup_elline,-,3,46)
if (%z == 1) { set %framuup_elline $puttok(%framuup_elline,Velocità [2],4,46) }
set %framuup_letpos 1
while ($len(%framuup_remains) > 0) {
set %framuup_leflet $calc($len(%framuup_remains) - 1 )
set %framuup_proclet $left(%framuup_remains,1)
set %framuup_remains $right(%framuup_remains,%framuup_leflet)
set %framuup_let_pts $framuup_ptsxlet(%framuup_proclet)
if (%framuup_bonustype <= 2) {
if ( %framuup_blet == %framuup_proclet ) && ( %framuup_bpos == %framuup_letpos ) {
set %framuup_let_pts $calc(%framuup_let_pts * %framuup_bmult)
set %framuup_elbonuses $gettok(%framuup_elline,4,46)
if (%framuup_elbonuses == -) { set %framuup_elline $puttok(%framuup_elline,Bonus[ $+ x $+ %framuup_bmult $+ ],4,46) }
else {
set %framuup_elbonuses $addtok(%framuup_elbonuses,Bonus[ $+ x $+ %framuup_bmult $+ ],43)
set %framuup_elline $puttok(%framuup_elline,%framuup_elbonuses,4,46)
}
}
}
if (%framuup_bonustype == 4) && (%framuup_proclet == %framuup_blet) { set %framuup_let_pts $calc(%framuup_let_pts * 2) }
if (%framuup_bonustype == 5) && (%framuup_proclet = %framuup_blet) && (%framuup_letpos == 1) {
set %framuup_elbonuses $gettok(%framuup_elline,4,46)
if (%framuup_elbonuses == -) { set %framuup_elline $puttok(%framuup_elline,LetteraIniziale,4,46) }
else {
set %framuup_elbonuses $addtok(%framuup_elbonuses,LetteraIniziale,43)
set %framuup_elline $puttok(%framuup_elline,%framuup_elbonuses,4,46)
}
}
inc %framuup_finale %framuup_let_pts
inc %framuup_letpos
}
set %framuup_elline $puttok(%framuup_elline,%framuup_finale,3,46)
write -l %z framuupmanche.txt %framuup_elline
inc %z
}
framuup_bonusleng
}
alias framuup_ptsxlet {
if (%framuup_mad == 0) {
if ($1 == a) && (%framuup_bonustype != 3) return 1
if ($1 == a) && (%framuup_bonustype == 3) return 2
if ($1 == b) return 3
if ($1 == c) return 1
if ($1 == d) return 3
if ($1 == e) && (%framuup_bonustype != 3) return 1
if ($1 == e) && (%framuup_bonustype == 3) return 2
if ($1 == f) return 3
if ($1 == g) return 3
if ($1 == h) return 6
if ($1 == i) && (%framuup_bonustype != 3) return 1
if ($1 == i) && (%framuup_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) && (%framuup_bonustype != 3) return 1
if ($1 == o) && (%framuup_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) && (%framuup_bonustype != 3) return 3
if ($1 == u) && (%framuup_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 (%framuup_mad == 1) {
if ($1 == a) && (%framuup_bonustype != 3) return $gettok(%framuup_madvalues,1,32)
if ($1 == a) && (%framuup_bonustype == 3) return $calc(2 * $gettok(%framuup_madvalues,1,32))
if ($1 == b) return $gettok(%framuup_madvalues,2,32)
if ($1 == c) return $gettok(%framuup_madvalues,3,32)
if ($1 == d) return $gettok(%framuup_madvalues,4,32)
if ($1 == e) && (%framuup_bonustype != 3) return $gettok(%framuup_madvalues,5,32)
if ($1 == e) && (%framuup_bonustype == 3) return $calc(2 * $gettok(%framuup_madvalues,5,32))
if ($1 == f) return $gettok(%framuup_madvalues,6,32)
if ($1 == g) return $gettok(%framuup_madvalues,7,32)
if ($1 == h) return $gettok(%framuup_madvalues,8,32)
if ($1 == i) && (%framuup_bonustype != 3) return $gettok(%framuup_madvalues,9,32)
if ($1 == i) && (%framuup_bonustype == 3) return $calc(2 * $gettok(%framuup_madvalues,9,32))
if ($1 == j) return $gettok(%framuup_madvalues,10,32)
if ($1 == k) return $gettok(%framuup_madvalues,11,32)
if ($1 == l) return $gettok(%framuup_madvalues,12,32)
if ($1 == m) return $gettok(%framuup_madvalues,13,32)
if ($1 == n) return $gettok(%framuup_madvalues,14,32)
if ($1 == o) && (%framuup_bonustype != 3) return $gettok(%framuup_madvalues,15,32)
if ($1 == o) && (%framuup_bonustype == 3) return $calc(2 * $gettok(%framuup_madvalues,15,32))
if ($1 == p) return $gettok(%framuup_madvalues,16,32)
if ($1 == q) return $gettok(%framuup_madvalues,17,32)
if ($1 == r) return $gettok(%framuup_madvalues,18,32)
if ($1 == s) return $gettok(%framuup_madvalues,19,32)
if ($1 == t) return $gettok(%framuup_madvalues,20,32)
if ($1 == u) && (%framuup_bonustype != 3) return $gettok(%framuup_madvalues,21,32)
if ($1 == u) && (%framuup_bonustype == 3) return $calc(2 * $gettok(%framuup_madvalues,21,32))
if ($1 == v) return $gettok(%framuup_madvalues,22,32)
if ($1 == w) return $gettok(%framuup_madvalues,23,32)
if ($1 == x) return $gettok(%framuup_madvalues,24,32)
if ($1 == y) return $gettok(%framuup_madvalues,25,32)
if ($1 == z) return $gettok(%framuup_madvalues,26,32)
if ($1 == -) return 0
if ($1 == `) return 0
}
}
alias framuup_bonusleng {
set %z 1
set %framuup_blmax 0
while (%z <= $lines(framuupmanche.txt)) {
set %framuup_blline $read -l %z framuupmanche.txt
set %framuup_blword $gettok(%framuup_blline,2,46)
if ($len(%framuup_blword) > %framuup_blmax) { set %framuup_blmax $len(%framuup_blword) }
inc %z
}
set %z 1
while (%z <= $lines(framuupmanche.txt)) {
set %framuup_blline $read -l %z framuupmanche.txt
set %framuup_blword $gettok(%framuup_blline,2,46)
if ($len(%framuup_blword) == %framuup_blmax) {
set %framuup_bonuses $gettok(%framuup_blline,4,46)
if (%framuup_bonuses == -) { set %framuup_blline $puttok(%framuup_blline,Lunghezza[4],4,46) | write -l %z framuupmanche.txt %framuup_blline }
else {
set %framuup_bonuses $addtok(%framuup_bonuses,Lunghezza[4],43)
set %framuup_blline $puttok(%framuup_blline,%framuup_bonuses,4,46)
write -l %z framuupmanche.txt %framuup_blline
}
}
inc %z
}
framuup_bonusorig
}
alias framuup_bonusorig {
set %z 1
while (%z <= $lines(framuupmanche.txt)) {
set %framuup_rfwf 0
set %q 1
set %framuup_borefline $read -l %z framuupmanche.txt
set %framuup_borefword $gettok(%framuup_borefline,2,46)
while (%q <= $lines(framuupmanche.txt)) && (%framuup_rfwf == 0) {
set %framuup_boline $read -l %q framuupmanche.txt
set %framuup_boword $gettok(%framuup_boline,2,46)
if (%framuup_borefword == %framuup_boword) && (%z != %q) { set %framuup_rfwf 1 }
inc %q
}
if (%framuup_rfwf == 0) {
set %framuup_bonuses $gettok(%framuup_borefline,4,46)
if (%framuup_bonuses == -) { set %framuup_borefline $puttok(%framuup_borefline,Originalità [3],4,46) | write -l %z framuupmanche.txt %framuup_borefline }
else {
set %framuup_bonuses $addtok(%framuup_bonuses,Originalità [3],43)
set %framuup_borefline $puttok(%framuup_borefline,%framuup_bonuses,4,46)
write -l %z framuupmanche.txt %framuup_borefline
}
}
inc %z
}
framuup_attrbonus
}
alias framuup_attrbonus {
set %z 1
while (%z <= $lines(framuupmanche.txt)) {
set %framuup_baline $read -l %z framuupmanche.txt
set %framuup_bapts $gettok(%framuup_baline,3,46)
set %framuup_babonu $gettok(%framuup_baline,4,46)
if ( $istok(%framuup_babonu,Velocità [2],43) == $true ) { inc %framuup_bapts 2 }
if ( $istok(%framuup_babonu,Lunghezza[4],43) == $true ) { inc %framuup_bapts 4 }
if ( $istok(%framuup_babonu,Originalità [3],43) == $true ) { inc %framuup_bapts 3 }
if ( $istok(%framuup_babonu,LetteraIniziale,43) == $true ) { inc %framuup_bapts %framuup_bpoints }
set %framuup_baline $puttok(%framuup_baline,%framuup_bapts,3,46)
write -l %z framuupmanche.txt %framuup_baline
inc %z
}
framuup_agg_class
}
alias framuup_agg_class {
set %z 1
while (%z <= $lines(framuupmanche.txt)) {
set %framuup_clline $read -l %z framuupmanche.txt
set %framuup_clnick $gettok(%framuup_clline,1,46)
set %framuup_manchepts $gettok(%framuup_clline,3,46)
framuup_search %framuup_clnick
if (%trovato == 0) {
set %framuup_input %framuup_clnick
set %framuup_input $addtok(%framuup_clnick,%framuup_manchepts,46)
write framuupclass.txt %framuup_input
}
if (%trovato == 1) {
set %framuup_input $read -l %pos framuupclass.txt
set %framuup_oldpts $gettok(%framuup_input,2,46)
inc %framuup_oldpts %framuup_manchepts
set %framuup_input $puttok(%framuup_input,%framuup_oldpts,2,46)
write -l %pos framuupclass.txt %framuup_input
}
inc %z
}
framuup_ordina
}
alias framuup_resmsg {
if ($lines(framuupmanche.txt) == $null ) || ($lines(framuupmanche.txt) == 0) && (%framuup_fatto == 0) { msg %game_channel 4,1 <- nessuna parola trovata -> Una parola che rispettava la sintassi era 8,1 %framuup_extr | set %framuup_fatto 1 }
if (%framuup_timercount <= $lines(framuupmanche.txt)) {
set %linez $read -l %framuup_timercount framuupmanche.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 %game_channel 8,1 %nick 4,1 con la parola8,1 %word 4,1 totalizza8,1 %wscore 4,1 punti9,1 %bonuses
}
if (%framuup_timercount == $calc($lines(framuupmanche.txt) + 1)) { .timerpreclass 1 5 framuup_prepreclass }
inc %framuup_timercount
}
alias framuup_prepreclass {
if $exists(framuupmanche.txt) {
set %framuup_pnrline $read -l $lines(framuupmanche.txt) framuupmanche.txt
set %framuup_pnrecord $gettok(%framuup_pnrline,3,46)
set %framuup_pnrkeeper $gettok(%framuup_pnrline,1,46)
if (%framuup_pnrecord > %framuup_record) && (%framuup_mad == 0) {
msg %game_channel 4,1 Nuovo Record8,1 ( $+ %framuup_pnrecord $+ ) 4,1di punti in una manche. Il precedente9,1 ( $+ %framuup_record $+ ) 4,1apparteneva a9,1 %framuup_reckeeper
set %framuup_record %framuup_pnrecord
set %framuup_reckeeper %framuup_pnrkeeper
set %framuup_pnrline %framuup_reckeeper $+ $chr(35) $+ %framuup_record
write -l 11 framuupRecord.txt %framuup_pnrline
}
.remove framuupmanche.txt
}
.timerclass 1 5 framuup_preclass
}
alias framuup_preclass {
set %timercounter 1
.timerclass 7 2 framuup_msgclass
}
alias framuup_msgclass {
if (%timercounter == 1) { msg %game_channel 9,1 ©º°¨8,1 Classifica:9,1 ¨°º© }
if (%timercounter == 2) {
set %framuup_1line $read -l1 framuupclass.txt
set %framuup_1nick $gettok(%framuup_1line,1,46)
set %framuup_1pts $gettok(%framuup_1line,2,46)
if (%framuup_1pts == $null) { set %framuup_1pts - }
msg %game_channel 8,1 1° posto: ( $+ 9,1 %framuup_1pts $+ 8,1 ) %framuup_1nick
}
if (%timercounter == 3) {
set %framuup_2line $read -l2 framuupclass.txt
set %framuup_2nick $gettok(%framuup_2line,1,46)
set %framuup_2pts $gettok(%framuup_2line,2,46)
if (%framuup_2pts == $null) { set %framuup_2pts - }
msg %game_channel 8,1 2° posto: ( $+ 9,1 %framuup_2pts $+ 8,1 ) %framuup_2nick
}
if (%timercounter == 4) {
set %framuup_3line $read -l3 framuupclass.txt
set %framuup_3nick $gettok(%framuup_3line,1,46)
set %framuup_3pts $gettok(%framuup_3line,2,46)
if (%framuup_3pts == $null) { set %framuup_3pts - }
msg %game_channel 8,1 3° posto: ( $+ 9,1 %framuup_3pts $+ 8,1 ) %framuup_3nick
}
if (%timercounter == 5) {
set %framuup_4line $read -l4 framuupclass.txt
set %framuup_4nick $gettok(%framuup_4line,1,46)
set %framuup_4pts $gettok(%framuup_4line,2,46)
if (%framuup_4pts == $null) { set %framuup_4pts - }
msg %game_channel 8,1 4° posto: ( $+ 9,1 %framuup_4pts $+ 8,1 ) %framuup_4nick
}
if (%timercounter == 6) {
set %framuup_5line $read -l5 framuupclass.txt
set %framuup_5nick $gettok(%framuup_5line,1,46)
set %framuup_5pts $gettok(%framuup_5line,2,46)
if (%framuup_5pts == $null) { set %framuup_5pts - }
msg %game_channel 8,1 5° posto: ( $+ 9,1 %framuup_5pts $+ 8,1 ) %framuup_5nick
}
if (%timercounter == 7) { .timerhub 1 %framuup_pausetime framuup_hub }
inc %timercounter
}
alias framuup_hub {
if ( (( %framuup_1pts > %framuup_2pts ) && ( %framuup_1pts >= %framuup_target )) || (!($exists(framuupclass.txt)) && (%framuup_target == -1)) ) { framuup_endofgame }
else { if (%gameframuup_stato == ON) { msg %game_channel 9,1 ©º°¨8,1 Attenzione! Sta per partire la prossima manche9,1 ¨°º© | .timernew 1 5 framuup_start_manche | set %framuup_hub ON } }
}
menu channel,menubar {
-
Giochi
.Frame-up
..Avvia:framuup_start
..Dialog ON:dialog -m framuupGame framuupGame
..Dialog OFF:dialog -x framuupGame framuupGame
..Pausa/riprendi:framuup_pause
..End of game:framuup_end_query
..Istruzioni:framuup_instr
-
}
dialog framuupGame {
title "Frame-Up by "
size -1 -1 240 288
box "framuup 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:framuupGame:sclick:501: { if (%framuup_manchenum == 0) && (%framuup_hub != ON) { framuup_hub } }
on 1:dialog:framuupGame:sclick:502: { framuup_pause }
on 1:dialog:framuupGame:sclick:503: { framuup_instr }
on 1:dialog:framuupGame:sclick:504: { framuup_end_query }
on 1:dialog:framuupGame:sclick:513: {
if (%gameframuup_stato != OFF) {
if (%framuup_durata < 50) { echo -a 4,1 Non puoi scendere sotto i 40 secondi }
else {
dec %framuup_durata 10
msg %game_channel 8,1 Il tempo a disposizione per ogni manche è ora di 4,1 %framuup_durata 8,1 secondi
}
}
}
on 1:dialog:framuupGame:sclick:512: {
if (%gameframuup_stato != OFF) {
inc %framuup_durata 10
msg %game_channel 8,1 Il tempo a disposizione per ogni manche è ora di 4,1 %framuup_durata 8,1 secondi
}
}
on 1:dialog:framuupGame:sclick:516: {
if (%gameframuup_stato != OFF) {
if (%framuup_pausetime < 15) { echo -a 4,1 Non puoi scendere sotto i 10 secondi }
else {
dec %framuup_pausetime 5
msg %game_channel 8,1 L'attesa tra due manche è ora di 4,1 %framuup_pausetime 8,1 secondi
}
}
}
on 1:dialog:framuupGame:sclick:515: {
if (%gameframuup_stato != OFF) {
inc %framuup_pausetime 5
msg %game_channel 8,1 L'attesa tra due manche è ora di 4,1 %framuup_pausetime 8,1 secondi
}
}
on 1:notice:framem-10*:?: {
if (%gameframuup_stato != OFF) && ($2 == %Game_Password) && (%framuup_target < 500) {
if (%framuup_durata < 50) { .msg $nick Non puoi scendere sotto i 40 secondi }
else {
dec %framuup_durata 10
msg %game_channel Il tempo a disposizione per ogni manche è ora di %framuup_durata secondi
}
}
}
on 1:notice:framem+10*:?: {
if (%gameframuup_stato != OFF) && ($2 == %Game_Password) && (%framuup_target < 500) {
inc %framuup_durata 10
msg %game_channel Il tempo a disposizione per ogni manche è ora di %framuup_durata secondi
}
}
on 1:notice:framep-5*:?:{
if (%gameframuup_stato != OFF) && ($2 == %Game_Password) {
if (%framuup_pausetime < 15) { .msg $nick Non puoi scendere sotto i 10 secondi }
else {
dec %framuup_pausetime 5
msg %game_channel L'attesa tra due manche è ora di %framuup_pausetime secondi
}
}
}
on 1:notice:framep+5*:?:{
if (%gameframuup_stato != OFF) && ($2 == %Game_Password) {
inc %framuup_pausetime 5
msg %game_channel L'attesa tra due manche è ora di %framuup_pausetime secondi
}
}
on 1:notice:frametarget*:?:{
if (%gameframuup_stato != OFF) && ($3 == %Game_Password) && ($2 > 0) {
set %framuup_target $2
msg %game_channel 9,1 Il punteggio da raggiungere ora è:8,1 %framuup_target
}
}
on 1:text:!framuupHs:%game_channel:{
set %i 1
unset %hs
while (%i <= 10) {
set %line $read -l %i framuuprecord.txt
set %nick $gettok(%line,1,35)
set %pts $gettok(%line,2,35)
if $calc(%i % 2) { set %line 8,1 %Pts $+ 8,1 %nick }
else { set %line 4,1 %Pts $+ 4,1 %nick }
set %hs %hs $+ 4,1 •·• $+ %line
inc %i
}
set %line $read -l 11 framuuprecord.txt
set %nick $gettok(%line,1,35)
set %pts $gettok(%line,2,35)
msg %game_channel 9,1 ©º°¨8,1 framuup High Scores9,1 ¨°º©
msg %game_channel 4,1 Record punti in una manche:8,1 %nick 4,1 $+ (8,1 %pts 4,1)
msg %game_channel 4,1 Top Ten media punti: %hs
}