home *** CD-ROM | disk | FTP | other *** search
/ PC Open 10 / pcopen10.iso / aaron / dida / osserva.dxr / 00001.ls next >
Encoding:
Text File  |  1997-09-24  |  1.4 KB  |  60 lines
  1. on voce
  2.   global segno, voce
  3.   set argo to "Osserva"
  4.   sound playFile 1, the pathName & argo & segno & voce & ".aif"
  5.   tieni()
  6. end
  7.  
  8. on Oggetto
  9.   global pOggetti, segno, Lingua, pincopallo
  10.   set argo to "Oggetti"
  11.   if Lingua = 0 then
  12.     sound playFile 1, the pathName & argo & segno & pincopallo & ".aif"
  13.   else
  14.     sound playFile 1, the pathName & argo & segno & "ing" & segno & pincopallo & ".aif"
  15.   end if
  16. end
  17.  
  18. on tieni
  19.   global pOggetti, voce
  20.   repeat while the stillDown
  21.   end repeat
  22.   repeat while soundBusy(1)
  23.     if the mouseDown then
  24.       abort()
  25.     end if
  26.   end repeat
  27. end
  28.  
  29. on STAMPA
  30.   set doc to new(xtra("PrintOMatic"))
  31.   register(xtra("PrintOMatic"), "POMX153-721-02745")
  32.   setLandscapeMode(doc, 0)
  33.   if not objectp(doc) then
  34.     exit
  35.   end if
  36.   newPage(doc)
  37.   drawStagePicture(doc, point(0, 0))
  38.   if doJobSetup(doc) then
  39.     updateStage()
  40.     print(doc)
  41.   end if
  42.   set doc to 0
  43. end
  44.  
  45. on HELP
  46.   global Desinenza, ritornohelp, segno, chisono
  47.   set chisono to 4
  48.   set ritornohelp to the pathName & the movieName
  49.   go(1, the pathName & "help" & segno & "OShelp" & Desinenza)
  50. end
  51.  
  52. on hap
  53.   global Lingua
  54.   if Lingua = 0 then
  55.     alert("Attenzione! Questa ├¿ solamente una versione Dimostrativa. Usasare il pulsante con le mele per giocare o il cappello per uscire")
  56.   else
  57.     alert("I'm sorry. This is only a demo version.Use the button with the apples to play or use the hat to return to the main screen")
  58.   end if
  59. end
  60.