#include <lib.h>
inherit LIB_SENTIENT;
varargs int ReceiveCoat(mixed already, object who){
if(already > 1){
eventForce("say uh...no thanks. I'm set.");
eventForce("drop a coat");
}
else {
string noun;
switch(who->GetGender()){
case "male" : noun = "lad";break;
case "female" : noun = "lass";break;
default : noun = who->GetRace();break;
}
call_out("eventForce",1,"say Excellent! Well done, young "+noun+"!");
call_out("eventForce",2,"remove badge");
call_out("eventForce",3,"emote fumbles awkwardly with the coat.");
call_out("eventForce",4,"drop badge");
call_out("eventForce",5,"wear coat");
call_out("eventForce",6,"say Ahh, much better. Thank you!");
}
return 1;
}
int EncounterResponse(int i){
if(!i) i = random(i)+2;
switch(i){
case 1 :
eventForce("yell DON'T SHOOT! I'M WITH THE SCIENCE TEAM!");break;
case 2 :
eventForce("emote scratches his head thoughtfully.");break;
case 3 :
eventForce("frown");break;
case 4 :
eventForce("hmm");break;
default :
eventForce("emote nods thoughtfully.");break;
}
return 1;
}
int CheckResponse(){
eventForce("say I think you can see I'm busy.");
if(!present("lab coat",this_object())){
eventForce("say Say, I don't suppose you could find "+
"my lab coat for me? I just don't have time to go "+
"looking for it right now!");
}
return 1;
}
int EncounterCheck(mixed who){
object *inv;
if(!objectp(who) || !living(who)) return 0;
inv = filter(all_inventory(who), (: inherits(LIB_FIREARM, $1) :));
inv = filter(inv, (: sizeof($1->GetWorn()) :));
if(sizeof(inv)){
call_out("EncounterResponse",0,1);
}
else call_out("EncounterResponse",4,random(4)+2);
return 0;
}
static void create() {
sentient::create();
SetKeyName("kleiner");
SetId(({"npc","mob","character","scientist","genius"}));
SetAdjectives(({"old", "white haired","beloved"}));
SetShort("Dr. Kleiner");
SetLong("An old, white-haired scientist, Dr. Isaac Kleiner is a beloved campus personality with his affable, kind nature and genius for exotechnology.");
SetPacifist(1);
SetInventory(([
"/domains/campus/obj/omni" : 1,
"/domains/campus/armor/badge2" : "wear badge",
]));
SetLevel(10);
SetWimpy(95);
SetRace("human");
SetGender("male");
SetLanguage("common",100);
SetDefaultLanguage("common");
SetConsultResponses( ([
"default" : (: CheckResponse :),
({ "gate", "gates", "stargate", "stargates", "portal", "portals" }) :
"Fascinating, aren't they? A legacy of some highly advanced "+
"civilization. Be very careful if you enter one!",
({ "door", "badge", "sliding door" }) : "Oh yes, the security "+
"door. Sorry, only badged employees like me have access to "+
"the hazardous materials lab.",
({ "hazardous materials lab", "materials lab", "lab" }) :
"I wouldn't try to get in there if I were you. The "+
"artifacts there can be too powerful for the unskilled.",
]) );
SetRequestResponses( ([
"default" : (: CheckResponse :),
({"a good grade","good grades"}) : "Those are yours to earn.",
]) );
SetTalkResponses( ([
({"hi","hello","kleiner" }) : "I'm sorry, young person, but "+
"I'm terribly, terribly busy analyzing this fascinating "+
"alien teleportation technology.",
]) );
SetEncounter( (: EncounterCheck :) );
}
void init(){
::init();
}
int eventFreakout(mixed agent){
string name;
if(stringp(agent)) name = agent;
if(objectp(agent)) name = agent->GetName();
else name = "young person";
if(!this_object()->GetDying()){
if(present("omni", this_object())){
eventForce("yell OH MY GOD! THEY'LL KILL US ALL!");
eventForce("push button on omni");
}
else if(objectp(agent)){
int utterance = random(5)+1;
switch(utterance){
case 1 :
eventForce("yell "+name+", stop this madness at once!");
break;
case 2 :
eventForce("yell What are you doing, "+name+
"? I am your *friend*!");
break;
case 3 :
eventForce("yell Fine! Fine! I'll give you an A!");
break;
case 4 :
eventForce("yell Oh God, "+name+
", I don't want to die!");
break;
case 5 :
eventForce("yell Please don't kill me, "+name+"!");
break;
default :
eventForce("kneel");
eventForce("say I'm praying to you! Look in your heart!");
break;
}
}
else {
int utterance = random(5)+1;
switch(utterance){
case 1 :
eventForce("say I hope someone is taking notes on "+
agent+". I wouldn't want my death to be in vain.");
break;
case 2 :
eventForce("say If I don't survive "+agent+
", please promise me you'll take care of Lamarr.");
break;
default :
eventForce("emote whimpers.");
}
}
}
return 1;
}
varargs int eventReceiveDamage(mixed agent, int type, int x, int internal,
mixed limbs){
call_out("eventFreakout",0,agent);
return ::eventReceiveDamage(agent, type, x, internal, limbs);
}
int eventReceiveObject(object ob) {
int howmany = sizeof(filter(all_inventory(this_object()),
(: answers_to("lab coat",$1) :) ));
if( !ob || !::eventReceiveObject(ob) ) return 0;
if(answers_to("lab coat",ob)){
call_out("ReceiveCoat", 0, howmany, this_player());
}
return 1;
}
