Yoko

Posted: **2004-06-18 16:41:57**

Вот кусок скрипта на мининг

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: Select all

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 секунды и только на второй раз начинает рыть, однако таргет(сам крестик, вместо курсора) остаёться. Как это убрать.Совсем это не радует. Мож куда паузу вставить? что то я запутался...

Posted: **2004-06-18 18:17:05**

Psimorph wrote:UO.UseObject('Pickaxe1')

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

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

Code: Select all

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

Posted: **2004-06-18 18:42:22**

Ах да, я забыл упоминуть об этом. Дело в том, что когда я вставляю это, УО пищет мне что то типа :
Usage: Use object object/lasobject/lasttarget/lastcontainer ... мне этот флуд при каждом копке совсем не нравиться..как от него избавиться?

Posted: **2004-06-18 18:45:46**

И однако всё равно сразу рыть не хочет. Ждёт второй попытки...таргет так и остаёться висеть...

Posted: **2004-06-18 21:33:43**

следует осознавать что
UO.UseObject('Pickaxe1')
и
UO.UseObject(Pickaxe1)
обращаются к совершенно разным вещам, более того в разных ситуациях одно из них может быть ошибочным

Posted: **2004-06-18 21:46:23**

А всё, проблема решена, всем спасимбо

Yoko

Я тормозююю или как убрать этот чёртов таргет...>>>

Я тормозююю или как убрать этот чёртов таргет...>>>

Re: Я тормозююю или как убрать этот чёртов таргет...>>

Re: Я тормозююю или как убрать этот чёртов таргет...>>

Re: Я тормозююю или как убрать этот чёртов таргет...>>