uses SSP_SneakChallenge;

var
	toggle: boolean;
	i: integer;
	
procedure MyOnSpeak(p: TActivePlayer; txt: string);
begin
	if txt='!tp' then
		Players[2].Move(0,0);
	if txt='!toggle' then
		toggle := not toggle;
end;
	
procedure MyOnTick(Ticks: Integer);
begin
	if toggle then
		Players[2].Move(0,0);
end;

begin
	for i:=1 to 32 do
		Players[i].OnSpeak := @MyOnSpeak;
		
	Game.OnClockTick := @MyOnTick;
	Game.TickThreshold := 60;
end.