hedgewars/uConsole.pas
changeset 871 f1bf00b7fd5a
parent 866 ac6f6c95c23f
child 883 07a568ba44e0
equal deleted inserted replaced
870:dd418d9c18c5 871:f1bf00b7fd5a
    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, uSound;
    39      uRandom, uAmmos, uTriggers, GL, uStats;
    40 const cLineWidth: LongInt = 0;
    40 const cLineWidth: LongInt = 0;
    41       cLinesCount = 256;
    41       cLinesCount = 256;
    42 
    42 
    43 type  PVariable = ^TVariable;
    43 type  PVariable = ^TVariable;
    44       TVariable = record
    44       TVariable = record