# Jedi Knight Cog Script
#
# qm_spectator.cog
#
# Let's a player spectate other players by activating a switch.
#
# [QM]
#
# (C) 1997 LucasArts Entertainment Co. All Rights Reserved

flags=0x240

symbols

surface     spectate_button

thing       player=-1                        local
thing       victim=-1                        local
thing       camera=-1                        local
template    camera_tpl=ghost                 local
int         pcount=-1                        local
int         camera_sig=-1                    local
vector      player_dir                       local
vector      player_loc                       local

message     activated
message     pulse
message     removed

end

#  ==================================================
======================================

code

activated:
   player = GetSourceRef();
   player_dir = GetThingLVec(player);
   player_loc = GetThingPos(player);
   ClearActorFlags(player, 0x1);
   SetActorFlags(player, 0x840000);
   pcount = pcount + 1;
   if(pcount >= GetNumPlayers())
   {
      pcount = -1;
      call stop_cam;
      Return;
   }
   if(GetPlayerThing(pcount) == player)
   {
      call activated;
      Return;
   }
   if(camera == -1)
   {
      camera = CreateThing(camera_tpl, player);
      camera_sig = GetThingSignature(camera);
      CaptureThing(camera);
   }
   else
   {
      DetachThing(camera);
   }
   victim = GetPlayerThing(pcount);
   TeleportThing(camera, victim);
   AttachThingToThingEx(camera, victim, 0x8);
   SetCameraFocus(1, camera);
   SetPulse(0.01);
   Return;

# ........................................................................................

pulse:
   if(IsThingCrouching(player))
   {
      call stop_cam;
      Return;
   }
   if(!(VectorDist(GetThingPos(player), player_loc) == 0))
   {
      call stop_cam;
      Return;
   }
   if(!(VectorDist(GetThingLVec(player), player_dir) == 0))
      SetThingLook(player, player_dir);
   SetCurrentCamera(1);
   Return;

# ........................................................................................

removed:
   if(GetSenderRef() != camera) Return;
   SetCameraFocus(1, player);
   Return;

# ........................................................................................

stop_cam:
   SetPulse(0);
   SetActorFlags(player, 0x1);
   ClearActorFlags(player, 0x840000);
   SetCameraFocus(1, player);
   if(GetThingSignature(camera) == camera_sig) DestroyThing(camera);
   camera = -1;
   CycleCamera();
   CycleCamera();
   Return;

end

#  ========================================================================================

#  ==================================================

# "Ode to Suzanne"
#
# Dynamic lighting controller
#
# 12/2002 - 07/2004 gbk
Symbols
	Message	Startup
	Message	Newplayer
	Message	Pulse
	Thing	Ghost0 #Position for each light.
	Thing	Ghost1
	Thing	Ghost2
	Thing	Ghost3
	Thing	Ghost4
	Thing	Ghost5
	Thing	Ghost6
	Thing	Ghost7
	Thing	Ghost8
	Thing	Ghost9
	Int	Used	#number of used lights. (ID of last used)
	Template	L	#Actual light template, eg. "Light1.0"
	Thing	LL0=-1		Local
	Thing	LL1=-1		Local
	Thing	LL2=-1		Local
	Thing	LL3=-1		Local
	Thing	LL4=-1		Local
	Thing	LL5=-1		Local
	Thing	LL6=-1		Local
	Thing	LL7=-1		Local
	Thing	LL8=-1		Local
	Thing	LL9=-1		Local
	Thing	Player		Local
	Sector	Player_sec	Local
	Flex	Rate=0.1	#Rate of replacement.
	Int	I=0		Local
End
Code
	Startup:
		Player = jkGetLocalPlayer();
		SetPulse(Rate);
	Stop;
	Newplayer:
		Player = Getsenderref();
		Setpulse(Rate);
	Stop;
	Pulse:
		Player_sec = Getthingsector(Player);
		For(I=0;I<=Used;I=I+1)
		{
			If(LL0 != -1)
				Destroything(LL0);
			LL0 = Createthingatpos(L, Player_sec, Getthingpos(Ghost0), '0 0 0');
			If(LL0 == -1)
				Print("Light creation failure!");
		}
	Stop;
End