+- SphereCommunity (https://forum.spherecommunity.net)
+-- Forum: Sphere 0.56d (/Forum-Sphere-0-56d)
+--- Forum: Script Help (/Forum-Script-Help)
+--- Thread: Player Vendor Rental. (/Thread-Player-Vendor-Rental)
Player Vendor Rental. - Sypheris - 01-25-2016 04:23 AM
I have a Player vendor script but when i try to add items to it, it doesn't accept just anything. It rejects items and says "thats not a saleable item"
How can i get around this...
i just noticed if the item in the scripts dont have value=1 it flips it... why is that if i can just sell the item for what i want anyways..
[ITEMDEF i_vendor_rental]
ID=0bcf
DUPELIST=0bd0,0bcf
NAME=Vendor Rental
TYPE=t_script
CATEGORY=Added
SUBSECTION=Interactive
DESCRIPTION=Vendor Rental
ON=@CREATE
COLOR=000d1
TAG.RENTED=0
TAG.OWNER=0
ATTR attr_decay
ON=@DCLICK
SRC.ACT=<UID>
IF !(<eval <SRC.ACT.TAG.RENTED>>)
SRC.DIALOG d_vendor_intro
RETURN 1
ELSE
IF (<SRC.ACT.LINK.TAG.OWNER>==<SRC.UID>)||(<SRC.ISGM>)
VAR.LEASE=<eval <SRC.ACT.TIMER>/60>
VAR.LEASE=<eval <VAR.LEASE>/60>
SRC.MENU m_vendor_admin
RETURN 1
ELSE
SRC.SYSMESSAGE The shop is already rented.
RETURN 1
ENDIF
ENDIF
RETURN 1
ON=@TIMER
LINK.REMOVE
LINK=04fffffff
TAG.RENTED=0
TAG.OWNER=0
COLOR=000d1
RETURN 1
// GUMPS
[DIALOG d_vendor_intro]
100, 100
PAGE 0
resizepic 81 93 3500 305 126
text 150 103 1153 0
text 151 134 1153 1
button 117 169 2151 2152 1 0 1
text 151 171 1152 2
[DIALOG d_vendor_intro TEXT]
Vendor Rental System
Vendors cost 15000gp
Rent a vendor for 7 days
[DIALOG d_vendor_intro BUTTON]
on=1
IF (<eval <SRC.BANKBALANCE>+<SRC.FINDLAYER(21).FINDTYPE(i_GOLD).AMOUNT>> >=15000)
VAR.SIGN=<SRC.ACT>
SRC.ACT.TAG.RENTED=1
SRC.ACT.COLOR=0484
SRC.ACT.TAG.OWNER=<SRC.UID>
SRC.ACT.TIMER=60*60*24*7
VAR.SIGN=<SRC.ACT>
SRC.NEWNPC { C_RENTAL_VENDOR 1 C_RENTAL_VENDOR_F 1 }
SRC.ACT.P <SRC.P>
VAR.VEND=<SRC.ACT.UID> // keep the vendors uid for later use.
SRC.ACT.findlayer(layer_bankbox).more1=500
SRC.ACT.TAG.OWNER=<SRC.UID>
SRC.ACT=<VAR.SIGN>
SRC.ACT.LINK=<VAR.VEND>
SRC.ACT=<VAR.VEND>
SRC.NEWITEM=i_memory
SRC.ACT.COLOR=memory_ipet
SRC.ACT.LINK=<SRC.UID>
SRC.ACT.LAYER=layer_special
SRC.ACT.CONT=<VAR.VEND>
SRC.CONSUMEBANK 15000 i_gold
SRC.UPDATE
SRC.ACT=<VAR.SIGN>
SRC.MENU m_vendor_admin
RETURN 1
ELSE
SRC.SYSMESSAGE You do not have the funds to rent a vendor [15000 gp is needed]
ENDIF
[MENU m_vendor_admin]
Rented Vendor Administration Menu
ON=0 Change my vendor's name
SRC.DIALOG d_name_vendor
ON=0 Set items to sell (stock your vendor)
SRC.ACT.LINK.FINDLAYER(layer_vendor_stock).OPEN
SRC.SYSMESSAGE Place items to be sold in here.
SRC.SYSMESSAGE To set a price, say "price xxx" (xxx = price)
ON=0 Purchased items
SRC.ACT.LINK.FINDLAYER(layer_vendor_extra).OPEN
SRC.SYSMESSAGE Items you have bought are here.
SRC.SYSMESSAGE (These can be sold too)
ON=0 Set items to purchase
SRC.ACT.LINK.FINDLAYER(layer_vendor_buys).OPEN
SRC.SYSMESSAGE Place items you want to buy in here
ON=0 Retrieve Vendors cash (<eval <SRC.ACT.LINK.findlayer(layer_bankbox).more1>> gp)
VAR.AMT=<eval <SRC.ACT.LINK.FINDLAYER(layer_bankbox).more1>>
SRC.ACT.LINK.FINDLAYER(layer_bankbox).more1=0
SRC.NEWITEM i_gold
SRC.ACT.AMOUNT <VAR.AMT>
SRC.ACT.BOUNCE
SRC.UPDATE
ON=0 Give Vendor 500gp
IF (<eval <SRC.BANKBALANCE>+<SRC.FINDLAYER(21).FINDTYPE(i_GOLD).AMOUNT>> >=500)
SRC.ACT.LINK.FINDLAYER(layer_bankbox).more1=<eval <SRC.ACT.LINK.findlayer(layer_bankbox).more1>+500>
SRC.CONSUMEBANK 500 i_gold
SRC.UPDATE
SRC.ACT.LINK.SAY Thank you!
ELSE
SRC.SYSMESSAGE You do not have the money to give to your vendor
ENDIF
ON=0 Pay for another week (<eval <VAR.LEASE>> hours left)
IF (<eval <SRC.BANKBALANCE>+<SRC.FINDLAYER(21).FINDTYPE(i_GOLD).AMOUNT>> >=15000)
SRC.CONSUMEBANK 15000 i_gold
SRC.UPDATE
SRC.ACT.TIMER=60*60*24*7
SRC.ACT.LINK.SAY I shall sell for you for another 7 days!
ELSE
SRC.SYSMESSAGE You do not have the proper funds to cover another week
ENDIF
ON=0 Disown shop
SRC.ACT.TIMER 1
ON=0 Access your bankbox
SRC.BANKSELF
[DIALOG d_name_vendor]
0,0
nomove
resizepic 190 175 5054 335 150
resizepic 200 185 3000 315 130
resizepic 220 235 3000 270 22
text 215 200 995 0
text 255 275 0000 1
button 220 275 4005 4006 1 0 1
text 435 275 0000 2
button 400 275 4005 4006 1 0 0
textentry 225 237 253 25 0 0 3
[DIALOG d_name_vendor TEXT]
How would you like to name the vendor?
Continue
Cancel
<src.act.link.name>
[DIALOG d_name_vendor BUTTON]
ON=0
ON=1
src.act.link.say My new name is <ARGTXT[0]>!
SRC.ACT.LINK.NAME <ARGTXT[0]>
RETURN 1
// NPCS - intended for future expansion
[CHARDEF C_RENTAL_VENDOR]
NAME=Rented Vendor
ID=C_MAN
DESIRES=i_gold,e_notoriety
AVERSIONS=t_TRAP,t_eerie_stuff
TSPEECH=spk_human_prime
TSPEECH=spk_shopkeep
TSPEECH=spk_needs
TSPEECH=spk_human_default
TEVENTS=e_Human_HearUnk
TEVENTS=e_Human_ConvInit
TEVENTS=e_Human_Needs
TEVENTS=e_Human_Greet
TEVENTS=e_Human_Space
TEVENTS=e_Human_Refuse
TEVENTS=e_Human_Environ
CATEGORY=Civilized
SUBSECTION=Tradesmen
DESCRIPTION=Vendor
ON=@Create
NPC=brain_vendor
COLOR=colors_skin
FLAGS=028000005
NEED=i_gold
STR={66 80}
DEX=90
INT={66 80}
FENCING={15.0 38.0}
PARRYING={45.0 68.0}
SWORDSMANSHIP={15.0 38.0}
WRESTLING={15.0 38.0}
MACEFIGHTING={15.0 38.0}
MAGICRESISTANCE={45.0 68.0}
TACTICS={45.0 68.0}
ITEMNEWBIE=i_lantern
ITEMNEWBIE=random_male_hair
COLOR=colors_hair
ITEMNEWBIE=random_facial_hair
COLOR=match_hair
ITEMNEWBIE=i_shirt_plain
COLOR=colors_all
ITEMNEWBIE=random_pants
COLOR=colors_all
ITEMNEWBIE=random_shoes
COLOR=colors_neutral
ON=@CLICK
SAYUA 0268 0 0 0 <NAME>
RETURN 1
[CHARDEF C_RENTAL_VENDOR_F]
NAME=Rented Vendor
ID=C_WOMAN
CAN=0
FOODTYPE=
TSPEECH=spk_human_prime
TSPEECH=spk_shopkeep
TSPEECH=spk_needs
TSPEECH=spk_human_default
TEVENTS=e_Human_HearUnk
TEVENTS=e_Human_ConvInit
TEVENTS=e_Human_Needs
TEVENTS=e_Human_Greet
TEVENTS=e_Human_Space
TEVENTS=e_Human_Refuse
TEVENTS=e_Human_Environ
TEVENTS=e_no_pvp
ON=@Create
NPC=brain_vendor
COLOR=colors_skin
FLAGS=028000001
NEED=i_gold
STR={66 80}
DEX=90
INT={66 80}
FENCING={15.0 38.0}
PARRYING={45.0 68.0}
SWORDSMANSHIP={15.0 38.0}
WRESTLING={15.0 38.0}
MACEFIGHTING={15.0 38.0}
MAGICRESISTANCE={45.0 68.0}
TACTICS={45.0 68.0}
ITEMNEWBIE=i_lantern
ITEMNEWBIE=random_female_hair
COLOR=colors_hair
ON=@NPCRestock
ITEM=i_shirt_plain
COLOR=colors_all
ITEM=random_skirt
COLOR=colors_all
ITEM=random_shoes
COLOR=colors_neutral
ITEM=random_coin_purse
ON=@CLICK
SAYUA 0268 0 0 0 <NAME>
RETURN 1
[EVENTS e_no_pvp]
ON=@SPELLEFFECT
SRC.SYSMESSAGE Your attack has been magically blocked.
RETURN 1
ON=@GETHIT
SRC.SYSMESSAGE Your attack has been magically blocked.
RETURN 1
[FUNCTION consumebank] //Thanks to Kell for this!
act=<SRC.FINDLAYER(layer_bankbox).uid>
act.layer=layer_pack
act.type=t_container
act.equip
src.consume <args>
act.layer=layer_bankbox
act.type=t_eq_bank_box
act.equip
RE: Player Vendor Rental. - Sypheris - 01-26-2016 01:48 AM
Bump, i've just come to realize it eats the items left in his bank.. woke up this morning and his inventory is gone.
RE: Player Vendor Rental. - Sypheris - 02-20-2016 07:12 AM
bump anyone?
RE: Player Vendor Rental. - Khaos - 02-20-2016 01:50 PM
First, vars are global and can be overwritten by anyone else using the rental vendors at the same time as you. You need to fix that. It is going to cause all types of issues.
Second, I don't see anything in the code to EAT items, much less flip them. There is no checks for item <Value>. I'd double check your other scripts.
Furthermore, I think in the downloads section or on the script submissions there should be better rental vendors to use than this outdated script. This seems like an old 55i script.