initEvents
	set %eat #scnt
	; steel = 147
	; iron = 120
	set %oretype 147
	set %wearid MLXAJ ; paperdollis oleva itemite #findbagid
	set %GUMP QMZB ; bs gumpi #contkind
	set %eatable_items UWI_TWI_QQD_DWI ; puuviljad hetkel ( ġun , pirn , virsik )
;****************************************************************************
gosub open_blacksmith
loop:
	chooseSkill blacksmith
	SetUOTitle BS: #skill
	set %bs #skil
	if #contkind = %GUMP
		{
		gosub item
			if #contposx <> 0 && #contposy <> 0
				contpos 0 0
		click %x2 %y2
		wait 3s
		gosub waitforgump
		if #result <> 1
			{
			wait 1s
			gosub smelt %itemt
			}
		}
		if #scnt > %eat
		{
		gosub closecraftgump
		gosub eat ; whatever your eat sub is
		set %eat #scnt + 1800
		}
	if #contkind <> %GUMP
		{
		gosub open_blacksmith
		}
goto loop
;****************************************************************************
sub closecraftgump
	if #contkind = %GUMP
		{
		if #contposx <> 0 && #contposy <> 0
			contpos 0 0
		click 122 480
		}
return

sub item
	chooseSkill blacksmith
	set %sk #skill

	if #skill < 340
		{
		; ringmail tunic
		set %x1 123
		set %y1 119
		set %x2 271
		set %y2 198
		set %itemt WLH
		return
		}
	if #skill < 350
		{
		; ringmail tunic
		set %x1 123
		set %y1 223
		set %x2 271
		set %y2 245
		set %itemt CIK
		return
		}
	if #skill < 390
		{
		; ringmail tunic
		set %x1 123
		set %y1 320
		set %x2 271
		set %y2 171
		set %itemt WTH
		return
		}
	if #skill < 405
		{
		; longsword
		set %x1 123
		set %y1 246
		set %x2 271
		set %y2 221
		set %itemt KTF
		return
		}
	if #skill < 420
		{
		; large battle axe
		set %x1 123
		set %y1 271
		set %x2 271
		set %y2 196
		set %itemt SMH
		return
		}
	if #skill < 430
		{
		; Scimitar 270 245
		set %x1 123
		set %y1 246
		set %x2 270
		set %y2 245
		set %itemt POH
		return
		}
	if #skill < 440
		{
		; Two handed axe 270 220
		set %x1 123
		set %y1 271
		set %x2 270
		set %y2 220
		set %itemt MPH
		return
		}
	if #skill < 470
		{
		; Executioners axe 270 245
		set %x1 123
		set %y1 271
		set %x2 270
		set %y2 245
		set %itemt ZRF
		return
		}
	if #skill < 500
		{
		; axe 270 275
		set %x1 123
		set %y1 271
		set %x2 270
		set %y2 273
		set %itemt LSF
		return
		}
	if #skill < 540
		{
		; war axe 270 295
		set %x1 123
		set %y1 271
		set %x2 270
		set %y2 295
		set %itemt JOH
		return
		}
	if #skill < 570
		{
		; Katana 270 322
		set %x1 123
		set %y1 246
		set %x2 270
		set %y2 322
		set %itemt OMH
		return
		}
	if #skill < 590
		{
		; Bladed staff 270 245
		set %x1 123
		set %y1 320
		set %x2 270
		set %y2 245
		set %itemt ZTO
		return
		}
	if #skill < 640
		{
		; Halberd 270 220
		set %x1 123
		set %y1 295
		set %x2 270
		set %y2 220
		set %itemt YTH
		return
		}
	if #skill < 690
		{
		; Platemail gorget 270 146
		set %x1 123
		set %y1 171
		set %x2 270
		set %y2 146
		set %itemt NSH
		return
		}
	if #skill < 730
		{
		; Platemail gloves 270 172
		set %x1 123
		set %y1 171
		set %x2 270
		set %y2 172
		set %itemt ISH
		return
		}
	if #skill < 770
		{
		; Plate Helm 270 220
		set %x1 123
		set %y1 195
		set %x2 270
		set %y2 220
		set %itemt OSH
		return
		}
	if #skill < 790
		{
		; Platemail arms 270 197
		set %x1 123
		set %y1 171
		set %x2 270
		set %y2 197
		set %itemt MSH
		return
		}
	if #skill < 820
		{
		; Platemail leggings 270 220
		set %x1 123
		set %y1 171
		set %x2 270
		set %y2 220
		set %itemt LSH
		return
		}
	if #skill < 850
		{
		; Lance 270 296
		set %x1 123
		set %y1 295
		set %x2 270
		set %y2 296
		set %itemt OPO
		return
		}
	if #skill < 900
		{
		; Platemail tunic 270 246
		set %x1 123
		set %y1 171
		set %x2 270
		set %y2 246
		set %itemt HSH
		return
		}
	if #skill < 950
		{
		; Crescent blade 270 345
		set %x1 123
		set %y1 246
		set %x2 270
		set %y2 345
		set %itemt NPO
		return
		}
	if #skill < 1000
		{
		; Paladin sword 270 370
		set %x1 123
		set %y1 246
		set %x2 270
		set %y2 370
		set %itemt UPO
		return
		}
HALT

return


sub smelt
	sme:
	wait 1s
	set %type %1
	if #contkind <> %GUMP
		{
		gosub open_blacksmith
		}
	if #contposx <> 0 && #contposy <> 0
		contpos 0 0
	nextCPos 0 0
	click 293 481
	wait 1s
	gosub waitforgump
	nextCPos 0 0
	click 368 279
	wait 1s
	sme2:
	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
		if #findcnt > 1
			{
			goto sme
			}
	}
return

sub waitforgump

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

return

sub open_blacksmith
	if #contkind = %GUMP
		{
		return
		}
bc1:
gosub item
finditem TLH C
	if #findkind <> -1 
		{
		key ESC
		set #lobjectid #findid
		set #lobjecttype #findtype
		set #ltargetid #findid
		nextCPos 0 0
		event macro 17 0
		wait 2s
		click 420 480
		wait 1s
		click 273 %oretype
		wait 1s
		if #contposx <> 0 && #contposy <> 0
				contpos 0 0
		click %x1 %y1
		wait 2s
		}
if #contkind <> %GUMP
{
	wait 1s
	goto bc1:
}

return


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