Camera zooms out based on player speed

Author

Message

Midget Blaster

AGK Developer

7

Years of Service

User Offline

Joined: 7th May 2016

Location:

Posted: 28th Dec 2017 23:54

Link

Hi I'm trying to add something into my game that zooms out the camera the faster the ball moves, and zooms in if it slows down. This is what I managed to make.

+ Code Snippet

global time as float = 0
global steptime as float = 0
global timerstat as float = 0
global timerdistance as float = 0
global distancevalue as float = 0
global zoomvalue as float = 0

global zoom as float = 1
global zoomminus as float = 0.002

timerpositioner = createsprite(0)

        zoomvalue = distancevalue/130
	zoom = zoom - zoomvalue
	
	SetViewZoom(zoom)

	if zoom < 0.9
		zoom = 0.9
	endif
	
	timerdistance = Sqrt( (GetSpriteX(timerpositioner) - GetSpriteX(ball))^2 + (GetSpriteY(timerpositioner) - GetSpriteY(ball))^2 )

time = timer()
if time > 0.01
	SetSpritePosition(timerpositioner,GetSpriteX(ball),GetSpriteY(ball))
	distancevalue = timerdistance
	ResetTimer()
endif

So to explain:

Variable Declaration

+ Code Snippet

global time as float = 0
global steptime as float = 0
global timerstat as float = 0
global timerdistance as float = 0
global distancevalue as float = 0
global zoomvalue as float = 0

global zoom as float = 1
global zoomminus as float = 0.002

This is a formula that checks the distance between two objects.

+ Code Snippet

timerdistance = Sqrt( (GetSpriteX(timerpositioner) - GetSpriteX(ball))^2 + (GetSpriteY(timerpositioner) - GetSpriteY(ball))^2 )

This is a timer that every 1/100th of a second teleports to the balls current position and saves the speed at which the ball is going at.

+ Code Snippet

time = timer()
if time > 0.01
	SetSpritePosition(timerpositioner,GetSpriteX(ball),GetSpriteY(ball))
	distancevalue = timerdistance
	ResetTimer()
endif

This here processes the current speed as a float for how far the game should zoom out, as well as setting the view and adding a limit

+ Code Snippet

zoomvalue = distancevalue/130
	zoom = zoom - zoomvalue
	
	SetViewZoom(zoom)

	if zoom < 0.9
		zoom = 0.9
	endif

Yes I know to more experienced people this may seem like an absolute disaster, but we're all here to learn.
If anyone has a solution, or has created this before in their own code I would be super thankful if someone could help me out.
Thank you.

Back to top

Profile PM Website

Midget Blaster

AGK Developer

7

Years of Service

User Offline

Joined: 7th May 2016

Location:

Posted: 30th Dec 2017 19:39

Link

Still trying to find a solution, any help at all is appreciated

Back to top

Profile PM Website

Markus

Valued Member

20

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 1st Jan 2018 23:04 Edited at: 2nd Jan 2018 01:53

Link

i made a example based on current speed.
(ups, rename to magnitude)

#option_explicit

SetViewZoomMode(1) // 1 = Center

type Ball
	spr as integer
	sx as float
	sy as float
	magnitute as float
endtype

Main()
End

Function Main()
	
	local ball as Ball
	ball.spr = CreateSprite(0)
	SetSpritePositionByOffset(ball.spr,50,50)
	
	local x as float,y as float, z as float
	local dx as float,dy as float
	
	Do
		print("Use Cursor Keys")
		
		//Joy Input
		dx = GetDirectionX() 
		dy = GetDirectionY()

//Add
		ball.sx = ball.sx + dx / 100.0
		ball.sy = ball.sy + dy / 100.0

ball.sx = ball.sx * 0.999 //Friction
		ball.sy = ball.sy * 0.999

x = GetSpriteXByOffset(ball.spr)
		y = GetSpriteYByOffset(ball.spr)
		
		x = x + ball.sx
		y = y + ball.sy
		
		//--------------- in screen
		if x<0 
			x=0
			ball.sx=-ball.sx
		endif
		if x>100.0 
			x=100.0
			ball.sx=-ball.sx
		endif
		if y<0 
			y=0
			ball.sy=-ball.sy
		endif
		if y>100.0
			y=100.0
			ball.sy=-ball.sy
		endif
		//---------------

SetSpritePositionByOffset(ball.spr,x,y)
		
		ball.magnitute = sqrt(ball.sx*ball.sx + ball.sy*ball.sy)
		
		print("Ball")
		print(ball.magnitute)
		
		z = ball.magnitute
		if z > 0.8 then z = 0.8
		z = 1.0 - z
		
		print("Zoom")
		print(z)
				
		SetViewZoom(z)
						
		Border()
	
		Sync()
	Loop
	
	
EndFunction

Function Border()
	
	local col as Integer
	
	col = MakeColor(255,255,0)
	DrawBox( WorldToScreenX(0),WorldToScreenY(0),WorldToScreenX(100),WorldToScreenY(100),col,col,col,col,0)
	
EndFunction

+ Code Snippet

#option_explicit

SetViewZoomMode(1) // 1 = Center

type Ball
	spr as integer
	sx as float
	sy as float
	magnitute as float
endtype

Main()
End

Function Main()
	
	local ball as Ball
	ball.spr = CreateSprite(0)
	SetSpritePositionByOffset(ball.spr,50,50)
	
	local x as float,y as float, z as float
	local dx as float,dy as float
	
	Do
		print("Use Cursor Keys")
		
		//Joy Input
		dx = GetDirectionX() 
		dy = GetDirectionY()
				

		//Add
		ball.sx = ball.sx + dx / 100.0
		ball.sy = ball.sy + dy / 100.0

		ball.sx = ball.sx * 0.999 //Friction
		ball.sy = ball.sy * 0.999

		x = GetSpriteXByOffset(ball.spr)
		y = GetSpriteYByOffset(ball.spr)
		
		x = x + ball.sx
		y = y + ball.sy
		
		//--------------- in screen
		if x<0 
			x=0
			ball.sx=-ball.sx
		endif
		if x>100.0 
			x=100.0
			ball.sx=-ball.sx
		endif
		if y<0 
			y=0
			ball.sy=-ball.sy
		endif
		if y>100.0
			y=100.0
			ball.sy=-ball.sy
		endif
		//--------------- 

		SetSpritePositionByOffset(ball.spr,x,y)
		
		ball.magnitute = sqrt(ball.sx*ball.sx + ball.sy*ball.sy)
		
		print("Ball")
		print(ball.magnitute)
		
		z = ball.magnitute
		if z > 0.8 then z = 0.8
		z = 1.0 - z
		
		print("Zoom")
		print(z)
				
		SetViewZoom(z)
						
		Border()
	
		Sync()
	Loop
	
	
EndFunction 

Function Border()
	
	local col as Integer
	
	col = MakeColor(255,255,0)
	DrawBox( WorldToScreenX(0),WorldToScreenY(0),WorldToScreenX(100),WorldToScreenY(100),col,col,col,col,0)
	
EndFunction

AGK (Steam) V2017.12.12 : Windows 10 Pro 64 Bit : AMD (17.12.1) Radeon R7 265 : Mac mini OS High Sierra (10.13)

Back to top

Profile PM Email

nonom

6

Years of Service

User Offline

Joined: 12th Nov 2017

Location: Picking mushrooms

Posted: 2nd Jan 2018 00:15

Link

I was looking for zooming like this

Thanks for sharing!

Back to top

Profile PM Email Website

Midget Blaster

AGK Developer

7

Years of Service

User Offline

Joined: 7th May 2016

Location:

Posted: 2nd Jan 2018 11:17

Link

I've been playing around with that trying to understand it, it looks great. Is there any way I can incorporate this into physics based objects? the "ball" in my game is a physics object, so do I replace the ball.sx and ball.sy with getspritex() & getspritey()?

Back to top

Profile PM Website

Markus

Valued Member

20

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 2nd Jan 2018 12:26

Link

for 2d you have
GetSpritePhysicsAngularVelocity ( iSpriteIndex )
GetSpritePhysicsVelocityX ( iSpriteIndex )
GetSpritePhysicsVelocityY ( iSpriteIndex )

AGK (Steam) V2017.12.12 : Windows 10 Pro 64 Bit : AMD (17.12.1) Radeon R7 265 : Mac mini OS High Sierra (10.13)

Back to top

Profile PM Email

Sorry your browser is not supported!

AppGameKit Classic Chat / Camera zooms out based on player speed