Page 1 of 2
помогите со скриптом
Posted: 2012-02-06 18:54:28
by Cheb
у меня вот такая проблема возникла!Лутит только те вещи где прописан айди и цвет!а где просто айди не лутит...помогите исправить.
sub autostart()
end sub
sub main()
UO.Print("Hello from function MAIN")
end sub
SUB LootCorpse()
DIM LootTypes[72]
VAR i , ah , pack = uo.ObjAtLayer('Bpack')
uo.set('finddistance','3')
,,,,,,,,,,,,,
,,,,,,,,,,,,,
,,,,,,,,,,,,,
,,,,,,,,,,,,,
,,,,,,,,,,,,,
For i = 0 to 71
UO.FindType( Left(LootTypes[i],6), Right(LootTypes[i],6), 'backpack')
IF uo.GetQuantity('finditem') > 1 THEN
ah = 1
ELSE
ah = 0
END IF
UO.FindType( Left(LootTypes[i],6), Right(LootTypes[i],6),'lastcontainer')
WHILE UO.FindCount() <> 0
IF uo.ContainerOf('finditem') == pack OR uo.ContainerOf('finditem') == uo.ContainerOf(uo.ObjAtLayer('Bpack')) OR pack == uo.ContainerOf(uo.ContainerOf('finditem')) then
uo.ignore('finditem','on')
else
IF ah == 1 THEN
UO.MoveItem('finditem')
wait(350)
ELSE
UO.MoveItem('finditem', '0', 'backpack' , '120' , '0', '0')
wait(350)
END IF
uo.ignore('finditem','on')
end if
UO.FindType( Left(LootTypes[i],6), Right(LootTypes[i],6), '2' )
wend
Next
uo.ignorereset()
END SUB
Re: помогите со скриптом
Posted: 2012-02-06 18:56:29
by Gromiz
попробуй так:
LootTypes[3] = '0x1F03 -1' ; roba
Re: помогите со скриптом
Posted: 2012-02-06 19:03:43
by Cheb
работает:)Спасибо...и так мне все переделать?
Re: помогите со скриптом
Posted: 2012-02-06 19:23:43
by Gromiz
ну да, просто добавь везде -1
кстати "-1" - это любой цвет с указанным типом
а если
LootTypes[0] = '-1 0x0AAE' ; zatochka+4
то будет лутать любые вещи с указанным цветом
Re: помогите со скриптом
Posted: 2012-02-06 19:35:50
by Cheb
LootTypes[3] = '0x1F03 -1' ;roba
с робой все норм!а вот остальное не хочет
Re: помогите со скриптом
Posted: 2012-02-06 20:28:52
by Gromiz
ковычки правильно стоят?
Re: помогите со скриптом
Posted: 2012-02-06 22:59:19
by Mirage
Cheb wrote:LootTypes[3] = '0x1F03 -1' ;roba
с робой все норм!а вот остальное не хочет
Right(LootTypes[i],
6так не будет работать
Re: помогите со скриптом
Posted: 2012-02-06 23:42:45
by ZeroDX
Mirage wrote:так не будет работать
0xffff не подойдет?
Re: помогите со скриптом
Posted: 2012-02-07 13:08:40
by Cheb
теперь вот одна проблема появилась табличка вылетает и клиент закрывается (unhandled exception in parser)
Re: помогите со скриптом
Posted: 2012-02-07 13:16:04
by Nmy
скрипт этот надо удалить и забыть
все через ж сделано
Re: помогите со скриптом
Posted: 2012-02-07 13:33:37
by Cheb
ясно
.Спасибо
Re: помогите со скриптом
Posted: 2012-02-07 18:13:24
by Mirage
я хз - оно у меня просто не завелось
Ругается на
UO.FindType( Left(LootTypes[i],6), Right(LootTypes[i],6), 'backpack')
почимуто...
Так что проверить и посоветовать дельное не могу.
Re: помогите со скриптом
Posted: 2012-02-07 20:23:28
by Cheb
буду искать другой скрипт
Re: помогите со скриптом
Posted: 2012-02-07 20:29:48
by ZeroDX
Code: Select all
For i = 0 to 71
if len(LootTypes[i]) > 6 then
Color = mid(LootTypes[i], 7, len(LootTypes[i]) - 1)
Type = mid(LootTypes[i], 0, 7)
else
Color = -1
Type = LootTypes[i]
endif
UO.FindType( Type, Color, 'backpack')
IF uo.GetQuantity('finditem') > 1 THEN
ah = 1
ELSE
ah = 0
END IF
UO.FindType( Type, Color,'lastcontainer')
WHILE UO.FindCount() <> 0
IF uo.ContainerOf('finditem') == pack OR uo.ContainerOf('finditem') == uo.ContainerOf(uo.ObjAtLayer('Bpack')) OR pack == uo.ContainerOf(uo.ContainerOf('finditem')) then
uo.ignore('finditem','on')
else
IF ah == 1 THEN
UO.MoveItem('finditem')
wait(350)
ELSE
UO.MoveItem('finditem', '0', 'backpack' , '120' , '0', '0')
wait(350)
END IF
uo.ignore('finditem','on')
end if
UO.FindType( Type, Color, '2' )
wend
Next
uo.ignorereset()
END SUB
Re: помогите со скриптом
Posted: 2012-02-07 23:03:31
by Cheb
line 101:variable undefined-TYPE
Re: помогите со скриптом
Posted: 2012-02-07 23:04:35
by Mirage
var проставь
Re: помогите со скриптом
Posted: 2012-02-07 23:10:10
by Cheb
все равно ошибка вылетает!
Re: помогите со скриптом
Posted: 2012-02-07 23:36:37
by ZeroDX
Re: помогите со скриптом
Posted: 2012-02-08 05:58:05
by Cheb
Спасибо всем кто помогал!работает
в начало вставить все равно где?я так вставил
sub autostart()
end sub
var Type, Color
sub main()
UO.Print("Hello from function MAIN")
end sub
SUB LootCorpse()
DIM LootTypes[72]
VAR i , ah , pack = uo.ObjAtLayer('Bpack')
uo.set('finddistance','3')
Re: помогите со скриптом
Posted: 2012-02-08 08:16:31
by Mirage
Code: Select all
sub autostart()
end sub
sub main()
UO.Print("Hello from function MAIN")
end sub
вот эти два тебе зачем?