Code: Select all
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" теперь никаких команд не показывает...
Поправьте пожалуйста, а то я уже и не знаю где спрашивать. Искал похожие скрипты больше часа, ничего не нашел
