Club KidSoft Volume 3 #1/ClubKidsoft.iso/movies/catalog.dir/00072_Script_72

Text File | 1995-02-07 | 2KB | 64 lines

-- "CatMenu" + 1
on exitFrame
  cursor 0
  global SMenu, SMenuBar
  if rollover(SMenu) = TRUE or rollover(SMenuBar) = TRUE then
    go to frame the frame
  else
    LeaveFrame
  end if
end


on mouseDown
  global gMIAWOpen
  if gMIAWOpen = TRUE then exit

  global SMenuItems, SMenuHilite

  if the clickOn = SMenuItems then

    -- ### BUG IN DIRECTOR: the textHeight doesn't return the correct value
    -- *** CHECK THIS BEFORE SHIP!
    if the machineType = 256 then
      set fldTextHeight = 17
    else
      set fldTextHeight = 17
    end if

    set itemHit = MenuSelect(SMenuItems, SMenuHilite, fldTextHeight, -2)
    if itemHit <> 0 then
      if marker(0) = label("CatMenu") then
        if line itemHit of field "Category Menu Items" <> empty and ¼
not (line itemHit of field "Category Menu Items" contains "-") then
          set cat = line itemHit of field "Category Menu Items"
        else
          set cat = field "Category"
        end if
        set age = field "Age"
      else -- AgesMenu
        set cat = field "Category"
        set age = line itemHit of field "Age Menu Items"
      end if

      -- Only do anything if they chose something new
      if (cat <> field "Category") or (age <> field "Age") then
        SetCatalogMenus(cat, age)
        puppetTransition 2, 1, 40, FALSE
        ResetSummaryScreenInfo(1)
      end if
    end if

    LeaveFrame
  end if
end

on LeaveFrame
  cursor 4
  -- Reshow this sprite, so isn't hidden when go to find menu
  global SMenuHilite
  set the visible of sprite SMenuHilite = TRUE

  ReturnTo -- uses gReturnToStack
end