Yoko

All sides of Injection
https://yoko.uokit.com/

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

https://yoko.uokit.com/viewtopic.php?t=15066

Page 1 of 1

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

Posted: 2009-08-31 09:54:11
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.

Posted: 2009-08-31 22:24:24
by Kashey
Эксперты помогите :)

Posted: 2009-08-31 23:50:39
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

Posted: 2009-09-01 23:05:18
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 готовых изделии брал хавку хавал до упора и снова ложил и крафтил!!! Все перепробывал неканает :(
Выручайте проподаю :(
All times are UTC+02:00
Page 1 of 1

Powered by phpBB® Forum Software © phpBB Limited