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

памагите скрипт на луут крашица :(
http://forum.yoko.com.ua/viewtopic.php?f=20&t=10893		 Page 1 of 1
Author:  yxTbl [ 2007-01-02 15:15:19 ]
Post subject:  памагите скрипт на луут крашица :(
вопшем вот
Code:
sub AutoLoot()
var finddistance = "3"
var body = "0x2006" 

UO.Print('òêíè íà ñóìêó äëÿ ëóòà')
UO.Set('quiet','1')
UO.Exec('addobject LootBag')
while UO.Targeting()
wait(100)
wend
UO.Set('quiet','0')

uo.set("finddistance", finddistance)
var corpse
repeat
uo.findtype(body,"-1","ground")
if uo.findcount() then
corpse = uo.getSerial("finditem")
uo.useobject(corpse)
repeat
uo.findtype("-1","-1",corpse)
if uo.findcount() then
uo.moveitem("finditem","0","LootBag","50","50","0")
checklag()
endif
wait(1300)
until not uo.findcount()
uo.hide(corpse)
UO.Resend()
uo.ignore(corpse)
else
wait(500)
endif
until false
endsub

вот с ним всё классно но вылетает чег лаг =\


или вот ешо проблема
Code:
sub LootAll()
UO.DeleteJournal()
repeat
    repeat
        wait(1500)
    Until UO.InJournal('Body')
    wait(300)
    UO.FindType(-1,-1,'lastcorpse')
    While UO.FindCount()>0
        UO.Grab('0', 'finditem')
        wait(800)
        UO.FindType(-1,-1,'lastcorpse')
    wend
    UO.DeleteJournal()
Until UO.Dead()
endsub

очень часто пишет каннот реачь итем =\ хотя стаю на трупе =\
Author:  Nmy [ 2007-01-02 20:03:35 ]
Post subject: 
стери чеклаг

пропишы finddistance
Author:  yxTbl [ 2007-01-02 20:46:50 ]
Post subject: 
NMY wrote:
стери чеклаг

пропишы finddistance

в скриптах вапше несеку =\
можеш переделать и выставить ?
Author:  Nmy [ 2007-01-02 22:07:51 ]
Post subject: 
стери строку
Code:
checklag()


пропишы
Code:
sub LootAll() 
uo.set("finddistance","3")
UO.DeleteJournal()
Author:  yxTbl [ 2007-01-03 11:43:50 ]
Post subject: 
NMY wrote:
стери строку
Code:
checklag()

убрал ету строчку всё вроде работает но начинает вылитать Can't pickup item

пропишы
Code:
sub LootAll() 
uo.set("finddistance","3")
UO.DeleteJournal()

тут тоже самое =\

п.с. как я понял ето для 1-ва и 2-ого скрипта
Author:  Nmy [ 2007-01-03 13:32:48 ]
Post subject: 
Code:
sub AutoLoot()
var finddistance = "3"
var body = "0x2006"

UO.Print('òêíè íà ñóìêó äëÿ ëóòà')
UO.Set('quiet','1')
UO.Exec('addobject LootBag')
while UO.Targeting()
wait(100)
wend
UO.Set('quiet','0')

uo.set("finddistance", finddistance)
var corpse
repeat
uo.findtype(body,"-1","ground")
if uo.findcount() then
corpse = uo.getSerial("finditem")
uo.useobject(corpse)
repeat
uo.findtype("-1","-1",corpse)
if uo.findcount() then
uo.moveitem("finditem","0","LootBag","50","50","0")
endif
wait(500)
until not uo.findcount()
uo.hide(corpse)
UO.Resend()
uo.ignore(corpse)
else
wait(500)
endif
until false
endsub

Code:
sub LootAll()
uo.set("finddistance","3")
UO.DeleteJournal()
repeat
    repeat
        wait(1500)
    Until UO.InJournal('Body') and UO.GetDistance('lastcorpse') <= 2
    wait(300)
    UO.FindType(-1,-1,'lastcorpse')
    While UO.FindCount()>0
        UO.Grab('0', 'finditem')
        wait(800)
        UO.FindType(-1,-1,'lastcorpse')
    wend
    UO.DeleteJournal()
Until UO.Dead()
endsub
Author:  yxTbl [ 2007-01-03 14:02:53 ]
Post subject: 
всёравно люибт писать Кан"т пикап итем =\
Author:  Nmy [ 2007-01-03 14:21:22 ]
Post subject: 
Code:
sub LootAll()
uo.set("finddistance","3")
UO.DeleteJournal()
repeat
    repeat
        wait(1500)
    Until UO.InJournal('Body') and UO.GetDistance('lastcorpse') <= 2
    wait(300)
    UO.FindType(-1,-1,'lastcorpse')
    While UO.FindCount()>0
        UO.Grab('0', 'finditem')
uo.ignore('finditem')
        wait(800)
        UO.FindType(-1,-1,'lastcorpse')
    wend
    UO.DeleteJournal()
Until UO.Dead()
endsub


а так?
Author:  yxTbl [ 2007-01-03 17:06:13 ]
Post subject: 
да всё классна спасибо 8)
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/