diff --git a/lake_country/Butakis/luck1 b/lake_country/Butakis/luck1
index ce4f4d08a..e6558a427 100644
--- a/lake_country/Butakis/luck1
+++ b/lake_country/Butakis/luck1
@@ -2559,14 +2559,9 @@ maxsp 200
 x 11
 y 9
 level 20
+resist_weaponmagic 100
 carrying 5000
-arch book
-name Fire red spellbook
-msg
-Create a comet that goes in straight
-line. It hit for weaponmagic
-endmsg
-sp 90
+arch spell_comet
 end
 end
 arch woodfloor
@@ -3205,35 +3200,39 @@ dam 30
 ac -8
 x 15
 y 5
-speed 1.000000
+speed 1.0
 attack_movement 7
 level 50
 type 0
 resist_physical 30
-resist_magic 30
+resist_magic 100
 resist_fire 100
 resist_electricity 100
 resist_cold 100
+resist_confusion 100
+resist_weaponmagic 100
+resist_fear 100
 carrying 5000
 move_type walk
 monster 1
 unique 1
 can_cast_spell 1
 can_use_scroll 1
-arch book
-sp 26
+arch spell_comet
 end
-arch ability_fear
+arch spell_icestorm
 end
-arch ability_forced_dance
+arch spell_frostbolt
 end
-arch ability_mass_confusion
+arch spell_sm_lightning
 end
-arch ability_lightning
+arch spell_fear
 end
-arch ability_cold
+arch spell_mass_confusion
 end
-arch ability_dragon
+arch spell_small_speedball
+end
+arch spell_dragonbreath
 end
 end
 arch dungeon_magic