BS+SpiritSpeak

[KpZ]

Есть ли токое чудо?

[Askaneli]

Есть ли токое чудо?

Берёшь рядовой скрипт на БС и втыкаешь туда спирит спик !!!
Проблем то ?

[I'm]

Берёшь рядовой скрипт на БС и втыкаешь туда спирит спик !!!
Проблем то ?

Это Чудо

[KpZ]

Есть ли токое чудо?

Берёшь рядовой скрипт на БС и втыкаешь туда спирит спик !!!
Проблем то ?

Штоб я знал куды ево воткнуть

[Askaneli]

Есть ли токое чудо?

Берёшь рядовой скрипт на БС и втыкаешь туда спирит спик !!!
Проблем то ?

Штоб я знал куды ево воткнуть

Давай сюды свой скрипт на БС который ты юзаешь !!!

[Sfagnum]

при подгрузкой металлом например...

ЗЫ ещё б мы знали в который его воткнуть

[Askaneli]

при подгрузкой металлом например...

ЗЫ ещё б мы знали в который его воткнуть

О !!! Интересно стало ?

[KpZ]

Есть ли токое чудо?

Берёшь рядовой скрипт на БС и втыкаешь туда спирит спик !!!
Проблем то ?

Штоб я знал куды ево воткнуть

Давай сюды свой скрипт на БС который ты юзаешь !!!

sub BS()
VAR Exit=0, LastTimer
while Exit<>1
UO.FindType('0x1BEF','0x0000','backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x1BEF','0x0000','0x40283d2a') ;serial sunduka s iron
UO.Grab('300','finditem')
wait(300)
Endif
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords','dagger')
UO.UseType(0x1BEF) ; iron ings

while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
wait(500)
wend

If UO.InJournal("You have failed") then
repeat
wait(100)
until UO.Timer()>=LastTimer+100 ;time to make a dagger
EndIf

UO.FindType('0x0F51',-1,'backpack') ; dagger
wait(500)

If UO.GetQuantity('finditem') then
UO.WaitTargetObject('finditem')
UO.UseObject(0x4021fd21) ;forge
Endif
wait(1000)
wend
end sub

[KpZ]

Askaneli help

[Askaneli]

Code: Select all

sub BS() 
VAR Exit=0, LastTimer 
while Exit<>1 
UO.FindType('0x1BEF','0x0000','backpack') 
If UO.GetQuantity('finditem')<10 then 
UO.FindType('0x1BEF','0x0000','0x40283d2a') ;serial sunduka s iron 
UO.Grab('300','finditem') 
wait(300)

if uo.skillval("Spirit Speak",1)<1000 then
uo.print("Spirit Speak...") 
LastTimer=UO.Timer() 
uo.useskill ("Spirit Speak") 
uo.deletejournal() 
repeat 
wait(10) 
until UO.InJournal("You establish a connection to the netherworld.") or UO.InJournal("You fail your attempt at contacting the netherworld.") OR (UO.Timer()>LastTimer+200) 
end if
 
Endif 
UO.DeleteJournal() 
LastTimer=UO.Timer() 
UO.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords','dagger') 
UO.UseType(0x1BEF) ; iron ings 

while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed") 
wait(500) 
wend 

If UO.InJournal("You have failed") then 
repeat 
wait(100) 
until UO.Timer()>=LastTimer+100 ;time to make a dagger 
EndIf 

UO.FindType('0x0F51',-1,'backpack') ; dagger 
wait(500) 

If UO.GetQuantity('finditem') then 
UO.WaitTargetObject('finditem') 
UO.UseObject(0x4021fd21) ;forge 
Endif 
wait(1000) 
wend 
end sub

[KpZ]

Askaneli senx

[Askaneli]

Askaneli senx

Время через каторое будет юзатся спирит спик регулируется количеством ингов которое брать из сундука. Сча 300 стоит.