23 uses SDLh, uTypes;

    23 uses SDLh, uTypes;

    24 

    24 

    25 procedure initModule;

    25 procedure initModule;

    26 procedure freeModule;

    26 procedure freeModule;

    27 

    27 

    29 procedure SendIPC(s: shortstring);

    28 procedure SendIPC(s: shortstring);

    30 procedure SendIPCXY(cmd: char; X, Y: LongInt);

    29 procedure SendIPCXY(cmd: char; X, Y: LongInt);

    31 procedure SendIPCRaw(p: pointer; len: Longword);

    30 procedure SendIPCRaw(p: pointer; len: Longword);

    32 procedure SendIPCAndWaitReply(s: shortstring);

    31 procedure SendIPCAndWaitReply(s: shortstring);

    33 procedure FlushMessages(Lag: Longword);

    32 procedure FlushMessages(Lag: Longword);

    95 tmp:= headcmd;

    94 tmp:= headcmd;

    96 headcmd:= headcmd^.Next;

    95 headcmd:= headcmd^.Next;

    97 if headcmd = nil then

    96 if headcmd = nil then

    98     lastcmd:= nil;

    97     lastcmd:= nil;

    99 dispose(tmp)

    98 dispose(tmp)

   105 end;

    99 end;

   106 

   100 

   107 procedure ParseChatCommand(command: shortstring; message: shortstring;

   101 procedure ParseChatCommand(command: shortstring; message: shortstring;

   108                            messageStartIndex: Byte);

   102                            messageStartIndex: Byte);

   109 var

   103 var