| Статистика |
Онлайн всего: 1 Гостей: 1 Пользователей: 0 |
|
 | |  |
|
BS bronze
sub Train_bsBronze()
VAR Exit=0, LastTimer
while Exit<>1
UO.DeleteJournal()
LastTimer=UO.Timer()
uo.automenu ('Bronze Swords & Blades', 'Bronze Dagger')
uo.automenu ('Bronze Weapons', 'Bronze Swords & Blades')
uo.automenu ('Colored Armor & Weapons', 'Bronze Weapons')
uo.automenu('Blacksmithing', 'Weapons')
UO.UseType(0x1BEF) ;
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 ;
EndIf
UO.FindType('0x0F51',-1,'backpack') ;
wait(500)
If UO.GetQuantity('finditem') then
UO.WaitTargetObject('finditem')
UO.UseObject(0x4013B100) ; Форж
Endif
UO.FindType('0x1BEF',-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x1BEF',-1,'0x4028A93A') ; Cундук с ингами
wait(1000)
UO.Grab('800','finditem')
Endif
wait(1000)
wend
end sub
|
| Категория: Мои статьи | Добавил: Mudvayne (19.04.2008)
|
| Просмотров: 612
| Рейтинг: 0.0/0 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ] | |
|
|
