Adding some new NKIs.

[rfk-inform.git] / kitten.inf

diff --git a/kitten.inf b/kitten.inf
index 6e8ee471d436b817cd8e61e558d5017d4ca91585..52272732d1b0e6d4ef038f243382b72844b80790 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,16 +105,13 @@ Array already_msg --> Nonkitten_Max;
 Global Real_Release = 0;
 
 [ Main key;
-
        @set_colour Fore_def Back_def;
 
-!      if (MESSAGE_NUM < Nonkitten_Max) {
-!              nonkitten_count = MESSAGE_NUM;
-!      } else {
-!              nonkitten_count = Nonkitten_Default;
-!      }
-
-       nonkitten_count = Nonkitten_Default;
+       if (MESSAGE_NUM < Nonkitten_Default) {
+               nonkitten_count = MESSAGE_NUM;
+       } else {
+               nonkitten_count = Nonkitten_Default;
+       }
 
        Real_Release = (0-->1)&$03ff;
 
@@ -177,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!";
 
@@ -215,7 +209,6 @@ Constant INBUFSIZE 80;
 Array inbuf -> INBUFSIZE;
 
 [ set_nonkitten_count maxnum val;
-
        while (true) {
                @erase_window $ffff;
                @split_window 5;
@@ -247,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;
@@ -290,7 +282,6 @@ Array inbuf -> INBUFSIZE;
 
 
 [ print_about;
-
        @erase_window $ffff;
        @split_window TopBar;
        @set_window 1;
@@ -355,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:^
@@ -410,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;
@@ -455,7 +446,6 @@ frozen desert beyond. ~FIND KITTEN!~^
 
 
 [ draw_big_robot x y; 
-
        if (x == 0)
                x = 1;
        if (y == 0)
@@ -494,7 +484,6 @@ frozen desert beyond. ~FIND KITTEN!~^
 
 
 [ draw_big_kitten x y;
-
        if (x == 0)
                x = 1;
        if (y == 0)
@@ -529,7 +518,6 @@ frozen desert beyond. ~FIND KITTEN!~^
 
 
 [ draw_big_kitten_psycho x y;
-
        if (x == 0)
                x = 1;
        if (y == 0)
@@ -569,7 +557,6 @@ frozen desert beyond. ~FIND KITTEN!~^
 Global last_right = false;
 
 [ findkitten key i;
-
        @erase_window $ffff;
        @split_window TopBar;
        @set_window 1;
@@ -645,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--;