Post: #1

little snippet of our vendor system, its not sending bought items to a bank or even bag pack

on=1
If (<distance> > 5)
src.sysmessage <def.toofar>
findid.i_m_vendorfala.remove
return 1
endif
If !(<tag0.itemsavenda>)
src.sysmessage <def.noitems_forsale>
sdialog d_vendor_owner_pod
return 1
endif
local.lastp=<src.p>
local.flags=<src.region.flags>
src.region.flags=0
src.p 1,1
serv.newitem=i_backpack
new.name=Vendor Bag
new.color=39
new.cont=<src.findlayer.29>
f_retirar_items <new>
tag.itemsavenda=0
src.sysmessage <def.items_banked1>
findid.i_m_vendorfala.remove
src.p=<local.lastp>
src.region.flags=<local.flags>
src.update


[function f_retirar_items]
IF (<tag0.itemsavenda>)
local.itotais=<tag.itemsavenda>
local.item=1
FOR <local.itotais>
try uid.<tag.iuid<eval <local.item>>>.tag.dispid2=
try uid.<tag.iuid<eval <local.item>>>.cont=<hval <argn1>>
try tag.iuid<eval <local.item>>
try tag.desc<eval <local.item>>
try tag.preco<eval <local.item>>
local.item += 1
ENDFOR
ENDIF

I can post there serveral hundard lines, but it will prob boar you.