Я хочу себе такой скрипт, чтоб мой чар кидал себе под ноги 1 kindling и зажигал его до тех пор, пока не загориться, как загорается- он кидает еще себе 1 под ноги и снова зажигает, и так бесконечно, стоя на месте!
P.S. У меня вердата стоит, что когда загорается, то огонь не мешает, и можно кинуть себе под ноги еще 1 !
P.S.S. Ребята, мне не нужно чтоб чар ходил и чтоб по 2-3 кидал, да, это может и быстрее, но это пропально...
Помогите с КЕМПИНГОМ !
Moderators: Murderator+, Murderator
Юзай 
или
а вот еще :
Code: Select all
sub Camping()
var Exit=0
uo.Print('Выбери Сундук с Хворостом: ')
uo.Exec('addobject Chest')
while uo.Targeting()
wait(100)
wend
#uo.UseObject('Chest')
uo.Print('Выбери Помойку: ')
uo.Exec('addobject TrashCan')
while uo.Targeting()
wait(100)
wend
#uo.UseObject('TrashCan')
while not uo.Dead() or Exit<>1
uo.FindType('0x0DE1','0x0000','Chest')
if uo.GetQuantity('finditem')>0 Then
uo.Grab('1','finditem')
wait(1000)
uo.DropHere('finditem')
wait(1000)
uo.UseObject('finditem')
wait(1000)
uo.SetReceivingContainer('TrashCan')
wait(1000)
uo.Grab('1','finditem')
uo.UnSetReceivingContainer()
else
exit=1
end if
wend
end sub
или
Code: Select all
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
а вот еще :
Code: Select all
sub Camping()
var Exit=0
var q=0
var w=0
var e=0
uo.Print('Auaa?e Noiaoe n Oai?inoii: ')
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
Just Be! Все ФИГНЯ, кроме пчёл!!! А пчёлы ваще фигня!
Да нет, это не то, дерьмо какое то, мало того что всякие ошибки вылазят в строке какой 45 да и огонь по 5 квадратам вокруг! Я ж просил под себя просто по 1му и по-тиху.... На ОСКОМЕ ! Вы бы сами вначале протестили, я эти скрипты просто копи и пасте, ну и exec команду, может что-то не так?:) Я со скриптами 2ой день только работаю 
))
-=PapoS=- wrote:Я со скриптами 2ой день только работаю
Вот и учись...помни тут тебе никто ничего не должен.
А для примера берем первый скрипт который тебе дал Лекс и делаем вот что.
Code: Select all
sub Camping()
var Exit=0
uo.Print('Выбери Сундук с Хворостом: ')
uo.Exec('addobject Chest')
while uo.Targeting()
wait(100)
wend
while not uo.Dead() or Exit<>1
uo.FindType('0x0DE1','0x0000','Chest')
if uo.GetQuantity('finditem')>0 Then
uo.Grab('1','finditem')
wait(1000)
uo.DropHere('finditem')
wait(1000)
uo.UseObject('finditem')
wait(1000)
else
exit=1
end if
wend
end sub
Грубо вырезали строчки с сбросом хвороста в помойку.
Все просто.
BETEPAH ™
BETEPAH ™
-=PapoS=- wrote:2BETEPAH
а вот скажи, все хотел спросить, например в этом скрипте:
uo.Print('Выбери Сундук с Хворостом: ')
Мне надо указывать type этого сундука с хворостом?
Специально для самых ленивых я и сделал так ....ничего не надо прописывать. Просто подходишь к сундуку с хворостом , открываешь его и запускаешь скрипт. uo.Print('Выбери Сундук с Хворостом: ')
...эта строчка просит тебя указать прицелом ( что у тебя появится в УО) на сундук с хворостом.
Все просто.
BETEPAH ™
BETEPAH ™
Code: Select all
sub Camping()
var waittime = 1500
var Exit=0
uo.Print('Выбери Сундук с Хворостом: ')
uo.Exec('addobject Chest')
while uo.Targeting()
wait(100)
wend
while not uo.Dead() or Exit<>1
uo.FindType('0x0DE1','0x0000','Chest')
if uo.GetQuantity('finditem')>0 Then
uo.Grab('1','finditem')
wait(waittime)
uo.DropHere('finditem')
wait(waittime)
uo.UseObject('finditem')
wait(waittime)
uo.UseObject('finditem')
CheckLag()
If UO.InJournal('You fail') then
uo.UseObject('finditem')
endif
wait(waittime)
else
exit=1
end if
wend
end sub
sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(500)
until UO.InJournal('backpack')
end sub
Хз ...пробуй так.
Все просто.
BETEPAH ™
BETEPAH ™
Code: Select all
sub terminate()
UO.Print("ALL OFF")
UO.DeleteJournal()
uo.exec("terminate all")
end sub
Все просто.
BETEPAH ™
BETEPAH ™