Eshe voprosik,ja vospolzovalsja lutilkoj Savage no u menja 4to to ne poluchilos'

Pishet jakobi YOU CANT DO IT otkrivaet trup i LootBag i ne che ne lutit


sub Loot()
VAR WaitTime=800
VAR Exit=0, i, FromCorpse=0
DIM Loot[40]


Loot[0]=0x19B9 ; xz
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]=0x140E ; Ring Kaska
Loot[11]=0x13EC ; Ring Puzo
Loot[12]=0x13EE ; Ring Lokti
Loot[13]=0x13EB ; Ring per4i
Loot[14]=0x13F0 ; ring nogi
Loot[15]=0x1B74 ; Kite Shield
Loot[16]=0x183B ; GH
Loot[17]=0x182D ; Invisi
Loot[18]=0x182C ; Total refresh
Loot[19]=0x1838 ; mana
Loot[20]=0x183E ; Tmana
Loot[21]=0x0E76 ; Bag
Loot[22]=0x13B2 ; Frotstbringer
Loot[23]=0x13B1 ; Bows
Loot[24]=0x1412 ; Plate helm
Loot[25]=0x1414 ; plate per4i
Loot[26]=0x0F79 ; plate ple4i
Loot[27]=0x0F3F ; Arrow
Loot[28]=0x1415 ; Plate Chest
Loot[29]=0x1F4C ; Scroll Recall
Loot[30]=0x1413 ; Plate Gorget
Loot[31]=0x1F40 ; Plate Nogi
Loot[32]=0x1B76 ; Heater Shield
Loot[33]=0x0F47 ; Battle Axe
Loot[34]=0x0F4D ; Bardi6
Loot[35]=0x0E21 ; Bandages
Loot[36]=0x1F4C ; xz


UO.DeleteJournal()
UO.UseObject('LootBag')
wait(100)
If UO.InJournal("You can") Then
UO.WaitTargetObject('backpack')
UO.AddObject('LootBag')
UO.Print("+++ LootBag ne nayden - lutim v pack!")
EndIf

If UO.GetSerial('lastcorpse')<>'0x00000000' Then
If UO.GetSerial('lastcorpse')==UO.GetSerial('Corpse') Then
UO.Print("Pokaji trup!")
UO.AddObject('Corpse')
While UO.Targeting()==2
wait(100)
Wend
Else
UO.WaitTargetObject('lastcorpse')
UO.AddObject('Corpse')
EndIf

UO.DeleteJournal()
UO.UseObject('Corpse')
wait(100)
If UO.InJournal("You can") Then
UO.Print("+++ Sorry ne mogu dostat!")
Else
If UO.GetQuantity('Corpse') Then
FromCorpse=1
Endif
Endif
Endif


For i=0 to 31
If FromCorpse Then
Exit=0
While Exit<>1
UO.FindType(Loot[i],-1,'Corpse')
If UO.FindCount() Then
UO.MoveItem('finditem','0','LootBag')
wait(WaitTime)
Else
Exit=1
Endif
Wend
Endif
Exit=0
While Exit<>1
UO.FindType(Loot[i],-1,'ground')
If UO.FindCount() Then
UO.MoveItem('finditem','0','LootBag')
wait(WaitTime)
Else
Exit=1
Endif
Wend
Next
UO.Print("!!! Polutal!")
end sub

neznaju po4emu no on lootit tolko neskolko veshej,i to menee vazhnie...
armori ne lootit,hotja vse TYPe ja proveril vse verno...po4emu tak?

CJloHuK bolshoe spasibo,vorde rabotaet,u menja est' paru voprosov e6e...
1)esli dobavlju itemtypov bolshe skript budet prodolzhat' rabotat'

2)mozhno li ego zapuskat' kak to na knopku? K primeru v boju podbezhal,nazhal knopku slutal i dalshe pobezhal?

3)kak im pravil'no polzovatsja??