23 interface

    23 interface

    24 uses SDLh, uConsts;

    24 uses SDLh, uConsts;

    25 

    25 

    26 type TTrigAction = (taSpawnGear, taSuccessFinish, taFailFinish);

    26 type TTrigAction = (taSpawnGear, taSuccessFinish, taFailFinish);

    27 

    27 

    28 procedure AddTriggerSpawner(id, Ticks, Lives: Longword; GearType: TGearType; X, Y: LongInt; GearTriggerId: Longword);

    29 procedure AddTriggerSpawner(id, Ticks, Lives: Longword; GearType: TGearType; X, Y: LongInt; GearTriggerId: Longword);

    29 procedure AddTriggerSuccess(id, Ticks, Lives: Longword);

    30 procedure AddTriggerSuccess(id, Ticks, Lives: Longword);

    30 procedure AddTriggerFail(id, Ticks, Lives: Longword);

    31 procedure AddTriggerFail(id, Ticks, Lives: Longword);

    31 procedure TickTrigger(id: Longword);

    32 procedure TickTrigger(id: Longword);

    32 

    33 

    42                 X, Y: LongInt;

    43                 X, Y: LongInt;

    43                 SpawnGearType: TGearType;

    44                 SpawnGearType: TGearType;

    44                 SpawnGearTriggerId: Longword;

    45                 SpawnGearTriggerId: Longword;

    45                 Next: PTrigger;

    46                 Next: PTrigger;

    46                 end;

    47                 end;

    48 

    49 

    49 function AddTrigger(id, Ticks, Lives: Longword): PTrigger;

    50 function AddTrigger(id, Ticks, Lives: Longword): PTrigger;

    50 var tmp: PTrigger;

    51 var tmp: PTrigger;

    51 begin

    52 begin

    52 new(tmp);

    53 new(tmp);

   141   pt:= t;

   142   pt:= t;

   142   t:= nt

   143   t:= nt

   143   end

   144   end

   144 end;

   145 end;

   145 

   146 

   146 end.

   152 end.