changeset 950 | feb18ec0c5c2 |
parent 946 | 42c5cc87cbd1 |
child 969 | 7e8a87136fae |
949:866729775535 | 950:feb18ec0c5c2 |
---|---|
34 procedure doPut(putX, putY: LongInt; fromAI: boolean); |
34 procedure doPut(putX, putY: LongInt; fromAI: boolean); |
35 |
35 |
36 implementation |
36 implementation |
37 {$J+} |
37 {$J+} |
38 uses uMisc, uStore, Types, uConsts, uGears, uTeams, uIO, uKeys, uWorld, uLand, |
38 uses uMisc, uStore, Types, uConsts, uGears, uTeams, uIO, uKeys, uWorld, uLand, |
39 uRandom, uAmmos, uTriggers, GL, uStats, uGame; |
39 uRandom, uAmmos, uTriggers, GL, uStats, uGame, uChat; |
40 |
|
40 const cLineWidth: LongInt = 0; |
41 const cLineWidth: LongInt = 0; |
41 cLinesCount = 256; |
42 cLinesCount = 256; |
42 |
43 |
43 type PVariable = ^TVariable; |
44 type PVariable = ^TVariable; |
44 TVariable = record |
45 TVariable = record |