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

inherit LIB_MISSILE;

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

void create(){
    ::create();
    SetKeyName("torpedo");
    SetId( ({"torpedo","mk14","mark 14","cylinder"}) );
    SetAdjectives( ({"electric","mk14", "mark 14"}) );
    SetShort("a pink torpedo");
    SetLong("Typical of early models, this torpedo was produced during a "+
            "severe shortage of red and white lead undercoat pigments, requiring "+
            "its pink anti-friction paint. This self-propelled cylinder is "+
            "twenty feet long and packed with a tremendous explosive charge. "+
            "It has markings stenciled on the side.");
    SetCruiseInMessage("A torpedo cruises in!");
    SetCruiseOutMessage("The torpedo cruises $D.");
    SetMass(33000);
    SetDollarCost(10000);
    SetRange(200);
    SetSpeed(3);
    SetVendorType(VT_WEAPON);
    AddItem(({"motor","electric motor"}),"The thing that pushes this torpedo.");
    detonated=0;
    SetItems( ([
                ({"markings","marking","stencil"}) : "Markings "+
                "you can read, applied in stencil.",
                ({"fins","flaps"}) : "This baby's got 'em.",
                ]) );
    SetReads( ([
                "default" : "Try 'read markings on torpedo'",
                ({"markings","marking","stencil"}) : "SS-666 "+
                "Sea Tiger",
                ]) );
}

int eventSink(){
    if(!armed) return ::eventSink();
    return 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(){
    if(detonated==1) this_object()->eventDestruct();
    if(interactive(environment())){
        tell_object(environment(), "You are holding a live torpedo.");
        return;
    }
    tell_object(environment(),"You hear a loud whining sound.");
    tell_object(environment(environment()), environment()->GetName()+" is holding a live torpedo.");
}

int detonate(){
    object ob;
    string *stuffs;
    int num;
    ob = environment(this_object());
    if(living(ob) && !(RACES_D->GetNonMeatRace(ob->GetRace()))){
        stuffs=ob->GetLimbs();
        tell_object(ob, "\nKABOOM! You are torn to pieces by a torpedo!\n");
        tell_room(environment(ob), "\nKABOOM! "+ob->GetName()+
                " is torn to pieces by a torpedo!\n",ob);
        detonated=2;
        foreach(string limb in stuffs){
            if(limb != "head" && limb != "torso" && limb != "neck") ob->RemoveLimb(limb,this_object());
        }
        ob = environment(ob);
    }
    if(detonated !=2) tell_room(environment(this_object()), 
            "\nKABOOM! A torpedo detonates!\n");
    if(!sizeof(get_livings(ob))) ob = environment(ob);
    if(ob && sizeof(whom = scramble_array(get_livings(ob)[0..12]))){
        foreach(object victim in whom){
            this_object()->HitLivings(victim);
        }
    }
    this_object()->eventDestruct();
    return 1;
}

mixed eventNegotiateObstacles(){
    object env = environment();
    int medium;
    if(!env) return 1;
    if(!inherits(LIB_ROOM,env)){
        detonate();
        return 0;
    }
    medium = env->GetMedium();
    if(medium != MEDIUM_SURFACE && medium != MEDIUM_WATER 
            && medium != MEDIUM_AIR && medium != MEDIUM_SPACE){
        detonate();
        return 0;
    }
    foreach(object ob in all_inventory(env)){
        if(ob == this_object() || ob->isDummy()) continue;
        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();
}

int eventCruise(string str){
    object env = environment();
    if(env && env->GetMedium() == MEDIUM_SPACE){
        return 1;
    }
    else return ::eventCruise(str);
}

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){
    object env = environment();
    int dam;
    radius++;
    if(radius < 6) dam = random(10000)+5000;
    else dam = (random(10000)+5000) - (radius * 1000);
    if(env && living(env)){
        dam *= 5;
    }
    if(dam > 0){
        ob->eventReceiveDamage("concussion",OVERPRESSURE, dam, 0);
    }
    return 1;
}

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

mixed eventRunOut(){
    return detonate();
}