AGK First Person Camera - GameCreators Forum

Author

Message

aviles22

10

Years of Service

User Offline

Joined: 1st Dec 2013

Location: New Jersey, USA

Posted: 1st Oct 2014 21:16

Link

I have worked alot with first person shooter type games in darkbasic and agk for PC only with much success. I am now starting my next game which is a first person shooter for Android and IOS and I'm just having a problem porting my code over for the camera rotation. I have no problems with the movement (move up & down, strafe left & right) using a virtual joystick. Just a problem when swiping across screen to rotate.

The old rotate code was using the mouse and I'm just not sure if it should work the same on devices because its not.

Any help appreciated:

SetScreenResolution(1024, 768, 0 )
SetVirtualResolution(1024, 768 )
SetOrientationAllowed(0, 0, 1, 0 )
AddVirtualJoystick(1, 60, getDeviceHeight() - 60, 100)

Grass = LoadImage("Grass.png")

Ground = CreateObjectPlane(128, 128)
RotateObjectGlobalX(Ground, 90)
SetObjectImage(Ground, Grass, 0)

Player = CreateObjectBox(2, 6, 2)
SetObjectPosition(Player, 0, 2, 0)
SetCameraRotation(1, 0, 0, 0)

Do
	
	// CAMERA MOVE-STRAFE ********WORKS FINE***********
	
	FPS# = 1 / GetFrameTime()
	Speed# = 20 / FPS#
	Strafe# = 10 / FPS# 
	
	// VIRTUAL JOYSTICK MOVE/STRAFE
	CamMove# = -GetVirtualJoystickY(1) * 1 * Speed# 
	CamStrafe# = GetVirtualJoystickX(1) * 1 * Strafe#
	
	// KEYBOARD MOVE/STRAFE
	If GetRawKeyState(38) = 1 or GetRawKeyState(87) = 1 then   CamMove# = 1.0 * 1 * Speed# 		//UP or W
	If GetRawKeyState(40) = 1 or GetRawKeyState(83) = 1 then CamMove#= -1.0 * 1 * Speed# 		//DOWN or S
	If GetRawKeyState(37) = 1 or GetRawKeyState(65) = 1 then CamStrafe# = -1.0 * 1 * Strafe# 	//LEFT or A
	If GetRawKeyState(39) = 1 or GetRawKeyState(68) = 1 then CamStrafe# = 1.0 * 1 * Strafe# 	//RIGHT or D
	
	MoveObjectLocalZ(Player, CamMove#)
	MoveObjectLocalX(Player, CamStrafe#)
	
	
	If GetRawKeyState(27) = 1
		End
	EndIf
	
	
	// CAMERA ROTATE ********DOESN'T WORK RIGHT**********
	mx# = GetPointerX() - 512
	my# = GetPointerY() - 384
	
	xrotate# = xrotate# + (mx#)
	yrotate# = yrotate# + (my#)
	
	If yrotate# < -800
		yrotate# = -800
	EndIf
	If yrotate# > 800
		yrotate# = 800
	EndIf
	
	
	SetCameraRotation(1, yrotate# / 32, xrotate# / 32, 0)
	SetObjectRotation(Player, GetObjectAngleX(Player), GetCameraAngleY(1), GetObjectAngleZ(Player))
	SetCameraPosition(1, GetObjectX(Player), GetObjectY(Player), GetObjectZ(Player))
	
	
	SetRawMousePosition(512, 384)
	SetRawMouseVisible(0) 
	
	
	Sync()
	
  
Loop

+ Code Snippet

SetScreenResolution(1024, 768, 0 )
SetVirtualResolution(1024, 768 )
SetOrientationAllowed(0, 0, 1, 0 )
AddVirtualJoystick(1, 60, getDeviceHeight() - 60, 100)

Grass = LoadImage("Grass.png")

Ground = CreateObjectPlane(128, 128)
RotateObjectGlobalX(Ground, 90)
SetObjectImage(Ground, Grass, 0)

Player = CreateObjectBox(2, 6, 2)
SetObjectPosition(Player, 0, 2, 0)
SetCameraRotation(1, 0, 0, 0)


Do
	
	// CAMERA MOVE-STRAFE ********WORKS FINE***********
	
	FPS# = 1 / GetFrameTime()
	Speed# = 20 / FPS#
	Strafe# = 10 / FPS# 
	
	// VIRTUAL JOYSTICK MOVE/STRAFE
	CamMove# = -GetVirtualJoystickY(1) * 1 * Speed# 
	CamStrafe# = GetVirtualJoystickX(1) * 1 * Strafe#
	
	// KEYBOARD MOVE/STRAFE
	If GetRawKeyState(38) = 1 or GetRawKeyState(87) = 1 then   CamMove# = 1.0 * 1 * Speed# 		//UP or W
	If GetRawKeyState(40) = 1 or GetRawKeyState(83) = 1 then CamMove#= -1.0 * 1 * Speed# 		//DOWN or S
	If GetRawKeyState(37) = 1 or GetRawKeyState(65) = 1 then CamStrafe# = -1.0 * 1 * Strafe# 	//LEFT or A
	If GetRawKeyState(39) = 1 or GetRawKeyState(68) = 1 then CamStrafe# = 1.0 * 1 * Strafe# 	//RIGHT or D
	
	MoveObjectLocalZ(Player, CamMove#)
	MoveObjectLocalX(Player, CamStrafe#)
	
	
	If GetRawKeyState(27) = 1
		End
	EndIf
	
	
	// CAMERA ROTATE ********DOESN'T WORK RIGHT**********
	mx# = GetPointerX() - 512
	my# = GetPointerY() - 384
	
	xrotate# = xrotate# + (mx#)
	yrotate# = yrotate# + (my#)
	
	If yrotate# < -800
		yrotate# = -800
	EndIf
	If yrotate# > 800
		yrotate# = 800
	EndIf
	
	
	SetCameraRotation(1, yrotate# / 32, xrotate# / 32, 0)
	SetObjectRotation(Player, GetObjectAngleX(Player), GetCameraAngleY(1), GetObjectAngleZ(Player))
	SetCameraPosition(1, GetObjectX(Player), GetObjectY(Player), GetObjectZ(Player))
	
	
	SetRawMousePosition(512, 384)
	SetRawMouseVisible(0) 
	
	
	Sync()
	
  
Loop

Back to top

Profile PM Email

SoftMotion3D

AGK Developer

19

Years of Service

User Offline

Joined: 24th Aug 2005

Location: Calgary,Alberta

Posted: 1st Oct 2014 22:51

Link

by any chance.... do you mean to use getrawmousex() instead of pointer?

Back to top

Profile PM Email Website

Markus

Valued Member

20

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 1st Oct 2014 22:54

Link

instead of hard codes sizes u should use
GetVirtualHeight()
GetVirtualWidth()
at floats better use .0 after a value without decimals.
Speed# = 20 / FPS#
=
Speed# = 20.0 / FPS#

at handy with touch screen, at no touch i would use rot speed 0 = stop.
never use SetRawMousePosition in a loop because u can not get correct mouse speed. at pc its better to set the mouse once in the middle if the
mouse near the border.

i try your example now.

AGK 108 (B)19 + AppGameKit V2 Alpha .. : Windows 8.1 Pro 64 Bit : AMD Radeon R7 265

Back to top

Profile PM Email

aviles22

10

Years of Service

User Offline

Joined: 1st Dec 2013

Location: New Jersey, USA

Posted: 1st Oct 2014 23:06

Link

Quote: "i try your example now."

Thank you!

Back to top

Profile PM Email

aviles22

10

Years of Service

User Offline

Joined: 1st Dec 2013

Location: New Jersey, USA

Posted: 1st Oct 2014 23:07

Link

Quote: "by any chance.... do you mean to use getrawmousex() instead of pointer?"

Trying that now...

Back to top

Profile PM Email

Markus

Valued Member

20

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 1st Oct 2014 23:20

Link

i think your problem is that u click/touch the virtual stick is same
hold mouse down.
i think u should split in 2 screen touch.
left screen movement forwand/back left right, rigth screen turn & pitch
SetRawTouch... commands at help/input

other mouse look:

SetVirtualResolution(1024, 768 )
SetOrientationAllowed(0, 0, 1, 1 )

AddVirtualJoystick(1, 60, getvirtualHeight() - 60, 100)

Grass = LoadImage("Grass.png")

Ground = CreateObjectPlane(128, 128)
RotateObjectGlobalX(Ground, 90)
SetObjectImage(Ground, Grass, 0)

Player = CreateObjectBox(2, 6, 2)
SetObjectPosition(Player, 0, 2, 0)
SetCameraRotation(1, 0, 0, 0)

Do

// CAMERA MOVE-STRAFE ********WORKS FINE***********

FPS# = Screenfps()
	Speed# = 20.0 / FPS#
	Strafe# = 10.0 / FPS#

// VIRTUAL JOYSTICK MOVE/STRAFE
	CamMove# = -GetVirtualJoystickY(1) * 1 * Speed#
	CamStrafe# = GetVirtualJoystickX(1) * 1 * Strafe#

// KEYBOARD MOVE/STRAFE
	If GetRawKeyState(38) = 1 or GetRawKeyState(87) = 1 then CamMove# = 1.0 * Speed# 		//UP or W
	If GetRawKeyState(40) = 1 or GetRawKeyState(83) = 1 then CamMove#= -1.0 * Speed# 		//DOWN or S
	If GetRawKeyState(37) = 1 or GetRawKeyState(65) = 1 then CamStrafe# = -1.0 * Strafe# 	//LEFT or A
	If GetRawKeyState(39) = 1 or GetRawKeyState(68) = 1 then CamStrafe# =  1.0 * Strafe# 	//RIGHT or D

MoveObjectLocalZ(Player, CamMove#)
	MoveObjectLocalX(Player, CamStrafe#)

If GetRawKeyState(27) = 1
		End
	EndIf

// CAMERA ROTATE ********DOESN'T WORK RIGHT**********

//ui, touch of virtual joystick is also GetPointerXY or not?

mx# = GetPointerX() - getvirtualwidth() / 2.0
	my# = GetPointerY() - getvirtualHeight() / 2.0

mx# = mx# / getvirtualwidth() * 2.0
	my# = my# / getvirtualHeight() * 2.0

print(mx#)
    print(my#)

yaw#=yaw#+mx#

pitch#=pitch#+my#
    if pitch#<-15.0 then pitch#=-15.0
    if pitch#> 25.0 then pitch#= 25.0

SetCameraPosition(1, GetObjectX(Player), GetObjectY(Player), GetObjectZ(Player))
	SetCameraRotation(1, pitch# , yaw# , 0)
	SetObjectRotation(Player, GetObjectAngleX(Player), GetCameraAngleY(1), GetObjectAngleZ(Player))

Sync()

Loop
end

+ Code Snippet

SetVirtualResolution(1024, 768 )
SetOrientationAllowed(0, 0, 1, 1 )

AddVirtualJoystick(1, 60, getvirtualHeight() - 60, 100)

Grass = LoadImage("Grass.png")

Ground = CreateObjectPlane(128, 128)
RotateObjectGlobalX(Ground, 90)
SetObjectImage(Ground, Grass, 0)

Player = CreateObjectBox(2, 6, 2)
SetObjectPosition(Player, 0, 2, 0)
SetCameraRotation(1, 0, 0, 0)

Do

	// CAMERA MOVE-STRAFE ********WORKS FINE***********

	FPS# = Screenfps()
	Speed# = 20.0 / FPS#
	Strafe# = 10.0 / FPS#

	// VIRTUAL JOYSTICK MOVE/STRAFE
	CamMove# = -GetVirtualJoystickY(1) * 1 * Speed#
	CamStrafe# = GetVirtualJoystickX(1) * 1 * Strafe#

	// KEYBOARD MOVE/STRAFE
	If GetRawKeyState(38) = 1 or GetRawKeyState(87) = 1 then CamMove# = 1.0 * Speed# 		//UP or W
	If GetRawKeyState(40) = 1 or GetRawKeyState(83) = 1 then CamMove#= -1.0 * Speed# 		//DOWN or S
	If GetRawKeyState(37) = 1 or GetRawKeyState(65) = 1 then CamStrafe# = -1.0 * Strafe# 	//LEFT or A
	If GetRawKeyState(39) = 1 or GetRawKeyState(68) = 1 then CamStrafe# =  1.0 * Strafe# 	//RIGHT or D

	MoveObjectLocalZ(Player, CamMove#)
	MoveObjectLocalX(Player, CamStrafe#)


	If GetRawKeyState(27) = 1
		End
	EndIf


	// CAMERA ROTATE ********DOESN'T WORK RIGHT**********

    //ui, touch of virtual joystick is also GetPointerXY or not?
    
    

	mx# = GetPointerX() - getvirtualwidth() / 2.0
	my# = GetPointerY() - getvirtualHeight() / 2.0

	mx# = mx# / getvirtualwidth() * 2.0
	my# = my# / getvirtualHeight() * 2.0

    print(mx#)
    print(my#)

    yaw#=yaw#+mx#

    pitch#=pitch#+my#
    if pitch#<-15.0 then pitch#=-15.0
    if pitch#> 25.0 then pitch#= 25.0

	SetCameraPosition(1, GetObjectX(Player), GetObjectY(Player), GetObjectZ(Player))
	SetCameraRotation(1, pitch# , yaw# , 0)
	SetObjectRotation(Player, GetObjectAngleX(Player), GetCameraAngleY(1), GetObjectAngleZ(Player))

	Sync()


Loop
end

AGK 108 (B)19 + AppGameKit V2 Alpha .. : Windows 8.1 Pro 64 Bit : AMD Radeon R7 265

Back to top

Profile PM Email

aviles22

10

Years of Service

User Offline

Joined: 1st Dec 2013

Location: New Jersey, USA

Posted: 1st Oct 2014 23:58 Edited at: 2nd Oct 2014 00:11

Link

Markus:

Your optimized code works better than mine but the rotation movement is very slow and doesn't stop rotating when the screen isn't being touched.

Back to top

Profile PM Email

Markus

Valued Member

20

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 2nd Oct 2014 00:44 Edited at: 2nd Oct 2014 00:46

Link

yes,
that i wrote before but i think u need replace universal pointer with SetRawTouch...

try this, that means no touch, but at virtual stick u have touch/hold down.
if GetPointerState()=0
mx#=0.0
my#=0.0

the screen input i had made use -1 to 1 just multiply with a value.
mx# = mx# * 2.0 '< factor
my# = my# * 2.0
or
mx# = mx# * 5.0
my# = my# * 5.0

AGK 108 (B)19 + AppGameKit V2 Alpha .. : Windows 8.1 Pro 64 Bit : AMD Radeon R7 265

Back to top

Profile PM Email

aviles22

10

Years of Service

User Offline

Joined: 1st Dec 2013

Location: New Jersey, USA

Posted: 2nd Oct 2014 02:48

Link

Just did some valuable Google searching on FPS games on handheld devices and though many games utilize the screen swipe to rotate the camera it is noted that this is a very unpredictable and uncomfortable approach across various platforms. It was also noted that when other buttons (ex. shoot button) are on screen that swiping the screen to rotate the camera is just not recommended.

For nice visual appearance reasons you can hide these virtual buttons until the user/player touches the corner where the respective virtual buttons are located and then make them reappear as needed.

I have added a second virtual button to take care of the camera rotation and if anybody else is interested heres the code.

SetScreenResolution(1024, 768, 0 )
SetVirtualResolution(1024, 768 )
SetOrientationAllowed(0, 0, 1, 0 )

AddVirtualJoystick(1, 60, GetDeviceHeight() - 60, 100)
AddVirtualJoystick(2, GetDeviceWidth() - 60, getDeviceHeight() - 60, 100)

SetSyncRate(0,0)
SetVSync(1)
SetGenerateMipmaps(1)

SetClearColor( 151,170,204 )

Grass = LoadImage("Grass.png")

Ground = CreateObjectPlane(128, 128)
RotateObjectGlobalX(Ground, 90)
SetObjectImage(Ground, Grass, 0)

Global Player as Integer
Player = CreateObjectBox(2, 6, 2)
SetObjectPosition(Player, 0, 2, 0)
SetCameraRotation(1, 0, 0, 0)

Do
	
	//****** CAMERA MOVE-STRAFE ******//
	
// FPS# = 1.0 / GetFrameTime()
FPS# = ScreenFPS()
	Speed# = 20.0 / FPS#
	Strafe# = 10.0 / FPS# 
	
// VIRTUAL JOYSTICK MOVE/STRAFE
CamMove# = -GetVirtualJoystickY(1) * 1.0 * Speed# 
CamStrafe# = GetVirtualJoystickX(1) * 1.0 * Strafe#
	
MoveObjectLocalZ(Player, CamMove#)
MoveObjectLocalX(Player, CamStrafe#)
	
	
	
/////****** ROTATION *******/////
	
FPS# = ScreenFPS()
		
RotateSpeed# = 75 / FPS# 
		
CamRotateY# = GetVirtualJoystickX(2) * 1 * RotateSpeed#
MoveCameraLocalX(1,CamRotateY#)
		
CamRotateX# = GetVirtualJoystickY(2) * 1 * RotateSpeed#
MoveCameraLocalY(1,CamRotateX#)
		
		
SetCameraPosition(1, GetObjectX(Player),GetObjectY(Player), GetObjectZ(Player))
		
SetCameraRotation(1, GetCameraAngleX(1) + CamRotateX#, GetCameraAngleY(1) + CamRotateY#, 0)

SetObjectRotation(Player, GetObjectAngleX(Player), GetCameraAngleY(1), GetObjectAngleZ(Player))
		
REM I still have to set the limits...

Sync()
	
  
Loop

+ Code Snippet

SetScreenResolution(1024, 768, 0 )
SetVirtualResolution(1024, 768 )
SetOrientationAllowed(0, 0, 1, 0 )

AddVirtualJoystick(1, 60, GetDeviceHeight() - 60, 100)
AddVirtualJoystick(2, GetDeviceWidth() - 60, getDeviceHeight() - 60, 100)

SetSyncRate(0,0)
SetVSync(1)
SetGenerateMipmaps(1)

SetClearColor( 151,170,204 )

Grass = LoadImage("Grass.png")

Ground = CreateObjectPlane(128, 128)
RotateObjectGlobalX(Ground, 90)
SetObjectImage(Ground, Grass, 0)

Global Player as Integer
Player = CreateObjectBox(2, 6, 2)
SetObjectPosition(Player, 0, 2, 0)
SetCameraRotation(1, 0, 0, 0)


Do
	
	//****** CAMERA MOVE-STRAFE ******//
	
// FPS# = 1.0 / GetFrameTime()
FPS# = ScreenFPS()
	Speed# = 20.0 / FPS#
	Strafe# = 10.0 / FPS# 
	
// VIRTUAL JOYSTICK MOVE/STRAFE
CamMove# = -GetVirtualJoystickY(1) * 1.0 * Speed# 
CamStrafe# = GetVirtualJoystickX(1) * 1.0 * Strafe#
	
MoveObjectLocalZ(Player, CamMove#)
MoveObjectLocalX(Player, CamStrafe#)
	
	
	
/////****** ROTATION *******/////
	
FPS# = ScreenFPS()
		
RotateSpeed# = 75 / FPS# 
		
CamRotateY# = GetVirtualJoystickX(2) * 1 * RotateSpeed#
MoveCameraLocalX(1,CamRotateY#)
		
CamRotateX# = GetVirtualJoystickY(2) * 1 * RotateSpeed#
MoveCameraLocalY(1,CamRotateX#)
		
		
SetCameraPosition(1, GetObjectX(Player),GetObjectY(Player), GetObjectZ(Player))
		
SetCameraRotation(1, GetCameraAngleX(1) + CamRotateX#, GetCameraAngleY(1) + CamRotateY#, 0)

SetObjectRotation(Player, GetObjectAngleX(Player), GetCameraAngleY(1), GetObjectAngleZ(Player))
		
REM I still have to set the limits...

Sync()
	
  
Loop

Back to top

Profile PM Email

Markus

Valued Member

20

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 2nd Oct 2014 03:54

Link

i don't like the VirtualJoystick from agk.
also the left,top edge did not gave a value -1,-1

yes, at touchscreen u need think different,
the finger and hand is over the display and can hide big parts
of your screen.

with your problem i think i would try everything until it feels good to play.

the touch event commands are very good, u can get the speed for swipe.
http://www.appgamekit.com/documentation/Reference/Input/GetRawFirstTouchEvent.htm

AGK 108 (B)19 + AppGameKit V2 Alpha .. : Windows 8.1 Pro 64 Bit : AMD Radeon R7 265

Back to top

Profile PM Email

aviles22

10

Years of Service

User Offline

Joined: 1st Dec 2013

Location: New Jersey, USA

Posted: 2nd Oct 2014 16:30

Link

Attention: PAUL

With the anticipation of 3D animations being implicated in AGKv2 most of my games are first person shooters and even with the much appreciated help of Markus in previous posts, I just can't get the camera rotation right when ran on a touch device.

There are several good youtube videos on FPS movement by RetroGamebloke:
https://www.youtube.com/watch?v=xJJOct7Tbx8
https://www.youtube.com/watch?v=dhss-7yegFY
https://www.youtube.com/watch?v=MSVx9UO556M

These tutorials run perfect on a PC or MAC but the camera rotation
when ran on touch devices just don't work.

I have seriously tried and googled before posting without any success. Maybe a basic FPS tutorial for touch devices can be implemented by TGC and put into the example projects folder as this may be helpful for many others! (Especially when 3D animations are done.)

Thank You.

Back to top

Profile PM Email

SoftMotion3D

AGK Developer

19

Years of Service

User Offline

Joined: 24th Aug 2005

Location: Calgary,Alberta

Posted: 2nd Oct 2014 16:59

Link

why dont you try using 2 virtual joysticks instead?

also its not that difficult to get the screen swipe look around for an fps.... would you like me to code you a sample? I will hafta dig out my android tablet....

Back to top

Profile PM Email Website

aviles22

10

Years of Service

User Offline

Joined: 1st Dec 2013

Location: New Jersey, USA

Posted: 2nd Oct 2014 17:25 Edited at: 2nd Oct 2014 17:29

Link

Quote: "why dont you try using 2 virtual joysticks instead?"

I actually have only got it to successfully work perfect with your idea of using 2 virtual joysticks.

Quote: "would you like me to code you a sample?"

SoftMotion3D if you have time to show me some code on how you achieved using swiping for the rotation I will highly appreciate it. I am satisfied with 2 virtual joysticks but I just feel defeated the other way and I'd like to get it right because when AppGameKit finally supports 3d animation I have big plans for it! Thank You

Back to top

Profile PM Email

SoftMotion3D

AGK Developer

19

Years of Service

User Offline

Joined: 24th Aug 2005

Location: Calgary,Alberta

Posted: 2nd Oct 2014 17:34

Link

no problem...ill get coden the example....

btw: @paul i found a glitch with agkv2.. if i set the mouse to not visible and then back to visible it does not re-appear on the agk app (stays invisible). Has anyone else encountered this?

Back to top

Profile PM Email Website

Markus

Valued Member

20

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 2nd Oct 2014 18:17 Edited at: 2nd Oct 2014 18:18

Link

today i try with 2 touch events but the return values from
TouchEvent commands gave me not what i expected ...

SetVirtualResolution(1024, 768 )
SetOrientationAllowed(0, 0, 1, 1 )

Grass = LoadImage("Grass.png")

Ground = CreateObjectPlane(128, 128)
RotateObjectGlobalX(Ground, 90)
SetObjectImage(Ground, Grass, 0)

Player = CreateObjectBox(2, 6, 2)
SetObjectPosition(Player, 0, 2, 0)
SetCameraRotation(1, 0, 0, 0)

type TInput
    x# //Strafe Left/Right
    z# //For/Back
    lookx# //Yaw#
    looky# //Pitch#
endtype

Input as TInput

Do

// CAMERA MOVE-STRAFE ********WORKS FINE***********

FPS# = Screenfps()
	Speed# = 20.0 / FPS#
	Strafe# = 10.0 / FPS#

// KEYBOARD MOVE/STRAFE
	If GetRawKeyState(38) = 1 or GetRawKeyState(87) = 1 then Input.z# = 1.0 * Speed# 		//UP or W
	If GetRawKeyState(40) = 1 or GetRawKeyState(83) = 1 then Input.z#= -1.0 * Speed# 		//DOWN or S
	If GetRawKeyState(37) = 1 or GetRawKeyState(65) = 1 then Input.x# = -1.0 * Strafe# 	//LEFT or A
	If GetRawKeyState(39) = 1 or GetRawKeyState(68) = 1 then Input.x# =  1.0 * Strafe# 	//RIGHT or D

If GetRawKeyState(27) = 1
		End
	EndIf

// CAMERA ROTATE ********DOESN'T WORK RIGHT**********

if GetMultiTouchExists() =1

print("GetMultiTouchExists")

tc=GetRawTouchCount(1)
        if tc=0
            print("GetRawTouchCount=0")
            Input.z# = 0
            Input.x# = 0

Input.lookx# = 0
            Input.looky# = 0
        else
            //*** unfinished part
            if tc=>1
                print("GetRawTouchCount=>1")
                t=GetRawFirstTouchEvent(1)
                lx1#=GetRawTouchLastX(t)
                ly1#=GetRawTouchLasty(t)
                cx1#=GetRawTouchCurrentX(t)
                cy1#=GetRawTouchCurrenty(t)
                if tc=>2
                    print("GetRawTouchCount=>2")
                    t=GetRawNextTouchEvent()
                    lx2#=GetRawTouchLastX(t)
                    ly2#=GetRawTouchLastY(t)
                    cx2#=GetRawTouchCurrentX(t)
                    cy2#=GetRawTouchCurrenty(t)
                    print((cx2#-lx2#))
                    //test
                    Input.lookx# = (cx2#-lx2#) / 10.0
                    Input.looky# = (cy2#-ly2#) / 10.0
                endif
            endif
        endif
    endif

MoveObjectLocalZ(Player, Input.z#)
	MoveObjectLocalX(Player, Input.x#)

print(Input.lookx#)
    print(Input.looky#)

yaw#=yaw#+Input.lookx#

pitch#=pitch#+Input.looky#
    if pitch#<-15.0 then pitch#=-15.0
    if pitch#> 25.0 then pitch#= 25.0

SetCameraPosition(1, GetObjectX(Player), GetObjectY(Player), GetObjectZ(Player))
	SetCameraRotation(1, pitch# , yaw# , 0)
	SetObjectRotation(Player, GetObjectAngleX(Player), GetCameraAngleY(1), GetObjectAngleZ(Player))

Sync()

Loop
end

+ Code Snippet

SetVirtualResolution(1024, 768 )
SetOrientationAllowed(0, 0, 1, 1 )

Grass = LoadImage("Grass.png")

Ground = CreateObjectPlane(128, 128)
RotateObjectGlobalX(Ground, 90)
SetObjectImage(Ground, Grass, 0)

Player = CreateObjectBox(2, 6, 2)
SetObjectPosition(Player, 0, 2, 0)
SetCameraRotation(1, 0, 0, 0)

type TInput
    x# //Strafe Left/Right
    z# //For/Back
    lookx# //Yaw#
    looky# //Pitch#
endtype

Input as TInput

Do

	// CAMERA MOVE-STRAFE ********WORKS FINE***********


	FPS# = Screenfps()
	Speed# = 20.0 / FPS#
	Strafe# = 10.0 / FPS#

	// KEYBOARD MOVE/STRAFE
	If GetRawKeyState(38) = 1 or GetRawKeyState(87) = 1 then Input.z# = 1.0 * Speed# 		//UP or W
	If GetRawKeyState(40) = 1 or GetRawKeyState(83) = 1 then Input.z#= -1.0 * Speed# 		//DOWN or S
	If GetRawKeyState(37) = 1 or GetRawKeyState(65) = 1 then Input.x# = -1.0 * Strafe# 	//LEFT or A
	If GetRawKeyState(39) = 1 or GetRawKeyState(68) = 1 then Input.x# =  1.0 * Strafe# 	//RIGHT or D

	If GetRawKeyState(27) = 1
		End
	EndIf


	// CAMERA ROTATE ********DOESN'T WORK RIGHT**********

    if GetMultiTouchExists() =1

        print("GetMultiTouchExists")

        tc=GetRawTouchCount(1)
        if tc=0
            print("GetRawTouchCount=0")
            Input.z# = 0
            Input.x# = 0

            Input.lookx# = 0
            Input.looky# = 0
        else
            //*** unfinished part
            if tc=>1
                print("GetRawTouchCount=>1")
                t=GetRawFirstTouchEvent(1)
                lx1#=GetRawTouchLastX(t)
                ly1#=GetRawTouchLasty(t)
                cx1#=GetRawTouchCurrentX(t)
                cy1#=GetRawTouchCurrenty(t)
                if tc=>2
                    print("GetRawTouchCount=>2")
                    t=GetRawNextTouchEvent()
                    lx2#=GetRawTouchLastX(t)
                    ly2#=GetRawTouchLastY(t)
                    cx2#=GetRawTouchCurrentX(t)
                    cy2#=GetRawTouchCurrenty(t)
                    print((cx2#-lx2#))
                    //test
                    Input.lookx# = (cx2#-lx2#) / 10.0
                    Input.looky# = (cy2#-ly2#) / 10.0
                endif
            endif
        endif
    endif

	MoveObjectLocalZ(Player, Input.z#)
	MoveObjectLocalX(Player, Input.x#)

    print(Input.lookx#)
    print(Input.looky#)

    yaw#=yaw#+Input.lookx#

    pitch#=pitch#+Input.looky#
    if pitch#<-15.0 then pitch#=-15.0
    if pitch#> 25.0 then pitch#= 25.0

	SetCameraPosition(1, GetObjectX(Player), GetObjectY(Player), GetObjectZ(Player))
	SetCameraRotation(1, pitch# , yaw# , 0)
	SetObjectRotation(Player, GetObjectAngleX(Player), GetCameraAngleY(1), GetObjectAngleZ(Player))

	Sync()


Loop
end

AGK 108 (B)19 + AppGameKit V2 Alpha .. : Windows 8.1 Pro 64 Bit : AMD Radeon R7 265

Back to top

Profile PM Email

SoftMotion3D

AGK Developer

19

Years of Service

User Offline

Joined: 24th Aug 2005

Location: Calgary,Alberta

Posted: 2nd Oct 2014 18:27 Edited at: 2nd Oct 2014 18:29

Link

here is what ya need.... just know that i didnt code a restriction to the speed of the movement on the touch screen.

press escape on the keyboard to free the mouse lock for the keyboard/mouse test

the touchscreen is setup so if a touch event occures x<200 it will be a touch movement+strafe... anything greater it becomes a look around.

edit lol! skip the chunk function that says oldcode as i had just copied what you had online to modify.... delete that function completely as its not processed.

Attachments

Login to view attachments

Back to top

Profile PM Email Website

aviles22

10

Years of Service

User Offline

Joined: 1st Dec 2013

Location: New Jersey, USA

Posted: 2nd Oct 2014 18:29

Link

Quote: "today i try with 2 touch events but the return values from
TouchEvent commands gave me not what i expected ..."

Thanks again for trying Markus as this topic is very important to me. I have been trying very hard also and just going nuts trying to get it right. Gonna wait to see what SoftMotion3D comes up with.

Back to top

Profile PM Email

SoftMotion3D

AGK Developer

19

Years of Service

User Offline

Joined: 24th Aug 2005

Location: Calgary,Alberta

Posted: 2nd Oct 2014 18:31 Edited at: 2nd Oct 2014 19:00

Link

ask anymore questions regarding 3d.... im fairly good at it

if ya missed it i posted the download 2 posts up.

regarding animation... i almost have an animation editor ready. Also im using agk v2.

edit: oh also typo as i forgot to change the comment here

+ Code Snippet

if getmultitouchexists()=1
	howmany=GetRawTouchCount( 0 ) 
	id=getrawfirsttouchevent(0)
	for t=1 to howmany step 1
		touchx#=(getrawtouchcurrentx(id)-getrawtouchstartx(id))/75
		touchy#=(getrawtouchcurrenty(id)-getrawtouchstarty(id))/75
		//what boundry was it started at?
		movectrl=0
		if getrawtouchstartx(id)<200 then movectrl=1
		//what ive done is said that if the start of touch y is greater then 450 then its a movement touch not rotation
		if movectrl=1
			cammove#= -touchy# * 1 * Speed# 
			camstrafe#= touchx# * 1 * speed#
		endif
		if movectrl=0
			camy#=wrapvalue(camy#+touchx#)
			camx#=wrapvaluex(camx#+touchy#)
		endif
	
		id=getrawnexttouchevent()
	next t
endif

i actually ment to say i changed it to look at x instead of y... so if x<200 then it becomes a move/strafe command instead of a look

Back to top

Profile PM Email Website

Sorry your browser is not supported!

AppGameKit Classic Chat / AGK First Person Camera

Attachments