My first Monkey Project almost working.

Monkey Forums/Monkey Programming/My first Monkey Project almost working.

Gamer

(Posted 2012) [#1]

Hello. My first Monkey project is stuck with an error "Method 'Drawmap' cannot be accessed from here."

I know this is because i don't yet understand how to take different chunks of code (Classes) and tie them together properly. I'm still struggling with OOP in general.

Import mojo

Class Game Extends App
	Field DirtImg:Image
	
	Method OnCreate ()
		DirtImg = LoadImage ("Dirt_Block.png")
		SetUpdateRate 60
	End
	
	Method OnUpdate ()
		'If KeyDown (KEY_LEFT) Then x = x - 4
		'If KeyDown (KEY_RIGHT) Then x = x + 4
		'If KeyDown (KEY_UP) Then y = y - 4
		'If KeyDown (KEY_DOWN) Then y = y + 4
	End
	
	Method OnRender ()
		Cls 64, 96, 128
		'DrawImage player, x, y
	End
	
	Method Drawmap(Mapdata[][])  'This is where i tryed to draw the dirt blocks on the screen

	End
End

Class Mapclass
	
	Field Mapname:String
	Field MapsizeX:Int
	Field MapsizeY:Int
	Field Mapcontent:Int[][]
	
	Method Setsize(x,y)  'This method sets the size of the Mapcontent array
	    Local arr:Int[][] = New Int[x][]
	    For Local ind = 0 Until x
	        arr[ind] = New Int[y]
	    Next
	    Mapcontent = arr
	End
	
	Method Fill(fill)  'This method fills all the tiles

	End
	
	Method Fillborders(fill)  'This method fills the bordering tiles
		Print("fill is " + String(fill))
		For Local a:Int = 0 To Mapcontent.Length - 1
			Mapcontent[0][a] = fill
			Mapcontent[Mapcontent.Length - 1][a] = fill
		Next
		For Local a:Int = 0 To Mapcontent[0].Length - 1
			Mapcontent[a][0] = fill
			Mapcontent[a][Mapcontent[0].Length - 1] = fill
		Next
	End
	
	Method Printcontent()  'This method prints the contents of Mapcontent 
		For Local a:Int = 0 To Mapcontent.Length - 1
			'Print(Mapcontent[][])
		Next
	End
End


Function Main()
	New Game
	
	Local ActiveMap:= New Mapclass  'Makes a map object
	ActiveMap.Setsize(150,150)  'Make a 150 X 150 map
	ActiveMap.Fillborders(1)  'Fill in the borders of the map with 1's
	ActiveMap.Printcontent()  'Show the map printed out, but it does not work like in python
	
	Game.Drawmap(ActiveMap.Mapcontent)

End

Getting the image to show on the screen is the main goal. Later i will look into scrolling around the dungeon, any advice?

Goodlookinguy

(Posted 2012) [#2]

Yeah, you will really need to learn OOP. It's not hard to understand, but may take a bit to get good at.

What's happening here is that you have a class called 'Game' that you make an instance of and initialize, but don't attach to a variable.

New Game

Then you attempt to call a method from the class, which cannot be accessed. It can only be accessed from an object that's an instance of that class.

Game.Drawmap(ActiveMap.Mapcontent)

From what I can see (I didn't test anything), that's the likely cause of that particular error.

AdamRedwoods

(Posted 2012) [#3]

re-arranged

Import mojo

Class Game Extends App
	Field DirtImg:Image
	
	Field ActiveMap:Mapclass

	Method OnCreate ()
		DirtImg = LoadImage ("Dirt_Block.png")

		ActiveMap = New Mapclass  'Makes a map object
		ActiveMap.Setsize(150,150)  'Make a 150 X 150 map
		ActiveMap.Fillborders(1)  'Fill in the borders of the map with 1's
		ActiveMap.Printcontent()  'Show the map printed out, but it does not work like in python

		SetUpdateRate 60
	End
	
	Method OnUpdate ()
		'If KeyDown (KEY_LEFT) Then x = x - 4
		'If KeyDown (KEY_RIGHT) Then x = x + 4
		'If KeyDown (KEY_UP) Then y = y - 4
		'If KeyDown (KEY_DOWN) Then y = y + 4
	End
	
	Method OnRender ()
		Cls 64, 96, 128

		Game.Drawmap(ActiveMap.Mapcontent)

		'DrawImage player, x, y
	End
	
	Method Drawmap(Mapdata[][])  'This is where i tryed to draw the dirt blocks on the screen

	End
End

Class Mapclass
	
	Field Mapname:String
	Field MapsizeX:Int
	Field MapsizeY:Int
	Field Mapcontent:Int[][]
	
	Method Setsize(x,y)  'This method sets the size of the Mapcontent array
	    Local arr:Int[][] = New Int[x][]
	    For Local ind = 0 Until x
	        arr[ind] = New Int[y]
	    Next
	    Mapcontent = arr
	End
	
	Method Fill(fill)  'This method fills all the tiles

	End
	
	Method Fillborders(fill)  'This method fills the bordering tiles
		Print("fill is " + String(fill))
		For Local a:Int = 0 To Mapcontent.Length - 1
			Mapcontent[0][a] = fill
			Mapcontent[Mapcontent.Length - 1][a] = fill
		Next
		For Local a:Int = 0 To Mapcontent[0].Length - 1
			Mapcontent[a][0] = fill
			Mapcontent[a][Mapcontent[0].Length - 1] = fill
		Next
	End
	
	Method Printcontent()  'This method prints the contents of Mapcontent 
		For Local a:Int = 0 To Mapcontent.Length - 1
			'Print(Mapcontent[][])
		Next
	End
End


Function Main()
	New Game
End

Gamer

(Posted 2012) [#4]

Thanks allot too both of you. I never thought about moving the Mapclass instance into the Field of Game Class. Seems like a really good idea, there are so many options with OOP it's really cool.