#include <lib.h>
inherit LIB_BOT;

object player, bot, ob, noobster;
string name, watchline;
int count, active, tip, tipnumber, current_tip, hb, mooch, greeting, greetwait;
int deactivate_bot(string str);
string *watchlist;

static void create(){
    AddSave(({ "players" }) );
    ::create();
    SetKeyName("jennybot");
    SetId(({"guide","guidebot","fembot","bot","jennifer","android","jenny","robot","woman","lady"}));
    SetAdjectives(({"orientation","young","female","polite","pretty","guide","newbie","simple","extremely"}));
    SetGender("female");
    SetShort("a polite young woman");
    SetLong("On closer inspection, this attractive "+
      "young lady is no lady at all...she's an android! "+
      "She appears to be totally motionless and frozen "+
      "in place, with a friendly smile. Perhaps you "+
      "can make her do something by typing: activate bot ");
    SetInventory(([
	"/domains/campus/armor/pillbox_hat" : "wear hat",
	"/domains/campus/armor/wglove_r" : "wear white right glove",
	"/domains/campus/armor/wglove_l" : "wear white left glove",
	"/domains/campus/armor/necklace" : "wear necklace on neck",
	"/domains/campus/armor/bluedress" : "wear dress",
      ]));
    SetMelee(1);
    SetLevel(99);
    SetRace("android");
    SetAction(1, ({
	"Jenny straightens her hair.",
	"Jenny the guide bot touches up her rouge a bit.", 
	"Jenny smiles."}));
    AddCommandResponse("shutdown", (: deactivate_bot :));
    AddCommandResponse("shut down", (: deactivate_bot :) );
    AddCommandResponse("shut up", (: deactivate_bot :));
    AddCommandResponse("go away", (: deactivate_bot :) );
    set_heart_beat(1);
    ob=this_object();
    count=210;
    tip=0;
    tipnumber = 16;
    greeting = 0;
    greetwait = 0;
}

varargs int eventGreet(string newbie){
    object noob;
    string guy,prespiel,spiel;
    if((!newbie || newbie == "") && !noobster){
	return 0;
    }
    if(!newbie || newbie == "") newbie = noobster->GetKeyName();
    if(newbie && newbie != "there") noob = find_player(newbie);
    if(newbie && newbie != "there") guy = noob->GetName();
    else guy = "there";
    tell_room(environment(this_object()),"The polite young "+
      "lady springs to life!\n");
    //spiel = "%^BOLD%^CYAN%^ Hello, "+noob->GetName()+"! "+
    prespiel = "Jennybot says, \"%^BOLD%^CYAN%^ Hello, "+guy;
    spiel = read_file("/domains/campus/txt/jenny/spiel.txt");
    tell_room(environment(this_object()),prespiel+spiel);
    tell_room(environment(this_object()),"\n\t%^RED%^activate bot%^RESET%^\n");
    tell_room(environment(this_object()),"The polite young "+
      "woman becomes totally motionless again.");
    noob->SetProperty("greeted",1);
    return 1;
}

int eventCheckNoob(){
    mixed tmp;
    object array people;
    people=(get_livings(environment(this_object()),1));
    if(sizeof(people)){
	foreach(object dude in people){
	    int greeted;
	    greeted = dude->GetProperty("greeted");
	    if(!greeted && dude->GetLevel() < 2 ) {
		greeting = 1;
		noobster = dude;
	    }
	}
    }
    return 1;
}

void init(){
    ::init();
    add_action("activate_bot","activate");
    add_action("deactivate_bot","deactivate");
    add_action("next_tip","next");
    add_action("get_p","gp");
    eventCheckNoob();
}

int next_tip(string str){
    if(!str) return;
    if(str=="") return;
    if(str="tip"){
	if(active != 1) { write("Jennybot is not active."); return 1; }
	if(tip == tipnumber) ob->eventForce("say Sorry. No more tips.");
	else {
	    this_object()->eventDoTip(tip);
	}
	return 1;
    }
}
int refreshlist(){
    string playername;
    playername = this_player()->GetName();
    watchlist=explode(read_file("/domains/campus/txt/moochers.txt"),":");
    if(member_array(playername,watchlist) != -1) {
	mooch = 1;
	return 1;
    }
    watchlist = ({ playername }) + watchlist;
    watchline = implode(watchlist,":");
    unguarded( (: write_file("/domains/campus/txt/moochers.txt",watchline,1) :) );
    return 1;
}
int deactivate_bot(string str){
    if(!str) return 0;
    //if(str != "bot") return 0;
    if(member_array(str, GetId()) == -1) return 0;
    if( active == 0 ){
	write("Jennybot is already inactive.");
    }
    //set_heart_beat(0);
    tip = 0;
    if( active != 0) {
	tell_room(this_object(),"Jenny nods and becomes motionless again, "+
	  "her expression now fixed and staring out into "+
	  "space.");
    }
    active=0;
    return 1;
}
int activate_bot(string str){
    player=this_player();
    name=this_player()->GetName();
    if(!str) return 0;
    //if(str != "bot") return 0;
    if(member_array(str, GetId()) == -1) return 0;	
    if(active==1){
	write("Jennybot has already been activated.");
	return 1;
    }
    refreshlist();
    active=1;
    hb=0;
    tip=1;
    //set_heart_beat(1);
    write("The female android comes to life! She "+
      "smiles at you and straightens her dress.");
    ob->eventForce("say Hello, "+name+"! I'm Jenny, the LPC University "+
      "newbie guide bot. I'm an extremely simple android, so "+
      "please don't expect a lot of interactivity.");
    ob->eventForce("smile "+name);
    ob->eventForce("say I'm here to give you a few "+
      "tips. To deactivate me, simply "+
      "type: deactivate bot.\n"+
      "To jump to the next tip, type: next tip");
    return 1;
}
int eventAct4(){
    if(!new("/domains/campus/obj/list")->eventMove(this_object())){
	tell_room(environment(this_object()),"Oops! There's a bug, "+
	  "and I don't have a list for you. Let's pretend I gave you "+
	  "one and move on. Please email Cratylus about this, though.");
	return 1;
    }
    if(player && environment(this_object()) == environment(player)) {
	eventForce("give list to "+player->GetName());
    }
    return 1;
}
int eventAct6(){
    if(!new("/domains/campus/obj/map")->eventMove(this_object())){ 
	tell_room(environment(this_object()),"Oops! There's a bug, "+
	  "and I don't have a map for you. Let's pretend I gave you "+ 
	  "one and move on. Please email Cratylus about this, though."); 
	return 1;
    }
    if(player && environment(this_object()) == environment(player)) {
	eventForce("give map to "+player->GetName());
    }
    return 1;
}
int eventAct8(){
    if(mooch == 1 || !new("/domains/campus/armor/newbie_cap")->eventMove(this_object())){
	tell_room(environment(this_object()),"Oops! There's a bug, "+
	  "and I don't have a hat for you. Let's pretend I gave you "+
	  "one and move on. Please email Cratylus about this, though.");
    }
    if(mooch == 1 || !new("/domains/campus/obj/squirtbag")->eventMove(this_object())){
	tell_room(environment(this_object()),"Oops! There's a bug, "+
	  "and I don't have a bag for you. Let's pretend I gave you "+
	  "one and move on. Please email Cratylus about this, though.");
    }
    if(player && environment(this_object()) == environment(player)) {
	eventForce("give cap to "+player->GetName());
    }
    if(player && environment(this_object()) == environment(player)) {
	eventForce("give bag to "+player->GetName());
    }
    return 1;
}
int eventAct9(){
    eventForce("smile "+player->GetName());
    if(!new("/domains/campus/meals/badapple")->eventMove(this_object())){
	tell_room(environment(this_object()),"Oops! There's a bug, "+
	  "and I don't have a rotten apple for you. Let's pretend I gave you "+
	  "one and move on. Please email Cratylus about this, though.");
    }
    if(!new("/domains/campus/meals/apple")->eventMove(this_object())){
	tell_room(environment(this_object()),"Oops! There's a bug, "+
	  "and I don't have an apple for you. Let's pretend I gave you "+
	  "one and move on. Please email Cratylus about this, though.");
    }
    if(player && environment(this_object()) == environment(player)) {
	eventForce("give first apple to "+player->GetName());
	eventForce("give my apple to "+player->GetName());
	return 1;
    }
}
int eventAct11(){
    eventForce("smirk");
    return 1;
}
int eventSwitch(int arg){
    switch(arg){
    case 4:eventAct4();break;
    case 6:eventAct6();break;
    case 8:eventAct8();break;
    case 9:eventAct9();break;
    case 11:eventAct11();break;
    default:write("");break;
	return 1;
    }
}
int eventDoTip(int i){
    tip++;
    hb=0;
    eventSwitch(i);
    if(tip > tipnumber) {
	this_object()->deactivate_bot("bot");
	return 1;
    }
    tell_room(environment(this_object()),read_file("/domains/campus/txt/jenny/"+i+".txt"));

}
void heart_beat(){
    hb++;
    if(greeting) greetwait++;
    if(noobster && greetwait > 0){
	eventGreet();
	noobster = 0;
	greetwait = 0;
	greeting = 0;
    }
    if(hb > 20 && active) eventDoTip(tip);
}