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/