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

[Vebstor23]

Сообщение от 8tomat8

Vebstor23, А тебе клиенту или серверу надо отправить?
А в скрипте лучше сделай что бы пакет по какой то команде отправлялся...

мне нада сначала отправить серверу потом сразуже отправить клиенту но сначалабы разобратся как нормально серверу отправить)
нащёт команды эт потом) мнебы сначала зделать просто)

[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 думаю добъешся чего хочешь.