-- test for reverse animation, sweeps one way and then should sweep back
if rotate[e] == 11 and g_Entity[e]['animating'] == 0 then
	-- rotate one way
	SetAnimationSpeed(e,0.1)
	SetAnimationFrames(1,25) -- works fine in this direction
	PlayAnimation(e)
	g_Entity[e]['animating'] = 1
	rotate[e] = 12   
elseif rotate[e] == 12 and g_Entity[e]['animating'] == 0 then
	-- reverse rotation
	SetAnimationSpeed(e,-0.1)
	SetAnimationFrames(25,1)  -- goes straight from frame 25 to 1, without showing any frames in between
	PlayAnimation(e)
	g_Entity[e]['animating'] = 1
	rotate[e] = 11   -- sets to repeat animation!
end

local rotate = {}
 
function ai_animgp4_init(e)
rotate[e] = 11
frame = 0
testdirectionS = ""
 -- 11 test for reverse animation on Combat Solier
end
  
function ai_animgp4_main(e)
-- test for reverse animation on Combat Soldier, raises arm, but doesn't bring it back down!
if rotate[e] == 11 and g_Entity[e]['animating'] == 0 then
	-- raise arm
	testdirectionS = 'forward'
	SetAnimationSpeed(e,0.1)
	SetAnimationFrames(4610,4635) -- works fine in this direction 4610,4635
	PlayAnimation(e)
	g_Entity[e]['animating'] = 1
	rotate[e] = 12   
elseif rotate[e] == 12 and g_Entity[e]['animating'] == 0 then
	-- reverse brings arm down
	testdirectionS = 'reverse'
	SetAnimationSpeed(e,-0.1)
	SetAnimationFrames(4635,4610) -- goes straight from frame 4635 to frame 4610 without showing any frames in between
	PlayAnimation(e)
	g_Entity[e]['animating'] = 1
	rotate[e] = 11   -- sets to repeat animation!
end
 frame = GetAnimationFrame(e)
 Prompt ("Frame = "..frame.." Direction Play = "..testdirectionS)
 end

waitForAllEntities = 1  
function ai_animgp4_init(e)
rotate[e] = 11
frame = 0
testdirectionS = ""
 CharacterControlLimbo(e)
 SetAnimationFrames(4610,4635)
 LoopAnimation(e)
 ModulateSpeed(e,0.1)
 SetAnimationSpeed(e,1.0)
 StartTimer(e)
 -- 11 test for reverse animation on Combat Solier
end
   
function ai_animgp4_main(e)
	if waitForAllEntities == 1 then
		waitForAllEntities = 0
		StartTimer(e)
		return
	end
-- test for reverse animation on Combat Soldier, raises arm, but doesn't bring it back down!
if rotate[e] == 11 and g_Entity[e]['animating'] == 0 then
    -- raise arm
   testdirectionS = 'forward'
    --SetAnimationSpeed(e,0.1)
    --SetAnimationFrames(4610,4635) -- works fine in this direction 4610,4635
   -- PlayAnimation(e)
    g_Entity[e]['animating'] = 1
    end
    
     if rotate[e] == 11 and GetTimer(e) > 5000 and g_Entity[e]['animating'] == 1 then
       rotate[e] = rotate[e] + 1
       g_Entity[e]['animating'] = 2
      -- return
     end
       
if rotate[e] == 12 and g_Entity[e]['animating'] == 2 then
    -- reverse brings arm down
    testdirectionS = 'reverse'
    --SetAnimationSpeed(e,-1)
   -- SetAnimationFrames(4000,4635) -- goes straight from frame 4635 to frame 4610 without showing any frames in between
    
   -- LoopAnimation(e)
    SetAnimationSpeed(e,-2)
    g_Entity[e]['animating'] = 0
    --rotate[e] = rotate[e] - 1   -- sets to repeat animation!
end
 frame = g_Entity[e]['frame']
 Prompt ("Frame = " .. frame .. " Direction Play = " .. testdirectionS .. " RotateState = " .. rotate[e] )
end

local speed = 1
pressed = 0
function reverse_anim_init(e)

end

function reverse_anim_main(e)

if pressed == 0 then
if g_KeyPressE == 1 then
pressed = 1
StopAnimation(e)
SetAnimationSpeed(e,1)
speed = 1
elseif g_KeyPressR == 1 then
pressed = 1
StopAnimation(e)
SetAnimationSpeed(e,-1)
speed = -1
end
end
if g_Entity[e]['animating'] == 0 then
SetAnimation(0)
LoopAnimation(e)
g_Entity[e]['animating'] = 1 
end

if g_KeyPressE == 0 and g_KeyPressR == 0 then
pressed = 0
end
Prompt("speed = "..speed.."   "..GetAnimationFrame(e))
end