Прошу Вас, написать скрипт чтоб лутал из сумок которые на земле лежат. Еслеб он еще лутал сначало арморы а потом банки, этого былоб достаточно. Я думаю это невозможно! Но все-таки заранее благодарем вам за помощь или за то что вы хотели помочь человеку, который сидит на мобеме и нечего не лутает а бегает он на ровне со всеми!Еще раз спосибо добрые люди!
--------------------------------------------------------------------------------------
Да вознаградится добрата человеческая!
Люди помогите! А то моя голова до токого не додумаетса!
Moderators: Murderator+, Murderator
http://yoko.netroof.net/forum/viewtopic.php?t=478
в свое время написал это, почитай....мож придумаешь чего
в свое время написал это, почитай....мож придумаешь чего
!!
Этож он из твоей сумки сбрасывает в другой бек пек а мне надо 4тоб он из сумки на земле! И хотяб лутал армор,банки,реги, амулеты?
Есле не трудно напиши плизз очень прошу! задрался уже токо просераю а слутать не че немогу:(, а ты сам знаешь как на оскоме ценятся армы:)Очень прошу я недадумаюсь как написть столь сложный макрос!
Заранее благодарен!!!
Есле не трудно напиши плизз очень прошу! задрался уже токо просераю а слутать не че немогу:(, а ты сам знаешь как на оскоме ценятся армы:)Очень прошу я недадумаюсь как написть столь сложный макрос!
Заранее благодарен!!!
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
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
!!
Прекрасный скрипт токо вот немогу понять в следующем-помогите есле не сложно пожалуйста!
Что вот это такое-DIM Loot[16]?
UO.SetReceivingContainer('0x40E4FB35') ; loot store bag - это сумка из каторой лутать?
if Loot[i]==0x1078 then - что это такое
UO.UseType('0x0F9E') - и вот это?
Заранее благодарен!!!
Что вот это такое-DIM Loot[16]?
UO.SetReceivingContainer('0x40E4FB35') ; loot store bag - это сумка из каторой лутать?
if Loot[i]==0x1078 then - что это такое
UO.UseType('0x0F9E') - и вот это?
Заранее благодарен!!!
!!
Попробовал пишет receivingcontainer? что он хо4ет??
!!
Теперь пишет You can't see the target??