#camp,camping,хворост.
VAR Xvorost = '****'


sub main()
while uo.count(Xvorost)>0
UO.FindType('Xvorost','0x0000','backpack')
UO.Drop('1',STR(UO.GetX('self')),STR(UO.GetY('self')),STR(UO.GetZ('self')),'finditem')
wait(500)
CheckLag()
UO.usefromground('finditem')
wait(500)
CheckLag()
#gotoxy(uo.getx()+1,uo.gety()+1)
wend
end sub






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

Sfagnum wrote:

потерпят если дохера айтемов на один тайл напихают....

Ну а как тогда ещё качать?

#############################Camping############################
; Camping. v.1.00a (c) Goggy
;    Чар портится к мешочку с щепками, берёт указанное кол-во
;   и портится на место сжигания(хоть в лесу ;) ), предлогается
;   указать две руны 1-я, на место сжигания, 2-я - домой.
;   Чар разбрасывает вокруг себя по щепке в радусе 3 клеток,
;   потом сжигает их и переходит ниже на 10 шагов.
;   Как тока щпки кончаются, перс реколится заново.
;   Enjoy :)
sub lootKindling() 

uo.Print(Выбери руну в мусорожигатель :)...') 
uo.Exec('addobject RuneToFire') 
while uo.Targeting() 
wait(100) 
wend 
uo.DeleteJournal() 
uo.Print(Выбери руну к мешку...') 
uo.Exec('addobject RuneToHome') 
while uo.Targeting() 
wait(100) 
wend 
uo.DeleteJournal() 

var ore = '0x0de1'         ;тайп щепок
var Sunduk = ''         ;мешок с щепками(сериал)
var Kolvo = 1000         ;скока щепок брать

#RecallHome('RuneToHome',Kolvo)
#RecallFire('RuneToFire')
uo.Print('Ну чё ПОЕХАЛИ!!!!!! =)...') 
var g, i, j, mx, my, mz
wait(500)
Dubl:
uo.FindType(ore,-1) 
while UO.Count( ore )>0
while NOT UO.Hidden()
   UO.Useskill("Hiding")
   wait(3000)
wend
wait(1000)
UO.Print('                          Ostalos ' + Str( UO.Count( ore ) ) + ' Kindling' )
mx = UO.GetX("self") 
my = UO.GetY("self") 
mz = UO.GetZ("self") 
for i = mx-3 to mx+3             
   for j = my-3 to my+3            
uo.FindType(ore,-1)
uo.MoveItem('finditem','1','ground',str(i),str(j),str(mz))
wait(400)
next
next
gav:
uo.findtype('0x0de1',-1,'ground')
if  UO.FindCount() > 0 then
   UO.usefromground ("0x0de1")
   wait(500) 
   UO.usefromground ("0x0de1")
   wait(500)
   UO.usefromground ("0x0de1")
   wait(500) 
   UO.usefromground ("0x0de1")
   wait(500)
   UO.usefromground ("0x0de1")
   wait(500) 
   UO.usefromground ("0x0de1")
   wait(500)
   goto gav
end if
uo.press(40)
wait(500)
uo.press(40)
wait(500)
uo.press(40)
wait(500)
uo.press(40)
wait(500)
uo.press(40)
wait(500)
uo.press(40)
wait(500)
uo.press(40)
wait(500)
uo.press(40)
wait(500)
uo.press(40)
wait(500)
wend 
RecallHome('RuneToHome',Sunduk,Kolvo)
RecallFire('RuneToFire')
goto Dubl
end sub

Sub RecallHome(Runa,Meshok,Sum)

 repeat
   Mana()
   UO.deletejournal()
   UO.Print("Прыгаем домой... К заветному мешочку :)") 
   uo.cast('Recall','Runa') 
   wait(10000)
 until uo.InJournal("fizzles")
 UO.deletejournal()
 
 UO.useobject(Meshok)
 wait(500)
 UO.findtype('0x0de1',-1,Meshok)
 wait(500)
 if UO.FindCount() == 0 then
    UO.Print("Облом... Ща перс покачает магери на реколах :)")
   return
 end if
 UO.Grab(Sum,'finditem')
 wait(3000)
 UO.deletejournal()
 
end sub

Sub RecallFire(Runa)

 repeat
   Mana()
   UO.deletejournal()
UO.Print("!!Прыгаем в поле... Или в лес... Ну короче кто куда !! :)") 
   uo.cast('Recall','Runa') 
   wait(10000)
 until uo.InJournal("fizzles")
 UO.deletejournal()

end sub

Sub Mana()
 While UO.Int > UO.Mana
    UO.Useskill("Meditation")
    wait(100)
 wend
end sub