Updated joystick banana

[AdamStrangeParticipant]

Here’s an updated version of the joystick code that operates with hats (sometimes d-pads are hats!) and only shows what the joypad is listing.
Also the canvas matrix stuff is removed

Monkey

[crayon-5b792118b8e1b577417878 inline="true" ] Namespace test #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Function Format:String( v:Float ) Local s:float =Sgn(v) Local n:int = Int( Abs(v)*100 ) Return (s>=0 ? "+" Else "-")+(n/100)+"."+(n Mod 100) End Class Player Field id:Int Field joystick:Joystick Method New( id:Int ) Self.id = id Self.joystick = Joystick.Open( id ) End Method Update:int( canvas:Canvas, ypos:int ) ypos += 16 canvas.DrawText( "Joystick "+id, 0, ypos ) 'update joystick state If joystick And Not joystick.Attached joystick.Close() joystick = Null Endif If Not joystick joystick=Joystick.Open( id ) If Not joystick ypos += 16 canvas.DrawText( "No Joystick available", 0, ypos ) Return ypos Endif Endif 'draw joystick info. ypos += 16 canvas.DrawText( "Name = "+joystick.Name, 0, ypos ) ypos += 16 canvas.DrawText( "GUID = "+joystick.GUID, 0, ypos ) If joystick.NumAxes > 0 Then ypos += 16 canvas.DrawText( "Analog Axes = "+joystick.NumAxes, 0, ypos ) ypos += 16 For Local axis:int = 0 Until joystick.NumAxes Local v:=Format( joystick.GetAxis( axis ) ) canvas.DrawText( " A"+axis+"="+v, axis * 80, ypos ) Next End if If joystick.NumButtons > 0 Then ypos += 16 canvas.DrawText( "Buttons = "+joystick.NumButtons, 0, ypos ) ypos += 16 For Local button:int = 0 Until joystick.NumButtons canvas.DrawText( " B"+button+"="+Int( joystick.ButtonDown( button ) ), (button Mod 8)*80, ypos + (button/8)*16 ) Next ypos += int(joystick.NumButtons/8)*16 End If If joystick.NumHats > 0 Then ypos += 16 canvas.DrawText( "Hats = "+joystick.NumHats, 0, ypos ) For Local hat:int = 0 To joystick.NumHats ypos += 16 local str:string = "" Select joystick.GetHat( hat ) Case JoystickHat.Centered str = "Centered" Case JoystickHat.Up str = "Up" Case JoystickHat.Down str = "Down" Case JoystickHat.Right str = "Right" Case JoystickHat.Left str = "Left" Case JoystickHat.RightUp str = "RightUp" Case JoystickHat.RightDown str = "RightDown" Case JoystickHat.LeftUp str = "LeftUp" Case JoystickHat.LeftDown str = "LeftDown" End select canvas.DrawText( " H"+hat+"="+str, 0, ypos ) Next End If Return ypos End End '***** MainWindow ***** Class MainWindow Extends Window Field players:Player[] = New Player[4] Method New() Super.New( "Joystick test", 640, 480 ) For Local i:int = 0 Until 4 players[i]=New Player( i ) Next End Method OnRender( canvas:Canvas ) Override RequestRender() canvas.DrawText( "Number of Joysticks = "+Joystick.NumJoysticks(),0,0 ) local ypos:int = 16 For Local i:int = 0 Until Joystick.NumJoysticks() ypos = players[i].Update( canvas, ypos )+16 Next End End Function Main() New AppInstance New MainWindow App.Run() End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141

[crayon-5b792118b8e1b577417878 inline="true" ] Namespace test   #Import "<std>" #Import "<mojo>"   Using std.. Using mojo..   Function Format:String( v:Float ) Local s:float =Sgn(v) Local n:int = Int( Abs(v)*100 ) Return (s>=0 ? "+" Else "-")+(n/100)+"."+(n Mod 100) End   Class Player Field id:Int Field joystick:Joystick Method New( id:Int ) Self.id = id Self.joystick = Joystick.Open( id ) End   Method Update:int( canvas:Canvas, ypos:int ) ypos += 16 canvas.DrawText( "Joystick "+id, 0, ypos ) 'update joystick state If joystick And Not joystick.Attached joystick.Close() joystick = Null Endif   If Not joystick joystick=Joystick.Open( id ) If Not joystick ypos += 16 canvas.DrawText( "No Joystick available", 0, ypos ) Return ypos Endif Endif   'draw joystick info. ypos += 16 canvas.DrawText( "Name = "+joystick.Name, 0, ypos ) ypos += 16 canvas.DrawText( "GUID = "+joystick.GUID, 0, ypos ) If joystick.NumAxes > 0 Then ypos += 16 canvas.DrawText( "Analog Axes = "+joystick.NumAxes, 0, ypos ) ypos += 16 For Local axis:int = 0 Until joystick.NumAxes Local v:=Format( joystick.GetAxis( axis ) ) canvas.DrawText( "  A"+axis+"="+v, axis * 80, ypos ) Next End if If joystick.NumButtons > 0 Then ypos += 16 canvas.DrawText( "Buttons = "+joystick.NumButtons, 0, ypos )   ypos += 16 For Local button:int = 0 Until joystick.NumButtons canvas.DrawText( "  B"+button+"="+Int( joystick.ButtonDown( button ) ), (button Mod 8)*80, ypos + (button/8)*16 ) Next ypos += int(joystick.NumButtons/8)*16 End If If joystick.NumHats > 0 Then ypos += 16 canvas.DrawText( "Hats = "+joystick.NumHats, 0, ypos ) For Local hat:int = 0 To joystick.NumHats ypos += 16 local str:string = "" Select joystick.GetHat( hat ) Case JoystickHat.Centered str = "Centered" Case JoystickHat.Up str = "Up" Case JoystickHat.Down str = "Down" Case JoystickHat.Right str = "Right" Case JoystickHat.Left str = "Left" Case JoystickHat.RightUp str = "RightUp" Case JoystickHat.RightDown str = "RightDown" Case JoystickHat.LeftUp str = "LeftUp" Case JoystickHat.LeftDown str = "LeftDown" End select canvas.DrawText( "  H"+hat+"="+str, 0, ypos ) Next End If Return ypos End End   '***** MainWindow *****   Class MainWindow Extends Window Field players:Player[] = New Player[4]   Method New() Super.New( "Joystick test", 640, 480 ) For Local i:int = 0 Until 4 players[i]=New Player( i ) Next End   Method OnRender( canvas:Canvas ) Override RequestRender() canvas.DrawText( "Number of Joysticks = "+Joystick.NumJoysticks(),0,0 ) local ypos:int = 16 For Local i:int = 0 Until Joystick.NumJoysticks() ypos = players[i].Update( canvas, ypos )+16 Next End End   Function Main() New AppInstance New MainWindow App.Run() End

[/crayon]

[PakzParticipant]

Am I right that joystick always works the same when compiled for the browser? I bought one and want to start adding this to my games.

[AdamStrangeParticipant]

I would do some check first. I would have thought so, but not tested any web stuff

[Author]

Posts