Page 1 of 1

Tailoring

Posted: 2007-07-29 14:30:07
by Narv
Искал но не нашел на форуме. мне надо скрипт на тайлоринг :
Покупает у вендора 1 bolt of cloth, выберает ножницы режит Bolt на ткань выберает Sewing kit делает Sash , когда ткань заканчивается продает Sash`i вендору и опять покупает 1 Bolt.

Очень надеюсь на вашу помощ :wink:

Posted: 2007-07-30 23:34:04
by Scripts Writer
Помоему элементарный скрипт-ты уже всё расписал. Осталось перевести на язык программирования и собрать воедино. Дерзай

Posted: 2007-07-30 23:47:21
by Narv
Scripts Writer wrote:Помоему элементарный скрипт-ты уже всё расписал. Осталось перевести на язык программирования и собрать воедино. Дерзай

Я немогу написать если заканчивается ткань то покупать у вендора :(

Posted: 2007-07-31 08:47:33
by Scripts Writer

Code: Select all

var cloth= #type of cloth
  uo.FindType(cloth,'-1','backpack')
  if uo.FindCount()
    ... # основное действие скрипта
  else
    uo.Buy('name of buy list with clothes')
  end if

Posted: 2007-07-31 10:20:04
by Narv
Scripts Writer wrote:

Code: Select all

var cloth= #type of cloth
  uo.FindType(cloth,'-1','backpack')
  if uo.FindCount()
    ... # основное действие скрипта
  else
    uo.Buy('name of buy list with clothes')
  end if


Очень блогодарю за помощ. Но я бы был очен признателен еслиб вы соеденили мой скрипт с этим и там 2 вендора ,можно дописать как то если нет у одного ткани то он покупает у второго.

Code: Select all


sub main()
start:
 UO.Say(',sell a')   
wait(500)
   UO.UseType("0x0F9D")
      wait(500)
      checklag()
wait(50)
        UO.LClick(158,471)
      wait(500)
UO.DeleteJournal()
          while not UO.InJournal("failed") and not UO.InJournal("You put")
         wait(500)
end if
   wend
goto start

end sub

sub checklag()
uo.deletejournal()
uo.click('backpack')
repeat
wait(100)
until uo.injournal('backpack')
end sub

очень надеюсь на вашу помощ.

Posted: 2007-07-31 11:39:46
by Scripts Writer
А что за

Code: Select all

LClick
-?

Какого его предназначение?

Posted: 2007-07-31 12:13:40
by Narv
Scripts Writer wrote:А что за

Code: Select all

LClick
-?

Какого его предназначение?


Это крафт таблица такая там кнопка есть make last вот на нее и тиркает :)

Posted: 2007-07-31 12:35:19
by Scripts Writer

Code: Select all


sub main()
var cloth=
repeat

uo.FindType(cloth,'-1','backpack')
if uo.FindCount() then
  UO.Say(',sell a')   
  wait(500)
  UO.UseType("0x0F9D")
  wait(500)
  checklag()
  wait(50)
  UO.LClick(158,471)
  wait(500)
  UO.DeleteJournal()
  while not UO.InJournal("failed") and not UO.InJournal("You put")
    wait(500)
  wend
else
  uo.Buy('name of buylist')
end if

until uo.Dead()

end sub

sub checklag()
uo.deletejournal()
uo.click('backpack')
repeat
wait(100)
until uo.injournal('backpack')
end sub

Posted: 2007-07-31 13:58:39
by Narv
А что сдесь писать надо var cloth=
?

Posted: 2007-07-31 15:24:37
by Rivory
тип ткани

Posted: 2007-07-31 17:07:10
by Narv
ВСе работает большое спасибо. :)

Posted: 2007-11-30 13:45:21
by TarantuL
У меня была проблема с UO.Findcount, я хотел проверять если тряпок больше 15 - чтобы шил, а если меньше - покупал. Ковырялся, ковырялся, так и не получилось!! Пришлось обратиться к ВЕТЕРАНу, посредством всемирного интернет пейджера ICQ :lol: , который подсказал мне замечательную функцию If UO.GetQuantity('finditem') > 15 Then bla bla bla o_O .. Показываю что получилось, может кому пригодится..

Code: Select all

sub main()
repeat
checklag()
uo.FindType('0x175D',-1,'backpack')
If UO.GetQuantity('finditem') > 15 Then
  UO.Say(',sell a') 
    checklag()
UO.CancelMenu()
UO.WaitMenu ('Cloth', 'Shirts', 'Shirts', 'robe' )
  uo.waittargettype("0x175D")
  UO.UseType("0x0F9D")
  checklag()
   
   UO.DeleteJournal()
  while not UO.InJournal("failed") and not UO.InJournal("You put")
    checklag()
  wend
checklag()
else
  uo.say(',buy b')
  wait(300)
    uo.waittargettype("0x0F95")
    checklag()
  uo.usetype("0x0F9E")
  checklag()
end if

until uo.Dead()

end sub

sub checklag()
uo.deletejournal()
uo.click('backpack')
repeat
wait(100)
until uo.injournal('backpack')
end sub


Выражаю огромное спасибо замечательному ВЕТЕРАНу!

Posted: 2009-06-10 14:26:23
by -=#MIB#=-
TarantuL wrote:У меня была проблема с UO.Findcount, я хотел проверять если тряпок больше 15 - чтобы шил, а если меньше - покупал. Ковырялся, ковырялся, так и не получилось!! Пришлось обратиться к ВЕТЕРАНу, посредством всемирного интернет пейджера ICQ :lol: , который подсказал мне замечательную функцию If UO.GetQuantity('finditem') > 15 Then bla bla bla o_O .. Показываю что получилось, может кому пригодится..

Code: Select all

sub main()
repeat
checklag()
uo.FindType('0x175D',-1,'backpack')
If UO.GetQuantity('finditem') > 15 Then
  UO.Say(',sell a') 
    checklag()
UO.CancelMenu()
UO.WaitMenu ('Cloth', 'Shirts', 'Shirts', 'robe' )
  uo.waittargettype("0x175D")
  UO.UseType("0x0F9D")
  checklag()
   
   UO.DeleteJournal()
  while not UO.InJournal("failed") and not UO.InJournal("You put")
    checklag()
  wend
checklag()
else
  uo.say(',buy b')
  wait(300)
    uo.waittargettype("0x0F95")
    checklag()
  uo.usetype("0x0F9E")
  checklag()
end if

until uo.Dead()

end sub

sub checklag()
uo.deletejournal()
uo.click('backpack')
repeat
wait(100)
until uo.injournal('backpack')
end sub


Выражаю огромное спасибо замечательному ВЕТЕРАНу!


Уважаемые авторы скрипта,объясните для чего используется UO.CancelMenu() ?

Posted: 2009-06-10 15:19:55
by Savage
Отменяет ловушки вайтменю и автоменю. Здесь эта команда лишняя. Ставят её в скрипт в процессе отладки, убирать забывают.