Скрипт

BoBBaH · Post by **BoBBaH** » 2006-06-09 17:20:08

Условие скрипта: я игрок дрв прихожу на маркет, где много вендоров, жму кнопку, появляется таржект: направляю на вендора нужного, и чар говорит ник чара и буй, просто набивать ник каждого влом, а вендоров многа нужный не откликается! помогите плиз.

Nmy · Post by **Nmy** » 2006-06-09 17:36:21

можно проще... когда осмотрел вендора- скажы bye (пока) и иди к следущему и говори buy

BoBBaH · Post by **BoBBaH** » 2006-06-09 18:14:27

ну я же сказал подходя к вендору у меня открываеца любой вендор в зоне досягаемости даже если я в упор к нужному стою!

Savage · Post by **Savage** » 2006-06-09 18:31:48

Есть такая бодяга, токо крашит с нее очень сильно, рекомендую после закупок перезаходить. Биндишь на любимую кнопку exec buyengine
1 раз нажал и запущено, стаскиваешь статус вендора потом следующего. Второй раз нажал - выключено.

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

P · Post by P » 2006-06-10 05:10:46

поюзай поиск лутче видел =)

kotvsapogah · Post by **kotvsapogah** » 2006-06-10 11:00:00

Попробуй, безотказно пашет

Code: Select all

Uo.msg('bye')
Uo.msg('bye')
Uo.msg('buy')

BoBBaH · Post by **BoBBaH** » 2006-06-10 18:08:42

вы не понимаете мне нужно именно так как я рассказал!

Edred · Post by **Edred** » 2006-06-10 19:33:50

Если на шарде есть команда .buy - пользуй ее, она именно так и работает.

BoBBaH · Post by **BoBBaH** » 2006-06-11 09:12:37

ну блин во первых шард дрв во вторых не нужна мне эта команда мне отдельный скрипт нужен на рынках их 3 на дрв столько вендоров что при написании просто купить может самый дальний вендор откликнуца! в скрипте данном выше я не врубаю толк его работы он то срабатывает то нет

Scripts Writer · Post by **Scripts Writer** » 2006-06-11 16:48:07

Помоему всё просто ...

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

Edred · Post by **Edred** » 2006-06-11 17:29:14

BoBBaH wrote:ну блин во первых шард дрв во вторых не нужна мне эта команда мне отдельный скрипт нужен на рынках их 3 на дрв столько вендоров что при написании просто купить может самый дальний вендор откликнуца! в скрипте данном выше я не врубаю толк его работы он то срабатывает то нет

Если не знаешь - команда сферы .buy генерит прицел, которым ты указываешь вендора и открывает окно покупки с ним. Если же у тебя в инжекте настроен бай-лист - то окно покупки не открывается, а сразу совершается покупка у того вендора, на которого ты указал прицелом. Команду же забиндить - две секунды. Хоть в инжекте, хоть в самом клиенте. Разрешена ли к использованию игроками эта команда на ДРВ - не знаю, я там не играю.

Ну не суть, если тебе больше нравится вместо бинда в одну команду юзать скрипт - флаг в руки, Мастдай тебе дал правильный скрипт.

CONDOMchick · Post by **CONDOMchick** » 2006-06-13 23:12:15

ыыы на богом забытом сайте нашо это -

Code: Select all

sub say()
 var name=uo.getname['aim']
  if name<> "" then
 uo.fontcollor('09eb')
 uo.say('*' + name '*')
end sub

шо це?

CONDOMchick · Post by **CONDOMchick** » 2006-06-13 23:13:43

кста маст чтобы я не вводил в поиске - пишет

no topics or posts mer searched in your criteria :roll:

Scripts Writer · Post by **Scripts Writer** » 2006-06-13 23:17:47

CONDOMchick wrote:кста маст чтобы я не вводил в поиске - пишет

no topics or posts mer searched in your criteria

А ты никогда не пробовал полистать страничку Scripts? Хотя бы 1-2 листа... а потом уже постить.

GooD · Post by **GooD** » 2006-06-14 00:29:37

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

На держи, всё как ты написал, запускаешь скрипт таргетом на вендора и всё!

BoBBaH · Post by **BoBBaH** » 2006-06-14 09:58:28

спасибо только вот поправь свой скрипт я хз где говорит имя вендора буй только после того как 2 раза нажав на этого вендора просто скажет буй

Askaneli · Post by **Askaneli** » 2006-06-14 10:11:34

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

TWI = On