LAUNCH 3/LAUNCH.BIN/mac/MEDIAHB/SOURCES/S3_FRAME2.k

Text File | 1995-09-02 | 5KB | 323 lines

object S3_FRAME2 is MEDIADISTRIBUTOR
with
    Duration is -1;
    X is 0; Y is 0; Width is 640; Height is 480;
    Items is [
        S3_15_HBL1F22F_PIC,
        S3_16_HBL1F23F_PIC,
        S3_14_HBL1F21F_PIC,
        S3_4_CHAR1,
        S3_5_CHAR2,
        S3_9_HBBUB1_PIC,
        S3_10_HBBUB3_PIC,
        S3_11_BACK,
        S3_12_HBUFOV_MOV,
        S3_13_UFOHOT,
        S3_17_HBBCKFL_PIC,
        S3_19_NEXT,
        S3_18_HBNEXFL_PIC,
        S3_20_HBPETA_MOV
    ];
end;

object S3_15_HBL1F22F_PIC is MEDIASCROLLER
has

    OffScreen()
        do
            self.Enable(false);
            self.Show(false);
        end;

with
    Target is BITMAPCLIENT with Supplier is M119_HBL1F22F_PIC; Duration is 0; end;
    Duration is -1;
    X is 0; Y is 0; Width is 640; Height is 480;
end;

object S3_16_HBL1F23F_PIC is MEDIASCROLLER
has

    OffScreen()
        do
            self.Enable(false);
            self.Show(false);
        end;

with
    Target is BITMAPCLIENT with Supplier is M120_HBL1F23F_PIC; Duration is 0; end;
    Duration is -1;
    X is 0; Y is 0; Width is 640; Height is 480;
end;

object S3_14_HBL1F21F_PIC is MEDIASCROLLER
has

    OffScreen()
        do
            self.Enable(false);
            self.Show(true);
        end;

with
    Target is BITMAPCLIENT with Supplier is M118_HBL1F21F_PIC; Duration is 0; end;
    Duration is -1;
    X is 0; Y is 0; Width is 640; Height is 480;
end;

object S3_4_CHAR1 is MEDIADELEGATOR
has

    OffScreen()
        do
            self.Enable(true);
            self.Show(true);
        end;

    MouseDown(theX, theY)
        do
            S3_14_HBL1F21F_PIC.Show(false);
            S3_16_HBL1F23F_PIC.Show(true);
            self.Enable(false);
            S3_5_CHAR2.Enable(false);
            S3_10_HBBUB3_PIC.Show(true);
            S3_10_HBBUB3_PIC.Enable(true);
            S3_20_HBPETA_MOV.Enable(false);
        end;

with
    Duration is -1;
    X is 413; Y is 4; Width is 216; Height is 482;
end;

object S3_5_CHAR2 is MEDIADELEGATOR
has

    OffScreen()
        do
            self.Enable(true);
            self.Show(true);
        end;

    MouseDown(theX, theY)
        do
            S3_14_HBL1F21F_PIC.Show(false);
            S3_15_HBL1F22F_PIC.Show(true);
            S3_9_HBBUB1_PIC.Show(true);
            S3_9_HBBUB1_PIC.Enable(true);
            self.Enable(false);
            S3_4_CHAR1.Enable(false);
        end;

with
    Duration is -1;
    X is 113; Y is 77; Width is 118; Height is 268;
end;

object S3_9_HBBUB1_PIC is MEDIASCROLLER
has

    OffScreen()
        do
            self.Enable(false);
            self.Show(false);
        end;

    MouseDown(theX, theY)
        do
            self.Show(false);
            self.Enable(false);
            S3_15_HBL1F22F_PIC.Show(false);
            S3_14_HBL1F21F_PIC.Show(true);
            S3_4_CHAR1.Enable(true);
            S3_5_CHAR2.Enable(true);
        end;

with
    Target is PICTURECLIENT with Supplier is M103_HBBUB1_PIC; Duration is 0; end;
    Duration is -1;
    X is 157; Y is 184; Width is 192; Height is 144;
end;

object S3_10_HBBUB3_PIC is MEDIASCROLLER
has

    OffScreen()
        do
            self.Enable(false);
            self.Show(false);
        end;

    MouseDown(theX, theY)
        do
            self.Show(false);
            self.Enable(false);
            S3_16_HBL1F23F_PIC.Show(false);
            S3_14_HBL1F21F_PIC.Show(true);
            S3_4_CHAR1.Enable(true);
            S3_5_CHAR2.Enable(true);
            S3_20_HBPETA_MOV.Enable(true);
        end;

with
    Target is PICTURECLIENT with Supplier is M107_HBBUB3_PIC; Duration is 0; end;
    Duration is -1;
    X is 219; Y is 348; Width is 196; Height is 109;
end;

object S3_11_BACK is MEDIADELEGATOR
has

    OffScreen()
        do
            self.Enable(true);
            self.Show(true);
        end;

    MouseDown(theX, theY)
        do
            TRANSITION.Set(IrisClose, 15);
            APPLICATION.GoTo(S1_LAYOUT1);
        end;

    MouseEnter(theX, theY)
        do
            S3_17_HBBCKFL_PIC.Show(true);
        end;

    MouseLeave(theX, theY)
        do
            S3_17_HBBCKFL_PIC.Show(false);
        end;

with
    Duration is -1;
    X is 599; Y is 439; Width is 41; Height is 41;
end;

object S3_12_HBUFOV_MOV is MEDIACONTROLLER
has

    OffScreen()
        do
            self.Run(false);
        end;

    Finished()
        do
            self.GoToBeginning();
        end;

with
    Target is MOVIECLIENT with Supplier is M150_HBUFOV_MOV; end;
    Duration is 0;
    X is 304; Y is 0; Width is 171; Height is 113;
end;

object S3_13_UFOHOT is MEDIADELEGATOR
has

    OffScreen()
        do
            self.Enable(true);
            self.Show(true);
        end;

    MouseDown(theX, theY)
        do
            S3_12_HBUFOV_MOV.Run(not S3_12_HBUFOV_MOV.IsRunning());
            S3_12_HBUFOV_MOV.GoToBeginning();
        end;

with
    Duration is -1;
    X is 328; Y is 14; Width is 48; Height is 25;
end;

object S3_17_HBBCKFL_PIC is MEDIASCROLLER
has

    OffScreen()
        do
            self.Enable(false);
            self.Show(false);
        end;

with
    Target is PICTURECLIENT with Supplier is M101_HBBCKFL_PIC; Duration is 0; end;
    Duration is -1;
    X is 550; Y is 427; Width is 90; Height is 53;
end;

object S3_19_NEXT is MEDIADELEGATOR
has

    OffScreen()
        do
            self.Enable(true);
            self.Show(true);
        end;

    MouseDown(theX, theY)
        do
            TRANSITION.Set(WipeLeft, 15);
            APPLICATION.GoTo(S5_FRAME3);
        end;

    MouseEnter(theX, theY)
        do
            S3_18_HBNEXFL_PIC.Show(true);
        end;

    MouseLeave(theX, theY)
        do
            S3_18_HBNEXFL_PIC.Show(false);
        end;

with
    Duration is -1;
    X is 1; Y is 422; Width is 51; Height is 57;
end;

object S3_18_HBNEXFL_PIC is MEDIASCROLLER
has

    OffScreen()
        do
            self.Enable(false);
            self.Show(false);
        end;

with
    Target is PICTURECLIENT with Supplier is M137_HBNEXFL_PIC; Duration is 0; end;
    Duration is -1;
    X is 0; Y is 421; Width is 115; Height is 59;
end;

object S3_20_HBPETA_MOV is MEDIACONTROLLER
has

    OffScreen()
        do
            self.Enable(true);
            self.Show(true);
            self.Run(false);
        end;

    MouseDown(theX, theY)
        do
            self.Run(true);
        end;

    Finished()
        do
            self.GoToBeginning();
        end;

with
    Target is MOVIECLIENT with Supplier is M139_HBPETA_MOV; end;
    Duration is 0;
    X is 322; Y is 326; Width is 55; Height is 114;
end;