--For usage, check out the encounter Lua's EncounterStarting() and Update() functions.

-- First, we can create the torso, legs and head.
sanstorso = CreateSprite("AAASans/Parts/Body")
sanslegs = CreateSprite("AAASans/Parts/Feet")
sanshead = CreateSprite("AAASans/Parts/Head1")

--We parent the torso to the legs, so when you move the legs, the torso moves too.
--We do the same for attaching the head to the torso.
sanstorso.SetParent(sanslegs)
sanshead.SetParent(sanstorso)

--Now we adjust the height for the individual parts so they look more like a skeleton and less like a pile of bones.
sanslegs.y = 240
sanslegs.x = 320
sanstorso.y = 0 --The torso's height is relative to the legs they're parented to.
sanshead.y = 40 --The head's height is relative to the torso it's parented to.

--We set the torso's pivot point to halfway horizontally, and on the bottom vertically,
--so we can rotate it around the bottom instead of the center.
sanstorso.SetPivot(0.5, 0)

--We set the torso's anchor point to the top center. Because the legs are pivoted on the bottom (so rescaling them only makes them move up),
--we want the torso to move along upwards with them.
sanstorso.SetAnchor(0.5, 1)
sanslegs.SetPivot(0.5, 0)

--Finally, we do some frame-by-frame animation just to show off the feature. You put in a list of sprites,
--and the time you want a sprite change to take. In this case, it's 1/2 of a second.
SetGlobal("stop",false)
emotion = "normal"
SetGlobal("Dodge", false)
Dodge2 = false
Dodging = false
Dodging1 = false
Stop = 0
move = 0
Dodgetimer = 0
Dodgetimer2 = 0
Dodgetimer3 = 0

function AnimateSans()
if emotion == "sockets" then
sanshead.Set("AAASans/Parts/Head2")
else
sanshead.Set("AAASans/Parts/Head1")
end
if GetGlobal("Dodge") == true then
move = 1
Dodging = true
end
if Dodging == true then
Dodgetimer = Dodgetimer + 1
Dodgetimer3 = Dodgetimer3 + 1
end

if Dodgetimer == 100 then
SetGlobal("Dodge", false)
move = 0
SetGlobal("Dodging", false)
Dodgetimer = 0
end

if Dodgetimer3 == 250 then
Dodge2 = true
end

if Dodge2 == true then
move = -1
Dodging2 = true
end

if Dodging2 == true then
Dodgetimer2 = Dodgetimer2 + 1
end

if Dodgetimer2 == 100 then
Dodgetimer3 = 0
Dodge2 = false
move = 0
Dodging = false
Dodgetimer2 = 0
end
    sanshead.MoveTo(2*math.sin(Time.time*5), 42 + 2*math.cos(Time.time*5))
	sanstorso.MoveTo(2*math.sin(Time.time),0)
	sanslegs.Move(move,0)
	end