Generator - 2d Flasks or bottles - code example.monkey

Import mojo

Class tile
	Field width:Int,height:Int
	Field map:Int[][]
	Method New(w:Int,h:Int)
		Self.width = w
		Self.height = h
		map = New Int[width][]
		For Local i:Int=0 Until width
			map[i] = New Int[height]
		Next		
	End Method
	' Here we create the flasks or bottles
	' or what else.
	Method generate()
		'make right side
		' from the center top to center bottom 
		Local x:Float=width/2
		Local y:Float=0
		Local angle:Int=0
		While y<=height
		For Local i:Int=0 Until 20
			x+=Cos(angle)*.5
			y+=Sin(angle)*.5
			If x>=width Then x-=1
			If x<0 Or y<0 Or x>=width Or y>=height Then Exit
			map[x][y] = 1 ' create border point
			fillleftside(x-1,y) ' fill left side
		Next
		angle=Rnd(0,120)
		Wend
		If y>height Then y=height-1
		For Local x1:Int=x Until width/2-1 Step -1
			map[x1][y] = 1
		Next
		'make left side (mirror right side)
		For y = 0 Until height
		For x = width/2 Until width
			map[width-x][y] = map[x][y]
		Next
		Next
		Return
	End Method
	' here we put the value of
	' 2 inside the map from inputted
	' coords to most left position
	Method fillleftside(fx:Int,fy:Int)
		For Local x:Int=fx Until 0 Step -1
			map[x][fy] = 2
		Next
	End Method
	Method draw(sx:Int,sy:Int,ar:Int,ag:Int,ab:Int)
		Local c:Int
		Local g:Int
		Local b:Int
		Local lightpointx:Int=Rnd(5,width-5)
		For Local y:Int=0 Until height
		For Local x:Int=0 Until width
			If map[x][y] = 0 Then 
				c=0+((ag/height)*y)
				g=0+((ab/height)*y)
				b=0+((ar/height)*y)
				If c>255 Then c=255
				If g>255 Then g=255
				If b>255 Then b=255
				If c<0 Then c=0
				If g<0 Then g=0
				If b<0 Then b=0

				SetColor c,g,b
				
				DrawRect sx+x,sy+y,1,1
				Continue
			End If
			' here we draw the border 
			' and the red (rainbowish color)
			Select map[x][y]
				Case 1'border 
				c = 255-((255/height)*y)
				If x>width/2 Then c/=2
				SetColor c,c,c
				Case 2				
				c = ar-((ar/height)*y)
				g = ag-((ag/height)*y)
				b = ab-((ab/height)*y)
				
				c=-distance(lightpointx,0,x,0)+c
				g=-distance(lightpointx,0,x,0)+g
				b=-distance(lightpointx,0,x,0)+b							
				If c>255 Then c=255
				If g>255 Then g=255
				If b>255 Then b=255
				If c<0 Then c=0
				If g<0 Then g=0
				If b<0 Then b=0

				SetColor c,g,b
				
				
			End Select
			DrawRect sx+x,sy+y,1,1			
		Next
		Next
	End Method
    Function distance:Int(x1:Int,y1:Int,x2:Int,y2:Int)
        Return Abs(x2-x1)+Abs(y2-y1)
    End Function	
End Class

Class MyGame Extends App
	Field mytile:tile
    Method OnCreate()
    	Seed = GetDate[4]*GetDate[5]
        SetUpdateRate(1)
    End Method
    Method OnUpdate()        
    End Method
    Method OnRender()
        Cls 0,0,0 
        SetColor 255,255,255
        For Local y:Int=0 Until DeviceHeight Step 55
        For Local x:Int=0 Until DeviceWidth Step 55
        mytile = New tile(48,48)
        mytile.generate()	
        mytile.draw(x,y,Rnd(24,255),Rnd(24,255),Rnd(24,255))
        Next
        Next
    End Method
End Class


Function Main()
    New MyGame()
End Function