Imagination Express: Destination Pyramids/PYRAMIDS.ISO/DEMO/EDMARKDB/MENU.DXR/00106.ls

Text File | 1995-10-20 | 755 b | 37 lines

on enterFrame
  global gbeenThere, theDemoList
  if gbeenThere = 0 then
    preLoad(the frame)
    repeat with nn = 2 to 6
      puppetSprite(nn + 5, 1)
      set the rect of sprite (nn + 5) to the rect of sprite nn
    end repeat
    updateStage()
    if not (theDemoList contains #done) then
      puppetSound("main.aif")
    end if
    set gbeenThere to 1
  end if
end

on exitFrame
  global userTimer
  go(the frame)
  menuRoll()
end

on menuRoll
  repeat with xx = 7 to 11
    if the visible of sprite (xx - 5) = 1 then
      set the visible of sprite (xx - 5) to 0
    end if
  end repeat
  repeat with nn = 7 to 11
    if rollOver(nn) then
      set the visible of sprite (nn - 5) to 1
      exit repeat
    end if
  end repeat
  updateStage()
end