;===================================================================================
;========================
;Function 8 - Buzzbomber=
;========================
@0
	#_FetchObject_Current
	:_Ref_All

	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	;Buzzbomber moves for a fixed distance before turning around
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

	#_Obj++									;Increase the movement counter
	:  E0											;Move Counter

	#_If(Not_Obj_Flag)							;If Buzzbomber is in Moving state
	:  E1											;(Obj0) Flags
	:   1											;(Flag) Moving/Firing

		;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		;Flag is off, meaning Buzzbomber is in moving state
		;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

		#_If(Obj<Const)							;If Buzzbomber hasn't reached the extent of his movement
		:  E0										;(Obj0)  Move Counter
		: 128										;(Const)

			;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
			;Buzzbomber still has more moving distance to cover. While moving,
			;he will fire at players if they are within a certain range, and
			;if he hasn't done so since the last time he changed direction
			;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

			#_If(Not_Obj_Flag)					;If Buzzbomber hasn't fired since he last changed direction
			:  E1									;(Obj0) Flags
			:   0									;(Flag) Fired Flag

				;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
				;Buzzbomber has not fired since he last changed direction. check both players to
				;determine whether or not either of them are close enough for Buzzbomber to fire
				;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

				#_FetchPlayer					;Fetch Player 1 for testing
				:_Ref_All
				:_Player1

				#_Reg=Chr-Obj					;Get the horizontal distance between the player and Buzzbomber
				:A_Player_X_Pos							;(Chr0)
				:_Object_X_Pos							;(Obj0)
				:_RegTemp1							;(Dest) Distance
				#_Abs(Reg)					;Convert the distance is a positive value if it isn't one already
				:_RegTemp1							;Distance

				#_If(Reg<Const)					;If the player is no more than 60 units away from Buzzbomber horizontally
				:_RegTemp1							;(Reg)	Distance
				: $60								;(Const)

					;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
					;Player 1 is within firing range. Jump to the code for causing Buzzbomber to fire
					;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

					#_GoTo
					:  @1

				#_EndIf						;If the player is no more than 60 units away from Buzzbomber horizontally

				#_FetchPlayer					;Fetch Player 2 for testing
				:_Ref_All
				:_Player2

				#_If(Chr<Const)					;If player 2 is a valid character
				:A_Player_Type							;(Chr0)
				: 255								;(Const)

					;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
					;Player 2 is a valid character type, thus, a player 2
					;exists. Test for him being within firing range
					;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

					#_Reg=Chr-Obj				;Get the horizontal distance between the player and Buzzbomber
					:A_Player_X_Pos						;(Chr0)
					:_Object_X_Pos						;(Obj0)
					:_RegTemp1						;(Dest) Distance
					#_Abs(Reg)				;Convert the distance is a positive value if it isn't one already
					:_RegTemp1						;Distance

					#_If(Reg<Const)				;If the player is no more than 60 units away from Buzzbomber horizontally
					:_RegTemp1						;(Reg)	Distance
					: $60							;(Const)
@1
						;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
						;Player 2 is within firing range. Cause Buzzbomber to fire.
						;Player 1 also jumps to this code if he is within range
						;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

						#_Obj=Const			;Stop Buzzbomber's horizontal movement
						:E_Object_X_Vel					;(Dest)
						:   0						;(Src)
						#_Object_StopAni_ByList		;Remove the exhaust flame animation
						:   4						;Flame
						#_Obj=Const			;Reset the movement counter. Buzzbomber's movement range is reset each time he fires
						:  E0						;(Dest) Move Timer
						:   0						;(Src)
						#_SetFlag_Obj			;Set that Buzzbomber has fired since he last changed direction
						:  E1						;(Obj2) Flags
						:   0						;(Flag) Fired Flag
						#_SetFlag_Obj			;Set Buzzbomber to firing state
						:  E1						;(Obj2) Flags
						:   1						;(Flag) Moving/Firing

					#_EndIf					;If the player is no more than 60 units away from Buzzbomber horizontally

				#_EndIf						;If player 2 is a valid character

			#_EndIf							;If Buzzbomber hasn't fired since he last changed direction

		#_EndIf								;If Buzzbomber hasn't reached the extent of his movement

		;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		;Buzzbomber should only move a distance of 1024 units (128 count * 4 velocity)
		;since he last paused to fire or change direction
		;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

		#_If(Obj==Const)						;If Buzzbomber has moved far enough
		:  E0										;(Obj0)  Move Timer
		: 128										;(Const)

			;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
			;Buzzbomber has reached the extent of his movement. Change his
			;direction, and set him to pause briefly before moving again
			;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

			#_FlipFlag_Obj						;Reverse Buzzbomber's draw direction
			:_Object_Flags								;(Obj2)
			:_OF_HFlip								;(Flag)
			#_Obj=Const						;Stop Buzzbomber's horizontal movement
			:E_Object_X_Vel								;(Dest)
			:   0									;(Src)
			#_Object_StopAni_ByList					;Remove the exhaust flame animation
			:   4									;Flame
			#_ClearFlag_Obj						;Reset fired state; Buzzbomber will be allowed to fire again once he resumes movement
			:  E1									;(Obj2) Flags
			:   0									;(Flag) Fired Flag

		#_EndIf								;If Buzzbomber has moved far enough

		;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		;Buzzbomber waits 1 second (168 = 128 movement count + 60 frames wait)
		;before resuming movement in his new direction
		;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

		#_If(Obj==Const)						;If the movement delay is over
		:  E0										;(Obj0)  Move Timer
		: 168										;(Const)
@2
			;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
			;The one-second delay after direction change
			;has ended. Set Buzzbomber to moveme again.
			;Returning to movement mode after having
			;fired also jumps to this code
			;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

			#_Obj=Const						;Set horizontal velocity [Rightward]
			:E_Object_X_Vel								;(Dest)
			:$400									;(Src)
			#_If(Obj_Flag)						;If Buzzbomber is facing left
			:_Object_Flags								;(Obj0)
			:_OF_HFlip								;(Flag)
				#_Neg(Obj)					;Change velocity to leftward
				:E_Object_X_Vel
			#_EndIf							;If Buzzbomber is facing left

			#_Obj=Const						;Reset the movement counter; Buzzbomber is allowed to travel another 1024 units
			:  E0									;(Dest) Move Timer
			:   0									;(Src)

			#_Object_SetAni_ByList					;Set body animation for moving, not firing
			:   0									;Normal
			#_Object_AddAni_ByList					;Set wing animation for moving, not firing
			:   2									;Wings Firing
			#_Object_AddAni_ByList					;Add the exhaust flame
			:   4									;Flame

		#_EndIf								;If the movement delay is over

	#_Else									;If Buzzbomber is in Firing state

		;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		;Flag is on, meaning Buzzbomber is in firing state.
		;He should pause for half a second before firing
		;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

		#_If(Obj==Const)						;If the firing delay is over
		:  E0										;(Obj0)  Move Timer
		:  30										;(Const)

			;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
			;Firing delay is over, set Buzzbomber's animations for firing.
			;The body animation is responsible for spawning the projectile
			;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

			#_Object_SetAni_ByList					;Set body animation for firing, not moving
			:   1									;Firing
			#_Object_AddAni_ByList					;Set wings animation for firing, not moving
			:   3									;Wings Firing

		#_EndIf								;If the firing delay is over

		;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		;After having fired, wait one second before returning to
		;normal movement (90 = 30 firing delay + 60 fired delay)
		;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

		#_If(Obj==Const)						;(One second after showing firing animation, go back to movement)
		:  E0										;(Obj0)  Move Timer
		:  90										;(Const)

			;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
			;One second has passed since Buzzbomber had
			;fired. Set him back to normal movement state
			;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

			#_ClearFlag_Obj						;Set Buzzbomber to moving state
			:  E1									;(Obj2) Flags
			:   1									;(Flag) Moving/Firing
			#_GoTo							;Jump to the code that sets Buzzbomber to move after having changed directions
			:  @2

		#_EndIf								;If the fired delay is over

	#_EndIf									;If Buzzbomber is in Moving or Firing state

	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	;Repeat this movement sentry on the next frame
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

	#_FuncBreak
	#_GoTo
	:  @0

# End	;Terminate Function