[PakzParticipant]

I am looking on google and see that it probably is not possible with linked lists. I will start to look at stack and else I wil use a regular array.

[PakzParticipant]

I am getting the results in here:

Seems that using num lock does not change the keycodes. So It might not work.

code for

end – 217 ; pgdown – 219 ; pgup – 225 ; home – 223

when numlock  – (211) is used the results are the same. So it might conflict with keypad numbers 1/end 3/pagedown 7/home 9/pagedown

[PakzParticipant]

Sorry, it is to difficult. I have no idea how to compile a project.

Edit: I am trying to reverse engineer something. Seems like event.Key compiler error says “expecting expression but encountered “”””

[PakzParticipant]

I am trying to figure out how to use event.key. I have not used it yet. Might take a while. Or maybe you could post something?

[PakzParticipant]

Ah, found it

thanks.

[PakzParticipant]

Also. On my laptop (acer) the keypad does not work. (ctrl home end ect.)

On my other laptop (msi) with extra keyboard the keypad also does not work. The keyboard(keypad) of the laptop itself does also not work.

Not to sure if this needs to be implemented yet.

edit: I just found that on the top right of the laptops there are page down home and end keys. These do work. Never had to use them before. Would be nice if the keypad home end ect would be implemented.

[PakzParticipant]

I just did this. Seems to work to.

Monkey

#Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Class MyWindow Extends Window Field m:= New String[3] Method New() m[0] = "000" m[1] = "010" m[2] = "000" End Method Method OnRender( canvas:Canvas ) Override App.RequestRender() ' Activate this method ' canvas.Clear(Color.White) For Local y:=0 To 2 For Local x:=0 To 2 canvas.Color = Color.Black canvas.DrawRect(x*32+100,y*32+100,32,32) If m[y][x] = 48 Then canvas.Color = Color.Green canvas.DrawText("X",x*32+100,y*32+100) End If If m[y][x] = 49 Then canvas.Color = Color.Blue canvas.DrawText("X",x*32+100,y*32+100) End If Next Next ' if key escape then quit If Keyboard.KeyReleased(Key.Escape) Then App.Terminate() End Method End Class Function Main() New AppInstance New MyWindow App.Run() End Function

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

#Import "<std>" #Import "<mojo>"   Using std.. Using mojo..   Class MyWindow Extends Window   Field m:= New String[3] Method New() m[0] = "000" m[1] = "010" m[2] = "000" End Method Method OnRender( canvas:Canvas ) Override App.RequestRender() ' Activate this method ' canvas.Clear(Color.White) For Local y:=0 To 2 For Local x:=0 To 2 canvas.Color = Color.Black canvas.DrawRect(x*32+100,y*32+100,32,32)     If m[y][x] = 48 Then      canvas.Color = Color.Green      canvas.DrawText("X",x*32+100,y*32+100) End If If m[y][x] = 49 Then canvas.Color = Color.Blue canvas.DrawText("X",x*32+100,y*32+100) End If   Next Next ' if key escape then quit If Keyboard.KeyReleased(Key.Escape) Then App.Terminate() End Method End Class   Function Main() New AppInstance New MyWindow App.Run() End Function

I want to keep certain code projects in a single text file so I can put it online on blogs and github and such.

[PakzParticipant]

One bug I keep encountering is that on lower resolution(hd) screen the Ted window is bigger then the screen. I need to run/compile before it switches to right proportions. On full hd this is not a problem.

[PakzParticipant]

I use this to exit the app. From my example git.

 

Monkey

#Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Class MyWindow Extends Window Method New() End method Method OnRender( canvas:Canvas ) Override App.RequestRender() ' Activate this method ' if key escape then quit If Keyboard.KeyReleased(Key.Escape) Then App.Terminate() End Method End Class Function Main() New AppInstance New MyWindow App.Run() End Function

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

#Import "<std>" #Import "<mojo>"   Using std.. Using mojo..     Class MyWindow Extends Window   Method New() End method Method OnRender( canvas:Canvas ) Override App.RequestRender() ' Activate this method ' if key escape then quit If Keyboard.KeyReleased(Key.Escape) Then App.Terminate() End Method End Class   Function Main() New AppInstance New MyWindow App.Run() End Function

[PakzParticipant]

The code insertion seems not to work? No idea what is happening.

[PakzParticipant]

<pre class=”lang:monkey decode:true ” title=”Framerate”>#Import “<std>”
#Import “<mojo>”

Using std..
Using mojo..

Global instance:AppInstance

Class MyWindow Extends Window

Field timer:Timer

Method New()
timer = New Timer(10,OnUpdate)
End Method

Method OnUpdate()
If Keyboard.KeyReleased(Key.Escape) Then instance.Terminate()
App.RequestRender()
End Method

Method OnRender( canvas:Canvas ) Override
canvas.DrawText(“FPS:”+App.FPS,0,0)
End Method

End Class

Function Main()
instance = New AppInstance

New MyWindow

App.Run()

End Function
This I used to change the framerate. Using a timer.

[PakzParticipant]

I found that if you change the layout=”letterbox” line to something else then it works. I have not delved deep into Monkey2 to know what the problem might be.

edit:

btw – when I tried the fullscreen mode the first time my computer became very slow after ending the program. This for around 10 seconds. The mouse moved really slow and the music in the background played very weird. Never seen anything like this before on this gaming laptop.

[PakzParticipant]

It is just a test. Should locals not be freed automatically when the function is exited?

i thought i did something similar with monkey 1 and that worked without slowing down.

the texture flag gave a compile error as was in the first post here.

[PakzParticipant]

Thanks. I put the code in the codebox.

[PakzParticipant]

I modified the code a bit and it slows the computer down a lot. Maybe a memory leak?

In release mode it slows to a crawl.

Monkey

#Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Class MyWindow Extends Window Method OnRender( canvas:Canvas ) Override If Keyboard.KeyReleased(Key.Escape) Then App.Terminate() App.RequestRender() ' create a pixmap Local pixmap:=New Pixmap(640, 480) ' clear the pixmap pixmap.Clear(New Color(Rnd(0,1),Rnd(0,1),Rnd(0,1),1)) 'create a image with from the pixmap Local img:=New Image(pixmap) ' draw the image canvas.DrawImage(img,0,0) canvas.Color = Color.Black canvas.DrawRect(0,0,320,20) canvas.Color = Color.White canvas.DrawText("FPS:"+App.FPS,0,0) End Method End Class Function Main() New AppInstance New MyWindow App.Run() End Function

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

#Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Class MyWindow Extends Window Method OnRender( canvas:Canvas ) Override If Keyboard.KeyReleased(Key.Escape) Then App.Terminate() App.RequestRender()       ' create a pixmap    Local pixmap:=New Pixmap(640, 480)    ' clear the pixmap    pixmap.Clear(New Color(Rnd(0,1),Rnd(0,1),Rnd(0,1),1))    'create a image with from the pixmap    Local img:=New Image(pixmap)    ' draw the image    canvas.DrawImage(img,0,0)    canvas.Color = Color.Black    canvas.DrawRect(0,0,320,20)    canvas.Color = Color.White    canvas.DrawText("FPS:"+App.FPS,0,0) End Method End Class Function Main() New AppInstance New MyWindow App.Run() End Function

 

 

How do you paste code?

[Author]

Posts