Amiga ISO Collection/AmigaUtilCD2.iso/Misc/MEDIAPOINT3.DMS/in.adf/Scripts.lha/Galileo.NTSC

MediaPoint script | 1993-10-19 | 6.4 KB | 364 lines

SCRIPTTALK 4, 0

VARIABLES "Music = \"OFF\""
VARIABLES "Disk = \"OUT\""
VARIABLES "Power = \"OFF\""

STARTSER

    START
        TIMECODE INTERNAL, HHMMSS, 1, 5, 3, 2
    END

    STARTSER "Main"

        START
            PAGE "MP:Pages/Galileo_Start", OFF, 0, 20, 0, 0, 1
            DURATION 01:00:00:0
            PROGRAM SU|MO|TU|WE|TH|FR|SA
            LOCALEVENT "Power", "Power"
        END

        START
            LABEL "Start menu"
        END

        START
            PAGE "MP:Pages/Galileo_On", OFF, 72, 10, 0, 0, 1
            DURATION 01:00:00:0
            PROGRAM SU|MO|TU|WE|TH|FR|SA
            LOCALEVENT "Power", "Power"
            LOCALEVENT "Samples", "Left"
            LOCALEVENT "Samples", "Right"
            LOCALEVENT "Disk drive", "Disk Insert"
            LOCALEVENT "Demo_info", "i"
            LOCALEVENT "Info_menu", "Info"
            LOCALEVENT "Sound_menu", "Sound"
            LOCALEVENT "Animation", "Graphics"
        END

        START
            GOTO "Start menu"
        END

        STARTSER "Info"
            PROGRAM SU|MO|TU|WE|TH|FR|SA

            STARTSER "Info_menu"
                PROGRAM SU|MO|TU|WE|TH|FR|SA

                START
                    PAGE "MP:Pages/Galileo_Pull_Info", OFF, 72, 10, 0, 0, 1
                    DURATION 01:00:00:0
                    PROGRAM SU|MO|TU|WE|TH|FR|SA
                    LOCALEVENT "About", "Galileo"
                    LOCALEVENT "Demo_info", "MediaPoint"
                END

                START
                    GOTO "Start menu"
                END

            ENDSER

            STARTSER "About"
                PROGRAM SU|MO|TU|WE|TH|FR|SA

                START
                    PAGE "MP:Pages/Galileo_About", OFF, 72, 10, 0, 0, 1
                    DURATION 00:00:01:0
                    PROGRAM SU|MO|TU|WE|TH|FR|SA
                    LOCALEVENT "Power ON", "Requester"
                END

                START
                    GOTO "About"
                END

            ENDSER

            STARTSER "Demo_info"
                PROGRAM SU|MO|TU|WE|TH|FR|SA

                START
                    PAGE "MP:Pages/Galileo_Demo_Info", OFF, 66, 20, 8, 0, 1
                    DURATION 00:00:05:0
                    PROGRAM SU|MO|TU|WE|TH|FR|SA
                END

                START
                    GOTO "Power ON"
                END

            ENDSER

        ENDSER

        STARTSER "Disk drive"
            PROGRAM SU|MO|TU|WE|TH|FR|SA

            START
                VARIABLES "IF Disk = \"IN\" GOTO \"Disk_out\""
                VARIABLES "IF Disk = \"OUT\" GOTO \"Disk_in\""
            END

            STARTSER "Disk_in"
                PROGRAM SU|MO|TU|WE|TH|FR|SA

                START
                    VARIABLES "Disk = \"IN\" "
                END

                START
                    PAGE "MP:Pages/Galileo_Disk", OFF, 72, 10, 0, 0, 1
                    DURATION 00:00:00:0
                    PROGRAM SU|MO|TU|WE|TH|FR|SA
                END

                START
                    XAPP "Sample", "Play sample", "1 \"MP:Sounds/Samples/MP_Woman\" 2 100 17965 0 0 0 0", 2
                    DURATION 00:00:00:0
                    PROGRAM SU|MO|TU|WE|TH|FR|SA
                END

                START
                    GOTO "Start menu"
                END

            ENDSER

            STARTSER "Disk_out"
                PROGRAM SU|MO|TU|WE|TH|FR|SA

                START
                    VARIABLES "Disk = \"OUT\" "
                END

                START
                    PAGE "MP:Pages/Galileo_Disk_Out", OFF, 72, 10, 0, 0, 1
                    DURATION 00:00:00:0
                    PROGRAM SU|MO|TU|WE|TH|FR|SA
                END

                START
                    GOTO "Start menu"
                END

            ENDSER

        ENDSER

        STARTSER "Power"
            PROGRAM SU|MO|TU|WE|TH|FR|SA

            START
                VARIABLES "IF Power = \"OFF\" GOTO \"Power ON\""
                VARIABLES "IF Power = \"ON\" GOTO \"Power OFF\""
            END

            STARTSER "Power ON"
                PROGRAM SU|MO|TU|WE|TH|FR|SA

                START
                    VARIABLES "Power = \"ON\" "
                END

                START
                    PAGE "MP:Pages/Galileo_None", OFF, 14, 10, 0, 0, 1
                    DURATION 00:00:00:0
                    PROGRAM SU|MO|TU|WE|TH|FR|SA
                END

                START
                    GOTO "Start menu"
                END

            ENDSER

            STARTSER "Power OFF"
                PROGRAM SU|MO|TU|WE|TH|FR|SA

                START
                    VARIABLES "Power = \"OFF\" "
                END

                START
                    SOUND "MP:", STOP
                    DURATION 00:00:00:0
                    PROGRAM SU|MO|TU|WE|TH|FR|SA
                END

                START
                    XAPP "Sample", "Stop track 1", "2 0", 1
                    DURATION 00:00:00:0
                    PROGRAM SU|MO|TU|WE|TH|FR|SA
                END

                START
                    XAPP "Sample", "Stop track 2", "2 1", 1
                    DURATION 00:00:00:0
                    PROGRAM SU|MO|TU|WE|TH|FR|SA
                END

                START
                    GOTO "Main"
                END

            ENDSER

        ENDSER

        STARTSER "Sound"
            PROGRAM SU|MO|TU|WE|TH|FR|SA

            STARTSER "Sound_menu"
                PROGRAM SU|MO|TU|WE|TH|FR|SA

                START
                    PAGE "MP:Pages/Galileo_Pull_Sound", OFF, 72, 10, 0, 0, 1
                    DURATION 23:00:10:0
                    PROGRAM SU|MO|TU|WE|TH|FR|SA
                    LOCALEVENT "Music", "Music"
                    LOCALEVENT "Stop Music Play Sample", "Samples"
                END

                START
                    GOTO "Start menu"
                END

            ENDSER

            STARTSER "Samples"
                PROGRAM SU|MO|TU|WE|TH|FR|SA

                START
                    XAPP "Sample", "Play sample", "1 \"mp:Sounds/Samples/Bell01\" 2 100 19886 0 0 0 0", 2
                    DURATION 00:00:00:2
                    PROGRAM SU|MO|TU|WE|TH|FR|SA
                END

                START
                    XAPP "Sample", "Play sample", "1 \"mp:Sounds/Samples/Bell02\" 2 100 19886 0 0 0 0", 2
                    DURATION 00:00:00:2
                    PROGRAM SU|MO|TU|WE|TH|FR|SA
                END

                START
                    XAPP "Sample", "Play sample", "1 \"mp:Sounds/Samples/Bell03\" 2 100 19886 0 0 0 0", 2
                    DURATION 00:00:00:2
                    PROGRAM SU|MO|TU|WE|TH|FR|SA
                END

                START
                    XAPP "Sample", "Play sample", "1 \"mp:Sounds/Samples/Bell04\" 2 100 19886 0 0 0 0", 2
                    DURATION 00:00:00:2
                    PROGRAM SU|MO|TU|WE|TH|FR|SA
                END

                START
                    XAPP "Sample", "Play sample", "1 \"mp:Sounds/Samples/Bell05\" 2 100 19886 0 0 0 0", 2
                    DURATION 00:00:00:2
                    PROGRAM SU|MO|TU|WE|TH|FR|SA
                END

            ENDSER

            STARTSER "Music"
                PROGRAM SU|MO|TU|WE|TH|FR|SA

                START
                    VARIABLES "IF Music = \"on\" GOTO \"Music_off\""
                    VARIABLES "IF Music = \"off\" GOTO \"Music_on\""
                END

                STARTSER "Music_on"
                    PROGRAM SU|MO|TU|WE|TH|FR|SA

                    START
                        SOUND "MP:Sounds/Modules/Dirt", LOOP
                        DURATION 00:00:00:0
                        PROGRAM SU|MO|TU|WE|TH|FR|SA
                    END

                    START
                        VARIABLES "Music = \"on\" "
                    END

                    START
                        GOTO "Power ON"
                    END

                ENDSER

                STARTSER "Music_off"
                    PROGRAM SU|MO|TU|WE|TH|FR|SA

                    START
                        SOUND "MP:Sounds/Modules/Dirt", STOP
                        DURATION 00:00:00:0
                        PROGRAM SU|MO|TU|WE|TH|FR|SA
                    END

                    START
                        VARIABLES "Music = \"off\" "
                    END

                    START
                        GOTO "Power ON"
                    END

                ENDSER

            ENDSER

            STARTSER "Stop Music Play Sample"
                PROGRAM SU|MO|TU|WE|TH|FR|SA

                START
                    SOUND "mp:", STOP
                    DURATION 00:00:00:0
                    PROGRAM SU|MO|TU|WE|TH|FR|SA
                END

                START
                    XAPP "Sample", "Play Sample", "1 \"MP:Sounds/Samples/Loop_Riddim\" 1 100 27965 0 0 0 1", 2
                    DURATION 00:00:00:0
                    PROGRAM SU|MO|TU|WE|TH|FR|SA
                END

                START
                    VARIABLES "Music = \"OFF\" "
                END

                START
                    GOTO "Power ON"
                END

            ENDSER

        ENDSER

        STARTSER "Graphics"
            PROGRAM SU|MO|TU|WE|TH|FR|SA

            STARTSER "Animation"
                PROGRAM SU|MO|TU|WE|TH|FR|SA

                START
                    ANIM "MP:Graphics/Animations/Galileo_anim.N", OFF, 1, 7, ON, OFF, 0, 20, 0, 0
                    DURATION 00:00:00:0
                    PROGRAM SU|MO|TU|WE|TH|FR|SA
                END

                START
                    GOTO "Start menu"
                END

            ENDSER

        ENDSER

    ENDSER

ENDSER