Yoko http://forum.yoko.com.ua/ |
|
Нужно подправить скрипт. http://forum.yoko.com.ua/viewtopic.php?f=17&t=15198 |
Page 1 of 1 |
Author: | Bel'zebuba [ 2009-10-19 08:15:24 ] |
Post subject: | Нужно подправить скрипт. |
Можете тут сделать чтобы он когда выкопает руду сразу , копал бы на другой клетке и т.д , чтобы 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 и есть у кого дуделка? чтобы если тебя атакуют , звучал бы звонок какой или другой звук. |
Author: | Bel'zebuba [ 2009-10-23 09:32:06 ] |
Post subject: | |
может кто помоч? пожалуйста. |
Author: | Mirage [ 2009-10-23 15:27:16 ] |
Post subject: | |
or UO.InJournal("You put") в последний Until добавь |
Page 1 of 1 | All times are UTC+02:00 |
Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/ |