home *** CD-ROM | disk | FTP | other *** search
/ Galleria D'arte: Manet / Manet.iso / Dati / Filtro.dxr / 00001_main.ls next >
Encoding:
Text File  |  2000-12-21  |  2.7 KB  |  121 lines
  1. on startMovie
  2.   global gMovie, gPunteggio, gNumeroDomanda, gMaxDomande, g20domande, gListaDomandaFatte, gPrimogiro
  3.   set the soundEnabled to 1
  4.   g20domande = 0
  5.   gPrimogiro = 1
  6.   gMovie = "titolo"
  7.   gPunteggio = 0
  8.   gMaxDomande = the number of lines in field "dati"
  9.   set the text of field "conteggio" to " "
  10.   gListaDomandaFatte = []
  11.   the itemDelimiter = "#"
  12.   domanda()
  13.   visualizzadomanda()
  14. end
  15.  
  16. on domanda
  17.   global gMaxdomanda, gListaDomandaFatte, gNumeroDomanda, gMaxDomande
  18.   repeat with i = 1 to the maxinteger
  19.     gNumeroDomanda = random(1, gMaxDomande)
  20.     tmp = getOne(gListaDomandaFatte, gNumeroDomanda)
  21.     if tmp = 0 then
  22.       append(gListaDomandaFatte, gNumeroDomanda)
  23.       exit repeat
  24.     end if
  25.   end repeat
  26. end
  27.  
  28. on visualizzadomanda
  29.   global gNumeroDomanda, gMaxDomande, gRispostaSbagliata, g20domande
  30.   g20domande = g20domande + 1
  31.   if g20domande = 21 then
  32.     go("punteggio", "giochi")
  33.     exit
  34.   end if
  35.   gRispostaSbagliata = 0
  36.   set the member of sprite 20 to member("dummy")
  37.   dati = line gNumeroDomanda of field "dati"
  38.   quadro = item 1 of dati
  39.   set the text of field "domanda" to "Quale tra questi dettagli appartiene all'opera" && quadro
  40.   prima = item 2 of dati
  41.   set the member of sprite 5 to member(prima)
  42.   seconda = item 3 of dati
  43.   set the member of sprite 6 to member(seconda)
  44.   terza = item 4 of dati
  45.   set the member of sprite 7 to member(terza)
  46.   visualizzatutto()
  47.   aggiornaconteggio()
  48. end
  49.  
  50. on visualizzatutto
  51.   repeat with i = 5 to 7
  52.     sprite(i).visible = 1
  53.   end repeat
  54.   sprite(15).visible = 1
  55.   updateStage()
  56. end
  57.  
  58. on nasconditutto
  59.   repeat with i = 5 to 7
  60.     sprite(i).visible = 0
  61.   end repeat
  62.   sprite(15).visible = 0
  63.   updateStage()
  64. end
  65.  
  66. on suonook
  67.   tmp = string(random(1, 9))
  68.   tmp2 = "Repgod0" & tmp
  69.   set the soundEnabled to 1
  70.   puppetSound(tmp2, 1)
  71.   updateStage()
  72.   repeat while soundBusy(1)
  73.     go(the frame)
  74.   end repeat
  75. end
  76.  
  77. on suonono
  78.   tmp = string(random(1, 2))
  79.   tmp2 = "Repbad0" & tmp
  80.   set the soundEnabled to 1
  81.   puppetSound(tmp2, 1)
  82.   updateStage()
  83.   repeat while soundBusy(1)
  84.     nothing()
  85.   end repeat
  86. end
  87.  
  88. on aggiornaconteggio
  89.   global g20domande
  90.   set the text of field "conteggio" to g20domande && "di 20"
  91.   updateStage()
  92. end
  93.  
  94. on nascondisbagliate
  95.   spr = the currentSpriteNum
  96.   case spr of
  97.     5:
  98.       sprite(6).visible = 0
  99.       sprite(7).visible = 0
  100.     6:
  101.       sprite(5).visible = 0
  102.       sprite(7).visible = 0
  103.     7:
  104.       sprite(5).visible = 0
  105.       sprite(6).visible = 0
  106.   end case
  107.   updateStage()
  108. end
  109.  
  110. on sistema
  111.   the itemDelimiter = "#"
  112.   txt = member("dati").text
  113.   totlines = the number of lines in txt
  114.   repeat with i = 1 to totlines
  115.     delete txt.line[i].item[2].char[1..3]
  116.     delete txt.line[i].item[3].char[1..3]
  117.     delete txt.line[i].item[4].char[1..3]
  118.   end repeat
  119.   member("dati").text = txt
  120. end
  121.