#include <lib.h>
#include <vendor_types.h>
#include <damage_types.h>
inherit LIB_ITEM;
inherit LIB_PULL;
string pin_desc();
string lev_desc();
int detonated;
int count, armed;
string *limbs,domain;
void analyze(string butt);
int HitLivings(object munch);
int radius = 0;
object *whom;
void create(){
item::create();
SetKeyName("concussion hand grenade");
sscanf(base_name(this_object()),"/domains/%s/%*s",domain);
SetId( ({"grenade","hand grenade","flash-bang grenade","concussion grenade"}) );
SetAdjectives( ({"military","pineapple"}) );
SetShort("a hand grenade");
SetLong("This is an olive-green military issue hand grenade. It is about the "+
"size of an apple, and its round exterior is made of smooth metal. The "+
"grenade's fuse consists of a short metal lever and a round pull-pin. ");
SetMass(20);
SetDollarCost(10);
SetVendorType(VT_WEAPON);
AddItem(({"pull pin","pull-pin","pin"}),"This is a round, metal pin, evidently designed for pulling.");
AddItem(({"lever","metal lever"}),"This lever appears to be part of the fuse mechanism.");
AddItem( ({"fuse","fuse mechanism"}) , "This fuse mechanism controls the arming of the grenade.");
count=5;
detonated=0;
}
void init(){
if(armed){
set_heart_beat(1);
if(detonated==1) this_object()->eventDestruct();
}
}
mixed CanPull(object who, string target) {
//tc("me: "+identify(this_object())+", who: "+identify(who)+", target: "+identify(target));
if(!environment() || environment() != who ){
return "#You do not have the grenade.";
}
if(answers_to(target,this_object())){
return "#You cannot pull that.";
}
if(armed){
return "#It is already armed.";
}
if(!GetItem(target)){
return "#That's not on the grenade.";
}
return 1;
}
mixed eventPull(object who, string target) {
string *tmpid;
if(!environment() || (this_player() && environment() != this_player())){
write("You are not holding it.");
return 1;
}
if(target =="pin" || target == "pull-pin"){
tmpid = GetAdjectives();
write("You pull the grenade's pin.\n");
say(this_player()->GetName()+" pulls the pin from a hand grenade.\n");
new("/domains/"+domain+"/obj/pin")->eventMove(this_player());
new("/domains/"+domain+"/obj/lever")->eventMove(this_player());
SetShort("a live hand grenade");
SetLong("This is an olive-green military issue hand grenade. It is about the "+
"size of an apple, and its round exterior is made of smooth metal. The pin and "+
"spoon are missing from the fuse mechanism, indicating the grenade is live "+
"and will detonate very soon.");
AddItem(({"lever","metal lever"}),"The grenade is armed. The fuse lever is no longer on the grenade.");
AddItem(({"pull pin","pull-pin","pin"}),"The grenade is armed. There is no pin in the fuse.");
armed = 1;
set_heart_beat(1);
SetAdjectives(tmpid + ({"armed","live","hissing"}));
return 1;
}
write("Nothing happens.");
return 1;
}
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 holding a live hand grenade.");
return;
}
tell_object(environment(),"You hear a low hissing sound.");
tell_object(environment(environment()), environment()->GetName()+" is holding a live hand grenade.");
}
int detonate(){
object ob;
string *stuffs;
int num;
ob = environment(this_object());
if(living(ob)){
stuffs=ob->GetLimbs();
tell_object(ob, "\nKABOOM! You are torn to pieces by your hand grenade!\n");
tell_room(environment(ob), "\nKABOOM! "+ob->GetName()+" is torn to pieces by "+
possessive(ob)+" hand grenade!\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! The grenade 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;
}
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(1000)+500;
else dam = (random(1000)+500) - (radius * 100);
if(env && !living(env)){
if(env->GetClimate() == "indoors") dam *= 2;
}
if(dam > 0){
ob->eventReceiveDamage("concussion",BLUNT, dam, 0);
}
return 1;
}
int SetArmed(int x){
if(x) armed = 1;
else armed = 0;
if(armed) set_heart_beat(1);
return armed;
}
