home *** CD-ROM | disk | FTP | other *** search
/ PC Open 10 / pcopen10.iso / aaron / dida / sequenz.dxr / 00061.ls < prev    next >
Encoding:
Text File  |  1997-09-24  |  1.9 KB  |  90 lines
  1. on voce
  2.   global segno, voce
  3.   set argo to "Sequenze"
  4.   sound playFile 1, the pathName & argo & segno & voce & ".aif"
  5. end
  6.  
  7. on tieni
  8.   global segno, voce
  9.   repeat while soundBusy(1)
  10.     if the mouseDown then
  11.       sound stop 1
  12.       exit repeat
  13.     end if
  14.   end repeat
  15. end
  16.  
  17. on automatico
  18.   global INIZIO, play, voce, Lingua, filmvoce, chisono
  19.   put EMPTY into field 62
  20.   set voce to Lingua & 2
  21.   set chisono to 5
  22.   puppetSprite(10, 1)
  23.   set the memberNum of sprite 10 to 38
  24.   updateStage()
  25.   set INIZIO to 1
  26.   set play to 1
  27.   movie()
  28.   set INIZIO to 0
  29.   if filmvoce = 0 then
  30.     set filmvoce to 1
  31.     voce()
  32.     tieni()
  33.   end if
  34. end
  35.  
  36. on Svuota
  37.   global tasto, filmato, vignetta, INIZIO, fine
  38.   nascondi()
  39.   if soundBusy(1) then
  40.     sound stop 1
  41.   end if
  42.   if objectp(schermo) then
  43.     forget(schermo)
  44.   end if
  45.   set fine to 0
  46.   if (tasto <> 0) and not filmato then
  47.     set tasto to 0
  48.     puppetSprite(10, 1)
  49.     set the memberNum of sprite 10 to 36
  50.     updateStage()
  51.     puppetSprite(8, 1)
  52.     puppetSprite(9, 1)
  53.     set the memberNum of sprite 9 to 29
  54.     set the memberNum of sprite 8 to 8
  55.     updateStage()
  56.   end if
  57. end
  58.  
  59. on STAMPA
  60.   set doc to new(xtra("PrintOMatic"))
  61.   register(xtra("PrintOMatic"), "POMX153-721-02745")
  62.   setLandscapeMode(doc, 0)
  63.   if not objectp(doc) then
  64.     exit
  65.   end if
  66.   newPage(doc)
  67.   drawStagePicture(doc, point(0, 0))
  68.   if doJobSetup(doc) then
  69.     updateStage()
  70.     print(doc)
  71.   end if
  72.   set doc to 0
  73. end
  74.  
  75. on HELP
  76.   global Desinenza, ritornohelp, segno, chisono
  77.   set chisono to 1
  78.   set ritornohelp to the pathName & the movieName
  79.   go(1, the pathName & "help" & segno & "SEQhelp" & Desinenza)
  80. end
  81.  
  82. on hap
  83.   global Lingua
  84.   if Lingua = 0 then
  85.     alert("Attenzione! Questa ├¿ solamente una versione Dimostrativa. Usate il quaderno per giocare o il cappello per tornare alla schermata principale")
  86.   else
  87.     alert("I'm sorry. This is only a demo version. Use the notebook to play or the hat to return to the main screen")
  88.   end if
  89. end
  90.