Jump to content
Search In
  • More options...
Find results that contain...
Find results in...

Intro flash video EO2.0


Guest
 Share

Recommended Posts

so this is my first tut for the community, and as such i will try and keep it simple and easy to understand, and follow directions.  if any errors are found, please post them here, if you have suggestions/code changes please also post them here. i will update this first post as necissary.  this was made with a loop because i want it to play indefinately untill you click the button to move on.  im sure its a easy change, but you can change it how you want.

first thing first.  if you have the newest flash you have to downgrade to flash10e.ocx  anything newer than this will cause saving errors…  ive already renamed the file you need for it to work correctly.  it may give a unsafe reading on win7 but its straight from adobe, if you dont want mine follow the instructions and go download it from them again.

to downgrade simply download the file ive provided, and replace your old one with it before starting the rest of the tut.  be sure to rename your old one to flash10treal.ocx

**YOU MUST DO THE ABOVE FIRST OR YOU WILL GET SAVE ERRORS**

this is all in the **client**

for the sake of simplicity i named my flash.swf file intro.swf  to change it simply change out "intro" with your file name anywere i used it, in forms and code.  also to adjust the loop just set the numbers to what you want.  here i set it to play once.

search **frmmenu** form load() for```
Dim tmpTxt As String, tmpArray() As String, i As Long
```just below this add
```
Dim num as Byte
```
search **frmmenu** for```
Me.Caption = Options.Game_Name
```just below it add this

```
Do While num <= 1
            intro.Movie = App.Path & "\data files\flash\intro.swf"
            intro.Visible = True
                'The name and location of our .swf file
            intro.Left = 0      'The rest of these commands are just to dynamically size your
            intro.top = 0
            intro.Play 'This starts your movie!
            num = num + 1
        Loop
```
**next**

1.in your data files folder make a folder called flash.
2.put your flash intro.swf file in that folder.

**Form work**

1.goto project->components->shockwave flash (or whatever flash you are running)
2.make a new flash window in the frmmain,  **name it intro**
3.make a command button in the new flash, **name it command1**
4.double click the new command button add this code.
```
intro.Visible = False
Command1.Visible = False
```
Link to comment
Share on other sites

I'll have to try this…next week or so...sadly.  It looks so easy now, although I'm sure I'll run into trouble and ask you guys.  Oh, one other thing, I don't have Flash already, do I just have to download that and it'll work, or no?

PS: Bookmarking :D
Link to comment
Share on other sites

well in mine i make them click a button in the tut, so on the last page of your flash it can sit there till player is ready, or loop.  same code could be used for a click on flash or something of the like.  its all personal preference.
Link to comment
Share on other sites

  • 8 months later...
It gives me an error in intro.Movie = App.Path & "/data files/video/intro.swf"
look:

```
Do While num <= 1
            intro.Movie = App.Path & "\data files\video\intro.swf"
            intro.Visible = True
                'The name and location of our .swf file
            intro.Left = 0      'The rest of these commands are just to dynamically size your
            intro.top = 0
            intro.Play 'This starts your movie!
            num = num + 1
        Loop
```
Link to comment
Share on other sites

@Mineox:

> It gives me an error in intro.Movie = App.Path & "/data files/video/intro.swf"
> look:
>
> ```
> Do While num <= 1
>             intro.Movie = App.Path & "\data files\video\intro.swf"
>             intro.Visible = True
>                 'The name and location of our .swf file
>             intro.Left = 0      'The rest of these commands are just to dynamically size your
>             intro.top = 0
>             intro.Play 'This starts your movie!
>             num = num + 1
>         Loop
> ```

What error do you get? Does intro.swf exist in \data files\video\?
Link to comment
Share on other sites

> YOU MUST DO THE ABOVE FIRST OR YOU WILL GET SAVE ERRORS
>
> this is all in the client
>
> for the sake of simplicity i named my flash.swf file intro.swf  to change it simply change out "intro" with your file name anywere i used it, in forms and code.  also to adjust the loop just set the numbers to what you want.  here i set it to play once.

reeed description
Link to comment
Share on other sites

@Justn:

> Don't listen to this….
>
> Just do what the tutorial says

man  i am right he need to chage that to other name for his video or just to make new video…><

> YOU MUST DO THE ABOVE FIRST OR YOU WILL GET SAVE ERRORS
>
> this is all in the client
>
> for the sake of simplicity i named my flash.swf file intro.swf  to change it simply change out "intro" with your file name anywere i used it, in forms and code.  also to adjust the loop just set the numbers to what you want.  here i set it to play once.
Link to comment
Share on other sites

  • 7 months later...
I got a little fix you could do

Say they dont have a flash file

here you can just skip the intro if you dont have it
>! In frmMenu add
>! ```
Dim FlashFile as String
>! flashfile = App.Path & "\data files\flash\intro.swf"
```
>! then
>! then put this
>! ```
If Not FileExist(flashfile, True) Then
>! intro.Visible = False
>! Command1.Visible = False
>! intro.Stop
>! End If
```
under
>! ```
Do While num <= 1
>! intro.Movie = flashfile
>! intro.Visible = True
>! 'The name and location of our .swf file
>! intro.Left = 0 'The rest of these commands are just to dynamically size your
>! intro.top = 0
>! intro.Play 'This starts your movie!
>! num = num + 1
>! Loop
```

by doing this you can skip your intro if you dont have a flash file
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...