Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7
водскажите плиззз а то я совсем нулевой в этом....
-
- Neophyte
- Posts: 11
- Joined: 05.07.2009 19:21
водскажите плиззз а то я совсем нулевой в этом....
доброго времени суток, подскажите пожалуйста как сделать так что он ел из бэкпака, а то что у меня никак не получается совсем
-
- Neophyte
- Posts: 11
- Joined: 05.07.2009 19:21
Marcus Wright wrote:как мне определить тип еды, чтобы её вставить в этот скрипт)))
То есть тип ты все-таки знаешь?Marcus Wright wrote:тайп у них один...
А вообще все как всегда , самое простое ,info в инже
"Как хочешь ты трудись;
Но приобресть не льстись
Ни благодарности, ни славы,
Коль нет в твоих трудах ни пользы, ни забавы. (с) С.Крылов."
Но приобресть не льстись
Ни благодарности, ни славы,
Коль нет в твоих трудах ни пользы, ни забавы. (с) С.Крылов."
-
- Neophyte
- Posts: 11
- Joined: 05.07.2009 19:21
Code: Select all
program Hav4ik;
{$include 'all.inc'}
var
i:Integer;
begin
while not dead do begin
if Count($1CED)=0 then begin
//если хавчика нет в паке, выходим из цикла
AddToSystemJournal('*****Женема шпа сис жур.******');//сначала напишем в журнал вот это
break;//а потом выходим
end;
UseObject(FindType($1CED,backpack)); //кушаем
for i:=0 to 59 do begin //ждем ~1 мин
wait(1000);
CheckSave; //притормозить скрипт если начался ворлдсейв
end;
end;
end.
Last edited by WladL on 10.11.2009 23:15, edited 3 times in total.
"Как хочешь ты трудись;
Но приобресть не льстись
Ни благодарности, ни славы,
Коль нет в твоих трудах ни пользы, ни забавы. (с) С.Крылов."
Но приобресть не льстись
Ни благодарности, ни славы,
Коль нет в твоих трудах ни пользы, ни забавы. (с) С.Крылов."
-
- Neophyte
- Posts: 11
- Joined: 05.07.2009 19:21
-
- Neophyte
- Posts: 11
- Joined: 05.07.2009 19:21
как думаешь почему?
замени то что выше, на вот это, и сам все увидишь.
Загляни сюда
http://stealth.od.ua/forum/viewtopic.php?t=1020
и сюда
http://stealth.od.ua/forum/viewtopic.php?t=1123
Code: Select all
if Count($1CED)=0 then break; //если хавчика нет в паке, выходим из цикла
Code: Select all
if Count($1CED)=0 then begin
//если хавчика нет в паке, выходим из цикла
AddToSystemJournal('*****Женема шпа сис жур.******');//сначала напишем в журнал вот это
break;//а потом выходим
end;
http://stealth.od.ua/forum/viewtopic.php?t=1020
и сюда
http://stealth.od.ua/forum/viewtopic.php?t=1123
"Как хочешь ты трудись;
Но приобресть не льстись
Ни благодарности, ни славы,
Коль нет в твоих трудах ни пользы, ни забавы. (с) С.Крылов."
Но приобресть не льстись
Ни благодарности, ни славы,
Коль нет в твоих трудах ни пользы, ни забавы. (с) С.Крылов."
-
- Neophyte
- Posts: 11
- Joined: 05.07.2009 19:21