// TOWN SPECIAL ENCOUNTERS
//    Town 11: Dharmon

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(220,"Julie");
	set_personality_name(221,"Rippel");
	set_personality_name(222,"Largo");
	set_personality_name(223,"Sarah");
	set_personality_name(224,"Gunther");
	set_personality_name(225,"Messner");
	set_personality_name(226,"Malka");
	set_personality_name(227,"Starcap");
	set_personality_name(228,"Captain Ebbeth");
	set_personality_name(229,"Mayor Genevieve");
	set_personality_name(230,"Keith");
	set_personality_name(232,"Lieutenant Agate");

	set_name(1126,"Frothing Shambler");
	set_coloradj(1126,64);
	set_boss_level(1126,1);
	set_new_abil(1126,14);
	add_ability(1126, 10, 137, 0);
	add_ability(1126, 11, 202, 0);
	
	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(1100,"Razordisks are interesting.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1100,"I make javelins.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1100,"I can craft longbows.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1102,"I buy salvage.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1102,"I need quality materials.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1102,"Armor for sale.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1153,"Chop. Chop.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1153,"Grind. Grind.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1153,"Sssss. OW!");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1103,"The fallen watch us.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1103,"The fallen guide us.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1103,"The fallen guide our hands.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1103,"Our blows will be true.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1103,"We are just.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1103,"They are all wrong.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1104,"Welcome, mighty Avernite.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1104,"Avernites are so wise.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1104,"I am honored.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1104,"You are better than me.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1105,"Rooms are free.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1105,"Hard times.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1105,"We have ale.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1105,"Please buy something.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1106,"There, there.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1106,"Poor dear.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1106,"Shhhh.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1107,"Go away.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1107,"Pest.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1107,"Bah!");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1108,"Unload those crates.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1108,"Send the wagons north.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1108,"Take the supplies south.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1108,"Oh, what now?");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1150,"Welcome, soldier.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1150,"A moment of peace.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1150,"Sigh.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1150,"A new threat.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1150,"A report of new horrors.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1110,"Cough.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1110,"I'm hungry.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(1110,"Spare a coin?");


break;

beginstate 10;
	if ((char_ok(1119)) && (get_attitude(1119) < 10)) {
		set_attitude(1119,10);
		set_attitude(1120,10);
		}
break;

beginstate 11;
	if ((char_ok(1101)) && (get_attitude(1101) < 10)) {
		set_attitude(1101,10);
		set_attitude(1109,10);
		}
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);

