Shocking The Web CD-ROM/SHOCK_CD.ISO/pc/tutorial/devglry/mcny/source/funhouse.dir/00008.ls

Text File | 1996-05-06 | 422 b | 22 lines

on enterFrame
  global gotbug, gottorch, littorch, gotkey, fireon, whichroom, fedbug, a, x, opensesame, up, playphono
  sound fadeIn 2, 2 * 60
  set the soundLevel to 3
  set opensesame to 0
  set x to 0
  set playphono to 0
  set a to random(3)
  set up to 4
  set gotbug to 0
  set gottorch to 0
  set littorch to 0
  set gotkey to 0
  set fireon to 0
  set whichroom to 0
  set cycle to 0
end

on exitFrame
  go(1)
end