Need help with locking expedition

[Jleadford83]

I can't seem to find the reason this seems to go off. I get no warnings. The debug message fires, but I can still invite a logged in alt.

sub EVENT_ENTERZONE {
	my $dz = quest::get_expedition();
	if($dz) {
		quest::settimer("lock", 60);
	}
}

sub EVENT_TIMER {
	my $dz = quest::get_expedition();
	if($timer eq "lock" && $dz) {
		quest::stoptimer("lock");
		$dz->SetLocked(true);
		quest::debug("Locked Expedition");
	}
}

I am very new to writing scripts so pls lend me your wisdom.

[Jleadford83]

I got it working just had to use .lua not sure why perl did not work.