//Created by Dahak on SAT DEC-29-2007
//Revised with the help Lazarus, Nioca, and Stareye. Thanks for the help!
begintownscript;

variables;
int i, new_npc1 = -1,new_npc2 = -1;

body;
beginstate INIT_STATE;

// Remove local versions of NPCs
erase_char(6);
erase_char(7);
//all the way up to char x

break;

beginstate START_STATE;

//Split NPC from Party when combat begins
if ( is_combat() && char_ok(4) ) {

new_npc1 = -1;
i = 6;
while (i <= 7) {
if (creature_type(4) == creature_type(i))
new_npc1 = i;
i = i + 1;
}

if (new_npc1 == -1) {
print_str_color("ERROR: No matching NPC to slot 4 found.",1);
}
else {

spawn_creature(new_npc1);

set_level(new_npc1, get_level(4) );

i = 0;
while (i <= 31) {
alter_stat(new_npc1, i, (get_stat(4,i) - get_stat(new_npc1,i)) );
i = i + 1;
}

i = 0;
while (i <= 30) {
set_char_status(new_npc1, i, get_char_status(new_npc1,i), 1, 0);
i = i + 1;
}

change_char_health(new_npc1, -1000);
change_char_health(new_npc1, get_health(4) );

change_char_energy(new_npc1, -1000);
change_char_energy(new_npc1, get_energy(4) );

relocate_character(new_npc1, char_loc_x(4), char_loc_y(4));
erase_char(4);
}
}
if ( is_combat() && char_ok(5)) {

new_npc2 = -1;
i = 6;
while (i <= 7) {
if (creature_type(5) == creature_type(i))
new_npc2 = i;
i = i + 1;
}

if (new_npc2 == -1) {
print_str_color("ERROR: No matching NPC to slot 5 found.",1);
}
else {

spawn_creature(new_npc2);

set_level(new_npc2, get_level(5) );

i = 0;
while (i <= 31) {
alter_stat(new_npc2, i, (get_stat(5,i) - get_stat(new_npc2,i)) );
i = i + 1;
}
i = 0;
while (i <= 30) {
set_char_status(new_npc2, i, get_char_status(5,i), 1, 0);
i = i + 1;
}

change_char_health(new_npc2, -1000);
change_char_health(new_npc2, get_health(5) );

change_char_energy(new_npc2, -1000);
change_char_energy(new_npc2, get_energy(5) );

relocate_character(new_npc2, char_loc_x(5), char_loc_y(5));
erase_char(5);

}
}

// Rejoin NPC with Party when combat ends
if ( (is_combat() == FALSE) && char_ok(new_npc1) )
add_char_to_party(new_npc1);

if ( (is_combat() == FALSE) && char_ok(new_npc2) )
add_char_to_party(new_npc2);

break;


beginstate EXIT_STATE;
if ( char_ok(new_npc1) )
add_char_to_party(new_npc1);
if ( char_ok(new_npc2) )
add_char_to_party(new_npc2);
break;