Monkey-X - Topdown Auto move and cursor keys - code example

Here a example where you can move the player with the cursor keys. The player does not stop moving when you are not pressing the buttons.

Import mojo

' player coords and start position
Global px:Int = 320
Global py:Int = 220
' starting movement direction
Global currentdir:String="right"


Class MyGame Extends App
    Method OnCreate()
        SetUpdateRate(60)
    End
    Method OnUpdate()
        ' the next 4 lines is the input (cursors)
        If KeyDown(KEY_LEFT) Then currentdir="left"
        If KeyDown(KEY_RIGHT) Then currentdir="right"
        If KeyDown(KEY_UP) Then currentdir="up"
        If KeyDown(KEY_DOWN) Then currentdir="down"
        ' move the player based on the direction
        Select currentdir
            Case "left"
                px-=1
            Case "right"
                px+=1
            Case "down"
                py+=1
            Case "up"
                py-=1
        End Select
        ' if the player is outside of the device
        ' screen then put him at the border at
        ' the other side.
        If px<0 Then px=DeviceWidth
        If px>640 Then px=0
        If py<0 Then py=DeviceHeight
        If py>480 Then py=0
    End
    Method OnRender()
        Cls 0,0,0 
        'set the color
        SetColor 255,255,255
        ' draw the player
        DrawRect px,py,16,16
        DrawText "Use cursors to move player.",10,10
    End
End

Function Main()
    New MyGame()
End