Chat Gratis
milionario
14 Anni 10 Mesi fa #4696
da con
milionario è stato creato da con
ciao a tutti ho trovato questo gioco milionario funziona bene ma c'e' un piccolo problema che non e' automatico.
vi imposto il gioco qui se mi aiutate di fallo partire in automatico.
grazie di cuore per la vostra collaborazione
[script]
n0=;*************************************
n1=;Milionario Script created
n2=;
n3=;Qeusto gioco è stato fatto per il di-
n4=;vertimento in IRC.
n5=;*************************************
n6=
n7=on 1:LOAD: { load -a $scriptdir\milionario2.ini }
n8=
n9=on 1:START: {
n10= echo 4**********************************************************
n11= echo 8Il 11Milionario Script8 è attivo. Inizializzazione in corso
n12= if (%milionario.canale != $null) {
n13= echo 0,2 ! 2,0Cancellazione delle componenti superflue in corso0,2 !2,2-
n14= unset %milionario.*
n15= .disable #milionario
n16= .disable #ditoveloce
n17= ;.disable #pubblico
n18= }
n19= echo 0,1 ^_^ 1,0Inizializzazione completata0,1 ^_^1,1-
n20= echo 4**********************************************************
n21=}
n22=
n23=menu nicklist {
n24= -
n25= $iif(%milionario.canale != $null,$style(2)) Milionario Script 1.0
n26= .Inizia una partita partendo dal dito più veloce: if (%milionario.canale == $null) { set %milionario.canale $chan | milionario_inizia }
n27= .Inizia una partita con $$1: set %milionario.canale $active | set %milionario.giocatore $$1 | milionario_inizionodito | milionario_gioco
n28= .Carica partita: milionario_carica
n29=}
n30=
n31=menu menubar,channel {
n32= -
n33= $iif(%milionario.canale != $null,$style(2)) Milionario Script 1.0
n34= .Inizia una partita partendo dal dito più veloce: set %milionario.canale $chan | milionario_inizia
n35= .Carica partita: milionario_carica
n36=}
n37=
n38=alias milionario_votazioni {
n39= set %stardust $dialog(milionario_votazioni)
n40= if (%stardust) unset %stardust
n41= else dialog -m milionario_votazioni milionario_votazioni
n42=}
n43=
n44=dialog milionario_votazioni {
n45= title "Votazioni"
n46= size -1 -1 139 141
n47= text "A:", 1, 10 10 10 13
n48= edit "0", 2, 25 7 30 21, read
n49= text "voti", 3, 60 10 20 13
n50= edit "0%", 4, 95 7 35 21, read
n51= text "B:", 5, 10 35 10 13
n52= edit "0", 6, 25 32 30 21, read
n53= text "voti", 7, 60 35 20 13
n54= edit "0%", 8, 95 32 35 21, read
n55= text "C:", 9, 10 60 10 13
n56= edit "0", 10, 25 57 30 21, read
n57= text "voti", 11, 60 60 20 13
n58= edit "0%", 12, 95 57 35 21, read
n59= text "D:", 13, 10 85 10 13
n60= edit "0", 14, 25 82 30 21, read
n61= text "voti", 15, 60 85 20 13
n62= edit "0%", 16, 95 82 35 21, read
n63= button "Inizia le votazioni", 17, 10 110 120 25, default
n64= button "A", 18, 10 110 120 25, hide cancel
n65=}
n66=
n67=on 1:DIALOG:milionario_votazioni:sclick:17: {
n68= if ($did(17).text == Inizia le votazioni) {
n69= .enable #votazioni
n70= msg %milionario.canale 11,1{9Chi Vuol Essere Milionario11}8,2 Le votazioni sono aperte
n71= msg %milionario.canale 7,2Il pubblico deve scrivere9 !voto (lettera)
n72= did -a $dname 17 Termina le votazioni
n73= }
n74= else {
n75= .disable #votazioni
n76= msg %milionario.canale 0,2Le votazioni sono terminate11.8 Vediamo i risultati11:
n77= msg %milionario.canale 8,1A11:9 %milionario.votoxcentoa $+ %
n78= msg %milionario.canale 8,1B11:9 %milionario.votoxcentob $+ %
n79= msg %milionario.canale 8,1C11:9 %milionario.votoxcentoc $+ %
n80= msg %milionario.canale 8,1D11:9 %milionario.votoxcentod $+ %
n81= dialog -x $dname
n82= }
n83=}
n84=
n85=on 1:DIALOG:milionario_votazioni:sclick:18: { milionario_votazioni }
n86=
n87=alias milionario_conteggio {
n88= set %stardust $dialog(milionario_conteggio)
n89= if (%stardust) unset %stardust
n90= else dialog -m milionario_conteggio milionario_conteggio
n91=}
n92=
n93=dialog milionario_conteggio {
n94= title "Conteggio alla rovescia"
n95= size -1 -1 212 92
n96= icon 1, 7 7 32 32, $scriptdir\clock.ico
n97= text "30", 2, 95 13 16 12
n98= button "&Inizia", 3, 23 63 78 24, default
n99= button "&Comunica", 4, 111 63 78 24, disabled
n100= button "&Hide", 5, 0 0 0 0, hide cancel
n101=}
n102=
n103=on 1:DIALOG:milionario_conteggio:sclick:3: {
n104= did -b $dname 3
n105= did -e $dname 4
n106= set %milionario.secondi 30
n107= milionario_conta
n108= msg %milionario.canale 4,2CONTEGGIO AVVIATO!0 Avete11 30 secondi0 per discutere
n109=}
n110=
n111=on 1:DIALOG:milionario_conteggio:sclick:4: { msg %milionario.canale 4,2Aiuto del NETFRIEND11:7 mancano8 %milionario.secondi secondi }
n112=
n113=alias milionario_salva {
n114= set %stardust $dialog(milionario_salva)
n115= if (%stardust) unset %stardust
n116= else dialog -m milionario_salva milionario_salva
n117=}
n118=
n119=dialog milionario_salva {
n120= title "Salva partita"
n121= size -1 -1 358 86
n122= text "Nome file:", 1, 4 10 49 13
n123= edit %milionario.giocatore , 2, 54 5 269 23
n124= text ".mil", 3, 326 10 23 13
n125= text "Destinazione:", 4, 4 34 65 13
n126= edit "", 5, 74 29 249 23, read
n127= button "...", 6, 328 30 23 21
n128= button "&Salva partita", 7, 140 56 75 25, default
n129= button "&Hide", 8, 0 0 0 0, hide cancel
n130=}
n131=
n132=on 1:DIALOG:milionario_salva:init:0: { did -a $dname 5 $scriptdirdatafile\ }
n133=on 1:DIALOG:milionario_salva:sclick:6: {
n134= set %milionario.destinazione $sdir($did(5).text,Seleziona la directory di destinazione)
n135= if (%milionario.destinazione != $null) { did -ra $dname 5 %milionario.destinazione }
n136= unset %milionario.destinazione
n137=}
n138=
n139=on 1:DIALOG:milionario_salva:sclick:7: {
n140= writeini $did(5).text $+ $did(2).text $+ .mil Salva nick %milionario.giocatore
n141= writeini $did(5).text $+ $did(2).text $+ .mil Salva punti %milionario.punti
n142= writeini $did(5).text $+ $did(2).text $+ .mil Salva chan %milionario.canale
n143= if (%milionario.aiuto1 == usato) { writeini $did(5).text $+ $did(2).text $+ .mil Salva aiuto1 usato }
n144= if (%milionario.aiuto2 == usato) { writeini $did(5).text $+ $did(2).text $+ .mil Salva aiuto2 usato }
n145= if (%milionario.aiuto3 == usato) { writeini $did(5).text $+ $did(2).text $+ .mil Salva aiuto3 usato }
n146= msg %milionario.canale 11,1{9Chi Vuol Essere Milionario11}8,2 SUONA LA SIRENA!
n147= msg %milionario.canale 11,2 La partita di4 %milionario.giocatore 11verrà salvata
n148= dialog -x $dname
n149= dialog -x milionario_gioco
n150= unset %milionario.*
n151=}
n152=
n153=alias milionario_errore {
n154= set %stardust $dialog(milionario_errore)
n155= if (%stardust) unset %stardust
n156= else dialog -m milionario_errore milionario_errore
n157= dialog -t milionario_errore $gettok($1-,1,42)
n158= did -a milionario_errore 2 $gettok($1-,2,42)
n159=}
n160=
n161=dialog milionario_errore {
n162= title ""
n163= size -1 -1 171 45
n164= option dbu
n165= icon 1, 3 3 16 16, $scriptdir\warning.ico
n166= text "", 2, 24 6 147 6
n167= button "&OK", 3, 66 30 39 12, default ok
n168=}
n169=
n170=alias milionario_ditoveloce {
n171= set %stardust $dialog(milionario_ditoveloce)
n172= if (%stardust) unset %stardust
n173= else dialog -m milionario_ditoveloce milionario_ditoveloce
n174=}
n175=
n176=dialog milionario_ditoveloce {
n177= title "Dito più veloce"
n178= size -1 -1 323 117
n179= icon 1, 3 4 114 110, $scriptdir\milionario.bmp
n180= text "Domanda:", 2, 121 12 51 13, autohs
n181= edit "", 3, 173 8 147 23, autohs
n182= text "Risposta:", 4, 123 38 45 13
n183= edit "", 5, 171 32 149 23
n184= text "Il vincitore è:", 6, 123 60 61 13
n185= edit "", 7, 187 56 133 23, read
n186= button "&Inizia", 8, 171 86 75 25, default
n187= button "d",9,0 0 0 0, hide cancel
n188=}
n189=
n190=on 1:DIALOG:milionario_ditoveloce:sclick:8: {
n191= if ($did(3).text == $null || $did(5).text == $null) { milionario_errore Errore sul dito più veloce*Non hai inserito domanda e/o risposta }
n192= else {
n193= msg %milionario.canale 11,1{9Chi Vuol Essere Milionario11}0,4 Dito più veloce
n194= msg %milionario.canale 7,2Domanda:9 $did(3).text
n195= did -b $dname 3,5,8
n196= set %milionario.rispostadito $did(5).text
n197= .enable #ditoveloce
n198= }
n199=}
n200=
n201=on 1:DIALOG:milionario_ditoveloce:sclick:9: {
n202= msg %milionario.canale 11,1{9Chi Vuol Essere Milionario11}8,2 Il gioco è finito!
n203= unset %milionario.*
n204=}
n205=
n206=alias milionario_gioco {
n207= set %stardust $dialog(milionario_gioco)
n208= if (%stardust) unset %stardust
n209= else dialog -m milionario_gioco milionario_gioco
n210= dialog -t milionario_gioco Milionario: stai giocando con %milionario.giocatore
n211=}
n212=
n213=dialog milionario_gioco {
n214= title ""
n215= size -1 -1 350 266
n216= icon 1, 6 6 114 110, $scriptdir\milionario.bmp
n217= text "Domanda:", 2, 126 10 51 13
n218= edit "", 3, 178 5 163 23, autohs
n219= text "50:50", 4, 122 36 29 13
n220= edit "", 5, 182 51 163 23, autohs
n221= check "", 6, 127 56 13 13
n222= radio "A", 7, 154 57 25 13
n223= edit "", 8, 182 75 163 23, autohs
n224= edit "", 9, 182 99 163 23, autohs
n225= edit "", 10, 182 123 163 23,autohs
n226= radio "B", 11, 154 81 25 13
n227= radio "C", 12, 154 103 25 13
n228= radio "D", 13, 154 127 25 13
n229= check "", 14, 127 80 13 13
n230= check "", 15, 127 102 13 13
n231= check "", 16, 127 126 13 13
n232= button "&Invia la risposta", 17, 128 149 217 25, default
n233= button "&Modifica domanda", 18, 128 177 217 25, disabled
n234= button "&Punteggio", 19, 238 235 107 25
n235= button "I&struzioni", 20, 128 235 105 25
n236= button "S&uona la sirena", 21, 128 207 217 25
n237= text "Quota:", 22, 7 126 33 13
n238= edit "0", 23, 42 122 61 23, right read
n239= text "€", 24, 104 126 5 13
n240= icon 25, 42 149 60 37, $scriptdir\50.bmp, noborder
n241= icon 26, 42 185 60 37, $scriptdir\telefonata.bmp, noborder
n242= icon 27, 42 221 60 37, $scriptdir\pubblico.bmp, noborder
n243= button "d" ,28,1 1 5 5, hide cancel
n244=}
n245=
n246=on 1:DIALOG:milionario_gioco:init:0: {
n247= if (%milionario.partita != caricata) {
n248= set %milionario.gerry 1
n249= set %milionario.50 0
n250= set %milionario.punti 0
n251= }
n252= else {
n253= unset %milionario.partita
n254= dec %milionario.punti
n255= did -r $dname 23
n256= did -a $dname 23 $soldi
n257= inc %milionario.punti
n258= set %milionario.gerry 1
n259= if (%milionario.aiuto1 == usato) {
n260= did -h $dname 4,6,14,15,16
n261= set %milionario.50 2
n262= did -g $dname 25 $scriptdir\50usato.bmp
n263= }
n264= if (%milionario.aiuto2 == usato) { did -g $dname 26 $scriptdir\telefonatausato.bmp }
n265= if (%milionario.aiuto3 == usato) { did -g $dname 27 $scriptdir\pubblicousato.bmp }
n266= }
n267=}
n268=
n269=on 1:DIALOG:milionario_gioco:edit:*: {
n270= if ($did == 3) { set %milionario.domanda $did(3).text }
n271= if ($did == 5) { set %milionario.A $did(5).text }
n272= if ($did == 8) { set %milionario.B $did(8).text }
n273= if ($did == 9) { set %milionario.C $did(9).text }
n274= if ($did == 10) { set %milionario.D $did(10).text }
n275=}
n276=
n277=on 1:DIALOG:milionario_gioco:sclick:6: {
n278= if ($did(6).state == 1) { inc %milionario.50 | set %milionario.50A ok }
n279= if ($did(6).state == 0) { dec %milionario.50 | unset %milionario.50A }
n280= if (%milionario.50 > 2) { did -u $dname 6 | dec %milionario.50 | unset %milionario.50A }
n281=}
n282=
n283=on 1:DIALOG:milionario_gioco:sclick:14: {
n284= if ($did(14).state == 1) { inc %milionario.50 | set %milionario.50B ok }
n285= if ($did(14).state == 0) { dec %milionario.50 | unset %milionario.50B }
n286= if (%milionario.50 > 2) { did -u $dname 14 | dec %milionario.50 | unset %milionario.50B }
n287=}
n288=
n289=on 1:DIALOG:milionario_gioco:sclick:15: {
n290= if ($did(15).state == 1) { inc %milionario.50 | set %milionario.50C ok }
n291= if ($did(15).state == 0) { dec %milionario.50 | unset %milionario.50C }
n292= if (%milionario.50 > 2) { did -u $dname 15 | dec %milionario.50 | unset %milionario.50C }
n293=}
n294=
n295=on 1:DIALOG:milionario_gioco:sclick:16: {
n296= if ($did(16).state == 1) { inc %milionario.50 | set %milionario.50D ok }
n297= if ($did(16).state == 0) { dec %milionario.50 | unset %milionario.50D }
n298= if (%milionario.50 > 2) { did -u $dname 16 | dec %milionario.50 | unset %milionario.50D }
n299=}
n300=
n301=on 1:DIALOG:milionario_gioco:sclick:7: { set %milionario.esatta A }
n302=on 1:DIALOG:milionario_gioco:sclick:11: { set %milionario.esatta B }
n303=on 1:DIALOG:milionario_gioco:sclick:12: { set %milionario.esatta C }
n304=on 1:DIALOG:milionario_gioco:sclick:13: { set %milionario.esatta D }
n305=
n306=on 1:DIALOG:milionario_gioco:sclick:17: {
n307= if (%milionario.domanda == $null) { milionario_errore Errore nella domanda*Non hai scritto una domanda | halt }
n308= if (%milionario.a == $null) { milionario_errore Errore nelle risposte*Non hai scritto la risposta A | halt }
n309= if (%milionario.b == $null) { milionario_errore Errore nelle risposte*Non hai scritto la risposta B | halt }
n310= if (%milionario.c == $null) { milionario_errore Errore nelle risposte*Non hai scritto la risposta C | halt }
n311= if (%milionario.d == $null) { milionario_errore Errore nelle risposte*Non hai scritto la risposta D | halt }
n312= if (%milionario.50 < 2) { milionario_errore Errore nel 50:50*Non hai scelto le 2 risposte che vengono tolte nel 50:50 | halt }
n313= if (%milionario.esatta == $null) { milionario_errore Errore nelle risposte*Non hai scelto la risposta corretta | halt }
n314= if (%milionario.esatta == A && %milionario.50A == ok) { milionario_errore Errore nella concordanza tra il 50:50 e la risposta*Una delle risposte del 50:50 coincidono con la risposta esatta | halt }
n315= if (%milionario.esatta == B && %milionario.50B == ok) { milionario_errore Errore nella concordanza tra il 50:50 e la risposta*Una delle risposte del 50:50 coincidono con la risposta esatta | halt }
n316= if (%milionario.esatta == C && %milionario.50C == ok) { milionario_errore Errore nella concordanza tra il 50:50 e la risposta*Una delle risposte del 50:50 coincidono con la risposta esatta | halt }
n317= if (%milionario.esatta == D && %milionario.50D == ok) { milionario_errore Errore nella concordanza tra il 50:50 e la risposta*Una delle risposte del 50:50 coincidono con la risposta esatta | halt }
n318= msg %milionario.canale 7,2Ecco la domanda n°11 $calc(%milionario.punti + 1) 7da11 $soldi 11Euro
n319= msg %milionario.canale 8,1Domanda11:9 %milionario.domanda
n320= msg %milionario.canale 8,1A11:9 %milionario.a
n321= msg %milionario.canale 8,1B11:9 %milionario.b
n322= msg %milionario.canale 8,1C11:9 %milionario.c
n323= msg %milionario.canale 8,1D11:9 %milionario.d
n324= did -b $dname 3,5,6,7,8,9,10,11,12,13,14,15,16,17
n325= did -e $dname 18
n326= .enable #milionario
n327=}
n328=
n329=on 1:DIALOG:milionario_gioco:sclick:18: {
n330= if ($did(18).text == &Modifica domanda) {
n331= did -e $dname 3,5,8,9,10
n332= did -a $dname 18 &Invia la domanda modificata
n333= msg %milionario.canale 8,2Attendere il cambiamento della risposta. Ci vorranno pochi secondi
n334= .disable #milionario
n335= }
n336= else {
n337= msg %milionario.canale 9,2La risposta è stata modificata11.7 Ecco com'è11:
n338= msg %milionario.canale 8,1Domanda11:9 %milionario.domanda
n339= msg %milionario.canale 8,1A11:9 %milionario.a
n340= msg %milionario.canale 8,1B11:9 %milionario.b
n341= msg %milionario.canale 8,1C11:9 %milionario.c
n342= msg %milionario.canale 8,1D11:9 %milionario.d
n343= did -b $dname 3,5,8,9,10
n344= did -a $dname 18 &Modifica domanda
n345= .enable #milionario
n346= }
n347=}
n348=
n349=on 1:DIALOG:milionario_gioco:sclick:19: { milionario_punteggio }
n350=on 1:DIALOG:milionario_gioco:sclick:20: { milionario_istruzioni }
n351=on 1:DIALOG:milionario_gioco:sclick:21: {
n352= if ($group(#milionario).status == off) {
n353= set %milionario.salva $input(Vuoi salvare la partita di %milionario.giocatore $+ ?,y,Salva partita)
n354= if (%milionario.salva == $false) {
n355= msg %milionario.canale 11,1{9Chi Vuol Essere Milionario11}8,2 SUONA LA SIRENA!
n356= msg %milionario.canale 11,2 La partita di4 %milionario.giocatore 11non verrà salvata
n357= unset %milionario*
n358= dialog -x milionario_gioco
n359= }
n360= if (%milionario.salva == $True) { milionario_salva }
n361= }
n362= else {
n363= set %milionario.salva $input(Vuoi salvare la partita di %milionario.giocatore $+ ?,y,Salva partita)
n364= if (%milionario.salva == $false) {
n365= msg %milionario.canale 11,1{9Chi Vuol Essere Milionario11}8,2 SUONA LA SIRENA!
n366= msg %milionario.canale 11,2 La partita di4 %milionario.giocatore 11non verrà salvata
n367= msg %milionario.canale 7,2 Dai la risposta senza limiti di tempo
n368= set %milionario.sirena attivata
n369= }
n370= }
n371=}
n372=
n373=on 1:DIALOG:milionario_gioco:sclick:28: {
n374= msg %milionario.canale 11,1{9Chi Vuol Essere Milionario11}8,2 Il gioco è finito!
n375= unset %milionario.*
n376=}
n377=
n378=on 1:DIALOG:milionario_gioco:sclick:1: {
n379= if (%milionario.gerry == 1) {
n380= did -g $dname 1 $scriptdir\gerry.bmp
n381= inc %milionario.gerry
n382= }
n383= else {
n384= dec %milionario.gerry
n385= did -g $dname 1 $scriptdir\milionario.bmp
n386= }
n387=}
n388=
n389=#ditoveloce off
n390=on 1:TEXT:%milionario.rispostadito:%milionario.canale: {
n391= msg %milionario.canale 0,4°°°8Congratulazioni0°°°7,2 Hai superato il dito più veloce $+ $nick
n392= msg %milionario.canale 9,2 La risposta corretta era:8 $1-
n393= did -a milionario_ditoveloce 7 $nick
n394= set %milionario.giocatore $nick
n395= .timermil 1 2 dialog -x milionario_ditoveloce | milionario_gioco
n396= .disable #ditoveloce
n397=}
n398=#ditoveloce end
n399=
n400=#milionario off
n401=on 1:TEXT:!dico *:%milionario.canale: {
n402= if ($nick != %milionario.giocatore) { halt }
n403= if ($2 != a && $2 != b && $2 != c && $2 != d) { halt }
n404= if (%milionario.punti != 14) {
n405= if ($2 == a) {
n406= if (%milionario.esatta == a) {
n407= msg %milionario.canale 0,4°°°8Congratulazioni0°°°7,2 Hai vinto11 $soldi Euro
n408= if (%milionario.sirena == attivata) {
n409= msg %milionario.canale 11,1{9Chi Vuol Essere Milionario11}8,2 Il gioco è finito!
n410= dialog -x milionario_gioco
n411= unset %milionario.*
n412= .disable #milionario
n413= halt
n414= }
n415= inc %milionario.punti
n416= msg %milionario.canale 9,2Se sei pronto, possiamo passare alla domanda da11 $soldi Euro
n417= }
n418= else {
n419= msg %milionario.canale 4,2OH NOO!0 HAI SBAGLIATO A DARE LA RISPOSTA
n420= msg %milionario.canale 7,2La risposta corretta era la11:8 $upper(%milionario.esatta)
n421= .disable #milionario
n422= msg %milionario.canale $vittoria
n423= dialog -x milionario_gioco
n424= unset %milionario.*
n425= halt
n426= }
n427= }
n428= if ($2 == b) {
n429= if (%milionario.esatta == b) {
n430= msg %milionario.canale 0,4°°°8Congratulazioni0°°°7,2 Hai vinto11 $soldi Euro
n431= if (%milionario.sirena == attivata) {
n432= msg %milionario.canale 11,1{9Chi Vuol Essere Milionario11}8,2 Il gioco è finito!
n433= dialog -x milionario_gioco
n434= unset %milionario.*
n435= .disable #milionario
n436= halt
n437= }
n438= inc %milionario.punti
n439= msg %milionario.canale 9,2Se sei pronto, possiamo passare alla domanda da11 $soldi Euro }
n440= else {
n441= msg %milionario.canale 4,2OH NOO!0 HAI SBAGLIATO A DARE LA RISPOSTA
n442= msg %milionario.canale 7,2La risposta corretta era la11:8 $upper(%milionario.esatta)
n443= .disable #milionario
n444= msg %milionario.canale $vittoria
n445= dialog -x milionario_gioco
n446= unset %milionario.*
n447= halt
n448= }
n449= }
n450= if ($2 == c) {
n451= if (%milionario.esatta == c) {
n452= msg %milionario.canale 0,4°°°8Congratulazioni0°°°7,2 Hai vinto11 $soldi Euro
n453= if (%milionario.sirena == attivata) {
n454= msg %milionario.canale 11,1{9Chi Vuol Essere Milionario11}8,2 Il gioco è finito!
n455= dialog -x milionario_gioco
n456= unset %milionario.*
n457= .disable #milionario
n458= halt
n459= }
n460= inc %milionario.punti
n461= msg %milionario.canale 9,2Se sei pronto, possiamo passare alla domanda da11 $soldi Euro }
n462= else {
n463= msg %milionario.canale 4,2OH NOO!0 HAI SBAGLIATO A DARE LA RISPOSTA
n464= msg %milionario.canale 7,2La risposta corretta era la11:8 $upper(%milionario.esatta)
n465= .disable #milionario
n466= msg %milionario.canale $vittoria
n467= dialog -x milionario_gioco
n468= unset %milionario.*
n469= halt
n470= }
n471= }
n472= if ($2 == d) {
n473= if (%milionario.esatta == d) {
n474= msg %milionario.canale 0,4°°°8Congratulazioni0°°°7,2 Hai vinto11 $soldi Euro
n475= if (%milionario.sirena == attivata) {
n476= msg %milionario.canale 11,1{9Chi Vuol Essere Milionario11}8,2 Il gioco è finito!
n477= dialog -x milionario_gioco
n478= .disable #milionario
n479= unset %milionario.*
n480= halt
n481= }
n482= inc %milionario.punti
n483= msg %milionario.canale 9,2Se sei pronto, possiamo passare alla domanda da11 $soldi Euro
n484= }
n485= else {
n486= msg %milionario.canale 4,2OH NOO!0 HAI SBAGLIATO A DARE LA RISPOSTA
n487= msg %milionario.canale 7,2La risposta corretta era la11:8 $upper(%milionario.esatta)
n488= msg %milionario.canale $vittoria
n489= dialog -x milionario_gioco
n490= .disable #milionario
n491= unset %milionario.*
n492= halt
n493= }
n494= }
n495= }
n496= else {
n497= if (%milionario.esatta == $2) {
n498= MSG %MILIONARIO.canale 14,2-15,2-0,2>9 HAI VINTO7 IL MILIONE 0<15-14-
n499= msg %milionario.canale 0,2^_^11' 8,2Naturalmente sono soldi virtuali0 ^_^11'
n500= inc %milionario.punti
n501= dialog -x milionario_gioco
n502= milionario_punteggio
n503= unset %milionario.*
n504= halt
n505= }
n506= else {
n507= msg %milionario.canale 4,2OH NOO!0 HAI SBAGLIATO A DARE LA RISPOSTA
n508= msg %milionario.canale 7,2La risposta corretta era la11:8 $upper(%milionario.esatta)
n509= msg %milionario.canale $vittoria
n510= dialog -x milionario_gioco
n511= unset %milionario.*
n512= halt
n513= }
n514= }
n515= .disable #milionario
n516= if (%milionario.aiuto1 != usato) { unset %milionario.50 }
n517= unset %milionario.esatta
n518= unset %milionario.a
n519= unset %milionario.b
n520= unset %milionario.c
n521= unset %milionario.d
n522= unset %milionario.50*
n523= unset %milionario.domanda
n524= unset %milionario.rispostadito
n525= did -r milionario_gioco 3,5,8,9,10
n526= did -e milionario_gioco 3,5,8,9,10,6,7,11,12,13,14,15,16,17
n527= did -b milionario_gioco 18
n528= did -u milionario_gioco 6,7,11,12,13,14,15,16
n529= dec %milionario.punti
n530= did -ra milionario_gioco 23 $soldi
n531= inc %milionario.punti
n532= if (%milionario.aiuto1 == usato) { set %milionario.50 2 }
n533=}
n534=
n535=on 1:TEXT:!aiuto*:%milionario.canale: {
n536= if ($nick != %milionario.giocatore) { halt }
n537= else {
n538= if ($2 == 1) {
n539= if (%milionario.aiuto1 != usato) {
n540= msg %milionario.canale 8,2Hai scelto di usare l'aiuto del11 50:50
n541= msg %milionario.canale 8,1Domanda11:9 %milionario.domanda
n542= if (%milionario.50A != ok) { msg %milionario.canale 8,1A11:9 %milionario.a }
n543= if (%milionario.50B != ok) { msg %milionario.canale 8,1B11:9 %milionario.b }
n544= if (%milionario.50C != ok) { msg %milionario.canale 8,1C11:9 %milionario.c }
n545= if (%milionario.50D != ok) { msg %milionario.canale 8,1D11:9 %milionario.d }
n546= set %milionario.aiuto1 usato
n547= set %milionario.50 2
n548= did -h milionario_gioco 4,6,14,15,16
n549= did -g milionario_gioco 25 $scriptdir\50usato.bmp
n550= }
n551= }
n552= if ($2 == 2) {
n553= if (%milionario.aiuto2 != usato) {
n554= set %milionario.aiuto2 usato
n555= milionario_conteggio
n556= msg %milionario.canale 8,2Hai scelto di usare l'aiuto del11 NETFRIEND.9 Scegli un amico che ti possa aiutare
n557= did -g milionario_gioco 26 $scriptdir\telefonatausato.bmp
n558= }
n559= }
n560= if ($2 == 3) {
n561= if (%milionario.aiuto3 != usato) {
n562= milionario_votazioni
n563= msg %milionario.canale 8,2Hai scelto di usare l'aiuto del11 Pubblico
n564= did -g milionario_gioco 27 $scriptdir\pubblicousato.bmp
n565= set %milionario.aiuto3 usato
n566= }
n567= }
n568= }
n569=}
n570=
n571=#milionario end
n572=
n573=#votazioni off
n574=on 1:TEXT:!voto*:%milionario.canale: {
n575= if ($nick == %milionario.giocatore) { halt }
n576= if (%milionario. [ $+ [ $nick ] ] == $null) {
n577= if (a isin $1-) {
n578= inc %milionario.votoA
n579= inc %milionario.votototale
n580= }
n581= if (b isin $1-) {
n582= inc %milionario.votoB
n583= inc %milionario.votototale
n584= }
n585= if (c isin $1-) {
n586= inc %milionario.votoC
n587= inc %milionario.votototale
n588= }
n589= if (d isin $1-) {
n590= inc %milionario.votoD
n591= inc %milionario.votototale
n592= }
n593= set %milionario.votoxcentoA $round( $calc((%milionario.votoa / %milionario.votototale) * 100) ,0)
n594= did -ra milionario_votazioni 2 %milionario.votoa
n595= did -ra milionario_votazioni 4 %milionario.votoxcentoa $+ %
n596= set %milionario.votoxcentob $round( $calc((%milionario.votob / %milionario.votototale) * 100) ,0)
n597= did -ra milionario_votazioni 6 %milionario.votob
n598= did -ra milionario_votazioni 8 %milionario.votoxcentob $+ %
n599= set %milionario.votoxcentoc $round( $calc((%milionario.votoc / %milionario.votototale) * 100) ,0)
n600= did -ra milionario_votazioni 10 %milionario.votoc
n601= did -ra milionario_votazioni 12 %milionario.votoxcentoc $+ %
n602= set %milionario.votoxcentod $round( $calc((%milionario.votod / %milionario.votototale) * 100) ,0)
n603= did -ra milionario_votazioni 14 %milionario.votod
n604= did -ra milionario_votazioni 16 %milionario.votoxcentod $+ %
n605= }
n606= set %milionario. [ $+ [ $nick ] ] votato
n607=}
n608=
n609=#votazioni end
n610=
n611=on 1:TEXT:!abbandona:%milionario.canale: {
n612= if ($nick != %milionario.giocatore) { halt }
n613= else {
n614= msg %milionario.canale 11,1{9Chi Vuol Essere Milionario11}4,2 %milionario.giocatore ABBANDONA LA PARTITA!
n615= msg %milionario.canale 11,1{9Chi Vuol Essere Milionario11}7,2 Vince11 $did(milionario_gioco,23).text Euro
n616= unset %milionario.*
n617= dialog -x milionario_gioco
n618= }
n619=}
n620=
n621=
n622=alias milionario_istruzioni {
n623= msg %milionario.canale 0,4
> 8Istruzioni0 <
n624= msg %milionario.canale 8Per usare gli aiuti che hai a tua disposizione
n625= msg %milionario.canale 8devi scrivere nel canale in cui si svolge il
n626= msg %milionario.canale 8gioco 9!aiuto #8 che # sta per il numero da di-
n627= msg %milionario.canale 8gitare. I numeri vanno da 1 a 3 e ognuno cor-
n628= msg %milionario.canale 8risponde a un aiuto:
n629= msg %milionario.canale 9 1: 50:50:8 toglie 2 risposte sbagliate
n630= msg %milionario.canale 9 2: NetFriend:8 un NetFriend ti darà la risposta in 30 secondi
n631= msg %milionario.canale 9 3: Pubblico:8 il pubblico presente farà un sondaggio
n632= msg %milionario.canale
n633= msg %milionario.canale 8Se vuoi abbandonare la partita scrivi 9!abbandona
n634= msg %milionario.canale
n635= msg %milionario.canale 8Quando devi rispondere alle domande devi scrivere 9!dico *
n636= msg %milionario.canale 8dove 9*8 sta per la lettera che si desidera dare (A,B,C,D)
n637= msg %milionario.canale
n638= msg %milionario.canale 8Il pubblico qui presente deve scrivere, per votare, 9!voto *
n639= msg %milionario.canale 8che 9*8 sta per la lettera per cui si vuole dare il voto (A,B,C,D)
n640= msg %milionario.canale
n641= msg %milionario.canale 4ATTENZIONE: IL PARTECIPANTE, MENTRE GIOCA, NON DEVE CAMBIARE NICKNAME
n642=}
n643=
n644=alias milionario_punteggio {
n645= msg %milionario.canale 0,2 $iif(%milionario.aiuto1 == usato ,2
,50:50) 4-0 $iif(%milionario.aiuto2 == usato ,2NetF.,NetF.) 4-0 $iif(%milionario.aiuto3 ,2Pubbl,Pubbl2-)
n646= if (%milionario.punti != 15) { msg %milionario.canale 7,2 152
7 1 MILIONE2- }
n647= elseif (%milionario.punti == 15 ) { msg %milionario.canale 1,8 158-1ø8
1 1 MILIONE8- }
n648=
n649= if (%milionario.punti < 14) { msg %milionario.canale 0,2 142
0 300.0002--- }
n650= elseif (%milionario.punti == 14 ) { msg %milionario.canale 1,8 148-1ø8
1 300.0008--- }
n651= elseif (%milionario.punti > 14 ) { msg %milionario.canale 0,2 142-0ø2
0 300.0002--- }
n652=
n653= if (%milionario.punti < 13) { msg %milionario.canale 0,2 132
0 150.0002--- }
n654= elseif (%milionario.punti == 13 ) { msg %milionario.canale 1,8 138-1ø8
1 150.0008--- }
n655= elseif (%milionario.punti > 13 ) { msg %milionario.canale 0,2 132-0ø2
0 150.0002--- }
n656=
n657= if (%milionario.punti < 12) { msg %milionario.canale 0,2 122
0 70.0002---- }
n658= elseif (%milionario.punti == 12 ) { msg %milionario.canale 1,8 128-1ø8
1 70.0008---- }
n659= elseif (%milionario.punti > 12 ) { msg %milionario.canale 0,2 122-0ø2
0 70.0002---- }
n660=
n661= if (%milionario.punti < 11) { msg %milionario.canale 0,2 112
0 35.0002---- }
n662= elseif (%milionario.punti == 11 ) { msg %milionario.canale 1,8 118-1ø8
1 35.0008---- }
n663= elseif (%milionario.punti > 11 ) { msg %milionario.canale 0,2 112-0ø2
0 35.0002---- }
n664=
n665= if (%milionario.punti < 10) { msg %milionario.canale 7,2 102
7 16.0002---- }
n666= elseif (%milionario.punti == 10 ) { msg %milionario.canale 1,8 108-1ø8
1 16.0008---- }
n667= elseif (%milionario.punti > 10 ) { msg %milionario.canale 7,2 102-7ø2
7 16.0002---- }
n668=
n669= if (%milionario.punti < 9) { msg %milionario.canale 2,2-0 92
0 8.0002
}
n670= elseif (%milionario.punti == 9 ) { msg %milionario.canale 8,8-1 98-1ø8
1 8.0008
}
n671= elseif (%milionario.punti > 9 ) { msg %milionario.canale 2,2-0 92-0ø2
0 8.0002
}
n672=
n673= if (%milionario.punti < 8) { msg %milionario.canale 2,2-0 82
0 4.0002
}
n674= elseif (%milionario.punti == 8 ) { msg %milionario.canale 8,8-1 88-1ø8
1 4.0008
}
n675= elseif (%milionario.punti > 8 ) { msg %milionario.canale 2,2-0 82-0ø2
0 4.0002
}
n676=
n677= if (%milionario.punti < 7) { msg %milionario.canale 2,2-0 72
0 2.0002
}
n678= elseif (%milionario.punti == 7 ) { msg %milionario.canale 8,8-1 78-1ø8
1 2.0008
}
n679= elseif (%milionario.punti > 7 ) { msg %milionario.canale 2,2-0 72-0ø2
0 2.0002
}
n680=
n681= if (%milionario.punti < 6) { msg %milionario.canale 2,2-0 62
0 1.0002
}
n682= elseif (%milionario.punti == 6 ) { msg %milionario.canale 8,8-1 68-1ø8
1 1.0008
}
n683= elseif (%milionario.punti > 6 ) { msg %milionario.canale 2,2-0 62-0ø2
0 1.0002
}
n684=
n685= if (%milionario.punti < 5) { msg %milionario.canale 2,2-7 52
7 5002
}
n686= elseif (%milionario.punti == 5 ) { msg %milionario.canale 8,8-1 58-1ø8
1 5008
}
n687= elseif (%milionario.punti > 5 ) { msg %milionario.canale 2,2-7 52-7ø2
7 5002
}
n688=
n689= if (%milionario.punti < 4) { msg %milionario.canale 2,2-0 42
0 3002
}
n690= elseif (%milionario.punti == 4 ) { msg %milionario.canale 8,8-1 48-1ø8
1 3008
}
n691= elseif (%milionario.punti > 4 ) { msg %milionario.canale 2,2-0 42-0ø2
0 3002
}
n692=
n693= if (%milionario.punti < 3) { msg %milionario.canale 2,2-0 32
0 2002
}
n694= elseif (%milionario.punti == 3 ) { msg %milionario.canale 8,8-1 38-1ø8
1 2008
}
n695= elseif (%milionario.punti > 3 ) { msg %milionario.canale 2,2-0 32-0ø2
0 2002
}
n696=
n697= if (%milionario.punti < 2) { msg %milionario.canale 2,2-0 22
0 1002
}
n698= elseif (%milionario.punti == 2 ) { msg %milionario.canale 8,8-1 28-1ø8
1 1008
}
n699= elseif (%milionario.punti > 2 ) { msg %milionario.canale 2,2-0 22-0ø2
0 1002
}
n700=
n701= if (%milionario.punti < 1) { msg %milionario.canale 2,2-0 12
0 502
}
n702= elseif (%milionario.punti == 1 ) { msg %milionario.canale 8,8-1 18-1ø8
1 508
}
n703= elseif (%milionario.punti > 1 ) { msg %milionario.canale 2,2-0 12-0ø2
0 502
}
n704=}
n705=
n706=alias milionario_inizia {
n707= msg %milionario.canale 11,1{9Chi Vuol Essere Milionario11}0,2 Sta avendo inizio all'interno di %milionario.canale
n708= msg %milionario.canale 11,2Si prega di attendere il8 DITO PIU' VELOCE
n709= milionario_ditoveloce
n710=}
n711=
n712=alias milionario_inizionodito {
n713= msg %milionario.canale 11,1{9Chi Vuol Essere Milionario11}9,2 %milionario.giocatore 7è invitato a giocare
n714=}
n715=
n716=alias milionario_carica {
n717= set %milionario.file $sfile($scriptdirdatafile\*.mil,Carica partita,Carica)
n718= if (%milionario.file == $null) { unset %milionario.file | halt }
n719= if ($right(%milionario.file,3) == mil) {
n720= set %stardust $dialog(milionario_carica)
n721= if (%stardust) unset %stardust
n722= else dialog -m milionario_carica milionario_carica
n723= }
n724= else { milionario_errore File .mil*Il file selezionato non corrisponde al formato .MIL }
n725=}
n726=
n727=dialog milionario_carica {
n728= title "Carica partita"
n729= size -1 -1 347 102
n730= text "Nickname del giocatore:", 1, 10 10 115 13
n731= edit "", 2, 130 7 205 21
n732= text "Canale:", 3, 10 35 35 13
n733= edit "", 4, 55 32 280 21
n734= button "&Ok", 5, 135 65 75 25, default cancel
n735=}
n736=
n737=on 1:DIALOG:milionario_carica:init:0: {
n738= set %milionario.giocatore $readini(%milionario.file,Salva,nick)
n739= set %milionario.punti $readini(%milionario.file,Salva,punti)
n740= set %milionario.canale $readini(%milionario.file,Salva,chan)
n741= set %milionario.aiuto1 $readini(%milionario.file,Salva,aiuto1)
n742= set %milionario.aiuto2 $readini(%milionario.file,Salva,aiuto2)
n743= set %milionario.aiuto3 $readini(%milionario.file,Salva,aiuto3)
n744= did -a $dname 2 %milionario.giocatore
n745= did -a $dname 4 %milionario.canale
n746=}
n747=
n748=on 1:DIALOG:milionario_carica:edit:*: {
n749= if ($did == 2) { set %milionario.giocatore $did(2).text }
n750= if ($did == 4) { set %milionario.canale $did(4).text }
n751=}
n752=
n753=on 1:DIALOG:milionario_carica:sclick:5: {
n754= msg %milionario.canale 11,1{9Chi Vuol Essere Milionario11}8,2 La partita di11 %milionario.giocatore 8è stata caricata
n755= set %milionario.partita caricata
n756= dialog -x $dname
n757= milionario_gioco
n758=}
vi imposto il gioco qui se mi aiutate di fallo partire in automatico.
grazie di cuore per la vostra collaborazione
[script]
n0=;*************************************
n1=;Milionario Script created
n2=;
n3=;Qeusto gioco è stato fatto per il di-
n4=;vertimento in IRC.
n5=;*************************************
n6=
n7=on 1:LOAD: { load -a $scriptdir\milionario2.ini }
n8=
n9=on 1:START: {
n10= echo 4**********************************************************
n11= echo 8Il 11Milionario Script8 è attivo. Inizializzazione in corso
n12= if (%milionario.canale != $null) {
n13= echo 0,2 ! 2,0Cancellazione delle componenti superflue in corso0,2 !2,2-
n14= unset %milionario.*
n15= .disable #milionario
n16= .disable #ditoveloce
n17= ;.disable #pubblico
n18= }
n19= echo 0,1 ^_^ 1,0Inizializzazione completata0,1 ^_^1,1-
n20= echo 4**********************************************************
n21=}
n22=
n23=menu nicklist {
n24= -
n25= $iif(%milionario.canale != $null,$style(2)) Milionario Script 1.0
n26= .Inizia una partita partendo dal dito più veloce: if (%milionario.canale == $null) { set %milionario.canale $chan | milionario_inizia }
n27= .Inizia una partita con $$1: set %milionario.canale $active | set %milionario.giocatore $$1 | milionario_inizionodito | milionario_gioco
n28= .Carica partita: milionario_carica
n29=}
n30=
n31=menu menubar,channel {
n32= -
n33= $iif(%milionario.canale != $null,$style(2)) Milionario Script 1.0
n34= .Inizia una partita partendo dal dito più veloce: set %milionario.canale $chan | milionario_inizia
n35= .Carica partita: milionario_carica
n36=}
n37=
n38=alias milionario_votazioni {
n39= set %stardust $dialog(milionario_votazioni)
n40= if (%stardust) unset %stardust
n41= else dialog -m milionario_votazioni milionario_votazioni
n42=}
n43=
n44=dialog milionario_votazioni {
n45= title "Votazioni"
n46= size -1 -1 139 141
n47= text "A:", 1, 10 10 10 13
n48= edit "0", 2, 25 7 30 21, read
n49= text "voti", 3, 60 10 20 13
n50= edit "0%", 4, 95 7 35 21, read
n51= text "B:", 5, 10 35 10 13
n52= edit "0", 6, 25 32 30 21, read
n53= text "voti", 7, 60 35 20 13
n54= edit "0%", 8, 95 32 35 21, read
n55= text "C:", 9, 10 60 10 13
n56= edit "0", 10, 25 57 30 21, read
n57= text "voti", 11, 60 60 20 13
n58= edit "0%", 12, 95 57 35 21, read
n59= text "D:", 13, 10 85 10 13
n60= edit "0", 14, 25 82 30 21, read
n61= text "voti", 15, 60 85 20 13
n62= edit "0%", 16, 95 82 35 21, read
n63= button "Inizia le votazioni", 17, 10 110 120 25, default
n64= button "A", 18, 10 110 120 25, hide cancel
n65=}
n66=
n67=on 1:DIALOG:milionario_votazioni:sclick:17: {
n68= if ($did(17).text == Inizia le votazioni) {
n69= .enable #votazioni
n70= msg %milionario.canale 11,1{9Chi Vuol Essere Milionario11}8,2 Le votazioni sono aperte
n71= msg %milionario.canale 7,2Il pubblico deve scrivere9 !voto (lettera)
n72= did -a $dname 17 Termina le votazioni
n73= }
n74= else {
n75= .disable #votazioni
n76= msg %milionario.canale 0,2Le votazioni sono terminate11.8 Vediamo i risultati11:
n77= msg %milionario.canale 8,1A11:9 %milionario.votoxcentoa $+ %
n78= msg %milionario.canale 8,1B11:9 %milionario.votoxcentob $+ %
n79= msg %milionario.canale 8,1C11:9 %milionario.votoxcentoc $+ %
n80= msg %milionario.canale 8,1D11:9 %milionario.votoxcentod $+ %
n81= dialog -x $dname
n82= }
n83=}
n84=
n85=on 1:DIALOG:milionario_votazioni:sclick:18: { milionario_votazioni }
n86=
n87=alias milionario_conteggio {
n88= set %stardust $dialog(milionario_conteggio)
n89= if (%stardust) unset %stardust
n90= else dialog -m milionario_conteggio milionario_conteggio
n91=}
n92=
n93=dialog milionario_conteggio {
n94= title "Conteggio alla rovescia"
n95= size -1 -1 212 92
n96= icon 1, 7 7 32 32, $scriptdir\clock.ico
n97= text "30", 2, 95 13 16 12
n98= button "&Inizia", 3, 23 63 78 24, default
n99= button "&Comunica", 4, 111 63 78 24, disabled
n100= button "&Hide", 5, 0 0 0 0, hide cancel
n101=}
n102=
n103=on 1:DIALOG:milionario_conteggio:sclick:3: {
n104= did -b $dname 3
n105= did -e $dname 4
n106= set %milionario.secondi 30
n107= milionario_conta
n108= msg %milionario.canale 4,2CONTEGGIO AVVIATO!0 Avete11 30 secondi0 per discutere
n109=}
n110=
n111=on 1:DIALOG:milionario_conteggio:sclick:4: { msg %milionario.canale 4,2Aiuto del NETFRIEND11:7 mancano8 %milionario.secondi secondi }
n112=
n113=alias milionario_salva {
n114= set %stardust $dialog(milionario_salva)
n115= if (%stardust) unset %stardust
n116= else dialog -m milionario_salva milionario_salva
n117=}
n118=
n119=dialog milionario_salva {
n120= title "Salva partita"
n121= size -1 -1 358 86
n122= text "Nome file:", 1, 4 10 49 13
n123= edit %milionario.giocatore , 2, 54 5 269 23
n124= text ".mil", 3, 326 10 23 13
n125= text "Destinazione:", 4, 4 34 65 13
n126= edit "", 5, 74 29 249 23, read
n127= button "...", 6, 328 30 23 21
n128= button "&Salva partita", 7, 140 56 75 25, default
n129= button "&Hide", 8, 0 0 0 0, hide cancel
n130=}
n131=
n132=on 1:DIALOG:milionario_salva:init:0: { did -a $dname 5 $scriptdirdatafile\ }
n133=on 1:DIALOG:milionario_salva:sclick:6: {
n134= set %milionario.destinazione $sdir($did(5).text,Seleziona la directory di destinazione)
n135= if (%milionario.destinazione != $null) { did -ra $dname 5 %milionario.destinazione }
n136= unset %milionario.destinazione
n137=}
n138=
n139=on 1:DIALOG:milionario_salva:sclick:7: {
n140= writeini $did(5).text $+ $did(2).text $+ .mil Salva nick %milionario.giocatore
n141= writeini $did(5).text $+ $did(2).text $+ .mil Salva punti %milionario.punti
n142= writeini $did(5).text $+ $did(2).text $+ .mil Salva chan %milionario.canale
n143= if (%milionario.aiuto1 == usato) { writeini $did(5).text $+ $did(2).text $+ .mil Salva aiuto1 usato }
n144= if (%milionario.aiuto2 == usato) { writeini $did(5).text $+ $did(2).text $+ .mil Salva aiuto2 usato }
n145= if (%milionario.aiuto3 == usato) { writeini $did(5).text $+ $did(2).text $+ .mil Salva aiuto3 usato }
n146= msg %milionario.canale 11,1{9Chi Vuol Essere Milionario11}8,2 SUONA LA SIRENA!
n147= msg %milionario.canale 11,2 La partita di4 %milionario.giocatore 11verrà salvata
n148= dialog -x $dname
n149= dialog -x milionario_gioco
n150= unset %milionario.*
n151=}
n152=
n153=alias milionario_errore {
n154= set %stardust $dialog(milionario_errore)
n155= if (%stardust) unset %stardust
n156= else dialog -m milionario_errore milionario_errore
n157= dialog -t milionario_errore $gettok($1-,1,42)
n158= did -a milionario_errore 2 $gettok($1-,2,42)
n159=}
n160=
n161=dialog milionario_errore {
n162= title ""
n163= size -1 -1 171 45
n164= option dbu
n165= icon 1, 3 3 16 16, $scriptdir\warning.ico
n166= text "", 2, 24 6 147 6
n167= button "&OK", 3, 66 30 39 12, default ok
n168=}
n169=
n170=alias milionario_ditoveloce {
n171= set %stardust $dialog(milionario_ditoveloce)
n172= if (%stardust) unset %stardust
n173= else dialog -m milionario_ditoveloce milionario_ditoveloce
n174=}
n175=
n176=dialog milionario_ditoveloce {
n177= title "Dito più veloce"
n178= size -1 -1 323 117
n179= icon 1, 3 4 114 110, $scriptdir\milionario.bmp
n180= text "Domanda:", 2, 121 12 51 13, autohs
n181= edit "", 3, 173 8 147 23, autohs
n182= text "Risposta:", 4, 123 38 45 13
n183= edit "", 5, 171 32 149 23
n184= text "Il vincitore è:", 6, 123 60 61 13
n185= edit "", 7, 187 56 133 23, read
n186= button "&Inizia", 8, 171 86 75 25, default
n187= button "d",9,0 0 0 0, hide cancel
n188=}
n189=
n190=on 1:DIALOG:milionario_ditoveloce:sclick:8: {
n191= if ($did(3).text == $null || $did(5).text == $null) { milionario_errore Errore sul dito più veloce*Non hai inserito domanda e/o risposta }
n192= else {
n193= msg %milionario.canale 11,1{9Chi Vuol Essere Milionario11}0,4 Dito più veloce
n194= msg %milionario.canale 7,2Domanda:9 $did(3).text
n195= did -b $dname 3,5,8
n196= set %milionario.rispostadito $did(5).text
n197= .enable #ditoveloce
n198= }
n199=}
n200=
n201=on 1:DIALOG:milionario_ditoveloce:sclick:9: {
n202= msg %milionario.canale 11,1{9Chi Vuol Essere Milionario11}8,2 Il gioco è finito!
n203= unset %milionario.*
n204=}
n205=
n206=alias milionario_gioco {
n207= set %stardust $dialog(milionario_gioco)
n208= if (%stardust) unset %stardust
n209= else dialog -m milionario_gioco milionario_gioco
n210= dialog -t milionario_gioco Milionario: stai giocando con %milionario.giocatore
n211=}
n212=
n213=dialog milionario_gioco {
n214= title ""
n215= size -1 -1 350 266
n216= icon 1, 6 6 114 110, $scriptdir\milionario.bmp
n217= text "Domanda:", 2, 126 10 51 13
n218= edit "", 3, 178 5 163 23, autohs
n219= text "50:50", 4, 122 36 29 13
n220= edit "", 5, 182 51 163 23, autohs
n221= check "", 6, 127 56 13 13
n222= radio "A", 7, 154 57 25 13
n223= edit "", 8, 182 75 163 23, autohs
n224= edit "", 9, 182 99 163 23, autohs
n225= edit "", 10, 182 123 163 23,autohs
n226= radio "B", 11, 154 81 25 13
n227= radio "C", 12, 154 103 25 13
n228= radio "D", 13, 154 127 25 13
n229= check "", 14, 127 80 13 13
n230= check "", 15, 127 102 13 13
n231= check "", 16, 127 126 13 13
n232= button "&Invia la risposta", 17, 128 149 217 25, default
n233= button "&Modifica domanda", 18, 128 177 217 25, disabled
n234= button "&Punteggio", 19, 238 235 107 25
n235= button "I&struzioni", 20, 128 235 105 25
n236= button "S&uona la sirena", 21, 128 207 217 25
n237= text "Quota:", 22, 7 126 33 13
n238= edit "0", 23, 42 122 61 23, right read
n239= text "€", 24, 104 126 5 13
n240= icon 25, 42 149 60 37, $scriptdir\50.bmp, noborder
n241= icon 26, 42 185 60 37, $scriptdir\telefonata.bmp, noborder
n242= icon 27, 42 221 60 37, $scriptdir\pubblico.bmp, noborder
n243= button "d" ,28,1 1 5 5, hide cancel
n244=}
n245=
n246=on 1:DIALOG:milionario_gioco:init:0: {
n247= if (%milionario.partita != caricata) {
n248= set %milionario.gerry 1
n249= set %milionario.50 0
n250= set %milionario.punti 0
n251= }
n252= else {
n253= unset %milionario.partita
n254= dec %milionario.punti
n255= did -r $dname 23
n256= did -a $dname 23 $soldi
n257= inc %milionario.punti
n258= set %milionario.gerry 1
n259= if (%milionario.aiuto1 == usato) {
n260= did -h $dname 4,6,14,15,16
n261= set %milionario.50 2
n262= did -g $dname 25 $scriptdir\50usato.bmp
n263= }
n264= if (%milionario.aiuto2 == usato) { did -g $dname 26 $scriptdir\telefonatausato.bmp }
n265= if (%milionario.aiuto3 == usato) { did -g $dname 27 $scriptdir\pubblicousato.bmp }
n266= }
n267=}
n268=
n269=on 1:DIALOG:milionario_gioco:edit:*: {
n270= if ($did == 3) { set %milionario.domanda $did(3).text }
n271= if ($did == 5) { set %milionario.A $did(5).text }
n272= if ($did == 8) { set %milionario.B $did(8).text }
n273= if ($did == 9) { set %milionario.C $did(9).text }
n274= if ($did == 10) { set %milionario.D $did(10).text }
n275=}
n276=
n277=on 1:DIALOG:milionario_gioco:sclick:6: {
n278= if ($did(6).state == 1) { inc %milionario.50 | set %milionario.50A ok }
n279= if ($did(6).state == 0) { dec %milionario.50 | unset %milionario.50A }
n280= if (%milionario.50 > 2) { did -u $dname 6 | dec %milionario.50 | unset %milionario.50A }
n281=}
n282=
n283=on 1:DIALOG:milionario_gioco:sclick:14: {
n284= if ($did(14).state == 1) { inc %milionario.50 | set %milionario.50B ok }
n285= if ($did(14).state == 0) { dec %milionario.50 | unset %milionario.50B }
n286= if (%milionario.50 > 2) { did -u $dname 14 | dec %milionario.50 | unset %milionario.50B }
n287=}
n288=
n289=on 1:DIALOG:milionario_gioco:sclick:15: {
n290= if ($did(15).state == 1) { inc %milionario.50 | set %milionario.50C ok }
n291= if ($did(15).state == 0) { dec %milionario.50 | unset %milionario.50C }
n292= if (%milionario.50 > 2) { did -u $dname 15 | dec %milionario.50 | unset %milionario.50C }
n293=}
n294=
n295=on 1:DIALOG:milionario_gioco:sclick:16: {
n296= if ($did(16).state == 1) { inc %milionario.50 | set %milionario.50D ok }
n297= if ($did(16).state == 0) { dec %milionario.50 | unset %milionario.50D }
n298= if (%milionario.50 > 2) { did -u $dname 16 | dec %milionario.50 | unset %milionario.50D }
n299=}
n300=
n301=on 1:DIALOG:milionario_gioco:sclick:7: { set %milionario.esatta A }
n302=on 1:DIALOG:milionario_gioco:sclick:11: { set %milionario.esatta B }
n303=on 1:DIALOG:milionario_gioco:sclick:12: { set %milionario.esatta C }
n304=on 1:DIALOG:milionario_gioco:sclick:13: { set %milionario.esatta D }
n305=
n306=on 1:DIALOG:milionario_gioco:sclick:17: {
n307= if (%milionario.domanda == $null) { milionario_errore Errore nella domanda*Non hai scritto una domanda | halt }
n308= if (%milionario.a == $null) { milionario_errore Errore nelle risposte*Non hai scritto la risposta A | halt }
n309= if (%milionario.b == $null) { milionario_errore Errore nelle risposte*Non hai scritto la risposta B | halt }
n310= if (%milionario.c == $null) { milionario_errore Errore nelle risposte*Non hai scritto la risposta C | halt }
n311= if (%milionario.d == $null) { milionario_errore Errore nelle risposte*Non hai scritto la risposta D | halt }
n312= if (%milionario.50 < 2) { milionario_errore Errore nel 50:50*Non hai scelto le 2 risposte che vengono tolte nel 50:50 | halt }
n313= if (%milionario.esatta == $null) { milionario_errore Errore nelle risposte*Non hai scelto la risposta corretta | halt }
n314= if (%milionario.esatta == A && %milionario.50A == ok) { milionario_errore Errore nella concordanza tra il 50:50 e la risposta*Una delle risposte del 50:50 coincidono con la risposta esatta | halt }
n315= if (%milionario.esatta == B && %milionario.50B == ok) { milionario_errore Errore nella concordanza tra il 50:50 e la risposta*Una delle risposte del 50:50 coincidono con la risposta esatta | halt }
n316= if (%milionario.esatta == C && %milionario.50C == ok) { milionario_errore Errore nella concordanza tra il 50:50 e la risposta*Una delle risposte del 50:50 coincidono con la risposta esatta | halt }
n317= if (%milionario.esatta == D && %milionario.50D == ok) { milionario_errore Errore nella concordanza tra il 50:50 e la risposta*Una delle risposte del 50:50 coincidono con la risposta esatta | halt }
n318= msg %milionario.canale 7,2Ecco la domanda n°11 $calc(%milionario.punti + 1) 7da11 $soldi 11Euro
n319= msg %milionario.canale 8,1Domanda11:9 %milionario.domanda
n320= msg %milionario.canale 8,1A11:9 %milionario.a
n321= msg %milionario.canale 8,1B11:9 %milionario.b
n322= msg %milionario.canale 8,1C11:9 %milionario.c
n323= msg %milionario.canale 8,1D11:9 %milionario.d
n324= did -b $dname 3,5,6,7,8,9,10,11,12,13,14,15,16,17
n325= did -e $dname 18
n326= .enable #milionario
n327=}
n328=
n329=on 1:DIALOG:milionario_gioco:sclick:18: {
n330= if ($did(18).text == &Modifica domanda) {
n331= did -e $dname 3,5,8,9,10
n332= did -a $dname 18 &Invia la domanda modificata
n333= msg %milionario.canale 8,2Attendere il cambiamento della risposta. Ci vorranno pochi secondi
n334= .disable #milionario
n335= }
n336= else {
n337= msg %milionario.canale 9,2La risposta è stata modificata11.7 Ecco com'è11:
n338= msg %milionario.canale 8,1Domanda11:9 %milionario.domanda
n339= msg %milionario.canale 8,1A11:9 %milionario.a
n340= msg %milionario.canale 8,1B11:9 %milionario.b
n341= msg %milionario.canale 8,1C11:9 %milionario.c
n342= msg %milionario.canale 8,1D11:9 %milionario.d
n343= did -b $dname 3,5,8,9,10
n344= did -a $dname 18 &Modifica domanda
n345= .enable #milionario
n346= }
n347=}
n348=
n349=on 1:DIALOG:milionario_gioco:sclick:19: { milionario_punteggio }
n350=on 1:DIALOG:milionario_gioco:sclick:20: { milionario_istruzioni }
n351=on 1:DIALOG:milionario_gioco:sclick:21: {
n352= if ($group(#milionario).status == off) {
n353= set %milionario.salva $input(Vuoi salvare la partita di %milionario.giocatore $+ ?,y,Salva partita)
n354= if (%milionario.salva == $false) {
n355= msg %milionario.canale 11,1{9Chi Vuol Essere Milionario11}8,2 SUONA LA SIRENA!
n356= msg %milionario.canale 11,2 La partita di4 %milionario.giocatore 11non verrà salvata
n357= unset %milionario*
n358= dialog -x milionario_gioco
n359= }
n360= if (%milionario.salva == $True) { milionario_salva }
n361= }
n362= else {
n363= set %milionario.salva $input(Vuoi salvare la partita di %milionario.giocatore $+ ?,y,Salva partita)
n364= if (%milionario.salva == $false) {
n365= msg %milionario.canale 11,1{9Chi Vuol Essere Milionario11}8,2 SUONA LA SIRENA!
n366= msg %milionario.canale 11,2 La partita di4 %milionario.giocatore 11non verrà salvata
n367= msg %milionario.canale 7,2 Dai la risposta senza limiti di tempo
n368= set %milionario.sirena attivata
n369= }
n370= }
n371=}
n372=
n373=on 1:DIALOG:milionario_gioco:sclick:28: {
n374= msg %milionario.canale 11,1{9Chi Vuol Essere Milionario11}8,2 Il gioco è finito!
n375= unset %milionario.*
n376=}
n377=
n378=on 1:DIALOG:milionario_gioco:sclick:1: {
n379= if (%milionario.gerry == 1) {
n380= did -g $dname 1 $scriptdir\gerry.bmp
n381= inc %milionario.gerry
n382= }
n383= else {
n384= dec %milionario.gerry
n385= did -g $dname 1 $scriptdir\milionario.bmp
n386= }
n387=}
n388=
n389=#ditoveloce off
n390=on 1:TEXT:%milionario.rispostadito:%milionario.canale: {
n391= msg %milionario.canale 0,4°°°8Congratulazioni0°°°7,2 Hai superato il dito più veloce $+ $nick
n392= msg %milionario.canale 9,2 La risposta corretta era:8 $1-
n393= did -a milionario_ditoveloce 7 $nick
n394= set %milionario.giocatore $nick
n395= .timermil 1 2 dialog -x milionario_ditoveloce | milionario_gioco
n396= .disable #ditoveloce
n397=}
n398=#ditoveloce end
n399=
n400=#milionario off
n401=on 1:TEXT:!dico *:%milionario.canale: {
n402= if ($nick != %milionario.giocatore) { halt }
n403= if ($2 != a && $2 != b && $2 != c && $2 != d) { halt }
n404= if (%milionario.punti != 14) {
n405= if ($2 == a) {
n406= if (%milionario.esatta == a) {
n407= msg %milionario.canale 0,4°°°8Congratulazioni0°°°7,2 Hai vinto11 $soldi Euro
n408= if (%milionario.sirena == attivata) {
n409= msg %milionario.canale 11,1{9Chi Vuol Essere Milionario11}8,2 Il gioco è finito!
n410= dialog -x milionario_gioco
n411= unset %milionario.*
n412= .disable #milionario
n413= halt
n414= }
n415= inc %milionario.punti
n416= msg %milionario.canale 9,2Se sei pronto, possiamo passare alla domanda da11 $soldi Euro
n417= }
n418= else {
n419= msg %milionario.canale 4,2OH NOO!0 HAI SBAGLIATO A DARE LA RISPOSTA
n420= msg %milionario.canale 7,2La risposta corretta era la11:8 $upper(%milionario.esatta)
n421= .disable #milionario
n422= msg %milionario.canale $vittoria
n423= dialog -x milionario_gioco
n424= unset %milionario.*
n425= halt
n426= }
n427= }
n428= if ($2 == b) {
n429= if (%milionario.esatta == b) {
n430= msg %milionario.canale 0,4°°°8Congratulazioni0°°°7,2 Hai vinto11 $soldi Euro
n431= if (%milionario.sirena == attivata) {
n432= msg %milionario.canale 11,1{9Chi Vuol Essere Milionario11}8,2 Il gioco è finito!
n433= dialog -x milionario_gioco
n434= unset %milionario.*
n435= .disable #milionario
n436= halt
n437= }
n438= inc %milionario.punti
n439= msg %milionario.canale 9,2Se sei pronto, possiamo passare alla domanda da11 $soldi Euro }
n440= else {
n441= msg %milionario.canale 4,2OH NOO!0 HAI SBAGLIATO A DARE LA RISPOSTA
n442= msg %milionario.canale 7,2La risposta corretta era la11:8 $upper(%milionario.esatta)
n443= .disable #milionario
n444= msg %milionario.canale $vittoria
n445= dialog -x milionario_gioco
n446= unset %milionario.*
n447= halt
n448= }
n449= }
n450= if ($2 == c) {
n451= if (%milionario.esatta == c) {
n452= msg %milionario.canale 0,4°°°8Congratulazioni0°°°7,2 Hai vinto11 $soldi Euro
n453= if (%milionario.sirena == attivata) {
n454= msg %milionario.canale 11,1{9Chi Vuol Essere Milionario11}8,2 Il gioco è finito!
n455= dialog -x milionario_gioco
n456= unset %milionario.*
n457= .disable #milionario
n458= halt
n459= }
n460= inc %milionario.punti
n461= msg %milionario.canale 9,2Se sei pronto, possiamo passare alla domanda da11 $soldi Euro }
n462= else {
n463= msg %milionario.canale 4,2OH NOO!0 HAI SBAGLIATO A DARE LA RISPOSTA
n464= msg %milionario.canale 7,2La risposta corretta era la11:8 $upper(%milionario.esatta)
n465= .disable #milionario
n466= msg %milionario.canale $vittoria
n467= dialog -x milionario_gioco
n468= unset %milionario.*
n469= halt
n470= }
n471= }
n472= if ($2 == d) {
n473= if (%milionario.esatta == d) {
n474= msg %milionario.canale 0,4°°°8Congratulazioni0°°°7,2 Hai vinto11 $soldi Euro
n475= if (%milionario.sirena == attivata) {
n476= msg %milionario.canale 11,1{9Chi Vuol Essere Milionario11}8,2 Il gioco è finito!
n477= dialog -x milionario_gioco
n478= .disable #milionario
n479= unset %milionario.*
n480= halt
n481= }
n482= inc %milionario.punti
n483= msg %milionario.canale 9,2Se sei pronto, possiamo passare alla domanda da11 $soldi Euro
n484= }
n485= else {
n486= msg %milionario.canale 4,2OH NOO!0 HAI SBAGLIATO A DARE LA RISPOSTA
n487= msg %milionario.canale 7,2La risposta corretta era la11:8 $upper(%milionario.esatta)
n488= msg %milionario.canale $vittoria
n489= dialog -x milionario_gioco
n490= .disable #milionario
n491= unset %milionario.*
n492= halt
n493= }
n494= }
n495= }
n496= else {
n497= if (%milionario.esatta == $2) {
n498= MSG %MILIONARIO.canale 14,2-15,2-0,2>9 HAI VINTO7 IL MILIONE 0<15-14-
n499= msg %milionario.canale 0,2^_^11' 8,2Naturalmente sono soldi virtuali0 ^_^11'
n500= inc %milionario.punti
n501= dialog -x milionario_gioco
n502= milionario_punteggio
n503= unset %milionario.*
n504= halt
n505= }
n506= else {
n507= msg %milionario.canale 4,2OH NOO!0 HAI SBAGLIATO A DARE LA RISPOSTA
n508= msg %milionario.canale 7,2La risposta corretta era la11:8 $upper(%milionario.esatta)
n509= msg %milionario.canale $vittoria
n510= dialog -x milionario_gioco
n511= unset %milionario.*
n512= halt
n513= }
n514= }
n515= .disable #milionario
n516= if (%milionario.aiuto1 != usato) { unset %milionario.50 }
n517= unset %milionario.esatta
n518= unset %milionario.a
n519= unset %milionario.b
n520= unset %milionario.c
n521= unset %milionario.d
n522= unset %milionario.50*
n523= unset %milionario.domanda
n524= unset %milionario.rispostadito
n525= did -r milionario_gioco 3,5,8,9,10
n526= did -e milionario_gioco 3,5,8,9,10,6,7,11,12,13,14,15,16,17
n527= did -b milionario_gioco 18
n528= did -u milionario_gioco 6,7,11,12,13,14,15,16
n529= dec %milionario.punti
n530= did -ra milionario_gioco 23 $soldi
n531= inc %milionario.punti
n532= if (%milionario.aiuto1 == usato) { set %milionario.50 2 }
n533=}
n534=
n535=on 1:TEXT:!aiuto*:%milionario.canale: {
n536= if ($nick != %milionario.giocatore) { halt }
n537= else {
n538= if ($2 == 1) {
n539= if (%milionario.aiuto1 != usato) {
n540= msg %milionario.canale 8,2Hai scelto di usare l'aiuto del11 50:50
n541= msg %milionario.canale 8,1Domanda11:9 %milionario.domanda
n542= if (%milionario.50A != ok) { msg %milionario.canale 8,1A11:9 %milionario.a }
n543= if (%milionario.50B != ok) { msg %milionario.canale 8,1B11:9 %milionario.b }
n544= if (%milionario.50C != ok) { msg %milionario.canale 8,1C11:9 %milionario.c }
n545= if (%milionario.50D != ok) { msg %milionario.canale 8,1D11:9 %milionario.d }
n546= set %milionario.aiuto1 usato
n547= set %milionario.50 2
n548= did -h milionario_gioco 4,6,14,15,16
n549= did -g milionario_gioco 25 $scriptdir\50usato.bmp
n550= }
n551= }
n552= if ($2 == 2) {
n553= if (%milionario.aiuto2 != usato) {
n554= set %milionario.aiuto2 usato
n555= milionario_conteggio
n556= msg %milionario.canale 8,2Hai scelto di usare l'aiuto del11 NETFRIEND.9 Scegli un amico che ti possa aiutare
n557= did -g milionario_gioco 26 $scriptdir\telefonatausato.bmp
n558= }
n559= }
n560= if ($2 == 3) {
n561= if (%milionario.aiuto3 != usato) {
n562= milionario_votazioni
n563= msg %milionario.canale 8,2Hai scelto di usare l'aiuto del11 Pubblico
n564= did -g milionario_gioco 27 $scriptdir\pubblicousato.bmp
n565= set %milionario.aiuto3 usato
n566= }
n567= }
n568= }
n569=}
n570=
n571=#milionario end
n572=
n573=#votazioni off
n574=on 1:TEXT:!voto*:%milionario.canale: {
n575= if ($nick == %milionario.giocatore) { halt }
n576= if (%milionario. [ $+ [ $nick ] ] == $null) {
n577= if (a isin $1-) {
n578= inc %milionario.votoA
n579= inc %milionario.votototale
n580= }
n581= if (b isin $1-) {
n582= inc %milionario.votoB
n583= inc %milionario.votototale
n584= }
n585= if (c isin $1-) {
n586= inc %milionario.votoC
n587= inc %milionario.votototale
n588= }
n589= if (d isin $1-) {
n590= inc %milionario.votoD
n591= inc %milionario.votototale
n592= }
n593= set %milionario.votoxcentoA $round( $calc((%milionario.votoa / %milionario.votototale) * 100) ,0)
n594= did -ra milionario_votazioni 2 %milionario.votoa
n595= did -ra milionario_votazioni 4 %milionario.votoxcentoa $+ %
n596= set %milionario.votoxcentob $round( $calc((%milionario.votob / %milionario.votototale) * 100) ,0)
n597= did -ra milionario_votazioni 6 %milionario.votob
n598= did -ra milionario_votazioni 8 %milionario.votoxcentob $+ %
n599= set %milionario.votoxcentoc $round( $calc((%milionario.votoc / %milionario.votototale) * 100) ,0)
n600= did -ra milionario_votazioni 10 %milionario.votoc
n601= did -ra milionario_votazioni 12 %milionario.votoxcentoc $+ %
n602= set %milionario.votoxcentod $round( $calc((%milionario.votod / %milionario.votototale) * 100) ,0)
n603= did -ra milionario_votazioni 14 %milionario.votod
n604= did -ra milionario_votazioni 16 %milionario.votoxcentod $+ %
n605= }
n606= set %milionario. [ $+ [ $nick ] ] votato
n607=}
n608=
n609=#votazioni end
n610=
n611=on 1:TEXT:!abbandona:%milionario.canale: {
n612= if ($nick != %milionario.giocatore) { halt }
n613= else {
n614= msg %milionario.canale 11,1{9Chi Vuol Essere Milionario11}4,2 %milionario.giocatore ABBANDONA LA PARTITA!
n615= msg %milionario.canale 11,1{9Chi Vuol Essere Milionario11}7,2 Vince11 $did(milionario_gioco,23).text Euro
n616= unset %milionario.*
n617= dialog -x milionario_gioco
n618= }
n619=}
n620=
n621=
n622=alias milionario_istruzioni {
n623= msg %milionario.canale 0,4
> 8Istruzioni0 <
n624= msg %milionario.canale 8Per usare gli aiuti che hai a tua disposizione
n625= msg %milionario.canale 8devi scrivere nel canale in cui si svolge il
n626= msg %milionario.canale 8gioco 9!aiuto #8 che # sta per il numero da di-
n627= msg %milionario.canale 8gitare. I numeri vanno da 1 a 3 e ognuno cor-
n628= msg %milionario.canale 8risponde a un aiuto:
n629= msg %milionario.canale 9 1: 50:50:8 toglie 2 risposte sbagliate
n630= msg %milionario.canale 9 2: NetFriend:8 un NetFriend ti darà la risposta in 30 secondi
n631= msg %milionario.canale 9 3: Pubblico:8 il pubblico presente farà un sondaggio
n632= msg %milionario.canale
n633= msg %milionario.canale 8Se vuoi abbandonare la partita scrivi 9!abbandona
n634= msg %milionario.canale
n635= msg %milionario.canale 8Quando devi rispondere alle domande devi scrivere 9!dico *
n636= msg %milionario.canale 8dove 9*8 sta per la lettera che si desidera dare (A,B,C,D)
n637= msg %milionario.canale
n638= msg %milionario.canale 8Il pubblico qui presente deve scrivere, per votare, 9!voto *
n639= msg %milionario.canale 8che 9*8 sta per la lettera per cui si vuole dare il voto (A,B,C,D)
n640= msg %milionario.canale
n641= msg %milionario.canale 4ATTENZIONE: IL PARTECIPANTE, MENTRE GIOCA, NON DEVE CAMBIARE NICKNAME
n642=}
n643=
n644=alias milionario_punteggio {
n645= msg %milionario.canale 0,2 $iif(%milionario.aiuto1 == usato ,2
,50:50) 4-0 $iif(%milionario.aiuto2 == usato ,2NetF.,NetF.) 4-0 $iif(%milionario.aiuto3 ,2Pubbl,Pubbl2-)
n646= if (%milionario.punti != 15) { msg %milionario.canale 7,2 152
7 1 MILIONE2- }
n647= elseif (%milionario.punti == 15 ) { msg %milionario.canale 1,8 158-1ø8
1 1 MILIONE8- }
n648=
n649= if (%milionario.punti < 14) { msg %milionario.canale 0,2 142
0 300.0002--- }
n650= elseif (%milionario.punti == 14 ) { msg %milionario.canale 1,8 148-1ø8
1 300.0008--- }
n651= elseif (%milionario.punti > 14 ) { msg %milionario.canale 0,2 142-0ø2
0 300.0002--- }
n652=
n653= if (%milionario.punti < 13) { msg %milionario.canale 0,2 132
0 150.0002--- }
n654= elseif (%milionario.punti == 13 ) { msg %milionario.canale 1,8 138-1ø8
1 150.0008--- }
n655= elseif (%milionario.punti > 13 ) { msg %milionario.canale 0,2 132-0ø2
0 150.0002--- }
n656=
n657= if (%milionario.punti < 12) { msg %milionario.canale 0,2 122
0 70.0002---- }
n658= elseif (%milionario.punti == 12 ) { msg %milionario.canale 1,8 128-1ø8
1 70.0008---- }
n659= elseif (%milionario.punti > 12 ) { msg %milionario.canale 0,2 122-0ø2
0 70.0002---- }
n660=
n661= if (%milionario.punti < 11) { msg %milionario.canale 0,2 112
0 35.0002---- }
n662= elseif (%milionario.punti == 11 ) { msg %milionario.canale 1,8 118-1ø8
1 35.0008---- }
n663= elseif (%milionario.punti > 11 ) { msg %milionario.canale 0,2 112-0ø2
0 35.0002---- }
n664=
n665= if (%milionario.punti < 10) { msg %milionario.canale 7,2 102
7 16.0002---- }
n666= elseif (%milionario.punti == 10 ) { msg %milionario.canale 1,8 108-1ø8
1 16.0008---- }
n667= elseif (%milionario.punti > 10 ) { msg %milionario.canale 7,2 102-7ø2
7 16.0002---- }
n668=
n669= if (%milionario.punti < 9) { msg %milionario.canale 2,2-0 92
0 8.0002
}
n670= elseif (%milionario.punti == 9 ) { msg %milionario.canale 8,8-1 98-1ø8
1 8.0008
}
n671= elseif (%milionario.punti > 9 ) { msg %milionario.canale 2,2-0 92-0ø2
0 8.0002
}
n672=
n673= if (%milionario.punti < 8) { msg %milionario.canale 2,2-0 82
0 4.0002
}
n674= elseif (%milionario.punti == 8 ) { msg %milionario.canale 8,8-1 88-1ø8
1 4.0008
}
n675= elseif (%milionario.punti > 8 ) { msg %milionario.canale 2,2-0 82-0ø2
0 4.0002
}
n676=
n677= if (%milionario.punti < 7) { msg %milionario.canale 2,2-0 72
0 2.0002
}
n678= elseif (%milionario.punti == 7 ) { msg %milionario.canale 8,8-1 78-1ø8
1 2.0008
}
n679= elseif (%milionario.punti > 7 ) { msg %milionario.canale 2,2-0 72-0ø2
0 2.0002
}
n680=
n681= if (%milionario.punti < 6) { msg %milionario.canale 2,2-0 62
0 1.0002
}
n682= elseif (%milionario.punti == 6 ) { msg %milionario.canale 8,8-1 68-1ø8
1 1.0008
}
n683= elseif (%milionario.punti > 6 ) { msg %milionario.canale 2,2-0 62-0ø2
0 1.0002
}
n684=
n685= if (%milionario.punti < 5) { msg %milionario.canale 2,2-7 52
7 5002
}
n686= elseif (%milionario.punti == 5 ) { msg %milionario.canale 8,8-1 58-1ø8
1 5008
}
n687= elseif (%milionario.punti > 5 ) { msg %milionario.canale 2,2-7 52-7ø2
7 5002
}
n688=
n689= if (%milionario.punti < 4) { msg %milionario.canale 2,2-0 42
0 3002
}
n690= elseif (%milionario.punti == 4 ) { msg %milionario.canale 8,8-1 48-1ø8
1 3008
}
n691= elseif (%milionario.punti > 4 ) { msg %milionario.canale 2,2-0 42-0ø2
0 3002
}
n692=
n693= if (%milionario.punti < 3) { msg %milionario.canale 2,2-0 32
0 2002
}
n694= elseif (%milionario.punti == 3 ) { msg %milionario.canale 8,8-1 38-1ø8
1 2008
}
n695= elseif (%milionario.punti > 3 ) { msg %milionario.canale 2,2-0 32-0ø2
0 2002
}
n696=
n697= if (%milionario.punti < 2) { msg %milionario.canale 2,2-0 22
0 1002
}
n698= elseif (%milionario.punti == 2 ) { msg %milionario.canale 8,8-1 28-1ø8
1 1008
}
n699= elseif (%milionario.punti > 2 ) { msg %milionario.canale 2,2-0 22-0ø2
0 1002
}
n700=
n701= if (%milionario.punti < 1) { msg %milionario.canale 2,2-0 12
0 502
}
n702= elseif (%milionario.punti == 1 ) { msg %milionario.canale 8,8-1 18-1ø8
1 508
}
n703= elseif (%milionario.punti > 1 ) { msg %milionario.canale 2,2-0 12-0ø2
0 502
}
n704=}
n705=
n706=alias milionario_inizia {
n707= msg %milionario.canale 11,1{9Chi Vuol Essere Milionario11}0,2 Sta avendo inizio all'interno di %milionario.canale
n708= msg %milionario.canale 11,2Si prega di attendere il8 DITO PIU' VELOCE
n709= milionario_ditoveloce
n710=}
n711=
n712=alias milionario_inizionodito {
n713= msg %milionario.canale 11,1{9Chi Vuol Essere Milionario11}9,2 %milionario.giocatore 7è invitato a giocare
n714=}
n715=
n716=alias milionario_carica {
n717= set %milionario.file $sfile($scriptdirdatafile\*.mil,Carica partita,Carica)
n718= if (%milionario.file == $null) { unset %milionario.file | halt }
n719= if ($right(%milionario.file,3) == mil) {
n720= set %stardust $dialog(milionario_carica)
n721= if (%stardust) unset %stardust
n722= else dialog -m milionario_carica milionario_carica
n723= }
n724= else { milionario_errore File .mil*Il file selezionato non corrisponde al formato .MIL }
n725=}
n726=
n727=dialog milionario_carica {
n728= title "Carica partita"
n729= size -1 -1 347 102
n730= text "Nickname del giocatore:", 1, 10 10 115 13
n731= edit "", 2, 130 7 205 21
n732= text "Canale:", 3, 10 35 35 13
n733= edit "", 4, 55 32 280 21
n734= button "&Ok", 5, 135 65 75 25, default cancel
n735=}
n736=
n737=on 1:DIALOG:milionario_carica:init:0: {
n738= set %milionario.giocatore $readini(%milionario.file,Salva,nick)
n739= set %milionario.punti $readini(%milionario.file,Salva,punti)
n740= set %milionario.canale $readini(%milionario.file,Salva,chan)
n741= set %milionario.aiuto1 $readini(%milionario.file,Salva,aiuto1)
n742= set %milionario.aiuto2 $readini(%milionario.file,Salva,aiuto2)
n743= set %milionario.aiuto3 $readini(%milionario.file,Salva,aiuto3)
n744= did -a $dname 2 %milionario.giocatore
n745= did -a $dname 4 %milionario.canale
n746=}
n747=
n748=on 1:DIALOG:milionario_carica:edit:*: {
n749= if ($did == 2) { set %milionario.giocatore $did(2).text }
n750= if ($did == 4) { set %milionario.canale $did(4).text }
n751=}
n752=
n753=on 1:DIALOG:milionario_carica:sclick:5: {
n754= msg %milionario.canale 11,1{9Chi Vuol Essere Milionario11}8,2 La partita di11 %milionario.giocatore 8è stata caricata
n755= set %milionario.partita caricata
n756= dialog -x $dname
n757= milionario_gioco
n758=}
14 Anni 10 Mesi fa #4850
da con
Risposta da con al topic Re:milionario
Ciao AnyWay certo xe' no
"siamo la coppia piu' bella del...*paese*rione*mondo*quartiere*C
Il parallelo piu' lungo di un pianeta*Celeste*Equatore*Circolo Artico*Isoquanto*B
Il nome dei nipotini di Paperino*Qui,Quo,Qua*Tom,Jerry*Bianca,Bernie*A
Quante zampe hanno i ragni?*due*tre*otto*nessuna*C
Il personaggio di Nicola Kidman in "Vita da strega"*Endora*Zia Clara*Tabata*Samantha*D
é stato eletto nel 2005 Governatore della Puglia*Elio Vito*Nichi Vendola*Piero Marrazzo*Piero Fassino*B
Non fa parte delle quattro fasi del motore a scoppio*Compressione*Iniezione*Aspirazione*Scarico*B
Non la usa l'imbianchino*Pennellesa*Acqua ragia*Sgorbia*Spatola*C
Da quanti pianeti é composto il sistema solare*Sette*Otto*Nove*Dieci*C
Il suo logo é una medusa*Valentino*Trussardi*Armani*Versace*D
é l'ente aerospaziale degli USA*WTO*NASA*WBA*ESA*B
Secondo il Vangelo tradi Gesu'*Giuda*Giacomo*Simone*Giovanni*A
Lo sport del"SetteBello"*Pallanuoto*Pallavolo*Pallamano*Pallacanestro*A
Nella bandiera degli USA cosa c'é oltre alle striscie?*Cerchi*Stelle*Quadrati*Triangolo*B
Secondo la bibbia é il capostipite degli Ebrei*Geremia*Abramo*Isacco*Giona*B
in Italia é l'organo legislativo supremo*Banca d'Italia*Antitrust*Magistratura*Parlamento*D
Quali di questi involucri non fa parte della Terra?*Atmosfera*Nucleo*Mantello*Crosta*A
Il giorno della presa della Bastiglia*12 luglio*4 luglio*8 settembre*14 luglio*D
Dov'é il parco del "Masai Mara"?*Kenya*Tanzania*Uganda*Burundi*A
In quale città non c'é un museo Guggenheim?*Venezia*New York*Bilbao*Firenze*D
Celebre programma domenicale di Rai 1*Buona Domenica*Domenica in*Diogene*Velone*B
é "...dei giorni" in una canzone di Ligabue del 2005*Il peso*Il tempo*Il giorno*Il ricordo*C
Lo sport dal pallone ovale*Calcio*Basket*Golf*Rugby*D
Le piramidi sono un esempio di architettura...*romanica*celtica*egizia*americana*C
Tanto va la gatta al lardo che ci lascia...*il baffo*il fegato*la coda*lo zampino*D
Una di queste piante é una conifera*Betulla*faggio*Abete*Nocciolo*C
Di cosa si nutre Eta Beta?*Creatina*Naftalina*Paraffina*Trielina*B
Il nome del serpente del Libro della giungla*Shere-Khan*Bagheera*Baloo*Kaa*D
Una mitica Alfa Romeo*Giulia*Flaminia*Fulvia*Argenta*A
é l'autore del "Mein Kampf"*R.Hess*H.Himmler*A.Hitler*J*Goebbels*C
vi ringrazio per la vostra collaborazione...
"siamo la coppia piu' bella del...*paese*rione*mondo*quartiere*C
Il parallelo piu' lungo di un pianeta*Celeste*Equatore*Circolo Artico*Isoquanto*B
Il nome dei nipotini di Paperino*Qui,Quo,Qua*Tom,Jerry*Bianca,Bernie*A
Quante zampe hanno i ragni?*due*tre*otto*nessuna*C
Il personaggio di Nicola Kidman in "Vita da strega"*Endora*Zia Clara*Tabata*Samantha*D
é stato eletto nel 2005 Governatore della Puglia*Elio Vito*Nichi Vendola*Piero Marrazzo*Piero Fassino*B
Non fa parte delle quattro fasi del motore a scoppio*Compressione*Iniezione*Aspirazione*Scarico*B
Non la usa l'imbianchino*Pennellesa*Acqua ragia*Sgorbia*Spatola*C
Da quanti pianeti é composto il sistema solare*Sette*Otto*Nove*Dieci*C
Il suo logo é una medusa*Valentino*Trussardi*Armani*Versace*D
é l'ente aerospaziale degli USA*WTO*NASA*WBA*ESA*B
Secondo il Vangelo tradi Gesu'*Giuda*Giacomo*Simone*Giovanni*A
Lo sport del"SetteBello"*Pallanuoto*Pallavolo*Pallamano*Pallacanestro*A
Nella bandiera degli USA cosa c'é oltre alle striscie?*Cerchi*Stelle*Quadrati*Triangolo*B
Secondo la bibbia é il capostipite degli Ebrei*Geremia*Abramo*Isacco*Giona*B
in Italia é l'organo legislativo supremo*Banca d'Italia*Antitrust*Magistratura*Parlamento*D
Quali di questi involucri non fa parte della Terra?*Atmosfera*Nucleo*Mantello*Crosta*A
Il giorno della presa della Bastiglia*12 luglio*4 luglio*8 settembre*14 luglio*D
Dov'é il parco del "Masai Mara"?*Kenya*Tanzania*Uganda*Burundi*A
In quale città non c'é un museo Guggenheim?*Venezia*New York*Bilbao*Firenze*D
Celebre programma domenicale di Rai 1*Buona Domenica*Domenica in*Diogene*Velone*B
é "...dei giorni" in una canzone di Ligabue del 2005*Il peso*Il tempo*Il giorno*Il ricordo*C
Lo sport dal pallone ovale*Calcio*Basket*Golf*Rugby*D
Le piramidi sono un esempio di architettura...*romanica*celtica*egizia*americana*C
Tanto va la gatta al lardo che ci lascia...*il baffo*il fegato*la coda*lo zampino*D
Una di queste piante é una conifera*Betulla*faggio*Abete*Nocciolo*C
Di cosa si nutre Eta Beta?*Creatina*Naftalina*Paraffina*Trielina*B
Il nome del serpente del Libro della giungla*Shere-Khan*Bagheera*Baloo*Kaa*D
Una mitica Alfa Romeo*Giulia*Flaminia*Fulvia*Argenta*A
é l'autore del "Mein Kampf"*R.Hess*H.Himmler*A.Hitler*J*Goebbels*C
vi ringrazio per la vostra collaborazione...
Tempo creazione pagina: 0.116 secondi