Virtual D-Pad?

Monkey Forums/Monkey Programming/Virtual D-Pad?

zoqfotpik

(Posted 2012) [#1]

Is there any code out there for a virtual D-pad? Seems like I saw someone talking a while back about a framework he was working on that might include it.

Any ideas on how to program such a thing?

Shinkiro1

(Posted 2012) [#2]

I've coded a very basic one.
It's hardcoded to the lower left corner.

Class VirtualGamepad
	
        Field image:Image
	
	
	Method Update:Void()
		Local tx:Float
		Local ty:Float
		
			If Not TouchDown() Return
			tx = TouchX()
			ty = TouchY()

' If not in VirtualPad Area Return
			If Not PointInRect (tx, ty, 0, DEVICE_HEIGHT-200, 200, 200)
				Return
			End

' 
			If PointInRect (tx, ty, 50, DEVICE_HEIGHT-200, 100, 50)
				' UP
			ElseIf PointInRect (tx, ty, 50, DEVICE_HEIGHT-50, 100, 100)
				' DOWN
			ElseIf PointInRect (tx, ty, 0, DEVICE_HEIGHT-150, 50, 100)
				' LEFT
			ElseIf PointInRect (tx, ty, 150, DEVICE_HEIGHT-150, 50, 100)
				' LEFT
			End

	End
	
	Method Render:Void (x:Float, y:Float)
		SetAlpha (0.7)
		DrawImage (mage, 0, DEVICE_HEIGHT-200)
	End
	
End

Function PointInRect:Bool (x:Float, y:Float, rectX:Float, rectY:Float, rectW:Float, rectH:Float)
	Return (x > rectX) And (x < rectX+rectW) And (y > rectY) And (y < rectY+rectH)
End

Also note that I use PointInRect which is not optimal.
A distance check will give better result I guess because it's radial and therefore better for fingers.

zoqfotpik

(Posted 2012) [#3]

Thank you very much...

I will change it to distance check and re-upload it.

erebel55

(Posted 2014) [#4]

Sorry to revive such an old thread, but did you ever make the changes noted above?

dopeyrulz

(Posted 2014) [#5]

On the Desktop version the Xbox Dpad should now work. Check out Mark's sample app for an example.