Shocking The Web CD-ROM/SHOCK_CD.ISO/pc/tutorial/devglry/turntabl/shockwav/13bert.dcr/00017.ls

Text File | 1996-11-14 | 818 b | 27 lines

on startMovie
  global gTableSprite, gOrigin, gPlatform, gUpSnd, gDownSnd, gBeatSnd, gPressed
  set gPressed to 0
  if the machineType = 256 then
    set gPlatform to #PC
  else
    set gPlatform to #Mac
  end if
  set gUpSnd to "qbert up"
  set gDownSnd to "qbert down"
  set gBeatSnd to "qbert beat"
  puppetSound(2, the number of member gBeatSnd)
  set gTableSprite to 1
  set originH to the left of sprite gTableSprite + ((the right of sprite gTableSprite - the left of sprite gTableSprite) / 2)
  set originV to the top of sprite gTableSprite + ((the bottom of sprite gTableSprite - the top of sprite gTableSprite) / 2)
  set gOrigin to point(originH, originV)
  cursor(4)
  preLoadCast()
  cursor(0)
end

on keyDown
  if "0123456789" contains the key then
    set the soundLevel to integer(the key)
  end if
end