equal
deleted
inserted
replaced
16 procedure doPut(putX, putY: LongInt; fromAI: boolean); |
16 procedure doPut(putX, putY: LongInt; fromAI: boolean); |
17 |
17 |
18 implementation |
18 implementation |
19 uses Types, uConsts, uIO, uMobile, |
19 uses Types, uConsts, uIO, uMobile, |
20 uRandom, SDLh, uScript, uTypes, |
20 uRandom, SDLh, uScript, uTypes, |
21 uVariables, uConsole, uUtils; |
21 uVariables, uConsole, uUtils, uDebug; |
22 |
22 |
23 type PVariable = ^TVariable; |
23 type PVariable = ^TVariable; |
24 TVariable = record |
24 TVariable = record |
25 Next: PVariable; |
25 Next: PVariable; |
26 Name: string[15]; |
26 Name: string[15]; |