// TOWN SPECIAL ENCOUNTERS
//    Town 41: Fort Duvno

beginzonescript;

variables;

short im_hostile = 0;
short max_crime = 200;
short last_abil;
short counter = 0;
short set_ter = 0;

body;

beginstate INIT_STATE;
	last_abil = get_current_tick();

//	set_name(,);
//	add_range_to_group(,,groupn);

	set_personality_name(820,"J.R.");
	set_personality_name(821,"Amalia");
	set_personality_name(822,"Walner");
	set_personality_name(823,"Commander Johnson");
	set_personality_name(824,"Eledi");
	set_personality_name(825,"Eucher");
	set_personality_name(826,"Faye");
	set_personality_name(827,"Rorik");
	set_personality_name(828,"Scott");
	set_personality_name(829,"Alice");
	set_personality_name(830,"Gourdon");
	set_personality_name(831,"Dorkin");

	set_name(4123,"Refugee");
	set_name(4129,"Refugee");
	set_name(4132,"Refugee");
	set_name(4131,"Refugee");
	set_name(4130,"Refugee");
	set_name(4126,"Refugee");
	set_name(4128,"Refugee");
	
	set_crime_tolerance(max_crime);

		if (revive_party()) {
			print_str_color("Entering a friendly town heals your wounds",2);
			print_str_color("  and restores your spell energy.",2);
			}
	break;

beginstate EXIT_STATE;
break;

beginstate START_STATE;
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4101,"Another order?");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4101,"Sigh. Another hundred arrows.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4101,"Welcome, soldier.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4108,"No moral judgments.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4108,"You're not better than me.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4108,"I've heard of you.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4108,"I have what you need.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4102,"I am a sage.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4102,"I can make potions.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4102,"Have any herbs?");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4102,"Even in war, we must learn.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4103,"We must slay the enemy.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4103,"I need more prisoners.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4103,"Always more to kill.");
	if ((get_ran(1,0,100) < 15) && (species_in_party(2)))
		give_char_text_bubble(4103,"Stinking nephil.");
	if ((get_ran(1,0,100) < 15) && (species_in_party(3)))
		give_char_text_bubble(4103,"Savage slith.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4104,"(Twirl.)");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4104,"(Leap.)");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4104,"(Bow.)");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4121,"(Chop. Chop.)");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4121,"Zzzz.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4121,"Are there more wounded?");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4106,"We're closed.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4106,"Go away.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4106,"(Sweep. Sweep.)");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4105,"We have food.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4105,"We have wine.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4105,"Wine!");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4107,"Shhh!");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4107,"Don't scare the fish.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4107,"Sit and rest.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4109,"Any orders?");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4109,"We have a room.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4109,"(Sweep. Sweep.)");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4110,"Stay alert.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4110,"Learn from Cotra's fate.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4110,"They could come at any time.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4111,"Anything helps.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4111,"Spare a few coins?");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4111,"Please help a poor refugee.");

break;

beginstate 10;
break;

beginstate 11;
break;

beginstate 12;
break;

beginstate 13;
break;

beginstate 14;
break;

//	print_str("");
//	set_terrain_string_range("",1);
//	set_terrain_string_range("The sign says - .",1);

