// TOWN SPECIAL ENCOUNTERS
//    Town 92: Fort Haledon

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(1840,"Mahr-Tel");
	set_personality_name(1841,"Haineux");
	set_personality_name(1842,"Strossen-Ihrno");
	set_personality_name(1843,"Selar");

	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 ((set_ter == 0) && (gf(92,8) > 0)) {
		set_ter = 1;
		erase_char(30001);
		erase_char(30002);
		}

	if ((get_ran(1,0,100) < 10) && (gf(92,20) == 0))
		give_char_text_bubble(9214,"Who are you?");
	if ((get_ran(1,0,100) < 10) && (gf(92,20) == 0))
		give_char_text_bubble(9214,"Where are your papers?");
	if ((get_ran(1,0,100) < 10) && (gf(92,20) == 0))
		give_char_text_bubble(9214,"What is it, outsider?");
	if ((get_ran(1,0,100) < 10) && (gf(92,20) > 0))
		give_char_text_bubble(9214,"You can enter.");
	if ((get_ran(1,0,100) < 10) && (gf(92,20) > 0))
		give_char_text_bubble(9214,"Pass me.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(9200,"I failed.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(9200,"A tragedy.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(9200,"Should have stopped them.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(9200,"They will be avenged.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(9200,"We will assault the Empire.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(9203,"These are our stores.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(9203,"We have little.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(9202,"Hmmmm.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(9202,"Mmmmmm.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(9202,"Closer. Closer.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(9202,"Come, purging fire.");

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

