// .txt

beginzonescript;

variables;

short crime_tolerance = 5;

body;

beginstate INIT_STATE;
	set_flag(34,3,1);
	set_flag(34,4,0);
	if ((get_flag(34,5) > 0) || (get_flag(101,0) > 0)) {
		erase_char(8);
		}
		
	set_name(18,"Soldier");
	set_name(19,"Soldier");
	set_name(25,"Maid");
	set_name(26,"Maid");

	set_name(29,"Commander Sobel");
	change_max_health(29,100);

	set_name(30,"Jaym");
	set_name(31,"Komoa");
	if (get_flag(34,10) == 2)
		erase_char(31);
	if (get_flag(35,1) == 2)
		erase_char(31);
		
//	add_range_to_group(first,last,whichg);

	if (get_sdf(33,1) > 0) {
		make_zone_hostile();
		}

	set_crime_tolerance(crime_tolerance);


	// process alwan	
	set_name(32,"Alwan");
	if (get_flag(33,26) == 0)
		erase_char(32);
		else if (char_in_party(20) >= 0)
			erase_char(32);
			else {
				restore_alwan_greta(32,0);
				set_char_unkillable(32,0);
				}
	if (get_flag(101,13) > 0)
		erase_char(32);
		
	// process Greta	
	set_name(33,"Greta");
	if (get_flag(33,27) == 0)
		erase_char(33);
		else if (char_in_party(40) >= 0)
			erase_char(33);
			else {
				restore_alwan_greta(33,1);
				set_char_unkillable(33,0);
				}
	if (get_flag(101,14) > 0)
		erase_char(33);
	
	if (get_flag(101,0) > 0)
		set_flag(34,5,1);
	break;

beginstate EXIT_STATE;

break;

beginstate START_STATE;
	// clear zone?
	//if ((zone_clear(ME) == FALSE) && (get_flag(,) > 0)) {
		//clear_zone(ME);	
		//}
		
	if ((get_crime_level() >= crime_tolerance) && (get_sdf(33,1) == 0)) {
		make_zone_hostile();
		set_flag(33,1,1);
		}

	if (get_flag(34,4) > 0) {
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(12 + get_ran(1,0,4),"Aiyeee!");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(12 + get_ran(1,0,4),"Ahhhh!");
		}
		else if (get_flag(34,5) > 0) {
			if (get_ran(1,0,100) < 12)
				give_char_text_bubble(12 + get_ran(1,0,4),"That was terrible.");
			if (get_ran(1,0,100) < 12)
				give_char_text_bubble(12 + get_ran(1,0,4),"What is next?");
			if (get_ran(1,0,100) < 12)
				give_char_text_bubble(12 + get_ran(1,0,4),"Were lucky to survive.");
			}
		else {
			if (get_ran(1,0,100) < 12)
				give_char_text_bubble(12 + get_ran(1,0,4),"We'll never escape.");
			if (get_ran(1,0,100) < 12)
				give_char_text_bubble(12 + get_ran(1,0,4),"The Shapers won't help.");
			if (get_ran(1,0,100) < 12)
				give_char_text_bubble(12 + get_ran(1,0,4),"It's just no good.");
			}

	if ((get_flag(34,2) < 2) && (get_flag(34,5) == 0)) {
		inc_flag(34,2,1);
		if (get_flag(34,2) == 2)
			begin_talk_mode(2);
		}
	
	if (get_flag(34,5) > 0) {
		approach_nav_point(30,4,1);
		}
		
	if (char_ok(29) == FALSE)
		set_flag(33,19,1);
		
	// this is a dumb kludge because I was stupid about the way leavezone script 
	// works, if event is not happening keep it not happening
	if (get_flag(34,3) > 0)
		set_flag(34,4,0);
break;

//beginstate 10;
//	set_terrain_string_range(".",3);
//break;