Page 1 of 1
Помогите с КЕМПИНГОМ !
Posted: 2005-03-01 05:01:13
by -=PapoS=-
Я хочу себе такой скрипт, чтоб мой чар кидал себе под ноги 1 kindling и зажигал его до тех пор, пока не загориться, как загорается- он кидает еще себе 1 под ноги и снова зажигает, и так бесконечно, стоя на месте!
P.S. У меня вердата стоит, что когда загорается, то огонь не мешает, и можно кинуть себе под ноги еще 1 !
P.S.S. Ребята, мне не нужно чтоб чар ходил и чтоб по 2-3 кидал, да, это может и быстрее, но это пропально...
Posted: 2005-03-01 06:14:43
by Leks
Юзай
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
Posted: 2005-03-01 06:36:09
by -=PapoS=-
Да нет, это не то, дерьмо какое то, мало того что всякие ошибки вылазят в строке какой 45 да и огонь по 5 квадратам вокруг! Я ж просил под себя просто по 1му и по-тиху.... На ОСКОМЕ ! Вы бы сами вначале протестили, я эти скрипты просто копи и пасте, ну и exec команду, может что-то не так?:) Я со скриптами 2ой день только работаю
Posted: 2005-03-01 06:38:46
by Leks
Странный Ты
))
его как хочеш перестроить можно за 5-ть минут.... Учись...
Posted: 2005-03-01 08:04:58
by -=PapoS=-
в том то и дело, что надо учиться, а вот не с кого, Лекс ну-ка давай растолковывай
Posted: 2005-03-01 10:12:43
by 666Man666
В инже есть кнопочка "Help!" нажми её... и почитай...
если непонятно, что-то в написанном задавай вопросы на форуме...
Posted: 2005-03-01 16:03:05
by BETEPAH
-=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
Грубо вырезали строчки с сбросом хвороста в помойку.
Posted: 2005-03-01 16:13:39
by -=PapoS=-
2BETEPAH
а вот скажи, все хотел спросить, например в этом скрипте:
uo.Print('Выбери Сундук с Хворостом: ')
Мне надо указывать type этого сундука с хворостом?
Posted: 2005-03-01 16:24:49
by BETEPAH
-=PapoS=- wrote:2BETEPAH
а вот скажи, все хотел спросить, например в этом скрипте:
uo.Print('Выбери Сундук с Хворостом: ')
Мне надо указывать type этого сундука с хворостом?
Специально для самых ленивых я и сделал так ....ничего не надо прописывать. Просто подходишь к сундуку с хворостом , открываешь его и запускаешь скрипт.
uo.Print('Выбери Сундук с Хворостом: ')
...эта строчка просит тебя указать прицелом ( что у тебя появится в УО) на сундук с хворостом.
Posted: 2005-03-01 16:59:21
by -=PapoS=-
2BETEPAH
Ну поставил по-твоему скрипту, все вроде делает, но идет FastLoot через чур он что то быстро делает, поправь а
Posted: 2005-03-01 17:01:46
by BETEPAH
-=PapoS=- wrote:2BETEPAH
Ну поставил по-твоему скрипту, все вроде делает, но идет FastLoot через чур он что то быстро делает, поправь а
Поправь задержки с 1000 м/сек на 1500 м/сек
Posted: 2005-03-01 17:03:17
by -=PapoS=-
а вот! Все сделал сам! Спасибо
Но вот я вчера пропробовал другой скрипт, он зажигал до тех пор, пока не загорится, а тут если не загорается с 1го раза, то ложит наверх еще 1 ! Потери идут...
Posted: 2005-03-01 17:08:26
by 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
Хз ...пробуй так.
Posted: 2005-03-01 17:13:17
by -=PapoS=-
BETEPAH
У меня простой вопрос, как остановить все что он делает?
Например пожег парочку, и хочу закончить не выходя из УО. Благодарю за все сделанное для меня !
Posted: 2005-03-01 17:20:11
by BETEPAH
Code: Select all
sub terminate()
UO.Print("ALL OFF")
UO.DeleteJournal()
uo.exec("terminate all")
end sub
Posted: 2005-03-01 17:22:24
by -=PapoS=-
Я твой должник
ладно, если что, обращусь еще... можем проще, через асю