| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
Askaneli
Модератор
Награды: 6 [детали]
Благодарностей: 52
Зарегистрирован: 29.01.2007
Сообщения: 5627
Откуда: Уфимский схрон
|
 Добавлено: 05.05.2008 09:57 Заголовок сообщения: [script] Прокачка Blacksmithing |
 |
|
БС в общем. По логике начинает ковать с айрона и тд все металлы пока в сундуке не кончатся металлы на крафт. Вот блин така штука.
| Код: |
Var Forge='0x401FD813' ;Это форжа
Var Sunduk='0x400AEE18' ;Это сундук где инги
Var TItem='0x1404' ;Это тип итема который крафтаем, War Fork в данном случае
sub MenuIron()
uo.cancelmenu()
uo.automenu('Blacksmithing','Weapons')
uo.automenu('Weapons','Spears & Forks')
uo.automenu('Spears & Forks','war fork (8 iron ingot)')
end sub
sub MenuColor()
uo.cancelmenu()
uo.automenu('Blacksmithing','Colored Armor & Weapons')
uo.automenu('Colored Armor & Weapons','Weapons')
uo.automenu('Weapons','Spears & Forks')
uo.automenu('Spears & Forks','War Fork')
end sub
sub BlacksmithyWarFork()
VAR i=1
Dim TIngot[18] ; Типы ингов
For i=1 To 18
TIngot[i]='0x1BEF' ;Большинство ингов этого типа
next
i=1
TIngot[5]='0x1BE3' ;Copper
TIngot[7]='0x1BE5' ;Silver
TIngot[9]='0x1BE9' ;Shadow
Dim CIngot[18] ; Цвета ингов
CIngot[1]='0x0000' ;Iron
CIngot[2]='0x0750' ;Rusty
CIngot[3]='0x0590' ;Old Copper
CIngot[4]='0x060A' ;Dull Copper
CIngot[5]='0x0000' ;Copper
CIngot[6]='0x0488' ;Bronze
CIngot[7]='0x0000' ;Silver
CIngot[8]='0x0000' ;Gold
CIngot[9]='0x096B' ;Shadow
CIngot[10]='0x0014' ;Rose
CIngot[11]='0x0193' ;Agapite
CIngot[12]='0x04C2' ;Blood Rock
CIngot[13]='0x07D5' ;Verite
CIngot[14]='0x00CE' ;Valorite
CIngot[15]='0x052D' ;Mytheril
CIngot[16]='0x0455' ;Black Rock
CIngot[17]='0x0028' ;Obsidian
CIngot[18]='0x08AF' ;Plutonium
MenuIron()
uo.useobject(Sunduk)
wait(200)
While 1==1
ff:
UO.FindType(TIngot[i],CIngot[i],'backpack')
Wait(200)
If UO.Count(TIngot[i],CIngot[i])<8 Then
If UO.Count(TIngot[i],CIngot[i])>0 Then
UO.SetReceivingContainer(Sunduk)
cheklag()
UO.Grab('0','finditem')
wait(1000)
UO.UnSetReceivingContainer()
end if
UO.FindType(TIngot[i],CIngot[i],Sunduk)
Wait(200)
If UO.GetQuantity('finditem')>=8 Then
cheklag()
UO.Grab('100','finditem')
Wait(1000)
else
i=i+1
If i>18 Then
uo.closeuo()
end if
MenuColor()
goto ff
end if
end if
cheklag()
UO.DeleteJournal()
UO.UseType(TIngot[i],CIngot[i])
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
wait(50)
wend
UO.FindType(TItem,-1,'backpack')
wait(10)
If UO.GetQuantity('finditem')>0 then
UO.WaitTargetObject('finditem')
UO.UseObject(Forge)
Wait(1000)
Endif
wend
end sub
sub cheklag()
uo.deletejournal()
uo.click('backpack')
Repeat
wait(100)
Until UO.InJournal("backpack")
end sub
|
_________________
"Весь мир в предвкушении очередного апокалипсиса, у нас в стране он судя по всему уже прошёл..." Askaneli.
Последний раз редактировалось: Askaneli (28.07.2008 15:28), всего редактировалось 1 раз
|
|
| Вернуться к началу |
|
 |
Gynny
Хоббит
Награды: 4 [детали]
Благодарностей: 41
Зарегистрирован: 07.02.2007
Сообщения: 4387
Откуда: Москва
|
| Добавлено: 12.07.2008 00:12 Заголовок сообщения: |
|
|
Эм... Попытался переделать скрипт, чтоб даггеры ковал - но что-та не работает (заменил переменные форжи, сундука и итема; переписал автоменю)... Какой надо запускать саб? БлексмитиВарФорк? Вылетает ульта. Саб МенюИрон - не работает (жамкаю на инг - он кует что надо).
Что делать? помогите...
_________________
|
|
| Вернуться к началу |
|
|
Askaneli
Модератор
Награды: 6 [детали]
Благодарностей: 52
Зарегистрирован: 29.01.2007
Сообщения: 5627
Откуда: Уфимский схрон
|
| Добавлено: 14.07.2008 12:37 Заголовок сообщения: |
|
|
BlacksmithyWarFork() нуна пускать
так как тама в теле пускается процедурка MenuIron() , то будет ковать из айрона сперва, если айрона нет то пытается запустить производство из цветных металлов, если их количества недостаточно то зарывет УО.
While 1==1 бесконецный цикл
UO.FindType(TIngot[i],CIngot[i],'backpack') - ищет тип в вещьмешке,
If UO.Count(TIngot[i],CIngot[i])<8 Then - если меньше нормы то пытается добирать из сундука этот тип
если типа недостаточно в сундуке то пытается добрать следущий по массиву
i=i+1
запустив при этом процедуру ковки из цветмета MenuColor()
Если ничего из материалов нету то финита ля комеди uo.closeuo()
_________________
"Весь мир в предвкушении очередного апокалипсиса, у нас в стране он судя по всему уже прошёл..." Askaneli.
|
|
| Вернуться к началу |
|
|
Gynny
Хоббит
Награды: 4 [детали]
Благодарностей: 41
Зарегистрирован: 07.02.2007
Сообщения: 4387
Откуда: Москва
|
| Добавлено: 22.07.2008 00:13 Заголовок сообщения: |
|
|
В ящике лежит ирон - но скрипт его не берет почему-то... Переложил в пак - все равно не кует  (предварительно закомментил "Уо.клоуз"). Автоменю работает, сковал вручную даггер - скрипт его самостоятельно расплавил. И снова стоит...
_________________
|
|
| Вернуться к началу |
|
|
Askaneli
Модератор
Награды: 6 [детали]
Благодарностей: 52
Зарегистрирован: 29.01.2007
Сообщения: 5627
Откуда: Уфимский схрон
|
| Добавлено: 22.07.2008 07:24 Заголовок сообщения: |
|
|
Ну что мона сказать, сматри настройки внимательно.
Var Sunduk='0x400AEE18' ;Это сундук где инги
UO.FindType(TIngot[i],CIngot[i],Sunduk)
Берёт значитсо из контейнера Sunduk
cheklag()
##UO.DeleteJournal() Это тут в принципе нафих не нужно кста )))
UO.UseType(TIngot[i],CIngot[i])
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
wait(50)
wend
а этим махоньким куском куёт, а ты получается когда потом тычешь по ингам всё куётся норм ?
Неужели механика игры поменялась где то ?
_________________
"Весь мир в предвкушении очередного апокалипсиса, у нас в стране он судя по всему уже прошёл..." Askaneli.
|
|
| Вернуться к началу |
|
|
Gynny
Хоббит
Награды: 4 [детали]
Благодарностей: 41
Зарегистрирован: 07.02.2007
Сообщения: 4387
Откуда: Москва
|
| Добавлено: 24.07.2008 22:24 Заголовок сообщения: |
|
|
| Askaneli писал(а): | Ну что мона сказать, сматри настройки внимательно.
а ты получается когда потом тычешь по ингам всё куётся норм ?
Неужели механика игры поменялась где то ? |
Если жамкать по ингам - кует...
З.ы. Я уже стрельнул у Порвана рабочий скрипт )
_________________
|
|
| Вернуться к началу |
|
|
Stan
Друг
Награды: 1 [детали]
Благодарностей: 8
Зарегистрирован: 25.09.2007
Сообщения: 319
|
| Добавлено: 25.07.2008 00:15 Заголовок сообщения: |
|
|
| Askaneli писал(а): |
Неужели механика игры поменялась где то ? |
вроде нет, я ещё на ёко этот скрипт находил давным давно, он и тогда так же работал...
|
|
| Вернуться к началу |
|
|
Askaneli
Модератор
Награды: 6 [детали]
Благодарностей: 52
Зарегистрирован: 29.01.2007
Сообщения: 5627
Откуда: Уфимский схрон
|
| Добавлено: 25.07.2008 07:50 Заголовок сообщения: |
|
|
Ок. Скрипт не рабочий. Нужно проверять в игре в чём причина.
_________________
"Весь мир в предвкушении очередного апокалипсиса, у нас в стране он судя по всему уже прошёл..." Askaneli.
|
|
| Вернуться к началу |
|
|
Ofelia
Мастер флуда
Награды: 2 [детали]
Благодарностей: 1
Зарегистрирован: 28.01.2007
Сообщения: 2515
|
| Добавлено: 25.07.2008 14:28 Заголовок сообщения: |
|
|
Я, конечно, инжу вообще нифига не помню, но...
Аски, вот после этого момента
| Код: | VAR i=1
Dim TIngot[18] ; Типы ингов
For i=1 To 18
TIngot[i]='0x1BEF' ;Большинство ингов этого типа
next |
i разве не 18 будет равен?  Скрипт и пытается делать плутониевые даггеры...
Джинни, попробуй перед
поставить
|
|
| Вернуться к началу |
|
|
Gynny
Хоббит
Награды: 4 [детали]
Благодарностей: 41
Зарегистрирован: 07.02.2007
Сообщения: 4387
Откуда: Москва
|
| Добавлено: 25.07.2008 19:38 Заголовок сообщения: |
|
|
 Заработало! 
_________________
|
|
| Вернуться к началу |
|
|
Askaneli
Модератор
Награды: 6 [детали]
Благодарностей: 52
Зарегистрирован: 29.01.2007
Сообщения: 5627
Откуда: Уфимский схрон
|
| Добавлено: 28.07.2008 15:27 Заголовок сообщения: |
|
|
Офеле 5+
Код исправил.
_________________
"Весь мир в предвкушении очередного апокалипсиса, у нас в стране он судя по всему уже прошёл..." Askaneli.
|
|
| Вернуться к началу |
|
|
Askaneli
Модератор
Награды: 6 [детали]
Благодарностей: 52
Зарегистрирован: 29.01.2007
Сообщения: 5627
Откуда: Уфимский схрон
|
| Добавлено: 29.07.2008 07:47 Заголовок сообщения: |
|
|
Помню первые дни игры в УО на ДРВ, один, нихира не шарю, бегал из брита от кузни на севере к горам тама и старался набрать Rose руды на фул себе чтоб в нём бегать и меня бы не убивали типа.
Потом добрый человек убил, реснул и подсказал что есть такая хрень как рунбука, а я то пытался этот КАЛ ОР ПОРТ руками вбивать и ессна нихрена ничего не получалось
Потом начал бегать не к скалам, а по кочкам на одной малонаселённой территории 
Ну и постепенно начал вникать уже во всё и набирать знакомых и как то увидел на форуме ДРВ скрипт от Савага на инже...
_________________
"Весь мир в предвкушении очередного апокалипсиса, у нас в стране он судя по всему уже прошёл..." Askaneli.
|
|
| Вернуться к началу |
|
|
Stan
Друг
Награды: 1 [детали]
Благодарностей: 8
Зарегистрирован: 25.09.2007
Сообщения: 319
|
| Добавлено: 05.08.2008 08:27 Заголовок сообщения: |
|
|
| и понеслась...
|
|
| Вернуться к началу |
|
|
v1per
Общительный гость
Благодарностей: 0
Зарегистрирован: 14.11.2008
Сообщения: 8
Откуда: Ukraine, Sumy
|
| Добавлено: 14.11.2008 10:00 Заголовок сообщения: |
|
|
| извените, но скрипт не работает совсем, запускаю, сначала не неходит автоменю, потом находит и останавливается
|
|
| Вернуться к началу |
|
|
Askaneli
Модератор
Награды: 6 [детали]
Благодарностей: 52
Зарегистрирован: 29.01.2007
Сообщения: 5627
Откуда: Уфимский схрон
|
| Добавлено: 14.11.2008 11:48 Заголовок сообщения: |
|
|
А версия инжи какая ?
_________________
"Весь мир в предвкушении очередного апокалипсиса, у нас в стране он судя по всему уже прошёл..." Askaneli.
|
|
| Вернуться к началу |
|
|
|
