Fixed problem with Kitten animation code that caused Bocfel to crash.

[rfk-inform.git] / kitten.inf

diff --git a/kitten.inf b/kitten.inf
index 52272732d1b0e6d4ef038f243382b72844b80790..e203c26c84d6f39038570453f32d4a97077fc00d 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(____)
 !
 !
@@ -16,6 +16,9 @@
 ! Lots more information on robotfindskitten is available at
 ! http://www.robotfindskitten.org.
 !
+! This rendition of robotfindskitten is distributed under the Artistic
+! License 2.0.  See the file LICENSE in the robotfindskitten repository
+! or https://opensource.org/licenses/Artistic-2.0 for more information.
 !
 ! In this game, you are Robot (#).  Your job is to find Kitten.  This
 ! task is complicated by the existance of various things which are not
@@ -23,7 +26,6 @@
 ! not.  Move Robot with the cursor keys, the numeric keypad, or
 ! using the vi/rogue movement keys. The game ends when robotfindskitten.
 ! Alternatively, you may end the game by hitting the Esc or Q keys.
-!
 ! 
 ! Notes:
 !      1) More than half of the code is taken up by non kitten items
@@ -50,8 +52,8 @@ Constant Nonkitten_Default 20;
 !
 Constant Nonkitten_Max 589;
 
-Release 7;
-Serial "130320";
+Release 8;
+!Serial "19xxxx";
 
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
@@ -115,8 +117,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) {
@@ -171,7 +173,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!";
 
@@ -295,10 +297,10 @@ by Leonard Richardson (C) 1997, 2000.^
 Written originally for the Nerth Pork robotfindskitten contest.^
 Reimplemented in Inform by David Griffith (C) 2002.^
 ^
-This code is freely redistributable.  Do with it what you will, but
-don't go about claiming you wrote it.  I, David Griffith, retain
-copyright on this program except for the NKIs imported from the master
-(aka POSIX) port.^
+This code is distributed according to the Artistic License 2.0.  See
+https://opensource.org/licenses/Artistic-2.0 for more information. I,
+David Griffith, retain copyright on this program except for the NKIs
+imported from the master (aka POSIX) port.^
 ^
 Lots more information on robotfindskitten is available at
 http://www.robotfindskitten.org.^
@@ -352,6 +354,11 @@ Modular release.^
 - NKIs now generated from an external file using nki2inf.pl.^
 - NKIs reduced to 723 because of redundancies and recommended deletions.^
 ^
+Release 8 / Serial Number 19xxxx^
+Another release.^
+- Fixed a potential problem of wrongly determining screen size.^
+- Now distributed under the Artistic License 2.0.^
+^
 ^
 Known Bugs:^
 ^
@@ -686,7 +693,8 @@ Global last_right = false;
                if (anim_finished == false) {
                        j = TopBar - 1;
                        @set_cursor 1 Width;
-                       @aread junk 0 10 pause -> junk;
+                       @read_char 1 10 pause -> junk;
+                       @nop;   ! This is for padding.
                } else {
                        style reverse;
                        draw_object(player_x, player_y, '#');