Пакет на отмену удаления чара

[alexteam]

var
Form : tform;
Button : Tbutton;

Procedure ButtonHandle(sender:tobject);
begin
//Сюда - реакцию по нажатию кнопки.
//Как пример - отправка пм'а "привет -)" от игрока "скрипт" на клиент с именем соединения "mychar"
 buf := #$4a;
 writed(0);
 writed(2);
 writes('Скрипт');
 writes('Привет -)');
 sendtoclientex('mychar'); 
end;

procedure Init; //Вызывается при включении скрипта
begin
Form := tform.create(nil);
Button := tbutton.create(form);
Button.parent := form;
button.onclick := @ButtonHandle;
button.caption := 'Отправить';
Form.autosize := true;
form.formstyle := fsstayontop;
form.borderwidth := 15;
form.show;
end;

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


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

end.

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

Добавлено через 3 минуты
это пример создания формы с кнопкой с привязкой на кнопку реакции. а так же пример "сборки" пакета и отправки его по имени соединения.
модифицируя содержимое ButtonHandle думаю добъешся чего хочешь.