# DLFP, Dynamic Light Flicker Prevention
#
# Version 0.1
#
# 11/2002 GBK
Flags=0x240
Symbols
Message Created
Message Removed
Message Timer

Sector Player_sec	Local
Thing Light		Local
Vector Pos		Local
Vector PYR		Local
Template Type		Local

Flex Time=0.1		Local
End
Code
Created:
Light = Getsenderref();
Pos = Getthingpos(Light);
PYR = Getthinglvec(Light);
Type = Getthingtemplate(Light);
Settimer(Time);
Stop;

Timer:
Destroything(Light);
Stop;

Removed:
Player_sec = Getthingsector(JKgetlocalplayer());
Createthingatpos(Type, Player_sec, Pos, PYR);
Stop;
End

# "Ode to Suzanne"
#
# Dynamic lighting controller
#
# 12/2002 GBK
Symbols
Message Newplayer
Message Pulse
Thing Ghost0
Thing Ghost1
Thing Ghost2
Thing Ghost3
Thing Ghost4
Thing Ghost5
Thing Ghost6
Thing Ghost7
Thing Ghost8
Thing Ghost9
Int Used
Template L
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
Int I=0		Local
End
Code
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;

# Jedi Knight Cog Script
#
# TJC_rotwalk.cog
#
# Generic spinning walk cog. the walkway's first frame should have a yaw of 360 to make it spin in continus circles.
# lagg can cause the walkway to pause breifly at the end of each turn.
#
# JK version
#
# This Cog is Not supported by LucasArts Entertainment Co

symbols
thing        walkway                                                          
sound        whoosh                                                           
int          dummy                              local                         
flex         time                                desc=speed                             
message      startup                                                          
message      arrived                                                          
end                                                                           

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

code
arrived:
	StopSound(dummy, 0);
startup:
	dummy = PlaySoundThing(whoosh, walkway,5,5,10,0x81);
	 RotatePivot(walkway, 0, Time);
	return;

# ........................................................................................
end