Привествую всех.
Делаю скрипты для бота.
Есть код, который определят всех вокруг игроков в онлайн игре и пишет им сообщение. Всё получилось,
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 | var i, n : integer;
begin
while True do begin
n := 0;
for i := 0 to charlist.Count do begin
if charlist.Items(i).Title = '' then begin
Inc(n);
engine.say('Привет',2,charlist.Items(i).Name);
delay(2000);
end;
end;
end;
end.
|
Но он пишет игрокам по очереди и согласитесь если игроков 5000, на это уйдёт большой ресурс и большое количество времени.
Вопрос: Как сделать чтобы отправлял всем.
Только если можно решение сразу, а то я изучаю Delphi неделю всего.
25.04.2015, 01:35
Отправка сообщений одновременно всем
Линейный вид
