Yoko
http://forum.yoko.com.ua/

Люди помогите! А то моя голова до токого не додумаетса!
http://forum.yoko.com.ua/viewtopic.php?f=20&t=816		 Page 1 of 1
Author:  AD [ 2004-07-09 05:16:58 ]
Post subject:  Люди помогите! А то моя голова до токого не додумаетса!
Прошу Вас, написать скрипт чтоб лутал из сумок которые на земле лежат. Еслеб он еще лутал сначало арморы а потом банки, этого былоб достаточно. Я думаю это невозможно! Но все-таки заранее благодарем вам за помощь или за то что вы хотели помочь человеку, который сидит на мобеме и нечего не лутает а бегает он на ровне со всеми!Еще раз спосибо добрые люди!


--------------------------------------------------------------------------------------
Да вознаградится добрата человеческая!
Author:  BETEPAH [ 2004-07-09 06:40:39 ]
Post subject: 
http://yoko.netroof.net/forum/viewtopic.php?t=478

в свое время написал это, почитай....мож придумаешь чего
Author:  AD [ 2004-07-10 01:33:16 ]
Post subject:  !!
Этож он из твоей сумки сбрасывает в другой бек пек а мне надо 4тоб он из сумки на земле! И хотяб лутал армор,банки,реги, амулеты?
Есле не трудно напиши плизз очень прошу! задрался уже токо просераю а слутать не че немогу:(, а ты сам знаешь как на оскоме ценятся армы:)Очень прошу я недадумаюсь как написть столь сложный макрос!
Заранее благодарен!!!
Author:  Shahe [ 2004-07-10 14:47:18 ]
Post subject: 
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
Author:  AD [ 2004-07-11 23:02:04 ]
Post subject:  !!
Прекрасный скрипт токо вот немогу понять в следующем-помогите есле не сложно пожалуйста!
Что вот это такое-DIM Loot[16]?
UO.SetReceivingContainer('0x40E4FB35') ; loot store bag - это сумка из каторой лутать?
if Loot[i]==0x1078 then - что это такое
UO.UseType('0x0F9E') - и вот это?
Заранее благодарен!!!
Author:  AD [ 2004-07-11 23:35:33 ]
Post subject:  !!
Попробовал пишет receivingcontainer? что он хо4ет??
Author:  Savage [ 2004-07-11 23:53:29 ]
Post subject: 
Удали эту строку и не парься. Нужна она чтоб весь хлам сыпался в определенный мешочек. Если надо так, то кинь на него инфо и подставь в скрипт его сериал.
Author:  AD [ 2004-07-12 00:07:23 ]
Post subject:  !!
Теперь пишет You can't see the target??
Author:  AD [ 2004-07-13 01:24:29 ]
Post subject:  !!
Ну помогите!
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/