Fade sprite in slowly - GameCreators Forum

Author

Message

Jac

21

Years of Service

User Offline

Joined: 9th Nov 2003

Location:

Posted: 28th Nov 2004 04:06

Link

Hi,

As far as I can work out the code below should make the sprite fade in slowly when you move the mouse into the box.

Can't figure out what I'm doing wrong. I've tryed a couple of ways which were as unsuccessful

Set window off
`sync on is needed to stop 
sync on
sync rate 0
cls

`set x and o
ink rgb(255,0,0),0
`set text font "Arial Bold"
set text size 100
set text to bold
text 100,100,"X"

`to save the X and O as images
get image 1,100,118,180,200

cls

`places the O and X sprite in the correct position and then hides them
	`set sprite alpa to zero si that it can be manipulated in the main loop
	sprite 2,150,70,1
	hide sprite 2
	set sprite alpha 2,0
Do
	
	cls
	
	`find out mouse position
	mousePosX=mousex()
	mousePosY=mousey()
	
	box 150,70,250,170
	
	`get mouse movement in relation to top left box
	if mousePosX>150 and mousePosX<250 and mousePosY>70 and mousePosY<170
			inBox = 1
		else
			inBox = 0
	endif
	
	`checks mouse is in ore out of box then shows or hides sprite accordingly
	if inBox = 1
		show sprite 2
		for x = 1 to 100
			hide sprite 2
			set sprite alpha 2,x
			show sprite 2
			wait 100
		next x	
	else
		if inBox = 0
			hide sprite 2
		endif
	endif
	`print proof of action
	ink rgb(255,255,255),0
	set text size 12
	Print "InBox = ",inBox
	print "FadeIn = ",fadeIn

sync

loop

+ Code Snippet

Set window off
`sync on is needed to stop 
sync on
sync rate 0
cls

`set x and o
ink rgb(255,0,0),0
`set text font "Arial Bold"
set text size 100
set text to bold
text 100,100,"X"

`to save the X and O as images
get image 1,100,118,180,200

cls

	`places the O and X sprite in the correct position and then hides them
	`set sprite alpa to zero si that it can be manipulated in the main loop
	sprite 2,150,70,1
	hide sprite 2
	set sprite alpha 2,0
Do
	
	cls
	
	`find out mouse position
	mousePosX=mousex()
	mousePosY=mousey()
	
	box 150,70,250,170
	
	`get mouse movement in relation to top left box
	if mousePosX>150 and mousePosX<250 and mousePosY>70 and mousePosY<170
			inBox = 1
		else
			inBox = 0
	endif
	
	`checks mouse is in ore out of box then shows or hides sprite accordingly
	if inBox = 1
		show sprite 2
		for x = 1 to 100
			hide sprite 2
			set sprite alpha 2,x
			show sprite 2
			wait 100
		next x	
	else
		if inBox = 0
			hide sprite 2
		endif
	endif
	`print proof of action
	ink rgb(255,255,255),0
	set text size 12
	Print "InBox = ",inBox
	print "FadeIn = ",fadeIn

	sync

loop

Naturaly I'm greatful in advance for any help

JC

These are not the droids you are looking for.

Back to top

Profile PM

dj chainz

20

Years of Service

User Offline

Joined: 25th Sep 2004

Location: England

Posted: 28th Nov 2004 04:38

Link

firstly the get image should have ,1 command at the end to set it to not capture a texture - get image 1,100,118,180,200,1

Then the entire system you had for fading in did not work because it was all in a for - next loop before the sync, and so i changed all this to a counter system, as it is more flexible. You can change the variables counter,countermax and alphachange accordingly.

Set window off
`sync on is needed to stop
sync on
sync rate 50
cls

`set x and o
ink rgb(255,0,0),0
`set text font "Arial Bold"
set text size 100
set text to bold
text 100,100,"X"

`to save the X and O as images
get image 1,100,118,180,200,1

cls

`places the O and X sprite in the correct position and then hides them
   `set sprite alpa to zero si that it can be manipulated in the main loop
   sprite 2,150,70,1
   set sprite alpha 2,0

counter=5
countermax=5
alphachange=5

Do

cls 0

`find out mouse position
   mousePosX=mousex()
   mousePosY=mousey()

box 150,70,250,170

`get mouse movement in relation to top left box
   if mousePosX>150 and mousePosX<250 and mousePosY>70 and mousePosY<170
         inBox = 1
      else
         inBox = 0
   endif

`checks mouse is in ore out of box then shows or hides sprite accordingly
   if inBox = 1
   dec counter
      if counter<0
      counter=countermax
      alpha=sprite alpha(2)+alphachange
      if alpha>255 then alpha=255
      set sprite alpha 2,alpha
      endif
   else
      if inBox=0 and sprite alpha(2)>0 then set sprite alpha 2,0
   endif
   `print proof of action
   ink rgb(255,255,255),0
   set text size 12
   Print "InBox = ",inBox
   print "FadeIn = ",fadeIn

sync

loop

+ Code Snippet

Set window off
`sync on is needed to stop
sync on
sync rate 50
cls

`set x and o
ink rgb(255,0,0),0
`set text font "Arial Bold"
set text size 100
set text to bold
text 100,100,"X"

`to save the X and O as images
get image 1,100,118,180,200,1

cls

   `places the O and X sprite in the correct position and then hides them
   `set sprite alpa to zero si that it can be manipulated in the main loop
   sprite 2,150,70,1
   set sprite alpha 2,0

counter=5
countermax=5
alphachange=5

Do

   cls 0

   `find out mouse position
   mousePosX=mousex()
   mousePosY=mousey()

   box 150,70,250,170

   `get mouse movement in relation to top left box
   if mousePosX>150 and mousePosX<250 and mousePosY>70 and mousePosY<170
         inBox = 1
      else
         inBox = 0
   endif

   `checks mouse is in ore out of box then shows or hides sprite accordingly
   if inBox = 1
   dec counter
      if counter<0
      counter=countermax
      alpha=sprite alpha(2)+alphachange
      if alpha>255 then alpha=255
      set sprite alpha 2,alpha
      endif
   else
      if inBox=0 and sprite alpha(2)>0 then set sprite alpha 2,0
   endif
   `print proof of action
   ink rgb(255,255,255),0
   set text size 12
   Print "InBox = ",inBox
   print "FadeIn = ",fadeIn

   sync

loop

I am the lead programmer at red spark studios
I also have a blog on how to make a game engine
http://www.dbgame.blogspot.com

Back to top

Profile PM Website

Jac

21

Years of Service

User Offline

Joined: 9th Nov 2003

Location:

Posted: 28th Nov 2004 06:32

Link

Thanks, thats perfect.

I'm just sitting here getting my head round the counter system that you used. As I'm sure it'll come in useful.

Didn't know about the texture thing either. two new things learned today.

Great.

These are not the droids you are looking for.

Back to top

Profile PM

Jac

21

Years of Service

User Offline

Joined: 9th Nov 2003

Location:

Posted: 28th Nov 2004 16:51

Link

Just to show that I now understand the counter system and for ayone that interested I now have the sprite fading out as well as in which is exactly what I was after.

Here is the code

Set window off
`sync on is needed to stop
sync on
sync rate 50
cls

`set x and o
ink rgb(255,0,0),0
`set text font "Arial Bold"
set text size 100
set text to bold
text 100,100,"X"

`to save the X and O as images
get image 1,100,118,180,200,1

cls

`places the O and X sprite in the correct position and then hides them
   `set sprite alpa to zero si that it can be manipulated in the main loop
   sprite 2,150,70,1
   set sprite alpha 2,0

counter=5
counterMax=5
alphaChange=5

Do

cls 0

`find out mouse position
   mousePosX=mousex()
   mousePosY=mousey()

box 150,70,250,170

`get mouse movement in relation to top left box
   if mousePosX>150 and mousePosX<250 and mousePosY>70 and mousePosY<170
         inBox = 1
      else
         inBox = 0
   endif

`checks mouse is in ore out of box then shows or hides sprite accordingly
	if inBox = 1
   		dec counter
    	if counter<0
      		counter=counterMax
   			alpha=sprite alpha(2)+alphaChange
      		if alpha>255 then alpha=255
      		set sprite alpha 2,alpha
      	endif
  	else
      	if inBox=0 and sprite alpha(2)>0
      		dec counter
      		if counter<0
      			counter=counterMax
      			alpha=sprite alpha(2)-alphaChange
      			if alpha<0 then alpha=0
      			set sprite alpha 2,alpha
      		endif
      	endif
   	endif

`print proof of action
   ink rgb(255,255,255),0
   set text size 12
   Print "InBox = ",inBox
   print "FadeIn = ",fadeIn

sync

loop

+ Code Snippet

Set window off
`sync on is needed to stop
sync on
sync rate 50
cls

`set x and o
ink rgb(255,0,0),0
`set text font "Arial Bold"
set text size 100
set text to bold
text 100,100,"X"

`to save the X and O as images
get image 1,100,118,180,200,1

cls

   `places the O and X sprite in the correct position and then hides them
   `set sprite alpa to zero si that it can be manipulated in the main loop
   sprite 2,150,70,1
   set sprite alpha 2,0

counter=5
counterMax=5
alphaChange=5

Do

   cls 0

   `find out mouse position
   mousePosX=mousex()
   mousePosY=mousey()

   box 150,70,250,170

   `get mouse movement in relation to top left box
   if mousePosX>150 and mousePosX<250 and mousePosY>70 and mousePosY<170
         inBox = 1
      else
         inBox = 0
   endif

   `checks mouse is in ore out of box then shows or hides sprite accordingly
	if inBox = 1
   		dec counter
    	if counter<0
      		counter=counterMax
   			alpha=sprite alpha(2)+alphaChange
      		if alpha>255 then alpha=255
      		set sprite alpha 2,alpha
      	endif
  	else
      	if inBox=0 and sprite alpha(2)>0
      		dec counter
      		if counter<0
      			counter=counterMax
      			alpha=sprite alpha(2)-alphaChange
      			if alpha<0 then alpha=0
      			set sprite alpha 2,alpha
      		endif
      	endif
   	endif

   `print proof of action
   ink rgb(255,255,255),0
   set text size 12
   Print "InBox = ",inBox
   print "FadeIn = ",fadeIn

   sync

loop

These are not the droids you are looking for.

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / Fade sprite in slowly