Code:
sub Status()
VAR Count, i
uo.Exec('addobject Bag')
while uo.Targeting()
wait(100)
wend
VAR f=file("C:\Mining Status.html")
DIM OreName[30]
OreName[0]="Iron"
OreName[1]="Rusty"
OreName[2]="Old Copper"
OreName[3]="Dull Copper"
OreName[4]="Copper"
OreName[5]="Bronze"
OreName[6]="Silver"
OreName[7]="Gold"
OreName[8]="Shadow"
OreName[9]="Rose"
OreName[10]="Agapite"
OreName[11]="Blood Rock"
OreName[12]="Verite"
OreName[13]="Valorite"
OreName[14]="Mytheril"
OreName[15]="Black Rock"
OreName[16]="Obsidian"
OreName[17]="Plutonium"
OreName[18]="Elvin"
OreName[19]="Gorgan"
OreName[20]="Crystaline"
OreName[21]="Steel"
OreName[22]="Blood Crest"
OreName[23]="Dragon"
OreName[24]="Krynite"
OreName[25]="Vulcan"
OreName[26]="Sand Rock"
OreName[27]="Acid"
OreName[28]="Aqua"
OreName[29]="Eldar"
DIM OreColor[30]
OreColor[0]='0x0000' ; Iron
OreColor[1]='0x0750' ; Rusty
OreColor[2]='0x0590' ; Old Copper
OreColor[3]='0x060A' ; Dull Copper
OreColor[4]='0x0088' ; Copper
OreColor[5]='0x0488' ; Bronze
OreColor[6]='0x0482' ; Silver
OreColor[7]='0x0032' ; Gold
OreColor[8]='0x096B' ; Shadow
OreColor[9]='0x0014' ; Rose
OreColor[10]='0x0193' ; Agapite
OreColor[11]='0x04C2' ; Blood Rock
OreColor[12]='0x07D5' ; Verite
OreColor[13]='0x00CE' ; Valorite
OreColor[14]='0x052D' ; Mytheril
OreColor[15]='0x0455' ; Black Rock
OreColor[16]='0x0028' ; Obsidian
OreColor[17]='0x08AF' ; Plutonium
OreColor[18]='0x09E6' ; Elvin
OreColor[19]='0x09F0' ; Gorgan
OreColor[20]='0x09A4' ; Crystaline
OreColor[21]='0x09D3' ; Steel
OreColor[22]='0x09EC' ; Blood Crest
OreColor[23]='0x0085' ; Dragon
OreColor[24]='0x010F' ; Krynite
OreColor[25]='0x09DA' ; Vulcan
OreColor[26]='0x008F' ; Sand Rock
OreColor[27]='0x09B9' ; Acid
OreColor[28]='0x0060' ; Aqua
OreColor[29]='0x0BA7' ; Eldar
f.Create()
f.Open()
f.WriteLn("<HTML>")
f.WriteLn("<HEAD>")
f.WriteLn("<TITLE>Mining Status</title>")
f.WriteLn("</head>")
f.WriteLn("<BODY>")
f.WriteLn("<HR>")
f.WriteLn("<B><FONT color=2000a0>Mining status.</font></b><BR>")
f.WriteLn("<HR>")
For i=0 to 29
UO.FindType(-1,OreColor[i],'Bag')
Count=UO.GetQuantity('finditem')
If i<=17 AND Count<>0 then
f.WriteLn("<B><FONT color=gren>"+str(Count)+"</font></b>: <B><FONT
color=2000a0>"+OreName[i]+"</font></b><BR>")
EndIf
If i<=17 AND Count==0 then
f.WriteLn("<B><FONT color=gold>"+str(Count)+"</font></b>: <B><FONT
color=2000a0>"+OreName[i]+"</font></b><BR>")
EndIf
If i==17 then
f.WriteLn("<BR>")
EndIf
If i>17 And Count<>0 then
f.WriteLn("<B><FONT color=red>"+str(Count)+"</font></b>: <B><FONT
color=2000a0>"+OreName[i]+"</font></b><BR>")
EndIf
If i>17 AND Count==0 then
f.WriteLn("<B><FONT color=gold>"+str(Count)+"</font></b>: <B><FONT
color=2000a0>"+OreName[i]+"</font></b><BR>")
EndIf
Next
f.WriteLn("<HR>")
f.WriteLn("</body>")
f.WriteLn("</html>")
f.Close()
end sub
Code:
sub Status()
VAR Count, i
UO.Exec('addobject OreBag')
While UO.Targeting()
Wait(100)
Wend
DIM OreName[30]
OreName[0]="Iron"
OreName[1]="Rusty"
OreName[2]="Old Copper"
OreName[3]="Dull Copper"
OreName[4]="Copper"
OreName[5]="Bronze"
OreName[6]="Silver"
OreName[7]="Gold"
OreName[8]="Shadow"
OreName[9]="Rose"
OreName[10]="Agapite"
OreName[11]="Blood Rock"
OreName[12]="Verite"
OreName[13]="Valorite"
OreName[14]="Mytheril"
OreName[15]="Black Rock"
OreName[16]="Obsidian"
OreName[17]="Plutonium"
OreName[18]="Elvin"
OreName[19]="Gorgan"
OreName[20]="Crystaline"
OreName[21]="Steel"
OreName[22]="Blood Crest"
OreName[23]="Dragon"
OreName[24]="Krynite"
OreName[25]="Vulcan"
OreName[26]="Sand Rock"
OreName[27]="Acid"
OreName[28]="Aqua"
OreName[29]="Eldar"
DIM OreColor[30]
OreColor[0]='0x0000' ; Iron
OreColor[1]='0x0750' ; Rusty
OreColor[2]='0x0590' ; Old Copper
OreColor[3]='0x060A' ; Dull Copper
OreColor[4]='0x0088' ; Copper
OreColor[5]='0x0488' ; Bronze
OreColor[6]='0x0482' ; Silver
OreColor[7]='0x0032' ; Gold
OreColor[8]='0x096B' ; Shadow
OreColor[9]='0x0014' ; Rose
OreColor[10]='0x0193' ; Agapite
OreColor[11]='0x04C2' ; Blood Rock
OreColor[12]='0x07D5' ; Verite
OreColor[13]='0x00CE' ; Valorite
OreColor[14]='0x052D' ; Mytheril
OreColor[15]='0x0455' ; Black Rock
OreColor[16]='0x0028' ; Obsidian
OreColor[17]='0x08AF' ; Plutonium
OreColor[18]='0x09E6' ; Elvin
OreColor[19]='0x09F0' ; Gorgan
OreColor[20]='0x09A4' ; Crystaline
OreColor[21]='0x09D3' ; Steel
OreColor[22]='0x09EC' ; Blood Crest
OreColor[23]='0x0085' ; Dragon
OreColor[24]='0x010F' ; Krynite
OreColor[25]='0x09DA' ; Vulcan
OreColor[26]='0x008F' ; Sand Rock
OreColor[27]='0x09B9' ; Acid
OreColor[28]='0x0060' ; Aqua
OreColor[29]='0x0BA7' ; Eldar
For i=0 to 29
UO.TextOpen()
UO.FindType(-1,OreColor[i],'OreBag')
Count=UO.GetQuantity('finditem')
UO.TextPrint(' '+str(Count)+' : '+OreName[i])
Next
end sub
Code:
sub Status()
VAR Count, i
UO.Exec('addobject TreeBag')
While UO.Targeting()
Wait(100)
Wend
VAR f=file("C:\Lumberjacking Status.html")
DIM TreeName[21]
TreeName[0]="Logs"
TreeName[1]="Oak"
TreeName[2]="Red Tree"
TreeName[3]="Dark Tree"
TreeName[4]="Swamp"
TreeName[5]="Silver Leaf"
TreeName[6]="Keranit"
TreeName[7]="Perit"
TreeName[8]="Petrified"
TreeName[9]="Dragon Tree"
TreeName[10]="Vampire Tree"
TreeName[11]="Eridan"
TreeName[12]="Hellios"
TreeName[13]="Illusions Tree"
TreeName[14]="Crystal"
TreeName[15]="Dead Tree"
TreeName[16]="Paradise"
TreeName[17]="Titan Tree"
TreeName[18]="Avalon"
TreeName[19]="Elven"
TreeName[20]="Asterxylon"
DIM TreeColor[21]
TreeColor[0]='0x0000' ; Logs
TreeColor[1]='0x047C' ; Oak
TreeColor[2]='0x0279' ; Red Tree
TreeColor[3]='0x096B' ; Dark Tree
TreeColor[4]='0x0237' ; Swamp
TreeColor[5]='0x0482' ; Silver Leaf
TreeColor[6]='0x010F' ; Keranit
TreeColor[7]='0x0014' ; Perit
TreeColor[8]='0x03C1' ; Petrified
TreeColor[9]='0x0085' ; Dragon Tree
TreeColor[10]='0x04C2' ; Vampire Tree
TreeColor[11]='0x0033' ; Eridan
TreeColor[12]='0x002B' ; Hellios
TreeColor[13]='0x0071' ; Illusions Tree
TreeColor[14]='0x09A4' ; Crystal
TreeColor[15]='0x0B82' ; Dead Tree
TreeColor[16]='0x00BE' ; Paradise
TreeColor[17]='0x00BE' ; Titan Tree
TreeColor[18]='0x0BB6' ; Avalon
TreeColor[19]='0x0487' ; Elven
TreeColor[20]='0x0498' ; Asterxylon
f.Create()
f.Open()
f.WriteLn("<HTML>")
f.WriteLn("<HEAD>")
f.WriteLn("<TITLE>Lumberjacking Status.</title>")
f.WriteLn("</head>")
f.WriteLn("<BODY>")
f.WriteLn("<HR>")
f.WriteLn("<B><FONT color=2000a0>Lumberjacking Status.</font></b><BR>")
f.WriteLn("<HR>")
For i=0 to 20
UO.FindType('0x1BDD',TreeColor[i],'TreeBag')
Count=UO.GetQuantity('finditem')
If i<=20 AND Count<>0 then
f.WriteLn("<B><FONT color=red>"+str(Count)+"</font></b>: <B><FONT
color=2000a0>"+TreeName[i]+"</font></b><BR>")
endif
If i<=20 AND Count==0 then
f.WriteLn("<B><FONT color=gold>"+str(Count)+"</font></b>: <B><FONT
color=2000a0>"+TreeName[i]+"</font></b><BR>")
EndIf
If i==15 then
f.WriteLn("<BR>")
EndIf
Next
f.WriteLn("<HR>")
f.WriteLn("</body>")
f.WriteLn("</html>")
f.Close()
end sub
Code:
sub Status()
VAR Count, i
UO.Exec('addobject TreeBag')
While UO.Targeting()
Wait(100)
Wend
DIM TreeName[21]
TreeName[0]="Logs"
TreeName[1]="Oak"
TreeName[2]="Red Tree"
TreeName[3]="Dark Tree"
TreeName[4]="Swamp"
TreeName[5]="Silver Leaf"
TreeName[6]="Keranit"
TreeName[7]="Perit"
TreeName[8]="Petrified"
TreeName[9]="Dragon Tree"
TreeName[10]="Vampire Tree"
TreeName[11]="Eridan"
TreeName[12]="Hellios"
TreeName[13]="Illusions Tree"
TreeName[14]="Crystal"
TreeName[15]="Dead Tree"
TreeName[16]="Paradise"
TreeName[17]="Titan Tree"
TreeName[18]="Avalon"
TreeName[19]="Elven"
TreeName[20]="Asterxylon"
DIM TreeColor[21]
TreeColor[0]='0x0000' ; Logs
TreeColor[1]='0x047C' ; Oak
TreeColor[2]='0x0279' ; Red Tree
TreeColor[3]='0x096B' ; Dark Tree
TreeColor[4]='0x0237' ; Swamp
TreeColor[5]='0x0482' ; Silver Leaf
TreeColor[6]='0x010F' ; Keranit
TreeColor[7]='0x0014' ; Perit
TreeColor[8]='0x03C1' ; Petrified
TreeColor[9]='0x0085' ; Dragon Tree
TreeColor[10]='0x04C2' ; Vampire Tree
TreeColor[11]='0x0033' ; Eridan
TreeColor[12]='0x002B' ; Hellios
TreeColor[13]='0x0071' ; Illusions Tree
TreeColor[14]='0x09A4' ; Crystal
TreeColor[15]='0x0B82' ; Dead Tree
TreeColor[16]='0x00BE' ; Paradise
TreeColor[17]='0x00BE' ; Titan Tree
TreeColor[18]='0x0BB6' ; Avalon
TreeColor[19]='0x0487' ; Elven
TreeColor[20]='0x0498' ; Asterxylon
For i=0 to 20
UO.TextOpen()
UO.FindType('0x1BDD',TreeColor[i],'TreeBag')
Count=UO.GetQuantity('finditem')
UO.TextPrint(' '+str(Count)+' : '+TreeName[i])
Next
end sub
Register
Login
FAQ
Search
Интуитивно чувствую, что что-то сделал не так. 