#!/bin/bash
#

esc="`echo -e "\033"`"

make_scenes()
{
        func="$1"
        shift
        other="$*"

        scene()
        {
                $func $1 $2 $3 $other
        }

        scene  3 A coop_laugh01                         # Hahahaha.
        scene  4 A botcoop_intro05                      # Good.
        scene  5 A gladosbattle_xfer07                  # No!
        scene  6 A gladosbattle_xfer10                  # (Extatic) Yes!
        scene  7 A mp_credits17                         # Cryptic.
        scene  8 A mp_credits32                         # Cheater.
        scene  9 A testchambermisc41                    # Surprise.
        scene 10 A sp_incinerator_01_03                 # There it is.
        scene 11 A sp_incinerator_01_04                 # Hold on.
        scene 12 A sp_incinerator_01_05                 # There. (Done)
        scene 13 A sp_catapult_fling_sphere_peek_failureone03 # There. Try it now.
        scene 14 A sp_catapult_fling_sphere_peek_failuretwo03 # Try it now.
        scene 15 A sp_laser_over_goo_entry01            # One moment!
        scene 16 A botcoop_artifactone05                # The end.
        scene 17 A botcoop_artifactone06                # The end?
        scene 18 A gladosbattle_xfer14                  # Not so fast.
        scene 19 A mp_credits13                         # Incoherent.
        scene 20 A sp_sphere_2nd_encounter_malfucntion02 # Miss you.
        scene 21 A mp_death26                           # Was that necessary?
        scene 22 A mp_coop_wall_5end01                  # Excellent.
        scene 23 A mp_coop_doors05a                     # Excellent. (Slightly lower pitch.)
        scene 24 A mp_coop_doors01a                     # Excellent work.
        scene 25 A mp_coop_doors04                      # Excellent work. (Slightly lower pitch.)
        scene 26 A mp_coop_doors04a                     # You're doing wonderfully.
        scene 27 A mp_coop_tbeam_catch_grind_1taunt02   # You don't need to do that.
        scene 28 A mp_coop_paint_longjump_intro08       # You did it!


        scene  3 B anti_taunt01                         # Stop it!
        scene  4 B sp_sabotage_glados_confused04        # (Agitated) What are you doing!?
        scene  5 B mp_coop_catapult_wall_introdeath01   # Your failure brings back such wonderful memories.
        scene  6 B mp_death06                           # If at first you don't succeed, fail five more times.
        scene  7 B mp_death08                           # If I made these tests any easier, they wouldn't be tests.
        scene  8 B taunt_rockpaperscissors01            # I defy you to tell me there's a purpose to what you are doing.
        scene  9 B mp_hubreturn04                       # If at first you don't succeed, quit and try another course.
        scene 10 B mp_credits38                         # Ignores test at hand... Mwawawa. Won't for long.
        scene 11 B mp_credits43                         # Ignores directions.
        scene 12 B mp_coop_catapult_wall_intro04        # This isn't science.
        scene 13 B coop_privatetalk_both01              # Test chamber completed. (Random numbers)
        scene 14 B coop_privatetalk_both04              # Test chamber completed. (Random fruits)
        scene 15 B sp_unassisted_angle_fling_entry01    # This next test*bang*... is...*bang* Dangerous-I'll-be-right-back.
        scene 16 B testchambermisc12                    # Waddle over to the elevator and we'll continue testing.
        scene 17 B testchambermisc35                    # I made it all up.
        scene 18 B sp_a2_future_starter01               # If you think trapping yourself is going to make me stop testing, you're sorely mistaken. Here's another cube.
        scene 19 B sp_a2_pit_flings_future_starter01    # Uh-oh. You're stranded. Let's see if the cube will help you escape. Actually, so that we're not here all the day, I'll just cut to the chase. It won't. Any feelings you think it has for you are simply byproducts of your sad, empty life.
        scene 20 B sp_a2_pit_flings_future_starter02    # Anyway. Here's a new cube, for you to project your deranged loneliness onto.
        scene 21 B announcer/testchamber11              # (Announcer) You have trapped yourself. Congratulations. The exit door is now open.
        scene 22 B announcer/wakeup_powerup02           # (Announcer) Powerup complete.
        scene 23 B taunt_small_wave_portalgun02         # Not. Paying. Attention.
        scene 24 B taunt_trickfire_handstand01          # Now you are thinking with stupidity.
        scene 25 B taunt_trickfire_handstand01          # Now you are just not thinking.
        scene 26 B sp_column_blocker_entry01            # It's healthy for you to have other friends. Look for qualities in people that I obviously lack.
        scene 27 B mp_credits16                         # Chronically late.
        scene 28 B mp_coop_wall_5end02                  # See? Nothing bad happened.
        scene 29 B mp_coop_startend02                   # Now let's continue testing.
        scene 30 B mp_coop_paint_walljumps04            # (Fake happy) Congratulations on passing that test.

        scene  3 C mp_credits61                         # Startles easily. *Boo*
        scene  4 C coop_test_chamber_both01             # (Emphasizes how the test is deathly if teamwork does not work.)
        scene  5 C sp_shoot_through_wall_entry01        # (Softly) You know, I'm not supposed to do this, but you can shoot some..thing, through the blue bridges.
        scene  6 C sp_shoot_through_wall_completion01   # (Softly) Did my hint help? It did, didn't it? You know, if any of our supervisors had been immune to neurotoxin, they'd be furious with us right now.
        scene  7 C sp_turret_intro_entry01              # (Softly) (underhanded hint about turrets firing real bullets)
        scene  8 C botcoop_artifactone_hub08            # Well, let's do some testing to see what happens.
        scene  9 C coop_test_chamber_oneplayer37        # You have gift for these tests. That's not flattery. It is a fact.
        scene 10 C coop_test_chamber_both08             # (You come off as a team, thanks to the one who does all work.)
        scene 11 C mp_taunts03                          # You're doing a great job of disappointing me.
        scene 12 C mp_subterfuge39                      # While teamwork is needed to complete these tests, I'm not sure I trust the two of you together.
        scene 13 C mp_subterfuge36                      # I have noticed that you two have become extremely close. I'm not sure I like that.
        scene 14 C mp_subterfuge34                      # How is this even science... Without the consequence of death?
        scene 15 C mp_subterfuge33                      # How is this even science - without the possibility of death?
        scene 16 C mp_subterfuge_misc11                 # Watching you try to sabotage one another... I'm amazed you're still on friendly terms.
        scene 17 C mp_humanresources01                  # Did you know we originally used these cameras to capture moments of intense pain and agony in test subjects?
        scene 18 C mp_humanresources03                  # If the subject survived the test, we let them purchase the pictures for $5. If the subject died, we gave the photo to their next of kin, free of charge.
        scene 19 C mp_coop_wall_intro03                 # You did very well.
        scene 20 C mp_coop_teambtsstart02               # This next test is so outside the box, I can't... I mean won't even tell what you are looking for.
        scene 21 C mp_coop_teambtsstart03               # You will know it when you find it.
        scene 22 C mp_coop_tbeam_end14                  # You two aren't lost, are you?
        scene 23 C mp_coop_paint_longjump_intro74       # You're making this harder than it needs to be.
        scene 24 C mp_coop_fling_1end03                 # Well done. Interesting note: I only created this test to watch test subjects fail. And you didn't. You must be very very proud. I'm building the world's smallest trophy for you.
        scene 25 C mp_coop_infinifling_trainstart01     # Electrocuted... Shocked... Drowned... Crushed... Burned in goo...
        scene 26 C mp_coop_infinifling_trainstart02     # Oh. Sorry. I was just thinking of all the ways humans can die.
        scene 27 C mp_death21                           # And here I thought this room was dangerously unlethal.
}


id=50
make_entities()
{
	if echo $3 | grep -q '/'; then
		fn="scenes/npc/$3".vcd
	else
		fn="scenes/npc/glados/$3".vcd
	fi

	choreo_name=choreo_"$1"_"$2"_"`echo $3|sed 's@/@__@g'`"
	id=$[id+1]

	cat <<EOF
entity
{
	"id" "$id"
	"classname" "logic_choreographed_scene"
	"busyactor" "1"
	"onplayerdeath" "0"
	"SceneFile" "$fn"
	"targetname" "$choreo_name"
	connections
	{
		"OnStart" "!self${esc}Resume${esc}${esc}0.2${esc}-1"
		"OnStart" "!self${esc}Pause${esc}${esc}0${esc}-1"
		"OnStart" "@ding_on${esc}Start${esc}${esc}0${esc}-1"
		"OnCompletion" "@ding_off${esc}Start${esc}${esc}0${esc}-1"
	}
	"origin" "-32 64 -64"
	editor
	{
		"color" "0 0 255"
		"visgroupshown" "1"
		"visgroupautoshown" "1"
		"logicalpos" "[0 0]"
	}
}
EOF
}

make_event_responder()
{
	id=$[id+1]

	cat <<EOF
entity
{
	"id" "$id"
	"classname" "logic_case"
EOF

	make_cases()
	{
		if [ "$2" = "$4" ]; then
			n=$1
			printf "\t\"Case%02d\" \"%d\"\n" $[n-2] $n
		fi
	}
	make_scenes make_cases $1

	echo -e "\t\"targetname\" \"$2\""
	echo -e "\tconnections"
	echo -e "\t{"

	make_cases()
	{
		if [ "$2" = "$4" ]; then
			choreo_name=choreo_"$1"_"$2"_"`echo $3|sed 's@/@__@g'`"
			n=$1
			printf "\t\t\"OnCase%02d\" \"%s%sStart%s%s0%s-1\"\n" $[n-2] $choreo_name "$esc" "$esc" "$esc" "$esc"
		fi
	}
	make_scenes make_cases $1
	cat <<EOF
	}
	"origin" "64 -64 -64"
	editor
	{
		"color" "220 30 220"
		"visgroupshown" "1"
		"visgroupautoshown" "1"
		"logicalpos" "[0 1500]"
	}
}
EOF
}

make_scenes make_entities
make_event_responder A "@fgemod_choreo"
make_event_responder B "@fgemod_choreo_b"
make_event_responder C "@fgemod_choreo_c"