Yoko :: ПОМОГИТЕ С МИНИНГОМ!!!!

Yoko http://forum.yoko.com.ua/

ПОМОГИТЕ С МИНИНГОМ!!!! http://forum.yoko.com.ua/viewtopic.php?f=20&t=1140	Page 1 of 1

Author:	zzz123 [ 2004-08-14 11:00:21 ]
Post subject:	ПОМОГИТЕ С МИНИНГОМ!!!!
Напишите плиз скрипт на мининг чтоб капал тока вокруг себя и всё!! Заранее спасибо!!

Author:

M0ke [ 2004-08-15 22:33:44 ]

Post subject:

Re: ПОМОГИТЕ С МИНИНГОМ!!!!

zzz123 wrote:

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

Держи.!

Code:

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

Author:	Yoko [ 2004-08-16 01:39:06 ]
Post subject:
if uo.Weight>820 then ; end sub goto na4 endif это отвратительный кусок кода который нарушает требования автора скриптового модуля к программам. я совершенно не буду удивлён если поработав какое-то время этот скрипт слетит нахер. это только то что сразу бросилось мне в глаза, скрипты длиннее 5 строк я обычно не читаю.

Author:	BETEPAH [ 2004-08-18 13:47:05 ]
Post subject:
Yoko wrote: if uo.Weight>820 then ; end sub goto na4 endif это отвратительный кусок кода который нарушает требования автора скриптового модуля к программам. я совершенно не буду удивлён если поработав какое-то время этот скрипт слетит нахер. это только то что сразу бросилось мне в глаза, скрипты длиннее 5 строк я обычно не читаю. Для zz123 Этот кусок проводит постояную проверку по весу и если у тебя стало больше 820 стоунов то скрипт остоновится....

Page 1 of 1	All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/