#include <lib.h>
inherit LIB_BOT;
inherit LIB_ACTIVATE;

object player, bot, ob, noobster;
static string name, watchline;
static int count, active, tip, tipnumber, current_tip, hb, mooch, greeting, greetwait;
string *watchlist = ({});
static string save_file = "/domains/campus/save/jennybot.o";

string LongDesc(){
    string ret;
    if(!active){
        ret = "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 ";
    }
    else {
        ret = "On closer inspection, this attractive "+
        "young lady is no lady at all...she's an android! "+
        "She appears to be in the middle of giving an orientation "+
        "on this mud, with bizarrely friendly mannerisms. Perhaps you "+
        "can make her be quiet by typing: deactivate bot ";
    }
    return ret;
}


static void create(){
    AddSave(({ "players" }) );
    ::create();
    restore_object(save_file);
    SetKeyName("jennybot");
    SetId(({"guide","guidebot","fembot","bot","jennifer","niffy","android","jenny","robot","woman","lady"}));
    SetAdjectives(({"orientation","young","female","polite","pretty","guide","newbie","simple","extremely"}));
    SetGender("female");
    SetShort("a polite young woman");
    SetLong( (: LongDesc :) );
    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", (: eventTurnOff :));
    AddCommandResponse("shut down", (: eventTurnOff :) );
    AddCommandResponse("shut up", (: eventTurnOff :));
    AddCommandResponse("go away", (: eventTurnOff :) );
    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(noob && newbie != "there") guy = noob->GetName();
    else guy = "there";
    tell_room(environment(this_object()),"The polite young "+
      "lady springs to life!\n");
    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");
    eventForce("yell DEDDA SORUZE: GETTO DA ZE!");
    tell_room(environment(this_object()),"The polite young "+
      "woman becomes totally motionless again.");
    noob->SetProperty("greeted",1);
    return 1;
}

int eventCheckNoob(){
    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("next_tip","next");
    eventCheckNoob();
}

int next_tip(string str){
    if(!str) return 0;
    if(str=="") return 0;
    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()->GetKeyName();
    if(member_array(playername, watchlist) != -1) mooch = 1;
    else {
        watchlist += ({ playername });
        mooch = 0;
    }
    watchlist = distinct_array(watchlist);
    unguarded( (: save_object(save_file,1) :) );
    return 1;
}

int eventTurnOff(){
    if( active == 0 ){
        write("Jennybot is already inactive.");
    }
    tip = 0;
    if( active != 0) {
        eventForce("yell DEDDA SORUZE: GETTO DA ZE!");
        tell_room(environment(this_object()),"Jenny nods and becomes motionless again, "+
          "her expression now fixed and staring out into "+
          "space.");
    }
    active=0;
    return 1;
}

int eventTurnOn(){
    if(!ob) ob = this_object();
    player=this_player();
    name=this_player()->GetName();
    if(!name || !sizeof(name)) name = "player";
    if(active==1){
        write("Jennybot has already been activated.");
        return 1;
    }
    refreshlist();
    active=1;
    hb=0;
    tip=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/note")->eventMove(this_object())){
        tell_room(environment(this_object()),"Oops! There's a bug, "+
          "and I don't have a note for you. Let's pretend I gave you "+
          "one and move on. Please email your admin about this, though.");
        return 1;
    }
    if(player && environment(this_object()) == environment(player)) {
        eventForce("give note 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 your admin about this, though."); 
        return 1;
    }
    if(player && environment(this_object()) == environment(player)) {
        eventForce("give map to "+player->GetName());
    }
    return 1;
}

int eventAct8(){
    if(mooch || !new("/domains/campus/armor/newbie_cap")->eventMove(this_object())){
        tell_room(environment(this_object()),
          "I don't have a hat for you. Let's pretend I gave you "+
          "one and move on.");
    }
    if(mooch || !new("/domains/campus/obj/squirtbag")->eventMove(this_object())){
        tell_room(environment(this_object()),
          "I don't have a bag for you. Let's pretend I gave you "+
          "one and move on.");
    }
    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 your admin 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 your admin 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()->eventTurnOff("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);
}