Yoko
http://forum.yoko.com.ua/

Помогите с КЕМПИНГОМ !
http://forum.yoko.com.ua/viewtopic.php?f=20&t=3261		 Page 1 of 1
Author:  -=PapoS=- [ 2005-03-01 05:01:13 ]
Post subject:  Помогите с КЕМПИНГОМ !
Я хочу себе такой скрипт, чтоб мой чар кидал себе под ноги 1 kindling и зажигал его до тех пор, пока не загориться, как загорается- он кидает еще себе 1 под ноги и снова зажигает, и так бесконечно, стоя на месте!
P.S. У меня вердата стоит, что когда загорается, то огонь не мешает, и можно кинуть себе под ноги еще 1 !
P.S.S. Ребята, мне не нужно чтоб чар ходил и чтоб по 2-3 кидал, да, это может и быстрее, но это пропально...
Author:  Leks [ 2005-03-01 06:14:43 ]
Post subject: 
Юзай ;)
Code:
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:
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:
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
Author:  -=PapoS=- [ 2005-03-01 06:36:09 ]
Post subject: 
Да нет, это не то, дерьмо какое то, мало того что всякие ошибки вылазят в строке какой 45 да и огонь по 5 квадратам вокруг! Я ж просил под себя просто по 1му и по-тиху.... На ОСКОМЕ ! Вы бы сами вначале протестили, я эти скрипты просто копи и пасте, ну и exec команду, может что-то не так?:) Я со скриптами 2ой день только работаю :(
Author:  Leks [ 2005-03-01 06:38:46 ]
Post subject: 
Странный Ты :)))
его как хочеш перестроить можно за 5-ть минут.... Учись...
Author:  -=PapoS=- [ 2005-03-01 08:04:58 ]
Post subject: 
в том то и дело, что надо учиться, а вот не с кого, Лекс ну-ка давай растолковывай ;)
Author:  666Man666 [ 2005-03-01 10:12:43 ]
Post subject: 
В инже есть кнопочка "Help!" нажми её... и почитай...
если непонятно, что-то в написанном задавай вопросы на форуме...
Author:  BETEPAH [ 2005-03-01 16:03:05 ]
Post subject: 
-=PapoS=- wrote:
Я со скриптами 2ой день только работаю :(

Вот и учись...помни тут тебе никто ничего не должен.
А для примера берем первый скрипт который тебе дал Лекс и делаем вот что.

Code:
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


Грубо вырезали строчки с сбросом хвороста в помойку.
Author:  -=PapoS=- [ 2005-03-01 16:13:39 ]
Post subject: 
2BETEPAH
а вот скажи, все хотел спросить, например в этом скрипте:
uo.Print('Выбери Сундук с Хворостом: ')
Мне надо указывать type этого сундука с хворостом?
Author:  BETEPAH [ 2005-03-01 16:24:49 ]
Post subject: 
-=PapoS=- wrote:
2BETEPAH
а вот скажи, все хотел спросить, например в этом скрипте:
uo.Print('Выбери Сундук с Хворостом: ')
Мне надо указывать type этого сундука с хворостом?


Специально для самых ленивых я и сделал так ....ничего не надо прописывать. Просто подходишь к сундуку с хворостом , открываешь его и запускаешь скрипт. uo.Print('Выбери Сундук с Хворостом: ')
...эта строчка просит тебя указать прицелом ( что у тебя появится в УО) на сундук с хворостом.
Author:  -=PapoS=- [ 2005-03-01 16:59:21 ]
Post subject: 
2BETEPAH
Ну поставил по-твоему скрипту, все вроде делает, но идет FastLoot через чур он что то быстро делает, поправь а :)
Author:  BETEPAH [ 2005-03-01 17:01:46 ]
Post subject: 
-=PapoS=- wrote:
2BETEPAH
Ну поставил по-твоему скрипту, все вроде делает, но идет FastLoot через чур он что то быстро делает, поправь а :)

Поправь задержки с 1000 м/сек на 1500 м/сек
Author:  -=PapoS=- [ 2005-03-01 17:03:17 ]
Post subject: 
а вот! Все сделал сам! Спасибо ;)
Но вот я вчера пропробовал другой скрипт, он зажигал до тех пор, пока не загорится, а тут если не загорается с 1го раза, то ложит наверх еще 1 ! Потери идут...
Author:  BETEPAH [ 2005-03-01 17:08:26 ]
Post subject: 
Code:
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


Хз ...пробуй так.
Author:  -=PapoS=- [ 2005-03-01 17:13:17 ]
Post subject: 
BETEPAH
У меня простой вопрос, как остановить все что он делает? :) Например пожег парочку, и хочу закончить не выходя из УО. Благодарю за все сделанное для меня !
Author:  BETEPAH [ 2005-03-01 17:20:11 ]
Post subject: 
Code:

sub terminate()
UO.Print("ALL OFF")
UO.DeleteJournal() 
uo.exec("terminate all")
end sub
Author:  -=PapoS=- [ 2005-03-01 17:22:24 ]
Post subject: 
Я твой должник ;) ладно, если что, обращусь еще... можем проще, через асю :)
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/