14.3 New file to hold AI movement patterns

fourteen_three.monkey

Import fantomX

' Added this file to hold our various AI movement patterns

Function SimpleBossPattern(box:ftObject, game_width:Float, game_height:Float)
	Local y_speed:Float = box.GetSpeedY()
	Local x_speed:Float = box.GetSpeedX()
	
	If (box.GetPosY() < 0)
		box.SetSpeedY(y_speed + 0.5)
	Else If (box.GetPosY() > game_height)
		box.SetSpeedY(y_speed - 0.5)
	Else If (y_speed > 0)
		box.SetSpeedY(y_speed + 0.5)
	Else If (y_speed < 0)
		box.SetSpeedY(y_speed - 0.5)
	Else If (y_speed = 0)
		box.SetSpeedY(y_speed + 0.5)
	End
End

' Simple up and down movement for enemies
Function SimpleWavePattern(box:ftObject, game_width:Float, game_height:Float, start_y:Float, y_change:Float=50.0, max_y_speed:Float=5.0)
	Local y_speed:Float = box.GetSpeedY()
	
	If (y_speed < 0)
		If (box.GetPosY() < start_y - y_change)
			box.SetSpeedY(y_speed * -1)
		End
	Else If (y_speed > 0)
		If (box.GetPosY() > start_y + y_change)
			box.SetSpeedY(y_speed * -1)
		End
	Else
		box.SetSpeedY(max_y_speed)
	End
End