Page 1 of 2
Хелп Кукинг =)
Posted: 30.05.2008 1:23
by proZak
Достал макрос вроде все просто написано но всеровно нехочет работать (бывает поработает минут 5 и выдает такую фишку):
2:24:53 [proZak]: UseObject error: Object not finded.
сам макрос:
Code: Select all
Program cooking_elfar;
BEGIN
{указать айди бекпака который лежит в вашем паке, и где лежит еда}
useobject($777E1EDE);
wait(2000);
while true do begin
if FindType($097a, backpack) = 0 then
begin
{указать айди того же бекпака что мы указывали выше}
moveitem (findtype ($097a,$777E1EDE), 1, backpack, 0, 0, 0);
wait(400);
end;
useobject(FindType($097a,backpack));
WaitForTarget(500);
{указать айди плавильни, или просто огня.}
TargetToObject($63087158);
wait(3200);
end;
END.
Posted: 30.05.2008 18:22
by AlexM2008
Ругается потому, что нечего жарить.
Сделай проверку на наличие в контейнере и бери с учетом "грузоподъемности" УО по 2 штуки
if findtype($097a,$777E1EDE) > 0 then MoveItemFindItem,2,Backpack,0,0,0);
Поиск:
http://stealth.od.ua/forum/viewtopic.php?t=671
Posted: 30.05.2008 22:46
by proZak
AlexM2008 wrote:Ругается потому, что нечего жарить.
Сделай проверку на наличие в контейнере и бери с учетом "грузоподъемности" УО по 2 штуки
if findtype($097a,$777E1EDE) > 0 then MoveItemFindItem,2,Backpack,0,0,0);
Поиск:
http://stealth.od.ua/forum/viewtopic.php?t=671
вставил проверку как ты написал и вот шо теперь выдает=):
Code: Select all
23:48:28 [proZak]: Compiler: [Error] (1111111111111.txt at 12:42): Unknown identifier 'MoveItemFindItem'
23:48:28 [proZak]: Compiling failed
Posted: 31.05.2008 0:33
by -=JoKeR=-
Куда и что ты вставил?
Скрипт показывай, телепаты отдыхают)
Posted: 31.05.2008 10:40
by Scripts Writer
proZak wrote:AlexM2008 wrote:Ругается потому, что нечего жарить.
Сделай проверку на наличие в контейнере и бери с учетом "грузоподъемности" УО по 2 штуки
if findtype($097a,$777E1EDE) > 0 then MoveItemFindItem,2,Backpack,0,0,0);
Поиск:
http://stealth.od.ua/forum/viewtopic.php?t=671
вставил проверку как ты написал и вот шо теперь выдает=):
Code: Select all
23:48:28 [proZak]: Compiler: [Error] (1111111111111.txt at 12:42): Unknown identifier 'MoveItemFindItem'
23:48:28 [proZak]: Compiling failed
Скобку после MoveItem и перед FindItem чтоб получась функция с параметрами
Posted: 31.05.2008 19:06
by proZak
Scripts Writer wrote:proZak wrote:AlexM2008 wrote:Ругается потому, что нечего жарить.
Сделай проверку на наличие в контейнере и бери с учетом "грузоподъемности" УО по 2 штуки
if findtype($097a,$777E1EDE) > 0 then MoveItemFindItem,2,Backpack,0,0,0);
Поиск:
http://stealth.od.ua/forum/viewtopic.php?t=671
вставил проверку как ты написал и вот шо теперь выдает=):
Code: Select all
23:48:28 [proZak]: Compiler: [Error] (1111111111111.txt at 12:42): Unknown identifier 'MoveItemFindItem'
23:48:28 [proZak]: Compiling failed
Скобку после MoveItem и перед FindItem чтоб получась функция с параметрами
зделал как ты писал вот шо выдает=):
Code: Select all
20:10:04 [proZak]: Compiler: [Error] (1111111111111.txt at 12:50): Invalid number of parameters
20:10:04 [proZak]: Compiling failed
20:10:04 [proZak]: Script 1111111111111.txt stoped successfuly
Posted: 31.05.2008 20:57
by -=JoKeR=-
А ты зделал как я сказал?
Покажи скрипт, помогут быстрее люди...
Posted: 31.05.2008 23:14
by proZak
Code: Select all
Program cooking_elfar;
BEGIN
{указать айди бекпака который лежит в вашем паке, и где лежит еда}
useobject($777E1EDE);
wait(2000);
while true do begin
if FindType($097a, backpack) = 0 then
begin
{указать айди того же бекпака что мы указывали выше}
if findtype($097a,$777E1EDE) > 0 then MoveItem)(FindItem,2,Backpack,0,0,0);
wait(400);
end;
useobject(FindType($097a,backpack));
WaitForTarget(500);
{указать айди плавильни, или просто огня.}
TargetToObject($63087158);
wait(3200);
end;
END.
Posted: 31.05.2008 23:55
by -=JoKeR=-
OMG
ты что сам не видишь?
if findtype($097a,$777E1EDE) > 0 then MoveItem
)(FindItem,2,Backpack,0,0,0);
Компилятор тебе указал строку и столбец с ошибкой.
Posted: 01.06.2008 15:52
by proZak
собствено зделал все как вы писали и всероно опять после запуска минут 5 поработает а потом выдает такую фишку:
Code: Select all
16:55:04 [proZak]: UseObject error: Object not finded.
16:55:08 [proZak]: UseObject error: Object not finded.
16:55:13 [proZak]: UseObject error: Object not finded.
16:55:17 [proZak]: UseObject error: Object not finded.
16:55:22 [proZak]: UseObject error: Object not finded.
16:55:26 [proZak]: UseObject error: Object not finded.
Posted: 02.06.2008 11:15
by AlexM2008
Вопрос: мешок со Стейками где живет?
Code: Select all
Program cooking_elfar;
const
boxress=$777E1EDE;
Steake=$097A;
food=$097B; {Еда}
var
Quantity : integer;
BEGIN
useobject(boxress);
wait(1000);
while true do begin
if FindType(Steake, backpack) = 0 then
begin
findtype(Steake,boxress);
Quantity:=FindFullQuantity;
AddToSystemJournal(IntToStr(Quantity)+' Steaks на данный момент в мешке.');
if findtype(Steake,boxress) > 0 then MoveItem(FindItem,2,Backpack,0,0,0);
wait(400);
findtype(Steake,backpack);
Quantity:=FindFullQuantity;
AddToSystemJournal(IntToStr(Quantity)+' Steaks на данный момент в бекпаке.');
end;
while count(Steake) > 0 do
begin
usetype(Steake,$FFFF);
// useobject(FindType(Steake,backpack));
WaitForTarget(500);
{указать айди плавильни, или просто огня.}
TargetToObject($63087158);
wait(3200);
end
while FindType(food,backpack) > 0 do
begin
MoveItem(FindItem,0,boxress,0,0,0);
wait(250);
end
end;
END.
Posted: 02.06.2008 16:45
by proZak
Мешок со стейками лежыт в Бекпаке!
Posted: 02.06.2008 17:27
by AlexM2008
Это не есть Good
Тогда так:
1. Почему нельзя жарить из этого мешка прямо
2. Что произойдет если попытаться пожарить стопку из 10 Стейков
3. Как долго сможет работать такой скрипт (сколько ты поднимаешь Стейков в мешке)
и
4. На что ругается нарисованный выше скрипт?
Posted: 02.06.2008 20:48
by proZak
AlexM2008 wrote:Это не есть Good
Тогда так:
1. Почему нельзя жарить из этого мешка прямо
2. Что произойдет если попытаться пожарить стопку из 10 Стейков
3. Как долго сможет работать такой скрипт (сколько ты поднимаешь Стейков в мешке)
и
4. На что ругается нарисованный выше скрипт?
1.Незнаю не я писал скрипт (наверное так задумано, потомушо из стопки в 50К стейков нада оделять както ети 2 стейка постояно и потом их жарить);
2.Смысл 2 или 10? разницы помоему от етого не будет токо уйдет больше стейков на прокачку етого скила;
3.Непонял вопрос -)
4. Ну я чесно говоря незнаю, зналбы наверника может както попыталсобы устронить .
Posted: 03.06.2008 7:20
by AlexM2008
Попытка намберту
1. Можно ли жарить с земли, из мешка в бекпаке или ТОЛЬКО из бекпака?
2. То-есть, сколько тыкнешь, столько и пожарит!?
3. Скрипт будет работать пока не закончатся стейки в мешке. Поднять ты можешь ограниченный вес. Есть смысл брать Стейки не из мешка в бекпаке, а из мешка на земле или в сундуке, так как Стейков туда можно положить БОЛЬШЕ.
4. Ты так и не ответил. Скрипт, что я нарисовал выше работает или нет?