const Char_Name = 'Name'; Var mojno: Boolean; procedure Init; begin mojno := True; tt; end; procedure Free; begin mojno := False; end; procedure tt; begin If mojno then begin buf:=HStr('21 6E 00 70 00 63 00 5F 00 32 00 36 00 38 00 34 00 37 00 34 00 37 00 35 00 38 00 5F 00 6D 00 75 00 6C 00 74 00 69 00 73 00 65 00 6C 00 6C 00 20 00 39 00 31 00 36 00 31 00 00 00'); SendToServerEx(Char_Name); delay(200); buf:=HStr('A7 C9 23 00 00 80 EE 36 00 C5 09 00 00 00 00 00 00 00 00 00 00'); SendToServerEx(Char_Name); delay(400); buf:=HStr('21 6E 00 70 00 63 00 5F 00 32 00 36 00 38 00 34 00 37 00 34 00 37 00 35 00 38 00 5F 00 53 00 65 00 6C 00 6C 00 00 00'); SendToServerEx(Char_Name); delay(200); buf:=HStr('1E 00 00 00 00 01 00 00 00 B4 CE 00 10 94 17 00 00 C4 09 00 00'); SendToServerEx(Char_Name); delay(200); buf:=HStr('A7 CD 23 00 00 A0 86 01 00 0F 00 00 00 00 00 00 00 00 00 00 00'); SendToServerEx(Char_Name); pck:='' //tt; end; end; end.
pck:=''
const Char_Name = 'Name'; Var mojno: Boolean; procedure Init; begin mojno := True; tt; end; procedure Free; begin mojno := False; end; procedure tt; begin If mojno then begin buf:=HStr('21 6E 00 70 00 63 00 5F 00 32 00 36 00 38 00 34 00 37 00 34 00 37 00 35 00 38 00 5F 00 6D 00 75 00 6C 00 74 00 69 00 73 00 65 00 6C 00 6C 00 20 00 39 00 31 00 36 00 31 00 00 00'); SendToServerEx(Char_Name); delay(200); buf:=HStr('A7 C9 23 00 00 80 EE 36 00 C5 09 00 00 00 00 00 00 00 00 00 00'); SendToServerEx(Char_Name); delay(400); buf:=HStr('21 6E 00 70 00 63 00 5F 00 32 00 36 00 38 00 34 00 37 00 34 00 37 00 35 00 38 00 5F 00 53 00 65 00 6C 00 6C 00 00 00'); SendToServerEx(Char_Name); delay(200); buf:=HStr('1E 00 00 00 00 01 00 00 00 B4 CE 00 10 94 17 00 00 C4 09 00 00'); SendToServerEx(Char_Name); delay(200); buf:=HStr('A7 CD 23 00 00 A0 86 01 00 0F 00 00 00 00 00 00 00 00 00 00 00'); SendToServerEx(Char_Name); pck:='' //tt; end; end; begin end.