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
No comments:
Post a Comment
Note: Only a member of this blog may post a comment.