BS+SpiritSpeak
Posted: 2005-03-09 13:42:59
Есть ли токое чудо?
KpZ wrote:Есть ли токое чудо?
Берёшь рядовой скрипт на БС и втыкаешь туда спирит спик !!!
Проблем то ?
Page 1 of 1
Re: BS+SpiritSpeak
Posted: 2005-03-09 14:01:01
Берёшь рядовой скрипт на БС и втыкаешь туда спирит спик !!!
Проблем то ?
Re: BS+SpiritSpeak
Posted: 2005-03-09 14:17:50
Askaneli wrote:Берёшь рядовой скрипт на БС и втыкаешь туда спирит спик !!!
Проблем то ?
Это Чудо
Re: BS+SpiritSpeak
Posted: 2005-03-09 14:51:34
Askaneli wrote:KpZ wrote:Есть ли токое чудо?
Берёшь рядовой скрипт на БС и втыкаешь туда спирит спик !!!
Проблем то ?
Штоб я знал куды ево воткнуть
Re: BS+SpiritSpeak
Posted: 2005-03-09 15:24:19
KpZ wrote:Askaneli wrote:KpZ wrote:Есть ли токое чудо?
Берёшь рядовой скрипт на БС и втыкаешь туда спирит спик !!!
Проблем то ?
Штоб я знал куды ево воткнуть
Давай сюды свой скрипт на БС который ты юзаешь !!!
Posted: 2005-03-09 15:31:21
при подгрузкой металлом например... 
ЗЫ ещё б мы знали в который его воткнуть
ЗЫ ещё б мы знали в который его воткнуть
Posted: 2005-03-09 15:34:57
Sfagnum wrote:при подгрузкой металлом например...
ЗЫ ещё б мы знали в который его воткнуть
О !!! Интересно стало ?
Re: BS+SpiritSpeak
Posted: 2005-03-09 15:49:59
Askaneli wrote:KpZ wrote:Askaneli wrote:KpZ wrote:Есть ли токое чудо?
Берёшь рядовой скрипт на БС и втыкаешь туда спирит спик !!!
Проблем то ?
Штоб я знал куды ево воткнуть
Давай сюды свой скрипт на БС который ты юзаешь !!!
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
Posted: 2005-03-10 21:01:49
Askaneli help 
Re: BS+SpiritSpeak
Posted: 2005-03-10 21:53:06
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
Posted: 2005-03-11 12:10:43
Askaneli senx 
Posted: 2005-03-11 12:39:52
KpZ wrote:Askaneli senx
Время через каторое будет юзатся спирит спик регулируется количеством ингов которое брать из сундука. Сча 300 стоит.