// TOWN SPECIAL ENCOUNTERS
//    Town 46: Fort Dranlon

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(920,"Mairwen");
	set_personality_name(921,"Wendy");
	set_personality_name(922,"George");
	set_personality_name(923,"Postlethwaite");
	set_personality_name(924,"O'Rourke");
	set_personality_name(925,"Caitlin");
	set_personality_name(926,"Nance");

	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(4600,"Welcome, hero.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4600,"Sorry for the mess.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4600,"Watch out for Empire raiders.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4600,"Cotra is lost.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4600,"We'll wipe them all out.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4603,"Zzzzt.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4603,"Zap!");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4603,"Almost there.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4603,"Another hole.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4611,"Another horrible day.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4611,"Now what do you need?");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4611,"Are the walls still holding?");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4611,"Sigh.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4617,"Zzzzz.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4617,"Yawn.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4617,"So many holes.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4617,"That barrier needs charging.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4609,"Hmm.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4609,"Mmmm.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4609,"Ah.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4609,"Yes.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4609,"No.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4605,"A quiet moment.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4605,"Rest with me.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4605,"Tranquility is rare.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4605,"I can teach you.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4627,"Sweep. Sweep.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4627,"We are between attacks.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(4627,"My home is gone.");


break;

beginstate 10;
	if (gf(46,20) == 0) {
		sf(46,20,1);
		ok_dlog(20,1);
		kill_object(18482,0);
		kill_object(18408,0);
		}
break;

beginstate 11;
	if (gf(46,21) == 0) {
		sf(46,21,1);
		ok_dlog(20,1);
		kill_object(18491,0);
		kill_object(18495,0);
		}
break;

beginstate 12;
	if (gf(46,22) == 0) {
		sf(46,22,1);
		ok_dlog(20,1);
		kill_object(18488,0);
		kill_object(18484,0);
		}
break;

beginstate 13;
break;

beginstate 14;
break;

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

