помажите=)

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
alex86alex
Posts: 35
Joined: 2006-03-11 15:01:10

помажите=)

Post 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 [code]
Top
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:
Contact Scripts Writer

Post by Scripts Writer »

научись в код вставлять млин!
Top
Kynep
Expert!
Posts: 1348
Joined: 2006-02-07 08:51:40
Location: г. Старый Оскол
Contact:
Contact Kynep

Re: помажите=)

Post 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
Top
alex86alex
Posts: 35
Joined: 2006-03-11 15:01:10

Post by alex86alex »

You Must Die wrote:научись в код вставлять млин!

а я что делаю))))))))))))))))))))))
Top
alex86alex
Posts: 35
Joined: 2006-03-11 15:01:10

Post 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
Top
alex86alex
Posts: 35
Joined: 2006-03-11 15:01:10

Re: помажите=)

Post 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


слух а ты можеш встааить а то я ни доганяю куда именно???!!!!
Top
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:
Contact Scripts Writer

Post by Scripts Writer »

alex86alex wrote:
You Must Die wrote:научись в код вставлять млин!

а я что делаю))))))))))))))))))))))
свои посты редактировать можно, а ты флудишь и непонятки наводишь только
Top
Kynep
Expert!
Posts: 1348
Joined: 2006-02-07 08:51:40
Location: г. Старый Оскол
Contact:
Contact Kynep

Post 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
Top
alex86alex
Posts: 35
Joined: 2006-03-11 15:01:10

Post 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


его просто в аси нету !!!! а тебе спасибо кстати асю ты на форуме кажись неправильную дал
Top
Kynep
Expert!
Posts: 1348
Joined: 2006-02-07 08:51:40
Location: г. Старый Оскол
Contact:
Contact Kynep

Post by Kynep »

alex86alex wrote: его просто в аси нету !!!! а тебе спасибо кстати асю ты на форуме кажись неправильную дал
Исправил Асю смотри инфо
Top
alex86alex
Posts: 35
Joined: 2006-03-11 15:01:10

Post by alex86alex »

Cooper wrote:
alex86alex wrote: его просто в аси нету !!!! а тебе спасибо кстати асю ты на форуме кажись неправильную дал
Исправил Асю смотри инфо
автаризуй меня вот ася 328- 528 889
Top
Post Reply

Return to “Scripting Ore”