Yoko

All sides of Injection
It is currently 2025-10-18 09:58:06

Unanswered topics | Active topics


» » »

All times are UTC+02:00



Post new topic  Reply to topic  Page 1 of 1
  [ 4 posts ] 
  Print view Previous topic | Next topic 
Author Message
Kashey
PostPosted: 2009-08-31 09:54:11 
Offline

Joined: 2009-01-04 09:34:43
Posts: 12
Code:
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
   
Reply with quote  
Kashey
 Post subject:
PostPosted: 2009-08-31 22:24:24 
Offline

Joined: 2009-01-04 09:34:43
Posts: 12
Эксперты помогите :)
Top
   
Reply with quote  
Nmy
 Post subject:
PostPosted: 2009-08-31 23:50:39 
Offline
Expert!
User avatar

Joined: 2005-09-14 15:31:58
Posts: 2152
Location: Latvia
я только дописал sub toeat()
в скрипте нечего нетрогал
Code:
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

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net
Top
   
Reply with quote  
Kashey
 Post subject:
PostPosted: 2009-09-01 23:05:18 
Offline

Joined: 2009-01-04 09:34:43
Posts: 12
Code:
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:
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
   
Reply with quote  
Display posts from previous:  Sort by  
Post new topic  Reply to topic  Page 1 of 1
  [ 4 posts ] 

» » »

All times are UTC+02:00

Who is online

Users browsing this forum: No registered users and 2 guests

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Limited