14 * You should have received a copy of the GNU General Public License |
14 * You should have received a copy of the GNU General Public License |
15 * along with this program; if not, write to the Free Software |
15 * along with this program; if not, write to the Free Software |
16 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA |
16 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA |
17 *) |
17 *) |
18 |
18 |
|
19 {$INCLUDE "options.inc"} |
|
20 |
19 unit uTriggers; |
21 unit uTriggers; |
20 |
22 |
21 interface |
23 interface |
22 uses SDLh, uConsts; |
24 uses SDLh, uConsts; |
23 {$INCLUDE "options.inc"} |
|
24 const trigTurns = $80000001; |
|
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); |
28 procedure AddTriggerSpawner(id, Ticks, Lives: Longword; GearType: TGearType; X, Y: LongInt; GearTriggerId: Longword); |
29 procedure AddTriggerSuccess(id, Ticks, Lives: Longword); |
29 procedure AddTriggerSuccess(id, Ticks, Lives: Longword); |