function() question - GameCreators Forum

Author

Message

x1b

20

Years of Service

User Offline

Joined: 19th Sep 2004

Location:

Posted: 7th Jan 2009 05:38 Edited at: 7th Jan 2009 05:42

Link

heya! some of you old schoolers may remember me. i'm back to working on my Juxta Tempus, project. I've been away at Law School the past few years, and dug up my project this week. To my surprise, there was alot of code I had to change. One that has be boggled is an introduction scene that fades in my logo, ques music I had made, fades out, then loads my project. Well..it mostly works now.. it starts, a bit of a pause(where my logo would fade in), the music does que, and it fades..but you never see the logo fade in and out. the rest works as I rememberd it working.

+ Code Snippet

function introduction()
rem load logo
load image "dfs.jpg",3
sprite 1,1,1,3

rem fade in logo
fadein =1

_fadein:

set sprite alpha 1,fadein:sleep 100
  if fadein => 0  then fadein =fadein +10
  if fadein => 250 then gosub _chant
gosub _fadein

rem chant
_chant:

wait 2000

load sound "mediasoundchant.wav",1
play sound 1

wait 2000

rem _fadeout
fade =250

_fadeout:
 set sprite alpha 1,fade:sleep 100
  if fade => 0 then fade =fade -10
  if fade =< 0 then gosub begin
gosub _fadeout

endfunction

idea's?
Oh hey, and is "Lost in Thought" still about? miss talking code with him. taught me a ton.

x1b

Back to top

Profile PM

IanM

Retired Moderator

22

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 7th Jan 2009 15:03

Link

Well, you seem to be using gosubs where you need gotos, and those instead of using normal loops - both uses are wrong. Always use the correct type of loop.

+ Code Snippet

function introduction()

   load image "dfs.jpg",3
   sprite 1,1,1,3

   for fadein = 1 to 250 step 10
      set sprite alpha 1,fadein
      sleep 100
   next

   wait 2000

   load sound "mediasoundchant.wav",1
   play sound 1

   wait 2000

   for fadeout = 250 to 0 step -10
      set sprite alpha 1,fade:sleep 100
   next

endfunction

You also had a 'gosub begin' in there - I don't know the rest of your code, but it would make more sense to me to put that gosub on the line following the function call rather than in the function.

Utility plug-ins collection (updated 29/12/08) and
http://www.matrix1.demon.co.uk

Back to top

Profile PM Email Website

x1b

20

Years of Service

User Offline

Joined: 19th Sep 2004

Location:

Posted: 7th Jan 2009 20:50

Link

I do appreciate the reply, Ian, thank you.

I did try your code, which is indeed more efficient, much shorter than my function. It, however, had the same effect. the .jpg does not fade in, but music does que, then carries on to load my project.

I questioned my .jpg and tried several others, but all to the same effect(does not fade in)

This worked flawlessly when I was working on this about 2 years ago. I havent changed anything since then.

Back to top

Profile PM

IanM

Retired Moderator

22

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 7th Jan 2009 21:51

Link

Maybe because there's no syncing in there. I have to assume that you are not using SYNC ON, and are allow DBPro to sync whenever it likes.

If that's the case, then the difference may be due to some changes that Lee made to syncing and the music subsystem in release 6.7.

I'd suggest taking some time to learn to use SYNC ON and SYNC, so that you have total control over when the display is updated.

Utility plug-ins collection (updated 29/12/08) and
http://www.matrix1.demon.co.uk

Back to top

Profile PM Email Website

x1b

20

Years of Service

User Offline

Joined: 19th Sep 2004

Location:

Posted: 7th Jan 2009 22:07 Edited at: 7th Jan 2009 22:14

Link

I, sir, am indeed using sync.

+ Code Snippet

function setup()
   sync on:fastsync
   set display mode  1680,1050,32
   hide mouse
  backdrop on
  color backdrop rgb(0,0,0)
endfunction

Just odd that it all worked last I compiled (albeit, 2 years ago) and so far in as much as i can tell, all the commands I used then, are still valid now.

I'm sure once this is figured out it will be something small and rediculous.

Edit: I stand corrected. you are indeed right. I added sync into that function, and all now runs as expected. guess things have changed from 2005/6. Thank you again for your time and effort, Ian.

Back to top

Profile PM

DsarchyUK

15

Years of Service

User Offline

Joined: 21st Nov 2008

Location: UK

Posted: 8th Jan 2009 01:56

Link

Instead of using SLEEP try using the Timer() with an IF argument to achieve the same effect.

So for example instead of:

+ Code Snippet

for fadein = 1 to 250 step 10
      set sprite alpha 1,fadein
      sleep 100
   next

try:

+ Code Snippet

For fadein = 1 to 25
 If timer() - FadeGap > 100
      set sprite alpha 1,fadein * 10
      sleep 100
 FadeGap = timer()
 EndIf
Next

Note:
I removed the step and *10 However it shouldn't make a difference.

http://dsarchy.deviantart.com/

Back to top

Profile PM Website

Sorry your browser is not supported!

Newcomers DBPro Corner / function() question