Blacksmithy

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
HellFire
Posts: 89
Joined: 2004-10-02 23:47:48

Blacksmithy

Post by HellFire »

Народ буду очень благодарен,если кто-нибудь выложит скрипт на БС для ДРВ что бы делал даггеры из цветной руды,а потом эти же даггеры переплавлял обратно в руду и опять ковал..и так далее...
Искал в поиске но не нашел ничего подходяшего
Top
kuviCk
Posts: 127
Joined: 2004-09-08 13:09:13
Contact:
Contact kuviCk

Re: Blacksmithy

Post by kuviCk »

HellFire wrote:Народ буду очень благодарен,если кто-нибудь выложит скрипт на БС для ДРВ что бы делал даггеры из цветной руды,а потом эти же даггеры переплавлял обратно в руду и опять ковал..и так далее...
Искал в поиске но не нашел ничего подходяшего
Лови мэн!!

Code: Select all

sub Blacksmithing() 
var Exit=0, LastTimer, Container='0x400019D8', Forge='0x40001072' ;Cундук в котором инги и форж.
var CountIng=100 ;Скока ингов поднимает чар 
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]="'" 
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(3000) 
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(Container) 
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') 
end sub
Top
HellFire
Posts: 89
Joined: 2004-10-02 23:47:48

Post by HellFire »

senk man :lol: :wink:
Top
HellFire
Posts: 89
Joined: 2004-10-02 23:47:48

Re: Blacksmithy

Post by HellFire »

Cooler! wrote:
HellFire wrote:Народ буду очень благодарен,если кто-нибудь выложит скрипт на БС для ДРВ что бы делал даггеры из цветной руды,а потом эти же даггеры переплавлял обратно в руду и опять ковал..и так далее...
Искал в поиске но не нашел ничего подходяшего
Лови мэн!!

Code: Select all

sub Blacksmithing() 
var Exit=0, LastTimer, Container='0x400019D8', Forge='0x40001072' ;Cундук в котором инги и форж.
var CountIng=100 ;Скока ингов поднимает чар 
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]="'" 
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(3000) 
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(Container) 
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') 
end sub
млин не работает...пишет Unhandled exception in parser
может я че нитак сделал?! плз попробуй ты настрой к примеру скрипт чтобы кувал из расти
Top
HellFire
Posts: 89
Joined: 2004-10-02 23:47:48

Post by HellFire »

эмммм...ту проблемма)))он из купера простого кувать не хочет...пробовал сделать чтобы кувал,но он руду находит ,сам не кует(((помогите плз настроить чтобы еше из купера и силвера кувал :cry:
Top
drcrazy
Junior Expert
Posts: 92
Joined: 2004-10-12 00:48:57
Location: Шард МЕ2

Post by drcrazy »

ДОбавь цвета купера и сильвеора в массив, не забудь тока увеличить его размер
The pleasure of satisfying a savage instinct, undomesticated by the ego, is incomparably much more intense then the one of satisfying a tamed instinct. S.Freud.
Top
Sfagnum
Expert!
Posts: 1284
Joined: 2004-07-04 00:14:58
Contact:
Contact Sfagnum

Post by Sfagnum »

drcrazy wrote:ДОбавь цвета купера и сильвеора в массив, не забудь тока увеличить его размер
на DRW у них другой тип ингов, а цвет 0х0000 ;)
Top
drcrazy
Junior Expert
Posts: 92
Joined: 2004-10-12 00:48:57
Location: Шард МЕ2

Post by drcrazy »

Фига се приколы..

Ну тогда надо второй for делать, по типам уже..
The pleasure of satisfying a savage instinct, undomesticated by the ego, is incomparably much more intense then the one of satisfying a tamed instinct. S.Freud.
Top
Sfagnum
Expert!
Posts: 1284
Joined: 2004-07-04 00:14:58
Contact:
Contact Sfagnum

Post by Sfagnum »

drcrazy wrote:Фига се приколы..

Ну тогда надо второй for делать, по типам уже..
просто 2 массива, с типами и цветом, и усё...
но делать - влом :)
Top
HellFire
Posts: 89
Joined: 2004-10-02 23:47:48

Post by HellFire »

Sfagnum wrote:
drcrazy wrote:Фига се приколы..

Ну тогда надо второй for делать, по типам уже..
просто 2 массива, с типами и цветом, и усё...
но делать - влом :)
я уже сделал)
Top
Sfagnum
Expert!
Posts: 1284
Joined: 2004-07-04 00:14:58
Contact:
Contact Sfagnum

Post by Sfagnum »

HellFire wrote:
Sfagnum wrote:просто 2 массива, с типами и цветом, и усё...
но делать - влом :)
я уже сделал)
ну и положил бы с меткой "только для DRW"
Top
Woohoo
Posts: 21
Joined: 2004-11-10 21:09:58
Location: DRW
Contact:
Contact Woohoo

Post by Woohoo »

Помогите, я так и не понял что подправить, напишите плиз хотябы примерно что писать, без самих типов, типы я вставлю.
Top
Talez
Posts: 30
Joined: 2005-02-25 20:42:05

Post by Talez »

А у меня почему-то не пашет...Я пытаюсь делать из айрона, он его берёт, почему-то выскакивает меню, если в нём выбрать, он куёт, а потом опять меню....(((
Top
Talez
Posts: 30
Joined: 2005-02-25 20:42:05

Post by Talez »

Извеняюсь...Сам дурак))))
Top
Talez
Posts: 30
Joined: 2005-02-25 20:42:05

Post by Talez »

Всё-таки одна проблемка возникла.Скрипт вылетает, когда в быкпаке остаётся 2 или 1 инг...
Top
Post Reply

Return to “Scripting Ore”