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

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

Меню сайта

Ultima Online

Ultima Online DRW

.::Games::.

EVE Online

Мини-чат

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

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

sub Blacksmithing() var Exit=0, LastTimer UO.CancelMenu() UO.AutoMenu("Blacksmithing", "Colored Armor & Weapons") UO.AutoMenu("Colored Armor & Weapons", "Rose Weapons") UO.AutoMenu("Rose Weapons", "Rose Swords & Blades") UO.AutoMenu("Rose Swords & Blades", "Rose Dagger") while Exit<>1 uo.DeleteJournal() LastTimer=uo.Timer() #uo.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords','dagger') 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 end if repeat UO.FindType('0x0F51',-1,'backpack') If UO.GetQuantity('finditem') then UO.WaitTargetObject('finditem') UO.UseObject(0x402C8E00) ; Oi?? wait(1250) Endif uo.FindType('0x1BEF',-1,'backpack') if uo.GetQuantity('finditem')<10 then uo.FindType('0x1BEF','0x0014','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)
Просмотров: 601 \| Комментарии: 1 \| Рейтинг: 0.0/0

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

Статистика

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

Гостей: 1

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

Наш опрос