-- a rune is an abstract object created by a runeforge, which can be
-- applied to an amulet in order to imbue that amulet with unique
-- and fearsome powers. the specific spell depends on the stone the
-- rune is applied to, and not all runes can necessarily be applied
-- to all stones.

local sparkle_region = function(s)
	s.spell.visual_subjects {
		amount = s.amt, time = s.time, -- attached = s;
		minpos = s.minpos;
		maxpos = s.maxpos;
		minvel = { x = -0.4, y = -0.2, z = -0.4 };
		maxvel = { x =  0.4, y =  0.2, z =  0.4 };
		minacc = { x = -0.5, y = -0.4, z = -0.5 };
		maxacc = { x =  0.5, y =  0.4, z =  0.5 };
		minexptime = 1.0*(s.length or 1), maxexptime = 2.0 * (s.length or 1);
		minsize = s.minsize, maxsize = s.maxsize, glow = 14;
		texture = (s.img or sorcery.vfx.glowspark(s.color)):render();
		animation = {
			type = 'vertical_frames';
			aspect_w = 16, aspect_h = 16;
			length = 0.1 + (s.length or 1)*2;
		};
	}
end
local sparkle = function(color, spell, amt,time,minsize,maxsize,sh)
	sparkle_region { spell = spell;
		amt = amt, time = time, color = color;
		minsize = minsize, maxsize = maxsize;
		minpos = { x = -0.3, y = -0.5, z = -0.3 };
		maxpos = { x =  0.3, y = sh*1.1, z = 0.3 };
	}
end
local sparktrail = function(fn,tgt,color,time)
	return (fn or minetest.add_particlespawner)({
		amount = 240, time = time or 1, attached = tgt;
		minpos = {x = -0.4, y = -0.5, z = -0.4};
		maxpos = {x =  0.4, y = tgt:get_properties().eye_height or 0.5, z =  0.4};
		minacc = {x =  0.0, y = 0.05, z =  0.0};
		maxacc = {x =  0.0, y = 0.15, z =  0.0};
		minexptime = 1.5, maxexptime = 5;
		minsize = 0.5, maxsize = 2.6, glow = 14;
		texture = sorcery.vfx.glowspark(color):render();
		animation = {
			type = 'vertical_frames', length = 5.1;
			aspect_w = 16, aspect_h = 16;
		};
	});
end

local teleport = function(ctx,subjects,delay,pos,color)
	if ctx.amulet.frame == 'tungsten' then delay = delay * 0.5 end
	color = color or sorcery.lib.color(29,205,247)
	local center = ctx.caster:get_pos()
	for _,sub in pairs(subjects) do
		local s = sub.ref
		local offset = vector.subtract(s:get_pos(), center)
		local pt = sorcery.lib.node.get_arrival_point(vector.add(pos,offset))
		if pt then
			-- minetest.sound_play('sorcery_stutter', {
			-- 	object = s, gain = 0.8;
			-- },true)
			local mydelay = sub.delay or (delay + math.random(-10,10)*.1);
			local sh = s:get_properties().eye_height
			local color = sub.color or color
			sorcery.lib.node.preload(pt,s)
			sorcery.spell.cast {
				name = 'sorcery:translocate';
				duration = mydelay;
				caster = ctx.caster;
				subjects = {{player=s,dest=sub.dest or pt}};
				timeline = {
					[0] = function(sp,_,timeleft)
						sparkle(color,sp,timeleft*100, timeleft, 0.3,1.3, sh)
						sp.windup = (sp.play_now{
							sound = 'sorcery_windup';
							where = 'subjects';
							gain = 0.4;
							fade = 1.5;
						})[1]
					end;
					[0.4] = function(sp,_,timeleft)
						sparkle(color,sp,timeleft*150, timeleft, 0.6,1.8, sh)
					end;
					[0.7] = function(sp,_,timeleft)
						sparkle(color,sp,timeleft*80, timeleft, 2,4, sh)
					end;
					[1] = function(sp)
						sp.silence(sp.windup)
						minetest.sound_play('sorcery_zap', { pos = pt, gain = 0.4 },true)
						minetest.sound_play('sorcery_zap', { pos = s:get_pos(), gain = 0.4 },true)
						sorcery.vfx.body_sparkle(nil,color:brighten(1.3),2,s:get_pos())
						s:set_pos(pt)
						sorcery.vfx.body_sparkle(s,color:darken(0.3),2)
					end;
				};
				sounds = {
					[0] = { sound = 'sorcery_stutter', pos = 'subjects' };
				};
			}
		end
	end
end

local purge = function(target)
	local h = target:get_properties().eye_height * 1.1
	minetest.add_particlespawner {
		time = 0.2, amount = math.random(200,250), attached = target;
		glow = 14, texture = sorcery.vfx.glowspark(sorcery.lib.color(156,255,10)):render();
		minpos = {x = -0.3, y = -0.5, z = -0.3};
		maxpos = {x =  0.3, y =  h,   z =  0.3};
		minvel = {x = -1.8, y = -1.8, z = -1.8};
		maxvel = {x =  1.8, y =  1.8, z =  1.8};
		minsize = 0.2, maxsize = 5;
		animation = {
			type = 'vertical_frames', length = 4.1;
			aspect_w = 16, aspect_h = 16;
		};
		minexptime = 2, maxexptime = 4;
	}
	minetest.sound_play('sorcery_disjoin',{object=target},true)
	sorcery.spell.disjoin{target=target}
end

return {
	translocate = {
		name = 'Translocate';
		tone = {0,235,233};
		minpower = 3;
		rarity = 7;
		amulets = {
			amethyst = {
				name = 'Joining';
				desc = 'Give this amulet to another and with a snap of their fingers they can arrive safely at your side from anywhere in the world — though returning whence they came may be a more difficult matter';
				apply = function(ctx)
					local maker = ctx.user:get_player_name()
					ctx.meta:set_string('rune_join_target',maker)
				end;
				remove = function(ctx) ctx.meta:set_string('rune_join_target','') end;
				cast = function(ctx)
					local target = minetest.get_player_by_name(ctx.meta:get_string('rune_join_target'))
					if not target then return false end

					local subjects if ctx.amulet.frame == 'cobalt' then
						if ctx.target.type ~= 'object' then return false end
						subjects = {{ref=ctx.target.ref}}
					elseif ctx.amulet.frame == 'iridium' then
						subjects = {}
						for _,o in pairs(minetest.get_objects_inside_radius(ctx.caster:get_pos(), ctx.stats.power)) do
							subjects[#subjects+1] = {player = o}
						end
					else subjects = {{ref=ctx.caster}} end

					local delay = math.max(5,11 - ctx.stats.power) + 2.3*(math.random()*2-1)
					local color = sorcery.lib.color(117,38,237)
					teleport(ctx,subjects,delay,target:get_pos(),color)
					if ctx.amulet.frame == 'gold' then
						teleport(ctx,{{ref=target}},delay,ctx.caster:get_pos())
					else
						ctx.sparkle = false
					end
				end;
				frame = {
					tungsten = {
						name = 'Quick Joining';
						desc = 'Give this amulet to another and they can arrive safely at your side almost instantaneously from anywhere at all in the world — though returning whence they came may be a more difficult matter';
					};
					gold = {
						name = 'Exchange';
						desc = 'Give this amulet to another and they will be able to trade places with you no matter where in the world each of you might be.'; 
					};
					cobalt = {
						name = 'Sending';
						desc = 'Give this amulet to another and by wielding this amulet against another they will be able to transport them instantly to your side';
					};
					iridium = {
						name = 'Arrival';
						desc = "Give this amulet to another and they will be able to arrive at your side in a flash from anywhere in the world, carrying others with them in the spell's grip";
					};
				};
			};
			sapphire = {
				name = 'Return';
				desc = 'Use this amulet once to bind it to a particular place, then discharge its spell to translocate yourself back to that point from anywhere in the world.';
				remove = function(ctx)
					ctx.meta:set_string('rune_return_dest','')
				end;
				cast = function(ctx)
					if not ctx.meta:contains('rune_return_dest') then
						local pos = ctx.caster:get_pos()
						ctx.meta:set_string('rune_return_dest',minetest.pos_to_string(pos))
						return true -- play effects but do not break spell
					else
						if ctx.caster:get_attach() ~= nil then return false end
						local pos = minetest.string_to_pos(ctx.meta:get_string('rune_return_dest'))
						ctx.meta:set_string('rune_return_dest','')
						local subjects = { ctx.caster }
						local center = ctx.caster:get_pos()
						ctx.sparkle = false
						local delay = math.max(3,10 - ctx.stats.power) + 3*(math.random()*2-1)
						teleport(ctx,{{ref=ctx.caster}},delay,pos)
					end
				end;
				frame = {
					tungsten = {
						name = 'Quick Return';
						desc = 'Use this amulet once to bind it to a particular place, then discharge its spell to translocate yourself rapidly back to that point from anywhere in the world.';
					};
					iridium = {
						name = 'Mass Return';
						desc = 'Use this amulet once to bind it to a particular place, then carry yourself and everyone around you back to that point in a flash simply by using it again';
					};
				};
			};
			emerald = {
				name = 'Banishment';
				desc = 'Use this amulet once to bind it to a particular point in the world, then wield it against a foe to whisk them away immediately to your chosen prison';
				frame = {
					iridium = {
						name = 'Mass Banishment';
						desc = 'Use this amulet once to bind it to a particular point in the world, then use it again to seize up everyone surrounding you in the grip of a fearsome magic that will deport them all in the blink of an eye to whatever destination you have chosen';
					};
				};
			};
			ruby = minetest.get_modpath('beds') and {
				name = 'Escape';
				desc = 'Immediately transport yourself out of a dangerous situation back to the last place you slept, before anyone has time to net you in a disjunction';
				mingrade = 4;
				cast = function(ctx)
					-- if not beds.spawns then beds.read_spawns() end
					local subjects = {ctx.caster}
					for _,s in pairs(subjects) do
						local spp = beds.spawn[ctx.caster:get_player_name()]
						if spp then
							local oldpos = s:get_pos()
							local jump = function()
								minetest.sound_play('sorcery_splunch', {pos=oldpos}, true)
								sorcery.vfx.body_sparkle(nil,sorcery.lib.color(244,38,131),2,oldpos)
								s:set_pos(spp)
								minetest.sound_play('sorcery_splunch', {pos=spp}, true)
								sorcery.vfx.body_sparkle(nil,sorcery.lib.color(244,38,89),2,spp)
							end
							if ctx.amulet.frame == 'cobalt' then
								sorcery.spell.cast {
									name = 'sorcery:escape';
									caster = s;
									duration = random() * 0.4 + 0.3;
									timeline = {
										[0] = function()
											sorcery.vfx.imbue(sorcery.lib.color(244,38,131), s, 1.3)
										end;
										[1] = function(sp)
											local radius = 6 * ctx.stats.power
											local center = sp.caster:get_pos()
											local targets = minetest.get_objects_inside_radius(center, radius)
											jump()
											-- TODO: shockwave visuals
											for _,o in pairs(targets) do
												if not o:get_armor_groups().immortal then
													local distance = vector.distance(o:get_pos(), center)
													local dmg = (7 * ctx.stats.power) * (distance / radius)
													minetest.punch(ctx.caster, 1.0, {
														full_punch_interval = 1.0;
														damage_groups = { fleshy = dmg };
													}, vector.direction(o:get_pos(), center));
												end
											end 
										end;
									}
								}
							else jump() end
						end
						-- TODO decide what happens to the people who don't have
						-- respawn points already set
					end
				end;
				frame = {
					cobalt = {
						name = 'Vengeful Exit';
						desc = 'Translocate away to the safety of your boudoir with a fearsome blast of dangerous radiance that will send bodies flying and deal heavy damage to those nearby';
					};
					iridium = {
						name = 'Mass Escape';
						desc = 'Break up even the fiercest of quarrels by transporting yourself and everyone around you out of harms\' way and immediately back to the last place each slept';
					};
				};
			};
			diamond = {
				name = 'Elevation';
				desc = 'Lift yourself and everything around you high up into the sky';
				cast = function(ctx)
					local center = ctx.caster:get_pos()
					local up = ((ctx.stats.power * 7) + math.random(6,17)) * (math.random() * 0.4 + 0.4)
					if center.y > 0 then up = up + center.y end
					local newcenter = vector.new(center.x,up,center.z)
					if not sorcery.lib.node.get_arrival_point(newcenter) then return false end
					sorcery.lib.node.preload(newcenter,ctx.caster)
					local jmpcolor = sorcery.lib.color(0,255,144)

					if not ctx.amulet.frame == 'iridium' then
						local where = vector.offset(center,0,1,0)
						repeat local ok, nx = minetest.line_of_sight(where, newcenter)
							if ok then break end
							if minetest.get_node_or_nil(nx) == nil then
								minetest.load_area(nx)
								where = nx -- save some time
							else return false end
						until false
					end
					local lift = function(n)
						local dest = vector.new(n.pos.x, up + n.h, n.pos.z)
						if sorcery.lib.node.is_clear(dest) then
							minetest.set_node(dest, minetest.get_node(n.pos))
							minetest.get_meta(dest):from_table(minetest.get_meta(n.pos):to_table())
							if math.random(5) == 1 then
								minetest.set_node(n.pos, {name='sorcery:air_flash_' .. tostring(math.random(10))})
							else minetest.remove_node(n.pos) end
							local obs = minetest.get_objects_inside_radius(n.pos, 1.5)
							if obs then for _,o in pairs(obs) do
								local pt = sorcery.lib.node.get_arrival_point(vector.add(dest, vector.subtract(o:get_pos(),n.pos))) 
								if pt then
									o:set_pos(pt)
									sorcery.vfx.body_sparkle(o,jmpcolor:darken(0.3),2)
								end
							end end
							return true
						else
							return false
						end
					end
					local nodes,sparkles,tmap = {},{},{}
					local r = math.ceil((ctx.stats.power * 0.1) * 8 + 3)
					for x = -r,r do -- lazy hack to select a sphere
					for z = -r,r do
						local col = {}
						for y = -r,r do
							local ofs = vector.new(x,y,z)
							if sorcery.lib.math.vdcomp(r,ofs) <= 1 then
								local pos = vector.add(center, ofs)
								if sorcery.lib.node.is_air(pos) then
									if y > 0 then
										sparkles[#sparkles+1] = pos
										break -- levitation is a sin
									end
								else
									nodes[#nodes+1] = {pos=pos, h=y}
									col[#col+1] = {pos=pos, h=y}
								end
							end
						end
						if #col > 0 then
							local seq = math.floor(math.sqrt((x^2) + (z^2)))
							-- TODO find a way to optimise this shitshow
							if tmap[seq]
								then tmap[seq][#(tmap[seq])+1] = col
								else tmap[seq] = {col}
							end
						end
					end end

					-- for _,n in pairs(nodes) do
					-- 	local dest = vector.new(n.pos.x, up + n.h, n.pos.z)
					-- 	if sorcery.lib.node.is_clear(dest) then
					-- 		minetest.set_node(dest, minetest.get_node(n.pos))
					-- 		minetest.get_meta(dest):from_table(minetest.get_meta(n.pos):to_table())
					-- 		if math.random(5) == 1 then
					-- 			minetest.set_node(n.pos, {name='sorcery:air_flash_' .. tostring(math.random(10))})
					-- 		else minetest.remove_node(n.pos) end
					-- 	end
					-- end
					local timeline, sounds = {
						[0] = function(s)
							-- sorcery.vfx.imbue(jmpcolor,s.caster,1)
						end;
					}, {};
					local time = 0;
					for i=0,#tmap do
						local cols = tmap[i]
						if cols ~= nil then
							time = time + math.random()*0.2 + 0.1
							local wh = {whence=0,secs=2+time}
							timeline[wh] = function(sp)
								for _,col in pairs(cols) do
									for _,n in pairs(col) do lift(n) end
								end
							end
							sounds[wh] = {
								sound = 'sorcery_zap';
								gain = math.random() + 0.1;
								where = cols[1][1].pos;
							}
						end
					end
					sorcery.spell.cast {
						name = 'sorcery:elevate';
						caster = ctx.caster;
						anchor = center, radius = r;
						duration = 2 + time;
						timeline = timeline, sounds = sounds;
					}
				end;
				frame = {
					iridium = {
						name = 'Ascension';
						desc = 'Transport yourself and your surroundings high into the heavens, even if you are deep in the bowels of the earth';
					};
				};
			};
		};
	};
	disjoin = {
		name = 'Disjoin';
		tone = {159,235,0};
		minpower = 4;
		rarity = 34;
		amulets = {
			sapphire = {
				name = 'Unsealing';
				desc = 'Wielding this amulet, a touch of your hand will unravel even the mightiest protective magics, leaving doors unsealed and walls free to tear down';
			};
			amethyst = {
				name = 'Purging';
				desc = 'Free yourself from the grip of any malicious spellwork with a snap of your fingers — interrupting all of your own active spells in the process, including impending translocations';
				cast = function(ctx) purge(ctx.caster) end;
			};
			emerald = {
				name = 'Disjunction Field';
				desc = 'Render an area totally opaque to spellwork for a period of time, disrupting any existing spells and preventing further spellcasting therein';
			};
			ruby = {
				name = 'Disjunction';
				desc = 'Wield this amulet against a spellcaster to disrupt and abort all their spells in progress, perhaps to trap a foe intent on translocating away, or unleash its force upon the victim of a malign hex to free them from its clutches';
				mingrade = 3;
				cast = function(ctx)
					if ctx.target.type == 'object'
						then purge(ctx.target.ref)
						else return false
					end
				end;
				frame = {
					iridium = {
						name = 'Nullification';
						mingrade = 5;
						desc = 'Not only will your victim\'s spells be nullified, but all enchanted objects they carry will be stripped of their power — or possibly even destroyed outright';
					};
				};
			};
			luxite = {
				name = 'Disjunctive Aura';
				desc = 'For a time, all magic undertaken in your vicinity will fail totally — including your own';
				cast = function(ctx)
					local h = ctx.heading.eyeheight*1.1
					sorcery.spell.cast {
						name = 'sorcery:disjunctive-aura';
						caster = ctx.caster, attach = 'caster';
						subjects = {{player=ctx.caster}};
						disjunction = true, range = 4 + ctx.stats.power;
						duration = 10 + ctx.stats.power * 3;
						timeline = {
							[0] = function(s,_,tl)
								local ttns = 0.8
								local vel = s.range / ttns
								s.visual_caster {
									amount = 300, time = ttns, glow = 14;
									texture = sorcery.lib.image('sorcery_sputter.png'):glow(sorcery.lib.color(160,255,80)):render();
									minpos = { x = -0.0, y = h*0.5,z = -0.0 };
									maxpos = { x =  0.0, y = h*0.5,z =  0.0 };
									minvel = { x = -vel, y = -0.0, z = -vel };
									maxvel = { x =  vel, y =  0.0, z =  vel };
									minacc = { x = -0.2, y = -0.0, z = -0.2 };
									maxacc = { x =  0.2, y =  0.0, z =  0.2 };
									minexptime = ttns, maxexptime = ttns * 2;
									minsize = 0.2, maxsize = 4.5;
									animation = {
										type = 'vertical_frames', length = 0.1 + ttns*2;
										aspect_w = 16, aspect_h = 16;
									}
								}
							end;
							[{whence=0,secs=0.8}] = function(s,te,tl)
								local range = s.range
								sparkle_region {
									spell = s, amt = 150*tl, time = tl;
									minsize = 1, maxsize = 8.4;
									minpos = { x = 0-range, y = -0.5, z = 0-range };
									maxpos = { x =   range, y = h,    z =   range };
									img = sorcery.lib.image('sorcery_flicker.png'):glow(sorcery.lib.color(120,255,30));
								}
							end;
						};
						sounds = {
							[0.00] = {sound='sorcery_disjoin',   where='caster'};
							[{whence=0,secs=0.8}] = {
								sound='sorcery_disjoin_bg', where='subjects';
								gain=0.5, stop = {whence=1,secs=-1.5}
							};
							[1.00] = {sound='sorcery_powerdown', where='caster'};
						};
					}
				end
			};
			diamond = {
				name = 'Mundanity';
				desc = 'Strip away the effects of all active potions and spells in your immediate vicinity, leaving adversaries without their magicks to enhance and protect them, and allies free of any curses they may be hobbled by -- and, of course, vice versa';
				frame = {
					iridium = {
						name = 'Spellshatter';
						desc = 'Blast out a tidal wave of anti-magic that will nullify active spells, but also disenchant or destroy all magical items in range of its violently mundane grip';
					};
				};
			};
		}
	};
	repulse = {
		name = 'Repulse';
		tone = {0,180,235};
		minpower = 1;
		rarity = 5;
		amulets = {
			amethyst = {
				name = 'Hurling';
				desc = 'Wielding this amulet, a mere flick of your fingers will lift any target of your choice bodily into the air and press upon them with tremendous repulsive force, throwing them like a hapless ragdoll out of your path';
				cast = function(ctx)
					if not (ctx.target and ctx.target.type == 'object') then return false end
					local tgt = ctx.target.ref
					local line = vector.subtract(ctx.caster:get_pos(), tgt:get_pos())
					-- direction vector from target to caster
					local dir,mag = sorcery.lib.math.vsep(line)
					if mag > 6 then return false end -- no cheating!
					local force = 20 + (ctx.stats.power * 2.5)
					minetest.sound_play('sorcery_hurl',{pos=tgt:get_pos()},true)
					local immortal = tgt:get_luaentity():get_armor_groups().immortal or 0
					if minetest.is_player(tgt) or immortal == 0 then
						tgt:punch(ctx.caster, 1, {
							full_punch_interval = 1;
							damage_groups = { fleshy = force / 10 };
						})
					end
					sparktrail(nil,tgt,sorcery.lib.color(101,226,255))
					if dir.y > 0 then dir.y = 0 end -- spell always lifts
					dir = vector.add(dir, {x=0,z=0,y=-0.25})
					local vel = vector.multiply(dir,0-force)
					tgt:add_velocity(vel)
				end;
			};
			ruby = {
				name = 'Liftoff';
				desc = 'Lift yourself high into the air with a blast of violent repulsive force against the ground, and drift down safely to a position of your choice';
				cast = function(ctx)
					local power = 14 * (1+(ctx.stats.power * 0.2))
					minetest.sound_play('sorcery_hurl',{object=ctx.caster},true)

					local oldsp = sorcery.spell.ensorcelled(ctx.caster, 'sorcery:liftoff')
					if oldsp then oldsp:cancel() end

					sorcery.spell.cast {
						name = 'sorcery:liftoff';
						caster = ctx.caster;
						subjects = {{player=ctx.caster}};
						duration = power * 0.30;
						timeline = {
							[0] = function(s,_,tl)
								sparktrail(s.visual_subjects,ctx.caster,sorcery.lib.color(255,252,93))
								ctx.caster:add_velocity{y=power*1.2;x=0,z=0}
							end;
							[{whence=0, secs=1}] = function(s)
								s.affect {
									duration = power * 0.50;
									raise = 0.5;
									-- fall = (power * 0.25) * 0.3;
									impacts = {
										gravity = 0.1;
									};
								}
							end;
						};
						intervals = {
							{period = 0.2, after = {whence=0, secs=2}; fn = function(c)
							-- return gravity to normal once they touch down
								for si,sub in pairs(c.spell.subjects) do
									local p = sub.player:get_pos()
									for i=1,3 do
										local sum = vector.offset(p,0,-i,0)
										if not sorcery.lib.node.is_air(sum) then
											c.spell.release_subject(si)
											if #c.spell.subjects == 0 then
												return false
											end
											break
										end
									end
								end
							end};
						};
					}
				end;
			};
			sapphire = {
				name = 'Flinging';
				desc = 'Toss an enemy violently into the air, and allow the inevitable impact to do your dirty work for you';
				cast = function(ctx)
					if not (ctx.target and ctx.target.type == 'object') then return false end
					local tgt = ctx.target.ref
					local power = 16 * (1+(ctx.stats.power * 0.2))
					minetest.sound_play('sorcery_hurl',{object=ctx.caster},true)
					sorcery.spell.cast {
						name = 'sorcery:flinging';
						caster = ctx.caster;
						subjects = {{player=tgt}};
						duration = 4;
						timeline = {
							[0] = function(s,_,tl)
								for _,sub in pairs(s.subjects) do
									sorcery.vfx.imbue(function() return
										sorcery.lib.color {
											hue = math.random(41,63);
											saturation = 100;
											luminosity = 0.5 + math.random()*0.3;
										}
									end, sub.player)
								end
							end;
							[{whence=0, secs=1}] = function(s,te,tl)
								sparktrail(s.visual_subjects,ctx.caster,sorcery.lib.color(255,252,93))
								for _,sub in pairs(s.subjects) do
									sub.player:add_velocity{y=power;x=0,z=0}
								end
							end;
							[1] = (ctx.amulet.frame == 'cobalt') and function(s,te,tl)
								-- TODO add visuals
								for _,sub in pairs(s.subjects) do
									sub.player:add_velocity{y=-power*2;x=0,z=0}
								end
							end or nil;
						};
						sounds = {
							[0.3] = {
								sound = 'sorcery_hurl';
								where = 'subjects';
								ephemeral = true;
							};
							[1] = (ctx.amulet.frame == 'cobalt') and {
								sound = 'sorcery_hurl';
								where = 'subjects';
								ephemeral = true;
							} or nil;
						};
					};
				end;
				frame = {
					cobalt = {
						name = 'Crushing';
						desc = 'Toss an enemy violently into the air, then bring them crashing down to earth with bone-shattering force';
					};
					iridium = {
						name = 'Mass Flinging';
						desc = 'Send everyone around you hurtling into the sky, and allow the inevitable impact to do your dirty work for you';
					};
				};
			};
			emerald = {
				name = 'Shockwave';
				desc = 'Let loose a stream of concussive force that slams into everything in your path and sends them hurtling away from you';
			};
			luxite = {
				name = 'Repulsive Aura';
				desc = 'For a period of time, anyone who approaches you will be violently thrust aside';
			};
			diamond = {
				name = 'Blastwave';
				desc = 'Unleash a tidal wave of force in every direction, blasting friends and foes alike away from you with enough violence to sprain and fracture bone';
			};
		};
	};
	obliterate = {
		name = 'Obliterate';
		tone = {255,0,10};
		minpower = 5;
		rarity = 30;
		amulets = {
			amethyst = {
				name = 'Sapping';
				desc = 'Punch a hole in enemy fortifications big enough to slip through but small enough to avoid immediate attention';
			};
			ruby = {
				name = 'Shattering';
				desc = 'Tear a violent wound in the land with the destructive force of this amulet';
			};
			emerald = {
				name = 'Detonate';
				desc = 'Wielding this amulet, you can loose an extraordinarily powerful bolt of flame from your fingertips that will explode violently on impact, wreaking total havoc wherever it lands';
				cast = function(ctx)
					local speed = 40
					local radius = math.random(math.floor(ctx.stats.power*0.5),math.ceil(ctx.stats.power))
					local heading = ctx.heading
					heading.pos.y = heading.pos.y + heading.eyeheight*0.9
					local vel = vector.multiply(heading.yaw,speed)
					local bolt = minetest.add_entity(vector.add(heading.pos,vector.multiply(heading.yaw,2.5)),'sorcery:spell_projectile_flamebolt')
					bolt:set_rotation(heading.yaw)
					bolt:get_luaentity()._blastradius = radius
					bolt:set_velocity(vel)
				end;
			};
			luxite = {
				name = 'Cataclysmic Aura';
				desc = 'A storm of destructive force rages about you as you stand untouched, the master of its voracious dark energies';
			};
			mese = {
				name = 'Cataclysm';
				desc = 'Use this amulet once to pick a target, then visit devastation upon it from afar whenever you so will with a mere snap of your fingers';
			};
			diamond = {
				name = 'Killing';
				mingrade = 4;
				desc = 'Wield this amulet against a foe to instantly snuff the life out of their mortal form, regardless of their physical protections.';
				cast = function(ctx)
					if not (ctx.target and ctx.target.type == 'object') then return false end
					local tgt = ctx.target.ref
					if not minetest.is_player(obj) then return false end
					local tgth = tgt:get_properties().eye_height
					sorcery.vfx.bloodburst(vector.add(tgt:get_pos(),{x=0,y=tgth/2,z=0}),20)
					minetest.sound_play('sorcery_bloody_burst', { pos = pos, gain = 1.5 })
					tgt:set_hp(0)
				end;
				frame = {
					iridium = {
						name = 'Massacre';
						desc = "Unleash the dark and wicked force that lurks within this fell amulet to instantaneously slay all those who surround you, friend and foe alike";
					};
				};
			};
		};
	};
	excavate = {
		name = 'Excavate';
		tone = {0,68,235};
		minpower = 3;
		rarity = 17;
		amulets = {
			luxite = {
				name = 'Stonestride';
				desc = 'Rock walls will open up before you when you brandish this amulet before them, closing up again behind you without leaving a trace of your passage';
			};
			sapphire = {
				name = 'Tunnelling';
				desc = 'Carve a long tunnel ahead of you into the rock and dirt';
				cast = function(ctx)
					if ctx.target.type ~= 'node' then return false end
					local allowed = {
						['default:stone'] = true;
						['default:desert_stone'] = true;
						['default:dirt'] = true;
						['default:gravel'] = true;
					}
					if allowed[minetest.get_node(ctx.target.under).name] ~= true then
						return false
					end
					local timeline,sounds = {}, {}
					local tunnel_depth = math.random(5,9) * ctx.stats.power
					local cname = ctx.caster:get_player_name()
					local cut = function(step,s,te,tl)
						local smash = function(pos)
							if not allowed[minetest.get_node(pos).name] then return end
							if minetest.is_protected(pos, cname) then return end
							s.visual {
								amount = math.random(32,48), time = 0.2, glow = 14;
								texture = sorcery.lib.image('sorcery_spark.png'):glow(sorcery.lib.color(10,20,255)):render();
								minpos = vector.subtract(pos, {x=0.5,y=0.5,z=0.5});
								maxpos = vector.add     (pos, {x=0.5,y=0.5,z=0.5});
								minvel = {x = -0.3, y = -0.3, z = -0.3};
								maxvel = {x =  0.3, y =  0.3, z =  0.3};
								minacc = {x = -0.6, y = -0.6, z = -0.6};
								maxacc = {x =  0.6, y =  0.6, z =  0.6};
								minexptime = 0.4, maxexptime = 1.2;
								minsize = 0.3, maxsize = 1.2;
								animation = {
									type = 'vertical_frames', length = 1.3;
									aspect_w = 16, aspect_h = 16;
								};
							}
							minetest.dig_node(pos)
							if math.random(5) == 1 then
								minetest.set_node(pos, {name='sorcery:air_flash_' .. tostring(math.random(10))})
							end
							-- TODO visuals
						end
						local r = s.tunnel_radius
						local yaw = {x=0,y=s.tunnel_angle,z=0}
						s.visual {
							amount = 16, time = 3, glow = 14;
							texture = sorcery.lib.image('sorcery_sparking.png'):glow(sorcery.lib.color(20,60,255)):render();
							minpos = vector.subtract(s.anchor, {x=r,y=r,z=r});
							maxpos = vector.add     (s.anchor, {x=r,y=r,z=r});
							minvel = {x = -0.1, y = -0.1, z = -0.1};
							maxvel = {x =  0.1, y =  0.1, z =  0.1};
							minexptime = 1.0, maxexptime = 1.4;
							minsize = 1.5, maxsize = 4;
							animation = {
								type = 'vertical_frames', length = 1.5;
								aspect_w = 64, aspect_h = 64;
							};
						}
						for x=-r,r do for y=-r,r do
							local xs = x < 0 and -1 or 1
							local ys = y < 0 and -1 or 1
							if x^2 + y^2 <= r^2 then
								if (x+xs)^2 + y^2 > r^2 or
								   (y+ys)^2 + x^2 > r^2 then
								   -- we're right at the edge - make a mess
								   if math.random(5) == 1 then goto skip end
								end
								local p = vector.add(s.anchor,vector.rotate({x=x,y=y,z=0},yaw))
								smash(p)
							end
						::skip::end end
						-- if math.random(1,10) == 1 then
						-- 	s.tunnel_angle = s.tunnel_angle + math.random(-0.05,0.05)
						-- 	yaw.y = s.tunnel_angle
						-- end
						if math.random(1,21) == 1 then
							s.tunnel_radius = math.min(6,math.max(3,s.tunnel_radius + math.random(-1,1)))
						end
						local dir = vector.rotate({x=0,y=0,z=1},yaw)
						if sorcery.lib.math.vdcomp(1, dir) < 1 then
							dir = vector.normalize(dir)
						end
						s.anchor = vector.add(s.anchor,dir)
					end
					local tp = 0
					for i=1,tunnel_depth do
						local now = {whence=0,secs=tp}
						timeline[now] = function(...) cut(i,...) end
						sounds[now] = {
							sound='sorcery_crunch', where='pos';
							ephemeral=true, gain = math.random(3,10) * 0.1;
						}
						tp = tp + (math.random(2,5) * 0.1)
					end
					sounds[1] = {sound='sorcery_powerdown', where='pos'}
					sorcery.spell.cast {
						name = 'sorcery:excavate';
						caster = ctx.caster;
						duration = tp;
						timeline = timeline, sounds = sounds;
						-- spell state
						anchor = ctx.target.under;
						tunnel_angle = ctx.caster:get_look_horizontal();
						tunnel_radius = math.floor(math.random(3,5) * (ctx.stats.power * 0.1));
					}
				end;
			};
			emerald = {
				name = 'Boring';
				desc = 'Release the force of this amulet to punch a deep borehole down into the earth below';
			};
			amethyst = {
				name = 'Shaftcutting';
				desc = 'Cut a wide shaft up into the ceiling of a cavern';
			};
		};
	};
	genesis = {
		name = 'Genesis';
		tone = {235,0,175};
		minpower = 5;
		rarity = 23;
		amulets = {
			mese = {
				mingrade = 4;
				name = 'Duplication';
				desc = 'Bring an exact twin of any object or item into existence, no matter how common or rare it might be';
				cast = function(ctx)
					local color = sorcery.lib.color(255,61,205)
					local dup, sndpos, anchor, sbj, ty
					if ctx.target.type == 'object' and ctx.target.ref:get_luaentity().name == '__builtin:item' then
						sorcery.vfx.imbue(color, ctx.target.ref) -- causes graphics card problems???
						sndpos = 'subjects'
						sbj = {{player = ctx.target.ref}}
						local item = ItemStack(ctx.target.ref:get_luaentity().itemstring)
						local r = function() return math.random() * 2 - 1 end
						local putpos = vector.offset(ctx.target.ref:get_pos(), r(), 1, r())
						dup = function()
							item:set_count(1) -- nice try bouge-san
							return minetest.add_item(putpos, item), false
						end
					elseif ctx.target.type == 'node' then
						ty = minetest.get_node(ctx.target.under).name
						sorcery.vfx.imbue(color, ctx.target.under)
						sndpos = 'pos';
						anchor = ctx.target.under;
						dup = function()
							local origmeta = minetest.get_meta(ctx.target.under):to_table()
							origmeta.inventory = nil
							local npos
							do local vp = {}
								for _, of in pairs(sorcery.lib.node.offsets.neighbors) do
									local sum = vector.add(ctx.target.under, of)
									if sorcery.lib.node.is_clear(sum) then
										vp[#vp+1] = sum
									end
								end
								if #vp > 0 then npos=vp[math.random(#vp)] end
							end
							if npos then
								minetest.set_node(npos, minetest.get_node(ctx.target.under))
								if minetest.registered_nodes[ty].on_construct then
									minetest.registered_nodes[ty].on_construct(npos)
								end
								minetest.get_meta(npos):from_table(origmeta)
								return npos, true
							else
								local nstack = ItemStack(ty)
								nstack:get_meta():from_table(origmeta)
								local leftover = ctx.caster:get_inventory():add_item('main',nstack)
								if leftover and not leftover.is_empty() then
									minetest.add_item(ctx.caster:get_pos(), leftover)
								end
							end
						end
					else
						return false
					end
					if minetest.get_item_group(ty,'do_not_duplicate') ~= 0 then
						return true
					end

					sorcery.spell.cast {
						name = 'sorcery:duplicate';
						caster = ctx.caster;
						duration = math.random(10,20) * ((10 - ctx.stats.power)*0.1);
						anchor = anchor;
						timeline = {
							[{whence=0, secs=1}] = function(s,te,tl)
								local mag = sbj and 0.5 or 0.7
								local pv = sbj and vector.new(0,0,0) or ctx.target.under
								local vfn = (sbj and s.visual_subjects or s.visual)
								vfn {
									amount = tl * 30, time = tl;
									minpos = vector.offset(pv,-mag,-mag,-mag);
									maxpos = vector.offset(pv, mag, mag, mag);
									minsize = 0.5, maxsize = 2.3;
									minexptime = 1.0, maxexptime = 1.5;
									texture = sorcery.lib.image('sorcery_sputter.png'):glow(color):render();
									animation = {
										type = 'vertical_frames', length = 1.6;
										aspect_w = 16, aspect_h = 16;
									};
								}
							end;
							[1] = function(s,te)
								local where, node = dup()
								if where == nil then return end
								local pv = node and where or vector.new(0,0,0)
								local mp = (not node) and vector.new(0,0,0) or {
									x = 0.5, y = 0.5, z = 0.5
								}
								minetest.add_particlespawner {
									amount = 170, time = 0.2;
									minpos = vector.subtract(pv,mp);
									maxpos = vector.add(pv,mp);
									attached = (not node) and where or nil;
									minvel = {x = -2.0, y = -1.8, z = -2.0};
									maxvel = {x =  2.0, y =  0.2, z =  2.0};
									minacc = {x = -0.0, y = -0.1, z = -0.0};
									maxacc = {x =  0.0, y = -0.3, z =  0.0};
									minsize = 0.3, maxsize = 2;
									minexptime = 1, maxexptime = 3.0;
									texture = sorcery.lib.image('sorcery_spark.png'):glow(color):render();
									animation = {
										type = 'vertical_frames', length = 3.1;
										aspect_w = 16, aspect_h = 16;
									};
								}
							end;
						};
						sounds = {
							[0] = {
								sound = 'sorcery_duplicate_bg';
								where = sndpos, stop = 1, fade = 2;
							};
							[1] = {
								sound = 'sorcery_genesis';
								where = sndpos, ephemeral = true;
							};
						};
					}
				end;
			};
		};
	};
	luminate = {
		name = 'Luminate';
		tone = {255,194,0};
		minpower = 1;
		rarity = 5;
		amulets = {
			luxite = {
				name = 'Glow';
				desc = 'Swathe yourself in an aura of sparkling radiance, casting light upon all the dark places where you voyage';
				cast = function(ctx)
					local fac = (ctx.stats.power * 0.1)
					local radius = 2 + 5*fac
					local period = 0.4 - 0.3*fac
					local glowduration = 5 + 50*fac
					sorcery.spell.cast {
						name = "sorcery:glow";
						caster = ctx.caster;
						subjects = {{player=ctx.caster}};
						duration = 40 + 120*fac;
						nodes = {};
						disjoin = function(self)
							for _,n in pairs(self.nodes) do
								if sorcery.lib.str.beginswith(minetest.get_node(n).name,'sorcery:air_glimmer_') then
									minetest.remove_node(n)
								end
							end
						end;
						intervals = {
							{period = period, after = {whence=0,secs=0.7}, fn = function(c)
								print('cycling!')
								for _,sub in pairs(c.spell.subjects) do
									local ox, oy, oz = math.random(-radius,radius),
													   math.random(-radius,radius),
													   math.random(-radius,radius)
									local pos = vector.offset(sub.player:get_pos(), ox,oy,oz)
									print('pos',minetest.pos_to_string(pos),'player',minetest.pos_to_string(sub.player:get_pos()))
									if sorcery.lib.node.is_air(pos) then
										print('is air!')
										local power = math.random(4,minetest.LIGHT_MAX)
										minetest.set_node(pos, {
											name = 'sorcery:air_glimmer_' .. tostring(power);
										})
										c.spell.nodes[#c.spell.nodes + 1] = pos
										local d = glowduration * (0.5 + math.random()*0.5)
										local m = minetest.get_meta(pos)
										m:set_float('duration', d)
										m:set_float('timeleft', d)
										m:set_int('power', power)
									else
										print('not air!', dump(minetest.get_node(pos)))
									end
								end
							end};
						};
					}
				end;
				iridium = {
					name = 'Aura';
					desc = 'Dazzling golden luminance emanates from the bodies of all those around you, and you walk in light even amid the darkest depths of the earth';
				};
			};
			diamond = {
				name = 'Radiance';
				desc = 'Set the air around you alight with a mystic luminance, letting you see clearly a great distance in every direction for several minutes';
				frame = {
					iridium = {
						name = 'Sunshine';
						mingrade = 5;
						desc = 'Unleash the power of this amulet to seize ultimate control over the forces of nature and summon the Sun high into the nighttime sky';
						cast = function(ctx)
							local time = minetest.get_timeofday()
							if not (time < 0.3 or time > 0.7) then return false end
							local diff = 0.5 - time
							local frames = 40
							local duration = 1.5
							local delta = diff / frames
							local tl = {}
							for i=1,frames do
								local wh = {whence=0, secs=duration*(i/frames)}
								tl[wh] = function(s)
									minetest.set_timeofday(time + delta*i)
								end
							end
							sorcery.spell.cast {
								name = 'sorcery:sunshine';
								caster = ctx.caster;
								timeline = tl;
								duration = duration;
							}
						end;
					};
				};
			};
		};
	};
	dominate = {
		name = 'Dominate';
		tone = {235,0,228};
		minpower = 4;
		rarity = 13;
		amulets = {
			amethyst = {
				name = 'Suffocation';
				desc = 'Wrap this spell tightly around your victim\'s throat, cutting off their oxygen until you release them.';
			};
			emerald = {
				name = 'Caging';
				desc = 'Trap your victim in an impenetrable field of force, leaving them with no way out but translocation or waiting for the field to release them';
			};
			luxite = {
				name = 'Vampiric Aura';
				desc = 'For a time, anyone who approaches you, whether friend or foe, will suffer immediate retaliation as they are quickly sapped of their vital force in order to replenish your own';
			};
			ruby = {
				name = 'Exsanguination';
				desc = 'Rip the life force out of another, leaving them on the brink of death, and use it to mend your own wounds and invigorate your being';
				cast = function(ctx)
					if not (ctx.target and ctx.target.type == 'object') then return false end
					local tgt = ctx.target.ref
					local takefac = math.min(99,50 + (ctx.stats.power * 5)) / 100
					local dmg = tgt:get_hp() * takefac

					local numhits = math.random(6,10+ctx.stats.power/2)
					local function dohit(hitsleft)
						if tgt == nil or tgt:get_properties() == nil then return end
						tgt:punch(ctx.caster, 1, {
							full_punch_interval = 1;
							damage_groups = { fleshy = dmg / numhits }
						})
						local tgth = tgt:get_properties().eye_height
						sorcery.vfx.bloodburst(vector.add(tgt:get_pos(),{x=0,y=tgth/2,z=0}),math.random(10 * takefac, 40 * takefac))
						ctx.caster:set_hp(ctx.caster:get_hp() + math.max(1,(dmg/numhits)*takefac))

						local sound = {'sorcery_bloody_hit','sorcery_crunch',false}
						sound = sound[math.random(#sound)]
						if sound ~= false then
							minetest.sound_play(sound, { pos = pos, gain = math.random(5,15)*0.1 })
						end

						local nexthit = math.random() * 0.4 + 0.1
						local dir = vector.subtract(ctx.caster:get_pos(), tgt:get_pos())
						local spark = sorcery.lib.image('sorcery_spark.png')
						minetest.add_particlespawner {
							amount = math.random(80*takefac,150*takefac);
							texture = spark:blit(spark:multiply(sorcery.lib.color(255,20,10))):render();
							time = nexthit;
							attached = tgt;
							minpos = {x = -0.3, y = -0.5, z = -0.3};
							maxpos = {x =  0.3, y = tgth, z = 0.3};
							minvel = vector.multiply(dir,0.5);
							maxvel = vector.multiply(dir,0.9);
							minacc = vector.multiply(dir,0.1);
							maxacc = vector.multiply(dir,0.2);
							minexptime = nexthit * 1.5;
							maxexptime = nexthit * 2;
							minsize = 0.5;
							maxsize = 5 * takefac;
							glow = 14;
							animation = {
								type = 'vertical_frames';
								aspect_w = 16, aspect_h = 16;
								length = nexthit*2 + 0.1;
							};
						}

						if hitsleft > 0 then
							minetest.after(nexthit, function() dohit(hitsleft-1) end)
						end
					end
					dohit(numhits)
				end;
			};
			amethyst = {
				name = 'Disarming';
				desc = 'Wield this amulet against a foe to rip all the weapons in their possession out of their grasp';
				frame = {
					iridium = {
						name = 'Peacemaking';
						desc = 'Confiscate all weapons held by those surrounding you';
					};
				};
			};
		};
	};
}
