Page 1 of 1
помажите=)
Posted: 2006-04-05 15:54:22
by alex86alex
можно ли в этот скрипт вписать спирит спик??? плиз нарон помагите
[code]var Cont='0x4005FF4E' ##ID сундука с тканью, так же туда будут складыватся бинты
var Creat='0x1541' ##Тип того, что сшили
sub Tailoring()
#¤Leo¤#
while NOT UO.Dead()
ToHide()
UO.FindType('0x175D','0x0000','backpack')
if UO.GetQuantity('finditem')<4 then
UO.UseObject(Cont)
UO.FindType('0x0E21','0x0000','backpack')
if UO.GetQuantity('finditem')>0 then
UO.SetReceivingContainer(Cont)
wait(1000)
UO.Grab('all','finditem')
wait(1000)
UO.UnSetReceivingContainer()
Endif
UO.FindType('0x175D','0x0000',Cont)
wait(1000)
UO.Grab('600','finditem')
wait(1000)
endif
CheckLag()
UO.WaitMenu('Cloth','Misc','Misc','body sash')
UO.WaitTargetType('0x175D')
UO.UseType('0x0F9D')
UO.DeleteJournal()
wait(1000)
repeat
wait(100)
until UO.InJournal('fail') or UO.InJournal('put')
UO.DeleteJournal()
wait(500)
UO.WaitTargetType(Creat)
UO.UseType('0x0F9E')
CheckLag()
wait(500)
wend
endsub
Sub ToHide()
while NOT UO.Hidden()
UO.DeleteJournal()
UO.Exec('warmode 0')
UO.UseSkill('Stealth')
repeat
wait(50)
until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') OR UO.InJournal('preoccupied')
wend
end sub
Sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(50)
until UO.InJournal('backpack')
end sub [code]
Posted: 2006-04-05 16:07:14
by Scripts Writer
научись в код вставлять млин!
Re: помажите=)
Posted: 2006-04-05 16:07:22
by Kynep
alex86alex wrote:можно ли в этот скрипт вписать спирит спик??? плиз нарон помагите
Смари, вставь это себе:
Code: Select all
CheckLag()
UO.WaitMenu('Cloth','Misc','Misc','body sash')
UO.WaitTargetType('0x175D')
UO.UseType('0x0F9D')
UO.DeleteJournal()
wait(1000)
repeat
wait(100)
until UO.InJournal('fail') or UO.InJournal('put')
UO.DeleteJournal()
wait(500)
UO.WaitTargetType(Creat)
UO.UseType('0x0F9E')
wait(500)
CheckLag()
UO.UseSkill('Spirit Speak')
wait(2500)
wend
endsub
Posted: 2006-04-05 16:08:24
by alex86alex
You Must Die wrote:научись в код вставлять млин!
а я что делаю))))))))))))))))))))))
Posted: 2006-04-05 16:09:57
by alex86alex
Code: Select all
var Cont='0x4005FF4E' ##ID сундука с тканью, так же туда будут складыватся бинты
var Creat='0x1541' ##Тип того, что сшили
sub Tailoring()
#¤Leo¤#
while NOT UO.Dead()
ToHide()
UO.FindType('0x175D','0x0000','backpack')
if UO.GetQuantity('finditem')<4 then
UO.UseObject(Cont)
UO.FindType('0x0E21','0x0000','backpack')
if UO.GetQuantity('finditem')>0 then
UO.SetReceivingContainer(Cont)
wait(1000)
UO.Grab('all','finditem')
wait(1000)
UO.UnSetReceivingContainer()
Endif
UO.FindType('0x175D','0x0000',Cont)
wait(1000)
UO.Grab('600','finditem')
wait(1000)
endif
CheckLag()
UO.WaitMenu('Cloth','Misc','Misc','body sash')
UO.WaitTargetType('0x175D')
UO.UseType('0x0F9D')
UO.DeleteJournal()
wait(1000)
repeat
wait(100)
until UO.InJournal('fail') or UO.InJournal('put')
UO.DeleteJournal()
wait(500)
UO.WaitTargetType(Creat)
UO.UseType('0x0F9E')
CheckLag()
wait(500)
wend
endsub
Sub ToHide()
while NOT UO.Hidden()
UO.DeleteJournal()
UO.Exec('warmode 0')
UO.UseSkill('Stealth')
repeat
wait(50)
until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') OR UO.InJournal('preoccupied')
wend
end sub
Sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(50)
until UO.InJournal('backpack')
end sub
Re: помажите=)
Posted: 2006-04-05 16:11:57
by alex86alex
Cooper wrote:alex86alex wrote:можно ли в этот скрипт вписать спирит спик??? плиз нарон помагите
Смари, вставь это себе:
Code: Select all
CheckLag()
UO.WaitMenu('Cloth','Misc','Misc','body sash')
UO.WaitTargetType('0x175D')
UO.UseType('0x0F9D')
UO.DeleteJournal()
wait(1000)
repeat
wait(100)
until UO.InJournal('fail') or UO.InJournal('put')
UO.DeleteJournal()
wait(500)
UO.WaitTargetType(Creat)
UO.UseType('0x0F9E')
wait(500)
CheckLag()
UO.UseSkill('Spirit Speak')
wait(2500)
wend
endsub
слух а ты можеш встааить а то я ни доганяю куда именно???!!!!
Posted: 2006-04-05 16:13:17
by Scripts Writer
alex86alex wrote:You Must Die wrote:научись в код вставлять млин!
а я что делаю))))))))))))))))))))))
свои посты редактировать можно, а ты флудишь и непонятки наводишь только
Posted: 2006-04-05 16:14:22
by Kynep
Вот, а че Лео не хочет?? этож его скрипт
Code: Select all
var Cont='0x4005FF4E' ##ID сундука с тканью, так же туда будут складыватся бинты
var Creat='0x1541' ##Тип того, что сшили
sub Tailoring()
#¤Leo¤#
while NOT UO.Dead()
ToHide()
UO.FindType('0x175D','0x0000','backpack')
if UO.GetQuantity('finditem')<4 then
UO.UseObject(Cont)
UO.FindType('0x0E21','0x0000','backpack')
if UO.GetQuantity('finditem')>0 then
UO.SetReceivingContainer(Cont)
wait(1000)
UO.Grab('all','finditem')
wait(1000)
UO.UnSetReceivingContainer()
Endif
UO.FindType('0x175D','0x0000',Cont)
wait(1000)
UO.Grab('600','finditem')
wait(1000)
endif
CheckLag()
UO.WaitMenu('Cloth','Misc','Misc','body sash')
UO.WaitTargetType('0x175D')
UO.UseType('0x0F9D')
UO.DeleteJournal()
wait(1000)
repeat
wait(100)
until UO.InJournal('fail') or UO.InJournal('put')
UO.DeleteJournal()
wait(500)
UO.WaitTargetType(Creat)
UO.UseType('0x0F9E')
wait(500)
CheckLag()
UO.UseSkill('Spirit Speak')
wait(2500)
wend
endsub
Sub ToHide()
while NOT UO.Hidden()
UO.DeleteJournal()
UO.Exec('warmode 0')
UO.UseSkill('Stealth')
repeat
wait(50)
until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') OR UO.InJournal('preoccupied')
wend
end sub
Sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(50)
until UO.InJournal('backpack')
end sub
Posted: 2006-04-05 16:26:02
by alex86alex
Cooper wrote:Вот, а че Лео не хочет?? этож его скрипт
Code: Select all
var Cont='0x4005FF4E' ##ID сундука с тканью, так же туда будут складыватся бинты
var Creat='0x1541' ##Тип того, что сшили
sub Tailoring()
#¤Leo¤#
while NOT UO.Dead()
ToHide()
UO.FindType('0x175D','0x0000','backpack')
if UO.GetQuantity('finditem')<4 then
UO.UseObject(Cont)
UO.FindType('0x0E21','0x0000','backpack')
if UO.GetQuantity('finditem')>0 then
UO.SetReceivingContainer(Cont)
wait(1000)
UO.Grab('all','finditem')
wait(1000)
UO.UnSetReceivingContainer()
Endif
UO.FindType('0x175D','0x0000',Cont)
wait(1000)
UO.Grab('600','finditem')
wait(1000)
endif
CheckLag()
UO.WaitMenu('Cloth','Misc','Misc','body sash')
UO.WaitTargetType('0x175D')
UO.UseType('0x0F9D')
UO.DeleteJournal()
wait(1000)
repeat
wait(100)
until UO.InJournal('fail') or UO.InJournal('put')
UO.DeleteJournal()
wait(500)
UO.WaitTargetType(Creat)
UO.UseType('0x0F9E')
wait(500)
CheckLag()
UO.UseSkill('Spirit Speak')
wait(2500)
wend
endsub
Sub ToHide()
while NOT UO.Hidden()
UO.DeleteJournal()
UO.Exec('warmode 0')
UO.UseSkill('Stealth')
repeat
wait(50)
until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') OR UO.InJournal('preoccupied')
wend
end sub
Sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(50)
until UO.InJournal('backpack')
end sub
его просто в аси нету !!!! а тебе спасибо кстати асю ты на форуме кажись неправильную дал
Posted: 2006-04-05 16:33:07
by Kynep
alex86alex wrote:его просто в аси нету !!!! а тебе спасибо кстати асю ты на форуме кажись неправильную дал
Исправил Асю смотри инфо
Posted: 2006-04-05 16:49:43
by alex86alex
Cooper wrote:alex86alex wrote:его просто в аси нету !!!! а тебе спасибо кстати асю ты на форуме кажись неправильную дал
Исправил Асю смотри инфо
автаризуй меня вот ася 328- 528 889