index 6748a005098b7874218adc0e15af4fcd3fa5a631..1bfd1883cab4b91538bc760b0fccc9e37731ae87 100644 (file)
--- a/src/game/g_triggers.pas
+++ b/src/game/g_triggers.pas
TRIGGER_PRESS, TRIGGER_ON, TRIGGER_OFF, TRIGGER_ONOFF:
begin
PressCount := PressCount + 1;
-
+
if PressTime = -1 then
PressTime := Data.Wait;
p := g_Player_Get(ActivateUID);
if p = nil then
Exit;
-
+
if Data.ResetVel then
begin
p.GameVelX := 0;
k: Byte;
p: TPlayer;
begin
+ Result := nil;
+
if gTriggers = nil then Exit;
case g_GetUIDType(UID) of
else k := 0;
end;
- Result := nil;
-
for a := 0 to High(gTriggers) do
if (gTriggers[a].TriggerType <> TRIGGER_NONE) and
(gTriggers[a].TimeOut = 0) and