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

Я тормозююю или как убрать этот чёртов таргет...>>>
http://forum.yoko.com.ua/viewtopic.php?f=20&t=597		 Page 1 of 1
Author:  Psimorph [ 2004-06-18 16:41:57 ]
Post subject:  Я тормозююю или как убрать этот чёртов таргет...>>>
Вот кусок скрипта на мининг
Code:
Repeat 
if UO.Life<1 then
      ress()
endif
   testpickaxe()
   UO.DeleteJournal()
   EquipPickaxe()
   wait(500)
   UO.WaitTargetTile(Str(T),Str(X),Str(Y),Str(Z)) 
   wait(500)
   UO.UseObject('Pickaxe1')
   wait(4500)
;0xAD00 - No logs
;0xA2DE - To far away
Until UO.InJournal('0xAD00') or UO.InJournal('0xA2DE') or (UO.Life<1)
If UO.InJournal('0xAD00') or UO.InJournal('0xA2DE') Then 
uo.canceltarget()
GoTo Beg 
EndIf


и вот
Code:
Sub EquipPickaxe() 
Var E=UO.ObjAtLayer('Lhand') 
E=UO.GetGraphic(E) 
Var J=True 
If (E<>Pickaxe1) and (E<>Pickaxe2) Then 
  If UO.Count(Pickaxe1)>0 Then 
   UO.FindType(Pickaxe1,'-1','backpack') 
  Else 
   If UO.Count(Pickaxe2)>0 Then 
    UO.FindType(Pickaxe2,'-1','backpack') 
   Else 
    UO.SetGlobal('process','no') 
    J=False 
   EndIf 
  EndIf 
  UO.UseObject('finditem') 
EndIf 
Wait(3200) 
RETURN J 
EndSub


При подходе к месту рытия, появляеться таргет, но рыть не начинает. Я не пойму, почему...чар есессено ждёт 4.5 секунды и только на второй раз начинает рыть, однако таргет(сам крестик, вместо курсора) остаёться. Как это убрать.Совсем это не радует. Мож куда паузу вставить? что то я запутался...
Author:  Edred [ 2004-06-18 18:17:05 ]
Post subject:  Re: Я тормозююю или как убрать этот чёртов таргет...>>
Psimorph wrote:
UO.UseObject('Pickaxe1')


Замени на использование предмета в левой руке:
UO.UseObject(UO.ObjAtLayer('Lhand'))

Потому как кирок может быть два типа, да и ты процедурой EquipPickaxe уже и так ее взял в руку:

Code:
Sub EquipPickaxe() 
Var E=UO.ObjAtLayer('Lhand') 
E=UO.GetGraphic(E) 
Var J=True 
If (E<>Pickaxe1) and (E<>Pickaxe2) Then 
  If UO.Count(Pickaxe1)>0 Then 
   UO.FindType(Pickaxe1,'-1','backpack') 
  Else 
   If UO.Count(Pickaxe2)>0 Then 
    UO.FindType(Pickaxe2,'-1','backpack') 
   Else 
    UO.SetGlobal('process','no') 
    J=False 
   EndIf 
  EndIf 
  UO.UseObject('finditem') 
EndIf 
Wait(3200) 
RETURN J 
EndSub
Author:  Psimorph [ 2004-06-18 18:42:22 ]
Post subject:  Re: Я тормозююю или как убрать этот чёртов таргет...>>
Ах да, я забыл упоминуть об этом. Дело в том, что когда я вставляю это, УО пищет мне что то типа :
Usage: Use object object/lasobject/lasttarget/lastcontainer ... мне этот флуд при каждом копке совсем не нравиться..как от него избавиться?
Author:  Psimorph [ 2004-06-18 18:45:46 ]
Post subject:  Re: Я тормозююю или как убрать этот чёртов таргет...>>
И однако всё равно сразу рыть не хочет. Ждёт второй попытки...таргет так и остаёться висеть...
Author:  Yoko [ 2004-06-18 21:33:43 ]
Post subject: 
следует осознавать что
UO.UseObject('Pickaxe1')
и
UO.UseObject(Pickaxe1)
обращаются к совершенно разным вещам, более того в разных ситуациях одно из них может быть ошибочным
Author:  Psimorph [ 2004-06-18 21:46:23 ]
Post subject: 
А всё, проблема решена, всем спасимбо :)
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/