Помогите разобрать тайлор

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Kashey
Posts: 12
Joined: 2009-01-04 09:34:43

Помогите разобрать тайлор

Post by Kashey »

Code: Select all

Var Sunduk='0x41125C98' # Сундук в котором лежат ресурсы
Var TSKit='0x0F9D' # Тип набора кройки и шитья
Var TCloth='0x175D' # Тип ткани (ресурсы)
Var Spools='0x0FA0' # Тип ниток (ресурсы)
Var TItem='0x1EFF' # Тип шмотки которую крафтаем - роба
Var RobBackPack= '0x4168B3AD' # Прилоченная рядом сумка с мешками
Var Meshok1='0x4142878C' # ИД мешка куда кладём робы
Var Meshok2='0x41348640' # ИД мешка куда кладём робы
Var VSEmeshki='0x0E76' # Тип всех этих мешков

sub Tailoring()
var i=0
uo.cancelmenu()
uo.automenu('Cloth','Shirts')
uo.automenu('Shirts','fancy dress')
uo.useobject(Sunduk)

while (uo.skillval('Tailoring',1)<1000)
i=i+1
if i==50 then
i=0
uo.usetype('0x097B')
wait(1000)
end if

UO.FindType(TCloth,-1,'backpack')
wait(200)
If UO.GetQuantity('finditem')<16 Then
   If UO.GetQuantity('finditem')>0 Then
      UO.SetReceivingContainer(Sunduk)
      cheklag()
      UO.Grab('0','finditem')
      wait(1000)
      UO.UnSetReceivingContainer()
   end if
   UO.FindType(TCloth,-1,Sunduk)   
   wait(200)
   If UO.GetQuantity('finditem')>=16 Then
      cheklag()
      UO.Grab('300','finditem')
      Wait(1000)
   else
      uo.closeuo()
   end if
end if

UO.FindType(Spools,-1,'backpack')
wait(200)
If UO.GetQuantity('finditem')<16 Then
   If UO.GetQuantity('finditem')>0 Then
      UO.SetReceivingContainer(Sunduk)
      cheklag()
      UO.Grab('0','finditem')
      wait(1000)
      UO.UnSetReceivingContainer()
   end if
   UO.FindType(Spools,-1,Sunduk)   
   wait(200)
   If UO.GetQuantity('finditem')>=16 Then
      cheklag()
      UO.Grab('300','finditem')
      Wait(1000)
   else
      uo.closeuo()
   end if
end if

cheklag()
uo.waittargettype(TCloth)
wait(50)
uo.usetype(TSKit)
uo.deletejournal()
repeat
wait(10)
until uo.InJournal('You put the') or uo.InJournal('Tailoring failed.')


if uo.weight > 200 then
UO.SetReceivingContainer(Meshok1)
wait(200)
UO.FindType('0x1EFF')               # ??? ???????? ?????
if UO.GetQuantity('finditem')>0 then
UO.Grab('0','finditem')
wait(200)
end if
UO.UnSetReceivingContainer()
end if

wend
uo.closeuo()
end sub

sub cheklag()
uo.deletejournal()
uo.click('backpack')
repeat
wait(10)
until uo.InJournal("backpack")
end sub


Ребят реально помогите куда и как тут вставить что бы из сундука где лежат ресурсы,брать хавку,хавать и ложить обратно
ID=0x41271E1F Type=0x103B (хавка)
Когда уже наелся пишет.
You are simply too full to eat
any more!
You can't think of a way to
use that item.
Top
Kashey
Posts: 12
Joined: 2009-01-04 09:34:43

Post by Kashey »

Эксперты помогите :)
Top
Nmy
Expert!
Posts: 2152
Joined: 2005-09-14 15:31:58
Location: Latvia

Post by Nmy »

я только дописал sub toeat()
в скрипте нечего нетрогал

Code: Select all

Var Sunduk='0x41125C98' # Сундук в котором лежат ресурсы 
Var TSKit='0x0F9D' # Тип набора кройки и шитья 
Var TCloth='0x175D' # Тип ткани (ресурсы) 
Var Spools='0x0FA0' # Тип ниток (ресурсы) 
Var TItem='0x1EFF' # Тип шмотки которую крафтаем - роба 
Var RobBackPack= '0x4168B3AD' # Прилоченная рядом сумка с мешками 
Var Meshok1='0x4142878C' # ИД мешка куда кладём робы 
Var Meshok2='0x41348640' # ИД мешка куда кладём робы 
Var VSEmeshki='0x0E76' # Тип всех этих мешков 
sub toeat()
   uo.findtype('0x103B',-1,Sunduk)
   if uo.findcount() then
      uo.moveitem('finditem','50','backpack')
      checklag()
      wait(600)
      uo.deletejournal()
      repeat
         uo.usetype('0x103B')
         wait(400)
      until uo.injournal('full to eat')
   endif
   uo.findtype('0x103B',-1,'backpack')
   if uo.findcount() then
      uo.moveitem('finditem',0,Sunduk)
      checklag()
      wait(600)
   endif
endsub
sub Tailoring() 
   var i=0 
   uo.cancelmenu() 
   uo.automenu('Cloth','Shirts') 
   uo.automenu('Shirts','fancy dress') 
   uo.useobject(Sunduk) 
   while (uo.skillval('Tailoring',1)<1000) 
      i=i+1 
      if i==50 then 
         i=0 
         uo.usetype('0x097B') 
         wait(1000) 
      end if 
      UO.FindType(TCloth,-1,'backpack') 
      wait(200) 
      If UO.GetQuantity('finditem')<16 Then 
         If UO.GetQuantity('finditem')>0 Then 
            UO.SetReceivingContainer(Sunduk) 
            checklag() 
            UO.Grab('0','finditem') 
            wait(1000) 
            UO.UnSetReceivingContainer() 
         end if 
         UO.FindType(TCloth,-1,Sunduk)    
         wait(200) 
         If UO.GetQuantity('finditem')>=16 Then 
            checklag() 
            UO.Grab('300','finditem') 
            Wait(1000) 
         else 
            uo.closeuo() 
         end if 
      end if 
      UO.FindType(Spools,-1,'backpack') 
      wait(200) 
      If UO.GetQuantity('finditem')<16 Then 
         If UO.GetQuantity('finditem')>0 Then 
            UO.SetReceivingContainer(Sunduk) 
            checklag() 
            UO.Grab('0','finditem') 
            wait(1000) 
            UO.UnSetReceivingContainer() 
         end if 
         UO.FindType(Spools,-1,Sunduk)    
         wait(200) 
         If UO.GetQuantity('finditem')>=16 Then 
            checklag() 
            UO.Grab('300','finditem') 
            Wait(1000) 
         else 
            uo.closeuo() 
         end if 
      end if 
      checklag() 
      uo.waittargettype(TCloth) 
      wait(50) 
      uo.usetype(TSKit) 
      uo.deletejournal() 
      repeat 
         wait(10) 
      until uo.InJournal('You put the') or uo.InJournal('Tailoring failed.') 
      if uo.weight > 200 then 
         UO.SetReceivingContainer(Meshok1) 
         wait(200) 
         UO.FindType('0x1EFF')               # ??? ???????? ????? 
         if UO.GetQuantity('finditem')>0 then 
            UO.Grab('0','finditem') 
            wait(200) 
         end if 
         UO.UnSetReceivingContainer() 
      end if 
      toeat()
   wend 
   uo.closeuo() 
end sub 
Sub CheckLag() 
   repeat
      UO.DeleteJournal() 
      UO.Click('backpack') 
   until backpack()==1
end sub 
Sub backpack()
   var n
   for n=0 to 100
      if uo.injournal('a backpack') then
         return 1
      else
         wait(500)
      endif
      if uo.injournal('World is saving now...') then
         wait(70000)
      endif
   next
   return 0
endsub
Top
Kashey
Posts: 12
Joined: 2009-01-04 09:34:43

Post by Kashey »

Code: Select all

Var Sunduk='0x41125C98'
Var TSKit='0x0F9D'
Var TCloth='0x175D'
Var Spools='0x0FA0'
Var TItem='0x1EFF'
Var RobBackPack= '0x41125C96'
Var Meshok1='0x4142878C'
Var Meshok2='0x41348640'
Var VSEmeshki='0x0E76'

sub toeat()
   uo.findtype('0x103B',-1,Sunduk)
   if uo.findcount() then
      uo.moveitem('finditem','50','backpack')
      wait(600)
      uo.deletejournal()
      repeat
         uo.usetype('0x103B')
         wait(400)
      until uo.injournal('full to eat')
   endif
   uo.findtype('0x103B',-1,'backpack')
   if uo.findcount() then
      uo.moveitem('finditem',0,Sunduk)
      wait(600)
   endif
endsub 

sub Tailoring()
var i=0
uo.cancelmenu()
uo.automenu('Cloth','Shirts')
uo.automenu('Shirts','fancy dress')
uo.useobject(Sunduk)

while (uo.skillval('Tailoring',1)<1000)
i=i+1
if i==50 then
i=0
uo.usetype('0x097B')
wait(1000)
end if

UO.FindType(TCloth,-1,'backpack')
wait(200)
If UO.GetQuantity('finditem')<16 Then
   If UO.GetQuantity('finditem')>0 Then
      UO.SetReceivingContainer(Sunduk)
      cheklag()
      UO.Grab('0','finditem')
      wait(1000)
      UO.UnSetReceivingContainer()
   end if
   UO.FindType(TCloth,-1,Sunduk)   
   wait(200)
   If UO.GetQuantity('finditem')>=16 Then
      cheklag()
      UO.Grab('720','finditem')
      Wait(1000)
   else
      uo.closeuo()
   end if
end if

UO.FindType(Spools,-1,'backpack')
wait(200)
If UO.GetQuantity('finditem')<16 Then
   If UO.GetQuantity('finditem')>0 Then
      UO.SetReceivingContainer(Sunduk)
      cheklag()
      UO.Grab('0','finditem')
      wait(1000)
      UO.UnSetReceivingContainer()
   end if
   UO.FindType(Spools,-1,Sunduk)   
   wait(200)
   If UO.GetQuantity('finditem')>=16 Then
      cheklag()
      UO.Grab('60','finditem')
      Wait(1000)
   else
      uo.closeuo()
   end if
end if

cheklag()
uo.waittargettype(TCloth)
wait(50)
uo.usetype(TSKit)
uo.deletejournal()
repeat
wait(10)
until uo.InJournal('You put the') or uo.InJournal('Tailoring failed.')


if uo.weight > 200 then
UO.SetReceivingContainer(Meshok1)
wait(200)
UO.FindType('0x1EFF')               # ??? ???????? ?????
if UO.GetQuantity('finditem')>0 then
UO.Grab('0','finditem')
wait(200)
end if
UO.UnSetReceivingContainer()
end if

if uo.weight > 200 then
UO.SetReceivingContainer(Meshok2)
wait(200)
UO.FindType('0x1EFF')               # ??? ???????? ?????
if UO.GetQuantity('finditem')>0 then
UO.Grab('0','finditem')
wait(200)
end if
UO.UnSetReceivingContainer()
end if

wend
uo.closeuo()
end sub

sub cheklag()
uo.deletejournal()
uo.click('backpack')
repeat
wait(10)
until uo.InJournal("backpack")
end sub


Биг спс за хавку!!! Сначало выдавал ошибку с чеклагами и упорно не хотел хавать!!!
Снес чеклаки

Code: Select all

sub toeat()
   uo.findtype('0x103B',-1,Sunduk)
   if uo.findcount() then
      uo.moveitem('finditem','50','backpack')
      wait(600)
      uo.deletejournal()
      repeat
         uo.usetype('0x103B')
         wait(400)
      until uo.injournal('full to eat')
   endif
   uo.findtype('0x103B',-1,'backpack')
   if uo.findcount() then
      uo.moveitem('finditem',0,Sunduk)
      wait(600)
   endif
endsub

Стал норм брать из сундука,хавать и ложить обратно.
Но до меня не допирает,как сделать когда я запускаю скрипт Tailoring
что бы он допустим через оридиленно время к примеру через каждые 70 готовых изделии брал хавку хавал до упора и снова ложил и крафтил!!! Все перепробывал неканает :(
Выручайте проподаю :(
Top
Post Reply

Return to “Scripting Ore”