Прайс-листы вендоров :)

[agem]

Вот я как раз про контейнер и не понял. Можешь чуть поподробнее написать, как к этому контейнеру доступ получить. Искать на NPC что-то с именем "(21)"?

[GimFlex]

толи меня глючит но видел у друга прогу на дельфе в нее все картинки цены и т.д. заполняется и смотришь хз если узнаю поподробнее отпишусь

[Grin]

просто...
Говорим "buy" ждем когда указатель lastcontainer измениться...
Если изменилось смотрим кому он пренадлежит(uo.ContainerOf()), если нашему НПС то вуаля все что в этом контаинере то наше;))
Дальше делаем что хотим...

[Grin]

могу только по содействовать в определении блака памяти;)
Не смотрел статичный он или нет...

[admir]

ищу это)

[Grin]

Это?;) говори конкретний может я тоже ищу;)

[admir]

а ты не писал готовый скрипт с прайс листом ?
я помню еще давно ты мутил что-то с ласт контейнером ) в длл встраивал указатель .

вобщем нужна помощь в написании прайс листа )

Если изменилось смотрим кому он пренадлежит(uo.ContainerOf()), если нашему НПС то вуаля все что в этом контаинере то наше;))

а как все это дело просмотреть?

[Grin]

велком ту ася...

[Edred]

А АГРСа было сделано не так. А вот как (смотри комменты):

Code: Select all

# Перед запуском создать пустой шоплист 'vendorzzz' и включить Verb Logging
# После обхода вендоров скопировать injection_log.txt в папку с vendorzzz.exe
# и запустить программу. Скопируйте из текстового окна Injection список вендоров
# в программу и нажмите GO.
# Не забудть отрубить Verb Logging %)

sub add_vendor()
  UO.Print('Please select vendor') 
  UO.Exec('addobject TmpObj') 
  While UO.Targeting() 
    Wait(100) 
  Wend
  If UO.GetSerial('TmpObj')=='0x00000000' Then
    Return
  EndIf
  UO.Click('TmpObj')
  CheckLag()
  UO.Buy('vendorzzz', UO.GetName('TmpObj'))
  CheckLag()
  UO.IgnoreReset()
  Repeat
    UO.FindType('0x2af8', '-1', 'TmpObj')
    While UO.FindCount()>0
      If UO.GetLayer('finditem')=='Rstk' Then
        UO.TextPrint(UO.GetSerial('finditem')+'='+UO.GetName('TmpObj'))
        UO.TextOpen()
        Return
      EndIf
    Wend
  Until UO.FindCount()<2
  UO.TextPrint("Can't find "+UO.GetName('TmpObj')+"'s restock container")
  UO.TextOpen()
end sub

SUB CheckLag()
; Проверка на лаги  
  DeleteJournal("backpack") 
  UO.Click('backpack') 
  Repeat 
    Wait(100) 
  Until UO.InJournal("backpack") 
END SUB

SUB DeleteJournal(MsgText)
; Очистка в журнале всех сообщений, содержащих MsgText
  Var MsgNumb
  Repeat 
    MsgNumb=UO.InJournal(MsgText)
    If MsgNumb<>0 Then
      UO.SetJournalLine(MsgNumb-1, '')
    EndIf
  Until Not UO.InJournal(MsgText)
END SUB

Копирайт скрипта, естественно, AGRS. Екзешник пока найти не могу, но лень диски с архивом УО перерывать (скрипты все я оставил на компе, когда сносил УО на ДВД).

Но экзешник на самом деле делает очень простую вещь - шерстит лог инжекта, вытаскивает инфу о товаре (по списку вендоров) и цене и загоняет в ексельный файл. Исходников екзешника у меня никогда и не было. Так что проще самому написать (тому кому надо).

[admir]

ана стелсе это реализуется?
и еще такой момент , как ласт контейнер - прайс лист вендоров не записывается .