Car Screensaver - Toyota/TOYOTA.iso/mjparty/qh_demo.exe/DEMOHNT3.DXR/00001.ls

Text File | 1996-08-09 | 453 b | 31 lines

on startMovie
  global gstopf
  set gstopf to 0
  set the volume of sound 2 to 255
  cursor(200)
end

on anothermovie
  global gstopf
  set gstopf to 1
end

on stopMovie
  global gstopf, gsnd
  unLoadCast()
  if gstopf = 0 then
    set the soundLevel to gsnd
    if the machineType <> 256 then
      releaserearwindow()
    end if
  end if
end

on releaserearwindow
  global rwobj
  if objectp(rwobj) then
    rwobj(mdispose)
  end if
  closeXLib()
end