54 

    54 

    55 procedure initModule;

    55 procedure initModule;

    56 procedure freeModule;

    56 procedure freeModule;

    57 

    57 

    58 implementation

    58 implementation

    60 

    59 

    61 uses LuaPas,

    60 uses LuaPas,

    62     uConsole,

    61     uConsole,

    63     uConsts,

    62     uConsts,

    64     uGears,

    63     uGears,

   102     ScriptLoaded : boolean;

   101     ScriptLoaded : boolean;

   103     mapDims : boolean;

   102     mapDims : boolean;

   104     PointsBuffer: shortstring;

   103     PointsBuffer: shortstring;

   105     prevCursorPoint: TPoint;  // why is tpoint still in sdlh...

   104     prevCursorPoint: TPoint;  // why is tpoint still in sdlh...

   106 

   105 

   107 procedure ScriptPrepareAmmoStore; forward;

   107 procedure ScriptPrepareAmmoStore; forward;

   108 procedure ScriptApplyAmmoStore; forward;

   108 procedure ScriptApplyAmmoStore; forward;

   109 procedure ScriptSetAmmo(ammo : TAmmoType; count, probability, delay, reinforcement: Byte); forward;

   109 procedure ScriptSetAmmo(ammo : TAmmoType; count, probability, delay, reinforcement: Byte); forward;

   110 procedure ScriptSetAmmoDelay(ammo : TAmmoType; delay: Byte); forward;

   110 procedure ScriptSetAmmoDelay(ammo : TAmmoType; delay: Byte); forward;

   111 

   111 

  3450 

  3450 

  3451 procedure ScriptOnScreenResize;

  3451 procedure ScriptOnScreenResize;

  3452 begin

  3452 begin

  3453 end;

  3453 end;

  3454 

  3454 

  3455 procedure initModule;

  3471 procedure initModule;

  3456 begin

  3472 begin

  3457 mapDims:= false;

  3473 mapDims:= false;

  3458 PointsBuffer:= '';

  3474 PointsBuffer:= '';

  3459 prevCursorPoint.X:= NoPointX;

  3475 prevCursorPoint.X:= NoPointX;