obj
    Spell_Book
        icon='Items.dmi'
        icon_state="Spell Book"
        verb
            Get()
                set src in view(1)
                usr << "You pick up the spell book and see a note that reads,<font color=red> Do not drop."
                usr.contents+=new/obj/Spell_Book
                del(src)
            Drop()
                set src in usr
                src.loc=locate(usr.loc)
                new/obj/Spell_Book(usr.loc)



    Scroll
        ScrollofFire
        icon='Spells.dmi'
        icon_state="SFire"
        verb
            Get()
                set src in view(1)
                usr << "You pick up the spell book and see a note that reads,<font color=red> Do not drop."
                usr.spells+=new/obj/Scroll/ScrollofFire
                del(src)
            Drop()
                set src in usr
                src.loc=locate(usr.loc)
                new/obj/Scroll/ScrollofFire(usr.loc)
            Use()
                set src in usr
                set name = "Use"
                var/obj/Spell_Book = locate(/obj/Spell_Book) in usr.contents
                if(Spell_Book)
                    usr<<"You learn the spell Fire"
                    usr.contents+=new/obj/Spells/Fire
                else
                    usr<<"It would be a waste to read this without a spellbook."
                    return


















mob
    proc
        MagicCheck()
            if(MagicExp >= MaxMagicExp)
                usr.Magery+=1
                usr.MagicExp=0
                usr.MaxMagicExp+=30
                usr << "Your Magery increased by one it is now [usr.Magery]!"




obj
    Spells
        Fire
        icon = 'Spells.dmi'
        icon_state = "Fire"
        verb
            Use_Fire(mob/M in oview(5))
                if(usr.Casting==1)
                    usr<<"You are already casting."
                    return
                var/damage=5
                if (usr.MP<=5)
                    usr << "You don't have enough magic power!"
                    return
                usr.Casting=1
                missile(/obj/spells/HellFire,src,M.loc)
                M.HP-=(damage)
                usr.MP-=5
                usr.MagicExp+=5
                usr << "You cast fire on [M]!"
                sleep(40)
                usr.Casting=0
                usr.MagicCheck()




mob
    var
        MagicExp=0
        MaxMagicExp=30
        Casting=0