Better to get Width and Height from $21 and $20 of the story file header.

[rfk-inform.git] / kitten.inf

diff --git a/kitten.inf b/kitten.inf
index 72d5b9cf09b3f81c8830e755d745d1340cc532f8..89ce7e3a32b782a5e6b1e9f5cac2dd57bc5f0902 100644 (file)
--- a/kitten.inf
+++ b/kitten.inf
@@ -1,10 +1,10 @@
 ! robotfindskitten
 ! A Zen Simulation
-! Release 7 / Serial number 121119 / Inform v6.32
+! Release 7 / Serial number 130320 / Inform v6.33
 !
 !     [-]       |\_/|        http://www.robotfindskitten.org
 !     (+)=C     |o o|__      Leonard Richardson (C) 1997, 2000
-!     | |       --*--__\     David Griffith (C) 2002  (Inform Edition)
+!     | |       --*--__\     David Griffith (C) 2002-2013  (Inform Edition)
 !     OOO       C_C(____)
 !
 !
@@ -24,9 +24,6 @@
 ! using the vi/rogue movement keys. The game ends when robotfindskitten.
 ! Alternatively, you may end the game by hitting the Esc or Q keys.
 !
-! Developed with Inform 6.21.4 as installed from NetBSD's pkgsrc tree
-! and Frotz 2.42.
-!
 ! 
 ! Notes:
 !      1) More than half of the code is taken up by non kitten items
@@ -54,7 +51,7 @@ Constant Nonkitten_Default 20;
 Constant Nonkitten_Max 589;
 
 Release 7;
-Serial "121119";       ! Presumed release date
+Serial "130320";
 
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
@@ -87,7 +84,7 @@ Global kitten_color = 0;
 
 Global last_message = "";      ! Always show the last-encountered message.
 
-Global nonkitten_count = Nonkitten_Default;
+Global nonkitten_count;
 
 Array nonkitten_x --> Nonkitten_Max;
 Array nonkitten_y --> Nonkitten_Max;
@@ -108,10 +105,9 @@ Array already_msg --> Nonkitten_Max;
 Global Real_Release = 0;
 
 [ Main key;
-
        @set_colour Fore_def Back_def;
 
-       if (MESSAGE_NUM < Nonkitten_Max) {
+       if (MESSAGE_NUM < Nonkitten_Default) {
                nonkitten_count = MESSAGE_NUM;
        } else {
                nonkitten_count = Nonkitten_Default;
@@ -119,8 +115,8 @@ Global Real_Release = 0;
 
        Real_Release = (0-->1)&$03ff;
 
-       Width = $22-->0;
-       Height = $24-->0;
+       Width = $21->0;
+       Height = $20->0;
 
        main_menu();    
        while (true) {
@@ -136,7 +132,6 @@ Global Real_Release = 0;
                'I':    print_instructions();
                'A':    print_about();
                'T':    print_thoughts();
-               'P':    print_all_nki();        ! See print_all_nki() below.
                }
                if (key == 'Q' || key == $1b)   ! $1b == ESC
                        break;
@@ -176,7 +171,7 @@ Global Real_Release = 0;
        @set_cursor 8 30;
        print "Leonard Richardson (C) 1997, 2000";
        @set_cursor 9 30;
-       print "David Griffith (C) 2002  (Inform Edition)";
+       print "David Griffith (C) 2002-2013 (Inform Edition)";
        @set_cursor 10 30;
        print "    ", MESSAGE_NUM, " different nonkittens!";
 
@@ -214,7 +209,6 @@ Constant INBUFSIZE 80;
 Array inbuf -> INBUFSIZE;
 
 [ set_nonkitten_count maxnum val;
-
        while (true) {
                @erase_window $ffff;
                @split_window 5;
@@ -246,7 +240,6 @@ Array inbuf -> INBUFSIZE;
 
 
 [ get_number min max init inbufvar ix cx len val;
-
        while (true) {
                inbuf->0 = (INBUFSIZE-3);
                inbuf->1 = 0;
@@ -289,7 +282,6 @@ Array inbuf -> INBUFSIZE;
 
 
 [ print_about;
-
        @erase_window $ffff;
        @split_window TopBar;
        @set_window 1;
@@ -354,10 +346,11 @@ Challenge release.^
 - Lots more comments in the source code.^
 - Assorted cleanups in the source code.^
 ^
-Release 7 / Serial Number 040523^
-Grammatically correct release.^
-- Grammar corrections from the POSIX port added.^
-- More NKIs added (800 total).^
+Release 7 / Serial Number 130320^
+Modular release.^
+- Synchronized NKIs and removed redundancies with the POSIX port.^
+- NKIs now generated from an external file using nki2inf.pl.^
+- NKIs reduced to 723 because of redundancies and recommended deletions.^
 ^
 ^
 Known Bugs:^
@@ -409,7 +402,6 @@ Alternatively, you may end the game by hitting the Esc or Q keys.^
 
 
 [ print_thoughts;
-
        @erase_window $ffff;
        @split_window TopBar;
        @set_window 1;
@@ -454,7 +446,6 @@ frozen desert beyond. ~FIND KITTEN!~^
 
 
 [ draw_big_robot x y; 
-
        if (x == 0)
                x = 1;
        if (y == 0)
@@ -493,7 +484,6 @@ frozen desert beyond. ~FIND KITTEN!~^
 
 
 [ draw_big_kitten x y;
-
        if (x == 0)
                x = 1;
        if (y == 0)
@@ -528,7 +518,6 @@ frozen desert beyond. ~FIND KITTEN!~^
 
 
 [ draw_big_kitten_psycho x y;
-
        if (x == 0)
                x = 1;
        if (y == 0)
@@ -568,7 +557,6 @@ frozen desert beyond. ~FIND KITTEN!~^
 Global last_right = false;
 
 [ findkitten key i;
-
        @erase_window $ffff;
        @split_window TopBar;
        @set_window 1;
@@ -644,7 +632,6 @@ Global last_right = false;
 
 
 [ animate_kitten key my_last_right i j junk robot_x anim_finished;
-
        switch (key) {
        '8', 'J', 129:  player_y++;
        '2', 'K', 130:  player_y--;
@@ -868,19 +855,3 @@ Global last_right = false;
        }
 ];
 
-
-! This function is mainly of use to members of the robotfindskitten
-! development team.
-!
-! When this function is uncommented and enabled in
-! the menu, this will cause a script file to be written which contains
-! all NKIs properly formatted.
-
-[ print_all_nki num mystring;
-       @output_stream 2; @output_stream -1;
-       for (num = 1: num <= MESSAGE_NUM: num++) {
-               mystring = lookup_msg(num);
-               print (string)lookup_msg(num), "^";
-       }
-       @output_stream -2; @output_stream 1;
-];