hedgewars/uConsole.pas
changeset 2042 905c554d62e6
parent 2031 b6f3e56fb100
child 2124 d39c61eaca15
equal deleted inserted replaced
2041:9e0b5a6bcecf 2042:905c554d62e6
    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, uStats, uGame, uChat, SDLh, uSound;
    39      uRandom, uAmmos, uTriggers, uStats, uGame, uChat, SDLh, uSound, uVisualGears;
    40 
    40 
    41 const cLineWidth: LongInt = 0;
    41 const cLineWidth: LongInt = 0;
    42       cLinesCount = 256;
    42       cLinesCount = 256;
    43 
    43 
    44 type  PVariable = ^TVariable;
    44 type  PVariable = ^TVariable;