Yolanda Bergman's Good Health, Great Food/GoodHealth.iso/pc/yolanda.dxr/Internal_3_STY3.ls

Text File | 1998-03-11 | 4.5 KB | 141 lines

property pTextObj
global SPRITE_FWD_BTN, SPRITE_BWD_BTN, SPRITE_GOTO_BTN, SPRITE_INFO_BTN, SPRITE_VIDEO_BTN, SPRITE_MORETEXT_BTN, SPRITE_MENU_FIRST, SPRITE_MENU_LAST, currentlistitem, lastlistitem, CAST_DUMMY_MENU, SPRITE_POPUP, SPRITE_MORETOPICS_BTN, whichmenu, SPRITE_BOX, grolloversprite, SPRITE_DSHADOW24, SPRITE_DSHADOW8, gSTY1print, SPRITE_PRINT_BTN

on new me
  global CAST_MORETEXT_BTN, SPRITE_PIC, SPRITE_TEXT, SPRITE_HDR, CAST_MORETOPICS_BTN, SPRITE_VIDEO, vidList, gCastL, gSpriteNumber
  set SPRITE_MENU_LAST to 24
  set SPRITE_MORETOPICS_BTN to 25
  set gSpriteNumber to 0
  set grolloversprite to 0
  set whichmenu to 1
  set SPRITE_BOX to 53
  set SPRITE_DSHADOW24 to 89
  set SPRITE_DSHADOW8 to 88
  set the visible of sprite SPRITE_DSHADOW24 to 0
  set the visible of sprite SPRITE_DSHADOW8 to 0
  set SPRITE_PRINT_BTN to 12
  puppetstate(2, 12, 1)
  puppetstate(27, 28, 1)
  puppetSprite(SPRITE_POPUP, 1)
  replaceSprite(SPRITE_PIC, SPRITE_PIC, 0)
  replaceSprite(SPRITE_HDR, SPRITE_HDR, 0)
  replaceSprite(SPRITE_MENU_FIRST, SPRITE_MENU_LAST, 0, CAST_DUMMY_MENU, whichmenu)
  replaceSprite(SPRITE_BWD_BTN, SPRITE_FWD_BTN, 2)
  if gSTY1print then
    set the memberNum of sprite SPRITE_PRINT_BTN to 77
  end if
  set pTextObj to new(script "CYCLE PICS", SPRITE_TEXT, SPRITE_MORETEXT_BTN, CAST_MORETEXT_BTN)
  set currentlistitem to 0
  set lastlistitem to 0
  set vidList to getAt(gCastL, SPRITE_VIDEO)
  set the locV of sprite SPRITE_BOX to -100
  if getAt(getAt(gCastL, SPRITE_MENU_FIRST), 2) <> 0 then
    set the memberNum of sprite SPRITE_MORETOPICS_BTN to CAST_MORETOPICS_BTN
  end if
  dovideosetup(1)
  set the mouseDownScript to "MouseDownRouter"
  set the mouseUpScript to "MouseUpRouter"
  cursor(-1)
  return me
end

on ExitStyle me
  global gJumpToScreen
  set the memberNum of sprite SPRITE_PRINT_BTN to 1002
  puppetstate(2, 28, 0)
  loadScreenData(gJumpToScreen)
end

on StyleMouseDown me
  global gSpriteNumber
  set gSpriteNumber to the clickOn
  set aSpriteNumber to grolloversprite
  if gSpriteNumber <> aSpriteNumber then
    doVideoSoundStop(1, gSpriteNumber)
  end if
  case gSpriteNumber of
    SPRITE_BWD_BTN, SPRITE_FWD_BTN, SPRITE_MORETOPICS_BTN, SPRITE_VIDEO_BTN, SPRITE_MORETEXT_BTN:
      puppetSound("mouseDwn.aif")
      downbutton()
    SPRITE_PRINT_BTN:
      puppetSound("mouseDwn.aif")
      downbutton()
    SPRITE_GOTO_BTN:
      puppetSound("camera.aif")
      downbutton()
    otherwise:
      if (gSpriteNumber >= SPRITE_MENU_FIRST) and (gSpriteNumber <= SPRITE_MENU_LAST) then
      end if
  end case
end

on StyleMouseUp me
  global gSpriteNumber, gPopupObj, gSavedPopupsL
  if gSpriteNumber <> the clickOn then
    upbutton()
    exit
  end if
  case gSpriteNumber of
    SPRITE_GOTO_BTN:
      set gPopupObj to new(script "SIMPLE POPUP")
    SPRITE_FWD_BTN, SPRITE_BWD_BTN:
      jumpButton()
      exit
    SPRITE_VIDEO_BTN:
      narration(currentlistitem + 1, 1)
    SPRITE_MORETOPICS_BTN:
      if whichmenu = 1 then
        set whichmenu to 2
      else
        set whichmenu to 1
      end if
      replaceSprite(SPRITE_MENU_FIRST, SPRITE_MENU_LAST, 0, CAST_DUMMY_MENU, whichmenu)
      set the rect of sprite SPRITE_BOX to the rect of sprite SPRITE_MENU_FIRST
      upbutton()
      updateStage()
    SPRITE_MORETEXT_BTN:
      getNext(pTextObj)
    SPRITE_PRINT_BTN:
      if gSTY1print = 1 then
        printjournal(#print)
      else
        if gSTY1print = 2 then
          printmenu(#print)
        else
          if gSTY1print = 3 then
            printweekly(#print)
          end if
        end if
      end if
      upbutton()
    SPRITE_POPUP:
      set the memberNum of sprite SPRITE_POPUP to CAST_DUMMY_MENU
    otherwise:
      if (gSpriteNumber >= SPRITE_MENU_FIRST) and (gSpriteNumber <= SPRITE_MENU_LAST) then
        set currentlistitem to gSpriteNumber - SPRITE_MENU_FIRST + 1
        if currentlistitem <> lastlistitem then
          narration(currentlistitem + 1)
        end if
        set iCast to getAt(gActionL, gSpriteNumber)
        if listp(iCast) then
          set iCast to getAt(iCast, whichmenu)
        end if
        if integerp(iCast) then
          PopUpList(iCast)
        end if
        set lastlistitem to currentlistitem
      end if
  end case
end

on checkListRollover me
  if grolloversprite <> the rollOver then
    set rolloversprite to the rollOver
    if (rolloversprite >= SPRITE_MENU_FIRST) and (rolloversprite <= SPRITE_MENU_LAST) then
      set grolloversprite to rolloversprite
      set the rect of sprite SPRITE_BOX to the rect of sprite grolloversprite
      updateStage()
    end if
  end if
end