! Copyright (C) 2019 Jason Self <j@jxself.org>
!
! This file is free software: you may copy, redistribute gand/or
! modify it under the terms of the GNU Affero General Public License
! as published by the Free Software Foundation, either version 3 of
! the License, or (at your option) any later version.
!
! This file is distributed in the hope that it will be useful, but
! WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
! Affero General Public License for more details.
!
! You should have received a copy of the GNU Affero General Public
! License along with this file. If not, see https://gnu.org/licenses/
Global guardscalled = 0;
Constant DEATH_MENTION_UNDO;
Constant MAX_SCORE = 7;
Constant Story "Homeland";
Constant Headline 
    "^A work of interactive fiction.
    ^If you get stuck try typing HELP.
    ^Ongoing development: https://jxself.org/git/?p=homeland.git
    ^Send bugs and feedback by email to j@@64jxself.org.
    ^IFID AC0898CB-0668-4853-9EB9-757958D4AF56
    ^Copyright (C) 2019 Jason Self
    ^You can change and share this game under the terms of the GNU 
    Affero General Public License as published by the Free Software 
    Foundation (FSF), either version 3 of the License, or (at your 
    option) any later version published by the FSF. See the GNU Affero 
    General Public License for more details.^^You should have received 
    a copy of this game's source code along with a copy of the GNU 
    Affero General Public License so that you can know your rights. 
    If not, contact the place you got it from.^^";
Include "parser";
Include "verblib";
Release 0;
Serial "190728";
Include "src/objects/kitchen.inf";
Include "src/objects/livingroom.inf";
Include "src/objects/bedroom.inf";
Include "src/objects/grandlivingroom.inf";
Include "src/objects/sidewalk.inf";
Include "src/objects/frontporch.inf";
Include "src/objects/neighborlivingroom.inf";
Include "src/objects/backyard.inf";
Include "src/objects/neighborkitchen.inf";
Include "src/objects/campsite.inf";

[ DeathMessage;
    if (deadflag == 3)
        print "To Be Continued";
];

[ PrintRank;
    print ", earning you the rank of ";
    if (score == 0)
        "Novice.";
    if (score == 1)
        "Trained.";
    if (score == 2)
        "Skilled.";
    if (score == 3)
        "Talented.";
    if (score == 4)
        "Capable.";
    if (score == 5)
        "Adept.";
    if (score == 6)
        "Proficient.";
    if (score >= 7)
        print "Versed.";
];

[ Initialise;
    Location = Kitchen;
    print "^It happened again.^^";
    print 
        "While reading the morning newspaper, there was another small 
        explosion from your neighbor's home. This time you were able 
        to see a series of three bright blue sparks that your friends 
        were talking about from your kitchen window through the 
        curtains covering their living room windows.^^";
    print 
        "You crane your neck out the window to look, but all is 
        quiet. ~What's going on over there?~ you wonder.^^";
    StartDaemon(machine);
];

[ URL;
    print 
        "^If you need help try some of the commands from: 
        ^http://pr-if.org/doc/play-if-card/^";
];

[ XyzzySub;
    print "Nothing obvious happens.^";
    return true;
];

[ HelpSub;
    if (location == kitchen && window hasnt open) {
        print 
            "It might be nice to open that window and get some
            fresh air.^";
    }
    if (location == kitchen && window has open) {
        print 
            "That window seems almost large enough to climb 
            through.^";
    }
    if (location == livingroom || location == bedroom || location == 
    sidewalk || location == frontporch && window hasnt open) {
        print 
            "Maybe you should go back to the kitchen and try the 
            HELP command again.^";
    }
    if (location == livingroom || location == bedroom || location == 
    sidewalk || location == frontporch && window has open) {
        print 
            "That window in your kitchen seems just large enough to 
            climb through...^";
    }
    if (television hasnt on && television.watch_count < 3) {
        print "I wonder what's on TV?^";
    }
    if (television has on && television.watch_count < 3) {
        print 
            "The TV show U.S. News And Grue Report is usually very 
            informative.^";
    }
    if (TestScope(poker)) {
        print 
            "The poker looks like it could make an effective 
            weapon.^";
    }
    URL();
    return true;
];

Include "grammar";

Verb 'About'
    * -> Version;

Verb 'Info'
    * -> Version;

Verb 'Help'
    * -> Help;

Verb 'Clue'
    * -> Help;

Verb 'xyzzy'
    * -> Xyzzy;

Verb 'lick' = 'eat';

Verb 'snort' = 'smell';

Verb 'jam' = 'put';

Verb 'jab' = 'put';

Verb 'stick' = 'put';

Verb 'thrust' = 'put';

Verb 'crawl'
    * 'through' / 'out' / 'via' noun -> Go;

Verb 'escape'
    * 'through' / 'out' / 'via' noun -> Go;

Extend 'jump'
    * 'through' / 'out' / 'via' noun -> Go;

Extend 'climb'
    * 'through' / 'out' / 'via' noun -> Go;

Extend 'go'
    * 'through' / 'out' / 'via' noun -> Go;

Extend 'attack'
    * noun 'with' noun -> Attack;