obj/House
    house_Door
        icon = 'turfs.dmi'
        icon_state = "door"
        density = 1
        layer = MOB_LAYER + 2
        password
        var/opened=0
        bought = 0
        verb
            Buy()
                set src in oview(1)
                set category="Door"
                if(src.bought == 0||src.bought == null)
                    switch(alert("Would you like to Purchase this house? it cost 30,000 zenni", "Purchase", "Yes","No"))
                        if("Yes")
                            if(usr.zenni < 30000)
                                usr<<"<b><font color = Lime>This costs 30,000 zenni!"
                            if(usr.zenni >= 30000)
                                usr.zenni -= 30000
                                usr<<"<b><font color = Silver>Okay! You may enter your House any time you want now!"
                                src.name = "[usr]'s House"
                                src.bought = 1
                                usr.client.SaveMob()
            Open()
                set src in oview(1)
                set category="Door"
                set name="Open"
                if(src.password == null && src.bought == 1)
                    var/password1 = input("What do you wish to make the password? make it hard so no one can come in except you") as text
                    src.password = password1
                else
                    if(src.opened == 0 && src.bought == 1||src.opened == null && src.bought == 1)
                        var/choice = input("What is the password?") as text
                        if(choice == src.password)
                            src.opened=1
                            flick("door5",src)
                            src.icon_state="door7"
                            density=0
                            sleep(30)
                            flick("door6",src)
                            src.icon_state="door"
                            src.opened=0
                            density=1
                        else
                            usr<<"<b><i><u><font color = Red>Incorrect Password!"
                    else
                        usr<<"<b>This Door isn't bought yet!"
            Sell_House()
                set src in oview(1)
                set category="Door"
                set name="Sell House"
                if(src.opened == 0 && src.bought == 1||src.opened == null && src.bought == 0)
                    usr << "<b><font color = Silver>You sold your House back to the community and got 15,000 zenni back."
                    usr.zenni += 15000
                    src.bought = 0
                    src.verbs += /obj/house_Door/verb/Buy
                else
                    usr << "You can't!"
                    
world
    New()
        LoadHouse()
    Del()
        SaveHouse()

proc/SaveHouse()
    var/savefile/F = new ("House.sav")
    var/list/L = new
    for(var/obj/House/B in world)
        B.saved_x = B.x
        B.saved_y = B.y
        B.saved_z = B.z
        L += B
    F[""] << L

proc/LoadHouse()
    var/savefile/F = new ("House.sav")
    var/list/L = new
    F[""] >> L
    if(!L) return
    for(var/obj/House/B in world) if(B.loc) del(B)
    for(var/obj/House/B in L)
        B.loc = locate(B.saved_x,B.saved_y,B.saved_z)