// TOWN SPECIAL ENCOUNTERS
//    Town 68: Solberg's Tower

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(1360,"Solberg");
	set_personality_name(1361,"Cheeseball");

	set_crime_tolerance(max_crime);

	sf(68,10,0);
	break;

beginstate EXIT_STATE;
break;

beginstate START_STATE;
	if ((char_ok(6803)) && (get_level(6803) >= 10))
		set_level(6803,10);
		
	if ((set_ter == 0) && (gf(68,6) > 0)) {
		set_ter = 1;
		kill_object(27230,0);
		}

	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(6802,"A visitor.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(6802,"At last.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(6802,"Have some tea.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(6802,"Give me the gossip.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(6802,"How goes the war?");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(6802,"This is Erika's fault.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(6808,"Meow.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(6808,"Hss.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(6808,"Pfft.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(6808,"I hate my life.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(6808,"Free me from this torment!");
		
		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);

