//
//  spec_legacy.cpp
//  BoE
//
//  Created by Celtic Minstrel on 15-07-11.
//
//

#include "catch.hpp"
#include "oldstructs.hpp"
#include "special.hpp"
#include "restypes.hpp"

using namespace std;

ostream& operator<< (ostream& out, eSpecType spec);

TEST_CASE("When converting legacy special nodes (general)") {
	cSpecial newSpec;
	legacy::special_node_type oldSpec = {0,-1,-1,0,-1,-1,-1,-1,-1,-1,-1};
	// Fetching opcodes requires strings to be available
	// Here we fetch them from the rsrc dir, rather than the data dir
	ResMgr::pushPath<StringRsrc>("../rsrc/strings");
	
	oldSpec.jumpto = 12;
	SECTION("Null Special") {
		oldSpec.type = 0;
		newSpec.import_legacy(oldSpec);
		CHECK(newSpec.type == eSpecType::NONE);
		CHECK(newSpec.jumpto == 12);
	}
	SECTION("Set Flag") {
		oldSpec.type = 1;
		oldSpec.m1 = 2; oldSpec.m2 = 3;
		oldSpec.sd1 = 4; oldSpec.sd2 = 5;
		oldSpec.ex1a = 6;
		newSpec.import_legacy(oldSpec);
		CHECK(newSpec.type == eSpecType::SET_SDF);
		CHECK(newSpec.m1 == 2); CHECK(newSpec.m2 == 3);
		CHECK(newSpec.sd1 == 4); CHECK(newSpec.sd2 == 5);
		CHECK(newSpec.ex1a == 6);
		CHECK(newSpec.jumpto == 12);
	}
	SECTION("Increment Flag") {
		oldSpec.type = 2;
		oldSpec.m1 = 2; oldSpec.m2 = 3;
		oldSpec.sd1 = 4; oldSpec.sd2 = 5;
		oldSpec.ex1a = 6; oldSpec.ex1b = 7;
		newSpec.import_legacy(oldSpec);
		CHECK(newSpec.m1 == 2); CHECK(newSpec.m2 == 3);
		CHECK(newSpec.sd1 == 4); CHECK(newSpec.sd2 == 5);
		CHECK(newSpec.ex1a == 6); CHECK(newSpec.ex1b == 7);
		CHECK(newSpec.jumpto == 12);
	}
	SECTION("Display Message") {
		oldSpec.type = 3;
		oldSpec.m1 = 2; oldSpec.m2 = 3;
		newSpec.import_legacy(oldSpec);
		CHECK(newSpec.m1 == 2); CHECK(newSpec.m2 == 3);
		CHECK(newSpec.jumpto == 12);
	}
	SECTION("Secret Passage") {
		oldSpec.type = 4;
		newSpec.import_legacy(oldSpec);
		CHECK(newSpec.type == eSpecType::CANT_ENTER);
		CHECK(newSpec.ex1a == 0);
		CHECK(newSpec.ex2a == 1);
		CHECK(newSpec.jumpto == 12);
	}
	SECTION("Display Small Message") {
		oldSpec.type = 5;
		oldSpec.m1 = 2; oldSpec.m2 = 3;
		newSpec.import_legacy(oldSpec);
		CHECK(newSpec.m1 == 2); CHECK(newSpec.m2 == 3);
		CHECK(newSpec.jumpto == 12);
	}
	SECTION("Flip Flag") {
		oldSpec.type = 6;
		oldSpec.m1 = 2; oldSpec.m2 = 3;
		oldSpec.sd1 = 4; oldSpec.sd2 = 5;
		newSpec.import_legacy(oldSpec);
		CHECK(newSpec.type == eSpecType::FLIP_SDF);
		CHECK(newSpec.m1 == 2); CHECK(newSpec.m2 == 3);
		CHECK(newSpec.sd1 == 4); CHECK(newSpec.sd2 == 5);
		CHECK(newSpec.jumpto == 12);
	}
	SECTION("Out Block") {
		oldSpec.type = 7;
		oldSpec.m1 = 4; oldSpec.m2 = 5;
		oldSpec.ex1a = 1;
		newSpec.import_legacy(oldSpec);
		CHECK(newSpec.type == eSpecType::IF_CONTEXT);
		CHECK(newSpec.m1 == 4); CHECK(newSpec.m2 == 5);
		CHECK(newSpec.ex1a == int(eSpecCtx::OUT_MOVE));
		CHECK(newSpec.ex1b == 1);
		CHECK(newSpec.jumpto == 12);
	}
	SECTION("Town Block") {
		oldSpec.type = 8;
		oldSpec.m1 = 4; oldSpec.m2 = 5;
		oldSpec.ex1a = 1;
		newSpec.import_legacy(oldSpec);
		CHECK(newSpec.type == eSpecType::IF_CONTEXT);
		CHECK(newSpec.m1 == 4); CHECK(newSpec.m2 == 5);
		CHECK(newSpec.ex1a == int(eSpecCtx::TOWN_MOVE));
		CHECK(newSpec.ex1b == 1);
		CHECK(newSpec.jumpto == 12);
	}
	SECTION("Combat Block") {
		oldSpec.type = 9;
		oldSpec.m1 = 4; oldSpec.m2 = 5;
		oldSpec.ex1a = 1;
		newSpec.import_legacy(oldSpec);
		CHECK(newSpec.type == eSpecType::IF_CONTEXT);
		CHECK(newSpec.m1 == 4); CHECK(newSpec.m2 == 5);
		CHECK(newSpec.ex1a == int(eSpecCtx::COMBAT_MOVE));
		CHECK(newSpec.ex1b == 1);
		CHECK(newSpec.jumpto == 12);
	}
	SECTION("Looking Block") {
		oldSpec.type = 10;
		oldSpec.m1 = 4; oldSpec.m2 = 5;
		newSpec.import_legacy(oldSpec);
		CHECK(newSpec.type == eSpecType::IF_LOOKING);
		CHECK(newSpec.m1 == 4); CHECK(newSpec.m2 == 5);
		CHECK(newSpec.jumpto == 12);
	}
	SECTION("Can't Enter") {
		oldSpec.type = 11;
		newSpec.import_legacy(oldSpec);
		CHECK(newSpec.type == eSpecType::CANT_ENTER);
		CHECK(newSpec.ex1a == 0);
		CHECK(newSpec.ex2a == 0);
		CHECK(newSpec.jumpto == 12);
	}
	SECTION("Change Time") {
		oldSpec.type = 12;
		oldSpec.ex1a = 4;
		newSpec.import_legacy(oldSpec);
		CHECK(newSpec.type == eSpecType::CHANGE_TIME);
		CHECK(newSpec.ex1a == 4);
		CHECK(newSpec.jumpto == 12);
	}
	SECTION("Start Scenario Timer") {
		oldSpec.type = 13;
		oldSpec.ex1a = 4; oldSpec.ex1b = 5;
		newSpec.import_legacy(oldSpec);
		CHECK(newSpec.type == eSpecType::SCEN_TIMER_START);
		CHECK(newSpec.ex1a == 4); CHECK(newSpec.ex1b == 5);
		CHECK(newSpec.jumpto == 12);
	}
	SECTION("Play Sound") {
		oldSpec.type = 14;
		oldSpec.ex1a = 10;
		newSpec.import_legacy(oldSpec);
		CHECK(newSpec.type == eSpecType::PLAY_SOUND);
		CHECK(newSpec.ex1a == 10);
		CHECK(newSpec.jumpto == 12);
	}
	SECTION("Change Horse Possession") {
		oldSpec.type = 15;
		oldSpec.m1 = 2; oldSpec.m2 = 3;
		oldSpec.ex1a = 4;
		oldSpec.ex2a = 5;
		newSpec.import_legacy(oldSpec);
		CHECK(newSpec.type == eSpecType::CHANGE_HORSE_OWNER);
		CHECK(newSpec.m1 == 2); CHECK(newSpec.m2 == 3);
		CHECK(newSpec.ex1a == 4);
		CHECK(newSpec.ex2a == 5);
		CHECK(newSpec.jumpto == 12);
	}
	SECTION("Change Boat Owner") {
		oldSpec.type = 16;
		oldSpec.m1 = 2; oldSpec.m2 = 3;
		oldSpec.ex1a = 4;
		oldSpec.ex2a = 5;
		newSpec.import_legacy(oldSpec);
		CHECK(newSpec.type == eSpecType::CHANGE_BOAT_OWNER);
		CHECK(newSpec.m1 == 2); CHECK(newSpec.m2 == 3);
		CHECK(newSpec.ex1a == 4);
		CHECK(newSpec.ex2a == 5);
		CHECK(newSpec.jumpto == 12);
	}
	SECTION("Set Town Visibility") {
		oldSpec.type = 17;
		oldSpec.m1 = 2; oldSpec.m2 = 3;
		oldSpec.ex1a = 4; oldSpec.ex1b = 1;
		newSpec.import_legacy(oldSpec);
		CHECK(newSpec.type == eSpecType::SET_TOWN_VISIBILITY);
		CHECK(newSpec.m1 == 2); CHECK(newSpec.m2 == 3);
		CHECK(newSpec.ex1a == 4); CHECK(newSpec.ex1b == 1);
		CHECK(newSpec.jumpto == 12);
	}
	SECTION("Major Event Occurred") {
		oldSpec.type = 18;
		oldSpec.m1 = 2; oldSpec.m2 = 3;
		oldSpec.ex1a = 5;
		newSpec.import_legacy(oldSpec);
		CHECK(newSpec.type == eSpecType::MAJOR_EVENT_OCCURRED);
		CHECK(newSpec.m1 == 2); CHECK(newSpec.m2 == 3);
		CHECK(newSpec.ex1a == 5);
		CHECK(newSpec.jumpto == 12);
	}
	SECTION("Forced Give") {
		oldSpec.type = 19;
		oldSpec.m1 = 2; oldSpec.m2 = 3;
		oldSpec.ex1a = 4;
		oldSpec.ex2b = 5;
		newSpec.import_legacy(oldSpec);
		CHECK(newSpec.type == eSpecType::FORCED_GIVE);
		CHECK(newSpec.m1 == 2); CHECK(newSpec.m2 == 3);
		CHECK(newSpec.ex1a == 4);
		CHECK(newSpec.ex2b == 5);
		CHECK(newSpec.jumpto == 12);
	}
	SECTION("Buy Items of Type") {
		oldSpec.type = 20;
		oldSpec.type = 19;
		oldSpec.m1 = 2; oldSpec.m2 = 3;
		oldSpec.ex1a = 4; oldSpec.ex1b = 5;
		oldSpec.ex2a = 6;
		newSpec.import_legacy(oldSpec);
		CHECK(newSpec.type == eSpecType::FORCED_GIVE);
		CHECK(newSpec.m1 == 2); CHECK(newSpec.m2 == 3);
		CHECK(newSpec.ex1a == 4); CHECK(newSpec.ex1b == 5);
		CHECK(newSpec.ex2a == 6);
		CHECK(newSpec.jumpto == 12);
	}
	SECTION("Call Scenario Special") {
		oldSpec.type = 21;
		newSpec.import_legacy(oldSpec);
		CHECK(newSpec.type == eSpecType::CALL_GLOBAL);
		CHECK(newSpec.jumpto == 12);
	}
	SECTION("Set Many Flags") {
		oldSpec.type = 22;
		oldSpec.sd1 = 4;
		oldSpec.ex1a = 5;
		newSpec.import_legacy(oldSpec);
		CHECK(newSpec.type == eSpecType::SET_SDF_ROW);
		CHECK(newSpec.sd1 == 4);
		CHECK(newSpec.ex1a == 5);
		CHECK(newSpec.jumpto == 12);
	}
	SECTION("Copy Flag") {
		oldSpec.type = 23;
		oldSpec.sd1 = 2; oldSpec.sd2 = 3;
		oldSpec.ex1a = 4; oldSpec.ex1b = 5;
		newSpec.import_legacy(oldSpec);
		CHECK(newSpec.type == eSpecType::COPY_SDF);
		CHECK(newSpec.sd1 == 2); CHECK(newSpec.sd2 == 3);
		CHECK(newSpec.ex1a == 4); CHECK(newSpec.ex1b == 5);
		CHECK(newSpec.jumpto == 12);
	}
	SECTION("Ritual of Sanctification") {
		oldSpec.type = 24;
		oldSpec.ex1b = 32;
		newSpec.import_legacy(oldSpec);
		CHECK(newSpec.type == eSpecType::IF_CONTEXT);
		CHECK(newSpec.ex1a == int(eSpecCtx::TARGET));
		CHECK(newSpec.ex1b == int(eSpell::RITUAL_SANCTIFY));
		CHECK(newSpec.ex1c == 12);
		CHECK(newSpec.jumpto == 32);
	}
	SECTION("Rest") {
		oldSpec.type = 25;
		oldSpec.ex1a = 2; oldSpec.ex1b = 3;
		newSpec.import_legacy(oldSpec);
		CHECK(newSpec.ex1a == 2); CHECK(newSpec.ex1b == 3);
		CHECK(newSpec.jumpto == 12);
	}
	SECTION("Wandering Will Fight") {
		oldSpec.type = 26;
		oldSpec.ex1a = 1;
		newSpec.import_legacy(oldSpec);
		CHECK(newSpec.type == eSpecType::CANT_ENTER);
		CHECK(newSpec.ex1a == 1);
		CHECK(newSpec.ex2a == 0);
		CHECK(newSpec.jumpto == 12);
	}
	SECTION("End Scenario") {
		oldSpec.type = 27;
		newSpec.import_legacy(oldSpec);
		CHECK(newSpec.type == eSpecType::END_SCENARIO);
		CHECK(newSpec.jumpto == 12);
	}
	// Clean up after ourselves
	ResMgr::popPath<StringRsrc>();
}

TEST_CASE("When converting legacy special nodes (one-shot)") {
	cSpecial newSpec;
	legacy::special_node_type oldSpec = {0,-1,-1,0,-1,-1,-1,-1,-1,-1,-1};
	// Fetching opcodes requires strings to be available
	// Here we fetch them from the rsrc dir, rather than the data dir
	ResMgr::pushPath<StringRsrc>("../rsrc/strings");
	
	oldSpec.sd1 = 8; oldSpec.sd2 = 7;
	oldSpec.m1 = 4; oldSpec.m2 = 5;
	oldSpec.jumpto = 12;
	SECTION("Give Item") {
		oldSpec.type = 50;
		oldSpec.ex1a = 9;
		oldSpec.ex1b = 2500;
		oldSpec.ex2a = 1500;
		oldSpec.ex2b = 10;
		newSpec.import_legacy(oldSpec);
		CHECK(newSpec.type == eSpecType::ONCE_GIVE_ITEM);
		CHECK(newSpec.sd1 == 8); CHECK(newSpec.sd2 == 7);
		CHECK(newSpec.m1 == 4); CHECK(newSpec.m2 == 5);
		CHECK(newSpec.ex1a == 9);
		CHECK(newSpec.ex1b == 2500);
		CHECK(newSpec.ex2a == 1500);
		CHECK(newSpec.ex2b == 10);
		CHECK(newSpec.jumpto == 12);
	}
	// Clean up after ourselves
	ResMgr::popPath<StringRsrc>();
}

TEST_CASE("When converting legacy special nodes (affect)") {
	cSpecial newSpec;
	legacy::special_node_type oldSpec = {0,-1,-1,0,-1,-1,-1,-1,-1,-1,-1};
	// Fetching opcodes requires strings to be available
	// Here we fetch them from the rsrc dir, rather than the data dir
	ResMgr::pushPath<StringRsrc>("../rsrc/strings");
	
	oldSpec.m1 = 4; oldSpec.m2 = 5;
	oldSpec.jumpto = 12;
	SECTION("Select a PC") {
		oldSpec.type = 80;
		oldSpec.ex1a = 1;
		oldSpec.ex1b = 10;
		newSpec.import_legacy(oldSpec);
		CHECK(newSpec.type == eSpecType::SELECT_TARGET);
		CHECK(newSpec.m1 == 4); CHECK(newSpec.m2 == 5);
		CHECK(newSpec.ex1a == 1);
		CHECK(newSpec.ex1b == 10);
		CHECK(newSpec.jumpto == 12);
	}
	// Clean up after ourselves
	ResMgr::popPath<StringRsrc>();
}

TEST_CASE("When converting legacy special nodes (if-then)") {
	cSpecial newSpec;
	legacy::special_node_type oldSpec = {0,-1,-1,0,-1,-1,-1,-1,-1,-1,-1};
	// Fetching opcodes requires strings to be available
	// Here we fetch them from the rsrc dir, rather than the data dir
	ResMgr::pushPath<StringRsrc>("../rsrc/strings");
	
	oldSpec.jumpto = 12;
	SECTION("Stuff Done Flag?") {
		oldSpec.type = 130;
		oldSpec.sd1 = 8; oldSpec.sd2 = 7;
		oldSpec.ex1a = 1;
		oldSpec.ex1b = 10;
		oldSpec.ex2a = 9;
		oldSpec.ex2b = 13;
		newSpec.import_legacy(oldSpec);
		CHECK(newSpec.type == eSpecType::IF_SDF);
		CHECK(newSpec.sd1 == 8); CHECK(newSpec.sd2 == 7);
		CHECK(newSpec.ex1a == 1);
		CHECK(newSpec.ex1b == 10);
		CHECK(newSpec.ex2a == 9);
		CHECK(newSpec.ex2b == 13);
		CHECK(newSpec.jumpto == 12);
	}
	// Clean up after ourselves
	ResMgr::popPath<StringRsrc>();
}

TEST_CASE("When converting legacy special nodes (town)") {
	cSpecial newSpec;
	legacy::special_node_type oldSpec = {0,-1,-1,0,-1,-1,-1,-1,-1,-1,-1};
	// Fetching opcodes requires strings to be available
	// Here we fetch them from the rsrc dir, rather than the data dir
	ResMgr::pushPath<StringRsrc>("../rsrc/strings");
	
	oldSpec.m1 = 4; oldSpec.m2 = 5;
	SECTION("Town Hostile") {
		oldSpec.type = 170;
		oldSpec.jumpto = 12;
		newSpec.import_legacy(oldSpec);
		CHECK(newSpec.type == eSpecType::MAKE_TOWN_HOSTILE);
		CHECK(newSpec.m1 == 4); CHECK(newSpec.m2 == 5);
		CHECK(newSpec.jumpto == 12);
	}
	// Clean up after ourselves
	ResMgr::popPath<StringRsrc>();
}

TEST_CASE("When converting legacy special nodes (rect)") {
	cSpecial newSpec;
	legacy::special_node_type oldSpec = {0,-1,-1,0,-1,-1,-1,-1,-1,-1,-1};
	// Fetching opcodes requires strings to be available
	// Here we fetch them from the rsrc dir, rather than the data dir
	ResMgr::pushPath<StringRsrc>("../rsrc/strings");
	
	oldSpec.ex1a = 2;
	oldSpec.ex1b = 10;
	oldSpec.ex2a = 4;
	oldSpec.ex2b = 20;
	oldSpec.jumpto = 12;
	SECTION("Place Fire Wall") {
		oldSpec.type = 200;
		oldSpec.m1 = 4; oldSpec.m2 = 5;
		oldSpec.pic = 1;
		oldSpec.sd1 = 75;
		newSpec.import_legacy(oldSpec);
		CHECK(newSpec.type == eSpecType::RECT_PLACE_FIELD);
		CHECK(newSpec.m1 == 4); CHECK(newSpec.m2 == 5);
		CHECK(newSpec.pic == 1);
		CHECK(newSpec.sd1 == 75);
		CHECK(newSpec.sd2 == WALL_FIRE);
		CHECK(newSpec.ex1a == 2);
		CHECK(newSpec.ex1b == 10);
		CHECK(newSpec.ex2a == 4);
		CHECK(newSpec.ex2b == 20);
		CHECK(newSpec.jumpto == 12);
	}
	// Clean up after ourselves
	ResMgr::popPath<StringRsrc>();
}

TEST_CASE("When converting legacy special nodes (outdoors)") {
	cSpecial newSpec;
	legacy::special_node_type oldSpec = {0,-1,-1,0,-1,-1,-1,-1,-1,-1,-1};
	// Fetching opcodes requires strings to be available
	// Here we fetch them from the rsrc dir, rather than the data dir
	ResMgr::pushPath<StringRsrc>("../rsrc/strings");
	
	oldSpec.jumpto = 12;
	SECTION("Make Outdoor Wandering") {
		oldSpec.type = 225;
		newSpec.import_legacy(oldSpec);
		CHECK(newSpec.type == eSpecType::OUT_MAKE_WANDER);
		CHECK(newSpec.jumpto == 12);
	}
	// Clean up after ourselves
	ResMgr::popPath<StringRsrc>();
}

ostream& operator<< (ostream& out, eSpecType spec) {
	out << (*spec).opcode();
	return out;
}