// TOWN SPECIAL ENCOUNTERS
//    Town 4: Silvar

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(80,"Gary");
	set_personality_name(81,"Efram");
	set_personality_name(82,"Oss-Ess");
	set_personality_name(83,"Anastasia");
	set_personality_name(84,"Captain Arlen");
	set_personality_name(85,"Elspeth");
	set_personality_name(86,"Asp");
	set_personality_name(87,"Ruth");
	set_personality_name(88,"Gibrain");
	set_personality_name(89,"Angarahad");
	set_personality_name(90,"Awrmm");
	set_personality_name(91,"Refugee");

	if (gf(4,18) > 0)
		erase_char(414);

	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(400,"No charity!");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(400,"Paying customers only.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(400,"We have a free room.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(400,"Soldiers always welcome.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(415,"Welcome, soldier.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(415,"Fine Fort Draco iron.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(415,"We buy and sell.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(402,"Ahssss.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(402,"I can train you.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(402,"We have a common foe.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(402,"We must have peace.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(403,"Zzzzz.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(403,"(Snore.)");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(403,"Zzz. Zz.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(404,"Welcome, soldier.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(404,"We have lost Cotra.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(404,"The Empire watches us.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(404,"We need more soldiers.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(405,"This place is a pit.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(405,"Watch your back.");
	if ((get_ran(1,0,100) < 20) && (gf(4,11) < 2))
		give_char_text_bubble(405,"Where could she be?");
	if ((get_ran(1,0,100) < 10) && (gf(4,11) >= 2))
		give_char_text_bubble(405,"I need to go soon.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(463,"Stay back.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(463,"Want to be left alone.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(463,"Cotra is destroyed.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(407,"Craft for sale.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(407,"Boats for soldiers only.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(407,"Need more wood.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(407,"Build that frame.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(408,"Curse the Empire.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(408,"Lucky to be alive.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(408,"They burned it all.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(408,"Just too many.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(408,"More ale!");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(414,"Mrrr.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(414,"Hrrrm.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(414,"Need the help.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(414,"Mine are enslaved.");


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);

