Можете тут сделать чтобы он когда выкопает руду сразу , копал бы на другой клетке и т.д , чтобы 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
и есть у кого дуделка? чтобы если тебя атакуют , звучал бы звонок какой или другой звук.
Нужно подправить скрипт.
Moderators: Murderator+, Murderator
