how do u pick up weapons,then sell or equip them?

ID:175667
 
Mar 22 2003, 11:01 am
ps.i also need shop keeper code so when u sell,it saves the item u sell and others can buy it.

weapon-sickle
buy-100
lvl-2
sell-50

i want that info in code,like u need 2 be lvl 2 to weild it,
when u buy it it takes 100 gold,and when u sell it u get 50 gold and others can buy it for 100 from same merchant.

(i have lvling system and merchants .dmi is-shopkeeperz3.dmi

thnx in advance!
Mar 22 2003, 11:07 am
i also need gold system and gold amount under stats




srry!






Mar 22 2003, 12:19 pm
In response to Kablez
ok,i got gold system
Mar 22 2003, 1:44 pm
In response to Kablez
Kablez wrote:
ok,i got gold system
We aint gonna write you a shopkeeper system for you, look up one in the hub, and try modifying that.
Mar 22 2003, 1:44 pm
This should fit your needs, hopefully. But, I haven't tested it, so...you know. But here:
    items
        var/obj/worth
        var/obj/lvl
        sickle
            worth=100
            lvl=2
mob
    shopkeeper
        Bob
            var/list/A=list()//Selling items
            var/list/B=list()//Buying items
            var/C//The messages
            var/D//More messages
            Click()
                B+=new/obj/items/sickle
                if(src in get_step(usr,usr.dir))
                    for(var/obj/items/I in usr.contents)
                        if(I.worn)
                            continue
                            return 0
                        else
                            A.+=I
                    A+="Cancel"
                    C=alert("What do you wish to do?","[src]","Buy","Sell")
                    if(C=="Buy")
                        C=input("Buy what?","[src]") in B
                        D=alert("Are you sure you wish to buy [C] for [C.worth]?","Yes","No")
                        if(D=="Yes")
                            if(C.lvl>usr.lvl)
                                usr<<"<b>[C]'s lvl is [C.lvl]! You are [usr.lvl]!</b>"
                            else
                                usr.contents+=C
                                usr.gold-=C.worth
                        else
                            return 0
                    else
                        C=input("Sell what?","[src]") in A
                        D=alert("Are you sure you wish to sell [C] for [C.worth/2]?","[src]","Yes","No")
                        if(D=="Yes")
                            C.Move(src)
                            usr.gold+=round(C.worth/2)
Mar 22 2003, 1:49 pm
We have a triple-post and a quadruple-post... anyone wanna round it out with a double-post and a quintuple-post?
Mar 22 2003, 2:38 pm
In response to Garthor
I've had this happen before... It's like it wont post the message so you keep trying and trying and the messages arn't there, then finally you try one last time, it finally posts it, then when you look at the forum it shows that you have posted like 7 times. That happened to me once here on newbie central when responding to a newbies post... It might possibly be a bug or just computer/browser issues.


I'm talking about the triple post on this topic, by the way, the others I think were on purpose.