продажа

Ask for help

Moderators: Murderator+, Murderator

Post Reply
muhomor[nova]
Posts: 22
Joined: 2005-04-21 17:50:46

продажа

Post by muhomor[nova] »

Че то невыходит написать на нове скрипт на продажу ......пожалуста подкинте хотя б маленький макр на sell чтоб я мог сообразить че как .......


мне достаточно чтоб он тока продовал n вешей, определенного типа, вендору стояшему рядом .......... остальное сам допишу ......
Leo
Expert!
Posts: 791
Joined: 2005-01-15 19:15:05
Location: Dragon World
Contact:

Post by Leo »

Code: Select all

sub SellToVendor() 
var tProduct = '0x0DBF'      ;тип товара
var cProduct = '0x0000'      ;цвет товара
var sellListName = 'pole'   ;название листа продажи
var ms = 20         ;кол-во поскольку будем продавать
var addDealy = 100      ;если не успевает продавать, увеличьте эту цифру
var bd = ms*350+addDealy   ;system. don't tuch
   UO.Print('Кому продавать будем?')
   UO.addobject('vend')
   while uo.Targeting()
      wait(200)
   wend
   if UO.GetSerial('vend') == UO.GetSerial('self') or UO.GetSerial('vend') == '0x00000000' or UO.GetSerial('vend') == UO.GetSerial('backpack') then
      UO.Print('Промазал(а) - отключаюсь.')
   end if   
   uo.set('maxsell',str(ms))
   UO.UseObject('backpack')   
   uo.set('buydelay',str(bd))
   CheckLag()   
   while UO.Count(tProduct,cProduct) > 0
      if UO.Count(tProduct,cProduct) < ms then
         bd = UO.Count(tProduct,cProduct)*350+addDealy
         uo.set('buydelay',str(bd))
         CheckLag()
      end if
      uo.sell(sellListName,UO.GetName('vend'))
      CheckLag()
      UO.Msg('guards')
      if UO.InJournal("You have nothing I'm interested in") then
         return
      end if
   wend
   uo.set('buydelay','0')
end sub

sub CheckLag()
   UO.DeleteJournal()
   UO.Click('backpack')
   repeat
      wait(50)
   until UO.InJournal('backpack')
end sub
Dirol
Posts: 18
Joined: 2005-08-08 12:31:02

Post by Dirol »

Leo, не подскажешь какой параметр функции addDealy оптимально ставить для DRW? :roll:
Leo
Expert!
Posts: 791
Joined: 2005-01-15 19:15:05
Location: Dragon World
Contact:

Post by Leo »

Это зависит от конекта. Если не успеваешь - увеличивай. Я, лично, продаю при значении 100.
omi4
Posts: 457
Joined: 2005-07-10 21:53:05

Post by omi4 »

продажа через меню для RunUO

Code: Select all

sub sell()
   var vendor=UO.GetSerial('laststatus')
   repeat
      UO.say(',sell poison')
      UO.say(',vendormenu vendor 3')
      Wait(1500)
   UNTIL not uo.count(0x0F0A)
endsub
Sfagnum
Expert!
Posts: 1284
Joined: 2004-07-04 00:14:58
Contact:

Post by Sfagnum »

Leo wrote:

Code: Select all

 
гыг :D
Leo
Expert!
Posts: 791
Joined: 2005-01-15 19:15:05
Location: Dragon World
Contact:

Post by Leo »

Sfagnum wrote:гыг :D

Да, я продаю вещи твоим скриптом :D
Sfagnum
Expert!
Posts: 1284
Joined: 2004-07-04 00:14:58
Contact:

Post by Sfagnum »

Leo wrote:
Sfagnum wrote:гыг :D

Да, я продаю вещи твоим скриптом :D
та я ж не против ;)
просто приятственно что вещи старинные ещё юзаются ;)
Dpyr
Posts: 5
Joined: 2009-10-18 12:54:10
Contact:

Re: продажа

Post by Dpyr »

и как он продает?...чет все указал но нон не продает(
Post Reply