diff --git a/spell/Change_Ability/levitate_effect.arc b/spell/Change_Ability/levitate_effect.arc
new file mode 100644
index 000000000..e5921faf2
--- /dev/null
+++ b/spell/Change_Ability/levitate_effect.arc
@@ -0,0 +1,10 @@
+Object levitate_effect
+name levitate effect
+face levitate_effect.111
+animation levitate_effect
+speed 1
+is_used_up 1
+no_pick 1
+food 3
+move_type fly_high
+end
diff --git a/spell/Change_Ability/levitate_effect.base.111.png b/spell/Change_Ability/levitate_effect.base.111.png
new file mode 100644
index 000000000..c96e5a81d
Binary files /dev/null and b/spell/Change_Ability/levitate_effect.base.111.png differ
diff --git a/spell/Change_Ability/levitate_effect.base.112.png b/spell/Change_Ability/levitate_effect.base.112.png
new file mode 100644
index 000000000..61fe70bc8
Binary files /dev/null and b/spell/Change_Ability/levitate_effect.base.112.png differ
diff --git a/spell/Change_Ability/levitate_effect.base.113.png b/spell/Change_Ability/levitate_effect.base.113.png
new file mode 100644
index 000000000..13030ee74
Binary files /dev/null and b/spell/Change_Ability/levitate_effect.base.113.png differ
diff --git a/spell/Change_Ability/levitate_effect.face b/spell/Change_Ability/levitate_effect.face
new file mode 100644
index 000000000..e3936ec0e
--- /dev/null
+++ b/spell/Change_Ability/levitate_effect.face
@@ -0,0 +1,17 @@
+animation levitate_effect
+levitate_effect.111
+levitate_effect.112
+levitate_effect.113
+mina
+face levitate_effect.111
+magicmap blue
+visibility 255
+end
+face levitate_effect.112
+magicmap blue
+visibility 255
+end
+face levitate_effect.113
+magicmap blue
+visibility 255
+end
diff --git a/spell/Change_Ability/spell_levitate.arc b/spell/Change_Ability/spell_levitate.arc
index 94f36286c..c094eda00 100644
--- a/spell/Change_Ability/spell_levitate.arc
+++ b/spell/Change_Ability/spell_levitate.arc
@@ -19,4 +19,5 @@ move_type fly_low
 msg
 Causes the caster to float or fly low over the ground so as to prevent falling into holes or traps.  It is not possible to pick things up off the ground while levitating.
 endmsg
+other_arch levitate_effect
 end