надуем интерпритатор.
Не пытайтесь повторять это дома.
delphi Код:
procedure scanpanelki; //ну и имя у функцииvar
i, ind : integer;
begin
ind := GetArrayIndexByName(ConnectName);
if ind >= 0thenbegin
panelki[ind] := '';
for i := 1tolength(pck)do
panelki[ind] := panelki[ind] + chr(ReadC(i));
say('сосканил панельку у '+ConnectName+'. '+strtohex(panelki[ind]));
endelse
say('не нашел имя');
end;
кстати скрипт делает чуток не то я задумывал) после твоей переделки)
Он должен сканить панельки всех персов в массиве NamesArray, и заносить их под темже номером в массив panelki, потом я должен писать в чат ник из массива NamesArray, по этому именни он должен брать из массива под темже индексом пакет с панелькой из массива panelki и кидать его на Name
Добавлено через 1 минуту
неужели работает
Добавлено через 4 минуты
уже лучше, но пакет битый(
Последний раз редактировалось supernewbie, 10.07.2010 в 22:38.
Причина: Добавлено сообщение
Он должен сканить панельки всех персов в массиве NamesArray, и заносить их под темже номером в массив panelki, потом я должен писать в чат ник из массива NamesArray, по этому именни он должен брать из массива под темже индексом пакет с панелькой из массива panelki [strike]и кидать его на Name[strike] на того персонажа с которого писали ник в чат
fix.
именно так работал твой скрипт.. моя переделка тоже должна именно так работать. если бы не ведомая хрень с blablabla := pck <-fail
Добавлено через 23 секунды
Цитата:
уже лучше, но пакет битый(
в чат пишет правильно но отправляет хрень ?
__________________
L2Ext - project closed.
Последний раз редактировалось alexteam, 10.07.2010 в 22:39.
Причина: Добавлено сообщение