Camping - DRW

[VOLAND]

sub Camping()
var Exit=0
var q=0
var w=0
var e=0
uo.Print('Âûáåðè Ñóíäóê ñ Õâîðîñòîì: ')
uo.Exec('addobject Chest')
while uo.Targeting()
wait(100)
wend

for w=0 to 4
while not uo.Dead() or Exit<>1
for q=0 to 25
UO.DeleteJournal()
uo.FindType('0x0DE1','0x0000','Chest')
if uo.GetQuantity('finditem')>0 Then
UO.MoveItem('finditem','1','ground')
wait(1000)
uo.UseObject('finditem')
CheckLag()
If UO.InJournal('You fail') then
uo.UseObject('finditem')
endif
else
exit=1
q=25
end if
wait(1000)
next



if e==0 then
UO.Press( 36 )
CheckLag()
q=0
if w==4 then
UO.Press( 34 )
e=1
w=0
endif
endif

if e==1 then
UO.Press( 34 )
CheckLag()
q=0
if w==4 then
UO.Press( 36 )
e=0
w=0
endif
endif

next
wait(1000)
wend
end sub

sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(500)
until UO.InJournal('backpack')
end sub

Передалал Camping на DRW с ходьбой около контейнера .
Пашет.

[VOLAND]

sub Camping()
var Exit=0
var q=3
var w=0
var e=0
uo.Print('Выбери Сундук с Хворостом: ')
uo.Exec('addobject Chest')
while uo.Targeting()
wait(100)
wend
var mx, my, mz, i, j
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
UO.DeleteJournal()
uo.exec("set distance 1")
while not uo.dead()
for i = mx-q to mx+q
for j = my-q to my+q
uo.deletejournal()
UO.Print("Now Camping In: "+str(mx-i)+" "+str(my-j))
CheckLag()
uo.FindType('0x0DE1','0x0000','Chest')
if uo.GetQuantity('finditem')>0 Then
UO.Drop('1',str(i),str(j),str(mz),'finditem')
uo.UseObject('finditem')
wait(1000)
uo.UseObject('finditem')
wait(1000)
next

UO.DeleteJournal()
next
wend

end sub

sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(500)
until UO.InJournal('backpack')
end sub


Предыдушая версия скрипта с ходибой немного глючила - пришлось переделать ) Нужна плошадка 4х4 клетки - ставите под ноги сумку с хворостом - запускаем - указываем на сумку - и все )

Переменая q - отвечает за плошадь територии . менять от 2 до 4
Скрипт переделан со скриптов кампинг и фишинг.

[kuviCk]

sub Camping()
var Exit=0
var q=3
var w=0
var e=0
uo.Print('Выбери Сундук с Хворостом: ')
uo.Exec('addobject Chest')
while uo.Targeting()
wait(100)
wend
var mx, my, mz, i, j
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
UO.DeleteJournal()
uo.exec("set distance 1")
while not uo.dead()
for i = mx-q to mx+q
for j = my-q to my+q
uo.deletejournal()
UO.Print("Now Camping In: "+str(mx-i)+" "+str(my-j))
CheckLag()
uo.FindType('0x0DE1','0x0000','Chest')
if uo.GetQuantity('finditem')>0 Then
UO.Drop('1',str(i),str(j),str(mz),'finditem')
uo.UseObject('finditem')
wait(1000)
uo.UseObject('finditem')
wait(1000)
next

UO.DeleteJournal()
next
wend

end sub

sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(500)
until UO.InJournal('backpack')
end sub


Предыдушая версия скрипта с ходибой немного глючила - пришлось переделать ) Нужна плошадка 4х4 клетки - ставите под ноги сумку с хворостом - запускаем - указываем на сумку - и все )

Переменая q - отвечает за плошадь територии . менять от 2 до 4
Скрипт переделан со скриптов кампинг и фишинг.

Копирайт бы написал для приличия!