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