Yoko

All sides of Injection
It is currently 2017-11-18 14:12:33

All times are UTC+02:00




Post new topic  Reply to topic  [ 222 posts ]  Go to page Previous 18 9 10 11 12 Next
Author Message
PostPosted: 2016-05-03 18:31:06 
Offline

Joined: 2011-05-23 00:33:30
Posts: 942
slafoka wrote:
А Это разве не нужно добавить Var Spools = 'Тип ниток' ?
И нужно ли это uo.FindType(Spools,'-1','backpack') ?

Результат не изменится, просто type можно будет задавать удобно в условиях, но в целом без разницы.

_________________
CodeSweeper


Top
   
PostPosted: 2016-05-03 20:01:23 
Offline

Joined: 2016-04-25 20:05:40
Posts: 15
Спасибо. Попробую запустить отпишусь.


Top
   
 Post subject: Re: Re:
PostPosted: 2016-05-08 10:05:41 
Offline

Joined: 2016-04-25 20:05:40
Posts: 15
slafoka wrote:
Scripts Writer wrote:
Code:
####################
# Качаем Tailoring #
####################

sub Tailoring()
var cloth=0x175D # Type of cloth
var sew=0x404733DB # ID of a sewing kit
var sash=0x1541 # Type of created item(i made body sashes)
var scissors=0x404733DD # Type of anything to cut created items
var bandage=0x0E21 # Type of bandages
var to=0x401E340D # Where to put bandages and to get clothes
var type1=0x0C77 # Type of food1
var type2=0x0C6D # Type of food2
var k,l
l=0
  while uo.SkillVal('Tailoring','1') < 1000
    uo.FindType(cloth,'-1','backpack')
    if uo.GetQuantity('finditem') < 20 then
      GetItem(cloth,100,to,'backpack')
    end if
    uo.WaitMenu('Cloth','Misc','Misc','sash') # Menu
    uo.WaitTargetObject('finditem')
    uo.UseObject(sew)
    uo.DeleteJournal()
    k=0
    repeat
      wait(100)
      k=k+1
    until uo.InJournal('put') || uo.InJournal('fail') || k>100
    if uo.InJournal('put') then
      uo.FIndType(sash,'-1','backpack')
      while uo.FIndCount()
        uo.FIndType(sash,'-1','backpack')
        uo.WaitTargetObject('finditem')
        uo.UseObject(scissors)
        wait(750)
      wend
    end if
    CheckLag()
    Move(bandage,'all','backpack',to)
    l=l+1
    if (l>100) then
      EatFood(type1,type2)
      l=0
    end if
  wend
end sub

##########
# Eating #
##########

sub EatFood(carrot , onion)
  var i
  for i=0 to 5
    uo.FindType(carrot,'-1','backpack')
    if uo.FindCOunt() then
      uo.UseObject('finditem')
      wait(750)
    else
      if not uo.FindCount() then
        uo.FindType(onion,'-1','backpack')
        if uo.FindCount() then
          uo.UseObject('finditem')
          wait(750)
        else
          uo.Print('No food...')
        end if
      end if
    end if
    wait(500)
  next
end sub

###########
# GetItem #
###########

sub GetItem(type, quantity, where , to)
  uo.FindType(type,'-1',where)
  if uo.FindCount() then
    uo.moveitem('finditem',quantity,to)
    wait(750)
  end if
end sub

###############
# Moving item #
###############

sub Move(type,quantity,where,to)
  uo.FindType(type,'-1',where)
  if uo.GetQuantity('finditem') > 100 then
    uo.moveitem('finditem',quantity,to)
    wait(750)
  end if
end sub

############
# CheckLag #
############

sub CheckLag()
  uo.DeleteJournal('backpack')
  uo.Click('backpack')
  repeat
    wait(100)
  until uo.InJournal('backpack')

Сделайте чтоб он еще нитки добирал когда они заканчиваются.

Работает не корректно. Если добавить GetItem( 'Тип ниток',100,to,'backpack') то он их добирает по условию когда заканчивается ткань, а нужно чтобы это было не зависимо друг от друга.
Помогите исправить


Top
   
 Post subject: Re: Re:
PostPosted: 2016-05-08 12:04:45 
Offline

Joined: 2011-05-23 00:33:30
Posts: 942
slafoka wrote:
Помогите исправить

При каком условии нужно их добирать?

_________________
CodeSweeper


Top
   
 Post subject: Re: Re:
PostPosted: 2016-05-08 12:59:22 
Offline

Joined: 2016-04-25 20:05:40
Posts: 15
Incorrect User wrote:
slafoka wrote:
Помогите исправить

При каком условии нужно их добирать?

Если ниток в бекпаке меньше 20 шт, то взять их из сундука в таком то кол-ве.


Top
   
PostPosted: 2016-05-08 13:10:47 
Offline

Joined: 2011-05-23 00:33:30
Posts: 942
После строки
Code:
while uo.SkillVal('Tailoring','1') < 1000
добавь это
Code:
    if uo.FindType('тип ниток', -1, 'backpack') and uo.GetQuantity('finditem') < 20 then
      GetItem('тип ниток', 100, to, 'backpack')
    end if

_________________
CodeSweeper


Top
   
PostPosted: 2016-05-08 14:53:54 
Offline

Joined: 2016-04-25 20:05:40
Posts: 15
Incorrect User wrote:
После строки
Code:
while uo.SkillVal('Tailoring','1') < 1000
добавь это
Code:
    if uo.FindType('тип ниток', -1, 'backpack') and uo.GetQuantity('finditem') < 20 then
      GetItem('тип ниток', 100, to, 'backpack')
    end if

В твоем варианте это не работало.
Вышел из положения таким образом:
Code:
uo.FindType(Spools, -1, 'backpack')
    if uo.GetQuantity('finditem') < 20 then
      GetItem(Spools,100,to,'backpack')
    end if

Спасибо за помощь
Осталось заставить его кушать.
Что означает это действие:
Code:
if (l>100) then
      EatFood(type1,type2)
      l=0
    end if


Top
   
PostPosted: 2016-05-20 20:12:37 
Offline

Joined: 2011-05-23 00:33:30
Posts: 942
slafoka wrote:
Что означает это действие:
Code:
if (l>100) then
      EatFood(type1,type2)
      l=0
    end if

Видимо счетчик стоит, каждые 100 циклов есть. I - это счетчик, после достижения 100 циклов чар попытается поесть, счетчик сбрасывается и снова ждем 100 циклов.

_________________
CodeSweeper


Top
   
PostPosted: 2016-05-27 00:50:01 
Offline

Joined: 2016-04-25 20:05:40
Posts: 15
Помогите для Карпентри добавить добор ниток из сундука, с условием. Если ниток меньше 10, то взять 100шт из сундука.
Или как-то можно добавить вот это:
Code:
uo.FindType(Spools, -1, 'backpack')
    if uo.GetQuantity('finditem') < 10 then
      GetItem(Spools,100,to,'backpack')
    end if

Code:
sub Carpentry() 
VAR Trash = '0x400BC645' ;
VAR Sunduk = '0x41DC7700' ;
VAR Ingi = '0x1BDD' ;
VAR Instrum = '0x1030' ;
VAR Bottle = '0x1B7A' ;
VAR Kolvo = 200 ;
VAR k = 0
VAR Fish = '0x097B' ;
While TRUE
UO.FindType( Ingi, -1, Sunduk ) ;
If UO.FindCount() == 0 Then
UO.Print("Iron Ingots not found, script terminated")
return
end if
UO.Grab( Str( Kolvo ), 'finditem' )
wait(2000)
While UO.Count( Ingi ) > 10
UO.Print('Ostalos ' + Str( UO.Count( Ingi ) ) + ' ingots' )
UO.DeleteJournal()
UO.CancelMenu()
UO.WaitMenu ('Carpentry', 'Containers & Shields', 'Containers & Shields', 'wooden shield' )
UO.UseType( Instrum )
k = 0
while NOT UO.InJournal('You put') AND NOT UO.InJournal('Fail') AND ( k < 30 )
k = k + 1
wait(500)
wend
if UO.Count( Bottle ) > 0 then
UO.FindType( Bottle, -1, -1 )
UO.MoveItem( 'finditem', 0, Trash )
wait( 1000 )
UO.Print( 'Bottle moved' )
UO.FindType( Fish )
UO.UseType( Fish )
wait (2000)
end if
Wend
Wend
end sub


Top
   
PostPosted: 2016-05-27 05:15:46 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2754
Location: Иваново
ты же сам чуть выше решение написал :shock:
После While TRUE добавь свои строчки. Если скрипт отдельный либо перенеси его к тейлору либо добавь в карпу

Code:
###########
# GetItem #
###########

sub GetItem(type, quantity, where , to)
  uo.FindType(type,'-1',where)
  if uo.FindCount() then
    uo.moveitem('finditem',quantity,to)
    wait(750)
  end if
end sub

_________________
Image
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"


Top
   
PostPosted: 2016-05-27 06:14:08 
Offline

Joined: 2016-04-25 20:05:40
Posts: 15
спасибо


Top
   
PostPosted: 2016-10-13 21:27:33 
Offline
Expert!
User avatar

Joined: 2006-02-07 08:51:40
Posts: 1347
Location: г. Старый Оскол
Всем привет в этом чатике! :lol: 8)


Top
   
PostPosted: 2016-10-14 12:58:59 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2754
Location: Иваново
Починяем примусы недорого :D
Все спасибы Yoko

_________________
Image
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"


Top
   
PostPosted: 2017-04-24 18:50:41 
Offline

Joined: 2017-03-08 14:47:53
Posts: 7
помогите, задача такая

Есть драк ... нужно чтобы он при появлении Вирма убивал его и ждал следующего и так по кругу...

что то типа такого:

Code:
sub killdrake() 
UO.set('finddistance','14')  # расстояние поиска 14 клеток вокруг
 while UO.GetHP('self') < 500
    UO.FindType(wirm, '-1', 'ground')
    if UO.FindCount() > 0 then
       UO.DeleteJournal()
               if UO.FindType(0x20D6,-1,'my') then           # если драк в шринке
         uo.ColorPrint(2998,"Достаём дракона..")
                   uo.UseType('0x20D6')                      # выпустили дракона
         wait(300)
            UO.Exec("warmode 1")
                 # uo.waittargetobject('laststatus')
                 # uo.say('all kill')
          UO.Attack('finditem')
                   repeat
                      wait(500)
                   until UO.InJournal('Body of')
              else                                         # если дракон на свободе
                   UO.FindType(wirm, '-1', 'ground')
          If UO.FindCount() > 0 Then
            UO.DeleteJournal()
                      UO.Exec("warmode 1")
                      uo.ColorPrint(2998,"Дракон на земле..")
           wait(500)
                   UO.Attack('finditem')
                        wait(500)
                        uo.attack('finditem')
                         repeat
                               wait(500)
                         until UO.InJournal('Body of')
                      endif   
               endif
         Endif
   else
             uo.ColorPrint(2998,"ждём вирма...")
  Endif
 
wend
uo.ColorPrint(2998,"всё...")
endsub


немного криво работает, поправьте кто понимает!

_________________
Создание и поддержка web проектов в сети
Модуль Совместные покупки для phpbb3


Top
   
PostPosted: 2017-04-24 19:52:14 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2754
Location: Иваново
Code:
sub killdrake() 
   UO.set('finddistance','14')  # расстояние поиска 14 клеток вокруг
   while UO.GetHP('self') < 500
      UO.FindType(wirm, '-1', 'ground')
      if UO.FindCount() > 0 then
         UO.DeleteJournal()
         if UO.FindType(0x20D6,-1,'my') then           # если драк в шринке
            uo.ColorPrint(2998,"Достаём дракона..")
            uo.UseType('0x20D6')                      # выпустили дракона
            wait(300)
            UO.Exec("warmode 1")
            # uo.waittargetobject('laststatus')
            # uo.say('all kill')
            UO.Attack('finditem')
            repeat
               wait(500)
            until UO.InJournal('Body of')
         else                                         # если дракон на свободе
            UO.FindType(wirm, '-1', 'ground')
            If UO.FindCount() > 0 Then
               UO.DeleteJournal()
               UO.Exec("warmode 1")
               uo.ColorPrint(2998,"Дракон на земле..")
               wait(500)
               UO.Attack('finditem')
               wait(500)
               uo.attack('finditem')
               repeat
                  wait(500)
               until UO.InJournal('Body of')
            endif   
         endif
      Endif
      wait(500)   
   wend
   uo.ColorPrint(2998,"всё...")
endsub

var wirm у тебя где то выше видимо.
И что будет если умрет призванный дракон? :)

_________________
Image
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"


Top
   
PostPosted: 2017-04-24 19:59:24 
Offline

Joined: 2012-07-27 23:43:14
Posts: 215
подскажите пожалуйста, как сделать чтобы чар - стрелял в драка и когда у драка мало хп - он переставал стрелять и ждал пока второй его подлечит и опять стрелял.


Top
   
PostPosted: 2017-04-24 21:58:34 
Offline

Joined: 2017-03-08 14:47:53
Posts: 7
Mirage wrote:

var wirm у тебя где то выше видимо.



да
Mirage wrote:

И что будет если умрет призванный дракон? :)


это внутри другой функции

_________________
Создание и поддержка web проектов в сети
Модуль Совместные покупки для phpbb3


Top
   
PostPosted: 2017-04-25 21:13:06 
Offline

Joined: 2012-07-27 23:43:14
Posts: 215
да что же за жопа такая! сделал крипт на обстрел драка а когда его выключаешь, то клиент виснит)))))))))))))


Top
   
PostPosted: 2017-04-25 23:02:41 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2754
Location: Иваново
а как ты его выключаешь?

_________________
Image
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"


Top
   
PostPosted: 2017-04-26 16:40:47 
Offline

Joined: 2012-07-27 23:43:14
Posts: 215
красная кнопка terminate и клиент виснет)))))


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 222 posts ]  Go to page Previous 18 9 10 11 12 Next

All times are UTC+02:00


Who is online

Users browsing this forum: Bing [Bot] and 2 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