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

Anything and all.

Moderators: Murderator+, Murderator

Locked
xaxa300
Posts: 7
Joined: 2007-07-11 19:15:56
Contact:
Contact xaxa300

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

Post by xaxa300 »

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


Code: Select all






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
Top
MorbidAngel
Posts: 51
Joined: 2004-08-26 16:47:05

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

Post by MorbidAngel »

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







Code: Select all

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

будет проверять на возможность лута каждую секунду...
[/code]
Top
xaxa300
Posts: 7
Joined: 2007-07-11 19:15:56
Contact:
Contact xaxa300

Спасибо большое

Post by xaxa300 »

Спасибо большое шас проверю
Top
xaxa300
Posts: 7
Joined: 2007-07-11 19:15:56
Contact:
Contact xaxa300

чото не хочет

Post by xaxa300 »

пишит ошибку Line 3:Variable Already Defined-WAITTIME
Top
MorbidAngel
Posts: 51
Joined: 2004-08-26 16:47:05

Re: чото не хочет

Post by MorbidAngel »

xaxa300 wrote:пишит ошибку Line 3:Variable Already Defined-WAITTIME

сорри...поставь while 1==1 после массива лута
Top
xaxa300
Posts: 7
Joined: 2007-07-11 19:15:56
Contact:
Contact xaxa300

еслиб я понимал где ставить:(

Post by xaxa300 »

еслиб я понимал где ставить:(
Top
xaxa300
Posts: 7
Joined: 2007-07-11 19:15:56
Contact:
Contact xaxa300

недавно на инжект перешол ваше не чего не понимаю

Post by xaxa300 »

недавно на инжект перешол ваше не чего не понимаю
Top
MorbidAngel
Posts: 51
Joined: 2004-08-26 16:47:05

Re: недавно на инжект перешол ваше не чего не понимаю

Post by MorbidAngel »

xaxa300 wrote:недавно на инжект перешол ваше не чего не понимаю

Code: Select all

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
Top
xaxa300
Posts: 7
Joined: 2007-07-11 19:15:56
Contact:
Contact xaxa300

Спасибо большое

Post by xaxa300 »

Спасибо большое
Top
Locked

Return to “Scripting Ore”