msg ,cancelmenu$
;move 4036 527 0
set %iron 0
set %zinc 2057
set %copper 1601
set %carbon 1325
set %nickel 511
set %lead 505
set %silver
set %MenuARname stainless_steel
set %itemARname stainless , #spc , steel
set %menuARname Steel
set %itemARname steel
;set %menuarname Manganin
;set %itemARname manganin
;set %menuarname Cupronickel
;set %itemARname cupronickel
;set %menuARname Constantan
;set %itemARname constantan
set %filled ILNTJMD ; steel
;set %filled IYBVJMD ; manganin
;set %filled PKOYJMD ; stainless
;set %filled KLYYJMD ; cupronicl

set %ingot1 %copper ; ingot2 should never be iron
set %ingot2 %nickel
set %REchest BSPWJMD
set %dropchest IHWUJMD
if %menuARname = brass || %menuARname = bronze
{
set %ingot1 %copper
set %ingot2 %zinc
}
if %menuarname = manganin || %menuarname = constantan || %menuarname = cupronickel
{
set %ingot1 %copper
set %ingot2 %nickel
}
if %menuarname = steel || %menuarname = stainless_steel || %menuarname = cast_iron
{
set %ingot1 %carbon
set %ingot2 %iron
}

set %ar1 HSH ; chest
set %ar2 LSH ; legs
set %ar3 MSH ; arms
set %ar4 OSH ; helm
set %ar5 ISH ; gloves
set %ar6 NSH ; gorgot
set %ar7 CIK ; heater

set %arname1 platemail , #spc , chest
set %arname2 platemail , #spc , legs
set %arname3 platemail , #spc , arms
set %arname4 platemail , #spc , helm
set %arname5 platemail , #spc , gloves
set %arname6 platemail , #spc , gorget
set %arname7 heater , #spc , shield


set %armours CIK_HSH_OSH_MSH_LSH_ISH_NSH


set %hammer TLH
set %ingots ENK

msg ,automenu 'Blacksmithing' 'Colored Armor'$
msg ,automenu 'Colored Armor & Shields' ' , %menuARname Armor'$



set %setstocraft 20

Main:
Gosub OpenConts
for %main 1 %setstocraft
{
    for %p 1 7
    {
    Gosub Craft %p
    }
gosub Bank
}
msg ,cancelmenu$
display %setstocraft Crafted
halt

Sub CheckRES
Res:
ignoreitem reset 3
finditem %ingots C_ , #backpackid
if #findid = x 2
gosub grab %ingot1 100
goto res
if #findcol = %ingot1
set %inAMount1 #findstack
else
set %inAMount2 #findstack
ignoreitem #findid 3

finditem %ingots C_ , #backpackid
if #findid = x 2
gosub grab %ingot2 100
goto res
if #findcol = %ingot1
set %inAMount1 #findstack
else
set %inAMount2 #findstack
ignoreitem #findid 3

if %inamount1 < 30
gosub grab %ingot1 100
if %inamount2 < 30
gosub grab %ingot2 100
ignoreitem reset 3
return

sub grab
ignoreitem reset
grab:
finditem %ingots C_ , %REchest
if #findcol <> %1 2
ignoreitem #findid 5
goto grab
exevent drag #findid %2
exevent dropc #backpackid
ignoreitem reset 5
wait 25
return



Sub bank
Bank:
Finditem CKF C_ , %dropchest
set %bag #findid
bank2:
finditem %armours C_ , #backpackid
if #findid = x
{
wait 20
finditem %bag
exevent drag #findid #findstack
exevent dropc %filled
ignoreitem %bag 4
return
}
exevent drag #findid #findstack
wait 10
exevent dropc %bag
wait 25
goto bank2



Sub Craft
set %part %arname . %1
set %itemid %ar . %1
Msg ,automenu ' . %MenuARname armor' ' , %itemARname %part , '$
Craft:
Gosub CheckRES
ingotloop:
Finditem %ingots C_ , #backpackid
if #findid = x
return #false
if #findcol <> %ingot1 2
ignoreitem #findid 3
goto ingotloop
set #lobjectid #findid
event macro 17 0
wait 1s
For %i 1 15
{
scanjournal 1
if ( you_put_the in #journal ) || ( due_to_your in #journal )
goto endcraft
if fail in #journal
goto craft
wait 10
}
endcraft:
finditem %itemid C_ , #backpackid
if #findid = x
goto craft
ignoreitem reset 3
return #true


sub OpenConts
Rechest:
set #lobjectid %rechest
event macro 17 0
wait 10
if #contid <> %rechest
goto Rechest
wait 10
contpos 10 677
Dropchest:
set #lobjectid %dropchest
event macro 17 0
wait 10
if #contid <> %dropchest
goto dropchest
wait 10
contpos 215 677
return