Yoko

Напишите плиз скрипт на мининг чтоб капал тока вокруг себя и всё!!
Заранее спасибо!!

Держи.!

sub Mining() 
var mx, my, mz, i, j 
repeat 
 uo.addobject("Shovel",0x4008003D) ;ID Лопаты или кирки 
na4: 
; gotoxy(5136,1181) ;
 mx = UO.GetX("self") 
 my = UO.GetY("self") 
 mz = UO.GetZ("self") 
 UO.DeleteJournal() 
 for i = mx-4 to mx+4 
 for j = my-4 to my+4 
 while not UO.Hidden() 
 UO.Warmode("0") 
 UO.UseSkill("Hiding") 
 wait(4000) 
 wend 
 UO.Print("Now Mining In: "+str(mx-i)+" "+str(my-j)) 
 while not UO.InJournal("no ore here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in rock") 
 UO.DeleteJournal() 
 if uo.waiting() then 
 uo.canceltarget() 
 endif 
UO.Waittargettile("1341", str(i), str(j), str(mz)) 
 UO.Useobject("Shovel") 
 while not UO.InJournal("You put") and not UO.InJournal("heavy") and not UO.InJournal("location") and not UO.InJournal("no ore") and not UO.InJournal("but fail") and not UO.InJournal("far away") and not UO.InJournal("in rock") 
 wait(500) 
 endif 
 wend 
UO.DeleteJournal() 
 if uo.Weight>820 then ; 
 end sub 
 goto na4 
 endif 
 next 
 next 
until uo.dead() 
end sub 

_________________
Ultima Online It's LiFe!
Peace All Smokers!

 if uo.Weight>820 then ;
 end sub
 goto na4
 endif

это отвратительный кусок кода который нарушает требования автора скриптового модуля к программам. я совершенно не буду удивлён если поработав какое-то время этот скрипт слетит нахер.

это только то что сразу бросилось мне в глаза, скрипты длиннее 5 строк я обычно не читаю.

Для zz123

Этот кусок проводит постояную проверку по весу и если у тебя стало больше 820 стоунов то скрипт остоновится....

_________________
Все просто.
BETEPAH ™