if FromServer and (ConnectName=Name) and (pck[1]=#$39) then begin
mana:= ReadS(2);
buf:=Hstr('49 21 04 3F 04 30 04 41 04 38 04 31 04 3E 04 20 00 37 04 30 04 20 00 3C 04 30 04 3D 04 43 04 20 00 3D 00 29 00 00 00 02 00 00 00');
WriteS(mana);
buf := buf + HStr('');
SendToServer;
end;
end.
|