;SPIES********************************************************************
:Spies100
if
	human = 1
	spymessage = 0
	spytype = 0
	turn > spytime
	energy > 10000
	enemy_count > 0
then
	incoming local_comms respond spy_wanted within 1000 "general_assassin01"
	set spymessage 1
end

:Spies100AI
if
	human = 0
	spymessage = 0
	spytype = 0
	turn > spytime
	energy > 10000
	enemy_count > 0
then
	set spy_wanted (rnd%3)
	set spymessage 1
end

:Spies101
if
	spy_wanted = YES
	spytype = 0
then
	place_peep spy assasin enemies
	addenergy (0-(3000*enemy_count))
	set spy_wanted 3
	set spytype (rnd%2)
	set spytime ((turn + 10000) + (rnd%10000))
	set spymessage 0
end


:Spies102
if
	human = 1
	spymessage = 0
	spytype = 1
	turn > spytime
	energy > 10000
	enemy_count > 0
then
	incoming local_comms respond spy_wanted within 1000 "general_bomber01"
	set spymessage 1
end

:Spies102AI
if
	human = 0
	spymessage = 0
	spytype = 1
	turn > spytime
	energy > 10000
	enemy_count > 0
then
	set spy_wanted (rnd%3)
	set spymessage 1
end

:Spies103
if
	spy_wanted = YES
	spytype = 1
then
	place_peep spy saboteur enemies
	addenergy (0-(3000*enemy_count))
	set spy_wanted 3
	set spytype (rnd%2)
	set spytime ((turn + 10000) + (rnd%10000))
	set spymessage 0
end

:spies104
if
	spy_wanted < 2
then
	set spy_wanted 3
	set spytime ((turn + 10000) + (rnd%10000))
	set spytype (rnd%2)
	set spymessage 0
end

:spies105
if
	spymessage = 0
	turn > spytime
	enemy_count < 1
then
	set spytime ((turn + 1000) + (rnd%1000))
end

;PEEPSPIES
:AlienSpies
if
	turn > 20000
	turn > alienspy
then
	place_peep ((rnd%10)+ 5) skill 1 saboteur
	set alienspy ((turn + 10000) + (rnd%10000))
end

;PEEPASSASSINS
:AlienKiller
if
	turn > 20000
	turn > alienkiller
then
	place_peep ((rnd%4)+ 5) assasin
	set alienkiller ((turn + 10000) + (rnd%10000))
end