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