АвтоЛут-АвтоРезка...

Ask for scripts here

Moderators: Murderator+, Murderator

Post Reply
Botinokk
Posts: 62
Joined: 2006-09-08 04:46:12

АвтоЛут-АвтоРезка...

Post by Botinokk »

Прошу помочь скрипт Режет одевает оружие НО не лутает исправьте пожалуйста!



Code: Select all

sub Loot()
VAR WaitTime=400
VAR Exit=0, i
DIM Loot[52]


Loot[0]=0x108A ;кольцо
Loot[1]=0x1086 ;браслет
Loot[2]=0x1085 ;бусы
Loot[3]=0x1549 ; маска
Loot[4]=0x204E ; роба
Loot[5]=0x1515 ; клока ельвин
Loot[6]=0x204E ; клока инкогнито
Loot[7]=0x204E ; клока дюинг
Loot[8]=0x13B5 ; вепы
Loot[9]=0x1400 ;
Loot[10]=0x13B3 ;
Loot[11]=0x1406 ;
Loot[12]=0x0F5C ;
Loot[13]=0x13AF ;
Loot[14]=0x143A ;
Loot[15]=0x1404 ;
Loot[16]=0x13FE ;
Loot[17]=0x143C ;
Loot[18]=0x1438 ;
Loot[19]=0x1440 ;
Loot[20]=0x13B1 ;
Loot[21]=0x0F5E ;
Loot[22]=0x0F62 ;
Loot[23]=0x0F4F ;
Loot[24]=0x13B9 ;
Loot[25]=0x0F45 ;
Loot[26]=0x0F49 ;
Loot[27]=0x0F47 ;
Loot[28]=0x13FB ;
Loot[29]=0x1442 ;
Loot[30]=0x13B8 ;
Loot[31]=0x1403 ;
Loot[32]=0x0F4D ;
Loot[33]=0x143E ;
Loot[34]=0x13FC ;
Loot[35]=0x1B78 ;капля
Loot[36]=0x1B7A ;круг
Loot[37]=0x1B76 ;хитер
Loot[38]=0x1BC3 ;хаос щит
Loot[39]=0x1415 ;арм
Loot[40]=0x1411 ;
Loot[41]=0x1C04 ;
Loot[42]=0x1414 ;
Loot[43]=0x1412 ;
Loot[44]=0x1413 ;
Loot[45]=0x1410 ;
Loot[46]=0x13D9 ;кожа
Loot[47]=0x13D8 ;
Loot[48]=0x13D4 ;
Loot[49]=0x13D5 ;
Loot[50]=0x13D6 ;
Loot[51]=0x1DB9 ;
Loot[52]=0x1541 ; саха
UO.UseObject('lastcorpse')


UO.SetArm('temp')
UO.UseType('0x13F6') ; бучер
wait(500)
while uo.Targeting()
  wait(100)
wend
UO.Arm('temp')
wait(500)
endif

; UO.SetReceivingContainer('0x4000DA0F') ; loot store bag

For i=0 to 52
UO.FindType(Loot[i],-1,'ground')
if UO.GetQuantity('finditem') then
UO.Grab(STR(0),'finditem')
wait(WaitTime)
endif

if UO.GetQuantity('lastcorpse') then
UO.FindType(Loot[i],-1,'lastcorpse')
if UO.GetQuantity('finditem') then
if Loot[i]==0x1078 then
UO.WaitTargetObject('finditem')
UO.UseType('0x0F9E')
else
UO.Grab(STR(0),'finditem')
endif
wait(WaitTime)
endif
endif
next

; UO.UnSetReceivingContainer()
end sub
Last edited by Botinokk on 2009-02-28 17:54:27, edited 1 time in total.
Top
Botinokk
Posts: 62
Joined: 2006-09-08 04:46:12

Post by Botinokk »

неверю что ни кто не знаем как сделать чтоб лутил ))
Top
ADEPT_ABP
Posts: 223
Joined: 2006-05-12 08:03:45
Contact:
Contact ADEPT_ABP

Post by ADEPT_ABP »

В большинстве случаев, если скрипт не оформлен "под код" его не читают.
Играю на drw.ru
Использую инжект 505.18 VeNd0r
Начинающий скриптер.
Top
Edikus
Posts: 98
Joined: 2004-07-12 13:03:57

Post by Edikus »

ADEPT_ABP wrote:В большинстве случаев, если скрипт не оформлен "под код" его не читают.


факт
Top
Botinokk
Posts: 62
Joined: 2006-09-08 04:46:12

Post by Botinokk »

исправил
Top
Successful
Posts: 174
Joined: 2008-12-13 00:00:15

Re: АвтоЛут-АвтоРезка...

Post by Successful »

Code: Select all

sub Loot()
VAR WaitTime=400
VAR Exit=0, i
DIM Loot[52]


Loot[0]=0x108A ;кольцо
Loot[1]=0x1086 ;браслет
Loot[2]=0x1085 ;бусы
Loot[3]=0x1549 ; маска
Loot[4]=0x204E ; роба
Loot[5]=0x1515 ; клока ельвин
Loot[6]=0x204E ; клока инкогнито
Loot[7]=0x204E ; клока дюинг
Loot[8]=0x13B5 ; вепы
Loot[9]=0x1400 ;
Loot[10]=0x13B3 ;
Loot[11]=0x1406 ;
Loot[12]=0x0F5C ;
Loot[13]=0x13AF ;
Loot[14]=0x143A ;
Loot[15]=0x1404 ;
Loot[16]=0x13FE ;
Loot[17]=0x143C ;
Loot[18]=0x1438 ;
Loot[19]=0x1440 ;
Loot[20]=0x13B1 ;
Loot[21]=0x0F5E ;
Loot[22]=0x0F62 ;
Loot[23]=0x0F4F ;
Loot[24]=0x13B9 ;
Loot[25]=0x0F45 ;
Loot[26]=0x0F49 ;
Loot[27]=0x0F47 ;
Loot[28]=0x13FB ;
Loot[29]=0x1442 ;
Loot[30]=0x13B8 ;
Loot[31]=0x1403 ;
Loot[32]=0x0F4D ;
Loot[33]=0x143E ;
Loot[34]=0x13FC ;
Loot[35]=0x1B78 ;капля
Loot[36]=0x1B7A ;круг
Loot[37]=0x1B76 ;хитер
Loot[38]=0x1BC3 ;хаос щит
Loot[39]=0x1415 ;арм
Loot[40]=0x1411 ;
Loot[41]=0x1C04 ;
Loot[42]=0x1414 ;
Loot[43]=0x1412 ;
Loot[44]=0x1413 ;
Loot[45]=0x1410 ;
Loot[46]=0x13D9 ;кожа
Loot[47]=0x13D8 ;
Loot[48]=0x13D4 ;
Loot[49]=0x13D5 ;
Loot[50]=0x13D6 ;
Loot[51]=0x1DB9 ;
Loot[52]=0x1541 ; саха
UO.UseObject('lastcorpse')

UO.SetArm('temp')
uo.waittargetobject('lastcorpse')
UO.UseType('0x13F6') ; бучер
wait(500)
UO.Arm('temp')
wait(500)

For i=0 to 52
UO.FindType(Loot[i],-1,'ground')
if uo.findcount() then
UO.Grab(STR(0),'finditem')
wait(WaitTime)
endif

if UO.GetQuantity('lastcorpse') then
UO.FindType(Loot[i],-1,'lastcorpse')
if uo.findcount() then
if Loot[i]==0x1078 then
UO.WaitTargetObject('finditem')
UO.UseType('0x0F9E')
else
UO.Grab(STR(0),'finditem')
endif
wait(WaitTime)
endif
endif
next
end sub
Top
Botinokk
Posts: 62
Joined: 2006-09-08 04:46:12

Post by Botinokk »

ну и что ты там поченил? )) порезал и тупит снова + тагрег пропал которым тыкать на труп
Top
Post Reply

Return to “I need script!”