Помогите с масивами немогу два масива паставить -(((

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
The's is Ghost
Posts: 13
Joined: 2006-05-25 11:42:33
Contact:

Помогите с масивами немогу два масива паставить -(((

Post by The's is Ghost »

Помогите с масивами немогу два масива паставить -(((

скрипт на лут из костей а вот как паставить несколько тайпов кастей я непонимаю хелпаните плза )

Code: Select all

sub LootFromBones() 
var Bones=' type ' 
var dagger=' type ' 
var i , bonescontainer 
 DIM loot[2] 

  loot[0]='' 
  loot[1]='' 

  uo.WaitTargetObject('lastcorpse') 
  uo.UseType(dagger) 
  uo.FindType(Bones,'-1','ground') 
  if uo.FindCount() then 
    bonescontainer = uo.GetSerial('finditem') 
    uo.UseObject('bonescontainer') 
    for i = 0 to 1 
      uo.FindType(loot[i],'-1','bonescontainer') 
      if uo.FindCount() then 
        uo.moveitem('finditem','all') 
        wait(750) 
      end if 
    next 
    uo.Print(' There is nothing good in the corpse ') 
  else 
    uo.Print('You cant find any corpse around yourself') 
  end if 
end sub

а я хачу паставить вот ети тайпы кастей

Code: Select all

'0x0ECA'
'0x0ECB'
'0x0ECC'
'0x0ECD'
'0x0ECE'
'0x0ECF'
'0x0ED0'
'0x0ED1'
'0x0ED2'
но невыходит чтота =(((
Savage
Expert!
Posts: 1205
Joined: 2004-04-04 11:13:54
Location: Балаково, Саратовская обл.
Contact:

Post by Savage »

Code: Select all

sub LootFromBones() 
var dagger=' type ' 
var i, j, bonescontainer, Exit
 DIM loot[2] 
 DIM Bones[8]

  Bones[0]='0x0ECA'
  Bones[1]='0x0ECB' 
  Bones[2]='0x0ECC' 
  Bones[3]='0x0ECE' 
  Bones[4]='0x0ECF' 
  Bones[5]='0x0ED0' 
  Bones[6]='0x0ED1' 
  Bones[7]='0x0ED2'

  loot[0]=
  loot[1]=


  uo.WaitTargetObject('lastcorpse') 
  uo.UseType(dagger) 

  Exit=0
  j=0
  While j<=7 OR Exit==1
    uo.FindType(Bones[j],'-1','ground') 
    wait(300)
    if uo.FindCount() then 
      bonescontainer = uo.GetSerial('finditem')
      Exit=1
      uo.UseObject('bonescontainer') 
    for i = 0 to 1 
      uo.FindType(loot[i],'-1','bonescontainer') 
      if uo.FindCount() then 
        uo.moveitem('finditem','all') 
        wait(750) 
      end if 
    next 
    uo.Print(' There is nothing good in the corpse ') 
    endif
    j=j+1
  Wend
end sub
mez
Posts: 91
Joined: 2006-04-02 11:33:38
Contact:

Post by mez »

Savage wrote:

Code: Select all

sub LootFromBones() 
var dagger=' type ' 
var i, j, bonescontainer, Exit
 DIM loot[2] 
 DIM Bones[8]

  Bones[0]='0x0ECA'
  Bones[1]='0x0ECB' 
  Bones[2]='0x0ECC' 
  Bones[3]='0x0ECE' 
  Bones[4]='0x0ECF' 
  Bones[5]='0x0ED0' 
  Bones[6]='0x0ED1' 
  Bones[7]='0x0ED2'

  loot[0]=
  loot[1]=


  uo.WaitTargetObject('lastcorpse') 
  uo.UseType(dagger) 

  Exit=0
  j=0
  While j<=7 OR Exit==1
    uo.FindType(Bones[j],'-1','ground') 
    wait(300)
    if uo.FindCount() then 
      bonescontainer = uo.GetSerial('finditem')
      Exit=1
      uo.UseObject('bonescontainer') 
    for i = 0 to 1 
      uo.FindType(loot[i],'-1','bonescontainer') 
      if uo.FindCount() then 
        uo.moveitem('finditem','all') 
        wait(750) 
      end if 
    next 
    uo.Print(' There is nothing good in the corpse ') 
    endif
    j=j+1
  Wend
end sub
не хочет он работать резать режет а лутить не хочет! а еще можете в это скрипт вставить что бы он лутил даже если вы в варе? :lol:
Dimage
Posts: 36
Joined: 2006-12-04 00:23:37
Contact:

Post by Dimage »

Code: Select all

 uo.FindType(loot[i],'-1','bonescontainer')
Помойму тут ошибка
Nmy
Expert!
Posts: 2152
Joined: 2005-09-14 15:31:58
Location: Latvia

Post by Nmy »

Code: Select all

  loot[0]= 
  loot[1]= 
Savage
Expert!
Posts: 1205
Joined: 2004-04-04 11:13:54
Location: Балаково, Саратовская обл.
Contact:

Post by Savage »

Человек спросил как ему лутить разные трупы, я ответил. Скрипт и не должен работать так как недоделан.
mez
Posts: 91
Joined: 2006-04-02 11:33:38
Contact:

Post by mez »

Savage wrote:Человек спросил как ему лутить разные трупы, я ответил. Скрипт и не должен работать так как недоделан.
блин а помочь можеш доделать?
Savage
Expert!
Posts: 1205
Joined: 2004-04-04 11:13:54
Location: Балаково, Саратовская обл.
Contact:

Post by Savage »

Нет.
Post Reply