Need help with increment movement going too fast.

Author

Message

RoadKill

1

Years of Service

User Offline

Joined: 22nd Apr 2022

Location:

Posted: 24th Apr 2022 19:07

Link

Hi all, I'm new to using App Game Kit, I'm a regular user Clickteam Fusion 2.5 but I'm looking in to trying to learn a code based language.

Currently I've managed to make a script that allows multiple custom bitmap fonts displaying player scores and render it the the window which worked far better than I thought it would (It did take me way too long to figure out how subimages worked though.)

Anyway on to my issue, I'm currently trying to make my player sprite move in increments of 4 but it moves far to quickly, normally in Fusion I would use a condition of every so many milliseconds to do a action but I can't seem to figure out how to do it without the using the sleep command, this seems to slow the whole program though.

What is the best way of doing timer based events like I would do in Fusion?

I did try the timer based movement example included in the help system but that doesn't do what I want it to do and seems to make movement faster the longer the game would be playing.

Back to top

Profile PM

Virtual Nomad

Moderator

18

Years of Service

User Offline

Joined: 14th Dec 2005

Location: SF Bay Area, USA

Posted: 24th Apr 2022 22:51 Edited at: 24th Apr 2022 23:56

Link

Quote: "every so many milliseconds do a action"

something like:

+ Code Snippet

SetWindowSize(640,360,0)
SetVirtualResolution( 640,360)
SetSyncRate( 30, 0 ) 
SetScissor( 0,0,0,0 )
UseNewDefaultFonts( 1 ) 

Player = CreateSprite(0)	:	SetSpritePositionByOffset(Player, 320,180)
Rate# = 0.1  
LastMove# = Timer()
do
	If GetRawKeyReleased(27)  then End //[ESC]

	If LastMove# + Rate# < Timer()
		px# = GetSpriteXByOffset(Player)	:	py# = GetSpriteYByOffset(Player)
		UD = GetRawKeyState(40)-GetRawKeyState(38)
		LR = GetRawKeyState(39)-GetRawKeyState(37)
		SetSpritePositionByOffset(Player, px# + (LR*4), py# + (UD*4))
		LastMove# = Timer()
	EndIf

	Print("[ArrowKeys] = Move")
	Print("[ESC] = End")
    Sync()
loop

but that isn't real timer-based movement which, in a nutshell, would move the player by some fraction of whatever move rate (ie, 40 px) per second every frame vs moving 4 px every 0.1 seconds in the example above.

otherwise, glancing at the timer-based example in help files and it's ugly.

here's a simple comparison:

+ Code Snippet

SetWindowSize(640,360,0)
SetVirtualResolution( 640,360)
SetSyncRate( 0, 0 ) 
SetScissor( 0,0,0,0 )
UseNewDefaultFonts( 1 ) 

Player = CreateSprite(0)	:	SetSpritePositionByOffset(Player, 320,180)
PPS# = 40.0 //px per second

Player2 = CreateSprite(0)	:	SetSpritePositionByOffset(Player2, 320,250)
Rate# = 0.1

do
	If GetRawKeyReleased(27)  then End //[ESC]

	px# = GetSpriteXByOffset(Player)	:	py# = GetSpriteYByOffset(Player)
	UD = GetRawKeyState(40)-GetRawKeyState(38)
	LR = GetRawKeyState(39)-GetRawKeyState(37)

	//TBM
	Tick# = (Timer()-LastMove#)
	Tock# = PPS# * Tick#
	SetSpritePositionByOffset(Player, px# + LR*Tock#, py# + UD*Tock#)

	//Time Limited
    If LastMove2# + Rate# <= Timer()
		px2# = GetSpriteXByOffset(Player2)	:	py2# = GetSpriteYByOffset(PLayer2)
        SetSpritePositionByOffset(Player2, px2# + (LR*4), py2# + (UD*4)) //4 px per 1/10 sec
        LastMove2# = Timer()
    EndIf

	LastMove# = Timer()
	Print("[ArrowKeys] = Move")
	Print("[ESC] = End")
    Sync()
loop

note: i'm not carrying over any remaining time toward when the next (what i'm calling) "time limited" movement could occur (player2).

it's lost and just waiting 100ms before allowing potential movement to occur again.

to exaggerate the difference:

SetWindowSize(640,360,0)
SetVirtualResolution( 640,360)
SetSyncRate( 1, 0 ) 
SetScissor( 0,0,0,0 )
UseNewDefaultFonts( 1 )

Player = CreateSprite(0)	:	SetSpritePositionByOffset(Player, 320,180)
PPS# = 40.0 //px per second

Player2 = CreateSprite(0)	:	SetSpritePositionByOffset(Player2, 320,250)
Rate# = 0.1

do
	If GetRawKeyReleased(27)  then End //[ESC]

px# = GetSpriteXByOffset(Player)	:	py# = GetSpriteYByOffset(Player)
	UD = GetRawKeyState(40)-GetRawKeyState(38)
	LR = GetRawKeyState(39)-GetRawKeyState(37)

//TBM
	Tick# = (Timer()-LastMove#)
	Tock# = PPS# * Tick#
	SetSpritePositionByOffset(Player, px# + LR*Tock#, py# + UD*Tock#)

//Time Limited
    If LastMove2# + Rate# <= Timer()
		px2# = GetSpriteXByOffset(Player2)	:	py2# = GetSpriteYByOffset(PLayer2)
        SetSpritePositionByOffset(Player2, px2# + (LR*4), py2# + (UD*4)) //4 px per 1/10 sec
        LastMove2# = Timer()
    EndIf

LastMove# = Timer()
	Print("[ArrowKeys] = Move")
	Print("[ESC] = End")
	Print("Diff: " + STR(px#-GetSpriteXByOffset(Player)))
	Print("Diff2: " + STR(px2#-GetSpriteXByOffset(Player2)))
    Sync()
loop

+ Code Snippet

SetWindowSize(640,360,0)
SetVirtualResolution( 640,360)
SetSyncRate( 1, 0 ) 
SetScissor( 0,0,0,0 )
UseNewDefaultFonts( 1 ) 

Player = CreateSprite(0)	:	SetSpritePositionByOffset(Player, 320,180)
PPS# = 40.0 //px per second

Player2 = CreateSprite(0)	:	SetSpritePositionByOffset(Player2, 320,250)
Rate# = 0.1

do
	If GetRawKeyReleased(27)  then End //[ESC]

	px# = GetSpriteXByOffset(Player)	:	py# = GetSpriteYByOffset(Player)
	UD = GetRawKeyState(40)-GetRawKeyState(38)
	LR = GetRawKeyState(39)-GetRawKeyState(37)

	//TBM
	Tick# = (Timer()-LastMove#)
	Tock# = PPS# * Tick#
	SetSpritePositionByOffset(Player, px# + LR*Tock#, py# + UD*Tock#)

	//Time Limited
    If LastMove2# + Rate# <= Timer()
		px2# = GetSpriteXByOffset(Player2)	:	py2# = GetSpriteYByOffset(PLayer2)
        SetSpritePositionByOffset(Player2, px2# + (LR*4), py2# + (UD*4)) //4 px per 1/10 sec
        LastMove2# = Timer()
    EndIf

	LastMove# = Timer()
	Print("[ArrowKeys] = Move")
	Print("[ESC] = End")
	Print("Diff: " + STR(px#-GetSpriteXByOffset(Player)))
	Print("Diff2: " + STR(px2#-GetSpriteXByOffset(Player2)))
    Sync()
loop

note SyncRate(1,0) and the last bit. ie, update 1 frame per second and player still moving ~40px per second (on avg).

meanwhile, welcome

AGK Tower Defense Community Competition | [TD]
AGK Resource Directory
AGK on Itch.io
TGC @ GitHub
Some Snippets

Attachments

Login to view attachments

Back to top

Profile PM Website

MadBit

VIP Member

Gold Codemaster

14

Years of Service

User Offline

Joined: 25th Jun 2009

Location: Germany

Posted: 25th Apr 2022 07:47

Link

I also welcome you.
What you can also use is GetFrameTime()

+ Code Snippet

	px3# = GetSpriteXByOffset(Player3)	:	py3# = GetSpriteYByOffset(Player3)
	Tock# = PPS#*GetFrameTime()
	SetSpritePositionByOffset(Player3, px3# + LR*Tock#, py3# + UD*Tock#)

Then you don't need to calculate the past time in every frame.

Here the 2nd listing of VN added with the GetFrameTime method.

SetWindowSize(640,360,0)
SetVirtualResolution( 640,360)
SetSyncRate( 0, 0 ) 
SetScissor( 0,0,0,0 )
UseNewDefaultFonts( 1 )

Player = CreateSprite(0)	:	SetSpritePositionByOffset(Player, 320,180)
PPS# = 40.0 //px per second

Player2 = CreateSprite(0)	:	SetSpritePositionByOffset(Player2, 320,250)
Rate# = 0.1

Player3 = CreateSprite(0)	:	SetSpritePositionByOffset(Player3, 320,320)

do
	If GetRawKeyReleased(27)  then End //[ESC]

px# = GetSpriteXByOffset(Player)	:	py# = GetSpriteYByOffset(Player)
	UD = GetRawKeyState(40)-GetRawKeyState(38)
	LR = GetRawKeyState(39)-GetRawKeyState(37)

//TBM
	Tick# = (Timer()-LastMove#)
	Tock# = PPS# * Tick#
	SetSpritePositionByOffset(Player, px# + LR*Tock#, py# + UD*Tock#)

//Time Limited
    If LastMove2# + Rate# <= Timer()
		px2# = GetSpriteXByOffset(Player2)	:	py2# = GetSpriteYByOffset(PLayer2)
        SetSpritePositionByOffset(Player2, px2# + (LR*4), py2# + (UD*4)) //4 px per 1/10 sec
        LastMove2# = Timer()
    EndIf

px3# = GetSpriteXByOffset(Player3)	:	py3# = GetSpriteYByOffset(Player3)
	Tock# = PPS#*GetFrameTime()
	SetSpritePositionByOffset(Player3, px3# + LR*Tock#, py3# + UD*Tock#)
	
	LastMove# = Timer()
	Print("[ArrowKeys] = Move")
	Print("[ESC] = End")
    Sync()
loop

+ Code Snippet

SetWindowSize(640,360,0)
SetVirtualResolution( 640,360)
SetSyncRate( 0, 0 ) 
SetScissor( 0,0,0,0 )
UseNewDefaultFonts( 1 ) 

Player = CreateSprite(0)	:	SetSpritePositionByOffset(Player, 320,180)
PPS# = 40.0 //px per second

Player2 = CreateSprite(0)	:	SetSpritePositionByOffset(Player2, 320,250)
Rate# = 0.1

Player3 = CreateSprite(0)	:	SetSpritePositionByOffset(Player3, 320,320)

do
	If GetRawKeyReleased(27)  then End //[ESC]

	px# = GetSpriteXByOffset(Player)	:	py# = GetSpriteYByOffset(Player)
	UD = GetRawKeyState(40)-GetRawKeyState(38)
	LR = GetRawKeyState(39)-GetRawKeyState(37)

	//TBM
	Tick# = (Timer()-LastMove#)
	Tock# = PPS# * Tick#
	SetSpritePositionByOffset(Player, px# + LR*Tock#, py# + UD*Tock#)

	//Time Limited
    If LastMove2# + Rate# <= Timer()
		px2# = GetSpriteXByOffset(Player2)	:	py2# = GetSpriteYByOffset(PLayer2)
        SetSpritePositionByOffset(Player2, px2# + (LR*4), py2# + (UD*4)) //4 px per 1/10 sec
        LastMove2# = Timer()
    EndIf

	px3# = GetSpriteXByOffset(Player3)	:	py3# = GetSpriteYByOffset(Player3)
	Tock# = PPS#*GetFrameTime()
	SetSpritePositionByOffset(Player3, px3# + LR*Tock#, py3# + UD*Tock#)
	
	LastMove# = Timer()
	Print("[ArrowKeys] = Move")
	Print("[ESC] = End")
    Sync()
loop

Share your knowledge. It\'s a way to achieve immortality. (Tenzin Gyatso)

Back to top

Profile PM Email

Sorry your browser is not supported!

AppGameKit Studio Chat / Need help with increment movement going too fast.

Attachments