Скрипт на Blacksmithing - Цветные Silver дагеры - Мои статьи - Скрипты

Вторник, 24.06.2025, 19:37
[nIrVaNa]
Главная \| Регистрация \| Вход
Приветствую Вас Призывник \| RSS

Меню сайта

Ultima Online

Ultima Online DRW

.::Games::.

EVE Online

Мини-чат

Главная » Статьи » Мои статьи

Скрипт на Blacksmithing - Цветные Silver дагеры

sub Blacksmithing() var Exit=0, LastTimer UO.CancelMenu() UO.AutoMenu("Blacksmithing", "Colored Armor & Weapons") UO.AutoMenu("Colored Armor & Weapons", "Silver Weapons") UO.AutoMenu("Silver Weapons", "Silver Swords & Blades") UO.AutoMenu("Silver Swords & Blades", "Silver Dagger") while Exit<>1 uo.DeleteJournal() LastTimer=uo.Timer() #uo.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords','dagger') uo.UseType('0x1BF5') 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('0x1BF5','0x0000','0x40445312') ;Cундук с ингами wait(2000) uo.Grab('100','finditem') wait(200) Endif wait(1500) wend end sub
1 2 3 4 5 Категория: Мои статьи \| Добавил: -=DavidJones=- (14.11.2008)
Просмотров: 649 \| Комментарии: 1 \| Рейтинг: 0.0/0

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]

Статистика

Онлайн всего: 1

Гостей: 1

Пользователей: 0

Наш опрос