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

помогите со скриптом
http://forum.yoko.com.ua/viewtopic.php?f=20&t=16893		 Page 1 of 2
Author:  Cheb [ 2012-02-06 18:54:28 ]
Post subject:  помогите со скриптом
у меня вот такая проблема возникла!Лутит только те вещи где прописан айди и цвет!а где просто айди не лутит...помогите исправить.
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
Author:  Gromiz [ 2012-02-06 18:56:29 ]
Post subject:  Re: помогите со скриптом
попробуй так:

LootTypes[3] = '0x1F03 -1' ; roba
Author:  Cheb [ 2012-02-06 19:03:43 ]
Post subject:  Re: помогите со скриптом
работает:)Спасибо...и так мне все переделать?
Author:  Gromiz [ 2012-02-06 19:23:43 ]
Post subject:  Re: помогите со скриптом
ну да, просто добавь везде -1

кстати "-1" - это любой цвет с указанным типом
а если
LootTypes[0] = '-1 0x0AAE' ; zatochka+4

то будет лутать любые вещи с указанным цветом
Author:  Cheb [ 2012-02-06 19:35:50 ]
Post subject:  Re: помогите со скриптом
LootTypes[3] = '0x1F03 -1' ;roba
с робой все норм!а вот остальное не хочет
Author:  Gromiz [ 2012-02-06 20:28:52 ]
Post subject:  Re: помогите со скриптом
ковычки правильно стоят?
Author:  Mirage [ 2012-02-06 22:59:19 ]
Post subject:  Re: помогите со скриптом
Cheb wrote:
LootTypes[3] = '0x1F03 -1' ;roba
с робой все норм!а вот остальное не хочет


Right(LootTypes[i],6

так не будет работать :roll:
Author:  ZeroDX [ 2012-02-06 23:42:45 ]
Post subject:  Re: помогите со скриптом
Mirage wrote:
так не будет работать


0xffff не подойдет?
Author:  Cheb [ 2012-02-07 13:08:40 ]
Post subject:  Re: помогите со скриптом
теперь вот одна проблема появилась табличка вылетает и клиент закрывается (unhandled exception in parser)
Author:  Nmy [ 2012-02-07 13:16:04 ]
Post subject:  Re: помогите со скриптом
скрипт этот надо удалить и забыть

все через ж сделано
Author:  Cheb [ 2012-02-07 13:33:37 ]
Post subject:  Re: помогите со скриптом
ясно :( .Спасибо
Author:  Mirage [ 2012-02-07 18:13:24 ]
Post subject:  Re: помогите со скриптом
я хз - оно у меня просто не завелось :|
Ругается на
UO.FindType( Left(LootTypes[i],6), Right(LootTypes[i],6), 'backpack')
почимуто...
Так что проверить и посоветовать дельное не могу.
Author:  Cheb [ 2012-02-07 20:23:28 ]
Post subject:  Re: помогите со скриптом
буду искать другой скрипт :wink:
Author:  ZeroDX [ 2012-02-07 20:29:48 ]
Post subject:  Re: помогите со скриптом
Code:
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
Author:  Cheb [ 2012-02-07 23:03:31 ]
Post subject:  Re: помогите со скриптом
line 101:variable undefined-TYPE
Author:  Mirage [ 2012-02-07 23:04:35 ]
Post subject:  Re: помогите со скриптом
var проставь :)
Author:  Cheb [ 2012-02-07 23:10:10 ]
Post subject:  Re: помогите со скриптом
все равно ошибка вылетает!
Author:  ZeroDX [ 2012-02-07 23:36:37 ]
Post subject:  Re: помогите со скриптом
в начало скрипта
Code:
var Type, Color
Author:  Cheb [ 2012-02-08 05:58:05 ]
Post subject:  Re: помогите со скриптом
Спасибо всем кто помогал!работает :)
в начало вставить все равно где?я так вставил
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')
Author:  Mirage [ 2012-02-08 08:16:31 ]
Post subject:  Re: помогите со скриптом
Code:
sub autostart()
end sub


sub main()
UO.Print("Hello from function MAIN")
end sub


вот эти два тебе зачем? :)
Page 1 of 2 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/