Yoko

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
UO.SetArm('temp')
UO.WaitTargetObject('Corpse')
UO.UseType('0x0F51') ;dagger
wait(1000)
UO.Arm('temp')
wait(1000)
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

_________________
Ultima Online will save us from narcotics!

Srazu zhe eshe vopros!
Ona rabotaet toko pri razrezke trupa?? mozhno eto vopshe iz skripta ubrat' kak to? toko 4tob iz ukazonnogo trupa bral ukazannie veshi???

_________________
Ultima Online will save us from narcotics!

Попробуй так.

а мне кажется лучше так:

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[37] 


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 36 
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?

_________________
Ultima Online will save us from narcotics!

Ты мой пробывал?

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??

_________________
Ultima Online will save us from narcotics!

1. Не забудь изменить строки: "DIM Loot[37] " и "For i=0 to 36" - подробно не глядел, но вродь все.
2. ,exec loot
3. РУКАМИ! Убери ноги со стола