Help with .avi intro - GameCreators Forum

Author

Message

Xen0sis

20

Years of Service

User Offline

Joined: 20th Nov 2004

Location:

Posted: 5th Dec 2004 03:37

Link

Am playing around with adding a little avi intro to my game.. I want the program to jump to the menu after playing the intro, but it just keep showing the last frame in the intro..

How do i make i jump to the menu section?

And a other thing is it possibel to make et play movies's in 16:9.. exsample if i render something in 3ds max out to 720*576 and change the pixel aspect so it's real widescreen.. Can it then squeeze the image down so it's not streeched a center it?? Hope you understand..

Here is a exsample of a correct anamorphic 16:9 render..
http://topsoilarts.com/16x9Tut02.jpg

Back to top

Profile PM

Xen0sis

20

Years of Service

User Offline

Joined: 20th Nov 2004

Location:

Posted: 7th Dec 2004 20:50

Link

Nobody that can help me with that intro??

Back to top

Profile PM

RalphY

20

Years of Service

User Offline

Joined: 6th Sep 2004

Location: 404 (UK)

Posted: 7th Dec 2004 21:33 Edited at: 7th Dec 2004 21:35

Link

I had a similar problem with the last frame remaining on screen in a project I was working on a while back. One way to overcome it is, if you don’t require the video anywhere else just stick in a delete animation when its finished playing.

+ Code Snippet

play animation 1,0,0
do
   if animation playing(1)=0 then cls : delete animation 1: gosub menu
   sync
loop
cls

Hope this helps, as for your other question I'm not sure - have you tried changing the camera aspect ratio - set camera aspect value?

Back to top

Profile PM Email Website

Xen0sis

20

Years of Service

User Offline

Joined: 20th Nov 2004

Location:

Posted: 7th Dec 2004 22:02

Link

Okay I tryed adding that code, but i dont seem to be working here..

Well here is the code for the game...

sync on : sync rate 60
backdrop off
set display mode 640,480,0
show window

load animation "intro.avi",1

play animation 1,0,0
do
   if animation playing(1)=0 then cls : delete animation 1: gosub menu
   sync
loop
cls

Menu:
set text font "Verdana" : set text size 12
ink rgb(121,121,121),0
text 20,120,"New Game"
text 20,160,"Credits"
text 20,200,"Quit"

repeat
if (((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 110) and (mousey() <=130))) then ink rgb(121,121,121),0 : text 20,120,"New Game"
if (((mousex() < 10) or (mousex() > 100)) or ((mousey() < 110) or (mousey() >130))) then ink rgb(255,255,255),0 : text 20,120,"New Game"
if ((((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 110) and (mousey() <=130))) and (mouseclick()=1)) then goto Main_game
if (((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 150) and (mousey() <=170))) then ink rgb(121,121,121),0 : text 20,160,"Credits"
if (((mousex() < 10) or (mousex() > 100)) or ((mousey() < 150) or (mousey() >170))) then ink rgb(255,255,255),0 : text 20,160,"Credits"
if ((((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 150) and (mousey() <=170))) and (mouseclick()=1)) then end
if (((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 190) and (mousey() <=210))) then ink rgb(121,121,121),0 : text 20,200,"Quit"
if (((mousex() < 10) or (mousex() > 100)) or ((mousey() < 190) or (mousey() >210))) then ink rgb(255,255,255),0 : text 20,200,"Quit"
if ((((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 190) and (mousey() <=210))) and (mouseclick()=1)) then end

until false

+ Code Snippet

sync on : sync rate 60
backdrop off
set display mode 640,480,0
show window

load animation "intro.avi",1


play animation 1,0,0
do
   if animation playing(1)=0 then cls : delete animation 1: gosub menu
   sync
loop
cls

Menu:
set text font "Verdana" : set text size 12
ink rgb(121,121,121),0
text 20,120,"New Game"
text 20,160,"Credits"
text 20,200,"Quit"

repeat
if (((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 110) and (mousey() <=130))) then ink rgb(121,121,121),0 : text 20,120,"New Game"
if (((mousex() < 10) or (mousex() > 100)) or ((mousey() < 110) or (mousey() >130))) then ink rgb(255,255,255),0 : text 20,120,"New Game"
if ((((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 110) and (mousey() <=130))) and (mouseclick()=1)) then goto Main_game
if (((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 150) and (mousey() <=170))) then ink rgb(121,121,121),0 : text 20,160,"Credits"
if (((mousex() < 10) or (mousex() > 100)) or ((mousey() < 150) or (mousey() >170))) then ink rgb(255,255,255),0 : text 20,160,"Credits"
if ((((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 150) and (mousey() <=170))) and (mouseclick()=1)) then end
if (((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 190) and (mousey() <=210))) then ink rgb(121,121,121),0 : text 20,200,"Quit"
if (((mousex() < 10) or (mousex() > 100)) or ((mousey() < 190) or (mousey() >210))) then ink rgb(255,255,255),0 : text 20,200,"Quit"
if ((((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 190) and (mousey() <=210))) and (mouseclick()=1)) then end

until false

Back to top

Profile PM

RalphY

20

Years of Service

User Offline

Joined: 6th Sep 2004

Location: 404 (UK)

Posted: 7th Dec 2004 22:23 Edited at: 7th Dec 2004 22:24

Link

Ah, you might want to try adding a sync just before the 'until false' and move the lines:

+ Code Snippet

ink rgb(121,121,121),0
text 20,120,"New Game"
text 20,160,"Credits"
text 20,200,"Quit"

within the loop. That might help

Back to top

Profile PM Email Website

Xen0sis

20

Years of Service

User Offline

Joined: 20th Nov 2004

Location:

Posted: 7th Dec 2004 22:57

Link

Thanks it works now..

But how do i center the avi clip and change the backgriund color???

Back to top

Profile PM

RalphY

20

Years of Service

User Offline

Joined: 6th Sep 2004

Location: 404 (UK)

Posted: 7th Dec 2004 23:21

Link

To center try this:

+ Code Snippet

play animation 1,screen width()/2-[half video size],screen height/2-[half video size]

This will place the top left corner of the video in the center of the screen, you then need to displace this by half the actual size of the video for it to become centered. Or alternatively you can make the video full screen by using:

+ Code Snippet

play animation 1,0,0,screen width(),screen height()

To change the color of the background you can use either:

+ Code Snippet

 Ink 0,rgb([red],[green],[blue])
 cls

or:

+ Code Snippet

 Color backfrop rgb([red],[green],[blue])
 Backdrop on

Back to top

Profile PM Email Website

Xen0sis

20

Years of Service

User Offline

Joined: 20th Nov 2004

Location:

Posted: 8th Dec 2004 01:00 Edited at: 8th Dec 2004 01:00

Link

Okay.. I have centered the avi clip now.. But it dont wanna change the background color still...

The new code:

Rem Intro
set display mode 1024,768,0

load animation "intro4.avi",1

play animation 1,screen width()/2-320,screen height()/2-240

do
   if animation playing(1)=0 then cls : delete animation 1: gosub menu
   sync
loop
cls

Menu:
set text font "Verdana" : set text size 12

repeat
ink rgb(121,121,121),0
text 20,120,"New Game"
text 20,160,"Credits"
text 20,200,"Quit"

if (((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 110) and (mousey() <=130))) then ink rgb(121,121,121),0 : text 20,120,"New Game"
if (((mousex() < 10) or (mousex() > 100)) or ((mousey() < 110) or (mousey() >130))) then ink rgb(255,255,255),0 : text 20,120,"New Game"
if ((((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 110) and (mousey() <=130))) and (mouseclick()=1)) then goto Main_game
if (((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 150) and (mousey() <=170))) then ink rgb(121,121,121),0 : text 20,160,"Credits"
if (((mousex() < 10) or (mousex() > 100)) or ((mousey() < 150) or (mousey() >170))) then ink rgb(255,255,255),0 : text 20,160,"Credits"
if ((((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 150) and (mousey() <=170))) and (mouseclick()=1)) then end
if (((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 190) and (mousey() <=210))) then ink rgb(121,121,121),0 : text 20,200,"Quit"
if (((mousex() < 10) or (mousex() > 100)) or ((mousey() < 190) or (mousey() >210))) then ink rgb(255,255,255),0 : text 20,200,"Quit"
if ((((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 190) and (mousey() <=210))) and (mouseclick()=1)) then end

sync

until false

+ Code Snippet

Rem Intro
set display mode 1024,768,0


load animation "intro4.avi",1


play animation 1,screen width()/2-320,screen height()/2-240

do
   if animation playing(1)=0 then cls : delete animation 1: gosub menu
   sync
loop
cls

Menu:
set text font "Verdana" : set text size 12


repeat
ink rgb(121,121,121),0
text 20,120,"New Game"
text 20,160,"Credits"
text 20,200,"Quit"

if (((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 110) and (mousey() <=130))) then ink rgb(121,121,121),0 : text 20,120,"New Game"
if (((mousex() < 10) or (mousex() > 100)) or ((mousey() < 110) or (mousey() >130))) then ink rgb(255,255,255),0 : text 20,120,"New Game"
if ((((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 110) and (mousey() <=130))) and (mouseclick()=1)) then goto Main_game
if (((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 150) and (mousey() <=170))) then ink rgb(121,121,121),0 : text 20,160,"Credits"
if (((mousex() < 10) or (mousex() > 100)) or ((mousey() < 150) or (mousey() >170))) then ink rgb(255,255,255),0 : text 20,160,"Credits"
if ((((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 150) and (mousey() <=170))) and (mouseclick()=1)) then end
if (((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 190) and (mousey() <=210))) then ink rgb(121,121,121),0 : text 20,200,"Quit"
if (((mousex() < 10) or (mousex() > 100)) or ((mousey() < 190) or (mousey() >210))) then ink rgb(255,255,255),0 : text 20,200,"Quit"
if ((((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 190) and (mousey() <=210))) and (mouseclick()=1)) then end

sync

until false

Back to top

Profile PM

RalphY

20

Years of Service

User Offline

Joined: 6th Sep 2004

Location: 404 (UK)

Posted: 8th Dec 2004 02:36 Edited at: 8th Dec 2004 02:40

Link

Sorry my mistake, this should work just before the play animation to change the background:

+ Code Snippet

cls rgb([red],[green],[blue])

Back to top

Profile PM Email Website

Xen0sis

20

Years of Service

User Offline

Joined: 20th Nov 2004

Location:

Posted: 8th Dec 2004 03:00

Link

Okay thanks it all works perfect now..

But I also want a avi intro playing when entering the credits..

I've tryed adding the code fra the intro but when i enter the credits the credits.avi start to play, but my load screen start also and starts loading the game and when it's done loading the game crashes...

How do i make the it only play the credits avi clip??

Back to top

Profile PM

RalphY

20

Years of Service

User Offline

Joined: 6th Sep 2004

Location: 404 (UK)

Posted: 8th Dec 2004 03:13 Edited at: 8th Dec 2004 03:14

Link

It's going into the main game as you haven't got anything to stop the execution of the code whilst the video is playing. You need to put in a loop like you have for the intro movie, also you haven't got anything to return the execution of the program to the menu once the video has finished. You might want to change the credits section into a subroutine:

Menu:
set text font "Verdana" : set text size 12

repeat
ink rgb(121,121,121),0
text 20,120,"New Game"
text 20,160,"Credits"
text 20,200,"Quit"

if (((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 110) and (mousey() <=130))) then ink rgb(121,121,121),0 : text 20,120,"New Game"
if (((mousex() < 10) or (mousex() > 100)) or ((mousey() < 110) or (mousey() >130))) then ink rgb(255,255,255),0 : text 20,120,"New Game"
if ((((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 110) and (mousey() <=130))) and (mouseclick()=1)) then goto Main_game
if (((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 150) and (mousey() <=170))) then ink rgb(121,121,121),0 : text 20,160,"Credits"
if (((mousex() < 10) or (mousex() > 100)) or ((mousey() < 150) or (mousey() >170))) then ink rgb(255,255,255),0 : text 20,160,"Credits"
if ((((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 150) and (mousey() <=170))) and (mouseclick()=1)) then gosub credits
if (((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 190) and (mousey() <=210))) then ink rgb(121,121,121),0 : text 20,200,"Quit"
if (((mousex() < 10) or (mousex() > 100)) or ((mousey() < 190) or (mousey() >210))) then ink rgb(255,255,255),0 : text 20,200,"Quit"
if ((((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 190) and (mousey() <=210))) and (mouseclick()=1)) then end

sync

until false

Credits:
 cls
 load animation "test.avi",4
 play animation 4,screen width()/2-320,screen height()/2-240
 repeat
  sync
 until animation playing(4)=0
 delete animation 4
 cls
return

main_game:

+ Code Snippet

Menu:
set text font "Verdana" : set text size 12


repeat
ink rgb(121,121,121),0
text 20,120,"New Game"
text 20,160,"Credits"
text 20,200,"Quit"

if (((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 110) and (mousey() <=130))) then ink rgb(121,121,121),0 : text 20,120,"New Game"
if (((mousex() < 10) or (mousex() > 100)) or ((mousey() < 110) or (mousey() >130))) then ink rgb(255,255,255),0 : text 20,120,"New Game"
if ((((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 110) and (mousey() <=130))) and (mouseclick()=1)) then goto Main_game
if (((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 150) and (mousey() <=170))) then ink rgb(121,121,121),0 : text 20,160,"Credits"
if (((mousex() < 10) or (mousex() > 100)) or ((mousey() < 150) or (mousey() >170))) then ink rgb(255,255,255),0 : text 20,160,"Credits"
if ((((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 150) and (mousey() <=170))) and (mouseclick()=1)) then gosub credits
if (((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 190) and (mousey() <=210))) then ink rgb(121,121,121),0 : text 20,200,"Quit"
if (((mousex() < 10) or (mousex() > 100)) or ((mousey() < 190) or (mousey() >210))) then ink rgb(255,255,255),0 : text 20,200,"Quit"
if ((((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 190) and (mousey() <=210))) and (mouseclick()=1)) then end

sync

until false

Credits:
 cls
 load animation "test.avi",4
 play animation 4,screen width()/2-320,screen height()/2-240
 repeat
  sync
 until animation playing(4)=0
 delete animation 4
 cls
return

main_game:

Back to top

Profile PM Email Website

Xen0sis

20

Years of Service

User Offline

Joined: 20th Nov 2004

Location:

Posted: 8th Dec 2004 03:23

Link

Okay the problem is that i want the credits screen to freez at the last frame and when hiting exsample the Return key it returns to Menu screen...

I've tryed but it keep starting the game in the background

Back to top

Profile PM

RalphY

20

Years of Service

User Offline

Joined: 6th Sep 2004

Location: 404 (UK)

Posted: 8th Dec 2004 03:32 Edited at: 8th Dec 2004 03:34

Link

In that case just stick in a 'Wait key' before deleting the AVI. It shouldn't still be loading the game in the background if your using a subroutine (at least its not here) as the subroutine will return execution of the code to where it was called when it comes upon the return command. Click the source button for the full code that I've been using to try it out.

P.S. Make sure you've changed the goto to a gosub when using a subroutine.

Back to top

Profile PM Email Website

Xen0sis

20

Years of Service

User Offline

Joined: 20th Nov 2004

Location:

Posted: 8th Dec 2004 04:35

Link

Thx.. Mate

You have been really helpfull..

I was thinking you you perhaps would like to help me with alittle if i run into other problems?

Me and 3 others are make a little fps game for at school project and have 2 days left before we have to turn it in the or teachers..

If you wanna help us then just add me to MSN if you got that: Xenosis@mail.dk

Back to top

Profile PM

RalphY

20

Years of Service

User Offline

Joined: 6th Sep 2004

Location: 404 (UK)

Posted: 8th Dec 2004 05:04

Link

np, glad I could help

I can try helping you out with other stuff if you like, although I can't promise anything as I have a lot of my own projects that need attention.

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / Help with .avi intro