Code: Select all
sub buyengine()
If UO.GetGlobal('BuyScript')=='Off' Then
UO.SetGlobal('BuyScript','On')
UO.Print("Buy Engine activated!")
UO.Exec('exec buylastattack')
Else
UO.SetGlobal('BuyScript','Off')
UO.Print("Buy Engine deactivated!")
UO.Exec('terminate buylastattack')
Endif
end sub
sub buylastattack()
VAR Name="", SerialLast='0x00000000', SerialNew='0x00000000'
While TRUE
SerialNew=UO.GetSerial('laststatus')
If SerialNew<>SerialLast AND SerialNew>0 Then
UO.Click(SerialNew)
wait(1000)
Name=UO.GetName(SerialNew)
UO.Print(Name)
UO.Say(Name+" buy")
SerialLast=SerialNew
Else
wait(1000)
Endif
wend
end sub
Code: Select all
sub buying()
uo.Say('bye')
uo.Exec('addobject Vendor')
while uo.Targeting()
wait(100)
wend
uo.Say(UO.GetName('Vendor') + ' buy')
end subЕсли не знаешь - команда сферы .buy генерит прицел, которым ты указываешь вендора и открывает окно покупки с ним. Если же у тебя в инжекте настроен бай-лист - то окно покупки не открывается, а сразу совершается покупка у того вендора, на которого ты указал прицелом. Команду же забиндить - две секунды. Хоть в инжекте, хоть в самом клиенте. Разрешена ли к использованию игроками эта команда на ДРВ - не знаю, я там не играю.BoBBaH wrote:ну блин во первых шард дрв во вторых не нужна мне эта команда мне отдельный скрипт нужен на рынках их 3 на дрв столько вендоров что при написании просто купить может самый дальний вендор откликнуца! в скрипте данном выше я не врубаю толк его работы он то срабатывает то нет
Code: Select all
sub say()
var name=uo.getname['aim']
if name<> "" then
uo.fontcollor('09eb')
uo.say('*' + name '*')
end sub
А ты никогда не пробовал полистать страничку Scripts? Хотя бы 1-2 листа... а потом уже постить.CONDOMchick wrote:кста маст чтобы я не вводил в поиске - пишет
no topics or posts mer searched in your criteria
На держи, всё как ты написал, запускаешь скрипт таргетом на вендора и всё!sub marketbuy()
VAR vend, ven='vendor'
UO.Exec('addobject vend')
while uo.Targeting()
wait(200)
wend
UO.Click('vend')
ven=UO.GetName('vend')
UO.Say(ven + ' buy')
end sub
Code: Select all
sub marketbuy()
VAR vend, ven='vendor'
UO.Exec('addobject vend')
while uo.Targeting()
wait(200)
wend
UO.Click('vend')
wait(500)
ven=UO.GetName('vend')
UO.Say(ven + ' buy')
end sub