src/verbs.pm

   1 #!/usr/bin/env perl
   2 #
   3 # Copyright (C) 2018 Jason Self <j@jxself.org>
   4 #
   5 # You can redistribute and/or modify this file under the terms of the
   6 # GNU Affero General Public License as published by the Free Software
   7 # Foundation, either version 3 of the License, or (at your option) any
   8 # later version.
   9 #
  10 # This file is distributed in the hope that it will be useful, but
  11 # WITHOUT ANY WARRANTY; without even the implied warranty of
  12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
  13 # Affero General Public License for more details.
  14 #
  15 # You should have received a copy of the GNU Affero General Public
  16 # License along with this file. If not, see
  17 # <http://www.gnu.org/licenses/>.
  18 #
  19 # This file contains verb default routines. They are only called as a
  20 # last resort, if the player's input was not already handled elsewhere
  21 # in the game.
  22
  23 use strict;
  24 use warnings;
  25
  26 sub v_magic {
  27     print "Nothing obvious happens.\n";
  28 }
  29
  30 sub v_scream {
  31     print "Aaaarrrrgggghhhh!\n";
  32 }
  33
  34 # Fix this to conditionally print 'a' or 'an' based on whether the
  35 # PRSO has the vowel flag set.
  36 sub wind_up {
  37     print "You cannot wind up a prso.\n";
  38 }
  39
  40 sub v_win {
  41     print "Haha - It's not that easy.\n";
  42 }
  43
  44 sub v_wish {
  45     print "With luck, your wish will come true.\n";
  46 }
  47
  48 # Call this to kill the player and end the game.
  49 sub jigs_up {
  50     print "\n\n*** You have died. ***\n\n";
  51     exit;
  52 }
  53
  54 1;