Move up two sprite at same time - GameCreators Forum

Author

Message

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 6th Nov 2015 17:55 Edited at: 6th Nov 2015 18:12

Link

Hi.

I made a duck shooter game that when Timer< 15, once duck move up.
Now I want when Timer > 15 Two Duck move up, but ducks move up One by one.

This is my project.

https://www.dropbox.com/s/5ww38s7imyt98g6/Duck%20Shooter.zip?dl=0

Please Guide Me.

Thanks.

Back to top

Profile PM

CJB

Valued Member

20

Years of Service

User Offline

Joined: 10th Feb 2004

Location: Essex, UK

Posted: 6th Nov 2015 18:04

Link

Nothing attached.

V2 T1 (Mostly)
Phone Tap!
Uzmadesign

Back to top

Profile PM Email Website

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 6th Nov 2015 18:12

Link

sorry, fix it.
my internet have Problem.

Back to top

Profile PM

CJB

Valued Member

20

Years of Service

User Offline

Joined: 10th Feb 2004

Location: Essex, UK

Posted: 7th Nov 2015 04:15

Link

Here's your starter for ten:

Timer() returns the length of time since the app started. so t#=timer() would set t# to the length of time the app has been running for. Timer() on its own is doing absolutely nothing for your app apart from wasting CPU.

In your code, you have two sections as follows:

+ Code Snippet

					
Select c
   case 1:
	SetSpritePosition(Duck[1],0,105)
	endcase
case 2:
	SetSpritePosition(Duck[2],20,105)
	endcase
case 3:
	SetSpritePosition(Duck[3],40,105)
        endcase
case 4:
	SetSpritePosition(Duck[4],60,105)
	endcase				
case 5:
	SetSpritePosition(Duck[5],80,105)
	endcase								
EndSelect

These can both be re-written as:

+ Code Snippet

SetSpritePosition(Duck[c],20*(c-1),105)

You have a comment: //Repeat Random if Rand1 = Rand2
but then you don't repeat... you just try one more time. What if it is the same result again the 2nd time around? Instead you need:

+ Code Snippet

While Rand1 = Rand2
Rand1 = Random(1,MaxDuck)
endwhile

There's too much wrong with your code. A complete re-write would be easier than trying to fix it. In fact, I have done just that. A simple duckshoot game in 48 lines of code with increasing difficult over time (more ducks to shoot, and they get faster). It's actually quite neat so I think I'll work on it a little more.

Good luck with yours man!

V2 T1 (Mostly)
Phone Tap!
Uzmadesign

Back to top

Profile PM Email Website

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 7th Nov 2015 04:42

Link

Thanks CJB for Guide.

Back to top

Profile PM

Grook

AGK Backer

12

Years of Service

User Offline

Joined: 22nd Jun 2012

Location: Lancashire, England

Posted: 7th Nov 2015 09:15

Link

Whoosh!

"It is said that your life flashes before your eyes just before you die. That is true, it's called Life.”

Back to top

Profile PM

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 8th Nov 2015 09:26 Edited at: 8th Nov 2015 13:34

Link

@CJB

This is my simple duck shooter code. without Functions is 52 Line:

// set window properties
SetWindowTitle( "Shooter" )
SetWindowSize( 1280, 800, 0 )

// set display properties
SetDisplayAspect(-1)
SetOrientationAllowed( 1, 1, 1, 1 )

global EmptyDuck
global timer#
global MaxDuck = 1
global dim Duck[MaxDuck]
global dim DuckIsDead[MaxDuck]
global DuckNumber = 0
global MoveY# = 0.2
global px# = 0.0
global py# = 0.0
global MaxTime# = 1.0 //maxTime for create nexr duck
global Rand = 0

CreateEmptyDuck()
CreateDuck()

do
	CreateDuck()
	
	//Get Pointer(x,y)
	px# = ScreenToWorldX(GetPointerX())
	py# = ScreenToWorldY(GetPointerY())
	
	timer#= Timer()
	
	//increase Max Duck value 
	if timer# > 10
		MaxDuck = 2
		dim Duck[MaxDuck]
		dim DuckIsDead[MaxDuck]
		MaxTime# = 0.3
		MoveY# = 0.3
	endif
    
    for a = 1 to MaxDuck
		if GetPointerPressed() = 1
			if GetSpriteHitTest(Duck[a],px#,py#)				
				DeleteSprite(Duck[a])
		endif
			endif
		SetSpritePosition(Duck[a],GetSpriteX(Duck[a]),GetSpriteY(Duck[a])-MoveY#)
	next a

Sync()
loop

//============================================== All Functions
Function CreateEmptyDuck()
	if GetSpriteExists(EmptyDuck) = 0
		EmptyDuck = CreateSprite(0)
		SetSpriteVisible(EmptyDuck,0)
	endif
EndFunction

Function CreateDuck()
	if DuckNumber < MaxDuck
		DuckNumber = DuckNumber + 1
	else
		DuckNumber = 0
	endif
	if GetSpriteExists(EmptyDuck) = 1
		if GetSpriteExists(Duck[DuckNumber]) = 0
			Duck[DuckNumber] = CloneSprite(EmptyDuck)
			SetSpriteVisible(Duck[DuckNumber],1)
			SetSpriteSize(Duck[DuckNumber],5,-1)
			SetSpritePosition(Duck[DuckNumber],Random(10,70),105)
			SetSpriteColor(Duck[DuckNumber],Random(0,255),Random(0,255),Random(0,255),255)
		endif
	endif
EndFunction

+ Code Snippet

// set window properties
SetWindowTitle( "Shooter" )
SetWindowSize( 1280, 800, 0 )

// set display properties
SetDisplayAspect(-1)
SetOrientationAllowed( 1, 1, 1, 1 )

global EmptyDuck
global timer#
global MaxDuck = 1
global dim Duck[MaxDuck]
global dim DuckIsDead[MaxDuck]
global DuckNumber = 0
global MoveY# = 0.2
global px# = 0.0
global py# = 0.0
global MaxTime# = 1.0 //maxTime for create nexr duck
global Rand = 0

CreateEmptyDuck()
CreateDuck()

do
	CreateDuck()
	
	//Get Pointer(x,y)
	px# = ScreenToWorldX(GetPointerX())
	py# = ScreenToWorldY(GetPointerY())
	
	timer#= Timer()
	
	//increase Max Duck value 
	if timer# > 10
		MaxDuck = 2
		dim Duck[MaxDuck]
		dim DuckIsDead[MaxDuck]
		MaxTime# = 0.3
		MoveY# = 0.3
	endif
    
    for a = 1 to MaxDuck
		if GetPointerPressed() = 1
			if GetSpriteHitTest(Duck[a],px#,py#)				
				DeleteSprite(Duck[a])
		endif
			endif
		SetSpritePosition(Duck[a],GetSpriteX(Duck[a]),GetSpriteY(Duck[a])-MoveY#)
	next a

    Sync()
loop

//============================================== All Functions
Function CreateEmptyDuck()
	if GetSpriteExists(EmptyDuck) = 0
		EmptyDuck = CreateSprite(0)
		SetSpriteVisible(EmptyDuck,0)
	endif
EndFunction

Function CreateDuck()
	if DuckNumber < MaxDuck
		DuckNumber = DuckNumber + 1
	else
		DuckNumber = 0
	endif
	if GetSpriteExists(EmptyDuck) = 1
		if GetSpriteExists(Duck[DuckNumber]) = 0
			Duck[DuckNumber] = CloneSprite(EmptyDuck)
			SetSpriteVisible(Duck[DuckNumber],1)
			SetSpriteSize(Duck[DuckNumber],5,-1)
			SetSpritePosition(Duck[DuckNumber],Random(10,70),105)
			SetSpriteColor(Duck[DuckNumber],Random(0,255),Random(0,255),Random(0,255),255)
		endif
	endif
EndFunction

do you have better idea for check timer automatically and increase MaxDuck value? (Below code)

+ Code Snippet

	if timer# > 10
		MaxDuck = 2
		dim Duck[MaxDuck]
		dim DuckIsDead[MaxDuck]
		MaxTime# = 0.3
		MoveY# = 0.3
		Movex# = 0.2
	endif

Thanks.

Back to top

Profile PM

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 9th Nov 2015 07:41

Link

I fix it. if there is any problem I ask here.

Back to top

Profile PM

Sorry your browser is not supported!

AppGameKit Classic Chat / Move up two sprite at same time