// TOWN SPECIAL ENCOUNTERS
//    Town 6: Almaria

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(120,"Rosemary");
	set_personality_name(121,"Jay");
	set_personality_name(122,"Shannon");
	set_personality_name(123,"Julio");
	set_personality_name(124,"Miranda");
	set_personality_name(125,"Duckworth");
	set_personality_name(126,"Bevan");
	set_personality_name(127,"Abby");
	set_personality_name(128,"Captain Dirk");
	set_personality_name(129,"Laura");
	set_personality_name(130,"Hmurr");
	set_personality_name(131,"Gypsy");
	set_personality_name(132,"Monty");
	set_personality_name(133,"Dagger");

	set_name(660,"Pit Basilisk");
	set_level(660,20);
	set_name(640,"Pit Basilisk");
	set_level(640,20);
	set_name(659,"Pit Basilisk");
	set_level(659,20);
	
	sf(6,25,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 (char_ok(665))
		set_name(665,"Avernite Mage");

	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(600,"Chop. Chop.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(600,"Mince. Mince.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(600,"Stir. Stir.");
	if (get_ran(1,0,100) < 15)
		give_char_text_bubble(600,"I make potions.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(601,"Need armor?");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(601,"We buy and sell.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(601,"I trade for armor.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(611,"Need a blade?");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(611,"I buy salvage.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(611,"Weapons bought and sold.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(603,"Welcome, warrior.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(603,"I am a teacher.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(603,"I study the way of the blade.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(603,"I was an explorer.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(606,"Hummmm.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(606,".....");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(606,"Are you well?");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(605,"Zzz.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(605,"Zzzzz.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(621,"Another report.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(621,"Word from Formello?");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(621,"Can we salvage Cotra?");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(621,"A missive for Blosk.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(621,"At last the barriers are gone.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(621,"Welcome, hero.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(608,"Leave my supplies alone.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(608,"We send the big shipments.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(608,"I worry about spies.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(609,"Dagger? Where are you?");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(609,"Foolish cat.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(609,"Hello, traveler.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(609,"Many miles to go.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(610,"Hmrrr.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(610,"We have a free room.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(610,"Need food?");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(610,"Fine Almarian Wine?");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(617,"La la la.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(617,"Twang twang.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(617,"So hard to keep in tune.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(617,"Moisture everywhere.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(613,"Pfft.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(613,"Meow.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(613,"Sigh.");

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

