Page 1 of 1
памагите скрипт на луут крашица :(
Posted: 2007-01-02 15:15:19
by yxTbl
вопшем вот
Code: Select all
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: Select all
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
очень часто пишет каннот реачь итем =\ хотя стаю на трупе =\
Posted: 2007-01-02 20:03:35
by Nmy
стери чеклаг
пропишы finddistance
Posted: 2007-01-02 20:46:50
by yxTbl
NMY wrote:стери чеклаг
пропишы finddistance
в скриптах вапше несеку =\
можеш переделать и выставить ?
Posted: 2007-01-02 22:07:51
by Nmy
стери строку
пропишы
Code: Select all
sub LootAll()
uo.set("finddistance","3")
UO.DeleteJournal()
Posted: 2007-01-03 11:43:50
by yxTbl
NMY wrote:стери строку
убрал ету строчку всё вроде работает но начинает вылитать Can't pickup item
пропишы
Code: Select all
sub LootAll()
uo.set("finddistance","3")
UO.DeleteJournal()
тут тоже самое =\
п.с. как я понял ето для 1-ва и 2-ого скрипта
Posted: 2007-01-03 13:32:48
by Nmy
Code: Select all
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: Select all
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
Posted: 2007-01-03 14:02:53
by yxTbl
всёравно люибт писать Кан"т пикап итем =\
Posted: 2007-01-03 14:21:22
by Nmy
Code: Select all
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
а так?
Posted: 2007-01-03 17:06:13
by yxTbl
да всё классна спасибо
