Лутилка от Savage не ворк :(

Unreal Pro Bw · Post by **Unreal Pro Bw** » 2005-04-12 17:36:23

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 :cry:

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

Unreal Pro Bw · Post by **Unreal Pro Bw** » 2005-04-12 17:39:17

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

Savage · Post by **Savage** » 2005-04-13 13:25:20

Unreal Pro Bw wrote: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

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

CJloHuK · Post by **CJloHuK** » 2005-04-13 13:41:16

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

Code: Select all

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

Unreal Pro Bw · Post by **Unreal Pro Bw** » 2005-04-13 14:04:18

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

CJloHuK · Post by **CJloHuK** » 2005-04-13 14:59:10

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

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

Unreal Pro Bw · Post by **Unreal Pro Bw** » 2005-04-13 20:04:46

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

:roll:

Destruction · Post by **Destruction** » 2005-04-14 15:23:36

Unreal Pro Bw wrote: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??

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

Yoko

Лутилка от Savage не ворк :(

Лутилка от Savage не ворк :(

Re: Лутилка от Savage не ворк :(