Миниг -вырубка только люксры...

[phil]

люди.. поправте где надо или подскажите где поправить - долбит тока оп одномуму месту (( и то..когда люкср есть ((
акогда руда кончается -стоит наодном месте ((
мsub maining()
VAR Xi,Yi,Y,NoLopati
start:
FOR Xi = -2 TO 2
FOR Yi = -2 TO 2

While not UO.Hidden()
UO.Useskill("Hiding")
Wait(8000)
Wend

UO.Disarm()
Y=0
NoLopati=0
UO.DeleteJournal()
While UO.InJournal("There is nothing")==0 and Y < 100 and NoLopati==0 and UO.InJournal("Try mining in rock")==0 and UO.InJournal("That is too far away")==0 and UO.InJournal("You have no line of sight to that location")==0 and UO.InJournal("You put the Proto")==0
UO.Exec("waittargettile 3126 "+STR(UO.GetX()+Xi)+" "+STR(UO.GetY()+Yi)+" 0")
UO.Exec("usetype 0x0E85")
# UO.Exec("usetype 0x0F39")
Waiter()
# If UO.Count(0x0F39)==0 then
If UO.Count(0x0E85)==0 then
NoLopati=1
End if
If UO.InJournal("You loosen some rocks") then
Y = Y + 1
End if
Wend

Wait(2000)

NEXT
NEXT
goto start
end sub

sub Waiter()
VAR Zdat = 0
UO.DeleteJournal()
While UO.InJournal("You put the")==0 and UO.InJournal("You loosen some rocks")==0 and UO.InJournal("There is nothing")==0 and UO.InJournal("Try mining in rock")==0 and UO.InJournal("That is too far away")==0 and Zdat < 200 and UO.InJournal("You have no line of sight to that location")==0
Wait(100)
Zdat = Zdat + 1
Wend
end sub

[BETEPAH]

Поправь сообщения все под себя ..

[phil]

Да млин.. Если б знал что править ..:-/
сорре.