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

новое мое творение
http://forum.yoko.com.ua/viewtopic.php?f=20&t=14222
Page 1 of 1

Author:  morik [ 2008-12-23 13:43:53 ]
Post subject:  новое мое творение

скрипт берет из сундука (укажете его после запуска скрипта) 1 кег и найтшейд, крафтит пойзоны, потом сливает их в кег и сбрасывает полный кег в мусорку (укажете ее после запуска скрипта)

перед запуском скрипта положите себе в пак 50 бутылок, пустые кеги и найтшейд подготовьте заранее

если дойдут руки, сделаю что бы перс сам брал ресурсы, крафтил кег после чего качал химию

Code:
sub main()
   uo.print('Мусорка')
   uo.exec('addobject musor')
   while uo.targeting()
      wait(100)
   wend
   uo.print('Сумка')
   uo.exec('addobject bag')
   while uo.targeting()
      wait(100)
   wend
   while not UO.Dead()
      reload()
      alchemy()
      sliv()
      #poison()
      spik()
   wend
end sub
Sub alchemy()
   while uo.count('0x0F0E') > 1 and UO.Count('0x0F88') > 1
      UO.DeleteJournal()
      ChekLag()
      UO.WaitMenu('What','(2)')
      UO.UseType(0x0F88)
      UO.DeleteJournal()         
      while NOT UO.InJournal("You put") AND NOT UO.InJournal("You toss the failed")
         wait(100)
      wend
   wend
end sub
Sub poison()
   while uo.count('0x0F0A') > 0
      UO.FindType('0x0F0A','-1','backpack')
      UO.DeleteJournal()
      UO.UseSkill("Poisoning")
      UO.WaitTargetObject(0x4148BFBE,'finditem')
      while NOT UO.InJournal("You fail to apply") AND NOT UO.InJournal("You apply")
         wait(100)
      wend     
   wend
end sub
Sub trash()
   var keg=1-uo.count('0x1940')
   UO.FindType('0x1940','-1','backpack')
   UO.DeleteJournal()
   UO.SetCatchbag('musor')
   uo.exec("grab "+str(keg)+" finditem")
   wait(3500)
   UO.UnSetReceivingContainer()
   UO.UnSetCatchBag()
   ChekLag()
end sub
Sub sliv()
   while uo.count('0x0F0A') > 0
      UO.UseType(0x1940)
      UO.DeleteJournal()   
      UO.waittargettype(0x0F0A)
      wait (100)
   wend
   trash()
end sub
Sub reload()
   UO.UnSetReceivingContainer()
   UO.UnSetCatchBag()
   var keg=1-uo.count('0x1940')
   UO.findtype('0x1940', '-1', 'bag')
   uo.exec("grab "+str(keg)+" finditem")
   wait(3500)
   var ns=200-uo.count('0x0F88')
   if ns > 0 then
      UO.findtype('0x0F88', '-1', 'bag')
      uo.exec("grab "+str(ns)+" finditem")
      ChekLag()
      wait(3500)
   end if
end sub
Sub spik()
   UO.useskill("Spirit")
   wait(6000)
   UO.useskill("Spirit")
   wait(6000)
end sub
Sub ChekLag()
   UO.DeleteJournal()
   UO.Click('backpack')
   repeat
      wait(50)
   until UO.InJournal('ackpack')
end sub


Косметика ©Mirage

Author:  morik [ 2008-12-23 13:56:17 ]
Post subject: 

отпишитесь кто, работает ли скрипт, а то у меня на оскоме все пашет, интересно заработает ли у других

Author:  bensons [ 2010-01-29 02:24:33 ]
Post subject:  Re: новое мое творение

scp rabotait uso good :) snx za script :)

Author:  sooms [ 2010-02-02 12:18:52 ]
Post subject:  Re: новое мое творение

Спасибо за скрипт ,тоже на оскоме играю .Нету некаких проблем.+)

Author:  Mirage [ 2010-02-02 12:36:18 ]
Post subject:  Re: новое мое творение

вы маньяки :D
хотя иной раз в простоте сила.

Author:  shkera123 [ 2011-04-04 19:18:16 ]
Post subject:  Re: новое мое творение

Обьясните ПЛЗ где тут указанно количество забранного,или варенного количества батлов???(играю на зулу,мне надо чтоб он 100 батлов варил и все 100 сливал в кег)
кстате доработки скрипта то велись ??? :idea:

Author:  Mirage [ 2011-04-04 20:10:52 ]
Post subject:  Re: новое мое творение

shkera123 wrote:
Обьясните ПЛЗ где тут указанно количество забранного,или варенного количества батлов???

50 бутылок.
забирает 200 регов.
кеги берет по 1

shkera123 wrote:
мне надо чтоб он 100 батлов варил и все 100 сливал в кег

перед запуском скрипта положите себе в пак 50 бутылок. Положи 100 - будет варить 100.

shkera123 wrote:
кстате доработки скрипта то велись ??? :idea:

Зачем? :mrgreen:
Что там дорабатывать?

Author:  shkera123 [ 2011-04-05 15:57:49 ]
Post subject:  Re: новое мое творение

Спс....благодарю за пояснения.....

Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/