Bump release number and stuff to prepare for new release.

[rfk-inform.git] / kitten.inf

diff --git a/kitten.inf b/kitten.inf
index 64a51d81cc06d7f1433aa976a22e679ef93b66ab..e1b2073b1d46dc792ea82e6e9bd33232e57d1a22 100644 (file)
--- a/kitten.inf
+++ b/kitten.inf
@@ -1,10 +1,10 @@
 ! robotfindskitten
 ! A Zen Simulation
-! Release 7 / Serial number 130320 / Inform v6.33
+! Release 8 / Serial number 19xxxx / Inform v6.34
 !
 !     [-]       |\_/|        http://www.robotfindskitten.org
 !     (+)=C     |o o|__      Leonard Richardson (C) 1997, 2000
-!     | |       --*--__\     David Griffith (C) 2002-2013  (Inform Edition)
+!     | |       --*--__\     David Griffith (C) 2002-2019  (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
@@ -53,8 +50,8 @@ Constant Nonkitten_Default 20;
 !
 Constant Nonkitten_Max 589;
 
-Release 7;
-Serial "130320";
+Release 8;
+!Serial "19xxxx";
 
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
@@ -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,21 +105,18 @@ 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;
 
-       Width = $22-->0;
-       Height = $24-->0;
+       Width = $21->0;
+       Height = $20->0;
 
        main_menu();    
        while (true) {
@@ -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-2013 (Inform Edition)";
+       print "David Griffith (C) 2002-2019 (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;
@@ -361,6 +352,10 @@ Modular release.^
 - NKIs now generated from an external file using nki2inf.pl.^
 - NKIs reduced to 723 because of redundancies and recommended deletions.^
 ^
+Release 7 / Serial Number 19xxxx^
+Another release.^
+- Fixed a potential problem of wrongly determining screen size.^
+^
 ^
 Known Bugs:^
 ^
@@ -411,7 +406,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;
@@ -456,7 +450,6 @@ frozen desert beyond. ~FIND KITTEN!~^
 
 
 [ draw_big_robot x y; 
-
        if (x == 0)
                x = 1;
        if (y == 0)
@@ -495,7 +488,6 @@ frozen desert beyond. ~FIND KITTEN!~^
 
 
 [ draw_big_kitten x y;
-
        if (x == 0)
                x = 1;
        if (y == 0)
@@ -530,7 +522,6 @@ frozen desert beyond. ~FIND KITTEN!~^
 
 
 [ draw_big_kitten_psycho x y;
-
        if (x == 0)
                x = 1;
        if (y == 0)
@@ -570,7 +561,6 @@ frozen desert beyond. ~FIND KITTEN!~^
 Global last_right = false;
 
 [ findkitten key i;
-
        @erase_window $ffff;
        @split_window TopBar;
        @set_window 1;
@@ -646,7 +636,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--;