if logic with flashing and steadied image?

Author

Message

HowDo

23

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 25th Jul 2010 23:36 Edited at: 25th Jul 2010 23:44

Link

Could someone post a way of making an object flash between to images [on - off] at a steadied rate but also when you click on the object it stay on your third image [locked].

can get the flashing on and off working but what ever way I try to get the third image to say I've picked it.

to get the ideal quicker I trying to make the hold button on a fruit machine where the button flashes on and off until you press it then it stays on. [stays on is to be the third image.]

edit
forgot to say has to work with six object where anyone or all could be flashing to start, then locked on if picked.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Hawkblood

16

Years of Service

User Offline

Joined: 5th Dec 2009

Location:

Posted: 26th Jul 2010 00:15

Link

Make a state variable associated with a sprite. State=0 means flash, 1=clicked so third image. You will also have to make a sprite mouse if you are wanting to do sprite collision. If it's not complicated, you could just use a coordinate system for that.....

+ Code Snippet

load 3 images
make your sprites
hide all your sprites
make mouse sprite (with seperate mouse sprite image)
time as dword
do
  if timer()>(time+500)
    time=timer()
    if img=1 
      img=2
    else
      img=1
  endif
  if SpriteState()=0
    sprite s,x,y,img
  else
    sprite s,x,y,3
  endif
  paste sprite s,x,y
check for input with mouse click on sprite here
  sync
loop

This should get you started.

The fastest code is the code never written.

Back to top

Profile PM Email Website

HowDo

23

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 26th Jul 2010 00:29

Link

Cheers Hawkblood, been long day for me, so what you've posted could be it but my brain gone out to lunch, so what the eyes see the brain does not get.

May be after a nights sleep, it will a lot clearer on how to use the above.

almost had it going with my own code but would only work when I clicked the last image to check, plus I had done as you said and had a state checker, that was show true false but the code check did not see it.

so I'm off to bed will read your reply in the mornning if you post one, also looking for any other ways that might be out there.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

HowDo

23

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 27th Jul 2010 01:39

Link

so this does not end up with a dead end post where that's the question I ask, but where the answer, here's a bit of the code I came up with.

you may need to add 6 objects, start at 10 up to 15 and three images
to get the code to at least run.

might post a working example later.

local time2
local delay2
delay2=500
	time2=timer()
	while holdon=1 
		showmoney()
		if  timer()>time2+delay2
			on=1-on
			time2=timer()
		endif
for h=0 to 5
if h<3
		if holdstate(h+1)=1
			texture object 10+h,4
		else
			if on=1
				texture object 10+h,3
			else
			if on=0
				texture object 10+h,2
			endif
			endif
		endif
else
		if holdstate(h+1)=1
			texture object 10+h,7
		else
			if on=1
				texture object 10+h,6
			else
			if on=0
				texture object 10+h,5
			endif
		endif
	endif
endif

if mouseclick()=1
			cursorobj=(pick object(mousex(),mousey(),10,16))  
			endif
			if cursorobj=10 
				holdstate(1)=1
				face(1,2)=1
				face(2,2)=1
				face(3,2)=1
			endif
			if cursorobj=11
				holdstate(2)=1
				face(4,2)=1
				face(5,2)=1
				face(6,2)=1
			endif
			if cursorobj=12
				holdstate(3)=1
				face(7,2)=1
				face(8,2)=1
				face(9,2)=1
			endif
			if cursorobj=13
				holdstate(4)=1
				face(1,2)=1
				face(4,2)=1
				face(7,2)=1
			endif
			if cursorobj=14
				holdstate(5)=1
				face(2,2)=1
				face(5,2)=1
				face(8,2)=1
			endif
			if cursorobj=15
				holdstate(6)=1
				face(3,2)=1
				face(6,2)=1
				face(9,2)=1
			endif
	next h

+ Code Snippet

local time2
local delay2
delay2=500
	time2=timer()
	while holdon=1 
		showmoney()
		if  timer()>time2+delay2
			on=1-on
			time2=timer()
		endif
for h=0 to 5
if h<3
		if holdstate(h+1)=1
			texture object 10+h,4
		else
			if on=1
				texture object 10+h,3
			else
			if on=0
				texture object 10+h,2
			endif
			endif
		endif
else
		if holdstate(h+1)=1
			texture object 10+h,7
		else
			if on=1
				texture object 10+h,6
			else
			if on=0
				texture object 10+h,5
			endif
		endif
	endif
endif

		if mouseclick()=1
			cursorobj=(pick object(mousex(),mousey(),10,16))  
			endif
			if cursorobj=10 
				holdstate(1)=1
				face(1,2)=1
				face(2,2)=1
				face(3,2)=1
			endif
			if cursorobj=11
				holdstate(2)=1
				face(4,2)=1
				face(5,2)=1
				face(6,2)=1
			endif
			if cursorobj=12
				holdstate(3)=1
				face(7,2)=1
				face(8,2)=1
				face(9,2)=1
			endif
			if cursorobj=13
				holdstate(4)=1
				face(1,2)=1
				face(4,2)=1
				face(7,2)=1
			endif
			if cursorobj=14
				holdstate(5)=1
				face(2,2)=1
				face(5,2)=1
				face(8,2)=1
			endif
			if cursorobj=15
				holdstate(6)=1
				face(3,2)=1
				face(6,2)=1
				face(9,2)=1
			endif
	next h

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

HowDo

23

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 27th Jul 2010 14:01 Edited at: 27th Jul 2010 16:30

Link

ok here the code showing how to make and object change testures form 1 to 2 and back to 1 but if clicked on it stays on 3.

run and see

+ Code Snippet

Rem ***** Main Source File *****
sync on
sync rate 60
set text size 42
dim holdstate(1) 
text 0,0,"1"
get image 1,0,0,32,42
cls
text 0,0,"2"
get image 2,0,0,32,42
cls
text 0,0,"3"
get image 3,0,0,32,42
cls
make object plain 1,10,10
delay2=500
	time2=timer()
do
	if  timer()>time2+delay2
			on=1-on
			time2=timer()
		endif
		if holdstate(1)=1
			texture object 1,3
		else
			if on=1
				texture object 1,2
			else
			if on=0
				texture object 1,1
			endif
			endif
		endif

		if mouseclick()=1
			cursorobj=(pick object(mousex(),mousey(),1,1))  
			endif
			if cursorobj=1 
				holdstate(1)=1
			endif
		


sync
loop

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Hawkblood

16

Years of Service

User Offline

Joined: 5th Dec 2009

Location:

Posted: 27th Jul 2010 16:23

Link

+ Code Snippet

if holdstate(h+1)=1

Are you only using one? What's the "h" for?

It looks like it works from reading the code (can't test it with this pc).

The fastest code is the code never written.

Back to top

Profile PM Email Website

HowDo

23

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 27th Jul 2010 16:29

Link

opps will correct the code take the h out was for when I was checking 6 objects in for next loop, it only worked because h was zero above.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Hawkblood

16

Years of Service

User Offline

Joined: 5th Dec 2009

Location:

Posted: 27th Jul 2010 16:30

Link

Why don't you make multiple objects in a for-next and try it.

The fastest code is the code never written.

Back to top

Profile PM Email Website

HowDo

23

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 27th Jul 2010 16:38

Link

hawkblood have got code going now if you look at what I have in the dice challenge you'll see it going.

plus posted a working copy in code snippets.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / if logic with flashing and steadied image?