;SOLARFLARE*********************************************************************
:flarecreate
if
	0
then
	set flarecreate 1 
	disable
end

:flarecreateAI
if
	IAMALOSER < 1
	human = 0
	flarecreate = 1
then
	set flarecounter (turn + 2000)
	set flare 2
	set flarecreate 0
	disable
end

:flarecreateHuman
if
	human = 1
	flarecreate = 1
then
	set flarecounter (turn + 2000)
	incoming stellar_event respond flare within 1900 skill ((rnd%10000) + 100) "events_flare01"
;	status_message "DEBUG ** Solar flare has been created ** DEBUG"
	set flarecreate 0
	disable
end

:flareacceptAI
if
	human = 0
	flare = 2
then
	addenergy 5
end

:flareacceptHuman
if
	human = 1
	flare = 2
then
	set flareaccept 1
	addenergy 5
end

:flareignore
if
	flare < 2
then
	set flare 3
end

:flareover
if
	flarecounter > 0
	flarecounter < turn
then
	set flare 3
end

:flareuseHuman
if
	human = 1
	flareaccept = 1
	flarecounter < turn
then
	status_message "events_flare02"
	set flareaccept 0 
end