Yoko
http://forum.yoko.com.ua/

script na TINKERING
http://forum.yoko.com.ua/viewtopic.php?f=17&t=16690		 Page 1 of 1
Author:  romans892 [ 2011-06-26 19:19:26 ]
Post subject:  script na TINKERING
#########################

#########################

###################
; EmptyBottle Craft v.1.00 © Skiv
sub EmptyBottel()
VAR Sunduk = '0x403106BC'
VAR Ingi = '0x1BEF'
VAR Instrum = '0x1EBC'
VAR EmBot = '0x0F0E'
VAR Kolvo = 30
VAR k = 0
UO.SetGlobal( 'TimeProcess', str( UO.Timer() ) )
repeat
While TRUE
UO.FindType( Ingi, -1, Sunduk )
If UO.FindCount() == 0 Then
UO.Print("Ingots not found, script terminated")
return
Endif
UO.Grab( Str( Kolvo ), 'finditem' )
wait( 2000 )
While UO.Count( Ingi ) > 5
; Iiea a iaea anou eiae
;UO.CancelMenu()
UO.Print('Ostalos ' + Str( UO.Count( Ingi ) ) + ' ingots' )
UO.DeleteJournal()
UO.WaitMenu ('Tinkering','Tools','Tools','empty bottle')
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( EmBot ) > 0 then
UO.FindType( EmBot, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 1000 )
UO.Print( 'Empty Bottle moved' )
end if
Wend
Wend
end sub





4AR SNA4ALO VSE DELAET KAK NADO POSLE PARU POPITOK PIWET TINKERING FILED I TAK POVTORAETSA POKA NEZAKONSHATSA INGOTI V PAKE VOOBWEM TUPO SZIGAET INGOTI.... POMOGITE POZALUSTA KTO ZNAET KAK IZBAVETSA OT ETOGO GLUKA
Author:  Mirage [ 2011-06-26 20:19:29 ]
Post subject:  Re: script na TINKERING
1)http://translit.ru/ не ломай нам и себе глаза.
2)вторая строка моей подписи - у тебя цикл не закрыт.
Author:  romans892 [ 2011-06-26 21:30:15 ]
Post subject:  Re: script na TINKERING
можеш пожалуйста копию наманого рабочего кинуть я не знаю где чего писать надо в етих циклах, я в этом не разбераюсь тока ползуюсь ими, спасибо
Author:  Mirage [ 2011-06-26 22:06:59 ]
Post subject:  Re: script na TINKERING
В поиске можно было набрать empty bottle

Последнее сообщение в этой теме.

В твоем скрипте первый repeat был лишним.

Code:
sub EmptyBottel()
   VAR Sunduk = '0x403106BC'
   VAR Ingi = '0x1BEF'
   VAR Instrum = '0x1EBC'
   VAR EmBot = '0x0F0E'
   VAR Kolvo = 30
   VAR k = 0
   While TRUE
      UO.FindType( Ingi, -1, Sunduk )
      If UO.FindCount() == 0 Then
         UO.Print("Ingots not found, script terminated")
         return
      Endif
      UO.Grab( Str( Kolvo ), 'finditem' )
      wait( 2000 )
      While UO.Count( Ingi ) > 5
         UO.Print('Ostalos ' + Str( UO.Count( Ingi ) ) + ' ingots' )
         UO.DeleteJournal()
         UO.WaitMenu ('Tinkering','Tools','Tools','empty bottle')
         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( EmBot ) > 0 then
            UO.FindType( EmBot, -1, -1 )
            UO.MoveItem( 'finditem', 0, Sunduk )
            wait( 1000 )
            UO.Print( 'Empty Bottle moved' )
         end if
      Wend
   Wend
end sub


Если будут проблемы пиши какая ошибка и в какой строке или действии возникает.
Author:  romans892 [ 2011-06-26 22:14:41 ]
Post subject:  Re: script na TINKERING
спасибо вроде работает если вдруг что случитса отпешу
Author:  romans892 [ 2011-06-26 22:27:44 ]
Post subject:  Re: script na TINKERING
вообщем таже ошибка пишет тинкер фдаилед и желтым шрифтом осталось инготов 25,24,23,22 и так до 0 пока опать 30 не возмет потом опать намано делает потом иногда опат етот глук случаетса..... чего делать?
Author:  Mirage [ 2011-06-26 23:00:03 ]
Post subject:  Re: script na TINKERING
замени AND на OR вот так
Code:
         while NOT UO.InJournal('You put') OR NOT UO.InJournal('fail') OR ( k < 30 )
            k = k + 1
            wait(500)
         wend

условия должны выполнятся не все, а по одиночке.
Author:  romans892 [ 2011-06-26 23:13:50 ]
Post subject:  Re: script na TINKERING
Ok,попробую если что отпешу спасибо
Author:  romans892 [ 2011-06-26 23:19:07 ]
Post subject:  Re: script na TINKERING
все ок тока тормазит както зделал бутылку ждет чегото сек 5 потом ложит её делает еще одну ждет сек 5 опать потом ложит...
Author:  romans892 [ 2011-06-26 23:27:58 ]
Post subject:  Re: script na TINKERING
и после тинкр фаил ни4его непроисходит болше :(
Author:  ZeroDX [ 2011-06-27 04:31:49 ]
Post subject:  Re: script na TINKERING
Попробуй вот так. В паке только инструмент, в сундуке инги.
Code:
sub Tinkering()
  var t_Ingots = '0x1BEF', c_Ingots = '0x0000', t_TinkerTools = '0x1EBC', t_EmptyBottle = '0x0F0E', c_EmptyBottle = '0x0000'
  var id_Container = '0x403106BC', Pause = 1000, Time, Delay = 5, msg = 'ou put|fail'
  While UO.SkillVal('Tinkering', 1) < 1000
    If UO.Count(t_EmptyBottle, c_EmptyBottle) >= 10 then
      UO.FindType(t_EmptyBottle, c_EmptyBottle, 'backpack')
      If UO.FindCount() then
        CheckLag()
        UO.MoveItem('finditem', -1, id_Container)
        Wait(Pause)
       else
        Wait(Pause)
      Endif
     else
      If UO.Count(t_Ingots, c_Ingots) > 5 then
        DelJournal(msg)
        Time = UO.Timer()
        UO.WaitMenu('Tinkering', 'Tools', 'Tools', 'empty bottle')
        UO.UseType(t_TinkerTools)
        Repeat
          Wait(100)
        Until UO.InJournal(msg) or Time + Delay * 10 <= UO.Timer()
       else
        UO.FindType(t_Ingots, c_Ingots, id_Container)
        If UO.FindCount() then
          CheckLag()
          UO.MoveItem('finditem', -1, 'backpack')
          Wait(Pause)
         else
          UO.Print('Not enough ingots')
          Return
        Endif
      Endif
    Endif
  Wend
Endsub

Sub DelJournal(msg)
  While UO.InJournal(msg)
    UO.SetJournalLine(UO.InJournal(msg) - 1, '')
  Wend
Endsub

Sub CheckLag()
  DelJournal('ackpack')
  UO.Click('backpack')
  Repeat
    Wait(50)
  Until UO.InJournal('ackpack')
Endsub
Author:  Mirage [ 2011-06-27 06:40:13 ]
Post subject:  Re: script na TINKERING
Чегото я ночью не сообразил. При использовании repeat нужно ставить or.
Я в циклах просто обычно использую комбинацию:

Code:
repeat
   wait( 100 )
until UO.InJournal( msg ) or UO.Timer()>LastTimer+150


ZeroDX показал пример.
Author:  romans892 [ 2011-06-28 02:35:09 ]
Post subject:  Re: script na TINKERING
that is too havy you cant put that...... nemozet ingi vzatj
Author:  Mirage [ 2011-06-28 06:39:24 ]
Post subject:  Re: script na TINKERING
Code:
        UO.FindType(t_Ingots, c_Ingots, id_Container)
        If UO.FindCount() then
          CheckLag()
          UO.MoveItem('finditem',-1, 'backpack')  ; <- вот тут вместо -1 нужно 30 поставить
          Wait(Pause)
         else
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/