script help
Posted: 2007-12-29 12:57:21
Помогоите, как добавить в скрипт проверку на не нужную руду , чтобы копал один раз а которая нужа до конца!:?
sub Mining()
var xc,yc,zc
var s
xc=UO.GetX("self")
yc=UO.GetY("self")
zc=UO.GetZ("self")
var i,j,k
For i=-2 to 2
For j=-2 to 2
Repeat
while not UO.Hidden()
UO.Warmode("0")
uo.print("hiding...")
UO.UseSkill("Hiding")
wait(4000)
wend
UO.DeleteJournal()
s="0 "+STR(xc+i)+" "+STR(yc+j)+" 0" #+STR(zc)
UO.Exec("waittargettile "+s+") #; usetype 0x0e85")
wait(2000)
k=0
Repeat
wait(500)
k=k+1
Until UO.InJournal("You put") or UO.InJournal("There is no ore here to mine.") or UO.InJournal("Vous etes trop loin") or UO.InJournal("You loosen some rocks") or UO.InJournal("That is too far") or UO.InJournal("thoughts of battle") or k>14
if UO.InJournal("destroy") and UO.Count("0x0e85") then
UO.Usetype("0x0e85")
endif
wait(500)
Until UO.InJournal("You have no line of sight") or UO.InJournal("There is no ore here to mine.") or UO.InJournal("That is too far") or UO.InJournal("thoughts of battle") or UO.InJournal("You put the Copper") or UO.InJournal("You put the Bronze") or UO.InJournal("You put the Gold") or UO.InJournal("You put the Rose") or UO.InJournal("There is nothing here") or UO.InJournal("That is too far") or UO.InJournal("elsewhere") or UO.InJournal("of sight to that location")
Next
Next
UO.print("Ana!!!")
end sub
sub Mining()
var xc,yc,zc
var s
xc=UO.GetX("self")
yc=UO.GetY("self")
zc=UO.GetZ("self")
var i,j,k
For i=-2 to 2
For j=-2 to 2
Repeat
while not UO.Hidden()
UO.Warmode("0")
uo.print("hiding...")
UO.UseSkill("Hiding")
wait(4000)
wend
UO.DeleteJournal()
s="0 "+STR(xc+i)+" "+STR(yc+j)+" 0" #+STR(zc)
UO.Exec("waittargettile "+s+") #; usetype 0x0e85")
wait(2000)
k=0
Repeat
wait(500)
k=k+1
Until UO.InJournal("You put") or UO.InJournal("There is no ore here to mine.") or UO.InJournal("Vous etes trop loin") or UO.InJournal("You loosen some rocks") or UO.InJournal("That is too far") or UO.InJournal("thoughts of battle") or k>14
if UO.InJournal("destroy") and UO.Count("0x0e85") then
UO.Usetype("0x0e85")
endif
wait(500)
Until UO.InJournal("You have no line of sight") or UO.InJournal("There is no ore here to mine.") or UO.InJournal("That is too far") or UO.InJournal("thoughts of battle") or UO.InJournal("You put the Copper") or UO.InJournal("You put the Bronze") or UO.InJournal("You put the Gold") or UO.InJournal("You put the Rose") or UO.InJournal("There is nothing here") or UO.InJournal("That is too far") or UO.InJournal("elsewhere") or UO.InJournal("of sight to that location")
Next
Next
UO.print("Ana!!!")
end sub