#include <lib.h>
#include <damage_types.h>
#include <position.h>

inherit LIB_SENTIENT;
inherit LIB_ACTIVATE;
int active, ammo = 1000;

int eventShootDude(object ob){
    int dam, numlimbs;
    string limbname, str;
    string *limbs;
    if(!environment()) return 0;
    str = ob->GetName();
    if(!ammo){
        tell_room(environment(),"The gun turret clicks.");
        active = 0;
        return 0;
    }
    tell_object(this_object(),"You fire at "+ob->GetName()+"!");
    tell_room(environment(),"The gun turret fires at "+ob->GetName()+"!",
      ({this_object(),ob}));
    tell_object(ob,"The gun turret fires at you!");
    ammo--;
    if(random(100) < 10) return 1;
    limbs=ob->GetLimbs();
    numlimbs=sizeof(limbs);
    limbname = limbs[random(numlimbs-1)]; 
    tell_room(environment(this_object()),
      "The bullet smashes into "+
      capitalize(str)+"'s "+limbname+"!\n",ob);
    tell_object(ob,"The bullet smashes into your "+limbname+"!\n");
    ob->SetAttack(this_agent());
    if(!present("firearms_wound",ob)){
        new(LIB_WOUND)->eventMove(ob);
    }
    ob->AddLead("gunshot_wounds", 1);
    dam = 20;
    dam *= random(10);
    dam -= random(ob->GetStatLevel("coordination"));
    ob->eventReceiveDamage(this_object(),(PIERCE), dam, 0, limbname);
    if(!ob->GetInCombat()){
        ob->eventForce("attack "+environment(this_object())->GetKeyName());
    }
    return 1;
}

int eventHoseTarget(object target){
    int repeat = 10;
    if(!target) return 0;
    //write("Hosing target: "+identify(target));
    while(repeat && !(target->GetDying())){
        eventShootDude(target);
        repeat--;
    }
    return 1;
}

int eventTargetScan(){
    object *targets;
    int targs;
    if(!environment() || !active) return 0;
    targets = filter(get_livings(environment()), (: !($1->GetInvis()) :) );
    targets = scramble_array(targets);
    targets -= ({ this_object() });
    if(!(targs = sizeof(targets))) return 0;
    if(targs > 10) targs = 10;
    else {
        eventForce("say "+cardinal(targs)+" target"+
          ((targs > 1) ? "s" : "" )+" acquired.");
    }
    targs--;
    targets = targets[0..targs];
    foreach(object target in targets){
        eventHoseTarget(target);
    }
    return 1;
}

int AddLegs(){
    AddLimb("first leg", "torso", 2);
    AddLimb("second leg", "torso", 2);
    AddLimb("third leg", "torso", 2);
    return 1;
}

int ActivateTurret(){
    if(!ammo){
        write("The turret clicks and goes silent.");
        return 0;
    }
    active = 1;
    eventForce("say TURRET IS NOW FULLY ARMED AND OPERATIONAL.");
    eventTargetScan();
    set_heart_beat(1);
    return 1;
}

static void create() {
    sentient::create();
    SetKeyName("gun turret");
    SetId( ({"bot", "robot","turret"}) );
    SetAdjectives(({"non-player", "non player"}));
    SetShort("a gun turret");
    SetLong("This is a four foot tall metal turret on tripod legs "+
      "designed to automatically acquire and engage any moving "
      "targets with its massive 20 millimeter guns.");
    SetPosition(POSITION_STANDING);
    SetLevel(1);
    SetPacifist(1);
    SetNoClean(0);
    SetRace("bot");
    SetClass("fighter");
    SetGender("neuter");
    SetPolyglot(1);
    call_out("AddLegs",0);
    SetLanguage("common",100);
    SetDefaultLanguage("common");
}

void init(){
    ::init();
}

int eventTurnOn(){
    if(active){
        write("The turret is already active.");
        return 1;
    }
    else {
        call_out("ActivateTurret",7);
        write("You activate the gun turret.");
        eventForce("say TURRET ACTIVE.");
        eventForce("say YOU HAVE 5 SECONDS TO REACH MINIMUM SAFE DISTANCE.");
    }
    return 1;
}

int eventTurnOff(){
    if(!active){
        write("The turret is already inactive.");
        return 1;
    }
    else {
        write("It seems this turret cannot be deactivated.");
        //write("You deactivate the gun turret.");
        //active = 0;
    }
    return 1;
}

void heart_beat(){
    ::heart_beat();
    eventTargetScan();
}

varargs int eventReceiveDamage(mixed agent, int type, int x, int internal,
  mixed limbs){
    ActivateTurret();
    return ::eventReceiveDamage(agent, type, x, internal, limbs);
}