Полезные функции

[NLObP]

Запрещаем случайное закрытие формы.

procedure Init;
begin
//форма
frm := TForm.Create(nil);
frm.Caption := 'FishBOT '+Name;
frm.BorderStyle := bsSizeable;
frm.Position := poScreenCenter;
frm.Width:=570;
frm.Height:=500;
frm.OnClose := @FormClose;
end;

//******************************************************************************
procedure FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caNone;
end;

[Mavr]

В перечне функций, доступных в скриптах, очень сильно не хватает функции на блокировку пакета. Например, BlockPacket в WP PPC Саурона. Xkor подумай может стоит ее добавить.
Хотя если выполнить команду pck:=''; то пакет дальше не пойдет, но всеже хотелось бы иметь отдельную функцию.

Кто захочет может и сам сделать. Для этого в function TL2PacketHackMain.CallMethod добавляем

if MethodName = 'BLOCKPACKET' then begin
TfsScript(Integer(Params[0])).Variables['pck']:='';
end else

И в procedure TL2PacketHackMain.RefreshPrecompile добавляем

fsScript.AddMethod('procedure BlockPacket('+fss+')',CallMethod);

Ну с топик может и промахнулса, а заменить BlockPacket на просто Block ничего не мешает. Вобщем посты можете потереть, а добавлять функцию в релиз или нет решать автору.
Ну топик привёл в читабельный вид (с) Grinch