#  MotS COG
# Using the code of alerted.COG by David McHale in 'Escape from Sigma 51A'
# 
# This COG should let the player wander past selected enemies unmolested, unless
# the player has selected one of several forbidden weapons.  It will also change the actors to enemies when a certain thing is touched, e.g. a door to a forbidden area.
#
# This COG is not supported by Lucasarts
#

symbols

message         startup
message 	entered
message         damaged

sector	        EnterSector

thing           enemy1
thing           enemy2
thing           enemy3
thing           enemy4
thing           enemy5
thing           enemy6
thing           enemy7
thing           enemy8

thing           lockeddoor	linkid=1

int          attacked=0
int		hl1
int		hl2
int		hl3
int		hl4
int		hl5
int		hl6
int		hl7
int		hl8

int		start=0

end

code

startup:

h11 = GetThingHealth(enemy1);  // Don't know meaning of this
h12 = GetThingHealth(enemy2);
h13 = GetThingHealth(enemy3);
h14 = GetThingHealth(enemy4);
h15 = GetThingHealth(enemy5);
h16 = GetThingHealth(enemy6);
h17 = GetThingHealth(enemy7);
h18 = GetThingHealth(enemy8);

	AISetMode(enemy1, 0x2000);
	AISetMode(enemy2, 0x2000);
	AISetMode(enemy3, 0x2000);
	AISetMode(enemy4, 0x2000);
	AISetMode(enemy5, 0x2000);
	AISetMode(enemy6, 0x2000);
	AISetMode(enemy7, 0x2000);
	AISetMode(enemy8, 0x2000);

player = GetLocalPlayerThing();

return;

//  This code is supposed to check if the player has activated a weapon other than fists when they enter a sector
entered:

	if (GetCurWeapon(player) !=1)

		{

AIClearMode(enemy1, 0x2000);
AIClearMode(enemy2, 0x2000);
AIClearMode(enemy3, 0x2000);
AIClearMode(enemy4, 0x2000);
AIClearMode(enemy5, 0x2000);
AIClearMode(enemy6, 0x2000);
AIClearMode(enemy7, 0x2000);
AIClearMode(enemy8, 0x2000);

		}

 if (GetSenderId() == 1)
      
		{

AIClearMode(enemy1, 0x2000);
AIClearMode(enemy2, 0x2000);
AIClearMode(enemy3, 0x2000);
AIClearMode(enemy4, 0x2000);
AIClearMode(enemy5, 0x2000);
AIClearMode(enemy6, 0x2000);
AIClearMode(enemy7, 0x2000);
AIClearMode(enemy8, 0x2000);

		}

Return;

end

# 10/2002 GBK
Symbols
Message Startup
Message Entered
Thing Player			Local
Sector Entersector
Thing Enemy0
Thing Enemy1
Thing Enemy2
Thing Enemy3
Thing Enemy4
Thing Enemy5
Thing Enemy6
Thing Enemy7
Thing Lockeddoor
AI Friendly
AI Mean
Int I=0			Local
End
Code
Startup:
Sleep(0.5);
For(I=0;I<8;I=I+1) AIsetclass(Enemy0, Friendly);
Player = JKgetlocalplayer();
Stop;
Entered:
If(Getcurweapon(Player) != 1) 
For(I=0;I<8;I=I+1) AIsetclass(Enemy0, Mean);
If(Getsenderref() == Lockeddoor) 
For(I=0;I<8;I=I+1) AIsetclass(Enemy0, Mean);
Stop;
End

# CivFlee.cog
#  This cog gives civilians an aversion to armed gunmen roaming amongst them.
# [Grismath]
#======================================================================================#
symbols
message		startup
message		pulse
message		timer
thing		player		local
thing		civ0
thing		civ1
thing		civ2
thing		civ3
thing		civ4
thing		civ5
thing		civ6
thing		civ7
ai		regular
ai		flee
flex		fTime		// Length of fleeing period
int		X=0		local
int		Y=0		local
end
#======================================================================================#
code
#--------------------------------------------------------
startup:
Sleep(0.5);
for(X=0;X<8;X=X+1) AISetClass(civ0[X], regular);
player=GetLocalPlayerThing();
SetPulse(1);
return;
#--------------------------------------------------------
pulse:
for(X=0;X<8;X=X+1) {
 if(HasLOS(civ0[X], player)) {
  if(GetCurWeapon(player) != 1) {
   AISetClass(civ0[X], flee);
   SetTimerEx(fTime, 1337, X, 0);
}}}
return;
#--------------------------------------------------------
timer:
 if(GetSenderID()==1337) {
  Y=GetParam(1);
  AISetClass(civ0[Y], regular);
 }
return;
#--------------------------------------------------------
end