Yoko

All sides of Injection
It is currently 2026-03-16 20:35:18

All times are UTC+02:00




Post new topic  Reply to topic  [ 12 posts ] 
Author Message
PostPosted: 2004-10-29 08:17:56 
Offline
Expert!
User avatar

Joined: 2004-07-04 00:14:58
Posts: 1284
у меня тут проблемка возникла, буквально на днях с UO.UseType() на майнинге и тинкеринге, не понятно с чего вдруг теряется ссылка(?) на тип инструмента в бэкпаке, т.е. чар работает - всё ок, а потом упс.. и пишет [b]Item not found[b](вроде так).
кидаешь этот же инструмент(лопата/тинкер тулс) в пак по-новой и всё ок - дальше работает.
через UseObject - замарачиваться чтоль?

ЗЫ этот майнинг юзал в течении 2-3 недель без проблем - non stop'ом

DRW


Top
   
 Post subject:
PostPosted: 2004-10-29 12:58:44 
Offline
Expert!
User avatar

Joined: 2004-04-04 21:40:09
Posts: 1007
Скрипт в студию. Или хотябы фрагментик.


Top
   
 Post subject:
PostPosted: 2004-10-29 13:09:49 
Offline
Expert!
User avatar

Joined: 2004-07-04 00:14:58
Posts: 1284
AGRS wrote:
Скрипт в студию. Или хотябы фрагментик.
дома он... :(
а вообще стандартная конструкция, что-то типа
Code:
sub Dig()
var x,y,z='0',TileNum='1339', t=0
   for x=-1 to 1
      for y=-1 to 1
         while not UO.InJournal("no ore here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in rock")
            ToHide()
            CheckLag()
            UO.WaitTargetTile(TileNum,STR(UO.GetX()+x),STR(UO.GetY()+Y),z)
            UO.UseType(tShovel)
            repeat
               wait(500)
            until UO.InJournal("Try mining") OR UO.InJournal("You put") OR UO.InJournal("You loosen") OR UO.InJournal("There is no") OR UO.InJournal("That is too") OR UO.InJournal("OOPS") OR UO.InJournal("attacking you") OR UO.Dead()
            if UO.InJournal("OOPS") then
               t = 1
            end if
            if UO.InJournal("attacking you") OR UO.Dead() then
               UO.CloseUO()
            end if
         wend
         if t == 1 then
            UO.CloseUO()
         end if
      next
   next
end sub


Top
   
 Post subject:
PostPosted: 2004-10-29 13:48:06 
Offline

Joined: 2004-04-16 17:11:35
Posts: 21
лично по моему опыту

у мну на шарде UO.UseType так и не заработал. я не стал мучатся и дуплить в чем трабла и щас просто использую
UO.Exec("usetype ....")


Top
   
 Post subject:
PostPosted: 2004-10-29 13:49:43 
Offline
Expert!
User avatar

Joined: 2004-07-04 00:14:58
Posts: 1284
South wrote:
лично по моему опыту

у мну на шарде UO.UseType так и не заработал. я не стал мучатся и дуплить в чем трабла и щас просто использую
UO.Exec("usetype ....")
она вообще не работает или всё таки какое то сообщение выдаёт?


Top
   
 Post subject:
PostPosted: 2004-10-29 21:11:50 
Offline
Junior Expert
User avatar

Joined: 2004-04-12 20:26:41
Posts: 150
Где ты описал tShovel? Если она уже заданна в объектах, то напиши UO.UseObject(tShovel), может ты просто ещё лопату кидаешь на пол, она поворачивается и у неё меняется тип, вобщем эксперементируй :)


Top
   
 Post subject:
PostPosted: 2004-10-29 21:21:35 
Offline
Expert!
User avatar

Joined: 2004-04-04 21:40:09
Posts: 1007
Ex-Brodyaga wrote:
Где ты описал tShovel? Если она уже заданна в объектах, то напиши UO.UseObject(tShovel), может ты просто ещё лопату кидаешь на пол, она поворачивается и у неё меняется тип, вобщем эксперементируй :)


В кавычках.


Top
   
 Post subject:
PostPosted: 2004-10-30 01:58:09 
Offline
Expert!
User avatar

Joined: 2004-07-04 00:14:58
Posts: 1284
не там копаете...
вот точно то что юзаю:
Code:
var tShovel='0x0F3A' ; 0x0F39

sub main()
if UO.Count('0x0F3A') > 0 then
   tShovel='0x0F3A'
else
   tShovel='0x0F39'
end if
...
end sub

sub Dig()
var mx = UO.GetX("self"), my = UO.GetY("self"), mz = UO.GetZ("self"),TileNum='1339', t=0
var i,j
   if UO.Dead() then
      UO.Exec('terminate all')
   end if
   for i = mx-1 to mx+1
         for j = my-1 to my+1
            tohide()
            UO.Print("Now Mining In: "+str(mx-i)+" "+str(my-j))
            while not UO.InJournal("no ore here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in rock")                
               tohide()
               CheckLag()
               UO.Waittargettile("1341", str(i), str(j), str(mz))
               UO.Usetype(tShovel)
               while not UO.InJournal("You put") and not UO.InJournal("location") and not UO.InJournal("no ore") and not UO.InJournal("but fail") and not UO.InJournal("far away") and not UO.InJournal("in rock") and not UO.InJournal("OOPS") and not UO.InJournal("attacking you")             
                  wait(500)                   
               wend
               if UO.InJournal('something with ore') or UO.InJournal("OOPS") then
                  t=1
               end if
               if UO.InJournal("but fail") then
                  wait(1000)
               end if               
            wend
            UO.DeleteJournal()
         next
      next
   if t == 1 then       
      UO.CloseUO()
   end if   
   return 1
end sub

и повторюсь перестаёт копать хз когда (ИМХО произвольно), с выше описаным сообщением, при "перекиде" этой же лопаты обратно а бэкпак (ложиться точно так же) продолжает копать...


Top
   
 Post subject:
PostPosted: 2004-10-30 13:24:20 
Offline
Expert!

Joined: 2004-04-03 17:36:29
Posts: 2544
Location: Saint-Petersburg
Sfagnum wrote:
не там копаете...
вот точно то что юзаю:
Code:
var tShovel='0x0F3A' ; 0x0F39

sub main()
if UO.Count('0x0F3A') > 0 then
   tShovel='0x0F3A'
else
   tShovel='0x0F39'
end if
...
end sub

sub Dig()
var mx = UO.GetX("self"), my = UO.GetY("self"), mz = UO.GetZ("self"),TileNum='1339', t=0
var i,j
   if UO.Dead() then
      UO.Exec('terminate all')
   end if
   for i = mx-1 to mx+1
         for j = my-1 to my+1
            tohide()
            UO.Print("Now Mining In: "+str(mx-i)+" "+str(my-j))
            while not UO.InJournal("no ore here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in rock")                
               tohide()
               CheckLag()
               UO.Waittargettile("1341", str(i), str(j), str(mz))
               UO.Usetype(tShovel)
               while not UO.InJournal("You put") and not UO.InJournal("location") and not UO.InJournal("no ore") and not UO.InJournal("but fail") and not UO.InJournal("far away") and not UO.InJournal("in rock") and not UO.InJournal("OOPS") and not UO.InJournal("attacking you")             
                  wait(500)                   
               wend
               if UO.InJournal('something with ore') or UO.InJournal("OOPS") then
                  t=1
               end if
               if UO.InJournal("but fail") then
                  wait(1000)
               end if               
            wend
            UO.DeleteJournal()
         next
      next
   if t == 1 then       
      UO.CloseUO()
   end if   
   return 1
end sub

и повторюсь перестаёт копать хз когда (ИМХО произвольно), с выше описаным сообщением, при "перекиде" этой же лопаты обратно а бэкпак (ложиться точно так же) продолжает копать...


Ну и никакой траблы нет. Абсолютно все логично. Изменение типа лопаты при юзе. Такое может иногда происходить. У тебя же переназначение типа происходит один раз в main, потом при использовании такой проверки уже не происходит. Попробуй переставить этот if...else...endif перед командой UO.UseType(...)


Top
   
 Post subject:
PostPosted: 2004-10-30 13:36:22 
Offline
Expert!
User avatar

Joined: 2004-04-04 21:40:09
Posts: 1007
Нет. Только если на пол кинуть. на ДРВ в паке никогда не флипается.


Top
   
 Post subject:
PostPosted: 2004-10-30 15:32:13 
Offline
Expert!
User avatar

Joined: 2004-07-04 00:14:58
Posts: 1284
AGRS wrote:
Нет. Только если на пол кинуть. на ДРВ в паке никогда не флипается.
не кидается :)


Top
   
 Post subject:
PostPosted: 2004-10-30 17:49:39 
Offline
Expert!
User avatar

Joined: 2004-07-04 00:14:58
Posts: 1284
1. вообщем тип пральный - и не меняется в течении скрипта
2. юзаю вроде тоже правильно.

проблема в том, что в хз какой момент UseType не находит этот тип, который юзается, от чего - вот проблема.


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 12 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