PC World 2000 September/PCWorld_2000-09_cd.bin/System/Data/Scripts/Test002.xps

Text File | 2000-07-31 | 1.2 KB | 76 lines

Begin Behaviour "BtnSound"
    Event OnNewState
        if((aOldState==Buttons::Outside) && (aNewState==Buttons::Inside))
            Sound.Play("EnterSnd");
    End

    Event Onclick
        Sound.Play("ClickSnd");
    End
End

Begin Defaults Buttons.
    Behaviour BtnSound
End

Begin Defaults Buttons.Simple
    State[Press]=State[Inside]
End

Begin Vars
    Number Cislo;
    String Text;
    Rect Obdelnik;
    lStruct mStruct;
End

Begin Struct lStruct
    Number Cislo;
    Number Cislo2;
End

Begin Scene "Uvod"
    Begin Vars
        History Number Pocitadlo = 0;
    End

    Begin Sprite
        Renderer = Image("Global\\Background");
    End

    Begin Buttons.Simple
        Property State[Outside]
            Renderer = Image("Buttons\\Outside");
        End

        Property State[Inside]
            Renderer = Image("Buttons\\Inside");
            Property Location
                Left = 2
                Top = 3
            End
        End

        Begin Event OnClick
            System.Exit();
        End
    End

    Begin Buttons.Simple NoDefaults
        State[Outside].Renderer = Image("Buttons\\Outside");

        Begin Event OnClick
            Pocitadlo++;
        End
    End

    Begin Sprite
        Left = 200
        Top <= Pocitadlo*2;

        Renderer = @TextRenderer
            Text <= Pocitadlo;
        End
    End
End