Page 1 of 1
Помогите с масивами немогу два масива паставить -(((
Posted: 2007-01-10 10:29:04
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'
но невыходит чтота =(((
Posted: 2007-01-10 12:00:19
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
Posted: 2007-01-10 12:13:31
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
не хочет он работать резать режет а лутить не хочет! а еще можете в это скрипт вставить что бы он лутил даже если вы в варе?
Posted: 2007-01-10 12:36:20
by Dimage
Code: Select all
uo.FindType(loot[i],'-1','bonescontainer')
Помойму тут ошибка
Posted: 2007-01-10 12:37:40
by Nmy
Posted: 2007-01-10 17:44:33
by Savage
Человек спросил как ему лутить разные трупы, я ответил. Скрипт и не должен работать так как недоделан.
Posted: 2007-01-10 22:22:00
by mez
Savage wrote:Человек спросил как ему лутить разные трупы, я ответил. Скрипт и не должен работать так как недоделан.
блин а помочь можеш доделать?
Posted: 2007-01-11 08:08:17
by Savage
Нет.