|
 | |  |
|
Скрипт на Blacksmithing - Цветные Gold дагеры
sub Blacksmithing()
var Exit=0, LastTimer
UO.CancelMenu()
UO.AutoMenu("Blacksmithing", "Colored Armor & Weapons")
UO.AutoMenu("Colored Armor & Weapons", "Gold Weapons")
UO.AutoMenu("Gold Weapons", "Gold Swords & Blades")
UO.AutoMenu("Gold Swords & Blades", "Golden Dagger")
while Exit<>1
uo.DeleteJournal()
LastTimer=uo.Timer()
#uo.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords','dagger')
uo.UseType('0x1BE9')
while not uo.InJournal('You put') and not uo.InJournal('You have failed')
wait(500)
wend
if uo.InJournal('You have failed') then
repeat
wait(100)
until uo.Timer()>=LastTimer+100
end if
repeat
UO.FindType('0x0F51',-1,'backpack')
If UO.GetQuantity('finditem') then
UO.WaitTargetObject('finditem')
UO.UseObject(0x403AB6AC) ; Oi??
wait(1250)
Endif
uo.FindType('0x1BE9',-1,'backpack')
if uo.GetQuantity('finditem')< 10 then
uo.FindType('0x1BE9','0x0000','0x40445312') ;Cундук с ингами
wait(2000)
uo.Grab('100','finditem')
wait(200)
Endif
wait(1500)
wend
end sub
|
| Категория: Мои статьи | Добавил: -=DavidJones=- (14.11.2008)
|
| Просмотров: 627 | Комментарии: 1
| Рейтинг: 0.0/0 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ] | |
|
| Статистика |
Онлайн всего: 1 Гостей: 1 Пользователей: 0 |
|
