Люди помогите! А то моя голова до токого не додумаетса!

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
AD
Posts: 39
Joined: 2004-04-18 01:33:19
Contact:

Люди помогите! А то моя голова до токого не додумаетса!

Post by AD »

Прошу Вас, написать скрипт чтоб лутал из сумок которые на земле лежат. Еслеб он еще лутал сначало арморы а потом банки, этого былоб достаточно. Я думаю это невозможно! Но все-таки заранее благодарем вам за помощь или за то что вы хотели помочь человеку, который сидит на мобеме и нечего не лутает а бегает он на ровне со всеми!Еще раз спосибо добрые люди!


--------------------------------------------------------------------------------------
Да вознаградится добрата человеческая!
BETEPAH
Expert!
Posts: 838
Joined: 2004-05-31 09:31:51
Contact:

Post by BETEPAH »

http://yoko.netroof.net/forum/viewtopic.php?t=478

в свое время написал это, почитай....мож придумаешь чего
AD
Posts: 39
Joined: 2004-04-18 01:33:19
Contact:

!!

Post by AD »

Этож он из твоей сумки сбрасывает в другой бек пек а мне надо 4тоб он из сумки на земле! И хотяб лутал армор,банки,реги, амулеты?
Есле не трудно напиши плизз очень прошу! задрался уже токо просераю а слутать не че немогу:(, а ты сам знаешь как на оскоме ценятся армы:)Очень прошу я недадумаюсь как написть столь сложный макрос!
Заранее благодарен!!!
Shahe
Posts: 19
Joined: 2004-05-22 16:29:37

Post by Shahe »

sub Loot()
VAR WaitTime=500
VAR Exit=0, i
DIM Loot[16]


Loot[0]=0x19B7 ; ore
Loot[1]=0x0EED ; gp
Loot[2]=0x0F7B ; BM
Loot[3]=0x0F7A ; BP
Loot[4]=0x0F84 ; GA
Loot[5]=0x0F85 ; GI
Loot[6]=0x0F86 ; MR
Loot[7]=0x0F88 ; NS
Loot[8]=0x0F8C ; SA
Loot[9]=0x0F8D ; SS
Loot[10]=0x0F87 ; Eyes of newt
Loot[11]=0x0E76 ; Bag
Loot[12]=0x09B0 ; Pounch
Loot[13]=0x0F09 ; mana
Loot[14]=0x0E34 ; Blanc Scroll
Loot[15]=0x0F3F ; Arrow


UO.UseObject('lastcorpse')

if UO.GetQuantity('lastcorpse') then

wait(50)
endif
UO.SetReceivingContainer('0x40E4FB35') ; loot store bag

For i=0 to 15
UO.FindType(Loot[i],-1,'ground')
if UO.GetQuantity('finditem') then
UO.Grab(STR(0),'finditem')
wait(WaitTime)
endif

if UO.GetQuantity('lastcorpse') then
UO.FindType(Loot[i],-1,'lastcorpse')
if UO.GetQuantity('finditem') then
if Loot[i]==0x1078 then
UO.WaitTargetObject('finditem')
UO.UseType('0x0F9E')
else
UO.Grab(STR(0),'finditem')
endif
wait(WaitTime)
endif
endif
next

UO.UnSetReceivingContainer()
end sub
AD
Posts: 39
Joined: 2004-04-18 01:33:19
Contact:

!!

Post by AD »

Прекрасный скрипт токо вот немогу понять в следующем-помогите есле не сложно пожалуйста!
Что вот это такое-DIM Loot[16]?
UO.SetReceivingContainer('0x40E4FB35') ; loot store bag - это сумка из каторой лутать?
if Loot[i]==0x1078 then - что это такое
UO.UseType('0x0F9E') - и вот это?
Заранее благодарен!!!
AD
Posts: 39
Joined: 2004-04-18 01:33:19
Contact:

!!

Post by AD »

Попробовал пишет receivingcontainer? что он хо4ет??
Savage
Expert!
Posts: 1205
Joined: 2004-04-04 11:13:54
Location: Балаково, Саратовская обл.
Contact:

Post by Savage »

Удали эту строку и не парься. Нужна она чтоб весь хлам сыпался в определенный мешочек. Если надо так, то кинь на него инфо и подставь в скрипт его сериал.
AD
Posts: 39
Joined: 2004-04-18 01:33:19
Contact:

!!

Post by AD »

Теперь пишет You can't see the target??
AD
Posts: 39
Joined: 2004-04-18 01:33:19
Contact:

!!

Post by AD »

Ну помогите!
Post Reply