SAMURAI wrote:
Sfagnum wrote:
потерпят если дохера айтемов на один тайл напихают....
Ну а как тогда ещё качать?

нвте ради интереса будет ли на ДРВ у вас пахать
Code:
#############################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