PC Open 10/pcopen10.iso/aaron/dida/componi.dxr/00001.ls

Text File | 1997-09-24 | 518 b | 28 lines

on voce
  global segno, voce
  set argo to "Componi"
  sound playFile 1, the pathName & argo & segno & voce & ".aif"
end

on HELP
  global Desinenza, ritornohelp, segno, COSAVOGLIO
  set COSAVOGLIO to 1
  set ritornohelp to the pathName & the movieName
  go(1, the pathName & "help" & segno & "COMhelp" & Desinenza)
end

on tieni
  global pOggetti, voce
  repeat while soundBusy(1)
    if the mouseDown then
      sound stop 1
      abort()
    end if
  end repeat
end

on stopMovie
  global schermo
  FINEMOVIE()
end