Page 1 of 1

Дайте плз скрипту на loot из трупов

Posted: 2004-11-12 11:39:51
by Silf
Дайте плз скрипту на loot из трупов

Re: Дайте плз скрипту на loot из трупов

Posted: 2004-11-12 13:49:07
by MitAl
Silf wrote:Дайте плз скрипту на loot из трупов
Неужели поиском не можешь воспользоваться ???

Code: Select all

sub Loot() 
var i,n 
Dim A[38] 
A[1] = 0x0f7b ;BloodMoss 
A[2] = 0x0f09 ;Invisibility 
A[3] = 0x0f09 ;ManaRefresh 
A[4] = 0x0f0b ;Refresh 
A[5] = 0x13B9 ;VikingSword 
A[6] = 0x0f0c ;Heal 
A[7] = 0x143E ;Halberd 
A[8] = 0x1ce1 ;haed 
A[9] = 0x1f14 ;Runa 
A[10] = 0x204e ;RobeOfDarkMage 
A[11] = 0x0f51 ;Dagger 
A[12] = 0x0f7a ;BlackPearl 
A[13] = 0x1404 ;WarFork 
A[14] = 0x0f84 ;Garlic 
A[15] = 0x0f85 ;Ginseng 
A[16] = 0x1B76 ;Heater 
A[17] = 0x1411 ;PlatemailLegs 
A[18] = 0x1415 ;Platemail 
A[19] = 0x1410 ;PlatemailArms 
A[20] = 0x1414 ;PlatemailGauntlets 
A[21] = 0x1412 ;PlatemailHelm 
A[22] = 0x1413 ;PlatemailHelm 
A[23] = 0x1F40 ;Poison 
A[24] = 0x1F4A ;Light 
A[25] = 0x0f86 ;MandrakeRoot 
A[26] = 0x0f88 ;Nightshade 
A[27] = 0x0E76 ;Bag 
A[28] = 0x09B0 ;BeltPouch 
A[29] = 0x0E75 ;Backpack 
A[30] = 0x0E21 ;bandage 
A[31] = 0x1F5F ;FS 
A[32] = 0x1F49 ;GH 
A[33] = 0x1F4C ;Recall 
A[34] = 0x0f8c ;SulphorousAsh 
A[35] = 0x0f8d ;SpidersSilk 
A[36] = 0x0EED ;Gold
A[37] = 0x1BD1; Feathers
A[38] = 0x09F1; myaso ptichek

UO.WaitTargetObject("lastcorpse") 
UO.useobject (0x4013EE14); ID того,чем будешь резать
wait(1000)

i = 1200 
FOR n=1 TO 38 
uo.findtype(A[n],"-1","lastcorpse") 
if uo.findcount() > 0 then 
UO.grab(1, "finditem") 
uo.print("Found "+str(uo.findcount())) 
Wait(i) 
END if 
next 
end sub
данный скрипт режет и лутит последний труп

Posted: 2004-11-12 17:08:24
by MadUser
А данный скрипт будет работать на DRW ?

Posted: 2004-11-13 13:51:59
by MitAl
MadUser wrote:А данный скрипт будет работать на DRW ?
:-)
посмотри Location и тебе сразу станет все ясно
:-)

Posted: 2004-11-26 06:31:41
by CANNABIS
Народ а вот у меня вопрос по скрипту.Короче я переправил типы в этом скрипте и протестил,так у меня труп режится,а шмотки не лутятся(это я пробывал когда автооупен выклучен),когда автооупен врубаю все пашет.Так а можно сделать так что скрипт пахал при отключенном автооупене ? Подскажите плиз

Re: Дайте плз скрипту на loot из трупов

Posted: 2005-02-24 14:06:21
by Ekkie
MitAl wrote:
Silf wrote:Дайте плз скрипту на loot из трупов
Неужели поиском не можешь воспользоваться ???

Code: Select all

sub Loot() 
var i,n 
Dim A[38] 
A[1] = 0x0f7b ;BloodMoss 
A[2] = 0x0f09 ;Invisibility 
A[3] = 0x0f09 ;ManaRefresh 
A[4] = 0x0f0b ;Refresh 
A[5] = 0x13B9 ;VikingSword 
A[6] = 0x0f0c ;Heal 
A[7] = 0x143E ;Halberd 
A[8] = 0x1ce1 ;haed 
A[9] = 0x1f14 ;Runa 
A[10] = 0x204e ;RobeOfDarkMage 
A[11] = 0x0f51 ;Dagger 
A[12] = 0x0f7a ;BlackPearl 
A[13] = 0x1404 ;WarFork 
A[14] = 0x0f84 ;Garlic 
A[15] = 0x0f85 ;Ginseng 
A[16] = 0x1B76 ;Heater 
A[17] = 0x1411 ;PlatemailLegs 
A[18] = 0x1415 ;Platemail 
A[19] = 0x1410 ;PlatemailArms 
A[20] = 0x1414 ;PlatemailGauntlets 
A[21] = 0x1412 ;PlatemailHelm 
A[22] = 0x1413 ;PlatemailHelm 
A[23] = 0x1F40 ;Poison 
A[24] = 0x1F4A ;Light 
A[25] = 0x0f86 ;MandrakeRoot 
A[26] = 0x0f88 ;Nightshade 
A[27] = 0x0E76 ;Bag 
A[28] = 0x09B0 ;BeltPouch 
A[29] = 0x0E75 ;Backpack 
A[30] = 0x0E21 ;bandage 
A[31] = 0x1F5F ;FS 
A[32] = 0x1F49 ;GH 
A[33] = 0x1F4C ;Recall 
A[34] = 0x0f8c ;SulphorousAsh 
A[35] = 0x0f8d ;SpidersSilk 
A[36] = 0x0EED ;Gold
A[37] = 0x1BD1; Feathers
A[38] = 0x09F1; myaso ptichek

UO.WaitTargetObject("lastcorpse") 
UO.useobject (0x4013EE14); ID того,чем будешь резать
wait(1000)

i = 1200 
FOR n=1 TO 38 
uo.findtype(A[n],"-1","lastcorpse") 
if uo.findcount() > 0 then 
UO.grab(1, "finditem") 
uo.print("Found "+str(uo.findcount())) 
Wait(i) 
END if 
next 
end sub
данный скрипт режет и лутит последний труп

Line 91 : Rune time Error
Это как понят и как исправаить...?

Posted: 2005-02-24 14:12:11
by 666Man666
CANNABIS wrote:Народ а вот у меня вопрос по скрипту.Короче я переправил типы в этом скрипте и протестил,так у меня труп режится,а шмотки не лутятся(это я пробывал когда автооупен выклучен),когда автооупен врубаю все пашет.Так а можно сделать так что скрипт пахал при отключенном автооупене ? Подскажите плиз
Нельзя, т.к Инжект не знает, что находится в нутри нового трупа...

Posted: 2005-02-24 15:42:56
by Ekkie
Как добавить в скрипт чтоб брал бат винги?=)

Posted: 2005-02-24 16:29:19
by BETEPAH
A[38] = 0x09F1; myaso ptichek

вставь тайп свой )))

Posted: 2005-02-24 17:08:10
by Edred
666Man666 wrote:
CANNABIS wrote:Народ а вот у меня вопрос по скрипту.Короче я переправил типы в этом скрипте и протестил,так у меня труп режится,а шмотки не лутятся(это я пробывал когда автооупен выклучен),когда автооупен врубаю все пашет.Так а можно сделать так что скрипт пахал при отключенном автооупене ? Подскажите плиз
Нельзя, т.к Инжект не знает, что находится в нутри нового трупа...
Можно, просто вставь в скрипт после его резанья команды:

Code: Select all

UO.UseObject( 'труп' )
wait(500)