What PC? 1997 February/WPCFEB97.ISO/dxrs/jukebx02.dxr/00025_Startmovie.ls

Text File | 1996-12-09 | 1.0 KB | 41 lines

on startMovie
  global centralH, centralV, screen, flagDown, gFlagDown, Needle, Turntable, rotation, recordFlag, record, counter, variance, m, ButtonNum, JukeMode, md1, leaveTrack, newbut, ImageCounter, FirstTimeImage, DriveLtr, JUKESoundOne
  set the exitLock to 1
  if the machineType = 256 then
    set m to "\"
  else
    set m to ":"
  end if
  set the soundLevel to 7
  repeat with r = 1 to 4
    set the volume of sound r to 255
  end repeat
  set centralH to 320
  set centralV to 240
  set screen to 0
  set flagDown to 0
  set gFlagDown to 0
  set Needle to 28
  set Turntable to 3
  set rotation to the number of member "TurntableRot1"
  set recordFlag to 0
  set record to 4
  set the visible of sprite record to 0
  set counter to 0
  set variance to 1
  set ButtonNum to 0
  set JukeMode to 1
  set md1 to "no"
  set leaveTrack to 0
  set newbut to 0
  set ImageCounter to 0
  set FirstTimeImage to 0
end

on mypause duration
  startTimer()
  repeat while the timer < (duration * 60)
    hExit()
  end repeat
end