Yoko

All sides of Injection
It is currently 2025-11-06 01:03:15

All times are UTC+02:00




Post new topic  Reply to topic  [ 6 posts ] 
Author Message
PostPosted: 2004-06-18 16:41:57 
Offline
User avatar

Joined: 2004-04-06 12:27:32
Posts: 118
Вот кусок скрипта на мининг
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 секунды и только на второй раз начинает рыть, однако таргет(сам крестик, вместо курсора) остаёться. Как это убрать.Совсем это не радует. Мож куда паузу вставить? что то я запутался...


Top
   
PostPosted: 2004-06-18 18:17:05 
Offline
Expert!

Joined: 2004-04-03 17:36:29
Posts: 2544
Location: Saint-Petersburg
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


Top
   
PostPosted: 2004-06-18 18:42:22 
Offline
User avatar

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


Top
   
PostPosted: 2004-06-18 18:45:46 
Offline
User avatar

Joined: 2004-04-06 12:27:32
Posts: 118
И однако всё равно сразу рыть не хочет. Ждёт второй попытки...таргет так и остаёться висеть...


Top
   
 Post subject:
PostPosted: 2004-06-18 21:33:43 
Offline
Site Admin
User avatar

Joined: 2004-04-03 16:49:38
Posts: 1964
следует осознавать что
UO.UseObject('Pickaxe1')
и
UO.UseObject(Pickaxe1)
обращаются к совершенно разным вещам, более того в разных ситуациях одно из них может быть ошибочным


Top
   
 Post subject:
PostPosted: 2004-06-18 21:46:23 
Offline
User avatar

Joined: 2004-04-06 12:27:32
Posts: 118
А всё, проблема решена, всем спасимбо :)


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 6 posts ] 

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 8 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Limited