home *** CD-ROM | disk | FTP | other *** search
- global gPopupObj, gVolumePopup, gLastSelected, gOperation, gStylePopup, gStyleSelectionList, gMarkPopup, gSoundLevel, gTuning, gTuningPopup
-
- on startMovie
- if the machineType = 256 then
- openXLib("Popup.DLL")
- else
- openXLib("Popup XObject")
- end if
- puppetSound(0)
- puppetSprite(2, 3, 12, 13, 14, 16, 17, 18, 1)
- set the cursor of sprite 5 to [61, 62]
- set the cursor of sprite 6 to [61, 62]
- set the cursor of sprite 7 to [61, 62]
- set the cursor of sprite 8 to [61, 62]
- set the cursor of sprite 9 to [61, 62]
- set the cursor of sprite 10 to [61, 62]
- set gTuning to "standard"
- put gTuning into field "tuning selection"
- set gSoundLevel to the soundLevel
- put gSoundLevel into field "volume selection"
- setTuningPOpup()
- setVolumePopup()
- setVolume()
- setTuning()
- end
-
- on stopMovie
- KillPopups()
- if the machineType = 256 then
- closeXLib("Popup.DLL")
- else
- closeXLib("Popup XObject")
- end if
- puppetSprite(2, 3, 12, 13, 14, 16, 17, 18, 0)
- end
-
- on setVolumePopup
- if objectp(gVolumePopup) then
- gVolumePopup(mdispose)
- end if
- set gLastSelected to value(gSoundLevel)
- set gVolumePopup to Popup(mnew, field "volume list")
- gVolumePopup(mSetAutoMark, 1)
- gVolumePopup(mSetItemMark, string(gSoundLevel + 1), 1)
- gVolumePopup(mRegister, "PPXW200-3697464091")
- setVolume()
- updateStage()
- end
-
- on setTuningPOpup
- if objectp(gTuningPopup) then
- gTuningPopup(mdispose)
- end if
- set gTuningPopup to Popup(mnew, field "tuning list")
- gTuningPopup(mSetAutoMark, 1)
- gTuningPopup(mSetItemMark, string(3), 1)
- gTuningPopup(mRegister, "PPXW200-3697464091")
- setTuning()
- updateStage()
- end
-
- on KillPopups
- if objectp(gMarkPopup) then
- gMarkPopup(mdispose)
- end if
- if objectp(gStylePopup) then
- gStylePopup(mdispose)
- end if
- if objectp(gPopupObj) then
- gPopupObj(mdispose)
- end if
- if objectp(gVolumePopup) then
- gVolumePopup(mdispose)
- end if
- if objectp(gTuningPopup) then
- gTuningPopup(mdispose)
- end if
- end
-
- on MakeVolSelection
- set itemAlign to 0
- set h to the left of sprite the clickOn + 20
- set v to the bottom of sprite the clickOn - 132
- set result to gVolumePopup(mPopupSpec, h, v, itemAlign)
- gVolumePopup(mSetAutoMark, 1)
- if result <> " " then
- set gLastSelected to value(result)
- put gVolumePopup(mGetItem, result) into field "volume selection"
- gVolumePopup(mSetItemMark, string(gLastSelected), 1)
- setVolume()
- volumeUp()
- updateStage()
- end if
- end
-
- on makeTuningSelection
- set itemAlign to 0
- set h to the left of sprite the clickOn + 20
- set v to the bottom of sprite the clickOn - 50
- set result to gTuningPopup(mPopupSpec, h, v, itemAlign)
- gTuningPopup(mSetAutoMark, 1)
- if result <> " " then
- set gLastSelected to value(result)
- put gTuningPopup(mGetItem, result) into field "tuning selection"
- gTuningPopup(mSetItemMark, string(gLastSelected), 1)
- setTuning()
- tuningUp()
- updateStage()
- end if
- end
-
- on closeWindow
- forget(window "Tuner")
- end
-