Yoko

All sides of Injection
It is currently 2024-03-19 13:16:53

All times are UTC+02:00




Post new topic  Reply to topic  [ 3 posts ] 
Author Message
PostPosted: 2015-09-08 18:24:11 
Offline

Joined: 2015-09-08 18:18:24
Posts: 2
Есть работающий скрипт. Всё хорошо, но после отрисовки карты он очень долго думает перед тем, как выкинуть готовую карту в треш (минуту примерно).
Помогите поправить, пожалуйста.
Строчку
Wend
UO.FindType( Map )
While UO.FindCount() > 0
UO.MoveItem( 'finditem', 0, Trash )
wait(500)
CheckLag()
UO.FindType( Map )
Wend
менял от 10000 до 100, но это не дает абсолютно никакой реакции. Есть ощущение, что перед выкидыванием карты в треш скрипт считает количество карт в исходном сундуке или что-то типо того.

Code:
sub cartograph() 
   VAR Sunduk1 = '0x4009B254' ; ?????? ??????? ? ??????? ? ???????
   VAR Trash = '0x41703671' ; ?????? ????????? ?????
   VAR Meshok = '0x0E76' ; ??? ?????
   VAR Map = '0x14EB' ; ??? ?????
   VAR Fizzle = 'Вашими неумелыми дрожащими руками нарисована совершенно бесполезная карта.'
   VAR Success = 'You place a map in your backpack'
   VAR MeshSer, j, k, MapSer, flag
   UO.CancelMenu()
   UO.IgnoreReset()
   UO.AutoMenu( 'What sort of map','Regional Map' )
   UO.FindType( Meshok, -1, Sunduk1 )
   While UO.FindCount() > 0
      MeshSer = UO.GetSerial( 'finditem' )
      UO.UseObject( MeshSer )
      wait(500)
      CheckLag()
      UO.FindType( Map, -1, MeshSer )
      While UO.FindCount() > 0
         MapSer = UO.GetSerial( 'finditem' )
         UO.Grab( '1', 'finditem' )
         repeat
            wait(100)
         until UO.Count( Map ) == 1
         flag = 0
         While flag == 0
            DeleteJournal( Fizzle )
            DeleteJournal( Success )
            UO.UseObject( MapSer )
            k = 0
            repeat
               k = k + 1
               wait(100)
            until UO.InJournal( Fizzle ) OR UO.InJournal( Success ) OR k > 600
            If UO.InJournal( Success ) OR k > 600 Then
               flag = 1
            Endif
         Wend
         UO.FindType( Map )
         While UO.FindCount() > 0
            UO.MoveItem( 'finditem', 0, Trash )
            wait(500)
            CheckLag()
            UO.FindType( Map )
         Wend
         UO.FindType( Map, -1, MeshSer )
      Wend
      UO.Ignore( MeshSer )
      UO.FindType( Meshok, -1, Sunduk1 )
   Wend
   UO.IgnoreReset()
   UO.CancelMenu()
endsub

Sub CheckLag()
   DeleteJournal( 'backpack' )
   UO.Click( 'backpack' )
   repeat
      wait(100)
   until UO.InJournal( 'backpack' )
   return
end sub

Sub DeleteJournal( string1 )
   VAR nom = UO.InJournal( string1 )
   If nom > 0 Then
      UO.SetJournalLine( Nom - 1, 'string replaced' )
      DeleteJournal( string1 )
   Endif


Спасибо.


Top
   
PostPosted: 2015-09-09 16:58:07 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2802
Location: Иваново
Code:
         While flag == 0
            DeleteJournal( Fizzle )
            DeleteJournal( Success )
            UO.UseObject( MapSer )
            k = 0
            repeat
               k = k + 1
               wait(100)
            until UO.InJournal( Fizzle ) OR UO.InJournal( Success ) OR k > 600 ; <-------------  Вот тут и в следующей строке либо поправь сообщения на свои (те которые сервер шлет при открытии карты), либо уменьши 600 - это 6 секунд в данном случае.
            If UO.InJournal( Success ) OR k > 600 Then
               flag = 1
            Endif
         Wend

_________________
Image
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"
Стрелялка для олдов.


Top
   
PostPosted: 2015-09-11 00:18:49 
Offline

Joined: 2015-09-08 18:18:24
Posts: 2
Спасибо, помогла смена таймаута, сообщения стоят верные, но на них чего-то не реагирует скрипт.


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

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 1 guest


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