Page 1 of 1

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

Posted: 2004-07-09 05:16:58
by AD
Прошу Вас, написать скрипт чтоб лутал из сумок которые на земле лежат. Еслеб он еще лутал сначало арморы а потом банки, этого былоб достаточно. Я думаю это невозможно! Но все-таки заранее благодарем вам за помощь или за то что вы хотели помочь человеку, который сидит на мобеме и нечего не лутает а бегает он на ровне со всеми!Еще раз спосибо добрые люди!


--------------------------------------------------------------------------------------
Да вознаградится добрата человеческая!

Posted: 2004-07-09 06:40:39
by BETEPAH
http://yoko.netroof.net/forum/viewtopic.php?t=478

в свое время написал это, почитай....мож придумаешь чего

!!

Posted: 2004-07-10 01:33:16
by AD
Этож он из твоей сумки сбрасывает в другой бек пек а мне надо 4тоб он из сумки на земле! И хотяб лутал армор,банки,реги, амулеты?
Есле не трудно напиши плизз очень прошу! задрался уже токо просераю а слутать не че немогу:(, а ты сам знаешь как на оскоме ценятся армы:)Очень прошу я недадумаюсь как написть столь сложный макрос!
Заранее благодарен!!!

Posted: 2004-07-10 14:47:18
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

!!

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

!!

Posted: 2004-07-11 23:35:33
by AD
Попробовал пишет receivingcontainer? что он хо4ет??

Posted: 2004-07-11 23:53:29
by Savage
Удали эту строку и не парься. Нужна она чтоб весь хлам сыпался в определенный мешочек. Если надо так, то кинь на него инфо и подставь в скрипт его сериал.

!!

Posted: 2004-07-12 00:07:23
by AD
Теперь пишет You can't see the target??

!!

Posted: 2004-07-13 01:24:29
by AD
Ну помогите!