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

Text File | 1996-05-06 | 726 b | 34 lines

on enterFrame
  global whichroom, gotbug, fireon
  set whichroom to 1
  if rollOver(21) and the mouseDown then
    puppetSprite(20, 1)
    set the locH of sprite 20 to 170
    set the locV of sprite 20 to 130
    set the ink of sprite 20 to 8
    set the castNum of sprite 20 to 85
  else
    if rollOver(22) and the mouseDown then
      puppetSprite(20, 1)
      set the locH of sprite 20 to 70
      set the locV of sprite 20 to 85
      set the ink of sprite 20 to 8
      set the castNum of sprite 20 to 89
    else
      puppetSprite(20, 0)
    end if
  end if
  updateStage()
end

on mouseDown
  global gotbug
  if gotbug = 1 then
    set the moveableSprite of sprite 9 to 1
  end if
end

on exitFrame
  go("room1")
end