Yoko

Можете тут сделать чтобы он когда выкопает руду сразу , копал бы на другой клетке и т.д , чтобы 2 раз уже не жал на туже клетку.

sub mineone()
var x,y,z, n , type_tool
VAR LastTimer
UO.Set('finddistance','2')
n=0
z=UO.GetZ("self")
for x=-2 to 2
for y=-2 to 2
UO.Print(str(x)+" "+str(y))
type_tool='0x0E85'
Repeat
if UO.InJournal('TORMOZ') then
pause()
endif
UO.DeleteJournal()
UO.Warmode("0")
if uo.waiting() then
uo.canceltarget()
endif
UO.WaitTargetTile("1341",STR(UO.GetX()+x),STR(UO.GetY()+Y),str(z))
UO.UseType(type_tool)
LastTimer=UO.Timer()
Repeat
wait(6000)
Until uo.injournal("You cannot gather this ore using another tool") or UO.InJournal("You put") or UO.InJournal("can't see") or UO.InJournal("heavy") or UO.InJournal("location") or UO.InJournal("There is no ore there") or UO.InJournal("but fail") or UO.InJournal("far away") or UO.InJournal("in rock") or UO.InJournal("must wait") or UO.InJournal("nothing") or UO.InJournal("Try mining elsewhere") or UO.InJournal("where it") OR UO.Timer()>LastTimer+200
if uo.injournal("You cannot gather this ore using another tool") then
type_tool='0x0F39' # вставить сюда тип лопаты
endif
if UO.InJournal("You put") then
n=0
else
n=n+1
endif
Until UO.InJournal("nothing") or UO.InJournal("Try mining elsewhere") or UO.InJournal("There is no ore there") or UO.InJournal("location") or UO.InJournal("far away") or UO.InJournal("in rock") or UO.InJournal("where it") or n>=5
next
next
end sub


также на сервере есть очень интересная защита от макроса, если кому интересно и хочет помоч напишите в Icq : 495-470-663

и есть у кого дуделка? чтобы если тебя атакуют , звучал бы звонок какой или другой звук.

может кто помоч? пожалуйста.

or UO.InJournal("You put") в последний Until добавь

_________________

YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"
Стрелялка для олдов.