begincreaturescript;

variables;

short i,target,j,return,attackstate;
short fire, ice, nonelem, summon, ment, blhe;
short m, p, ltick, maxe, s;

body;

beginstate INIT_STATE;
if (get_memory_cell(0) == 2)
set_mobility(ME,0);
if (get_memory_cell(4) == 0)
set_memory_cell(4,3);
m = get_stat(ME,11);
p = get_stat(ME,12);
if((m > 0) || (p > 0))
attackstate = 5;
else
attackstate = 4;
maxe = get_stat(ME,36);
ltick = 0;
print_num(s);
print_str_color("s0",1);
if(s == 0)
s = 2;
break;

beginstate DEAD_STATE;
// Set the appropriate stuff done flag for this character being dead
if ((get_memory_cell(1) != 0) || (get_memory_cell(2) != 0))
set_flag(get_memory_cell(1),get_memory_cell(2),1);
break;

beginstate START_STATE;
print_num(s);
//s = 6;
if(s == 2){
print_str_color("s2",1);
// if I have a target for some reason, go attack it
if (target_ok()) {
if ((dist_to_char(get_target()) <= 16) && ((get_flag(299,26) == 0) || (char_in_group(get_target(),0) == 0))){
return = 3;
set_state(attackstate);
}
else
set_target(ME,-1);
}

// Look for a target, attack it if visible
if (select_target(ME,8,0)) {
if((get_flag(299,26) > 0) && (char_in_group(get_target(),0) == 1)){
select_target(ME,8,0);
if((char_in_group(get_target(),0)))
set_target(ME,-1);
else{
do_attack();
return = 3;
set_state(attackstate);
}
}
else{
do_attack();
return = 3;
set_state(attackstate);
}
}

// Have I been hit? Strike back!
if (who_hit_me() >= 0) {
set_target(ME,who_hit_me());
do_attack();
return = 3;
set_state(attackstate);
}

// Otherwise, just peacefully move around. Go back to start, if I'm too far
// from where I started.
if ((my_dist_from_start() >= 6) || ((my_dist_from_start() > 0) && (get_memory_cell(0) > 0))) {
if (get_ran(1,1,100) < 40)
return_to_start(ME,1);
}
else if (get_memory_cell(0) == 0) {
fidget(ME,25);
}

// if we're in combat and the above didn't give me anything to do, just
// stop now. Otherwise, game will keep running script, and that eats up CPU time.
if (am_i_doing_action() == FALSE)
end_combat_turn();
}
break;

beginstate 3; // attacking
print_num(s);
print_str_color("s3",1);
s = 3;
if(get_current_tick()!=ltick && get_energy(ME)<maxe){
change_char_energy(ME,1);
ltick=get_current_tick();
}
if(get_energy(ME)<2){
end_combat_turn();
}
if (target_ok() == FALSE){
//s = 2;
set_state(START_STATE);
}
do_attack_tactic(2);
break;

beginstate 4; //non magical attacking
print_num(s);
print_str_color("s4",1);
s = 4;
if (target_ok() == FALSE){
//s = 2;
set_state(START_STATE);
}
do_attack();
break;

//REQUIRES: return is the state to go to on completion
beginstate 5; //sets spells for this target
print_num(s);
print_str_color("s5",1);
s = 5;

//-Massive amounts of code were removed here-

set_state_continue(return);
break;