Monkey 2

Forum Replies Created

Viewing 15 posts - 1 through 15 (of 47 total)

1 2 … 4 →

Author

Posts

September 30, 2018 at 6:03 am in reply to: Typewrite text effect #15488

juliocmfj

Participant

Update…

Namespace rpgf
 
#Import "<std>"
#Import "<mojo>"
 
Using std..
Using mojo..
 
Class TypewriteText
	Class Line
		Field text:String
		Field count:Int
		
		Method New:Void(text:String)
			Self.text = text
		End
	End
	
Protected
	Field lines:List<Line>
	Field timer:Timer
	Field currentLine:Int
	
Public
	Method New:Void()
		lines = New List<Line>()
	End
	
	Method AddLine:Void(text:String)
		If Not (text.Contains("\n"))
			lines.AddLast(New Line(text))
		Else
			Local textArray:String[] = text.Split("\n")
			Local textArrayLength:Int = textArray.Length
			Local i:Int = 0
			For i = 0 Until textArrayLength
				lines.AddLast(New Line(textArray[i]))
			Next
		End
	End
	
	Method SetTimer:Void(seconds:Double)
		timer = New Timer(seconds, Update)
		timer.Suspended = True
	End
	
	Method Draw:Void(canvas:Canvas, x:Float, y:Float)
		timer.Suspended = False
		Local allLines:Line[] = lines.ToArray()
		Local i:Int = 0
		Local currentLineTemp:Int = 0
		For i = 0 Until allLines.Length
			canvas.DrawText(allLines[i].text.Left(allLines[i].count), x, y + (canvas.Font.Height * i))
		Next
	End
	
Protected
	Method Update:Void()
		timer.Suspended = False
		Local allLines:Line[] = lines.ToArray()
		allLines[currentLine].count += 1
		If (allLines[currentLine].count > allLines[currentLine].text.Length)
			currentLine += 1
		End
		If (currentLine >= lines.Count())
			currentLine = lines.Count() - 1
		End
	End
End
 
Class MainWindow Extends Window
	Field targetFps:Timer
	Field typewriteText:TypewriteText
	
	Method OnMeasure:Vec2i() Override
		Return New Vec2i(320, 240)
	End
	
	Method New:Void()
		Super.New("RPG-Framework", 640, 480, WindowFlags.Center)
		Layout = "letterbox"
		
		targetFps = New Timer(60, OnUpdate)
		
		typewriteText = New TypewriteText()
'		typewriteText.AddLine("First line...")
'		typewriteText.AddLine("Second line...")
'		typewriteText.AddLine("Third line...")
'		typewriteText.AddLine("Fourth line...")
'		typewriteText.AddLine("Fifith line.")
'		typewriteText.AddLine("....................")
		typewriteText.AddLine("First line...\nSecond line...\nThird line...\nFourth line...\nFifith line.\n....................")
		typewriteText.SetTimer(30)
	End
	
	Method OnUpdate:Void()
		App.RequestRender()
		
		If (Keyboard.KeyHit(Key.Escape))
			App.Terminate()
		End
	End
	
	Method OnRender( canvas:Canvas ) Override
'		App.RequestRender()
		
		canvas.TextureFilteringEnabled = False
		
		canvas.Clear(Color.Black)
		
		canvas.Color = Color.White
		typewriteText.Draw(canvas, 0, 0)
		
		canvas.Color = Color.White
		canvas.DrawText("FPS: ", 320 - 60, 0)
		canvas.Color = Color.Red
		canvas.DrawText("" + App.FPS, 320 - 60 + canvas.Font.TextWidth("FPS: "), 0)
	End
End

Function Main:Void()
	New AppInstance()
	
	New MainWindow()
	
	App.Run()
End

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

Namespace rpgf

#Import "<std>"

#Import "<mojo>"

Using std..

Using mojo..

Class TypewriteText

Class Line

Field text:String

Field count:Int

Method New:Void(text:String)

Self.text = text

End

Protected

Field lines:List<Line>

Field timer:Timer

Field currentLine:Int

Public

Method New:Void()

lines = New List<Line>()

End

Method AddLine:Void(text:String)

If Not (text.Contains("\n"))

lines.AddLast(New Line(text))

Else

Local textArray:String[] = text.Split("\n")

Local textArrayLength:Int = textArray.Length

Local i:Int = 0

For i = 0 Until textArrayLength

lines.AddLast(New Line(textArray[i]))

End

Method SetTimer:Void(seconds:Double)

timer = New Timer(seconds, Update)

timer.Suspended = True

End

Method Draw:Void(canvas:Canvas, x:Float, y:Float)

timer.Suspended = False

Local allLines:Line[] = lines.ToArray()

Local i:Int = 0

Local currentLineTemp:Int = 0

For i = 0 Until allLines.Length

canvas.DrawText(allLines[i].text.Left(allLines[i].count), x, y + (canvas.Font.Height * i))

End

Protected

Method Update:Void()

timer.Suspended = False

Local allLines:Line[] = lines.ToArray()

allLines[currentLine].count += 1

If (allLines[currentLine].count > allLines[currentLine].text.Length)

currentLine += 1

End

If (currentLine >= lines.Count())

currentLine = lines.Count() - 1

End

Class MainWindow Extends Window

Field targetFps:Timer

Field typewriteText:TypewriteText

Method OnMeasure:Vec2i() Override

Return New Vec2i(320, 240)

End

Method New:Void()

Super.New("RPG-Framework", 640, 480, WindowFlags.Center)

Layout = "letterbox"

targetFps = New Timer(60, OnUpdate)

typewriteText = New TypewriteText()

' typewriteText.AddLine("First line...")

' typewriteText.AddLine("Second line...")

' typewriteText.AddLine("Third line...")

' typewriteText.AddLine("Fourth line...")

' typewriteText.AddLine("Fifith line.")

' typewriteText.AddLine("....................")

typewriteText.AddLine("First line...\nSecond line...\nThird line...\nFourth line...\nFifith line.\n....................")

typewriteText.SetTimer(30)

End

Method OnUpdate:Void()

App.RequestRender()

If (Keyboard.KeyHit(Key.Escape))

App.Terminate()

End

Method OnRender( canvas:Canvas ) Override

' App.RequestRender()

canvas.TextureFilteringEnabled = False

canvas.Clear(Color.Black)

canvas.Color = Color.White

typewriteText.Draw(canvas, 0, 0)

canvas.Color = Color.White

canvas.DrawText("FPS: ", 320 - 60, 0)

canvas.Color = Color.Red

canvas.DrawText("" + App.FPS, 320 - 60 + canvas.Font.TextWidth("FPS: "), 0)

End

Function Main:Void()

New AppInstance()

New MainWindow()

App.Run()

End

Namespace rpgf
 
#Import "<std>"
#Import "<mojo>"
 
Using std..
Using mojo..
 
Class TypewriteText
	Class Line
		Field text:String
		Field count:Int
		
		Method New:Void(text:String)
			Self.text = text
		End
	End
	
Protected
	Field lines:List<Line>
	Field timer:Timer
	Field currentLine:Int
	
Public
	Method New:Void()
		lines = New List<Line>()
	End
	
	Method AddLine:Void(text:String)
		If Not (text.Contains("\n"))
			lines.AddLast(New Line(text))
		Else
			Local textArray:String[] = text.Split("\n")
			Local textArrayLength:Int = textArray.Length
			Local i:Int = 0
			For i = 0 Until textArrayLength
				lines.AddLast(New Line(textArray[i]))
			Next
		End
	End
	
	Method SetTimer:Void(seconds:Double)
		timer = New Timer(seconds, Update)
		timer.Suspended = True
	End
	
	Method Draw:Void(canvas:Canvas, x:Float, y:Float)
		timer.Suspended = False
		Local allLines:Line[] = lines.ToArray()
		Local i:Int = 0
		Local currentLineTemp:Int = 0
		For i = 0 Until allLines.Length
			canvas.DrawText(allLines[i].text.Left(allLines[i].count), x, y + (canvas.Font.Height * i))
		Next
	End
	
Protected
	Method Update:Void()
		timer.Suspended = False
		Local allLines:Line[] = lines.ToArray()
		allLines[currentLine].count += 1
		If (allLines[currentLine].count > allLines[currentLine].text.Length)
			currentLine += 1
		End
		If (currentLine >= lines.Count())
			currentLine = lines.Count() - 1
		End
	End
End
 
Class MainWindow Extends Window
	Field targetFps:Timer
	Field typewriteText:TypewriteText
	
	Method OnMeasure:Vec2i() Override
		Return New Vec2i(320, 240)
	End
	
	Method New:Void()
		Super.New("RPG-Framework", 640, 480, WindowFlags.Center)
		Layout = "letterbox"
		
		targetFps = New Timer(60, OnUpdate)
		
		typewriteText = New TypewriteText()
'		typewriteText.AddLine("First line...")
'		typewriteText.AddLine("Second line...")
'		typewriteText.AddLine("Third line...")
'		typewriteText.AddLine("Fourth line...")
'		typewriteText.AddLine("Fifith line.")
'		typewriteText.AddLine("....................")
		typewriteText.AddLine("First line...\nSecond line...\nThird line...\nFourth line...\nFifith line.\n....................")
		typewriteText.SetTimer(30)
	End
	
	Method OnUpdate:Void()
		App.RequestRender()
		
		If (Keyboard.KeyHit(Key.Escape))
			App.Terminate()
		End
	End
	
	Method OnRender( canvas:Canvas ) Override
'		App.RequestRender()
		
		canvas.TextureFilteringEnabled = False
		
		canvas.Clear(Color.Black)
		
		canvas.Color = Color.White
		typewriteText.Draw(canvas, 0, 0)
		
		canvas.Color = Color.White
		canvas.DrawText("FPS: ", 320 - 60, 0)
		canvas.Color = Color.Red
		canvas.DrawText("" + App.FPS, 320 - 60 + canvas.Font.TextWidth("FPS: "), 0)
	End
End

Function Main:Void()
	New AppInstance()
	
	New MainWindow()
	
	App.Run()
End

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

Namespace rpgf

#Import "<std>"

#Import "<mojo>"

Using std..

Using mojo..

Class TypewriteText

Class Line

Field text:String

Field count:Int

Method New:Void(text:String)

Self.text = text

End

Protected

Field lines:List<Line>

Field timer:Timer

Field currentLine:Int

Public

Method New:Void()

lines = New List<Line>()

End

Method AddLine:Void(text:String)

If Not (text.Contains("\n"))

lines.AddLast(New Line(text))

Else

Local textArray:String[] = text.Split("\n")

Local textArrayLength:Int = textArray.Length

Local i:Int = 0

For i = 0 Until textArrayLength

lines.AddLast(New Line(textArray[i]))

End

Method SetTimer:Void(seconds:Double)

timer = New Timer(seconds, Update)

timer.Suspended = True

End

Method Draw:Void(canvas:Canvas, x:Float, y:Float)

timer.Suspended = False

Local allLines:Line[] = lines.ToArray()

Local i:Int = 0

Local currentLineTemp:Int = 0

For i = 0 Until allLines.Length

canvas.DrawText(allLines[i].text.Left(allLines[i].count), x, y + (canvas.Font.Height * i))

End

Protected

Method Update:Void()

timer.Suspended = False

Local allLines:Line[] = lines.ToArray()

allLines[currentLine].count += 1

If (allLines[currentLine].count > allLines[currentLine].text.Length)

currentLine += 1

End

If (currentLine >= lines.Count())

currentLine = lines.Count() - 1

End

Class MainWindow Extends Window

Field targetFps:Timer

Field typewriteText:TypewriteText

Method OnMeasure:Vec2i() Override

Return New Vec2i(320, 240)

End

Method New:Void()

Super.New("RPG-Framework", 640, 480, WindowFlags.Center)

Layout = "letterbox"

targetFps = New Timer(60, OnUpdate)

typewriteText = New TypewriteText()

' typewriteText.AddLine("First line...")

' typewriteText.AddLine("Second line...")

' typewriteText.AddLine("Third line...")

' typewriteText.AddLine("Fourth line...")

' typewriteText.AddLine("Fifith line.")

' typewriteText.AddLine("....................")

typewriteText.AddLine("First line...\nSecond line...\nThird line...\nFourth line...\nFifith line.\n....................")

typewriteText.SetTimer(30)

End

Method OnUpdate:Void()

App.RequestRender()

If (Keyboard.KeyHit(Key.Escape))

App.Terminate()

End

Method OnRender( canvas:Canvas ) Override

' App.RequestRender()

canvas.TextureFilteringEnabled = False

canvas.Clear(Color.Black)

canvas.Color = Color.White

typewriteText.Draw(canvas, 0, 0)

canvas.Color = Color.White

canvas.DrawText("FPS: ", 320 - 60, 0)

canvas.Color = Color.Red

canvas.DrawText("" + App.FPS, 320 - 60 + canvas.Font.TextWidth("FPS: "), 0)

End

Function Main:Void()

New AppInstance()

New MainWindow()

App.Run()

End

May 8, 2018 at 11:13 am in reply to: Compile on Ubuntu Linux #14599

juliocmfj

Participant

Problem solved. I did the whole compilation process again, and made a change to the Desktop name (it was translated to Pt-Br). Maybe it was causing a directory error, where ‘ted2’ could not find the compiler path.

May 8, 2018 at 12:21 am in reply to: Mojox GUI + Game Rendering #14592

juliocmfj

Participant

Hey Mark … Now I understand how it works. I spent the day looking at all the forum posts related to Mojox, and it opened my mind more. I’m still confused about some things, but I understand their operation much more.

I’ll keep doing my tests here. And once again, thank you for your help.

May 7, 2018 at 1:38 am in reply to: Mojox GUI + Game Rendering #14587

juliocmfj

Participant

Thank you Mark. (Now I’ve opened my vision a little more, but it’s still confusing …).

Taking advantage of the hook, I also miss out on how the coordinates of the GUI components on the screen work.

In BlitzMax, he used the x, y coordinates. I still try to understand how the organization works in Monkey 2.

Could you give me a brief explanation of how it works?

Note: I have already looked at all the examples and still I still do not understand very well.

January 20, 2018 at 4:06 pm in reply to: Android compile error #13109

juliocmfj

Participant

Error sending the compressed file. Send the link to download.

ps: To make it easier and not have to copy and paste these files in all projects, just copy to the folder: c:\monkey2-v1.1.09\products\android\monkey2game\ which, when generating the build for Android, automatically copied these files to the project folder.

https://drive.google.com/open?id=1i7gLUzfiHFqbbEqkeuz_flmO2JU_glOF

January 20, 2018 at 3:54 pm in reply to: Android compile error #13105

juliocmfj

Participant

I got lucky, Mark. I saved the files that are generated when I opened the project in Android Studio. Yesterday I did an update on it, so I was not compiling anymore, because I updated Gradle along with Android SDKs.

I just copied the files I got from the Gradlew backup and compiled without major problems.

Attached is the necessary files. Just copy it to the project folder and compile it. In my case: demo.products\Android\….

October 22, 2017 at 7:07 pm in reply to: Tiled #11292

juliocmfj

Participant

I can not return a value of type Bool inside a JsonArray, but outside it everything happens. I’ve worked around this problem, reading the String and storing its value in a variable of type Int. Ex: if the String is False, it returns 0, if not, it returns 1. Then, in the end, it ended up being a type variable Int (which does not change at all at the time of use).

The library already imports the almost complete map, including: tile layer, objects (which can contain: lines, polygons …). Missing part of the animations and some extras.

I spent that time without pounding it, but now I’m back and I’m going to redo so I can make the necessary optimizations. There is a high memory consumption depending on the size of the images and the amount of Tiles per layer.

Soon, I will send the link of the “final” version here in the forum.

September 11, 2017 at 10:41 pm in reply to: Making MSVC portable #10413

juliocmfj

Participant

I get the following error:

Mx2cc version 1.1.06

***** Making module ‘assimp’ *****

Parsing…
Semanting…
Translating…
Compiling…
gzclose.c
c:\monkey2-v1.1.06\modules\assimp\assimp\contrib\zlib\gzguts.h(29): fatal error C1083: Cannot open include file: ‘unistd.h’: No such file or directory
Build error: System command ‘cl -c -EHs -W0 -MT -Ox -DNDEBUG -I”C:/Monkey2-v1.1.06/modules/” -I”C:/Monkey2-v1.1.06/modules/monkey/native” -I”C:/Monkey2-v1.1.06/modules/assimp/assimp/include/” -I”C:/Monkey2-v1.1.06/modules/assimp/assimp/” -I”C:/Monkey2-v1.1.06/modules/assimp/assimp/code/” -I”C:/Monkey2-v1.1.06/modules/assimp/assimp/contrib/” -I”C:/Monkey2-v1.1.06/modules/assimp/assimp/contrib/unzip/” -I”C:/Monkey2-v1.1.06/modules/assimp/assimp/contrib/irrXML/” -I”C:/Monkey2-v1.1.06/modules/assimp/assimp/contrib/rapidjson/include/” -I”C:/Monkey2-v1.1.06/modules/assimp/assimp/contrib/openddlparser/include/” -Fo”C:/Monkey2-v1.1.06/modules/assimp/assimp.buildv1.1.06/windows_release_msvc/build/_1_1_1assimp_2contrib_2zlib_2gzclose.c.obj” “C:/Monkey2-v1.1.06/modules/assimp/assimp/contrib/zlib/gzclose.c”‘ failed.

cl -c -EHs -W0 -MT -Ox -DNDEBUG -I”C:/Monkey2-v1.1.06/modules/” -I”C:/Monkey2-v1.1.06/modules/monkey/native” -I”C:/Monkey2-v1.1.06/modules/assimp/assimp/include/” -I”C:/Monkey2-v1.1.06/modules/assimp/assimp/” -I”C:/Monkey2-v1.1.06/modules/assimp/assimp/code/” -I”C:/Monkey2-v1.1.06/modules/assimp/assimp/contrib/” -I”C:/Monkey2-v1.1.06/modules/assimp/assimp/contrib/unzip/” -I”C:/Monkey2-v1.1.06/modules/assimp/assimp/contrib/irrXML/” -I”C:/Monkey2-v1.1.06/modules/assimp/assimp/contrib/rapidjson/include/” -I”C:/Monkey2-v1.1.06/modules/assimp/assimp/contrib/openddlparser/include/” -Fo”C:/Monkey2-v1.1.06/modules/assimp/assimp.buildv1.1.06/windows_release_msvc/build/_1_1_1assimp_2contrib_2zlib_2gzclose.c.obj” “C:/Monkey2-v1.1.06/modules/assimp/assimp/contrib/zlib/gzclose.c”

Microsoft (R) C/C++ Optimizing Compiler Version 19.00.24210 for x86

***** Fatal mx2cc error *****

Internal mx2cc build error

Update modules failed.
Total time elapsed: 0 m 0 s.

September 3, 2017 at 10:17 am in reply to: Tiled #10237

juliocmfj

Participant

I’m still working on the Tiled Editor’s map interpreter. In this version, you can read custom properties of the map and each layer individually.

Note: You can only read values of the following types: Bool, Float, Int and String (for now).

A highlight for type Bool: Using the Map class, I could not read the correct Bool type, which always returns False. Then, I saved as Int (0 = False, 1 = True). Outside the Map, saving in any variable, the Bool value is correct. If anyone has a solution, I’ll make the correction.

Otherwise, the class is fully usable. Now I will worlk on the objects and the object layer, and the on the animations of the tiles.

https://drive.google.com/open?id=0B2lZ_pN3kwOJZlF2YU5qd29QdTQ

September 3, 2017 at 6:32 am in reply to: Draw image #10232

juliocmfj

Participant

I understand that question. Thanks ‘nerobot’.

September 3, 2017 at 2:48 am in reply to: Draw image #10223

juliocmfj

Participant

It would be the same as:

If (layers[layerId].map[x, y] > -1)
    ' Draw
End

If (layers[layerId].map[x, y] > -1)

' Draw

End

September 3, 2017 at 1:09 am in reply to: Draw image #10220

juliocmfj

Participant

Now you have a part that I do not understand. In the map matrix, the value -1 corresponds to no tiles, that is, no tiles with this value will be rendered, just above it.

I saw above, what you did:

If layers[layerId].map[x, y] = -1 Continue

1	If layers[layerId].map[x, y] = -1 Continue

. I think that this way, it should render the tiles only value -1… What whould be the logic behind?

September 3, 2017 at 12:49 am in reply to: Draw image #10219

juliocmfj

Participant

abakobo, I followed your recommendations as well.

September 1, 2017 at 6:18 am in reply to: Draw image #10177

juliocmfj

Participant

Did not quite understand. Would you have a simple example?

September 1, 2017 at 5:46 am in reply to: Draw image #10175

juliocmfj

Participant

I’ve been trying to do some optimizations. I rendered a 1000×1000 map with 48×48 tiles and FPS in release mode averaged 10 FPS.

After the optimizations, I got the average between 55 and 60 FPS with the same gigantic map.

Below is the code. I would like opinions and know if I made a mistake.

' BEFORE
Method Render(canvas:Canvas, layerId:Int)
	For Local y:Int = 0 Until layers[layerId].height
		For Local x:Int = 0 Until layers[layerId].width
			If (layers[layerId].map[x, y] > -1)
				Local tile:TiledTile = New TiledTile()
				tile.image = tileArray[layers[layerId].map[x, y]].image
				tile.xy = New Vec2f(layers[layerId].x + x * tileWidth, layers[layerId].y + y * tileHeight)
				If (tile.xy.X > -tileWidth And tile.xy.X < canvas.Viewport.Width And tile.xy.Y > -tileHeight And tile.xy.Y < canvas.Viewport.Height)
					canvas.DrawImage(tile.image, tile.xy.X, tile.xy.Y)
				End
			End
		Next
	Next
End

' AFTER
Method Render(canvas:Canvas, layerId:Int)
	For Local y:Int = 0 Until layers[layerId].height
		For Local x:Int = 0 Until layers[layerId].width
			If (layers[layerId].map[x, y] > -1)
				Local xy:Vec2f = New Vec2f(layers[layerId].x + x * tileWidth, layers[layerId].y + y * tileHeight)
				If (xy.X > -tileWidth And xy.X < canvas.Viewport.Width And xy.Y > -tileHeight And xy.Y < canvas.Viewport.Height)
					Local tile:TiledTile = New TiledTile()
					tile.image = tileArray[layers[layerId].map[x, y]].image
					tile.xy = xy
					canvas.DrawImage(tile.image, tile.xy.X, tile.xy.Y)
				End
			End
		Next
	Next
End

' BEFORE

Method Render(canvas:Canvas, layerId:Int)

For Local y:Int = 0 Until layers[layerId].height

For Local x:Int = 0 Until layers[layerId].width

If (layers[layerId].map[x, y] > -1)

Local tile:TiledTile = New TiledTile()

tile.image = tileArray[layers[layerId].map[x, y]].image

tile.xy = New Vec2f(layers[layerId].x + x * tileWidth, layers[layerId].y + y * tileHeight)

If (tile.xy.X > -tileWidth And tile.xy.X < canvas.Viewport.Width And tile.xy.Y > -tileHeight And tile.xy.Y < canvas.Viewport.Height)

canvas.DrawImage(tile.image, tile.xy.X, tile.xy.Y)

End

' AFTER

Method Render(canvas:Canvas, layerId:Int)

For Local y:Int = 0 Until layers[layerId].height

For Local x:Int = 0 Until layers[layerId].width

If (layers[layerId].map[x, y] > -1)

Local xy:Vec2f = New Vec2f(layers[layerId].x + x * tileWidth, layers[layerId].y + y * tileHeight)

If (xy.X > -tileWidth And xy.X < canvas.Viewport.Width And xy.Y > -tileHeight And xy.Y < canvas.Viewport.Height)

Local tile:TiledTile = New TiledTile()

tile.image = tileArray[layers[layerId].map[x, y]].image

tile.xy = xy

canvas.DrawImage(tile.image, tile.xy.X, tile.xy.Y)

End

Author

Posts

Viewing 15 posts - 1 through 15 (of 47 total)

1 2 … 4 →

juliocmfj

Forum Replies Created

Archives

Recent Replies

What is this?