Problem with SetViewOffset() - GameCreators Forum

Author

Message

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 5th Jun 2015 17:55 Edited at: 5th Jun 2015 17:59

Link

Hi.

I made a game like flappy bird and for jump the bird I used

+ Code Snippet

SetSpritePhysicsVelocity()

command. but there is an problem, mean Sometimes the screen vibrates. I changed SetSpritePhysicsVelocity() with SetSpritePosition() for find the problem and understood problem is relate to SetSpritePhysicsVelocity() command.

This is my simple code for jump player, please guide me to fix it.

+ Code Snippet

MoveView# = 17.5
MoveView2# = 0.25

if GetSpriteExists(player) = 1
   SetViewOffset(GetViewOffsetX()+MoveView2#,GetViewOffsetY())
   SetSpritePhysicsVelocity(player, MoveView#,GetSpritePhysicsVelocityY(player))
   if GetPointerPressed () = 1
      SetSpritePhysicsVelocity(player, GetSpritePhysicsVelocityX(player), -64.0)

endif
    endif

Thanks.

Back to top

Profile PM

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 5th Jun 2015 18:49 Edited at: 5th Jun 2015 18:51

Link

this is full code for better understand:

+ Code Snippet


SetDisplayAspect( 4.0/3.0 )

SetPhysicsGravity(0,200)

global player
global MoveView# = 17.5

CreatePlayer()

do

if GetSpriteExists(player) = 1
    SetSpritePhysicsVelocity(player,MoveView#,GetSpritePhysicsVelocityY(player))
    SetViewOffset(GetSpriteX(player)-10,0)
    if GetPointerPressed () = 1
        SetSpritePhysicsDelete(player)
        SetSpritePhysicsOn(player,2)
        if GetSpriteY(player) >= 0 then SetSpritePhysicsVelocity(player,GetSpritePhysicsVelocityX(player),-64.0)
    endif
endif

 Sync()
loop


//====================================>>> Create Player
Function CreatePlayer()
    player = CreateSprite(0)
    SetSpriteSize(player,7,-1)
    SetSpritePositionByOffset(player,15,50)
    SetSpriteShape(player,3)
    SetSpriteDepth(player,20)
    SetSpritePhysicsOn(player,3)
EndFunction
//====================================>>> END

Note: Use left mouse for jump

Back to top

Profile PM

CJB

Valued Member

20

Years of Service

User Offline

Joined: 10th Feb 2004

Location: Essex, UK

Posted: 5th Jun 2015 19:05

Link

You need to look at SetSpritePhysicsImpulse. (I'm sure we've had this conversation before haven't we?)

V2 T1 (Mostly)
Uzmadesign

Back to top

Profile PM Email Website

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 5th Jun 2015 19:21 Edited at: 5th Jun 2015 19:22

Link

Quote: "You need to look at SetSpritePhysicsImpulse. (I'm sure we've had this conversation before haven't we?)"

Maybe, but sure it's not relate to this project.

I used SetSpritePhysicsImpulse() command for my bird, but it's make rotate bird after click on the screen. even I used SetSpritePhysicsCanRotate(player,0) for stop rotate, but don't fix.

+ Code Snippet

do

if GetSpriteExists(player) = 1
    SetSpritePhysicsVelocity(player,MoveView#,GetSpritePhysicsVelocityY(player))
    SetViewOffset(GetSpriteX(player)-10,0)
    if GetPointerPressed () = 1
        SetSpritePhysicsDelete(player)
        SetSpritePhysicsOn(player,2)
        if GetSpriteY(player) >= 0
            SetSpritePhysicsImpulse(player,GetSpritePhysicsVelocityX(player),GetSpritePhysicsVelocityY(player),0,-100)
        endif
    endif
endif

 Sync()
loop

Back to top

Profile PM

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 5th Jun 2015 19:30

Link

With SetSpritePhysicsImpulse(), the impulse has to go through the centre of the sprite, otherwise it will spin.

It's like hitting a ball with your fist; if you hit the edge, it will spin instead of move forwards.

Quidquid latine dictum sit, altum sonatur
TutCity is being rebuilt

Back to top

Profile PM Email

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 5th Jun 2015 19:34 Edited at: 5th Jun 2015 19:50

Link

Quote: "the impulse has to go through the centre of the sprite, otherwise it will spin. "

right, with SetSpritePhysicsImpulse(player,GetSpriteXByoffset(player),GetSpriteYByoffset(player),0,-100)

I fixed rotate sprite, But there are still shaking for sprite.

+ Code Snippet


SetDisplayAspect( 4.0/3.0 )

SetPhysicsGravity(0,200)

global player
global MoveView# = 17.5

CreatePlayer()

do

if GetSpriteExists(player) = 1
    SetSpritePhysicsVelocity(player,MoveView#,GetSpritePhysicsVelocityY(player))
    SetViewOffset(GetSpriteX(player)-10,0)
    if GetPointerPressed () = 1
        SetSpritePhysicsDelete(player)
        SetSpritePhysicsOn(player,2)
        if GetSpriteY(player) >= 0
            SetSpritePhysicsImpulse(player,GetSpriteXByoffset(player),GetSpriteYByoffset(player),0,-100)
        endif
    endif
endif

 Sync()
loop

//====================================>>> Create and Delete Player
Function CreatePlayer()
    player = CreateSprite(0)
    SetSpriteSize(player,7,-1)
    SetSpritePositionByOffset(player,15,50)
    SetSpriteShape(player,3)
    SetSpriteDepth(player,20)
    SetSpritePhysicsOn(player,3)
    SetSpritePhysicsCanRotate(player,0)
EndFunction
//====================================>>> END

I think use SetSpritePhysicsImpulse() command not a good idea.

Back to top

Profile PM

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 5th Jun 2015 21:07 Edited at: 5th Jun 2015 21:29

Link

anyone have idea?
how can make this jump without use Physics?

this is my code with SetSpritePhysicsImpulse() command that can see don't have control on player jump.

SetDisplayAspect( 4.0/3.0 )

SetPhysicsGravity(0,200)

global player
global MoveView# = 17.5

CreatePlayer()

do

if GetSpriteExists(player) = 1
    SetSpritePhysicsVelocity(player,MoveView#,GetSpritePhysicsVelocityY(player))
    SetViewOffset(GetSpriteX(player)-10,0)
    if GetPointerPressed () = 1
        if delete = 0
            SetSpritePhysicsDelete(player)
            SetSpritePhysicsOn(player,2)
            delete = 1
        endif
        if GetSpriteY(player) >= 0
            SetSpritePhysicsImpulse(player,GetSpriteXByoffset(player),GetSpriteYByoffset(player),0,-100)
        endif
    endif
endif

Sync()
loop

//====================================>>> Create and Delete Player
Function CreatePlayer()
    player = CreateSprite(0)
    SetSpriteSize(player,7,-1)
    SetSpritePositionByOffset(player,15,50)
    SetSpriteShape(player,3)
    SetSpriteDepth(player,20)
    SetSpritePhysicsOn(player,3)
    SetSpritePhysicsCanRotate(player,0)
EndFunction
//====================================>>> END

+ Code Snippet

SetDisplayAspect( 4.0/3.0 )

SetPhysicsGravity(0,200)

global player
global MoveView# = 17.5

CreatePlayer()

do

if GetSpriteExists(player) = 1
    SetSpritePhysicsVelocity(player,MoveView#,GetSpritePhysicsVelocityY(player))
    SetViewOffset(GetSpriteX(player)-10,0)
    if GetPointerPressed () = 1
        if delete = 0
            SetSpritePhysicsDelete(player)
            SetSpritePhysicsOn(player,2)
            delete = 1
        endif
        if GetSpriteY(player) >= 0
            SetSpritePhysicsImpulse(player,GetSpriteXByoffset(player),GetSpriteYByoffset(player),0,-100)
        endif
    endif
endif

 Sync()
loop

//====================================>>> Create and Delete Player
Function CreatePlayer()
    player = CreateSprite(0)
    SetSpriteSize(player,7,-1)
    SetSpritePositionByOffset(player,15,50)
    SetSpriteShape(player,3)
    SetSpriteDepth(player,20)
    SetSpritePhysicsOn(player,3)
    SetSpritePhysicsCanRotate(player,0)
EndFunction
//====================================>>> END

Back to top

Profile PM

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 6th Jun 2015 13:48 Edited at: 6th Jun 2015 13:49

Link

ca anyone help me?

I finished my game but still have problem with physics jump.

I do not know when TGC Decide fix these Physics bugs.

Back to top

Profile PM

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 6th Jun 2015 18:53 Edited at: 6th Jun 2015 18:56

Link

Quote: "I do not know when TGC Decide fix these Physics bugs"

It's not a physics bug, it's a misunderstanding of how physics commands work.

Here is a box controlled by velocity and impulse, and offsetting the view so it is always in the middle.

setwindowsize(1024,768,0)
SetVirtualResolution(1024,768)

dim arrSprite[100] as integer

for n = 1 to 100
	arrSprite[n] = createsprite(0)
	setspriteoffset(arrSprite[n],0,10)
	setspritesize(arrSprite[n],50, 50 + random(1,50))
	SetSpriteColor(arrSprite[n],128 + random(1,128),128 + random(1,128),128 + random(1,128),255)
next n

SetSpritePosition(1,GetVirtualWidth() * 0.25, GetVirtualHeight() - GetSpriteHeight(arrSprite[1]))

for n = 2 to 100
	setSpriteposition(arrSprite[n],getSpriteX(arrSprite[n-1]) + GetSpriteWidth(arrSprite[n-1]),GetVirtualHeight() - GetSpriteHeight(arrSprite[n]))
next n

spr = createSprite(0)
setspritesize(spr,30,30)
SetSpritePositionByOffset(spr,GetVirtualWidth() / 2, GetVirtualHeight()/3)
SetSpritePhysicsOn(spr,2)
SetSpritePhysicsMass(spr,GetSpritePhysicsMass(spr) * 10)
//SetSpritePhysicsDamping(spr,5)

do
	if GetRawKeyReleased(32) = 1
		SetSpritePhysicsImpulse(spr,GetSpriteXByOffset(spr), GetSpriteYByOffset(spr),0,-30000)
	endif

SetSpritePhysicsVelocity(spr,50,GetSpritePhysicsVelocityY(spr) * 1)
	SetViewOffset(0 - (GetVirtualWidth() / 2 - GetSpriteXByOffset(spr)), 0)

sync()

loop

+ Code Snippet

setwindowsize(1024,768,0)
SetVirtualResolution(1024,768)

dim arrSprite[100] as integer

for n = 1 to 100
	arrSprite[n] = createsprite(0)
	setspriteoffset(arrSprite[n],0,10)
	setspritesize(arrSprite[n],50, 50 + random(1,50))
	SetSpriteColor(arrSprite[n],128 + random(1,128),128 + random(1,128),128 + random(1,128),255)
next n

SetSpritePosition(1,GetVirtualWidth() * 0.25, GetVirtualHeight() - GetSpriteHeight(arrSprite[1]))

for n = 2 to 100
	setSpriteposition(arrSprite[n],getSpriteX(arrSprite[n-1]) + GetSpriteWidth(arrSprite[n-1]),GetVirtualHeight() - GetSpriteHeight(arrSprite[n]))
next n

spr = createSprite(0)
setspritesize(spr,30,30)
SetSpritePositionByOffset(spr,GetVirtualWidth() / 2, GetVirtualHeight()/3)
SetSpritePhysicsOn(spr,2)
SetSpritePhysicsMass(spr,GetSpritePhysicsMass(spr) * 10)
//SetSpritePhysicsDamping(spr,5)

do
	if GetRawKeyReleased(32) = 1
		SetSpritePhysicsImpulse(spr,GetSpriteXByOffset(spr), GetSpriteYByOffset(spr),0,-30000)
	endif

	SetSpritePhysicsVelocity(spr,50,GetSpritePhysicsVelocityY(spr) * 1)
	SetViewOffset(0 - (GetVirtualWidth() / 2 - GetSpriteXByOffset(spr)), 0)

	sync()


	
loop

Quidquid latine dictum sit, altum sonatur
TutCity is being rebuilt

Back to top

Profile PM Email

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 6th Jun 2015 20:37 Edited at: 6th Jun 2015 20:38

Link

thanks BatVink but your code is same with my code at latest post.

my problem is relate to this jump.it's not like flappy bird jump.

only SetSpritePhysicsVelocity() can make a jump like flappy bird with easy control. but this command create a vibration on sprites.

Back to top

Profile PM

CJB

Valued Member

20

Years of Service

User Offline

Joined: 10th Feb 2004

Location: Essex, UK

Posted: 7th Jun 2015 00:07

Link

Try smoothing out the setviewoffset by averaging out the last few frames?

Or you could follow an invisible placeholder sprite that uses a tween with tweensmooth() to stop it from vibrating.

Or set a maximum velocity for your setviewoffset to prevent it 'snapping' to a new position.

In fact, if the physics is too much, do it a non physics way such as:

setwindowsize(1024,768,0)
SetVirtualResolution(1024,768)

dim arrSprite[100] as integer

grav# = .1

for n = 1 to 100
	arrSprite[n] = createsprite(0)
	setspriteoffset(arrSprite[n],0,10)
	setspritesize(arrSprite[n],50, 50 + random(1,50))
	SetSpriteColor(arrSprite[n],128 + random(1,128),128 + random(1,128),128 + random(1,128),255)
next n

SetSpritePosition(1,GetVirtualWidth() * 0.25, GetVirtualHeight() - GetSpriteHeight(arrSprite[1]))

for n = 2 to 100
	setSpriteposition(arrSprite[n],getSpriteX(arrSprite[n-1]) + GetSpriteWidth(arrSprite[n-1]),GetVirtualHeight() - GetSpriteHeight(arrSprite[n]))
next n

spr = createSprite(0)
setspritesize(spr,30,30)
SetSpritePositionByOffset(spr,GetVirtualWidth() / 2, GetVirtualHeight()/3)
yspeed# = 0.0
xspeed# = 3.0
xpos# = GetVirtualWidth() / 2
ypos# = GetVirtualHeight() / 3

do
	
	if GetRawKeyReleased(32) = 1
		yspeed# = -5.0
	endif
	yspeed#=yspeed# + grav#
	
	xpos# = xpos# + xspeed#
	
	ypos#=ypos# + yspeed#
	
	SetSpritePositionByOffset(spr,xpos#,ypos#)
		
	SetViewOffset(0 - (GetVirtualWidth() / 2 - GetSpriteXByOffset(spr)), 0)

sync()
	
loop

+ Code Snippet

setwindowsize(1024,768,0)
SetVirtualResolution(1024,768)

dim arrSprite[100] as integer

grav# = .1

for n = 1 to 100
	arrSprite[n] = createsprite(0)
	setspriteoffset(arrSprite[n],0,10)
	setspritesize(arrSprite[n],50, 50 + random(1,50))
	SetSpriteColor(arrSprite[n],128 + random(1,128),128 + random(1,128),128 + random(1,128),255)
next n

SetSpritePosition(1,GetVirtualWidth() * 0.25, GetVirtualHeight() - GetSpriteHeight(arrSprite[1]))

for n = 2 to 100
	setSpriteposition(arrSprite[n],getSpriteX(arrSprite[n-1]) + GetSpriteWidth(arrSprite[n-1]),GetVirtualHeight() - GetSpriteHeight(arrSprite[n]))
next n

spr = createSprite(0)
setspritesize(spr,30,30)
SetSpritePositionByOffset(spr,GetVirtualWidth() / 2, GetVirtualHeight()/3)
yspeed# = 0.0
xspeed# = 3.0
xpos# = GetVirtualWidth() / 2
ypos# = GetVirtualHeight() / 3

do
	
	if GetRawKeyReleased(32) = 1
		yspeed# = -5.0
	endif
	yspeed#=yspeed# + grav#
	
	xpos# = xpos# + xspeed#
	
	ypos#=ypos# + yspeed#
	
	SetSpritePositionByOffset(spr,xpos#,ypos#)
		
	SetViewOffset(0 - (GetVirtualWidth() / 2 - GetSpriteXByOffset(spr)), 0)

	sync()
	
loop

V2 T1 (Mostly)
Uzmadesign

Back to top

Profile PM Email Website

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 7th Jun 2015 00:26 Edited at: 7th Jun 2015 00:26

Link

You need to experiment with the values. When you try something new, look through the commands available, and mess around with them to understand what they do.

In my example above, I've decreased the physics scale, reset the velocity everytime you press the spacebar and changed damping depending on rise or fall. I've also set the sprite angle according to the speed of rise and fall. 10 minutes work and I have a Flappy Bird.

I had no idea how to do it before I started. I just made changes, observed the result and fine-tuned it as I went along.

setwindowsize(1024,768,0)
SetVirtualResolution(1024,768)

SetClearColor(212,212,255)

//Create Bird
c1 = MakeColor(0,0,255)
c2 = MakeColor(0,255,0)
sync()
DrawEllipse(25,15,20,15,c1,c2,1)
drawline(0,15,50,15,c1,c1)
render()
img=GetImage(0,0,50,30)
spr = CreateSprite(img)
setspritesize(spr,50,30)
ClearScreen()

dim arrSprite[100] as integer

SetPhysicsScale(0.01)

for n = 1 to 100
	arrSprite[n] = createsprite(0)
	setspriteoffset(arrSprite[n],0,10)
	setspritesize(arrSprite[n],50, 50 + random(1,50))
	SetSpriteColor(arrSprite[n],128 + random(1,128),128 + random(1,128),128 + random(1,128),255)
next n

SetSpritePosition(1,GetVirtualWidth() * 0.25, GetVirtualHeight() - GetSpriteHeight(arrSprite[1]))

for n = 2 to 100
	setSpriteposition(arrSprite[n],getSpriteX(arrSprite[n-1]) + GetSpriteWidth(arrSprite[n-1]),GetVirtualHeight() - GetSpriteHeight(arrSprite[n]))
next n

//spr = createSprite(0)
setspritesize(spr,30,30)
SetSpritePhysicsCanRotate(spr,0)
SetSpritePositionByOffset(spr,GetVirtualWidth() / 2, GetVirtualHeight()/3)
SetSpritePhysicsOn(spr,2)
SetSpritePhysicsMass(spr,GetSpritePhysicsMass(spr) * 100)

do
	if GetRawKeyReleased(32) = 1
		SetSpritePhysicsVelocity(spr,GetSpritePhysicsVelocityX(spr),0)
		SetSpritePhysicsImpulse(spr,GetSpriteXByOffset(spr), GetSpriteYByOffset(spr),0,-9000)
	endif

if GetSpritePhysicsVelocityY(spr) < 0
		SetSpritePhysicsDamping(spr,5)
	else
		SetSpritePhysicsDamping(spr,0)
	endif

SetSpritePhysicsVelocity(spr,100,GetSpritePhysicsVelocityY(spr) * 1)
	
	SetSpriteAngle(spr, GetSpritePhysicsVelocityY(spr) * 0.1)
	
	SetViewOffset(0 - (GetVirtualWidth() / 2 - GetSpriteXByOffset(spr)), 0)

sync()
	
loop

+ Code Snippet

setwindowsize(1024,768,0)
SetVirtualResolution(1024,768)

SetClearColor(212,212,255)

//Create Bird
c1 = MakeColor(0,0,255)
c2 = MakeColor(0,255,0)
sync()
DrawEllipse(25,15,20,15,c1,c2,1)
drawline(0,15,50,15,c1,c1)
render()
img=GetImage(0,0,50,30)
spr = CreateSprite(img)
setspritesize(spr,50,30)
ClearScreen()

dim arrSprite[100] as integer

SetPhysicsScale(0.01)

for n = 1 to 100
	arrSprite[n] = createsprite(0)
	setspriteoffset(arrSprite[n],0,10)
	setspritesize(arrSprite[n],50, 50 + random(1,50))
	SetSpriteColor(arrSprite[n],128 + random(1,128),128 + random(1,128),128 + random(1,128),255)
next n

SetSpritePosition(1,GetVirtualWidth() * 0.25, GetVirtualHeight() - GetSpriteHeight(arrSprite[1]))

for n = 2 to 100
	setSpriteposition(arrSprite[n],getSpriteX(arrSprite[n-1]) + GetSpriteWidth(arrSprite[n-1]),GetVirtualHeight() - GetSpriteHeight(arrSprite[n]))
next n

//spr = createSprite(0)
setspritesize(spr,30,30)
SetSpritePhysicsCanRotate(spr,0)
SetSpritePositionByOffset(spr,GetVirtualWidth() / 2, GetVirtualHeight()/3)
SetSpritePhysicsOn(spr,2)
SetSpritePhysicsMass(spr,GetSpritePhysicsMass(spr) * 100)

do
	if GetRawKeyReleased(32) = 1
		SetSpritePhysicsVelocity(spr,GetSpritePhysicsVelocityX(spr),0)
		SetSpritePhysicsImpulse(spr,GetSpriteXByOffset(spr), GetSpriteYByOffset(spr),0,-9000)
	endif

	if GetSpritePhysicsVelocityY(spr) < 0
		SetSpritePhysicsDamping(spr,5)
	else
		SetSpritePhysicsDamping(spr,0)
	endif

	SetSpritePhysicsVelocity(spr,100,GetSpritePhysicsVelocityY(spr) * 1)
	
	SetSpriteAngle(spr, GetSpritePhysicsVelocityY(spr) * 0.1)
	
	SetViewOffset(0 - (GetVirtualWidth() / 2 - GetSpriteXByOffset(spr)), 0)

	
	sync()
	
loop

Quidquid latine dictum sit, altum sonatur
TutCity is being rebuilt

Back to top

Profile PM Email

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 7th Jun 2015 01:16

Link

15 more minutes and here is a full framework...
Again I stress, I just kept experimenting with different values until it worked how I wanted it...

setwindowsize(1024,768,0)
SetVirtualResolution(1024,768)

SetClearColor(212,212,255)

//Constants
#constant cSPACE=150
#constant cPILLARWIDTH=30

//Create Bird
c1 = MakeColor(0,0,255)
c2 = MakeColor(0,255,0)
sync()
DrawEllipse(25,15,20,15,c1,c2,1)
drawline(0,15,50,15,c1,c1)
render()
img=GetImage(0,0,50,30)
spr = CreateSprite(img)
setspritesize(spr,50,30)
ClearScreen()

dim arrSprite[100,2] as integer

SetPhysicsScale(0.01)
//SetPhysicsDebugOn()
//make the pillars
posX# = GetVirtualWidth() * 0.75

for n = 1 to 100
	//pick the space
	myspace = random(getvirtualheight() * 0.25, GetVirtualHeight() * 0.75)
	for x = 1 to 2
		arrSprite[n,x] = createsprite(0)
		setspritesize(arrSprite[n,x], cPILLARWIDTH, GetVirtualHeight() * 0.75)
	next x
	SetSpriteColor(arrSprite[n,1],random(1,128),128 + random(1,128),128 + random(1,128),255)
	SetSpriteColor(arrSprite[n,2],128 + random(1,128),128 + random(1,128),128 + random(1,128),255)
	setspriteoffset(arrSprite[n,1],cPILLARWIDTH / 2, GetSpriteHeight(arrSprite[n,1]))
	setspriteoffset(arrSprite[n,2],cPILLARWIDTH / 2, 0)
	SetSpritePositionByOffset(arrSprite[n,1],posX#, mySpace - (cSPACE / 2))
	SetSpritePositionByOffset(arrSprite[n,2],posX#, mySpace + (cSPACE / 2))
	posX# = posX# + random(200,300)
	SetSpriteShape(arrSprite[n,1],2)
	SetSpritePhysicsOn(arrSprite[n,1],1)
	SetSpriteShape(arrSprite[n,2],2)
	SetSpritePhysicsOn(arrSprite[n,2],1)

next n

//spr = createSprite(0)
setspritesize(spr,30,30)
SetSpritePhysicsCanRotate(spr,0)
SetSpritePositionByOffset(spr,GetVirtualWidth() / 2, GetVirtualHeight()/3)
SetSpritePhysicsOn(spr,2)
SetSpritePhysicsMass(spr,GetSpritePhysicsMass(spr) * 100)

do

//Check for collision. Not doing anything efficient, just checking all...
	for n = 1 to 100
		if GetPhysicsCollision(spr, arrSprite[n,1]) = 1 or GetPhysicsCollision(spr, arrSprite[n,2]) = 1
			message("BANG!")
			SetSpritePhysicsOff(spr)
			SetSpritePositionByOffset(spr,GetVirtualWidth() * 0.25, GetVirtualHeight() *0.25)
			SetSpritePhysicsOn(spr,2)
		endif
	next n

if GetRawKeyPressed(32) = 1
		SetSpritePhysicsVelocity(spr,GetSpritePhysicsVelocityX(spr),0)
		SetSpritePhysicsImpulse(spr,GetSpriteXByOffset(spr), GetSpriteYByOffset(spr),0,-9000)
	endif

if GetSpritePhysicsVelocityY(spr) < 0
		SetSpritePhysicsDamping(spr,10)
	else
		SetSpritePhysicsDamping(spr,0)
	endif

SetSpritePhysicsVelocity(spr,150,GetSpritePhysicsVelocityY(spr) * 1)
	
	SetSpriteAngle(spr, GetSpritePhysicsVelocityY(spr) * 0.1)
	
	SetViewOffset(0 - (GetVirtualWidth() / 2 - GetSpriteXByOffset(spr)), 0)
	
	StepPhysics(GetFrameTime())
	sync()
	
loop

+ Code Snippet

setwindowsize(1024,768,0)
SetVirtualResolution(1024,768)

SetClearColor(212,212,255)

//Constants
#constant cSPACE=150
#constant cPILLARWIDTH=30

//Create Bird
c1 = MakeColor(0,0,255)
c2 = MakeColor(0,255,0)
sync()
DrawEllipse(25,15,20,15,c1,c2,1)
drawline(0,15,50,15,c1,c1)
render()
img=GetImage(0,0,50,30)
spr = CreateSprite(img)
setspritesize(spr,50,30)
ClearScreen()

dim arrSprite[100,2] as integer

SetPhysicsScale(0.01)
//SetPhysicsDebugOn()
//make the pillars
posX# = GetVirtualWidth() * 0.75

for n = 1 to 100
	//pick the space
	myspace = random(getvirtualheight() * 0.25, GetVirtualHeight() * 0.75)
	for x = 1 to 2
		arrSprite[n,x] = createsprite(0)
		setspritesize(arrSprite[n,x], cPILLARWIDTH, GetVirtualHeight() * 0.75)
	next x
	SetSpriteColor(arrSprite[n,1],random(1,128),128 + random(1,128),128 + random(1,128),255)
	SetSpriteColor(arrSprite[n,2],128 + random(1,128),128 + random(1,128),128 + random(1,128),255)
	setspriteoffset(arrSprite[n,1],cPILLARWIDTH / 2, GetSpriteHeight(arrSprite[n,1]))
	setspriteoffset(arrSprite[n,2],cPILLARWIDTH / 2, 0)
	SetSpritePositionByOffset(arrSprite[n,1],posX#, mySpace - (cSPACE / 2))
	SetSpritePositionByOffset(arrSprite[n,2],posX#, mySpace + (cSPACE / 2))
	posX# = posX# + random(200,300)
	SetSpriteShape(arrSprite[n,1],2)
	SetSpritePhysicsOn(arrSprite[n,1],1)
	SetSpriteShape(arrSprite[n,2],2)
	SetSpritePhysicsOn(arrSprite[n,2],1)

next n

//spr = createSprite(0)
setspritesize(spr,30,30)
SetSpritePhysicsCanRotate(spr,0)
SetSpritePositionByOffset(spr,GetVirtualWidth() / 2, GetVirtualHeight()/3)
SetSpritePhysicsOn(spr,2)
SetSpritePhysicsMass(spr,GetSpritePhysicsMass(spr) * 100)

do

	//Check for collision. Not doing anything efficient, just checking all...
	for n = 1 to 100
		if GetPhysicsCollision(spr, arrSprite[n,1]) = 1 or GetPhysicsCollision(spr, arrSprite[n,2]) = 1
			message("BANG!")
			SetSpritePhysicsOff(spr)
			SetSpritePositionByOffset(spr,GetVirtualWidth() * 0.25, GetVirtualHeight() *0.25)
			SetSpritePhysicsOn(spr,2)
		endif
	next n

	if GetRawKeyPressed(32) = 1
		SetSpritePhysicsVelocity(spr,GetSpritePhysicsVelocityX(spr),0)
		SetSpritePhysicsImpulse(spr,GetSpriteXByOffset(spr), GetSpriteYByOffset(spr),0,-9000)
	endif

	if GetSpritePhysicsVelocityY(spr) < 0
		SetSpritePhysicsDamping(spr,10)
	else
		SetSpritePhysicsDamping(spr,0)
	endif

	SetSpritePhysicsVelocity(spr,150,GetSpritePhysicsVelocityY(spr) * 1)
	
	SetSpriteAngle(spr, GetSpritePhysicsVelocityY(spr) * 0.1)
	
	SetViewOffset(0 - (GetVirtualWidth() / 2 - GetSpriteXByOffset(spr)), 0)
	
	StepPhysics(GetFrameTime())
	sync()
	
loop

Quidquid latine dictum sit, altum sonatur
TutCity is being rebuilt

Back to top

Profile PM Email

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 7th Jun 2015 12:31 Edited at: 7th Jun 2015 14:05

Link

Thanks BatVink, But there are still shaking on phone.

Note: I have AppGameKit v1.

@CJB

I will check your code.

Back to top

Profile PM

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 7th Jun 2015 21:53 Edited at: 7th Jun 2015 22:13

Link

I test all codes for fix this problem But there are still shaking.

To ensure correct my work I removed all images and sprites Except player, and tested it again and seen there are still shaking and made me more confident.

all things are Ok in PC but when run it on Phone, there are shaking and Pause.(I tested it on two different device)

I don't know what is this problem, and I'm sure this is another physics bug like (climb ladder in platform game).and this is My second defeat at make physics game with AGK.

I feel at this time that I wasted my time, I worked with AGK. because it have Many bugs.

Back to top

Profile PM

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 7th Jun 2015 23:40

Link

I just tested my code on 1.08 on a mobile device - no shaking.

What did you do to check my code for suitability? It doesn't run on 1.08 without a number of changes.

Quidquid latine dictum sit, altum sonatur
TutCity is being rebuilt

Back to top

Profile PM Email

CJB

Valued Member

20

Years of Service

User Offline

Joined: 10th Feb 2004

Location: Essex, UK

Posted: 8th Jun 2015 02:51

Link

Quote: "I will check your code."

Not sure what you need to check. Just copy/paste and run. Also, it wasn't my code. I just took the simple example that BatVink gave you and altered it so as to give the effect you were after without the need for a full physics system.

Did you manage to get your flappy bird clone working? Personally I think you should forget about cloning other games and have a go at writing your own. Rezalt's Eternal Escape is a good example. Make your own control system and get it working the way you want it to work.

V2 T1 (Mostly)
Uzmadesign

Back to top

Profile PM Email Website

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 8th Jun 2015 07:38 Edited at: 8th Jun 2015 08:14

Link

@BatVink

this is a extract my code:

SetDisplayAspect( -1 )

SetPhysicsGravity(0,200)

global MaxPipe = 5
global gap = 91
global MoveView# = 17.5
global MoveView2# = 0.25
global distance# = 36.0 //Distance value Between pipes
global PipeNumber = 0
global start = 0
global die = 0
global dim pipeUP[MaxPipe]
global dim pipeDown[MaxPipe]
global dim PipeDownPos#[MaxPipe]
global player
global pipeEmptySprite
global text

//Call Functions
CreateIntrotext()
CreatePlayer()
CreatePipes()

do

//move Text according to offset
if GetTextExists(text) = 1 then SetTextPosition(text,GetTextX(text)+MoveView2#,GetTextY(text))

//Start the Game
if start = 0
    if GetSpriteExists(player) = 1
        if GetSpritePlaying(player) = 0
            PlaySprite(player,10,1,1,4)
    endif
        endif
        if GetPointerPressed() = 1
            if GetSpriteExists(player) = 1
                if GetTextExists(text) = 1 then DeleteText(text)
                SetSpritePhysicsDelete(player)
                SetSpritePhysicsOn(player,2)
            endif
            start = 1
endif
    endif

//Jump player
if die = 0
    if start = 1
        if GetSpriteExists(player) = 1
            SetSpritePhysicsVelocity(player,18.0,GetSpritePhysicsVelocityY(player) * 1)
            SetViewOffset(GetViewOffsetX()+0.3,0)
            if GetPointerPressed() = 1
                if GetSpriteY(player) >= 0
                    SetSpritePhysicsVelocity(player,GetSpritePhysicsVelocityX(player),0)
                    SetSpritePhysicsImpulse(player,GetSpriteXByOffset(player), GetSpriteYByOffset(player),0,-70)
                endif
            endif
        endif
    else
        if GetSpriteExists(player) = 1
            SetViewOffset(GetViewOffsetX()+MoveView2#,GetViewOffsetY())
            SetSpritePosition(player,GetViewOffsetX()+10,GetSpriteY(player))
        endif
    endif
endif

//Set Pipe and Coin Position before and after begin the game
for g = 1 to MaxPipe
    if GetSpriteExists(pipeUp[g]) = 1
        if GetSpriteExists(pipeDown[g]) = 1
            if start = 0
                SetSpritePosition(pipeUp[g],GetViewOffsetX()+100,GetSpriteY(pipeUP[g]))
                SetSpritePosition(pipeDown[g],GetViewOffsetX()+100,GetSpriteY(pipeDown[g]))
            else
                if counter <= MaxPipe
                    counter = counter + 1
                    SetSpritePosition(pipeUP[g],GetViewOffsetX()+70+(g*distance#),-Random(5,55))
                    PipeDownPos#[g] = GetSpriteY(pipeUp[g]) + gap //Calculate PipeDown Position
                    SetSpritePosition(pipeDown[g],GetViewOffsetX()+70+(g*distance#),PipeDownPos#[g])
                endif
    endif
        endif
            endif
next g

//move PipeUp and PipeDown to new Location after out of Screen
for a = 1 to MaxPipe
    if GetSpriteExists(pipeUP[a]) = 1
        if GetSpriteExists(pipeDown[a]) = 1
            if WorldToScreenX(GetSpriteX(pipeUP[a])) <= -15
                if WorldToScreenX(GetSpriteX(pipeDown[a])) <= -15
                    PipeNumber = a
                    NewPipeLocation()
    endif
        endif
            endif
                endif
next a

Sync()
loop

//====================================>>> Create Pipes
Function CreatePipes()
//Create Empty Pipe Sprite
pipeEmptySprite = CreateSprite(0)
SetSpriteVisible(pipeEmptySprite,0)
SetSpriteDepth(pipeEmptySprite,12)

for a = 1 to MaxPipe
    if GetSpriteExists(pipeUP[a]) = 0
        //Create top pipes
        pipeUP[a] = CloneSprite(pipeEmptySprite)
        SetSpriteSize(pipeUP[a],10,68)
        SetSpriteFlip(pipeUP[a],Random(0,1),1)
        SetSpritePosition(pipeUP[a],GetViewOffsetX()+80+(a*distance#),-Random(5,55))
        SetSpritePhysicsOn(pipeUp[a],1)
        SetSpriteShape(pipeUp[a],3)
        SetSpriteVisible(pipeUp[a],1)

//Create Bottom pipes
        PipeDownPos#[a] = GetSpriteY(pipeUp[a]) + gap //Calculate PipeDown Position
        if GetSpriteExists(pipeDown[a]) = 0
            pipeDown[a] = CloneSprite(pipeEmptySprite)
            SetSpriteSize(pipeDown[a],10,68)
            SetSpriteFlip(pipeDown[a],Random(0,1),0)
            SetSpritePosition(pipeDown[a],GetViewOffsetX()+80+(a*distance#),PipeDownPos#[a])
            SetSpritePhysicsOn(pipeDown[a],1)
            SetSpriteShape(pipeDown[a],3)
            SetSpriteVisible(pipeDown[a],1)
    endif
        endif
next a

EndFunction
//====================================>>> END

//====================================>>> Create Player
Function CreatePlayer()
    player = CreateSprite(0)
    SetSpriteSize(player,5,-1)
    SetSpritePositionByOffset(player,15,50)
    SetSpriteShape(player,3)
    SetSpriteDepth(player,20)
    SetSpritePhysicsOn(player,3)
    SetSpritePhysicsCanRotate(player,0)
    SetSpritePhysicsMass(player,GetSpritePhysicsMass(player) * 100)
EndFunction
//====================================>>> END

//====================================>>> Create intro Text
Function CreateIntrotext()
    text = CreateText("Press left mouse to Start")
    SetTextPosition(text,GetViewoffsetX()+30,5)
EndFunction
//====================================>>> END

//====================================>>> Create New Pipe Location
//New Pipe Location
Function NewPipeLocation()
    if PipeNumber > MaxPipe then PipeNumber = 1
    if GetSpriteExists(pipeUP[PipeNumber]) = 1
        if GetSpriteExists(pipeDown[PipeNumber]) = 1
            SetSpritePosition(pipeUP[PipeNumber],GetSpriteX(pipeUP[PipeNumber])+180,-Random(0,60))
            SetSpritePosition(pipeDown[PipeNumber],GetSpriteX(pipeDown[PipeNumber])+180,GetSPriteY(pipeUP[PipeNumber])+gap)
    endif
        endif
EndFunction
//====================================>>> END

+ Code Snippet

SetDisplayAspect( -1 )

SetPhysicsGravity(0,200)

global MaxPipe = 5
global gap = 91
global MoveView# = 17.5
global MoveView2# = 0.25
global distance# = 36.0 //Distance value Between pipes
global PipeNumber = 0
global start = 0
global die = 0
global dim pipeUP[MaxPipe]
global dim pipeDown[MaxPipe]
global dim PipeDownPos#[MaxPipe]
global player
global pipeEmptySprite
global text

//Call Functions
CreateIntrotext()
CreatePlayer()
CreatePipes()

do

//move Text according to offset
if GetTextExists(text) = 1 then SetTextPosition(text,GetTextX(text)+MoveView2#,GetTextY(text))

//Start the Game
if start = 0
    if GetSpriteExists(player) = 1
        if GetSpritePlaying(player) = 0
            PlaySprite(player,10,1,1,4)
    endif
        endif
        if GetPointerPressed() = 1
            if GetSpriteExists(player) = 1
                if GetTextExists(text) = 1 then DeleteText(text)
                SetSpritePhysicsDelete(player)
                SetSpritePhysicsOn(player,2)
            endif
            start = 1
endif
    endif

//Jump player
if die = 0
    if start = 1
        if GetSpriteExists(player) = 1
            SetSpritePhysicsVelocity(player,18.0,GetSpritePhysicsVelocityY(player) * 1)
            SetViewOffset(GetViewOffsetX()+0.3,0)
            if GetPointerPressed() = 1
                if GetSpriteY(player) >= 0
                    SetSpritePhysicsVelocity(player,GetSpritePhysicsVelocityX(player),0)
                    SetSpritePhysicsImpulse(player,GetSpriteXByOffset(player), GetSpriteYByOffset(player),0,-70)
                endif
            endif
        endif
    else
        if GetSpriteExists(player) = 1
            SetViewOffset(GetViewOffsetX()+MoveView2#,GetViewOffsetY())
            SetSpritePosition(player,GetViewOffsetX()+10,GetSpriteY(player))
        endif
    endif
endif

//Set Pipe and Coin Position before and after begin the game
for g = 1 to MaxPipe
    if GetSpriteExists(pipeUp[g]) = 1
        if GetSpriteExists(pipeDown[g]) = 1
            if start = 0
                SetSpritePosition(pipeUp[g],GetViewOffsetX()+100,GetSpriteY(pipeUP[g]))
                SetSpritePosition(pipeDown[g],GetViewOffsetX()+100,GetSpriteY(pipeDown[g]))
            else
                if counter <= MaxPipe
                    counter = counter + 1
                    SetSpritePosition(pipeUP[g],GetViewOffsetX()+70+(g*distance#),-Random(5,55))
                    PipeDownPos#[g] = GetSpriteY(pipeUp[g]) + gap //Calculate PipeDown Position
                    SetSpritePosition(pipeDown[g],GetViewOffsetX()+70+(g*distance#),PipeDownPos#[g])
                endif
    endif
        endif
            endif
next g

//move PipeUp and PipeDown to new Location after out of Screen
for a = 1 to MaxPipe
    if GetSpriteExists(pipeUP[a]) = 1
        if GetSpriteExists(pipeDown[a]) = 1
            if WorldToScreenX(GetSpriteX(pipeUP[a])) <= -15
                if WorldToScreenX(GetSpriteX(pipeDown[a])) <= -15
                    PipeNumber = a
                    NewPipeLocation()
    endif
        endif
            endif
                endif
next a

 Sync()
loop


//====================================>>> Create Pipes
Function CreatePipes()
//Create Empty Pipe Sprite
pipeEmptySprite = CreateSprite(0)
SetSpriteVisible(pipeEmptySprite,0)
SetSpriteDepth(pipeEmptySprite,12)

for a = 1 to MaxPipe
    if GetSpriteExists(pipeUP[a]) = 0
        //Create top pipes
        pipeUP[a] = CloneSprite(pipeEmptySprite)
        SetSpriteSize(pipeUP[a],10,68)
        SetSpriteFlip(pipeUP[a],Random(0,1),1)
        SetSpritePosition(pipeUP[a],GetViewOffsetX()+80+(a*distance#),-Random(5,55))
        SetSpritePhysicsOn(pipeUp[a],1)
        SetSpriteShape(pipeUp[a],3)
        SetSpriteVisible(pipeUp[a],1)

        //Create Bottom pipes
        PipeDownPos#[a] = GetSpriteY(pipeUp[a]) + gap //Calculate PipeDown Position
        if GetSpriteExists(pipeDown[a]) = 0
            pipeDown[a] = CloneSprite(pipeEmptySprite)
            SetSpriteSize(pipeDown[a],10,68)
            SetSpriteFlip(pipeDown[a],Random(0,1),0)
            SetSpritePosition(pipeDown[a],GetViewOffsetX()+80+(a*distance#),PipeDownPos#[a])
            SetSpritePhysicsOn(pipeDown[a],1)
            SetSpriteShape(pipeDown[a],3)
            SetSpriteVisible(pipeDown[a],1)
    endif
        endif
next a

EndFunction
//====================================>>> END

//====================================>>> Create Player
Function CreatePlayer()
    player = CreateSprite(0)
    SetSpriteSize(player,5,-1)
    SetSpritePositionByOffset(player,15,50)
    SetSpriteShape(player,3)
    SetSpriteDepth(player,20)
    SetSpritePhysicsOn(player,3)
    SetSpritePhysicsCanRotate(player,0)
    SetSpritePhysicsMass(player,GetSpritePhysicsMass(player) * 100)
EndFunction
//====================================>>> END

//====================================>>> Create intro Text
Function CreateIntrotext()
    text = CreateText("Press left mouse to Start")
    SetTextPosition(text,GetViewoffsetX()+30,5)
EndFunction
//====================================>>> END

//====================================>>> Create New Pipe Location
//New Pipe Location
Function NewPipeLocation()
    if PipeNumber > MaxPipe then PipeNumber = 1
    if GetSpriteExists(pipeUP[PipeNumber]) = 1
        if GetSpriteExists(pipeDown[PipeNumber]) = 1
            SetSpritePosition(pipeUP[PipeNumber],GetSpriteX(pipeUP[PipeNumber])+180,-Random(0,60))
            SetSpritePosition(pipeDown[PipeNumber],GetSpriteX(pipeDown[PipeNumber])+180,GetSPriteY(pipeUP[PipeNumber])+gap)
    endif
        endif
EndFunction
//====================================>>> END

In this code there are shaking and pause.
if possible please check my code.

@CJB

Quote: "
Did you manage to get your flappy bird clone working? Personally I think you should forget about cloning other games and have a go at writing your own. Rezalt's Eternal Escape is a good example. Make your own control system and get it working the way you want it to work."

yes, I used cloning for my game. I only have 5 pipe and I changed the position and height size of each of them after outside of view.

Thanks.

Back to top

Profile PM

Impetus73

13

Years of Service

User Offline

Joined: 28th Aug 2011

Location: Volda, Norway

Posted: 8th Jun 2015 09:35

Link

LOL at the reply to the latest quote

----------------
AGK programmer
Did Amiga / AMOS programming in the 90's.

Back to top

Profile PM Email

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 8th Jun 2015 10:38

Link

Your code doesn't shake or pause for me on a mobile device.

Quidquid latine dictum sit, altum sonatur
TutCity is being rebuilt

Back to top

Profile PM Email

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 8th Jun 2015 11:19 Edited at: 8th Jun 2015 11:24

Link

OK.

my calculate for move player is not correct, player slowly move to out of screen. can you help me to fix it?

problem is relate to this part:

+ Code Snippet

//Jump player
if die = 0
    if start = 1
        if GetSpriteExists(player) = 1
            SetSpritePhysicsVelocity(player,18.0,GetSpritePhysicsVelocityY(player) * 1)
            SetViewOffset(GetViewOffsetX()+0.3,0)
            if GetPointerPressed() = 1
                if GetSpriteY(player) >= 0
                    SetSpritePhysicsVelocity(player,GetSpritePhysicsVelocityX(player),0)
                    SetSpritePhysicsImpulse(player,GetSpriteXByOffset(player), GetSpriteYByOffset(player),0,-70)
                endif
            endif
        endif
    else
        if GetSpriteExists(player) = 1
            SetViewOffset(GetViewOffsetX()+MoveView2#,GetViewOffsetY())
            SetSpritePosition(player,GetViewOffsetX()+10,GetSpriteY(player))
        endif
    endif
endif

Back to top

Profile PM

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 8th Jun 2015 11:48

Link

It's because when you hit a pillar, you are continuing the game. When you have finished, I assume you will be ending the game when you crash?

The difference between your code and mine is this...You keep moving the view offset forwards all the time. I set my view offset based on the position of the player. So if the player stops, the view offset stops.

Quidquid latine dictum sit, altum sonatur
TutCity is being rebuilt

Back to top

Profile PM Email

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 8th Jun 2015 11:58

Link

Quote: "I assume you will be ending the game when you crash?"

yes.

Quote: "I set my view offset based on the position of the player. So if the player stops, the view offset stops."

can you fix it in my code?

and another question is what is your phone?

Back to top

Profile PM

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 8th Jun 2015 12:31 Edited at: 8th Jun 2015 12:33

Link

@BatVink

at this time I tested my game on my friends phone device (Samsung galaxy note 3) and (Sony Xperia M) and there are shaking and pause on them.

I think all devices can't have problem.

Back to top

Profile PM

CJB

Valued Member

20

Years of Service

User Offline

Joined: 10th Feb 2004

Location: Essex, UK

Posted: 8th Jun 2015 12:56

Link

Quote: "I think all devices can't have problem. "

I agree. It's not the devices that have the problem.

V2 T1 (Mostly)
Uzmadesign

Back to top

Profile PM Email Website

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 8th Jun 2015 13:03

Link

My phone is a Nexus 4. The phones you have tested on are good phones, there should be no framerate problem or similar issues.

Add this line before your Sync(), see if it fixes the shake...

StepPhysics(GetFrameTime())

Quidquid latine dictum sit, altum sonatur
TutCity is being rebuilt

Back to top

Profile PM Email

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 8th Jun 2015 13:03

Link

Quote: "I agree. It's not the devices that have the problem."

but what is the problem?

Back to top

Profile PM

Scraggle

Moderator

21

Years of Service

User Offline

Joined: 10th Jul 2003

Location: Yorkshire

Posted: 8th Jun 2015 13:07

Link

Quote: "but what is the problem? "

I believe the problem is in the chair to keyboard interface.

AGK V2 user - Tier 1 (mostly)

Back to top

Profile PM Email

CJB

Valued Member

20

Years of Service

User Offline

Joined: 10th Feb 2004

Location: Essex, UK

Posted: 8th Jun 2015 13:10

Link

Quote: "chair to keyboard interface"

Love it! I must use that!!!

V2 T1 (Mostly)
Uzmadesign

Back to top

Profile PM Email Website

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 8th Jun 2015 13:13

Link

Quote: "I believe the problem is in the chair to keyboard interface."

I don't understand your mean.???

Back to top

Profile PM

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 8th Jun 2015 13:25

Link

Quote: "dd this line before your Sync(), see if it fixes the shake...

StepPhysics(GetFrameTime())"

I tested it, but shaking and pause still exists.

Back to top

Profile PM

CJB

Valued Member

20

Years of Service

User Offline

Joined: 10th Feb 2004

Location: Essex, UK

Posted: 8th Jun 2015 14:06

Link

Do you need to use physics? i.e. Are you planning to have your 'flappy bird' smash through things, or swing on things, or bounce off things etc? If not, then did you try the 'non physics' code example? You said you'd check it, but you didn't come back. It took maybe a minute to make those changes to create a non-physics custom control method. You've been using AppGameKit for quite a while now, so I think you should be able to go and do one.

The Box2D implementation in AppGameKit is not complete, so there are going to be rare scenarios where something might not work exactly as you intend and there will be nothing you can do about it. Like when I couldn't get a bunch of stacked dynamic objects to settle down into their idle state for a 2d scroller I was working on. They'd continue moving the tiniest amount until eventually they toppled over some five minutes later - if the full BOX2d set had been exposed in AppGameKit I'd have been easily able to fix the problem, but meh, I worked around it through experimentation.

Try to think outside the box (2d).

V2 T1 (Mostly)
Uzmadesign

Back to top

Profile PM Email Website

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 8th Jun 2015 14:36

Link

Quote: "Do you need to use physics? i.e. Are you planning to have your 'flappy bird' smash through things, or swing on things, or bounce off things etc? If not, then did you try the 'non physics' code example?"

At first thank you for Accept Problem.

I don't need use Physics.I seen your 'non physics' code example, but it no have real jump and control is hard.I work on it again tonight I declare the result.

Quote: "Try to think outside the box (2d)."

I have no problem, but need more help. already said, I learned game making with physics method, and I'm not good familiar with non-physics method.

Back to top

Profile PM

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 8th Jun 2015 15:29

Link

Quote: "They'd continue moving the tiniest amount until eventually they toppled over some five minutes later"

Over the years I've used Box2D, Newton, PhysX, Ageia, and others. For some bizarre reason they all seem to suffer from the cold-fusion effect where stacks of blocks generate their own energy and shake themselves to a pile of rubble.

We should harness this power for a greener future.

Quidquid latine dictum sit, altum sonatur
TutCity is being rebuilt

Back to top

Profile PM Email

CJB

Valued Member

20

Years of Service

User Offline

Joined: 10th Feb 2004

Location: Essex, UK

Posted: 8th Jun 2015 15:40 Edited at: 8th Jun 2015 15:41

Link

BatVink didn't see any stuttering, and I couldn't see any either so I suspect the problem may be related to your media. Are you using lots of large sprites with see-through bits (it's not unheard of for starters to use a full screen of see-through sprite just for a 32x32 image, instead of a 32x32 sprite positioned in the correct place), or loads of particle effects or particularly intensive shaders in your code etc.?

Put a Print(Screenfps()) in your code and let us know what frame-rate you are getting.

Quote: "We should harness this power for a greener future."

Very green!

V2 T1 (Mostly)
Uzmadesign

Back to top

Profile PM Email Website

CJB

Valued Member

20

Years of Service

User Offline

Joined: 10th Feb 2004

Location: Essex, UK

Posted: 9th Jun 2015 17:13

Link

Is your Flappy Bird game working now Behdadsoft? If you post your entire project, I'd be glad to test it on my Android device to see if I get the same problem.

V2 T1 (Mostly)
Uzmadesign

Back to top

Profile PM Email Website

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 10th Jun 2015 06:46 Edited at: 10th Jun 2015 06:47

Link

Quote: "Is your Flappy Bird game working now Behdadsoft?"

yes, thanks CJB.

your method now work very well and there aren't shaking and pause.

Quote: "If you post your entire project, I'd be glad to test it on my Android device to see if I get the same problem."

I will be release this project at next week. and before sell it on google play, send it for you.

Back to top

Profile PM

CJB

Valued Member

20

Years of Service

User Offline

Joined: 10th Feb 2004

Location: Essex, UK

Posted: 10th Jun 2015 10:40

Link

Woohoo! Great

I look forward to seeing it! Congratulations.

V2 T1 (Mostly)
Uzmadesign

Back to top

Profile PM Email Website

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 10th Jun 2015 10:45

Link

Quote: "Woohoo! Great I look forward to seeing it! Congratulations."

Thanks CJB

Back to top

Profile PM

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 10th Jun 2015 15:03 Edited at: 10th Jun 2015 15:13

Link

@CJB

I sent download link beta version of my game to your email for test on your device and see there is any problem or not.(if Possible).

Back to top

Profile PM

CJB

Valued Member

20

Years of Service

User Offline

Joined: 10th Feb 2004

Location: Essex, UK

Posted: 10th Jun 2015 15:11 Edited at: 10th Jun 2015 16:55

Link

Sent

Ok, I've had a quick play of the game and first impressions: I am very impressed.

Without looking at your code, it is difficult to make any recommendations on how to improve performance. I did notice an occasional glitch like a couple of dropped frames every few seconds.

If it doesn't cause too much detriment to visual quality, You could try reducing the size of your background and pipestone images to 512 instead 1024 (would look identical on my little GS2).

When you recycle the pipes, are you deleting and re-creating sprites, or just moving them to the new location?

It might be the look you are going for, but I think the coin animation could be a little faster. The scrolling is really smooth, but the coins are animating at a much lower frame rate.

I think you're onto a winner there Behdadsoft! Good luck with the launch

V2 T1 (Mostly)
Uzmadesign

Back to top

Profile PM Email Website

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 11th Jun 2015 00:28 Edited at: 11th Jun 2015 10:35

Link

Thanks CJB

Quote: "If it doesn't cause too much detriment to visual quality, You could try reducing the size of your background and pipestone images to 512 instead 1024 (would look identical on my little GS2)."

only for test I reduced the size of my background to (320X400) and pipestone images to (512X512).I think the quality is not low.

Quote: "When you recycle the pipes, are you deleting and re-creating sprites, or just moving them to the new location?"

To avoid frame loss, I doesn't deleting and re-creating sprites and just moving them to the new location.

Quote: "but I think the coin animation could be a little faster"

right, I changed coin animation form 10 to 13, and if you feel coin animation could be a more faster, I will be change it.

Quote: "I think you're onto a winner there Behdadsoft! Good luck with the launch"

Thanks again

I sent new APK to you. if possible check it again.

Back to top

Profile PM

CJB

Valued Member

20

Years of Service

User Offline

Joined: 10th Feb 2004

Location: Essex, UK

Posted: 11th Jun 2015 13:01

Link

Checked the new version. I couldn't test it too much because it's SO difficult! I'm rubbish at this sort of game. I tried to break it by jumping off the top of the screen, and by letting the little d drop through the flaw, but it responded correctly.

Looking good! Get it published

V2 T1 (Mostly)
Uzmadesign

Back to top

Profile PM Email Website

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 11th Jun 2015 13:06 Edited at: 11th Jun 2015 13:08

Link

Quote: "I couldn't test it too much because it's SO difficult"

LoL. My last record is 98 coin.

Mean there is no any pause and dropped frames??

if think also there are dropped frames I can send my project to you.

Back to top

Profile PM

Funnell7

13

Years of Service

User Offline

Joined: 8th Sep 2011

Location: UK, England

Posted: 11th Jun 2015 13:22

Link

@Behdadsoft, I'd happily test this for you as well if you would like. I love these sort of games

Using AppGameKit V2 Tier 1

Back to top

Profile PM Email

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 11th Jun 2015 13:30 Edited at: 11th Jun 2015 13:33

Link

sure, please send one email to me.

Back to top

Profile PM

Funnell7

13

Years of Service

User Offline

Joined: 8th Sep 2011

Location: UK, England

Posted: 11th Jun 2015 14:42

Link

Very impressive indeed Behdadsoft, well done... I get a consistent 59 FPS with no frame drop. Tested as much as I could, but couldn't get a score over 4 lol...

I do think there is a fine balance between making a game hard, and near on impossible. And I think, for me at least, this one is near impossible. But if you have achieved a score of 98 then it must be doable... I'll keep at it and report back...

Other than that, I don't really have anything else to add, the game is very well polished, your logo looks great, the game plays really well (albeit ridiculously hard), and I didn't see any noticeable delays when transitioning, so all I can do is second what CJB said "Get it published"

Using AppGameKit V2 Tier 1

Back to top

Profile PM Email

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 11th Jun 2015 15:05

Link

I forget, Thanks CJB for Test and Guides.

OK, Thanks Funnell7 for test.

yes, this game is a little hard. and I want reduce size of dragons and improve jump to simplify it.

after finish the game I send final and English version to you and CJB.

I'm glad you're happy with this game.

Quote: "what CJB said "Get it published""

sure

Back to top

Profile PM

lilpissywilly

AGK Developer

14

Years of Service

User Offline

Joined: 10th Sep 2010

Location: Office Chair

Posted: 11th Jun 2015 15:43

Link

Just a little input on the framerate issue (seems you fixed it but anyway);

If you design a game with 60fps and a user has "power saving" activated on their device the FPS is often limited to 40.

My hovercraft is full of eels

Back to top

Profile PM Email Website

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 11th Jun 2015 15:56 Edited at: 11th Jun 2015 21:39

Link

Quote: "If you design a game with 60fps and a user has "power saving" activated on their device the FPS is often limited to 40."

Thanks,It was a good Point.

Back to top

Profile PM

Sorry your browser is not supported!

AppGameKit Classic Chat / Problem with SetViewOffset()