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 init_uTriggers;

    28 procedure init_uTriggers;

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

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

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

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

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

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

    32 procedure TickTrigger(id: Longword);

    33 procedure TickTrigger(id: Longword);

    33 

    34 

   147 procedure init_uTriggers;

   148 procedure init_uTriggers;

   148 begin

   149 begin

   149 	TriggerList:= nil;

   150 	TriggerList:= nil;

   150 end;

   151 end;

   151 

   152 

   152 end.

   158 end.