15 procedure doPut(putX, putY: LongInt; fromAI: boolean);

    15 procedure doPut(putX, putY: LongInt; fromAI: boolean);

    16 

    16 

    17 implementation

    17 implementation

    18 uses uStore, Types, uConsts, uGears, uTeams, uIO, uKeys, uMobile,

    18 uses uStore, Types, uConsts, uGears, uTeams, uIO, uKeys, uMobile,

    19      uRandom, uAmmos, uStats, uChat, SDLh, uSound, uVisualGears, uScript, uTypes,

    19      uRandom, uAmmos, uStats, uChat, SDLh, uSound, uVisualGears, uScript, uTypes,

    21 

    21 

    22 type  PVariable = ^TVariable;

    22 type  PVariable = ^TVariable;

    23       TVariable = record

    23       TVariable = record

    24                      Next: PVariable;

    24                      Next: PVariable;

    25                      Name: string[15];

    25                      Name: string[15];