PC Direct 1995 September/PCD0995.ISO/files/gallery.dir/00038_Right Button Script.ls

Text File | 1994-12-18 | 2.8 KB | 69 lines

global gPictureSprite, gCurrentSection, gCurrentPicture, gNumOPics, gProductSelect, gMacIDSprite, gWindowsIDSprite, gDemoButtonSprite, gLaunchQTButton, gFirstGoRound

on mouseDown
  set the puppet of sprite the clickOn to 1
  repeat while the stillDown
    if rollOver(the clickOn) then
      set the castNum of sprite the clickOn to the number of cast "GDemoRight lit"
      updateStage()
      next repeat
    end if
    set the castNum of sprite the clickOn to the number of cast "GDemoRight"
    updateStage()
  end repeat
end

on mouseUp
  if rollOver(the clickOn) then
    set the castNum of sprite the clickOn to the number of cast "GDemoRight"
    set the puppet of sprite the clickOn to 0
    set gCurrentPicture to gCurrentPicture + 1
    if gCurrentPicture > gNumOPics then
      set gCurrentPicture to 1
    end if
    set the castNum of sprite gPictureSprite to the number of cast (string(gCurrentSection) & string(gCurrentPicture))
    set tempList to getaProp(gGalleryList, gCurrentSection)
    if gCurrentPicture > 1 then
      set the castNum of sprite gLaunchQTButton to the number of cast "PlayQT"
      set gProductSelect to getAt(tempList, gCurrentPicture - 1)
      set sectionFlags to getProp(gProductList, gProductSelect)
      if getAt(sectionFlags, 1) then
        set the castNum of sprite gMacIDSprite to the number of cast "macID lit"
      else
        set the castNum of sprite gMacIDSprite to the number of cast "macID"
      end if
      if getAt(sectionFlags, 2) then
        set the castNum of sprite gWindowsIDSprite to the number of cast "windowsID lit"
      else
        set the castNum of sprite gWindowsIDSprite to the number of cast "windowsID"
      end if
      if the machineType <> 256 then
        if getAt(sectionFlags, 3) then
          set the castNum of sprite gDemoButtonSprite to the number of cast "GoDemo"
        else
          set the castNum of sprite gDemoButtonSprite to the number of cast "GoDemo lit"
        end if
        go(the frame - 1)
        exit
      else
        if getAt(sectionFlags, 4) then
          set the castNum of sprite gDemoButtonSprite to the number of cast "GoDemo"
        else
          set the castNum of sprite gDemoButtonSprite to the number of cast "GoDemo lit"
        end if
        go(the frame - 1)
        exit
      end if
    else
      set gProductSelect to #null
      set the castNum of sprite gLaunchQTButton to the number of cast "NullPlay"
      set the castNum of sprite gMacIDSprite to the number of cast "macID"
      set the castNum of sprite gWindowsIDSprite to the number of cast "windowsID"
      set the castNum of sprite gDemoButtonSprite to the number of cast "GoDemo lit"
    end if
  else
    set the castNum of sprite the clickOn to the number of cast "GDemoRight"
    set the puppet of sprite the clickOn to 0
  end if
end