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)