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

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

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

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:Могу еще поискать отчтики разные

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

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

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

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

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

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