PDA

Просмотр полной версии : Пакет на отмену удаления чара


Vebstor23
07.06.2009, 12:08
Народ подскажити какой пакет отменяет удаление чара??

Fer123
07.06.2009, 13:32
Проверь на практике...

Vebstor23
07.06.2009, 13:53
сори тупанул( чтоб несоздавать новой темы подскажити как отправить сначала пакет на сервер потом на клиент? т.е. одним пакетом

alexteam
07.06.2009, 14:35
pck:=blablabla;
sendtoserver;
pck:=blablabla2;
sendtoclient;

....

xkor
07.06.2009, 15:24
alexteam, разве pck а не buf?

alexteam
07.06.2009, 15:48
ой, пардон, меня как всегда глючит :D

Vebstor23
07.06.2009, 15:56
чёт я немного недогнал( вот кпримеру скинуть вещ должно выглядить так?
begin
buf:=12 33 89 11 40 01 00 00 00 0F C1 01 00 9F 48 FD FF 93 FC FF FF ;
sendtoserver;
end.

8tomat8
07.06.2009, 16:19
:confused:
begin
buf:=#$12#$33#$89#$11#$40#$01#$00#$00#$00#$0F#$C1# $01#$00#$9F#$48#$FD#$FF#$93#$FC#$FF#$FF;
sendtoserver;
end.

Или

begin
buf:=HStr('12 33 89 11 40 01 00 00 00 0F C1 01 00 9F 48 FD FF 93 FC FF FF');
sendtoserver;
end.

Vebstor23
07.06.2009, 16:31
:confused:
begin
buf:=#$12#$33#$89#$11#$40#$01#$00#$00#$00#$0F#$C1# $01#$00#$9F#$48#$FD#$FF#$93#$FC#$FF#$FF;
sendtoserver;
end.

Или

begin
buf:=HStr('12 33 89 11 40 01 00 00 00 0F C1 01 00 9F 48 FD FF 93 FC FF FF');
sendtoserver;
end.

чёт неполучается( через пакеты норм кидает а через скрипт чёт ваще нехочет(

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

Vebstor23
07.06.2009, 16:38
Vebstor23, А тебе клиенту или серверу надо отправить?
А в скрипте лучше сделай что бы пакет по какой то команде отправлялся...
мне нада сначала отправить серверу потом сразуже отправить клиенту но сначалабы разобратся как нормально серверу отправить)
нащёт команды эт потом) мнебы сначала зделать просто)

alexteam
07.06.2009, 17:11
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 думаю добъешся чего хочешь.