Ребята помагите!
Moderators: Murderator+, Murderator
Ребята помагите!
Можите дать скрипт на прокачку БС на ДРВ все метали до Агапита ?
Внимание новая "Супер-Новая Акция"
Условия участия:
Победитель получает от меня пирожок
Как говориться можете приступать!
Условия участия:
- Поднять светлы очи.
- Посмотреть на кнопку поиск.
- Подумать.
- Еще раз подумать.
- Нажать на чудо-кнопку поиск.
- В строке поиска написать напирмер БС
- Нажать найти.
- На наиболее подходящий вариант отведа кинуть ссылку в этом топике
Победитель получает от меня пирожок

Как говориться можете приступать!
в серче набираем BS и что мы видем? откройте пошире глаза!
- я не вижу вокруг все както темно и непонятно =)
sub BlacksmithyIM()
var Exit=0, LastTimer
uo.Print('Выбери Сундук: ')
uo.Exec('addobject Chest')
while uo.Targeting()
wait(100)
wend
uo.Print('Выбери Помойку: ')
uo.Exec('addobject TrashCan')
while uo.Targeting()
wait(100)
wend
while Exit<>1
uo.DeleteJournal()
uo.FindType('0x0F51','0x0000','backpack')
if uo.GetQuantity('finditem')>0 then
uo.SetReceivingContainer('TrashCan')
wait(1000)
uo.Grab('all','finditem')
wait(1000)
uo.UnSetReceivingContainer()
end if
uo.FindType('0x1BEF ',-1,'backpack')
if uo.GetQuantity('finditem')<10 then
uo.FindType('0x1BEF ','0x0000','Chest')
wait(1000)
uo.Grab('300','finditem')
wait(1000)
end if
LastTimer=uo.Timer()
uo.DeleteJournal()
uo.WaitMenu ('Blacksmithing','Weapons','Weapons','Swords','Swords','dagger')
uo.UseType('0x13E3')
wait(12000)
wend
end sub

sub BlacksmithyIM()
var Exit=0, LastTimer
uo.Print('Выбери Сундук: ')
uo.Exec('addobject Chest')
while uo.Targeting()
wait(100)
wend
uo.Print('Выбери Помойку: ')
uo.Exec('addobject TrashCan')
while uo.Targeting()
wait(100)
wend
while Exit<>1
uo.DeleteJournal()
uo.FindType('0x0F51','0x0000','backpack')
if uo.GetQuantity('finditem')>0 then
uo.SetReceivingContainer('TrashCan')
wait(1000)
uo.Grab('all','finditem')
wait(1000)
uo.UnSetReceivingContainer()
end if
uo.FindType('0x1BEF ',-1,'backpack')
if uo.GetQuantity('finditem')<10 then
uo.FindType('0x1BEF ','0x0000','Chest')
wait(1000)
uo.Grab('300','finditem')
wait(1000)
end if
LastTimer=uo.Timer()
uo.DeleteJournal()
uo.WaitMenu ('Blacksmithing','Weapons','Weapons','Swords','Swords','dagger')
uo.UseType('0x13E3')
wait(12000)
wend
end sub
http://yoko.netroof.net/forum/viewtopic.php?t=2864 Поидеее этого достаточно...Question wrote:надо бы написать FAQ по пользованию серча =)



Нет ничего невозможного...
Кто ИЩЕТ, тот всегда найдёт...
© I'm
Кто ИЩЕТ, тот всегда найдёт...
Code: Select all
sub UO()
UO.Chto-To("S Chem-To")
end sub
© I'm
SAMURAI wrote:http://yoko.netroof.net/forum/viewtopic.php?t=2864 Поидеее этого достаточно...Question wrote:надо бы написать FAQ по пользованию серча =)![]()
![]()
судя по топам нет =)))))))))))))))))00
ИХМО Толку от того что ты ФАЮ напишешь будет столькоже... Всех ломает его читать, ведь проще создать тему и клянчить, чем 5-10 минут поискать...



Нет ничего невозможного...
Кто ИЩЕТ, тот всегда найдёт...
© I'm
Кто ИЩЕТ, тот всегда найдёт...
Code: Select all
sub UO()
UO.Chto-To("S Chem-To")
end sub
© I'm
В том то и дело что нет, просто либо лень потому, что знают что всёравно дадут либо руки кривые и растут неоттуда...Question wrote:тока что друг в асе попросил найти кукинг со спиритом нашел за 10секунд разве это так сложно скажите ???

Нет ничего невозможного...
Кто ИЩЕТ, тот всегда найдёт...
© I'm
Кто ИЩЕТ, тот всегда найдёт...
Code: Select all
sub UO()
UO.Chto-To("S Chem-To")
end sub
© I'm