Strict
Import mojo
Function Main:Int()
CreateMapArray()
Return 0
End
Function DrawRect:Int(x:Int, y:Int, w:Int, h:Int)
Function CreateMapArray:Int()
Local MapArray:Int[10][] 'This code is for creating a 2D array to act as a map.
For Local i:Int = 0 Until MapArray.Length()
MapArray[i] = New Int[10]
End
Print("Here")
For Local j:Int = 0 Until MapArray.Length() 'This code is to know where to put each rectangle in the 2D array/map.
MapArray[j][9] = 1
MapArray[0][j] = 1
MapArray[9][j] = 1
MapArray[j][0] = 1
MapArray[j][8] = Rnd(0,2)
Print(MapArray[j][8])
End
For Local k:Int = 0 Until MapArray.Length() 'This code if for creating the rectangles.
For Local l:Int = 0 Until MapArray.Length()
If MapArray[k][l] = 1 Then
DrawRect:Int(k, l, 5, 5)
End
End
End
Return 0
End
在这里,我在'Function DrawRect:Int(x:Int,y:Int,w:Int,h:Int)'行中遇到意外的令牌'函数'错误。顺便说一下,这是在Monkey X免费版上完成的。感谢您的帮助。
答案 0 :(得分:0)
您没有使用DrawRect
关闭End
功能。
Function DrawRect:Int(x:Int, y:Int, w:Int, h:Int)
End <- missing bit
或者,您必须完全删除DrawRect
函数声明。