Yoko

All sides of Injection
It is currently 2025-12-03 07:46:35

Unanswered topics | Active topics


» » »

All times are UTC+02:00



Post new topic  Reply to topic  Page 1 of 1
  [ 13 posts ] 
  Print view Previous topic | Next topic 
Author Message
ZL_OY
PostPosted: 2006-09-14 17:12:29 
Offline
User avatar

Joined: 2006-09-14 17:05:50
Posts: 12
Шард ДРВ. Скрипт начинает работать, спрашивает мешки сундуки, открывает первую карту берет руну из сундука дальше идёт вопрос о имени руны и скрипт останавливается...
Давно не играл на ДРВ видимо что то поменялось с рунами (Возможно то что их теперь нельзя перемарчивать)
Если кто знает в чём дело помогите пожалуйста.

Code:
sub CartSort() 
   VAR Exit, Exit2, Buffer, Buffer2, i, Line, MapX, MapY 
   VAR Index=1, MapSerial, BagSerial, MatchFound 
   VAR StepRound=300 ; razbros koordinat 
   VAR WaitTime=500 ;  pauza 

;   VAR f=file("maps.txt") 
    
   DIM X[255],Y[255],Bag[255] 

   uo.exec('set injectecho 1') 
;   f.Create() 
;   f.Open() 

   UO.Print('Vibery meshok s kartamy!') 
   UO.AddObject('SourceBag') 
   While UO.Targeting()==2 
      wait(500) 
   Wend 
   UO.UseObject('SourceBag') 

   UO.Print('Vibery portfel dlya kart!') 
   UO.AddObject('ReceiveBag') 
   While UO.Targeting()==2 
      wait(500) 
   Wend 
   UO.UseObject('ReceiveBag') 

   UO.Print('Vibery portfel s pustimi meshkami i runami!') 
   UO.AddObject('SkladBag') 
   While UO.Targeting()==2 
      wait(500) 
   Wend 
   UO.UseObject('SkladBag') 


   UO.IgnoreReset() 
   Exit=0 
   While Exit<>1 
      UO.FindType('0x0E76',-1,'ReceiveBag') ; meshok 
      IF UO.GetQuantity('finditem')>0 Then 
         Bag[Index]=UO.GetSerial('finditem') 
         UO.UseObject(Bag[Index]) 
         wait(WaitTime) 
         UO.FindType('0x1F14',-1,Bag[Index]); runa 
         IF UO.GetQuantity('finditem')>0 Then 
            UO.DeleteJournal() 
            UO.Click('finditem') 
            Repeat 
               Wait(500) 
            Until UO.InJournal("rune to") 
            Line=UO.InJournal("rune to")-1 
            Buffer=UO.Journal(Line) 

            Buffer2="" 
            Exit2=0 
            i=8 
            While Exit2<>1 
               If Buffer[i]<>":" Then 
                  Buffer2=Buffer2+Buffer[i] 
               Else 
                  Exit2=1 
               Endif              
               i=i+1 
            Wend 
            MapX=VAl(Buffer2) 

            Buffer2="" 
            Exit2=0 
            While Exit2<>1 
               If Buffer[i]<>"" Then 
                  Buffer2=Buffer2+Buffer[i] 
               Else 
                  Exit2=1 
               Endif              
               i=i+1 
            Wend 
            MapY=VAl(Buffer2) 

            X[Index]=MapX 
            Y[Index]=MapY 
            UO.Ignore(Bag[Index]) 
         Else 
            UO.MoveItem(Bag[Index],'1','SkladBag') 
            wait(WaitTime) 
            Index=Index-1 
         Endif 
         Index=Index+1 
      Else 
         Exit=1 
      Endif 

   Wend 


   Exit=0 
   While Exit<>1 
      UO.FindType('0x14EB',-1,'SourceBag') 
      If UO.GetQuantity('finditem')>0 Then 
         UO.DeleteJournal() 
         UO.MoveItem('finditem','1','backpack') 
         wait(WaitTime) 
         UO.UseObject('finditem') 
             
         MapSerial=UO.GetSerial('finditem') 
         Repeat 
            wait(500) 
         Until UO.InJournal("Map opened") 
         Line=UO.InJournal("Map opened")-1 
         Buffer=UO.Journal(Line) 

         Buffer2="" 
         Exit2=0 
         i=15 
         While Exit2<>1 
            If Buffer[i]<>":" Then 
               Buffer2=Buffer2+Buffer[i] 
            Else 
               Exit2=1 
            Endif              
            i=i+1 
         Wend 
         MapX=VAl(Buffer2) 

         Buffer2="" 
         Exit2=0 
         While Exit2<>1 
            If Buffer[i]<>"" Then 
               Buffer2=Buffer2+Buffer[i] 
            Else 
               Exit2=1 
            Endif              
            i=i+1 
         Wend 
         MapY=VAl(Buffer2) 

         i=1 
         Exit2=0 
         MatchFound=0 
         While i<Index AND Exit2<>1 
            If X[i]-StepRound<MapX AND X[i]+StepRound>MapX Then 
               If Y[i]-StepRound<MapY AND Y[i]+StepRound>MapY Then 
                  BagSerial=Bag[i] 
                  MatchFound=1 
                  Exit2=1 
               Endif 
            EndIf 
            i=i+1 
         Wend 

         If MatchFound Then 
            UO.MoveItem(MapSerial,'1',BagSerial) 
            wait(WaitTime) 
         Else 
            UO.FindType('0x0E76',-1,'SkladBag') ; meshok 
            IF UO.GetQuantity('finditem')>0 Then 
               UO.MoveItem('finditem','1','ReceiveBag') 
               Bag[Index]=UO.GetSerial('finditem') 
               X[Index]=MapX 
               Y[Index]=MapY 
               wait(WaitTime) 
               UO.FindType('0x1F14',-1,'SkladBag'); runa 
               IF UO.GetQuantity('finditem')>0 Then 
                  UO.MoveItem('finditem','1','backpack') ; runa to pack 
                  wait(WaitTime) 
                  UO.UseObject('finditem') 
                  Repeat 
                     Wait(500) 
                  Until UO.InJournal("enter a") 
                  UO.Say(STR(MapX)+":"+STR(MapY)) 
                  wait(WaitTime) 
                  UO.MoveItem('finditem','1',Bag[Index]) ; runa to meshok 
                  wait(WaitTime) 
                  UO.MoveItem(MapSerial,'1',Bag[Index]) 
                  wait(WaitTime) 
               Else 
                  Exit=1 
                  UO.Print("Error! Kon4ilis pustie runy!") 
               Endif 
               Index=Index+1 
            Else 
               Exit=1 
               UO.Print("Error! Kon4ilis pustie sumki!") 
            Endif 
         Endif 
;         UO.Print(STR(MapX)+" "+STR(MapY)) 
;         f.WriteLn(STR(MapX)+" "+STR(MapY)) 
         wait(WaitTime) 
      Else 
         Exit=1 
      Endif 
   Wend 

;   f.Close() 
   UO.Print("Done!!!") 
end sub
Top
   
Reply with quote  
ZL_OY
 Post subject:
PostPosted: 2006-09-14 21:20:04 
Offline
User avatar

Joined: 2006-09-14 17:05:50
Posts: 12
Сидел пытался разобратся но скрипт слишком сложный многого не понимаю в нём но видимо что то не правельно в этом куске:

Code:
            UO.Click('finditem') 
            Repeat 
               Wait(500) 
            Until UO.InJournal("rune to") 
            Line=UO.InJournal("rune to")-1 
            Buffer=UO.Journal(Line) 

            Buffer2="" 
            Exit2=0 
            i=8 
            While Exit2<>1 
               If Buffer[i]<>":" Then 
                  Buffer2=Buffer2+Buffer[i] 
               Else 
                  Exit2=1 
               Endif              
               i=i+1 
            Wend 
            MapX=VAl(Buffer2) 

            Buffer2="" 
            Exit2=0 
            While Exit2<>1 
               If Buffer[i]<>"" Then 
                  Buffer2=Buffer2+Buffer[i] 
               Else 
                  Exit2=1 
               Endif              
               i=i+1 
            Wend 
            MapY=VAl(Buffer2) 

            X[Index]=MapX 
            Y[Index]=MapY 
            UO.Ignore(Bag[Index]) 
         Else 
            UO.MoveItem(Bag[Index],'1','SkladBag') 
           



Это он выполняет поскольку спрашивает нэйм руны:
Code:
UO.Click('finditem')

Дальше останавливается....
Люди поопытнее помогите пожалуйста.
Top
   
Reply with quote  
DerMeister =)
 Post subject:
PostPosted: 2006-09-14 21:53:46 
Offline
Expert!
User avatar

Joined: 2006-02-25 21:48:38
Posts: 1032
Людям поопытнее впадлу читать столько строк "слепого" кода...

_________________
DerMeister сейчас на нейрале!
Top
   
Reply with quote  
Savage
 Post subject:
PostPosted: 2006-09-15 07:04:31 
Offline
Expert!
User avatar

Joined: 2004-04-04 11:13:54
Posts: 1205
Location: Балаково, Саратовская обл.
В скрипте ничего сложного нет. Если он перестал работать значит изменились правила игры на ДРВ.
При открывании разгаданной карты высвечиваются координаты расположения карты, которые запоминаются в качестве имени руны. Если карта не разгадана, скрипт тыркает в нее еще раз. Далее проверяется массив рун из открытых ранее мешков, на предмет существования мешка с данной локацией. Если такого нет то создается новый мешок если есть, карта отправляется в существующий.

Руны использовались потому что их можно было промарчить по месту клада. Если руны теперь не подходят можно использовать книжечки для записи. Любой объект который можно назвать.

Известная бага - карта с 3-х значными координатами тормозит скрипт. То есть расчитано на 1234:1234.
Может формат вывода координат поменялся?
Top
   
Reply with quote  
ZL_OY
 Post subject:
PostPosted: 2006-09-15 10:43:29 
Offline
User avatar

Joined: 2006-09-14 17:05:50
Posts: 12
А где то место в скрипте когда он ищет выданные при открытии координаты карты и запоминает?
Top
   
Reply with quote  
Savage
 Post subject:
PostPosted: 2006-09-15 13:33:03 
Offline
Expert!
User avatar

Joined: 2004-04-04 11:13:54
Posts: 1205
Location: Балаково, Саратовская обл.
Code:
         MapSerial=UO.GetSerial('finditem') 
         Repeat 
            wait(500) 
         Until UO.InJournal("Map opened") 
         Line=UO.InJournal("Map opened")-1 
         Buffer=UO.Journal(Line) 

         Buffer2="" 
         Exit2=0 
         i=15 
         While Exit2<>1 
            If Buffer[i]<>":" Then 
               Buffer2=Buffer2+Buffer[i] 
            Else 
               Exit2=1 
            Endif              
            i=i+1 
         Wend 
         MapX=VAl(Buffer2) 

         Buffer2="" 
         Exit2=0 
         While Exit2<>1 
            If Buffer[i]<>"" Then 
               Buffer2=Buffer2+Buffer[i] 
            Else 
               Exit2=1 
            Endif              
            i=i+1 
         Wend 
         MapY=VAl(Buffer2)



Top
   
Reply with quote  
ZL_OY
 Post subject:
PostPosted: 2006-09-15 15:52:22 
Offline
User avatar

Joined: 2006-09-14 17:05:50
Posts: 12
Вроде всё правильно... =( Ничего с картами не менялось только руны менялись но и с книжками не пашет первую карту открыл нэйм руны спрашивает и встаёт... я так понимаю он должен эту руну как то обозвать но не обзывает...
Саваж это твой скрипт я так понял?
МОжеш оригинал выложить пожалуста?
Top
   
Reply with quote  
Savage
 Post subject:
PostPosted: 2006-09-15 20:22:58 
Offline
Expert!
User avatar

Joined: 2004-04-04 11:13:54
Posts: 1205
Location: Балаково, Саратовская обл.
Вот. Сортирует карты близко расположенных кладов.
Делал под заказ, не бесплатно. Но срок давности уже вышел...
значит в паке портфель с пустыми мешками и бланк рунами, портфель для карт пустой или уже с сортированными мешками (токо не доводите количество карт до 255 а то скрипт собъется), и мешок с картами.
Помнится что заказчик запустил с трудом, хз почему.

Не работает у многих изза инжект эха, вообщем исправил и паузу поменьше поставил, если будет путать карты то побольше ставьте...
По просьбам трудящихся переделал скрипт для работы не из пака.

Code:
###############################################################
#===---====---===---= Sort Treasure Map =---=---=---=---=---==#
#           Scripted by Savage (c) 2004 ICQ:33336141          #
#"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""#
sub CartSort()
;   VAR f=file("maps.txt")
   VAR Exit, Exit2, Buffer, Buffer2, i, Line, MapX, MapY
   VAR Index=1, MapSerial, BagSerial, MatchFound
   VAR StepRound=40 ; razbros koordinat
   VAR WaitTime=500 ;  pauza
   
   DIM X[255],Y[255],Bag[255]

   uo.exec('set injectecho 1')
;   f.Create()
;   f.Open()

   UO.Print('Vibery meshok s kartamy!')
   UO.AddObject('SourceBag')
   While UO.Targeting()==2
      wait(500)
   Wend
   UO.UseObject('SourceBag')

   UO.Print('Vibery portfel dlya kart!')
   UO.AddObject('ReceiveBag')
   While UO.Targeting()==2
      wait(500)
   Wend
   UO.UseObject('ReceiveBag')

   UO.Print('Vibery portfel s pustimi meshkami i runami!')
   UO.AddObject('SkladBag')
   While UO.Targeting()==2
      wait(500)
   Wend
   UO.UseObject('SkladBag')


   UO.IgnoreReset()
   Exit=0
   While Exit<>1
      UO.FindType('0x0E76',-1,'ReceiveBag') ; meshok
      IF UO.GetQuantity('finditem')>0 Then
         Bag[Index]=UO.GetSerial('finditem')
         UO.UseObject(Bag[Index])
         wait(WaitTime)
         UO.FindType('0x1F14',-1,Bag[Index]); runa
         IF UO.GetQuantity('finditem')>0 Then
            UO.DeleteJournal()
            UO.Click('finditem')
            Repeat
               Wait(500)
            Until UO.InJournal("Rune to")
            Line=UO.InJournal("Rune to")-1
            Buffer=UO.Journal(Line)

            Buffer2=""
            Exit2=0
            i=8
            While Exit2<>1
               If Buffer[i]<>":" Then
                  Buffer2=Buffer2+Buffer[i]
               Else
                  Exit2=1
               Endif            
               i=i+1
            Wend
            MapX=VAl(Buffer2)

            Buffer2=""
            Exit2=0
            While Exit2<>1
               If Buffer[i]<>"" Then
                  Buffer2=Buffer2+Buffer[i]
               Else
                  Exit2=1
               Endif            
               i=i+1
            Wend
            MapY=VAl(Buffer2)

            X[Index]=MapX
            Y[Index]=MapY
            UO.Ignore(Bag[Index])
         Else
            UO.MoveItem(Bag[Index],'1','SkladBag')
            wait(WaitTime)
            Index=Index-1
         Endif
         Index=Index+1
      Else
         Exit=1
      Endif

   Wend


   Exit=0
   While Exit<>1
      UO.FindType('0x14EB',-1,'SourceBag')
      If UO.GetQuantity('finditem')>0 Then
         UO.DeleteJournal()
         UO.MoveItem('finditem','1','backpack')
         wait(WaitTime)
         UO.UseObject('finditem')
         MapSerial=UO.GetSerial('finditem')
         Repeat
            wait(500)
         Until UO.InJournal("Map opened")
         Line=UO.InJournal("Map opened")-1
         Buffer=UO.Journal(Line)

         Buffer2=""
         Exit2=0
         i=15
         While Exit2<>1
            If Buffer[i]<>":" Then
               Buffer2=Buffer2+Buffer[i]
            Else
               Exit2=1
            Endif            
            i=i+1
         Wend
         MapX=VAl(Buffer2)

         Buffer2=""
         Exit2=0
         While Exit2<>1
            If Buffer[i]<>"" Then
               Buffer2=Buffer2+Buffer[i]
            Else
               Exit2=1
            Endif            
            i=i+1
         Wend
         MapY=VAl(Buffer2)

         i=1
         Exit2=0
         MatchFound=0
         While i<Index AND Exit2<>1
            If X[i]-StepRound<MapX AND X[i]+StepRound>MapX Then
               If Y[i]-StepRound<MapY AND Y[i]+StepRound>MapY Then
                  BagSerial=Bag[i]
                  MatchFound=1
                  Exit2=1
               Endif
            EndIf
            i=i+1
         Wend

         If MatchFound Then
            UO.MoveItem(MapSerial,'1',BagSerial)
            wait(WaitTime)
         Else
            UO.FindType('0x0E76',-1,'SkladBag') ; meshok
            IF UO.GetQuantity('finditem')>0 Then
               UO.MoveItem('finditem','1','ReceiveBag')
               Bag[Index]=UO.GetSerial('finditem')
               X[Index]=MapX
               Y[Index]=MapY
               wait(WaitTime)
               UO.FindType('0x1F14',-1,'SkladBag'); runa
               IF UO.GetQuantity('finditem')>0 Then
                  UO.MoveItem('finditem','1','backpack') ; runa to pack
                  wait(WaitTime)
                  UO.UseObject('finditem')
                  Repeat
                     Wait(500)
                  Until UO.InJournal("What is the new name")
                  UO.Say(STR(MapX)+":"+STR(MapY))
                  wait(WaitTime)
                  UO.MoveItem('finditem','1',Bag[Index]) ; runa to meshok
                  wait(WaitTime)
                  UO.MoveItem(MapSerial,'1',Bag[Index])
                  wait(WaitTime)
               Else
                  Exit=1
                  UO.Print("Error! Kon4ilis pustie runy!")
               Endif
               Index=Index+1
            Else
               Exit=1
               UO.Print("Error! Kon4ilis pustie sumki!")
            Endif
         Endif
;         UO.Print(STR(MapX)+" "+STR(MapY))
;         f.WriteLn(STR(MapX)+" "+STR(MapY))
         wait(WaitTime)
      Else
         Exit=1
      Endif
   Wend

;   f.Close()
   UO.Print("Done!!!")
end sub
Top
   
Reply with quote  
ZL_OY
 Post subject:
PostPosted: 2006-09-15 20:39:41 
Offline
User avatar

Joined: 2006-09-14 17:05:50
Posts: 12
Спасибо большое! Всё работает видимо у меня был битый скрипт
Top
   
Reply with quote  
Savage
 Post subject:
PostPosted: 2006-09-15 22:54:38 
Offline
Expert!
User avatar

Joined: 2004-04-04 11:13:54
Posts: 1205
Location: Балаково, Саратовская обл.
Фсекта рат!!!
Top
   
Reply with quote  
LeeLoo
 Post subject:
PostPosted: 2006-11-21 19:34:35 
Offline

Joined: 2006-11-21 19:24:04
Posts: 4
Savage wrote:
Вот. Сортирует карты близко расположенных кладов.

Спасибо, Savage, все сортирует, все раскладывает, но у меня не получается второй раз по тем же мешкам раскидывать следущую партию(
Все сделала, как вы написали, и скрипт, когда второй раз начинает работать, все мешки раскрывает, с уже разложенными картами и записанными рунками, но почему-то не кладет в них новые карты( На те же самые координаты берет новый мешок и новую рунку( Столько рунок уже извела(
И так всегда после любой остановки скрипта.
Играю на ДРВ. Может я что-то в инже не настроила? Или нужно паузу где-нибудь поставить? Может быть она просто не успевает?
Top
   
Reply with quote  
Savage
 Post subject:
PostPosted: 2006-11-22 23:25:03 
Offline
Expert!
User avatar

Joined: 2004-04-04 11:13:54
Posts: 1205
Location: Балаково, Саратовская обл.
Code:
   VAR StepRound=40 ; razbros koordinat 
   VAR WaitTime=500 ;  pauza

Это не менялось?
еще можно тут проверить: www.djetta.ru/inj-switch.jpg
Top
   
Reply with quote  
LeeLoo
 Post subject:
PostPosted: 2006-11-26 19:53:29 
Offline

Joined: 2006-11-21 19:24:04
Posts: 4
Savage wrote:
...

Все прверила - ничего не меняла. Первый раз раскладывает замечательно и мешки заполняются по 15-20 карт.
но куча мешков по 1-2 карты
а второй раз скрипт мешки откроет, но игнорирует напрочь(
вот нашла - ребенок то же самое пишет
viewtopic.php?t=5091&highlight=%EA%EE%EE%F0%E4%E8%ED%E0%F2%E0%EC
такая же проблема(
Top
   
Reply with quote  
Display posts from previous:  Sort by  
Post new topic  Reply to topic  Page 1 of 1
  [ 13 posts ] 

» » »

All times are UTC+02:00

Who is online

Users browsing this forum: Bing [Bot] and 0 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:  
cron
Powered by phpBB® Forum Software © phpBB Limited