[ПолуГость2]

ППЦ, это магия!!!
пх 3.4.1.83 на yes выдает Access violation по гениальному адресу 13232819 (что-то читает адрес 0), _до_ того, как отправляет-таки на сервер yes, creature say срабатывает один раз. Для No все ок.

Добавлено через 3 минуты
Если обойтись без анонсов, то все равно access violation при yes, проблема конкретно в нем. Перейду на другое соц. действие Двойную отправку считаем фантомом, тем более, что в 3.4.1.83 ее вроде нет...

Добавлено через 12 минут
ААААААААААААААААААААААААААААА, бля, я понял!!!
Проблема в том, что при yes срабатывает вызов, pck чистится, и после возврата следующий if лезет в несуществующие элементы срокового массива, а дальше уж неизвестно что происходит, но плохое. Если скрипт сделать с отложенным удалением, все ок. (ну кроме двойной отправки, которую мы считаем кажущейся)

Это, ребята, надо в доку вносить, это может быть системой...

var
	NickName : String;
	killPacket:Boolean;

procedure Init;
begin
	NickName := 'userName';
end;

procedure Free;
begin
	NickName := '';
	killPacket := false;
end;

//====================================================================================
procedure getNo;
begin
	killPacket := true;
end;

//====================================================================================
procedure getYes;
begin
	killPacket := true;
end;

//====================================================================================
//====================================================================================
begin
	if pck = '' then exit;
	if (ConnectName = NickName) and FromClient then begin
		if (pck[1]=#$34) and (pck[2]=#$06) then getYes;
		if (pck[1]=#$34) and (pck[2]=#$05) then getNo;
	end;

	if (killPacket) then pck := '';
	killPacket := false;
end.