Buy/Sell
Posted: 2006-09-09 20:15:17
Вопрос по этой функции... Вроде делаю всё правильно, а ничего не работает, пишет, что не находит итемов. Кому, не лень, обьясните подробно, как ей пользоваться... Скриптов не предлогать...
make new list, then edit, go to the vendor, say "BUY", you will load buy list, add mandrakes, then press done, then buy.HelpmePlss wrote:hi, sorry but i dont understand your lenguage, and i have a problem with buy/sell.... i play in a sphere server 56b,
when i buy with a ''buy list'' for example i have in my buy list all Mandrakes my pj every time buy all that the vendor have, mandrakes, ginseng, blood moos, etc.....and not just mandrakes
somebody can help me?
PD: I DONT have problem to sell...if i use the = list of mandrakes i sell just mandrakes :S
Thx
sorry but this isnt de problem i know how to do that, my problem is like all items have the = type or something like this...NMY wrote:make new list, then edit, go to the vendor, say "BUY", you will load buy list, add mandrakes, then press done, then buy.HelpmePlss wrote:hi, sorry but i dont understand your lenguage, and i have a problem with buy/sell.... i play in a sphere server 56b,
when i buy with a ''buy list'' for example i have in my buy list all Mandrakes my pj every time buy all that the vendor have, mandrakes, ginseng, blood moos, etc.....and not just mandrakes
somebody can help me?
PD: I DONT have problem to sell...if i use the = list of mandrakes i sell just mandrakes :S
Thx
Code: Select all
sub buy() ## mod from Dearhell's script
VAR buyListName='nightshade' ##change per buy list
Dim vendorType[2]
vendorType[1]='0x0190'
vendorType[2]='0x0191'
VAR x
For x=1 to 2
UO.Exec("set finddistance 3")
UO.FindType(vendorType[x],"-1",'ground')
UO.GetName('finditem')
If (UO.GetName('finditem')==UO.GetName()) then
UO.Print('We delete the character name from the search list')
UO.Ignore('finditem')
UO.FindType(vendorType[x],"-1",'ground')
wait(500)
endIf
if UO.FindCount()>0 then
UO.Print('We buy regs from -> '+UO.GetName('finditem'))
wait(500)
UO.Say('Hi '+UO.GetName('finditem'))
wait(500)
UO.Buy(buyListName,UO.GetName('finditem'))
wait(500)
UO.Ignore('finditem')
EndIf
next
UO.Exec("set finddistance 10")
UO.Ignorereset()
end sub1) раздел "FAQ"wap2 wrote:Не может кто-то подробно описать, как эта функция работает?