#Events for a press extinction expt with interconnected
#4-level codependent environment: env.9cd3 or env.9cd3_lossy

#Drops levels of both inflowing resources
#Press is ~5,000 updates, try to keep more of pre-press phylogenetic structure 

#EXTENDED RUN FOR AM NAT PAPER SUPPLEMENTAL TO SEE IF EQU RE_EVOLVES GIVEN LONGER TIME

# Inject 1 copy of START_CREATURE
u 0 inject START_CREATURE

u 0:1:99998 inject_resource resA 200
u 0:1:99998 inject_resource resB 200

#info while allowing resources to equilibrate
u 0:25:end     print_average_data
u 0:25:end     print_dominant_data
u 0:25:end     print_stats_data
u 0:25:end     print_count_data
u 0:25:end     print_tasks_data
u 0:25:end     print_tasks_exe_data
u 0:25:end     print_time_data
u 0:25:end     print_resource_data
u 0:25:end     print_number_phenotypes

# Setup the exit time and full population data collection.
#START COLLECTION LATER 
u 200000:2000 detail_pop
u 200000:10000 dump_historic_pop

#u 2000:2000 dump_historic_pop

#info on state of population right before extinction
#u 99999 detail_pop
#u 99999 dump_historic_pop 
u 99999 print_average_data
u 99999 print_dominant_data
u 99999 print_stats_data
u 99999 print_count_data
u 99999 print_tasks_data
u 99999 print_tasks_exe_data
u 99999 print_time_data
u 99999 print_resource_data
u 99999 print_number_phenotypes

#reduce resource inflow levels for all resources
u 99999:1:end inject_resource resA 2
u 99999:1:end inject_resource resB 2

#info on state of population right before restoration
u 104999 detail_pop
u 104999 dump_historic_pop
u 104999 print_average_data
u 104999 print_dominant_data
u 104999 print_stats_data
u 104999 print_count_data
u 104999 print_tasks_data
u 104999 print_tasks_exe_data
u 104999 print_time_data
u 104999 print_resource_data
u 104999 print_number_phenotypes

#restore resource inflow levels to starting values
u 104999:1:end inject_resource resA 200
u 104999:1:end inject_resource resB 200

#enter ecological phase after 300,000 updates of post-press evolution
u 405000 detail_pop
u 405000 dump_historic_pop
u 405000 zero_muts

#exit after 100,000 updates of ecology
u 510000 exit
#exit at 510000 to catch last detail and historic