begindefinecreature 239;
import = 47;
begindefinecreature 47; // Wight
cr_level = 52;
cr_hp_bonus = 100;
cr_summon_class = 8;

begindefinecreature 239;
import = 48;
begindefinecreature 48; // Ghost
cr_level = 58;
cr_hp_bonus = 100;
cr_natural_armor = 40;

begindefinecreature 239;
import = 49;
begindefinecreature 49; // Lich
cr_level = 60;
cr_amount_stat_adjust 0 = 20; // Magery
cr_amount_stat_adjust 1 = 30; // Mage Spells

// TOWN SCRIPT
// Town 0: Fort Talrus

// This is the special encounter script for this town.
// The states INIT_STATE, EXIT_STATE, and START_STATE have
// meanings that are described in the documenation. States you write
// yourself should be numbered from 10-100.

begintownscript;


variables;


int i,j,k,r1,choice;


body;


beginstate INIT_STATE;

// This state called whenever this town is

entered.
//Names
set_name(13,"Commander Terrance");
set_char_dialogue_pic(13,1907,0);
set_name(14,"Maria");
set_name(15,"Penelope");
set_name(16,"Avizo");

set_crime_tolerance(5);

enable_add_chars(1);

if (get_flag(1,9) > 0) {
message_dialog("You have finally returned, victorious, to where you started. If you are ready to leave this scenario, leave this fort to the south.","");
}
break;

beginstate EXIT_STATE;
// Always called when the town is left.
break;

beginstate START_STATE;
if (get_crime_level() >= 5)
set_flag(0,11,1);

if (get_ran(1,0,100) < 6)
text_bubble_on_char(16,"Cough.");
if (get_ran(1,0,100) < 6)
text_bubble_on_char(16,"I feel awful.");
if (get_ran(1,0,100) < 6)
text_bubble_on_char(25,"Squeak.");
if (get_ran(1,0,100) < 6)
text_bubble_on_char(13,"So much to do.");
if (get_ran(1,0,100) < 6)
text_bubble_on_char(13,"Why is it happening?");

if ((get_ran(1,0,100) < 5) && (group_dist_to_loc(0,42,27) > 10))
spawn_creature(25);


break;

begintownscript;

variables;

int i,b,c,d,j,k,r1,choice;

body;

beginstate INIT_STATE;

enable_add_chars(1);

//Names must appear first.
set_name(11,"Gomlaka");
set_char_dialogue_pic(11,1946,0);

break;

beginstate EXIT_STATE;

break;

beginstate START_STATE;

if (get_ran(1,0,100) < 7)
text_bubble_on_char(11,"Must get out.");
if (get_ran(1,0,100) < 7)
text_bubble_on_char(11,"Must Escape!");
if (get_ran(1,0,100) < 7)
text_bubble_on_char(11,"Must Warn!");
if (get_ran(1,0,100) < 7)
text_bubble_on_char(11,"Need to warn.");
if (get_ran(1,0,100) < 7)
text_bubble_on_char(11,"The Empire. Must Warn.");

break;