CD Loisirs 10/cd.iso/louvre/cg074.dxr/00026_Script_26

Text File | 1995-07-26 | 543b | 20 lines

-- ò Louvre V1.00

-- ò ====================================================
on StartMovie
  when  mouseDown then Play done
end StartMovie
-- ò ====================================================
on PlaySound chan,theFile
  put (the pathname &theFile) into theFile
  Sound PlayFile chan,theFile
end PlaySound
-- ò ====================================================
on WaitForSound chan
  if soundBusy(chan) then
    go to the frame
  else
    nothing
  end if
end
-- ò ====================================================