Сорри...

[Bob Marley]

Ребяты я конешно понимаю что вас настое...ло писать олно и тоже...но пожалуйста ! Напишите реально рабочий макрос на Блексмити...Вот параметры
Айди сундука 0x40BA2131 Цвет сундука 0x0000 Name=a metal chest
ИРон 0x1BF2 цвет 0
Мне нужно не много от макроса...Что б ковал , складывал полученое (Кутлусы) в сумку(или сундук) и брал инги (по 384 шт) и ковал дальше.
Плзз ребят помогите...Я вас оч прошу !

[666Man666]

Пробуй...

Code: Select all

Sub BS() ; Ковка
var Chest='0x40BA2131' ; ID сундука
var item='0x0F5C' ; type вещи что будем кувать (щас стоит Мэйс)
var Ingots='0x1BF2' ; type айрона
###################################
### Указываем Блексмичь молоток ###
###################################
If NOT UO.GetGlobal('BCfirst')=='yes' Then
UO.print("SELECT YOU Smith's Hammer")
UO.exec('addobject Hammer')
while UO.targeting()
wait(300)
wend
UO.SetGlobal('BCfirst','yes')
EndIf
##################
### Куём мэйсы ###
##################
REPEAT
If UO.Count(Ingots) Then
While UO.Count(Ingots) > 5 and NOT UO.Dead()
Wait(500)
UO.DeleteJournal()
UO.WaitMenu ('Blacksmithing','Weapons','Weapons','Maces & Hammers','Maces & Hammers','mace')
UO.WaitTargetType(Ingots)
UO.UseObject('Hammer')
REPEAT
wait(300)
Until UO.InJournal('You put') or UO.InJournal('fail') or UO.Dead()
Wend
EndIf
#####################################
### Выкладываем мэйсы в контейнер ###
#####################################
UO.SetReceivingContainer(Chest)
While UO.Count(item) > 0 and NOT UO.Dead()
UO.FindType(item,'-1','backpack')
If UO.GetQuantity('finditem') Then
UO.Grab('1','finditem')
Wait(3000)
Endif
Wend
####################
### Берём инготы ###
####################
UO.UnSetReceivingContainer()
UO.UseObject(Chest)
Wait(5000)
UO.FindType(Ingots,'-1',Chest)
If UO.FindCount() > 0 Then
UO.Grab('384','finditem')
Wait(3000)
Endif
Wait(1000)
UO.TextOpen()
UO.TextPrint('Ваш скилл БС: '+STR(UO.SkillVal('Blacksmithing',1)/10))
Until UO.Count(Ingots)<=5 or UO.Dead()
end sub