Yoko :: помогите плиззз со скриптоммм

sub Loot()

VAR WaitTime=600
VAR Exit=0, i
DIM Loot[29]

Loot[0] = 0x1B78 ; gnom shield
Loot[1] = 0x13FA ; axe
Loot[2] = 0x1402 ; elf pika
Loot[3] = 0x1B74 ; dragon shield
Loot[4] = 0x1B78 ; titan shield
Loot[5] = 0x143A ; first
Loot[6] = 0x14EF ; dids
Loot[7] = 0x0EED ; gp
Loot[8] = 0x1088 ; amuls
Loot[9] = 0x1B76 ; shields
Loot[10] = 0x13FC ; arbalet
Loot[11] = 0x0EED ; ???? ????
Loot[12] = 0x1B74 ; ????
Loot[13] = 0x13C9 ; ???? ????
Loot[14] = 0x13C5 ; ???? ????
Loot[15] = 0x13C6 ; ???? ??????
Loot[16] = 0x13C7 ; ???? ??????
Loot[17] = 0x1DB9 ; ???? ?????
Loot[18] = 0x1411 ; legs
Loot[19] = 0x0E25 ; alebardi
Loot[20] = 0x13B5 ; swords
Loot[21] = 0x1ECD ; hummers
Loot[22] = 0x1404 ; forks
Loot[23] = 0x13B9 ; blade
Loot[24] = 0x13FE ; katana
Loot[25] = 0x0A3E ; ??????
Loot[26] = 0x0E75 ; ??????
Loot[27] = 0x0E76 ; ???
Loot[28] = 0x09B0 ; ???? ?1
Loot[29] = 0x0E79 ; ???? ?2

UO.UseObject('lastcorpse')

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

For i=0 to 29
UO.FindType(Loot[i],-1,'lastcorpse')
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

как зделать так чтобы он работал без нажатия кнопки а лутал автоматом плизз помогите

Code:

sub Loot()
while 1==1
VAR WaitTime=600
     VAR Exit=0, i
     DIM Loot[29]
     
      Loot[0] = 0x1B78 ; gnom shield 
      Loot[1] = 0x13FA ; axe
      Loot[2] = 0x1402 ; elf pika 
      Loot[3] = 0x1B74 ; dragon shield
      Loot[4] = 0x1B78 ; titan shield
      Loot[5] = 0x143A ; first
      Loot[6] = 0x14EF ; dids
      Loot[7] = 0x0EED ; gp
      Loot[8] = 0x1088 ; amuls
      Loot[9] = 0x1B76 ; shields
     Loot[10] = 0x13FC ; arbalet
     Loot[11] = 0x0EED ; ???? ????
     Loot[12] = 0x1B74 ; ????
     Loot[13] = 0x13C9 ; ???? ????
     Loot[14] = 0x13C5 ; ???? ????
     Loot[15] = 0x13C6 ; ???? ??????
     Loot[16] = 0x13C7 ; ???? ??????
     Loot[17] = 0x1DB9 ; ???? ?????
     Loot[18] = 0x1411 ; legs
     Loot[19] = 0x0E25 ; alebardi
     Loot[20] = 0x13B5 ; swords
     Loot[21] = 0x1ECD ; hummers
     Loot[22] = 0x1404 ; forks
     Loot[23] = 0x13B9 ; blade
     Loot[24] = 0x13FE ; katana
     Loot[25] = 0x0A3E ; ??????
     Loot[26] = 0x0E75 ; ??????
     Loot[27] = 0x0E76 ; ???
     Loot[28] = 0x09B0 ; ???? ?1
     Loot[29] = 0x0E79 ; ???? ?2
     
     
     
     
     UO.UseObject('lastcorpse')


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

     For i=0 to 29
          UO.FindType(Loot[i],-1,'lastcorpse')
          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()
wait (1000)
wend
end sub

будет проверять на возможность лута каждую секунду...

sub Loot()

VAR WaitTime=600
VAR Exit=0, i
DIM Loot[29]

Loot[0] = 0x1B78 ; gnom shield
Loot[1] = 0x13FA ; axe
Loot[2] = 0x1402 ; elf pika
Loot[3] = 0x1B74 ; dragon shield
Loot[4] = 0x1B78 ; titan shield
Loot[5] = 0x143A ; first
Loot[6] = 0x14EF ; dids
Loot[7] = 0x0EED ; gp
Loot[8] = 0x1088 ; amuls
Loot[9] = 0x1B76 ; shields
Loot[10] = 0x13FC ; arbalet
Loot[11] = 0x0EED ; ???? ????
Loot[12] = 0x1B74 ; ????
Loot[13] = 0x13C9 ; ???? ????
Loot[14] = 0x13C5 ; ???? ????
Loot[15] = 0x13C6 ; ???? ??????
Loot[16] = 0x13C7 ; ???? ??????
Loot[17] = 0x1DB9 ; ???? ?????
Loot[18] = 0x1411 ; legs
Loot[19] = 0x0E25 ; alebardi
Loot[20] = 0x13B5 ; swords
Loot[21] = 0x1ECD ; hummers
Loot[22] = 0x1404 ; forks
Loot[23] = 0x13B9 ; blade
Loot[24] = 0x13FE ; katana
Loot[25] = 0x0A3E ; ??????
Loot[26] = 0x0E75 ; ??????
Loot[27] = 0x0E76 ; ???
Loot[28] = 0x09B0 ; ???? ?1
Loot[29] = 0x0E79 ; ???? ?2

while 1==1
UO.UseObject('lastcorpse')

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

For i=0 to 29
UO.FindType(Loot[i],-1,'lastcorpse')
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()
wait (1000)
wend
end sub

Author:	xaxa300 [ 2007-07-12 13:48:28 ]
Post subject:	Спасибо большое
Спасибо большое шас проверю

Author:	xaxa300 [ 2007-07-12 13:52:03 ]
Post subject:	чото не хочет
пишит ошибку Line 3:Variable Already Defined-WAITTIME

Author:	MorbidAngel [ 2007-07-12 14:06:35 ]
Post subject:	Re: чото не хочет
xaxa300 wrote: пишит ошибку Line 3:Variable Already Defined-WAITTIME сорри...поставь while 1==1 после массива лута

Author:	xaxa300 [ 2007-07-12 14:09:25 ]
Post subject:	еслиб я понимал где ставить:(
еслиб я понимал где ставить:(

Author:	xaxa300 [ 2007-07-12 14:09:44 ]
Post subject:	недавно на инжект перешол ваше не чего не понимаю
недавно на инжект перешол ваше не чего не понимаю

Yoko http://forum.yoko.com.ua/

помогите плиззз со скриптоммм http://forum.yoko.com.ua/viewtopic.php?f=20&t=12209	Page 1 of 1

Author:	xaxa300 [ 2007-07-12 14:15:03 ]
Post subject:	Спасибо большое
Спасибо большое

Page 1 of 1	All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/