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

Проверьте плиз такой кусочек ...
http://forum.yoko.com.ua/viewtopic.php?f=3&t=2058		 Page 1 of 1
Author:  gmur [ 2004-11-24 18:03:07 ]
Post subject:  Проверьте плиз такой кусочек ...
Code:
sub mine(PX,PY) 
var x, y,z 
VAR LastTimer 
UO.Set('finddistance','2') 
z=UO.GetZ("self") 
for x=-2 to 2 
for y=-2 to 2 
Hid() 
UO.Print(str(x)+" "+str(y)) 
Repeat 
if UO.InJournal('TORMOZ') then 
pause() 
endif 
UO.DeleteJournal() 
UO.Exec("warmode 0") 
UO.WaitTargetTile("1341",STR(UO.GetX()+x),STR(UO.GetY()+Y),z) 
UO.UseType('0x0F39') 
LastTimer=UO.Timer() 
Repeat 
wait(500) 
Until UO.InJournal("You put") or UO.InJournal("can't see") or UO.InJournal("heavy") or UO.InJournal("location") or UO.InJournal("no ore") 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("elsewhere") or UO.InJournal("where it") OR UO.Timer()>LastTimer+200 
lookout() 
Until UO.InJournal("nothing") or UO.InJournal("elsewhere") or UO.InJournal("no ore here") or UO.InJournal("location") or UO.InJournal("far away") or UO.InJournal("in rock") or UO.InJournal("where it") 
wait(500)
next
next
if UO.InJournal("You put the boulder") then 
UO.findtype('0x134F',-1,'ground') 
if UO.FindCount()>0 then 
UO.waittargetground('0x134F') 
UO.UseType('0x0E85') ; 
wait(500) 
else 
UO.findtype('0x134F',-1,-1) 
if UO.FindCount()>0 then 
UO.WaitTargetType('0x134F') 
UO.UseType('0x0E85') ;????? 
wait(500)    
endif 
endif 
endif 
if UO.Weight>720 then 
unload(PX,PY) 
endif  
end sub

У меня на шарде если копать Билдер лопатой выскакивают булыжники которые можно переработать в стоун блоки удар кирки по ним, вот я написал такой скриптик, подскажите плиз в чём ошибка ? Он не хочет ловить сообщение о появлении булыжника в паке, и соответственно не выполняет удар по ниму киркой..
Помогите плиз, я уже всё перепробовал ни как сам разобраться не могу %(
Author:  Sfagnum [ 2004-11-25 09:06:49 ]
Post subject:  Re: Проверьте плиз такой кусочек ...
Code:
sub mine(PX,PY) 
var x, y,z 
VAR LastTimer 
UO.Set('finddistance','2') 
z=UO.GetZ("self") 
   for x=-2 to 2 
      for y=-2 to 2 
         UO.Print(str(x)+" "+str(y)) 
         Repeat 
            Hid()
            if UO.InJournal('TORMOZ') then 
               pause() 
            endif 
            UO.DeleteJournal() 
            UO.Exec("warmode 0") ## зачем???
            UO.WaitTargetTile("1341",STR(UO.GetX()+x),STR(UO.GetY()+Y),z) 
            UO.UseType('0x0F39') 
            LastTimer=UO.Timer() 
            Repeat 
               wait(500) 
            Until UO.InJournal("You put") or UO.InJournal("can't see") or UO.InJournal("heavy") or UO.InJournal("location") or UO.InJournal("no ore") 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("elsewhere") or UO.InJournal("where it") OR UO.Timer()>LastTimer+200 
            if UO.InJournal("You put the boulder") then 
               UO.findtype('0x134F',-1,'ground') 
               if UO.FindCount()>0 then 
                  UO.waittargetground('0x134F') ## на 'finditem' переделай
                  UO.UseType('0x0E85') ; 
                  wait(500) 
               else 
                  UO.findtype('0x134F',-1,-1) 
                  if UO.FindCount()>0 then 
                     UO.WaitTargetType('0x134F') ## на 'finditem' переделай
                     UO.UseType('0x0E85') ;????? 
                     wait(500)     
                  endif 
               endif 
            endif 
            if UO.Weight>720 then 
               unload(PX,PY) 
            endif 
            lookout() 
         Until UO.InJournal("nothing") or UO.InJournal("elsewhere") or UO.InJournal("no ore here") or UO.InJournal("location") or UO.InJournal("far away") or UO.InJournal("in rock") or UO.InJournal("where it") 
         wait(500)           
      next 
   next 
end sub
ты просматривай журнал сразу после выкапывания, а не после того как всё "гнездо" выкопаешь, т.к. с большой вероятностью данная строка уже покинет журнал ;)

ЗЫ я тебе контроль за весом сдвинул, на "после каждого юза лопаты", и Hid() - я понял, что там ты входишь в хайд - на "перед каждым юзом лопаты"
Author:  gmur [ 2004-11-25 20:12:31 ]
Post subject: 
Спасибо большое за помощь, теперь всё пашет как надо, топик можно закрывать :)
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/