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

inherit LIB_MISSILE;

int detonated;
int count, armed;
string *limbs,domain;
void analyze(string butt);
int HitLivings(object munch);
int radius = 0;
object *whom;

void create(){
    ::create();
    //SetKeyName("Poleekwa plasma rifle bolt");
    SetKeyName("plasma bolt");
    sscanf(base_name(this_object()),"/domains/%s/%*s",domain);
    SetId( ({"bolt","plasma"}) );
    SetAdjectives( ({"plasma", "energy"}) );
    SetShort("a plasma bolt");
    SetLong("This is a brilliant ball of superheated material.");
    SetCruiseInMessage("A plasma bolt roars in from $D!");
    SetCruiseOutMessage("The plasma bolt flies $D.");
    SetMass(0);
    SetDollarCost(10);
    SetRange(20);
    SetSpeed(5);
    SetVendorType(VT_WEAPON);
    count=5;
    detonated=0;
}

int eventFall(){
    if(!armed) return ::eventFall();
    return 0;
}

void init(){
    ::init();
    if(armed){
        set_heart_beat(1);
        if(detonated==1) this_object()->eventDestruct();
    }
}

void heart_beat(){
    count--;
    if(detonated==1) this_object()->eventDestruct();
    if(count < 0){
        this_object()->detonate();
        return;
    }
    if(interactive(environment())){
        tell_object(environment(), "You are being melted by a plasma bolt.");
        return;
    }
    tell_object(environment(),"You hear a low hissing sound.");
    tell_object(environment(environment()), environment()->GetName()+" is being melted by a plasma bolt.");
}

int detonate(){
    object ob;
    string *stuffs;
    int num;
    ob = environment(this_object());
    ownerob = GetOwnerOb();
    if(living(ob)){
        stuffs=ob->GetLimbs();
        tell_object(ob, "\nYou are hit by a plasma bolt!\n");
        tell_room(environment(ob), ob->GetName()+" is hit by "+
                "a plasma bolt!\n",ob);
        this_object()->HitLivings(ob);
        detonated=2;
        if(ownerob) ownerob->ReportHit(ob);
    }
    else tell_room(room_environment(this_object()), "A plasma bolt "+
            "detonates harmlessly.");
    this_object()->eventDestruct();
    return 1;
}

mixed eventNegotiateObstacles(){
    object env = environment();
    if(!env) return 1;
    if(!inherits(LIB_ROOM,env)){
        detonate();
        return 0;
    }
    foreach(object ob in all_inventory(env)){
        if(living(ob) && ob->GetPosition() != POSITION_LYING){
            if(random(100) > 20){
                this_object()->eventMove(ob);
                detonate();
                return 0;
            }
        }
        else if(ob->GetMass() > 1000){
            if(random(100) > 30){
                detonate();
                return 0;
            }
        }
    }
    return ::eventNegotiateObstacles();
}

mixed eventEncounterBlock(){
    detonate();
    return ::eventEncounterBlock();
}

void analyze(string str){
    string tmp,tmp2;
    sscanf(str,"%s#%s",tmp,tmp2);
    if(tmp="/lib/corpse"){
        filter(deep_inventory(find_object(str)), (: $1->eventDestruct() :), this_object() );
    }
    return;
}

int HitLivings(object ob){
    int dam = GetDamage();
    ob->eventReceiveDamage("plasma bolt", HEAT, dam);
    return 1;
}

int SetArmed(int x){
    if(x) armed = 1;
    else armed = 0;
    if(armed) set_heart_beat(1);
    return armed;
}

int eventCruise(string str){
    return ::eventCruise(str);
}

int eventDestruct(){
    return ::eventDestruct();
}