#!/usr/bin/env perl
#
# Copyright (C) 2018 Jason Self <j@jxself.org>
#
# You can redistribute and/or modify this file 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
# <http://www.gnu.org/licenses/>.
#
# This file contains verb default routines. They are only called as a 
# last resort, if the player's input was not already handled elsewhere 
# in the game.

use strict;
use warnings;

sub v_magic {
    print "Nothing obvious happens.\n";
}

sub v_scream {
    print "Aaaarrrrgggghhhh!\n";
}

# Fix this to conditionally print 'a' or 'an' based on whether the 
# PRSO has the vowel flag set.
sub wind_up {
    print "You cannot wind up a prso.\n";
}

sub v_win {
    print "Haha - It's not that easy.\n";
}

sub v_wish {
    print "With luck, your wish will come true.\n";
}

# Call this to kill the player and end the game.
sub jigs_up {
    print "\n\n*** You have died. ***\n\n";
    exit;
}

1;