obj
    wcc
        icon='ICONS.dmi'
        icon_state="WCC"
        name="Wizard Card Collector"
        density=1
        DblClick()
            usr<<"[src.name]: Hey! You! Listen, I'm both fascinated by dragons, and I love collecting wizarding cards. I've heard of this guy, Quong Po, who studied the Chinese Fireball, and he's on a Wizard Card! Look, if you get me a Quong Po card, I'll give you some gold and a Merlin card. Deal?"
            sleep(50)
            var/obj/Buying=input("Will you help him?")in list("Yes", "No")
            if(Buying=="No")
                usr<<"[src.name]: Darn. Well, if you ever get an extra one, you know where to find me!"
            if(Buying=="Yes")
                if(usr.QP>=1)
                    usr<<"[src.name]: You have a Quong Po card! Will you trade it?"
                    var/obj/S=input("Trade him the Quong Po card for a Merlin card and some coins?")in list("Yes", "No")
                    if(S=="Yes")
                        usr<<"[src.name]: You rock, dude! As promised, here's a Merlin card and 6 coins."
                        usr.Gold+=6
                        var/obj/T=new/obj/WC(usr)
                        T.name="Merlin"
                        var/obj/U=usr.contents.Quong_Po
                        del(U)
                    if(S=="No")
                        usr<<"[src.name]: Aw, darn. Well, you know where to find me."
                else
                    usr<<"[src.name]:Great! Just come back whenever you have one, okay?"