local mods = {}

function mods.cancel(pat)
--  pat:get_sequence(300, 0):set_priority(10, 10) -- 5A
  pat:get_sequence(320, 0):set_priority(10, 10) -- 5AA
 pat:get_sequence(303, 0):set_priority(10, 15) -- 2A
--  pat:get_sequence(330, 0):set_priority(10, 10) -- 4A
  pat:get_sequence(321, 0):set_priority(10, 20)
  pat:get_sequence(322, 0):set_priority(20, 30)
end

function mods.modify2a(pat)
   pat:update_frame(303, 0, 0, { duration = 3 })
end

function mods.modifydialA(pat)
  pat:update_frame(322, 1, 13, { damage  = 1500, hit_sfx = 4 })
  for frame = 17, 20 do
	pat:update_frame(322, 1, frame, { duration = 2 })
  end
end

function mods.modifyj8a(pat)
 for frame = 0, 4 do
	pat:update_frame(309, 1, frame, { untech = 60 })
 end
end

function mods.modifyj2a(pat)
 for frame = 0, 3 do
	pat:update_frame(308, 1, frame, { untech = 60 })
 end
end

function mods.thousandspear(pat)
 for frame = 0, 1 do
	pat:update_frame(821, 1, frame, { untech = 9999, damage = 300 })
 end
end

function mods.arrow(pat)
 for frame = 0, 1 do
	pat:update_frame(822, 6, frame, { untech = 9999 })
 end
end

function mods.d22(pat)
 for frame = 0, 3 do
	pat:update_frame(825, 1, frame, { untech = 9999, damage = 300 })
 end
end

function mods.laser(pat)
 for frame = 0, 14 do
	pat:update_frame(831, 6, frame, { untech = 9999 })
	pat:update_frame(834, 6, frame, { untech = 9999 })
 end
end

function mods.charge6a(pat)
	pat:update_frame(849, 26, 1, { untech = 9999 })
	pat:update_frame(849, 8, 1, { untech = 9999 })
end

function mods.artful(pat)
	pat:update_frame(850, 2, 0, { untech = 9999 })
end

function mods.trip(pat)
 for frame = 0, 1 do
	pat:update_frame(859, 4, frame, { untech = 9999 })
	pat:update_frame(859, 2, frame, { untech = 9999 })
 end
end

function mods.d623(pat)
	pat:update_frame(815, 2, 0, { untech = 9999 })
	pat:update_frame(815, 5, 0, { untech = 9999 })
	pat:update_frame(815, 7, 0, { untech = 9999 })
end

function mods.modifyj5a(pat)
	pat:update_frame(306, 0, 5, { untech = 35})
end

function mods.modifyplacement(pat)
	for frame = 0, 3 do
		pat:update_frame(810, 1, frame, { untech = 60 })
	end
end

function mods.modify5c(pat)
	for frame = 0, 6 do
		pat:update_frame(806, frame, 0, { untech = 35, proration = 990 })
	end
end

function mods.doll_activation_startup(pat)
  pat:update_frame(560, 0, 0, { duration = 2 })
  pat:update_frame(560, 0, 4, { duration = 3 })
end

function mods.seeker_wire_startup(pat)
  pat:update_frame(570, 0, 0, { duration = 1 })
  pat:update_frame(570, 0, 1, { duration = 1 })
end

function mods.holland_doll_roman_cancel(pat)
 for frame = 0, 3 do 
  pat:update_frame(607, 0, frame, { duration = 1 })
 end
  pat:update_frame(607, 0, 4, { duration = 30 })
 for frame = 8, 14 do 
  pat:update_frame(607, 0, frame, { duration = 2 })
 end 
end

function mods.maketaunt(pat)
 local onum = pat:get_frame_count(0, 0)
 local src = pat:get_frame(0, 0, pat:get_frame_count(0, 0) - 1)
 local oframe = src.duration
 local loop = 1
--	for count = 0, onum - 1 do
--		pat:split_frame(0, 0, (onum*(loop + 1)) - 1, oframe, 1)
--	end 
--	for idx = 0, onum - 1 do
--		local src = pat:get_frame(0, 0, idx)
--		pat:update_frame(0, 0, (onum*(loop + 1) + idx) , function(frame)
--			copy_sprite(frame, src)
--			frame.duration = src.duration
--		end)
--	end
 local num = pat:get_frame_count(0, 0)
 local src = pat:get_frame(0, 0, pat:get_frame_count(0, 0) - 1)
 local oframe = src.duration
 for count = 0, 6 do 
	pat:split_frame(0, 0, num - 1, oframe, 1)
 end 
 for idx = 0, 5 do 
	local src = pat:get_frame(788, 4, idx)
	pat:update_frame(0, 0, num + idx, function(frame)
		    copy_sprite(frame, src)
			frame.duration = src.duration + 1
	end)
 end 
    local src = pat:get_frame(788, 4, 5)
 	pat:update_frame(0, 0, num + 6, function(frame)
	        copy_sprite(frame, src)
			frame.duration = 20
	end)
 end
	
return function(pat)
  mods.maketaunt(pat)
  mods.holland_doll_roman_cancel(pat)
  mods.modify5c(pat)
  mods.modifyplacement(pat)
  mods.modifyj5a(pat)
  mods.d623(pat)
  mods.arrow(pat)
  mods.d22(pat)
  mods.laser(pat)
  mods.charge6a(pat)
  mods.artful(pat)
  mods.trip(pat)
  mods.arrow(pat)
  mods.thousandspear(pat)
  mods.modifyj8a(pat)
  mods.modifyj2a(pat)
  mods.modifydialA(pat)
  mods.modify2a(pat)
  mods.cancel(pat)
  -- mods.doll_activation_startup(pat)
  -- mods.seeker_wire_startup(pat)
end