Yoko

Code: Select all

sub Spool()
	VAR Spool='0x0FA0', Hlopok='0x0DF9', Cont='0x405D148A', Stanok='0x41691939',i

	While NOT UO.Dead()
		UO.FindType(Hlopok,-1,Cont)
		UO.Grab(STR(80),'finditem')
		For i=0 to 79
			CheckLag()
			UO.WaitTargetObject(Stanok)
			UO.UseType(Hlopok)
			wait(3000)
		Next
		UO.SetReceivingContainer(Cont)
		UO.FindType(Spool,-1,'backpack')
		UO.Grab('all','finditem')
		UO.UnSetReceivingContainer(Cont)
	Wend
end sub


sub Cloth()
	VAR Spool='0x0FA0', Clotch='0x0DF9', Bolt='0x0F95'
	VAR Cont='0x405D148A', Stanok='0x4133B797',i
	
	While NOT UO.Dead()
		UO.UnSetCatchBag(Cont)
		UO.FindType(Spool,-1,Cont)
		UO.Grab(STR(10),'finditem')
		For i=0 to 9
			CheckLag()
			UO.WaitTargetObject(Stanok)
			UO.UseType(Spool)
		Next
		wait(1000)
		UO.SetCatchBag(Cont)
		UO.FindType(Bolt,-1,'my')
;		UO.Grab('all','finditem')
		UO.WaitTargetObject('finditem')
		UO.UseObject('0x40B421C8') ;scisors
		wait(2000)
		UO.UnSetCatchBag(Cont)
	Wend
end sub