Прошу дать скрипт на БС.

OHO · Post by **OHO** » 2005-02-13 00:14:28

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

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

OHO · Post by **OHO** » 2005-02-13 01:53:18

Собсна сабж

Goggy · Post by **Goggy** » 2005-02-13 06:44:18

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

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

JIupus · Post by **JIupus** » 2005-02-13 08:59:28

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

OHO · Post by **OHO** » 2005-02-17 00:49:30

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

BETEPAH · Post by **BETEPAH** » 2005-02-17 10:42:43

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

OHO · Post by **OHO** » 2005-02-20 01:47:54

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

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

OHO · Post by **OHO** » 2005-02-20 14:00:52

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

OHO · Post by **OHO** » 2005-02-21 07:32:56

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

The Cheater · Post by **The Cheater** » 2005-02-21 13:28:16

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

Code: Select all

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')

Hyperion · Post by **Hyperion** » 2005-02-21 22:21:19

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

The Cheater · Post by **The Cheater** » 2005-02-21 22:34:47

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

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

Savage · Post by **Savage** » 2005-02-21 22:41:48

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

SAMURAI · Post by **SAMURAI** » 2005-02-21 22:55:20

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

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

Night Wolf · Post by **Night Wolf** » 2005-03-01 20:04:34

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

BlackKnight · Post by **BlackKnight** » 2005-03-05 20:03:09

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

BlackKnight · Post by **BlackKnight** » 2005-03-05 20:19:12

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

Night Wolf · Post by **Night Wolf** » 2005-03-27 18:22:42

BlackKnight wrote:Все уже нашел ненада

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