freeslot("MT_BEAGLE",
"SPR_BEAG","S_BEAGLELOOK",
"S_BSNOOP1","S_BSNOOP2","S_BSNOOP3","S_BSNOOP4")

mobjinfo[MT_BEAGLE] = {
	--$Category Lawn World
	--$Name Beagle
	--$Sprite BEAGA1
	//$Color 2
	doomednum = 3047,
	radius = 66*FRACUNIT,
	height = 80*FRACUNIT,
	seestate = S_BEAGLELOOK,
	spawnstate = S_BSNOOP1,
	mass = 16,
	reactiontime = 8,
	speed = 8,
	spawnhealth = 1000,
	flags = MF_SLIDEME
}
states[S_BEAGLELOOK] = {
	sprite = SPR_BEAG, frame = A, tics = 5, action = A_Look, var1 = 0+4096<<16, var2 = 1, nextstate = S_BEAGLELOOK}

states[S_BSNOOP1] = {
	sprite = SPR_BEAG, frame = A, tics = 5, action = none, var1 = 0, var2 = 0, nextstate = S_BSNOOP2}

states[S_BSNOOP2] = {
	sprite = SPR_BEAG, frame = B, tics = 5, action = none, var1 = 0, var2 = 0, nextstate = S_BSNOOP3}

states[S_BSNOOP3] = {
	sprite = SPR_BEAG, frame = C, tics = 5, action = none, var1 = 0, var2 = 0, nextstate = S_BSNOOP4}

states[S_BSNOOP4] = {
	sprite = SPR_BEAG, frame = B, tics = 5, action = none, var1 = 0, var2 = 0, nextstate = S_BSNOOP1}

addHook("MobjThinker", function(mob)
	if mob.state == S_BEAGLELOOK then
		return
	end
	
	if mob.tics == 1 then
		A_Thrust(mob,2,1)
		A_ChangeAngleRelative(mob,1,5)
	end
end
,MT_BEAGLE)

