Code: Select all
if not uo.funRunning('test2') then
uo.exec('test2')
uo.colorPrint(0x0446, 'Test2 запущен!')
end if
if uo.funRunning('test3') then
uo.exec('terminate test3')
uo.colorPrint(0x0446, 'Test3 остановлен!')
end ifПроцедурный подход такой какой сейчас есть в Stealth подходит для простых задач. А мне нужны параллельно выполняющиеся процессы для более сложных задач. Сейчас это можно сделать "расплодив" кучу скриптов в разных файлах, поочерёдно загрузить и запустить их. Это работает все ок, но мягко говоря не очень удобно. А так был бы один скрипт autoload.sc, где прописаны файлы, которые нужно запустить и было бы гуд!drabadan wrote:А в чем необходимость, почему такая задача стоит?
Код ниже не рабочий – это просто набросок, пример того, что такое плохо.drabadan wrote:"Процедурный подход такой какой сейчас есть в Stealth подходит для простых задач. А мне нужны параллельно выполняющиеся процессы для более сложных задач." - тут можно долго спорить. Есть например масса ивентов, которые позволяют решать задачи любой сложности.
Может есть конкретный пример по которому можно понять, что без 2х скриптов паралельно совсем никак?
Code: Select all
Program myProgram;
var
idLastMob, idLastCorpse : Cardinal;
function findMob() : Cardinal;
var
mob : Cardinal;
begin
mob := $0D00F000;
Result := mob;
end;
function attackMob(idMob : Cardinal) : Boolean;
var
begin
if (WarTargetID <> idMob) then
attack(idMob);
while not isDead(idMob) and not dead do
begin
wait(100);
end;
// если сам умер, то атака оказалась безуспешна
if dead then
begin
Result := false;
end
else
begin
Result := true;
end;
end;
function findCorpse() : Cardinal;
var
corpse : Cardinal;
begin
corpse := $0D00FC00;
Result := corpse;
end;
function lootCorpse(idCorpse : Cardinal) : Boolean;
begin
// здесь код. Ищем нужные айтемы и перекладываем их себе
end;
function checkPK() : Boolean;
begin
// проверка не напал ли ПК
end;
begin
while true do
begin
idLastMob := findMob();
if idLastMob > 0 then
begin
addToSystemJournal('Моб найден, атакуем его');
attackMob(idLastMob);
idLastCorpse := findCorpse();
if idLastCorpse > 0 then
begin
addToSystemJournal('Труп найден, лутаем его');
lootCorpse(idLastCorpse);
checkPK(); // получается, что чтобы проверить не атакует ли кто
// нужно дождаться пока выполнение кода дойдет до
// этого момента. Либо тыкать эту проверку во все
// места кода. В этом случае чар сдохнет уже, а код
// будет пытаться выполниться. Или превратить код в
// кашу и сломать голову, предусматривая куда еще
// нужно поставить проверку на ПК
end;
end;
wait(500);
end;
end.
Code: Select all
getGlobal('char', name : string) : string
setGlobal('char', name : string, value : string)Нет, это не про того товарища о котором вы предположили. Это всего лишь цитата В. В. Маяковского.drabadan wrote:"пример того, что такое плохо" - что ето значит, не только лишь все из нас тут топ1 мира программисты, мало кто, на самом деле.
Я видел это в гайде и как-то сразу не воспринял всерьез. Но если вы утверждаете, что в это стоит вникнуть я сейчас постараюсь понять, как это работает. Там не совсем хорошо описано, но как говорится методом тыка потестирую. Благодарю!drabadan wrote:http://stealth.od.ua/Doc:RU/Manual/Reference/Events
evDrawObject : [ID] - отрисовка чара (не обязательно нашего!)
просто подпишись на событие, в коллбеке обнови флаг основного лупа и вуаля. Ничего никуда не нужно тыкать.
