Yoko

#blacksmith. Крафтит ножи, складывает в мешки для дальнейшей их продажи.
sub Bs()

VAR BagSer
Var fiz=0,ud=0,sum=254
Var MainBox='0x4005408B'
#MainBox - BackPack, в котором лежат инги, BackPack с пустыми мешками и BackPack для заполненных мешков
Var BoxEB='0x4005408B'
#BoxEB - BackPack с пустыми мешками
Var BoxFB='0x400393ED'
#BoxFB - BackPack с заполненными мешками
Var BagType='0x0E76'
#BagType - тип пустых мешков (bag - '0x0E76', Belt pouch - '0x09B0' or '0x0E79')

var forge=0x400A1FF0
Var ingt,colort,i=0,flag=0,flag1=0
Var PRD='0x0F51'
VAR ms0 = "You put the"
VAR ms1 = "You have failed"
VAR ms2 = "World data saved"
Dim Ing[18]
Dim IngColor[18]

Ing[0]='0x1BEF' #Iron
Ing[1]='0x1BEF' #Rusty
Ing[2]='0x1BEF' #Old Copper
Ing[3]='0x1BEF' #Dull Copper
Ing[4]='0x1BE3' #Copper
Ing[5]='0x1BEF' #Bronze
Ing[6]='0x1BF5' #Silver
Ing[7]='0x1BE9' #Gold
Ing[8]='0x1BEF' #Shadow
Ing[9]='0x1BEF' #Rose
Ing[10]='0x1BEF' #Agapite
Ing[11]='0x1BEF' #BloodRock
Ing[12]='0x1BEF' #Verite
Ing[13]='0x1BEF' #Valorite
Ing[14]='0x1BEF' #Mytheril
Ing[15]='0x1BEF' #BlackRock
Ing[16]='0x1BEF' #Obsidian
Ing[17]='0x1BEF' #Plutonium

IngColor[0]='0x0000' #Iron
IngColor[1]='0x0750' #Rusty
IngColor[2]='0x0590' #Old Copper
IngColor[3]='0x060A' #Dull Copper
IngColor[4]='0x0000' #Copper
IngColor[5]='0x0488' #Bronze
IngColor[6]='0x0000' #Silver
IngColor[7]='0x0000' #Gold
IngColor[8]='0x096B' #Shadow
IngColor[9]='0x0014' #Rose
IngColor[10]='0x0193' #Agapite
IngColor[11]='0x04C2' #BloodRock
IngColor[12]='0x07D5' #Verite
IngColor[13]='0x00CE' #Valorite
IngColor[14]='0x052D' #Mytheril
IngColor[15]='0x0455' #BlackRock
IngColor[16]='0x0028' #Obsidian
IngColor[17]='0x08AF' #Plutonium

############################

UO.Useobject(MainBox)
Wait(500)
UO.Useobject(BoxEB)
Wait(500)
UO.Useobject(BoxFB)
Wait(500)
UO.Exec("set finddistance 0")
UO.FindType(BagType,-1,1)
If UO.FindCount('finditem')<1 then
UO.FindType(BoxEB,-1,MainBox)
UO.FindType(BagType,-1,BoxEB)
BagSer=UO.GetSerial('finditem')
UO.Grab('1',BagSer)
Wait(500)
UO.Moveitem(BagSer,'1','ground')
Wait(500)
UO.Useobject(BagSer)
else
BagSer=UO.GetSerial('finditem')
UO.Useobject(BagSer)
Endif



Repeat
While NOT UO.Hidden()
UO.UseSkill('Hiding')
Wait(3000)
Wend

############################

uo.cancelmenu()
uo.automenu('Blacksmithing','Weapons')
uo.automenu('Weapons','Swords & Blades')
uo.automenu('Swords & Blades','dagger (3 iron ingot)')
uo.automenu('dagger')
wait(300)
repeat
for i=0 to 17
UO.FindType(Ing[i],IngColor[i],2)
if UO.GetQuantity('finditem') > 8 then
flag1=1
ingt=Ing[i]
endif
next

if flag1==0 then
i=0
repeat
UO.FindType(Ing[i],IngColor[i],MainBox)
if UO.GetQuantity('finditem') > 8 then
flag=1
UO.Grab('300','finditem')
wait(500)
ingt=Ing[i]
endif
i=i+1
until flag==1
else

UO.DeleteJournal()
While NOT UO.Hidden()
UO.UseSkill('Hiding')
Wait(3000)
Wend
UO.UseType(ingt)
repeat
wait(100)
until (UO.InJournal(ms0) or UO.InJournal(ms1) or UO.InJournal(ms2) or UO.inJournal("You smelt") or UO.inJournal("You can't"))
##########################
if (UO.InJournal(ms0)) then
ud=ud+1
else
fiz=fiz+1
endIf

UO.FindType(PRD,-1,2)
While UO.FindCount() > 0
UO.MoveItem('finditem','1',BagSer)
Wait(500)
UO.FindType(PRD,-1,2)
Wend

UO.FindType(PRD,-1,BagSer)
UO.Print("V tekushei sumke "+STR(UO.FindCount('finditem'))+" shtyk.")
UO.Print("Sfizlilo "+STR(fiz)+" raz. Sdelano "+STR(ud)+" shtyk.")
UO.Print("Fizlov: "+MID((STR(fiz/(fiz+ud)*100)),0,2)+"%")
If UO.FindCount('finditem') > sum then
UO.Moveitem(BagSer,'1',BoxFB)
Wait(500)
UO.FindType(BoxEB,-1,MainBox)
UO.FindType(BagType,-1,BoxEB)
BagSer=UO.GetSerial('finditem')
UO.Grab('1',BagSer)
Wait(500)
UO.MoveItem(BagSer,'1','ground')
Wait(500)
Endif
; repeat
; UO.FindType(PRD,-1,2)
; UO.WaitTargetObject('finditem')
; UO.UseObject(forge)
; wait(1000)
; until UO.FindCount('finditem') < 8
; endIf
endif
flag=0
flag1=0
########################################

;UO.FindType(PRD,-1,2)
; While UO.FindCount() > 0
; UO.MoveItem('finditem','1',BagSer)
; Wait(500)
; UO.FindType(PRD,-1,2)
; Wend

;UO.FindType(PRD,-1,BagSer)
;UO.Print("V tekushei sumke "+STR(UO.FindCount('finditem'))+" shtyk.")
;UO.Print("Sfizlilo "+STR(fiz)+" raz. Sdelano "+STR(ud)+" shtyk.")
;UO.Print("Fizlov: "+MID((STR(fiz/(fiz+ud)*100)),0,2)+"%")
; If UO.FindCount('finditem') > sum then
; UO.Moveitem(BagSer,'1',BoxFB)
; Wait(500)
; UO.FindType(BoxEB,-1,MainBox)
; UO.FindType(BagType,-1,BoxEB)
; BagSer=UO.GetSerial('finditem')
; UO.Grab('1',BagSer)
; Wait(500)
; UO.MoveItem(BagSer,'1','ground')
; Wait(500)
; Endif
##########################################
until ((uo.skillval("Blacksmithy",1) > 999) or (UO.Dead()))

end sub