Yoko

Ну проблема собсна сот какая... :
Ниукого нету скрипта в котором чар ищет на полу инги (указать тип самому) берет штучек 200 и кладет их в бэкпэк потом ищет в бэкпэке броню (указать тип самому) которую сковал и кладет ее в определенныи сундук или сумку (указать тип самому)
Вот собсна и все по идее скрипт то не трудныи но так как я ноль в этом деле то прошу вас помоч
заранее благодарен

Правлено Ветром.Правлено название топа. To OHO: Описывай запрос точнее. Темы с названием ХЕЛП, или Дайте скрипт сносятся.И пользуемся поиском

Собсна сабж

А инги попадая к те в пак сами превращаются в броню????

Поподробней если можно...

это похоже из серии "Решил сварить суп, а нету соли, мяса, морковки...."
Ты бы прямо сказал, что тебе нужен скрипт на БС, поищи скрипты на крафты, в них обычно реализовано то, что тебе нужно

Да нет все намного проще...
У нас на шарде есть команда .ep_cl перевод типа повтор прошлых деиствии. Деиствует эта команда только для крафтов, суть в том что я делаю руками все один раз, а потом оно все само повторяется.
Так вот, я кую себе например щит потом включаю команду и чар автоматически у меня кует щиты, запускаю скрипт которыи ищет щиты в бэкпак и складывает их в сумку 1, потом ищет инги на полу и складывает их в бэкпак проверяя перед этим кол-во ингов находящихся в бэкпаке
пожалста напишите вроде не очень сложно выглядит...(но нужно ужас)

А что мешает сделать все это ручкками один раз а потом повторять без конечно.

_________________
Все просто.
BETEPAH ™

Мешает не имение скрипта
Не ты не понял, у меня повторяется только крафт какои-либо а скрипт по идее должен делать остальное

Ну помогите плииз

Ну плииз очень нужен скрипт помогиет ребят

sub Blacksmithing() 
var Exit=0, LastTimer, Container='0x400FC720', Forge='0x4013D787' ;ID ôîðæè è ñóíäóêà. 
var CountIng=300 ;Êîíòåéíåð ñ èíãàìè (ñêîëüêî áðàòü áóäåì) 
var MenuIron="'Blacksmithing' 'Weapons'" 
var MenuOther="'Colored' 'Weapons'" 
var MenuSwords="Weapons' 'Swords'" 
var MenuDagger="'Swords' '(3'" 
var i=0 

dim ColorOfIng[6] 
dim NameOre[6] 

NameOre[0]="'Iron" 
NameOre[1]="'Rusty " 
NameOre[2]="'Old Copper " 
NameOre[3]="'Dull Copper " 
NameOre[4]="'Bronze " 

ColorOfIng[0]='0x0000' ; Iron 
ColorOfIng[1]='0x0750' ; Rusty 
ColorOfIng[2]='0x0590' ; Old Copper 
ColorOfIng[3]='0x060A' ; Dull Copper 
ColorOfIng[4]='0x0488' ; Bronze 


uo.UseObject(Container) 
while not uo.Dead() 
for i=0 to 4 
uo.FindType('0x1BEF',ColorOfIng[i],Container) 
if uo.GetQuantity('finditem')>10 then 
uo.Grab(STR(CountIng),'finditem') 
wait(1000) 
              
uo.Exec('automenu '+MenuDagger) 
uo.Exec('automenu '+NameOre[i]+MenuSwords) 
if i>0 Then 
uo.Exec('automenu '+MenuOther) 
end if 
uo.Exec('automenu '+MenuIron) 
              
While Exit<>1 
uo.DeleteJournal() 
LastTimer=uo.Timer() 
                
uo.UseType(0x1BEF)  

while not uo.InJournal("You put") and not uo.InJournal("You have failed") 
wait(100) 
wend 

if uo.InJournal("You have failed") then 
repeat 
wait(100) 
until uo.Timer()>=LastTimer+100 ; Âðåìÿ ñîçäàíèÿ äàããåðà 
end if 
CheckLag() 

uo.FindType('0x0F51',-1,'backpack') 

if uo.GetQuantity('finditem') then 
uo.WaitTargetObject('finditem') 
uo.UseObject(Forge)  
wait(1000) 
end if 

uo.FindType('0x1BEF',-1,'backpack') 
if uo.GetQuantity('finditem')<10 then 
uo.FindType('0x1BEF',ColorOfIng[i],Container) 
if uo.GetQuantity('finditem')<10 then 
uo.FindType('0x1BEF',ColorOfIng[i],'backpack') 
uo.SetReceivingContainer(0x400FC720) 
uo.Grab('all','finditem') 
uo.UnSetReceivingContainer() 
Exit=1 
end if 
else 
wait(1000) 
uo.Grab(STR(CountIng-10),'finditem') 
end if 
wend 
Exit=0 
uo.CancelMenu() 
end if 
next 
wend    
end sub 

sub CheckLag() 
if uo.Waiting()>0 then 
uo.Exec("canceltarget") 
end if 
uo.DeleteJournal() 
uo.Click('backpack') 
repeat 
wait(50) 
until uo.InJournal('backpack')

_________________
у меня есть 400 мешочков в каждом по 255 никлейсов,один никлейс-32гп всё влом пойти загнать..

2 Читер... =)) и работает??? у меня зависает при выборе типа веапон"а

я незнаю я это взял с форума всеми известным способом автор не я...

_________________
у меня есть 400 мешочков в каждом по 255 никлейсов,один никлейс-32гп всё влом пойти загнать..

Автор я, работает на дрв на цветном металле на других шардах надо адаптировать. Писалось по просьбе знакомого. Поэтому там нет интерфейсных наворотов.

До некоторого времени БС на ДрВ качал на нём. Скрипт отличый так что спасибо автору

_________________
Нет ничего невозможного...
Кто ИЩЕТ, тот всегда найдёт...

sub UO() 
UO.Chto-To("S Chem-To") 
end sub

© I'm

а у мну почему-то не добирает инги в пак, когда все закончатся(((

А немогли бы дать такой же, но для изгатовления фуллов из цвет мета?

Все уже нашел ненада

можешь скинуть его в этот топ