Ищу скрипт на мининг.

Dirol · Post by **Dirol** » 2005-08-09 22:14:59

Помнится давным давно видел я тут скрипт один. Скрипт был на мининг в пещерах по рунам + убийство элек. Но таких скриптов полно, а особенностью того скрипта был вывод отчёта добытого в формате .html. Может у кого-нибудь он остался? Интересует именно отчёт в формате .html. Поиск не работает

Leo · Post by **Leo** » 2005-08-09 22:29:57

Автор Antis. Подсказываю

Dirol · Post by **Dirol** » 2005-08-09 22:39:56

Leo wrote:Автор Antis. Подсказываю

ПАСИБА АГРОМНАЕ!!!
Нашёл.

I'm · Post by **I'm** » 2005-08-09 22:57:45

Code: Select all

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: Select all

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: Select all

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: Select all

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

I'm · Post by **I'm** » 2005-08-09 22:59:58

Могу еще поискать отчтики разные

Dirol · Post by **Dirol** » 2005-08-09 23:10:44

I'm wrote:Могу еще поискать отчтики разные

Поисчите пажалста!

Dirol · Post by **Dirol** » 2005-08-14 19:23:47

I'm wrote:

Code: Select all

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

А как правильно засунуть этот код в этот скрипт?
Я просто вставил в конце. Не работает.

Интуитивно чувствую, что что-то сделал не так.

И ещё, через какое время происходит запись отчёта?

Dirol · Post by **Dirol** » 2005-08-17 20:21:05