Is there a way to add a time variable into a game.

[QueCumberParticipant]

For a programming project at school i am looking to make a western duel game where you must test your reaction time against an opponent. I was wonder if i can add a time variable to the game, in which i can record the reaction time of the user and also set the reaction time of the opponent?

[abakoboParticipant]

You have the Millisecs() function for that

Here’s a little example, don’t know if it’s accurate enough for you. I assume OnKeyEvent should be more accurate than OnUpdate (I suppose putting it in OnRender with “If Keyboard.KeyDown(Key.Space)” is a bad idea as it is called more or less at 60 fps)

Monkey

[crayon-5cbaa16feaf6e306814660 inline="true" ] Namespace myapp #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Class MyWindow Extends Window Field spaceTime:=0 Field backspaceTime:=0 Method New( title:String="Simple mojo app",width:Int=640,height:Int=480,flags:WindowFlags=Null ) Super.New( title,width,height,flags ) End Method OnKeyEvent( event:KeyEvent ) Override If event.Type=EventType.KeyDown If event.Key=Key.Space spaceTime=Millisecs() Elseif event.Key=Key.Backspace backspaceTime=Millisecs() Endif endif End Method OnRender( canvas:Canvas ) Override App.RequestRender() canvas.DrawText( "space time: "+spaceTime+" - backspace time: "+backspaceTime,100,Height/2 ) End End Function Main() New AppInstance New MyWindow 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

[crayon-5cbaa16feaf6e306814660 inline="true" ] Namespace myapp   #Import "<std>" #Import "<mojo>"   Using std.. Using mojo..   Class MyWindow Extends Window Field spaceTime:=0 Field backspaceTime:=0   Method New( title:String="Simple mojo app",width:Int=640,height:Int=480,flags:WindowFlags=Null )   Super.New( title,width,height,flags ) End Method OnKeyEvent( event:KeyEvent ) Override If event.Type=EventType.KeyDown If event.Key=Key.Space spaceTime=Millisecs() Elseif event.Key=Key.Backspace backspaceTime=Millisecs() Endif endif End   Method OnRender( canvas:Canvas ) Override App.RequestRender() canvas.DrawText( "space time: "+spaceTime+"   -   backspace time: "+backspaceTime,100,Height/2 ) End End   Function Main()   New AppInstance New MyWindow App.Run() End

[/crayon]

[QueCumberParticipant]

Thank you for the help! Much appreciated!

[Author]

Posts