ДА БУДЕТ БOT!

[keyn]

Сообщение от VORON

MKS, мне кажется очень много вопросов у людей связано с бональными вещам.. которые получаются изза того что нет удобного интерфейса для мониторинга значений переменных в режиме онлайн... люди в слепую тычатся.. поетой причине дам кусочек кода который на стадии разработки скрипта нужно в скрипт добавить и с его помощью отоброжать значения переменных на екране...

var
frm:Tform;

memo:Tmemo;

procedure Init; //Вызывается при включении скрипта
begin
  frm := TForm.Create(nil);
  frm.Caption := 'Chat';
  frm.BorderStyle := bsSizeable;
  frm.Position := poScreencenter;
  frm.Width:=600;
  frm.Height:=700;
  frm.FormStyle:=FsStayOnTop;
  frm.Show;

  memo :=TMemo.create(nil);
  memo.parent:=frm;
  memo.align:=alClient;

end;

procedure Free; //Вызывается при выключении скрипта
begin
  memo.free;
  frm.Free;
end;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin

 if FromClient then
 begin

 memo.Lines.Add('сюда пишем всё что хотим и видемето на екране екране, например:'+inttostr(12345));

 end;
end.

VORON - Респект за эту тему, мдя вообще в шоколаде все стало - очень удобно скрипты писать - Все косяки очень быстро можно отследить и принять меры. :good: