equal
deleted
inserted
replaced
27 |
27 |
28 procedure AddTriggerSpawner(id, Ticks, Lives: Longword; X, Y: LongInt; GearType: TGearType; GearTriggerId: Longword); |
28 procedure AddTriggerSpawner(id, Ticks, Lives: Longword; X, Y: LongInt; GearType: TGearType; GearTriggerId: Longword); |
29 procedure TickTrigger(id: Longword); |
29 procedure TickTrigger(id: Longword); |
30 |
30 |
31 implementation |
31 implementation |
32 uses uGears, uFloat, uMisc; |
32 uses uGears, uFloat, uMisc, uWorld; |
33 type PTrigger = ^TTrigger; |
33 type PTrigger = ^TTrigger; |
34 TTrigger = record |
34 TTrigger = record |
35 id: Longword; |
35 id: Longword; |
36 Ticks: Longword; |
36 Ticks: Longword; |
37 Lives: Longword; |
37 Lives: Longword; |
67 |
67 |
68 procedure TickTriggerT(Trigger: PTrigger); |
68 procedure TickTriggerT(Trigger: PTrigger); |
69 begin |
69 begin |
70 with Trigger^ do |
70 with Trigger^ do |
71 case Action of |
71 case Action of |
72 taSpawnGear: AddGear(X, Y, SpawnGearType, 0, _0, _0, 0)^.TriggerId:= SpawnGearTriggerId; |
72 taSpawnGear: begin |
|
73 FollowGear:= AddGear(X, Y, SpawnGearType, 0, _0, _0, 0); |
|
74 FollowGear^.TriggerId:= SpawnGearTriggerId |
|
75 end |
73 end |
76 end |
74 end; |
77 end; |
75 |
78 |
76 procedure TickTrigger(id: Longword); |
79 procedure TickTrigger(id: Longword); |
77 var t, pt, nt: PTrigger; |
80 var t, pt, nt: PTrigger; |