/*
    PlayDungeon.cpp
    CIS 250
    2014-03-11
    David Klick
    Modified 2017-02-15
      - added ITEM as a valid data input for dungeon
      - added ability for rooms to hold objects
      - added ability for player to carry objects
      - added additional commands to parser: inv, take, drop, help
      - revamped parser to handle two word commands
      - added code to support an actual goal
      - added a considerable amount of debugging information
      - condensed two describeRoom functions into one function

    This is the driver to play a simple text-based dungeon
    game.
*/
#include "tlist.h"
#include "Dungeon.h"
#include <cstdlib>
#include <ctype.h>
#include <fstream>
#include <iostream>
#include <string>
#include <cstring>
#include <vector>
#include <cstddef>
using std::cerr;
using std::cin;
using std::cout;
using std::cout;
using std::endl;
using std::ifstream;
using std::string;
using std::vector;

string toLowerCase(string);
string toUpperCase(string);
void processLine(Dungeon&, string&);
string trim(string);
void readFile(Dungeon&, const char*);
void describeRoom(Room*);
Item* findItem(Room* room, string nm);

int main(int argc, char* argv[]) {
    Room* room;
    Path* path;
    tlist<Item> inv;
    bool done = false;
    char* buf = new char[500];
    const char* fileName = "dungeon.txt";
    int datafileCount = 0;
    int i;
    bool debug = false;
    bool error = false;
    string action, object;
    vector<string> commands;

    // create dungeon
    Dungeon dungeon;

    // parse options and arguments to program
    for (i=1; i<argc; i++) {
        if (strcmp(argv[i], "-d") == 0) {
            debug = true;
        } else if ((strlen(argv[i]) > 0) && (argv[i][0] == '-')) {
            cerr << "Unrecognized option: " << argv[i] << endl;
            error = true;
        } else {
            if (datafileCount > 1) {
                cerr << "Error: Multiple data files specified" << endl;
                cerr << "Usage: " << argv[0] << " datafileName\n";
                error = true;
            } else {
                fileName = argv[i];
                datafileCount++;
            }
        }
    }

    // end program if error encountered
    if (error) {
        exit(1);
    }

    try {
        // read in data file to populate dungeon
        readFile(dungeon, fileName);

        // initialize dungeon
        if (dungeon.rooms.length() == 0) {
            throw string("Error: No rooms in dungeon");
        }
        if (dungeon.currentRoom == "") {
            dungeon.currentRoom = (dungeon.rooms.get(0))->id;
        }
        // display debugging info if requested
        if (debug) {
            cout << "Debugging information:\n";
            cout << "Number of rooms: " << dungeon.rooms.length() << endl;
            cout << "List of rooms:\n";
            for (int i=0; i<dungeon.rooms.length(); i++) {
                room = dungeon.rooms.get(i);
                cout << "  Room #" << i << ": " << room->id << " (" << room->name << ")\n";
                cout << "        " << room->description << "\n";
                if (room->paths.length() > 0) cout << "  Paths:\n";
                for (int k=0; k < room->paths.length(); k++) {
                    Path* tempPath = room->paths.get(k);
                    cout << "    Path: " << tempPath->direction << " to " << tempPath->to << '\n';
                }
                if (room->items.length() > 0) cout << "  Items:\n";
                for (int m=0; m< room->items.length(); m++) {
                    cout << "    " << room->items.get(m)->description << '\n';
                }
            }
            cout << "Starting room: " << dungeon.currentRoom << endl;
            cout << "And now... on to the game\n\n\n";
        }

        // play the game
        while (!done) {
            Room* current = dungeon.getRoom(dungeon.currentRoom);
            if (current == NULL) throw string("Error: Current room is unknown.\n");
            describeRoom(current);
            if (toLowerCase(current->id) == "outside") {
                cout << "Congratulations! You have won the game.\n";
                done = true;
                break;
            }
            cout << "Enter command: ";
            cin.getline(buf, 500, '\n');
            string command(buf);
            command = trim(toLowerCase(command));
            commands.clear();
            char* cstr = new char[command.length() + 1];
            strcpy(cstr, command.c_str());
            char* cmdPtr = strtok(cstr, " ");
            while (cmdPtr != NULL) {
                commands.push_back(string(cmdPtr));
                cmdPtr = strtok(NULL, " ");
            }

            if (commands.size() == 0 || commands.size() > 2) cout << "Command not understood\n";
            else { // command is one or two tokens long
                action = commands[0];
                object = (commands.size() > 1) ? commands[1] : "";
                if (action == "go") {
                    action = object;
                    object = "";
                }

                if (action == "drop") {
                    if (object == "") cout << "You must specify an object to drop\n";
                    else {
                        for (i=inv.length()-1; i>=0; i--) {
                            Item* item = inv.get(i);
                            if (item->name == object || object == "all") {
                                current->items.add(item);
                                inv.remove(item);
                                if (object != "all") break;
                            }
                        }
                        Item* item1 = findItem(current, "bike");
                        Item* item2 = findItem(current, "instructor");
                        if (item1 != NULL && item2 != NULL) {
                            current->items.remove(item1);
                            current->items.remove(item2);
                            cout << "The instructor wakes up and gets on the bike.\n";
                            cout << "Before you can ask him what's happening, he pedals off\n";
                            cout << "and leaves the building going south from the east hall.\n";
                            Path* p = new Path("s", "outside");
                            Room* r = dungeon.getRoom("east hall south");
                            r->paths.add(p);
                            string old(" locked");
                            std::size_t found = r->description.rfind(old);
                            if (found != std::string::npos) {
                                (r->description).replace(found, old.length(), " now unlocked");
                            }
                            r->visited = false;
                        }
                    }
                } else if (action == "take") {
                    if (object == "") cout << "You must specify an object to take\n";
                    else {
                        for (i=current->items.length()-1; i>=0; i--) {
                            Item* item = current->items.get(i);
                            if (item->name == object || object == "all") {
                                inv.add(item);
                                current->items.remove(item);
                                break;
                            }
                        }
                    }
                } else if (action == "inv") {
                    cout << "You are carrying: ";
                    if (inv.length() == 0) cout << "nothing";
                    else {
                        for (i=0; i<inv.length(); i++) {
                            if (i > 0) cout << ", ";
                            cout << inv.get(i)->name;
                        }
                    }
                    cout << '\n';
                } else if (action == "quit") {
                        done = true;
                } else if (action == "exit") {
                        cout << "Use 'quit' to end the game.\n";
                } else if (action == "help") {
                        cout << "Commands are: help, quit, look, drop, take, go, inv, and the exit directions\n";
                } else if (action == "look") {
                        current->visited = false;
                } else {
                        path = current->getPath(action);
                        if (path == NULL) {
                            cout << "Unknown command. Try again.\n";
                        } else {
                            room = dungeon.getRoom(path->to);
                            if (room == NULL) {
                                cout << "Path doesn't lead to a known room.\n";
                            } else {
                                dungeon.currentRoom = room->id;
                            }
                        }
                }
            }
        }
        cout << "Thanks for playing. Visit again soon.\n";
    } catch (string msg) {
        cerr << msg << endl;
    }

    return 0;
}
// routine to process a dungeon data file
// this will throw an exception if it has any problems
void readFile(Dungeon& dungeon, const char* filename) {
    ifstream ifile(filename);
    if (!ifile) {
        throw string("Error: Could not open data file");
    }
    char buf[2000];
    string linein, previousLine;
    do {
        ifile.getline(buf, 2000, '\n');
        if (ifile.eof()) break;
        if (!ifile) {
            throw string("Error: Problem reading data file");
        }
        string temp(buf);
        if (temp.length() == 0) continue;
        string start = temp.substr(0,5);
        if (start=="ROOM:" || start=="PATH:" || start=="INIT:" || start=="ITEM:") {
            processLine(dungeon, previousLine);
            previousLine = "";
        }
        if (previousLine.length() > 0) previousLine = previousLine + " ";
        previousLine = previousLine + trim(temp);
    } while (!ifile.eof());
    processLine(dungeon, previousLine);
    ifile.close();
}
// routine to process one line of a dungeon data file
// this will throw an exception if it has any problems
void processLine(Dungeon& dungeon, string& line) {
    string start = line.substr(0,5);
    string field1, field2, field3;
    field1 = field2 = field3 = "";
    if (start == "ROOM:" || start == "PATH:" || start == "ITEM:") {
        int pos1 = line.find(':', 0);
        if (pos1==(int)string::npos) {
            throw string("Error: Problem parsing data file");
        }
        int pos2 = line.find(':', pos1+1);
        if (pos2==(int)string::npos) {
            throw string("Error: Problem parsing data file");
        }
        int pos3 = line.find(':', pos2+1);
        if (pos3==(int)string::npos) {
            throw string("Error: Problem parsing data file");
            return;
        }
        field1 = line.substr(pos1+1, pos2-pos1-1);
        field1 = trim(field1);
        field2 = line.substr(pos2+1, pos3-pos2-1);
        field2 = trim(field2);
        field3 = line.substr(pos3+1, line.length()-pos3-1);
        field3 = trim(field3);
        if (start == "ROOM:") {
            if (dungeon.getRoom(field1) != NULL) {
                throw string("Error: Duplicate room ID found in input file");
            }
            Room* room = new Room(field1, field2, field3);
            dungeon.rooms.add(room);
        } else if (start == "PATH:") {
            Room* room = dungeon.getRoom(field2);
            if (room == NULL) {
                throw string("Error: Path from unknown room encountered in input file");
            }
            Path* path = room->getPath(field1);
            if (path != NULL) {
                throw string("Error: Duplicate path source encountered in input file");
            }
            path = new Path(field1, field3);
            room->paths.add(path);
        } else { // start must be "ITEM:"
            Room* room = dungeon.getRoom(field3);
            if (room == NULL) {
                throw string("Error: Item placed in unknown room");
            } else {
                room->items.add(new Item(field1, field2, field3));
            }
        }
    } else if (start == "INIT:") {
        field2 = line.substr(5);
        field2 = trim(field2);
        dungeon.currentRoom = trim(field2);
    }
    return;
}

// eliminates spaces from beginning and end of a string
string trim(string src) {
    string s(src);
    int pos1 = s.find_first_not_of(" \t\n");
    int pos2 = s.find_last_not_of(" \t\n");
    if ((pos1 != (int)string::npos) && (pos2 != (int)string::npos)) {
        s = s.substr(pos1,pos2-pos1+1);
    }
    return s;
}

// prints room description
// diplays short description if room is marked as
// visited and long description otherwise
void describeRoom(Room* room) {
    int i;
    cout << "You are in " << room->id << '\n';
    if (!room->visited) cout << room->description << '\n';
    if (room->paths.length() == 0) {
        cout << "There are no exits\n";
    } else {
        for (i=0; i< room->items.length(); i++) {
            cout << (room->items.get(i))->description << '\n';
        }
        cout << "Exits are: ";
        for (i=0; i< room->paths.length(); i++) {
            if (i > 0) cout << ", ";
            cout << (room->paths.get(i))->direction;
        }
        cout << endl;
    }
    room->visited = true;
}

// converts a string to all lower case
string toLowerCase(string src) {
    string s(src);
    for (int i=0; i<(int)s.length(); i++) s[i] = tolower(s[i]);
    return s;
}

// converts a string to all upper case
string toUpperCase(string src) {
    string s(src);
    for (int i=0; i<(int)s.length(); i++) s[i] = toupper(s[i]);
    return s;
}

Item* findItem(Room* room, string nm) {
    int i;
    for (i=0; i< room->items.length(); i++) {
        Item* itm = room->items.get(i);
        if (itm->name == nm) return itm;
    }
    return NULL;
}