equal
deleted
inserted
replaced
39 procedure CloseIPC; |
39 procedure CloseIPC; |
40 procedure NetGetNextCmd; |
40 procedure NetGetNextCmd; |
41 procedure doPut(putX, putY: LongInt; fromAI: boolean); |
41 procedure doPut(putX, putY: LongInt; fromAI: boolean); |
42 |
42 |
43 implementation |
43 implementation |
44 uses uConsole, uConsts, uVariables, uCommands, uUtils, uDebug; |
44 uses uConsole, uConsts, uVariables, uCommands, uUtils, uDebug, uMobile; |
45 |
45 |
46 type PCmd = ^TCmd; |
46 type PCmd = ^TCmd; |
47 TCmd = packed record |
47 TCmd = packed record |
48 Next: PCmd; |
48 Next: PCmd; |
49 loTime: Word; |
49 loTime: Word; |
173 ss: shortstring = ''; |
173 ss: shortstring = ''; |
174 i: LongInt; |
174 i: LongInt; |
175 buf: array[0..255] of byte; |
175 buf: array[0..255] of byte; |
176 s: shortstring absolute buf; |
176 s: shortstring absolute buf; |
177 begin |
177 begin |
|
178 |
|
179 uMobile.SaveBeganSynching(); |
178 |
180 |
179 // set RDNLY on file open |
181 // set RDNLY on file open |
180 filemode:= 0; |
182 filemode:= 0; |
181 {$I-} |
183 {$I-} |
182 assign(f, fileName); |
184 assign(f, fileName); |