Сори за мой нубский топ, но я вот сам никак не разберусь.
Почему этот скрипт у меня работает нормально
Код:
var
Form1 : TForm;
procedure test;
begin
buf := HStr('38 20 00 00 00 00 00 00 00'); //говорить в чат пробел
SendToServer;
end;
procedure Init;
begin
Form1 := TForm.Create(nil);
Form1.Caption := '...';
Form1.BorderStyle := bsSizeable;
Form1.Position := poScreencenter;
Form1.Width := 200;
Form1.Height := 300;
Form1.FormStyle := fsNormal;
Form1.OnClick := @test;
Form1.Show;
end;
procedure Free;
begin
Form1.Free;
end;
begin
end.
а этот никогда не выводит сообщение New Packet, что бы я не делал в игре
Код:
procedure Init;
begin
showmessage('init');
end;
procedure Free;
begin
end;
begin
showmessage('New Packet');
end.
Запускаю скрипты из вкладки "Скрипты".
З.Ы. Ппц чуствую себя полным нубом :(