Yoko

All sides of Injection
It is currently 2024-03-29 09:04:49

All times are UTC+02:00




Post new topic  Reply to topic  [ 7 posts ] 
Author Message
 Post subject: Пойзон
PostPosted: 2011-01-09 13:36:15 
Offline

Joined: 2011-01-08 10:54:31
Posts: 7
Нужен скрипт на пойзонинг,надо чтоб чар брал один стейк из сундука и один лезер пойзон из того же сундука,потом тыкал на лезер пойзон и таргетом на стейк,после чего выбрасывал отравленый стейк либо на пол либо в другой сундук,поиск юзал не чего похожего не нашол.... скрипт нужен под шард Fw


Top
   
 Post subject: Re: Пойзон
PostPosted: 2011-01-09 13:50:57 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2802
Location: Иваново
Представь тебе в какой то из 7 одинаковых тем ответят и ты будешь потом все их просматривать и искать где же ответ?

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


Top
   
 Post subject: Re: Пойзон
PostPosted: 2011-01-10 13:20:00 
Offline

Joined: 2011-01-08 10:54:31
Posts: 7
Mirage wrote:
Представь тебе в какой то из 7 одинаковых тем ответят и ты будешь потом все их просматривать и искать где же ответ?

я просто уже 2 недели ищу скрипт..отчаялся и нафлудил))может ты можешь помочь?


Top
   
 Post subject: Re: Пойзон
PostPosted: 2011-01-11 08:18:07 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2802
Location: Иваново
Скрипт то пятиминутный.
Принцип вот такой.
Code:
sub test()
   var havka = ''
   var yad = ''
   var Container= ''
   var phavka = ''
   var msg ='You put|положили|fail|не удалось|You broke|сломали'
   WHILE NOT UO.Dead()
         GET(havka, Container, 1, 1)
         GET(yad, Container, 1, 1)
         Repeat
            UO.DeleteJournal()
            LastTimer=UO.Timer()
            UO.Waittargettype ( havka )
            UO.Usetype(yad)
            repeat
               wait(100)
            until UO.InJournal( msg ) or UO.Timer()>LastTimer+150
         Until UO.Count( phavka ) > 0
         checklag()
         PUT( phavka, Container)
      wait( 300 )
   wend
end sub

Sub GET(item, cont, min, max) ; предмет, откуда, минимум, сколько брать
   If UO.Count( item ) < min Then
      UO.FindType( item, '-1', cont )
      if UO.FindCount() > 0 Then
         uo.charprint(printcolour,'Сырья в сундуке: '+Str(UO.GetQuantity('finditem')) ) 

                itemM=UO.GetSerial('finditem')
                timemove=UO.Timer()
                while UO.ContainerOf(itemM)==cont && timemove+20>UO.Timer()
            uo.moveitem('finditem', max, 'backpack')
                    wait(300)
                wend
      else
         uo.charprint(printcolour, 'Полностью кончилось сырье' )
         UO.CancelMenu()
         MyTerminate()
      endif
   Endif
end sub
Sub PUT(item, cont)
   while UO.Count( item ) > 0
      UO.FindType( item, -1, -1 )
                itemM=UO.GetSerial('finditem')
                timemove=UO.Timer()
            UO.MoveItem( 'finditem', 0, cont )
                while UO.ContainerOf(itemM)=='my' && timemove+20>UO.Timer()
                    wait(300)
                wend
   wend
end sub
Sub DeleteJournal(msg)
   While UO.InJournal(msg)
      UO.SetJournalLine(UO.InJournal(msg) - 1,'')
   wend
endsub
Sub MyTerminate()
   UO.Set('quiet','1')
   UO.CancelMenu()
   UO.IgnoreReset()
   UO.Set('quiet','0')
   UO.Exec('terminate all')
end sub
Sub checklag()
   DeleteJournal("ackpack")
   UO.Click("backpack")
   repeat
      wait(100)
   until UO.InJournal("ackpack")
end sub

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


Top
   
 Post subject: Re: Пойзон
PostPosted: 2011-01-11 14:01:56 
Offline

Joined: 2011-01-08 10:54:31
Posts: 7
Mirage wrote:
Скрипт то пятиминутный.
Принцип вот такой.
Code:
sub test()
   var havka = ''
   var yad = ''
   var Container= ''
   var phavka = ''
   var msg ='You put|положили|fail|не удалось|You broke|сломали'
   WHILE NOT UO.Dead()
         GET(havka, Container, 1, 1)
         GET(yad, Container, 1, 1)
         Repeat
            UO.DeleteJournal()
            LastTimer=UO.Timer()
            UO.Waittargettype ( havka )
            UO.Usetype(yad)
            repeat
               wait(100)
            until UO.InJournal( msg ) or UO.Timer()>LastTimer+150
         Until UO.Count( phavka ) > 0
         checklag()
         PUT( phavka, Container)
      wait( 300 )
   wend
end sub

Sub GET(item, cont, min, max) ; предмет, откуда, минимум, сколько брать
   If UO.Count( item ) < min Then
      UO.FindType( item, '-1', cont )
      if UO.FindCount() > 0 Then
         uo.charprint(printcolour,'Сырья в сундуке: '+Str(UO.GetQuantity('finditem')) ) 

                itemM=UO.GetSerial('finditem')
                timemove=UO.Timer()
                while UO.ContainerOf(itemM)==cont && timemove+20>UO.Timer()
            uo.moveitem('finditem', max, 'backpack')
                    wait(300)
                wend
      else
         uo.charprint(printcolour, 'Полностью кончилось сырье' )
         UO.CancelMenu()
         MyTerminate()
      endif
   Endif
end sub
Sub PUT(item, cont)
   while UO.Count( item ) > 0
      UO.FindType( item, -1, -1 )
                itemM=UO.GetSerial('finditem')
                timemove=UO.Timer()
            UO.MoveItem( 'finditem', 0, cont )
                while UO.ContainerOf(itemM)=='my' && timemove+20>UO.Timer()
                    wait(300)
                wend
   wend
end sub
Sub DeleteJournal(msg)
   While UO.InJournal(msg)
      UO.SetJournalLine(UO.InJournal(msg) - 1,'')
   wend
endsub
Sub MyTerminate()
   UO.Set('quiet','1')
   UO.CancelMenu()
   UO.IgnoreReset()
   UO.Set('quiet','0')
   UO.Exec('terminate all')
end sub
Sub checklag()
   DeleteJournal("ackpack")
   UO.Click("backpack")
   repeat
      wait(100)
   until UO.InJournal("ackpack")
end sub




вот что выскакивает line 17: Variable undefined - LASTTIMER


Top
   
 Post subject: Re: Пойзон
PostPosted: 2011-01-11 23:36:19 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2802
Location: Иваново
в шапке напиши

var LASTTIMER
:D
Чеж вы уроки то не читаете...

PS обрадую - там еще минимум 2-3 раза ругнется. Это наколенный пример как будет выглядеть скрипт. У меня на сервере пойсон качается по другому по этому мне лень помогать.

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


Top
   
 Post subject: Re: Пойзон
PostPosted: 2011-01-12 12:00:17 
Offline

Joined: 2011-01-08 10:54:31
Posts: 7
Mirage wrote:
в шапке напиши

var LASTTIMER
:D
Чеж вы уроки то не читаете...

PS обрадую - там еще минимум 2-3 раза ругнется. Это наколенный пример как будет выглядеть скрипт. У меня на сервере пойсон качается по другому по этому мне лень помогать.


я уже понял)) ещё 2 раза ругнулся) будим тестить дальше))СПАСИБО за помощь!


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

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 21 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