Yoko

Нужно добавить строчку чтобы появлялся таргет ,для того чтобы можно было указать самому на труп-тоесь только поле моего нажатия на бинд и после указанием на тело будет разрезано указанное мною тело. Вот собственно сам скрипт :

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
A[39]=0x0E34 ; Blank Scroll
A[40]=0x14EB ; Treassure Map
A[41]=0x0F90 ; Dead Woods
A[42]=0x0F7E ; Skeleton Bones
A[43]=0x0F25 ; Pieces of Amber
A[44]=0x0F16 ; Ametist
A[45]=0x0F20 ; Tourmaline
A[46]=0x0F26 ; Diamond
A[47]=0x0F30 ; Diamond
A[48]=0x0F78 ; Batwings


UO.WaitTargetObject("lastcorpse")
UO.useobject (0x4013EE14); chem rezat"
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

Замени:

UO.WaitTargetObject("lastcorpse")
UO.useobject (0x4013EE14); chem rezat"
wait(1000) 

На :

UO.useobject (0x4013EE14); chem rezat"
while UO.Targeting()
  wait(100)
wend 

спс ,таргет есть ,но теперь он ошибку выдаёт в етой строчке
Wait(i)
END if
next
end sub
можно как нибудь концовку переделать (желательно чтобы этот скрипт кто-нибудь протестил ,чтоб он ошибок невыкидывал некаких)
Всем спасибо