Как зделать макрос на Алхимию!!!!

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Vaha)
Posts: 90
Joined: 2004-12-18 18:56:10

Как зделать макрос на Алхимию!!!!

Post by Vaha) »

Как зделать так что б чар Заполнял кегу и кода она уже заполнена он кидал ёё в сундук)?
BETEPAH
Expert!
Posts: 838
Joined: 2004-05-31 09:31:51
Contact:

Re: Как зделать макрос на Алхимию!!!!

Post by BETEPAH »

Vaha) wrote:Как зделать так что б чар Заполнял кегу и кода она уже заполнена он кидал ёё в сундук)?

Проверяй количество потионов в кеге ...если стало к примеру 255 то сброс кеги в сундук ....... потом берем новую кегу и добавляем ее командой как ресив контейнер ...и все по кругу.
Все просто.
BETEPAH ™
Vaha)
Posts: 90
Joined: 2004-12-18 18:56:10

Re: Как зделать макрос на Алхимию!!!!

Post by Vaha) »

BETEPAH wrote:
Vaha) wrote:Как зделать так что б чар Заполнял кегу и кода она уже заполнена он кидал ёё в сундук)?

Проверяй количество потионов в кеге ...если стало к примеру 255 то сброс кеги в сундук ....... потом берем новую кегу и добавляем ее командой как ресив контейнер ...и все по кругу.

На рануо пишется на соко кега заполнена ..... а вообще то в кегу у нас на шарде влазит максимум токо 100 банок)
Если тебе не трудно скинь пример)
BETEPAH
Expert!
Posts: 838
Joined: 2004-05-31 09:31:51
Contact:

Post by BETEPAH »

Я на рануо не писал ......но на сфере проверка делается простоWhile

UO.FindType(Potion,-1,-1)
UO.MoveItem('finditem',0,BagSer)
FastLootCheck()
if UO.InJournal("Too many items") then
NewBag()
endif

sub NewBag()
Open(Cont1)
Open(Cont2)
UO.FindType(Bag, -1, Cont1)
BagSer=UO.GetSerial('finditem')
UO.MoveItem(BagSer, 0, Cont2)
wait(1000)
end sub

Так эту проблему решил Эмиль.
Все просто.
BETEPAH ™
Vaha)
Posts: 90
Joined: 2004-12-18 18:56:10

Post by Vaha) »

BETEPAH wrote:Я на рануо не писал ......но на сфере проверка делается простоWhile

UO.FindType(Potion,-1,-1)
UO.MoveItem('finditem',0,BagSer)
FastLootCheck()
if UO.InJournal("Too many items") then
NewBag()
endif

sub NewBag()
Open(Cont1)
Open(Cont2)
UO.FindType(Bag, -1, Cont1)
BagSer=UO.GetSerial('finditem')
UO.MoveItem(BagSer, 0, Cont2)
wait(1000)
end sub

Так эту проблему решил Эмиль.

Сенк !!.. щас буду тестить)
Post Reply