primitive platform physics engine

Monkey Forums/Monkey Code/primitive platform physics engine
slenkar
(Posted 2013) [#1]
#GLFW_USE_MINGW=False

#GLFW_WINDOW_TITLE="Monkey Game"
#GLFW_WINDOW_WIDTH=640
#GLFW_WINDOW_HEIGHT=480
#GLFW_WINDOW_RESIZABLE=false
#GLFW_WINDOW_FULLSCREEN=False
#MOJO_IMAGE_FILTERING_ENABLED=false
#OPENGL_GLES20_ENABLED=false
#OPENGL_DEPTH_BUFFER_ENABLED=False
#MOJO_AUTO_SUSPEND_ENABLED=False

Strict
Import mojo

Class character
	Field screenx:Int,screeny:Int
	Field momentumx:Float,momentumy:Float
	Field on_floor:Bool
	Field last_walk_time:Int
	Field width:Int
	
	Method draw:Void()
	width=15
	DrawOval screenx-(width/2),screeny-(width/2),width,width
	DrawText Self.momentumx,screenx-30,screeny-30
	End Method
	
	Method update:Void()
	width=15
	Local mom_iter:Int=Abs(Self.momentumx)
	Local break:Int=0
	
	Local coll_range:Int=(Self.width/2)+15
	
	If mom_iter>1
		While Abs(mom_iter)>0
		If Self.momentumx>0
		Self.screenx=Self.screenx+1
		Else
		Self.screenx=Self.screenx-1
		Endif
	
		For Local b:block=Eachin block.list
			If Abs(Self.screenx-b.screenx)<coll_range+1
				If Abs(Self.screeny-b.screeny)<coll_range-3
				Self.momentumx=-Self.momentumx
				Self.momentumx=Self.momentumx*b.bounciness
			
					If Self.momentumx>0
				Self.screenx=Self.screenx+1
				Else
				Self.screenx=Self.screenx-1
				Endif
				
				Return
				Endif
			Endif
		Next
	
	
	
		mom_iter-=1
		Wend
	Else
		Self.momentumx=0
	Endif
	
	Self.momentumy+=1
	
	mom_iter=Abs(Self.momentumy)
	
	If mom_iter>.5
		While Abs(mom_iter)>1
	
		If Self.momentumy>1
		Self.screeny=Self.screeny+1
		Else
		Self.screeny=Self.screeny-1
		Endif
	
		Local collided:Bool=False
	
		For Local b:block=Eachin block.list
			If distance(Self.screenx,Self.screeny,b.screenx,b.screeny)<coll_range
			Self.momentumy=-Self.momentumy
			Self.momentumy=Self.momentumy*.4
			Self.on_floor=True
			collided=True
		
				If Self.momentumy>1
				Self.screeny=Self.screeny+2
				Else
				Self.screeny=Self.screeny-2
				Endif
			Return
			Endif
		Next
	
	If collided=False
	on_floor=False
	Endif
	
	mom_iter-=1
	Wend
	Else
	
	Self.momentumy=0
	Endif
	
	End Method
End Class


Function distance:Float(x1:Int, y1:Int, x2:Int, y2:Int) 
Local x:Float=Sqrt(((x1 - x2)*(x1 - x2)) + ((y1 - y2)*(y1 - y2)) )
Return x
End Function


Class block
Field bounciness:Float
Global list:List<block>
Field screenx:Int,screeny:Int
	Method draw:Void()
	DrawRect screenx-15,screeny-15,30,30
	End Method

End Class

Class humors Extends App
	Field c:character
	Field stringy:String
	Field time:Int
	Method OnUpdate:Int()

	time=Millisecs()

	If KeyDown(KEY_LEFT)
		If time>c.last_walk_time+300
		c.momentumx-=2
		c.last_walk_time=time
		Endif
	Endif
	If KeyDown(KEY_RIGHT)
		If time>c.last_walk_time+300	
			c.momentumx+=2
			c.last_walk_time=time
		Endif
	Endif
	If KeyDown(KEY_UP) And c.on_floor=True
	c.momentumy=-12
	Endif
	c.update()
	Return 0
	End Method
	Field first_width:Float
	Field first_height:Float
	
	Method OnRender:Int()
	Cls(100,100,100)
	c.draw()
		For Local b:block=Eachin block.list
			b.draw()
		Next
	Return 0
	End Method

	Method OnCreate:Int()
	SetUpdateRate 30
	c=New character
	c.screenx=50
	c.screeny=100
	block.list=New List<block>
	For Local x_iter:Int=0 To DeviceWidth()/30
		Local b:block=New block
		block.list.AddLast(b)
		b.screenx=x_iter*30
		b.screeny=15
		b.bounciness=.75
	Next
	For Local x_iter:Int=0 To DeviceWidth()/30
		Local b:block=New block
		block.list.AddLast(b)
		b.screenx=x_iter*30
		b.screeny=DeviceHeight()-31
		b.bounciness=.75
	Next
	For Local x_iter:Int=0 To DeviceHeight()/30
		Local b:block=New block
		block.list.AddLast(b)
		b.screenx=15
		b.screeny=x_iter*31
		b.bounciness=.75
	Next
	For Local x_iter:Int=0 To DeviceHeight()/30
		Local b:block=New block
		block.list.AddLast(b)
		b.screenx=DeviceWidth()-15
		b.screeny=x_iter*31
		b.bounciness=.75
	Next

	Local b:block=New block
	block.list.AddLast(b)
	b.screenx=350
	b.screeny=400
	b.bounciness=.3
	b=New block
	block.list.AddLast(b)
	b.screenx=380
	b.screeny=370
	b.bounciness=.3
	b=New block
	block.list.AddLast(b)
	b.screenx=410
 	b.screeny=340
	b.bounciness=.3
	b=New block
	block.list.AddLast(b)
	b.screenx=440
	b.screeny=310
	b.bounciness=.3
	b=New block
	block.list.AddLast(b)
	b.screenx=470
	b.screeny=280
	b.bounciness=.3
	b=New block
		block.list.AddLast(b)
	b.screenx=500
	b.screeny=250
	b.bounciness=.3
	b=New block
	block.list.AddLast(b)
	b.screenx=530
	b.screeny=220
	b.bounciness=.3
	b=New block
	block.list.AddLast(b)
	b.screenx=560
	b.screeny=190
	b.bounciness=.3
	b=New block
	block.list.AddLast(b)
	b.screenx=590
	b.screeny=160
	b.bounciness=.3
	b=New block
	block.list.AddLast(b)
	b.screenx=620
	b.screeny=130
	b.bounciness=.3
	
	
	'horizontal
	b=New block
	block.list.AddLast(b)
	b.screenx=380
	b.screeny=250
	b.bounciness=.3
	
	b=New block
	block.list.AddLast(b)
	b.screenx=350
	b.screeny=250
	b.bounciness=.3
	
	b=New block
	block.list.AddLast(b)
	b.screenx=320
	b.screeny=250
	b.bounciness=.3
	
	
	b=New block
	block.list.AddLast(b)
	b.screenx=290
	b.screeny=250
	b.bounciness=.3
	
	
	b=New block
	block.list.AddLast(b)
	b.screenx=260
	b.screeny=250
	b.bounciness=.3
	
	b=New block
	block.list.AddLast(b)
	b.screenx=230
	b.screeny=250
	b.bounciness=.3
	
	
	b=New block
	block.list.AddLast(b)
	b.screenx=200
	b.screeny=250
	b.bounciness=.3
	
	Return 0
	End Method
End Class

Function Main:Int()
New humors
Return 0
End Function
I told ya it was primitive

suggestions/improvements welcome
therevills
(Posted 2013) [#2]
suggestions/improvements welcome
Indent your code :P
slenkar
(Posted 2013) [#3]
aight I indented it
Samah
(Posted 2013) [#4]
suggestions/improvements welcome
Press your spacebar more. :P
slenkar
(Posted 2013) [#5]
y u so mean
Samah
(Posted 2013) [#6]
y u so mean
Because we love you. ;)
<3