mob
    var
        Family_name = "Kuchiki"
        Family_leader = "Wrath69"
        Family_co_leader = 0
        Family_member = 0
        Family_rank = ""
        Family_Say
        Family_Who
        Give_Family_Verbs
        in_Family = 0


var
    list/
        Family = list()


mob/Family_Leader
    verb
        Family_Adopt()
            set category = "family"
            var/list/Menu = list()
            for(var/mob/M in world)
                if(!M.client) continue
                if(M.name != usr.name)
                    if(!M.in_Family)
                        Menu.Add(M)

            var/mob/M = input("Who do you want to Adopt into your Family?","") as null | anything in Menu
            if(!M)return
            if(istype(M,/mob))
                switch(alert(M,"Do you want to be adopted into the [usr.Family_name] Family?","","Yes","No"))
                    if("Yes")
                        M.Family_name = usr.Family_name
                        M.Family_member = 1
                        M.Family_rank = "Member"
                        M.in_Family = 1
                        M.Give_Family_Verbs()
                        shikaidrain = 0
                        bankaidrain = 0
      world << "<b><font color = aqua>Family Info: [M] has joined the [usr.Family_name] Family!"
                    if("No")
                        usr << "[M] has declined your Adoption Offer"
                        return

        Family_Rank()
            set category = "family"
            var/list/Menu = list()
            for(var/mob/M in world)
                if(!M.client) continue
                if(M.name != usr.name)
                    if(M.in_Family)
                        if(M.Family_name == usr.Family_name)
                            Menu.Add(M)

            var/mob/M = input("Who's rank do you want to change?","") as null | anything in Menu
            if(!M)return
            if(istype(M,/mob))
             if(M.Family_leader)
              alert("You cannot change the leader's rank!")
                switch(input("What rank do you wish to give [M]?")in list("Co-Leader","Member","Custom","Cancel"))
                    if("Co-Leader")
                        M.Family_co_leader = 1
                        M.Give_Family_Verbs()
                        M.Family_rank = "Co-Leader"
                    if("Member")
                        M.Family_member = 1
                        M.Give_Family_Verbs()
                        M.Family_rank = "Member"
                    if("Cancel")
                        return
  Custom_Rank()
   set category = "Family"
            var/list/Menu = list()
            for(var/mob/M in world)
                if(!M.client) continue
                if(M.name != usr.name)
                    if(M.in_Family)
                        if(M.guild_name == usr.Family_name)
                            Menu.Add(M)

            var/mob/M = input("Who's rank name do you want to change?","") as null | anything in Menu
            if(!M)return
            if(istype(M,/mob))
                var/ID=input("What do you want to rename [M]'s rank name to?")as text
          M.Family_rank=ID
        Family_Announce(T as text)
            set category = "Guild"
            var/list/L
            L = list("font size")
            if(lentext(T) > 400)
                alert("Your message must be less than 400 characters!")
                return
            for(var/X in L)
                if(findtext(T,X))
                    alert("You can not change your font size.")
                    return
            for(var/mob/X in world)
                if(X.Family_name == usr.Family_name)
                 X << "<font size=2><font color = silver><b><center>[usr] would like to announce to the Family:<center><br>[T]"

mob/Family_Verbs
    verb
        Family_Say(T as text)
            set category = "Family"

            var/list/L
            L = list("font size")

            if(lentext(T) > 300)
                alert("Your message must be less than 300 characters!")
                return
            for(var/X in L)
                if(findtext(T,X))
                    alert("You can not change your font size.")
                    return
            for(var/mob/X in world)
                if(X.guild_name == usr.guild_name)
                    X << "<b><font color = yellow>(Family Say)([src.Family_rank])[src.name]: [T]"


        Family_Who()
            set category = "Family"
            var/tmp/C = 0
    usr << "<font size=1><b><font color=silver><center>---------------------FAMILY WHO------------------------"
    for(var/mob/M in world)
                if(M.in_Family)
                 if(M.Family_name == usr.Family_name)
            C += 1
          usr << "<font size=1><b><font color=red>[M.name]([M.key])([M.Family_rank])-[M.race]"
    usr << "<b><font color = red>[C] Family Members Online!"
    usr << "<font size=1><b><font color=silver><center>---------------------FAMILY WHO------------------------"



mob
    proc
        Give_Family_Verbs()
            if(src.Family_leader)
                src.verbs += typesof(/mob/Guild_Leader/verb)
                src.verbs += typesof(/mob/Guild_Verbs/verb)
            if(src.Family_co_leader)
                src.verbs += typesof(/mob/Guild_Leader/verb)
                src.verbs += typesof(/mob/Guild_Verbs/verb)
            if(src.Family_member)
                src.verbs += typesof(/mob/Guild_Verbs/verb)