Вообщем суть в том то что имееться скрипт на карпу и скрипт что бы кушать вот как вставить скрипт на кушание в карпу что бы кушал через 30-40 минут по 2-3 штуки
Вот скрипт на карпу:
Code:
##########################################
var chair = '0x13B3'
##########################################
sub ChairCraft()
uo.Print('Выбери Рубанок: ')
uo.canceltarget()
uo.Exec('addobject Rubanok')
while uo.Targeting()
wait(100)
wend
if uo.Waiting() then
uo.CancelTarget()
endif
var a,Exit
dim Boards[1]
Boards[0]=0x1BD7
uo.findtype('dubina',-1,'backpack')
uo.Print('Делаем.')
wait(500)
for a=0 to 0
Exit=0
repeat
uo.deletejournal()
uo.FindType(Boards[a])
if uo.GetQuantity('finditem')>0 then
uo.deletejournal()
uo.waittargettype(Boards[a])
uo.exec("recall Rubanok 0x0401")
repeat
wait(100)
until uo.injournal("Вы закончили") or uo.injournal("Вы слишком измотаны")
if uo.injournal("Вы слишком измотаны") then
wait(10000)
endif
uo.Print('У вас всего '+str(uo.Count(chair))+' стульев в сумке')
else
Exit=1
endif
until Exit==1
next
time=0
uo.Print('Предметы сделаны.')
end sub
sub Terminate()
uo.Print('Все функции скрипта выключены!')
uo.DeleteJournal()
uo.Exec('terminate all')
wait(100)
uo.Exec('terminate all')
wait(100)
uo.Exec('terminate all')
wait(100)
end sub
А вот скрипт на кушание:
Code:
var EatingFood=0
var TypeFood='0x09AD'
sub EatingFood()
repeat
uo.FindType(TypeFood)
if uo.GetQuantity('finditem')>0 then
uo.UseType(TypeFood)
wait(1000)
else
EatingFood=0
wait(1000)
return 1
endif
until uo.InJournal("Вы сыты и довольны") or uo.injournal("Вы переели")
end sub
