Получить триал аккаунт EverQuest 2 на 14 дней бесплатно
На сайте нет свежих новостей В Галерее нет новых фотографий Наш TeamSpeak сервер: ts.hussars-online.ru:8767 (пароль tmppass)
Список форумов Гусары-онлайн
Игровой форум Hussars-online
Присоединяйтесь к нашему сообществу! Мы ВКонтакте Мы в Facebook Мы в Twitter
Получить триал аккаунт EVE Online на 14 дней бесплатно
Перейти к разделу EVE Online на сайте Перейти к разделу EverQuest 2 на сайте Перейти к разделу Lord of the Rings Online на сайте Перейти на сайт Ultima Online гильдии [Hussars]
   RSS Feed: Игровой форум Hussars-online  (подробности)   Home * FAQ * Поиск * Пользователи * Группы * Награды * Регистрация * Профиль * Войти и проверить личные сообщения * Вход  
[script] Прокачка Bowcraft

 
Начать новую тему   Ответить на тему    Список форумов Гусары-онлайн -> UO Скрипты
Предыдущая тема :: Следующая тема  
Автор Сообщение
Askaneli
Модератор

avatar

Награды: 6 [детали]
''Почётный флудер'' I степени (Всего: 1) ''Флудер 2009'' (Всего: 1) ''Флудер 2010'' (Всего: 1)
''Хранитель форума 2011'' (Всего: 1) Редактор новостей (Всего: 1) Участник турнира (Всего: 1)
Благодарностей: 52

Зарегистрирован: 29.01.2007
Сообщения: 5627
Откуда: Уфимский схрон

СообщениеДобавлено: 05.05.2008 09:50    Заголовок сообщения: Ответить с цитатой

Ну и Боукрафт , до 50% качаем на шафтах, потом на торчках
в сундуке все логи какие не жалко.
Код:

VAR Sunduk='0x404A298D' ; ИД сундука где все логи
VAR TDagger='0x0F51' ; Тип даггера
VAR TLogs='0x1BDD' ; Тип логов
VAR TTorch='0x0F64' ; Тип торчей
VAR TShaft='0x1BD4' ; Тип шафтов

; В руке или паке даггер, в сундуке логи и запускаем !!!

sub BowCraft_shaft()
uo.useobject(Sunduk)
wait(200)
while 1==1
UO.FindType(TLogs,'0x0000','backpack')
While UO.GetQuantity('finditem')==0
UO.FindType(TLogs,'0x0000',Sunduk)
wait(200)
UO.Grab('1','finditem')
Wend
wait(200)
cheklag()

uo.WaittargetType(TLogs)
uo.Usetype(TDagger)
uo.WaitMenu('What do you want to carve the wood into?','shaft (1 log)')
wait (1000)
uo.DeleteJournal()
while not (uo.InJournal("You put") or uo.InJournal("You fail"))
wait(10)
wend

if uo.weight > 200 then
UO.SetReceivingContainer(Sunduk)
wait(200)
UO.FindType(TShaft)
if UO.GetQuantity('finditem')>0 then
UO.Grab('0','finditem')
wait(200)
end if
UO.UnSetReceivingContainer()
end if
wend
end sub

sub BowCraft_torch()
var teklog=1
dim ColLog[20]
ColLog[1]='0x047C' ; Oak Logs
ColLog[2]='0x0279' ; Red Tree Logs
ColLog[3]='0x096B' ; Dark Tree Logs
ColLog[4]='0x0237' ; Swamp Logs
ColLog[5]='0x0482' ; Silver Leaf Logs
ColLog[6]='0x010F' ; Keranit Logs
ColLog[7]='0x0014' ; Perit Logs
ColLog[8]='0x03C1' ; Petrified Logs
ColLog[9]='0x0085' ; Dragon Tree Logs
ColLog[10]='0x04C2' ; Vampire Tree Logs
ColLog[11]='0x0033' ; Eridan Logs
ColLog[12]='0x002B' ; Hellios Logs
ColLog[13]='0x0071' ; Illusions Tree Logs
ColLog[14]='0x09A4' ; Crystal Logs
ColLog[15]='0x0B82' ; Dead Tree Logs
ColLog[16]='0x00BE' ; Paradise Logs
ColLog[17]='0x0035' ; Titan Tree Logs
ColLog[18]='0x0BB6' ; Avalon Logs
ColLog[19]='0x0487' ; Elven Logs
ColLog[20]='0x0498' ; Asterxylon Logs
UO.Exec('terminate Reconnector')
wait(100)
UO.Exec('exec Reconnector')
uo.useobject(Sunduk)
wait(200)
while 1==1
UO.FindType(TLogs,ColLog[teklog],'backpack')
While UO.GetQuantity('finditem')==0
ff:
UO.FindType(TLogs,ColLog[teklog],Sunduk)
wait(50)
if uo.FindCount()==0 then

UO.SetReceivingContainer(Sunduk)
wait(100)
UO.FindType(TTorch)
wait(50)
if UO.GetQuantity('finditem')>0 then
UO.Grab('0','finditem')
wait(200)
end if
UO.UnSetReceivingContainer()

teklog=teklog+1
if teklog>20 then
return
endif
goto ff
end if
wait(100)
UO.Grab('1','finditem')
Wend
wait(200)
cheklag()

uo.WaittargetType(TLogs)
uo.Usetype(TDagger)
uo.WaitMenu('What do you want to carve the wood into?','Items','Items','torch')
wait (200)
uo.DeleteJournal()
while not (uo.InJournal("You put") or uo.InJournal("You fail"))
wait(10)
wend

if uo.weight > 100 then
UO.SetReceivingContainer(Sunduk)
wait(100)
UO.FindType(TTorch)
if UO.GetQuantity('finditem')>0 then
UO.Grab('0','finditem')
wait(200)
end if
UO.UnSetReceivingContainer()
end if
wend
end sub

sub cheklag()
uo.deletejournal()
uo.click('backpack')
Repeat
wait(100)
Until UO.InJournal("backpack")
end sub

sub Reconnector()
var ReconnectTime, RFlag
ReconnectTime = '0'
RFlag = 1
Repeat
While (UO.ObjAtLayer('Bpack') == '')
if RFlag Then
ReconnectTime = MakeTime()
RFlag = 0
endif
Wait(20000) # WorldSave Protection
UO.Say('')
Wait(3000)
UO.Say('')
Wait(3000)
UO.Say('')
Wait(3000)
UO.LDblClick(357,164)
UO.LClick(616,459)
Wait(3000)
WEnd
Wait(3000)
if (RFlag == 0) and (ReconnectTime <> '0') Then
UO.Exec('terminate BowCraft_torch')
wait(1000)
UO.Exec('exec BowCraft_torch')
UO.TextOpen()
UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
RFlag = 1
ReconnectTime = '0'
endif
Until false
end sub

sub MakeTime()
VAR D, T, Ret, i
Ret = STR(UO.Time())
T = ""
For i = 0 To Len(Ret)
T = Ret[Len(Ret)-i] + T
If (I == 2) OR (I == 4) Then
T = ":" + T
EndIf
Next
Ret = STR(UO.Date())
D = ""
For i = 0 To Len(Ret)
D = Ret[Len(Ret)-i] + D
If (I == 2) OR (I == 4) Then
D = "." + D
EndIf
Next
Ret = T + " @ " + D
RETURN Ret
end sub

_________________
"Весь мир в предвкушении очередного апокалипсиса, у нас в стране он судя по всему уже прошёл..." Askaneli.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Показать сообщения:   
.
Начать новую тему   Ответить на тему    Список форумов Гусары-онлайн -> UO Скрипты Часовой пояс: GMT + 4
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах
Vote on the EverQuest 2 Top 200 Рейтинг Ролевых Ресурсов Rambler's Top100 Copyright © 2007-2011 Hussars-online
Powered by phpBB © 2001, 2005 phpBB Group
Appalachia Theme © 2002 Droshi's Island