begin If FromClient and (pck=Hstr('F9 00 65 06 FF 00 2E 00 37 00 31 00 00 00')) then begin buf:=HStr('C9 00 65 36 FF 04 FD DD 5D 43 C7 A7 4F 44 00 E0 52 43 42'); //71 база SendToServer; pck:=''; end; If FromClient and (pck=Hstr('F9 00 65 06 FF 00 2E 00 37 00 32 00 00 00')) then begin buf:=HStr('C9 00 65 36 FF 04 0A 43 09 43 D6 55 0A 45 00 20 38 43 1E'); //72база SendToServer; pck:=''; end; If FromClient and (pck=Hstr('F9 00 65 06 FF 00 2E 00 37 00 33 00 00 00')) then begin buf:=HStr('C9 00 65 36 FF 04 3C 9D 8B 44 F0 6D F8 43 D5 A0 38 43 00'); //73база SendToServer; pck:=''; end; If FromClient and (pck=Hstr('F9 00 65 06 FF 00 2E 00 37 00 34 00 00 00')) then begin buf:=HStr('C9 00 65 36 FF 04 43 9A 52 44 8A 79 2C 45 00 20 36 43 38'); //74база SendToServer; pck:=''; end; If FromClient and (pck=Hstr('F9 00 65 06 FF 00 2E 00 37 00 35 00 00 00')) then begin buf:=HStr('C9 00 65 36 FF 04 0E 96 C3 44 1A 96 B7 44 0D 8B 01 43 54'); //75база SendToServer; pck:=''; end; If FromClient and (pck=Hstr('F9 00 65 06 FF 00 2E 00 37 00 36 00 00 00')) then begin buf:=HStr('C9 00 65 36 FF 04 79 10 D2 44 0B 89 8D 44 26 53 3A 43 12'); //76база SendToServer; pck:=''; end; If FromClient and (pck=Hstr('F9 00 65 06 FF 00 2E 00 37 00 37 00 00 00')) then begin buf:=HStr('C9 00 65 36 FF 04 2C 8A BF 44 C7 1E 0D 45 90 BC 32 43 37'); //77база SendToServer; pck:=''; end; If FromClient and (pck=Hstr('F9 00 65 06 FF 00 2E 00 37 00 38 00 00 00')) then begin buf:=HStr('C9 00 65 36 FF 04 E2 8B ED 44 63 EA 91 44 67 A5 81 43 3D'); //78база SendToServer; pck:=''; end; If FromClient and (pck=Hstr('F9 00 65 06 FF 00 2E 00 37 00 39 00 00 00')) then begin buf:=HStr('C9 00 65 36 FF 04 1D 46 1C 45 64 DC E3 44 00 F0 A2 43 5C'); //79база SendToServer; pck:=''; end; end.
begin If FromClient and (pck=Hstr('F9 00 65 06 FF 00 2E 00 38 00 39 00 00 00')) then begin buf:=HStr('C9 00 65 36 FF 04 07 B8 23 45 B7 07 09 45 00 60 79 43 2C 00'); //89база SendToServer; pck:=''; end; If FromClient and (pck=Hstr('F9 00 65 06 FF 00 2E 00 38 00 38 00 00 00')) then begin buf:=HStr('C9 00 65 36 FF 04 AC 09 04 45 8B B9 1A 45 00 70 86 43 70 00'); //88база SendToServer; pck:=''; end; If FromClient and (pck=Hstr('F9 00 65 06 FF 00 2E 00 38 00 37 00 00 00')) then begin buf:=HStr('C9 00 65 36 FF 04 62 93 A7 44 DE 21 13 45 17 80 38 43 53 00'); //87база SendToServer; pck:=''; end; If FromClient and (pck=Hstr('F9 00 65 06 FF 00 2E 00 38 00 32 00 00 00')) then begin buf:=HStr('C9 00 65 36 FF 04 D4 2A 84 44 9F A2 0B 45 00 40 8A 43 20 00'); //82база SendToServer; pck:=''; end; If FromClient and (pck=Hstr('F9 00 65 06 FF 00 2E 00 38 00 31 00 00 00')) then begin buf:=HStr('C9 00 65 36 FF 04 78 BE 84 44 F0 76 E3 44 00 50 B5 43 4A 00'); //81база SendToServer; pck:=''; end; If FromClient and (pck=Hstr('F9 00 65 06 FF 00 2E 00 38 00 30 00 00 00')) then begin buf:=HStr('C9 00 65 36 FF 04 39 90 76 44 B8 E8 91 44 00 F0 BA 43 3A 00'); //80база SendToServer; pck:=''; end; If FromClient and (pck=Hstr('F9 00 65 06 FF 00 2E 00 38 00 34 00 00 00')) then begin buf:=HStr('C9 00 65 36 FF 04 C3 A8 25 45 49 F9 FC 43 00 C0 6A 43 65 00'); //84база SendToServer; pck:=''; end; If FromClient and (pck=Hstr('F9 00 65 06 FF 00 2E 00 38 00 33 00 00 00')) then begin buf:=HStr('C9 00 65 36 FF 04 70 86 2E 45 5A F1 1A 44 2B FE 89 43 6D 00'); //83база SendToServer; pck:=''; end; If FromClient and (pck=Hstr('F9 00 65 06 FF 00 2E 00 38 00 35 00 00 00')) then begin buf:=HStr('C9 00 65 36 FF 04 A6 3B E5 44 BA 95 49 44 61 D9 19 43 45 00'); //85база SendToServer; pck:=''; end; If FromClient and (pck=Hstr('F9 00 65 06 FF 00 2E 00 38 00 36 00 00 00')) then begin buf:=HStr('C9 00 65 36 FF 04 2D F9 BC 44 33 C5 8F 44 C1 A5 B8 42 56 00'); //86база SendToServer; pck:=''; end; end.