Yoko

All sides of Injection
It is currently 2025-12-30 01:38:40

All times are UTC+02:00




Post new topic  Reply to topic  [ 3 posts ] 
Author Message
PostPosted: 2010-09-18 01:11:15 
Offline

Joined: 2010-03-25 19:09:47
Posts: 2
Хотел к БС скрипту добавить плавку даггеров, но на моем сервере она сделана донельзя глупо, и с моими познаниями в скриптинге сделать не получается. Если поможете, буду очень благодарен. В общем, первый раз играю на шарде где переплавка сделана таким образом. У нас все не как у людей - дабл клик на форжу и таргет на предмет. У нас надо открыть БС меню и там выбрать "Re-smelt", потом УО выдаст мессагу "Target an item to recycle" и таргет. Меню открывается БС хаммером на инготы. Я сделал кривой скрипт, в общем вот он:


Code:
Sub Smelt_Daggers()
VAR bshammer='0x13E3'
VAR daggers='0x0F52'
VAR ingots='0x1BEF'
   While UO.Count(daggers) > 0
     UO.MoveOff()
     Wait(30)
      UO.RClick(146,82)
        UO.WaitMenu('Blacksmith menu','Re-smelt')
        UO.WaitTargetType(ingots)
     UO.UseType(bshammer)
     Wait(100)
     UO.WaitTargetType(daggers)
     Wait(1000)
   Wend
  UO.MoveOn()
EndSub


Проблема в том, что т.к. там две ловушки макрос через раз переплавляет, а потом пытается починить даггеры молотком не открывая меню. А если начинает подлагивать, то вообще перестает плавить... На этот сайт сто лет не заходил, команды инжи знаю плохо, думал в "Help" посмотрю, может без двух ловушек можно обойтись, но ссылка "Help" теперь никаких команд не показывает...
Поправьте пожалуйста, а то я уже и не знаю где спрашивать. Искал похожие скрипты больше часа, ничего не нашел :(


Top
   
PostPosted: 2010-09-20 19:09:51 
Offline
Expert!
User avatar

Joined: 2004-04-04 11:13:54
Posts: 1205
Location: Балаково, Саратовская обл.
Задержку подобрать или использовать какой нить признак переплавки даггера.
Code:
Sub Smelt_Daggers()
   VAR bshammer='0x13E3'
   VAR daggers='_0x0F52', dagger='0x0F52'
   VAR ingots='_0x1BEF'

   UO.AutoMenu('Blacksmith menu','Re-smelt')
   While UO.Count(dagger)
     UO.WaitTargetObject(ingots,daggers)
     UO.UseType(bshammer)
     Wait(1000)
   Wend
   UO.CancelMenu
EndSub


Top
   
PostPosted: 2010-09-20 19:58:41 
Offline

Joined: 2010-03-25 19:09:47
Posts: 2
Спасибо огромное, Savage.
Теперь все заработало!


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 3 posts ] 

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 8 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Limited