initEvents
	set %eat #scnt
	set %GUMP QMZB
	; normal - 120
	; rat - 144
	; bear - 170
	; wolf - 195	
	set %leathertype 120
;****************************************************************************

gosub open_tailor
loop:
	if #contkind = %GUMP
		{
		chooseSkill tailoring
		SetUOTitle Tail: #skill
		set %oldskill #skill
		wait 10
		gosub item
			if #contposx <> 0 && #contposy <> 0
				contpos 0 0
		click %x2 %y2
		set %x %x + 1 
		wait 3s
		gosub waitforgump
		chooseSkill tailoring
		set %newskill #skill
		set %testchange %newskill - %oldskill
		if (%iskill = %newskill && %testchange = 1)
				gosub closecraftgump
		if %x > 30
			{
			gosub unravel %itemt
			gosub closecraftgump
			gosub getclothground
			set %x 0
			}
		if #scnt > %eat
		{
			gosub closecraftgump
			gosub eat ; whatever your eat sub is
			set %eat #scnt + 1800
		}
	if #contkind <> %GUMP
		{
		gosub open_tailor
		}
goto loop
;****************************************************************************

sub closecraftgump
	if #contkind = %GUMP
		{
		if #contposx <> 0 && #contposy <> 0
			contpos 0 0
		click 122 480
		}
return

sub item
	chooseSkill tailoring
	set %sk #skill

	if #skill < 350
		{
		; skirt
		set %x1 123
		set %y1 145
		set %x2 271
		set %y2 197
		set %itemt FCI
		set %iskill 350
		return
		}
	if #skill < 400
		{
		; cloak
		set %x1 123
		set %y1 171
		set %x2 271
		set %y2 197
		set %itemt DCI
		set %iskill 400
		return
		}
	if #skill < 450
		{
		;  fancy dress
		set %x1 123
		set %y1 198
		set %x2 271
		set %y2 146
		set %itemt VQL
		set %iskill 450
		return
		}
	if #skill < 500
		{
		; robe
		set %x1 123
		set %y1 171
		set %x2 271
		set %y2 223
		set %itemt FWL
		set %iskill 500
		return
		}
	if #skill < 550
		{
		; small pillows
		set %x1 123
		set %y1 171
		set %x2 271
		set %y2 119
		set %itemt ONI
		set %iskill 550
		return
		}
	if #skill < 600
		{
		;medium pillows
		set %x1 123
		set %y1 171
		set %x2 271
		set %y2 143
		set %itemt TNI
		set %iskill 600
		return
		}
	if #skill < 650
		{
		;large pillows
		set %x1 123
		set %y1 171
		set %x2 271
		set %y2 172
		set %itemt UNI
		set %iskill 650
		return
		}
	if #skill < 700
		{
		;carpet
		set %x1 123
		set %y1 120
		set %x2 271
		set %y2 122
		set %itemt LAE
		set %iskill 700
		return
		}
	if #skill < 730
		{
		; studded gorget
		set %x1 123
		set %y1 145
		set %x2 271
		set %y2 122
		set %itemt ALH
		set %iskill 730
		return
		}
	if #skill < 770
		{
		; studded bustier
		set %x1 123
		set %y1 145
		set %x2 271
		set %y2 171
		set %itemt USK
		set %iskill 770
		return
		}
	if #skill < 810
		{
		; studded female
		set %x1 123
		set %y1 145
		set %x2 271
		set %y2 195
		set %itemt SSK
		set %iskill 810
		return
		}
	if #skill < 850
		{
		; studded sleeves
		set %x1 123
		set %y1 145
		set %x2 271
		set %y2 246
		set %itemt MLH
		set %iskill 850
		return
		}
	if #skill < 900
		{
		; studded tunic
		set %x1 123
		set %y1 145
		set %x2 271
		set %y2 270
		set %itemt LLH
		set %iskill 900
		return
		}
	if #skill < 950
		{
		;arcane cloak
		set %x1 123
		set %y1 170
		set %x2 271
		set %y2 246
		set %itemt JTO
		set %iskill 950
		return
		}
	if #skill < 1000
		{
		;arcane robe
		set %x1 123
		set %y1 170
		set %x2 271
		set %y2 267
		set %itemt MTO
		set %iskill 1000
		return
		}
;90-100 arcane cloaks and robes
HALT

return

sub unravel
	sme:
	wait 1s
	set %type %1
	if #contkind <> %GUMP
		{
		gosub open_tailor
		}
	if #contposx <> 0 && #contposy <> 0
		contpos 0 0
	nextCPos 0 0
	click 293 481
	wait 1s
	gosub waitforgump
	nextCPos 0 0
	click 226 279
	wait 1s
	finditem %type C
	if #Findkind <> -1
	{
		if #Findbagid = %wearid
			{
			ignoreItem #findid
			goto sme2
			}
		set #ltargetid #findid
		set #ltargetkind 1
		event macro 22 0
		wait 3s
	}
return

sub waitforgump

set %bb #scnt
alg1:
if #contkind <> %GUMP
{
	wait 1s
	set %test #scnt - %bb
	if  %test > 20
	{
	gosub open_tailor
	wait 2s
	}
	goto alg1
}

return

sub open_tailor
	if #contkind = %GUMP
		{
		return
		}

gosub item
set %tooltype HAG
chooseSkill tailoring
if #skill > 499 && #skill < 701
	set %tooltype YZF

if #skill > 699 && #skill < 900
	set %tooltype BIG
bc1:
finditem %tooltype C
	if #findkind <> -1 
		{
		key ESC
		set #lobjectid #findid
		set #lobjecttype #findtype
		set #ltargetid #findid
		nextCPos 0 0
		event macro 17 0
		wait 2s
		if #skill > 699 && #skill < 900
		{
		click 420 480
		wait 1s
		click 273 %leathertype
		wait 2s
		}
			if #contposx <> 0 && #contposy <> 0
				contpos 0 0
		click %x1 %y1
		wait 1s
		}
if #contkind <> %GUMP
{
	wait 1s
	goto bc1:
}

return


sub eat
	set %eatable_items UWI_TWI_QQD_DWI
	finditem %eatable_items C
	if #Findkind <> -1
	{
		set #lobjectID #FindID
		event macro 17 0
		; Done. You just eaten something
	}
return

sub getclothground

ignoreItem reset
loadcl:
	findItem CUI G_3
	if #findkind <> -1  
	{
	if #findcol = 0 
		{
			event Drag #findid
			wait 20
			msg $
			wait 1s
			click 400 253
			wait 1s
			goto loadcl:
		}
		ignoreItem #findid
	}
return