! Robot Finds Kitten
! A Zen Simulation
-! Release 1 / Serial number 021123 / Inform v6.21
+! Release 3 / Serial number 021221 / Inform v6.21
!
! [-] |\_/| http://www.robotfindskitten.org
-! (+)={ |o o|__ Leonard Richardson (C) 1997, 2000
+! (+)=C |o o|__ Leonard Richardson (C) 1997, 2000
! | | --*--__\ David Griffith (C) 2002 (Inform Edition)
-! OOO C_C(___)
+! OOO C_C(____)
!
!
! This Zen simulation is based on the C version v1600003.248b
! Kitten. Alternatively, you may end the game by hitting the Esc or Q
! keys.
!
-! Developed with Inform 6.21 as installed from NetBSD's pkgsrc tree.
+! Developed with Inform 6.21.2 as installed from NetBSD's pkgsrc tree
+! and Frotz 2.42.
+!
!
! Compile it with:
! inform "-~S" kitten.inf <-- Assuming Unix
! Notes:
! 1) More than half of the code is taken up by non-kitten
! messages. When I compiled the code with just five messages and
-! no debugging code, the resulting binary was only 9728 bytes.
-! With all 280+ messages, it's 20992 bytes.
+! no debugging code, the resulting binary was less than 10k bytes.
!
! 2) If it wasn't already abundantly obvious, this program won't
! compile to Glulx because of copious use of Z-machine assembly
! instructions.
!
!
-! Still to do:
+! Release History:
!
-! Implement colors (is it really necessary?)
+! Release 1 / Serial number 0211xx to 021214 or so
+! Initial private release. Limited distribution for beta testing and
+! debugging purposes.
!
-! Is there some way I can hide the cursor completely?
-! I want to do this and manually set Robot to be in reverse type rather
-! than relying on the cursor to look like that. Ahah! "@set_cursor -1
-! turns the cursor off, "@set_cursor -2" turns it back on. Hmm. This
-! doesn't seem to work.
!
-! It seems every now and then the kitten doesn't gets placed somewhere
-! where the robot can't get to it. Under a non-kitten?
+! Release 2 / Serial Number 021216
+! First public release.
+!
+!
+! Release 3 / Serial Number 0212xx
+! Bugfix release.
+! Movement keys 'J' and 'K' were swapped by mistake. Fixed.
+! Special PalmOS movement key support added.
+! More NKIs added (401 total).
!
-! already_seen_msg in get_random_msg() still doesn't work correctly!
-! Probably the already_seen_xy() thing doesn't work either.
-
!Switches xv5s;
Switches v5;
-! Maxmimum possible number of non-kitten items on the playfield at once.
-!
-Constant Nonkitten_Max 256;
-
-Constant Nonkitten_Default 20;
! Number of messages
+! This must be updated when adding new messages.
!
-Constant MESSAGE_NUM 283;
+Constant MESSAGE_NUM 401;
+Constant Nonkitten_Default 20;
-Release 1;
-!Serial "021129";
+! Maxmimum possible number of non-kitten items on the playfield at once.
+!
+Constant Nonkitten_Max 256;
-! Not currently implemented
-! Global palm_mode = false;
+Release 3;
+Serial "021221";
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Constant Anim_Meet 10;
+Global Palm_Movement = false;
+
Global Height = 0;
Global Width = 0;
-Global Color = false;
-
Global TopBar = 5;
Global player_x = 0;
Global kitten_x = 0;
Global kitten_y = 0;
Global kitten_char = 0;
-!Global kitten_color = 0;
Global last_message = "";
Array nonkitten_y --> Nonkitten_Max;
Array nonkitten_char --> Nonkitten_Max;
Array nonkitten_msg --> Nonkitten_Max;
-!Array nonkitten_color --> Nonkitten_Max;
Global already_msg_count = 0;
Global already_count = 0;
Array already_msg --> Nonkitten_Max;
+Global Real_Release = 0;
+
[ Main key;
- if ((1->0)&1 == 0)
- Color = true;
- else
- Color = false;
+
+ if (MESSAGE_NUM < Nonkitten_Max) {
+ nonkitten_count = MESSAGE_NUM;
+ } else {
+ nonkitten_count = Nonkitten_Default;
+ }
+
+ ! If a key is held down while the found_kitten animation is playing,
+ ! (0-->1) & $03ff gets corrupted. Seems like it might be a bug
+ ! somewhere in Unix Frotz.
+ !
+ Real_Release = (0-->1)&$03ff;
+
+ Width = $22-->0;
+ Height = $24-->0;
main_menu();
while (true) {
key = getkey();
switch (key) {
'F': already_count = 0;
+ init_nonkittens();
init_kitten();
init_robot();
- init_nonkittens();
while (findkitten())
;
- 'D': nonkitten_count = set_nonkitten_count();
+ 'D': set_nonkitten_count();
+ 'P': set_palm_mode();
+! 'W': set_width(10, 255);
+! 'H': set_height(10, 255);
'I': print_instructions();
'A': print_about();
'T': print_thoughts();
}
- if (key == 'Q' || key == $1b)
+ if (key == 'Q' || key == $1b) ! $1b == ESC
break;
main_menu();
}
[ main_menu;
- Width = $22-->0;
- Height = $24-->0;
-
@erase_window $ffff;
@split_window 11;
@set_window 1;
draw_big_robot(3, 7);
draw_big_kitten(15, 7);
-
@set_cursor 7 30;
- print "robotfindskitten";
- @set_cursor 8 30;
print "http://www.robotfindskitten.org";
- @set_cursor 9 30;
+ @set_cursor 8 30;
print "Leonard Richardson (C) 1997, 2000";
- @set_cursor 10 30;
+ @set_cursor 9 30;
print "David Griffith (C) 2002 (Inform Edition)";
+ @set_cursor 10 30;
+ print " ", MESSAGE_NUM, " different nonkittens!";
@set_window 0;
print " F) Find Kitten^";
print " D) Difficulty (", nonkitten_count, ")^";
+ print " P) Palm movement keys (";
+ if (palm_movement) print "on"; else print "off";
+ print ")^";
+! print " W) Width (", Width, ")^";
+! print " H) Height (", Height, ")^";
print " I) Instructions^";
print " T) Thoughts^";
print " A) About^";
print "^> ";
];
-
+! Copied from module/verblibm.h
+!
[ Banner i;
if (Story ~= 0) {
#IFV5;
if (Headline ~= 0) {
print (string) Headline;
}
- print "Release ", (0-->1) & $03ff, " / Serial number ";
+ print "Release ", Real_Release, " / Serial number ";
for (i=18:i<24:i++) print (char) 0->i;
print " / Inform v"; inversion; print " ";
#ifdef STRICT_MODE;
new_line;
];
+[ set_palm_mode key;
+
+ @erase_window $ffff;
+ @split_window 5;
+ @set_window 1;
+ Banner();
+ draw_horiz(TopBar);
+ @set_window 0;
+
+ print "This mode allows you to use the compass rose
+ control commonly presented by PalmOS-based Z-machine
+ interpreters.^
+ ^
+ Turn on PalmOS mode? (y/n) > ";
+
+ key = getkey();
+ switch (key) {
+ 'Y':
+ Palm_Movement = true;
+ print "Y^^PalmOS mode activated.";
+ 'N':
+ Palm_Movement = false;
+ print "N^^PalmOS mode deactivated.";
+ default:
+ if (key ~= $000d)
+ print (char) key;
+
+ print "^^No change.";
+ }
+
+ print "^^[Press any key to continue.] ";
+ getkey();
+ return;
+];
+
Constant INBUFSIZE 80;
Array inbuf -> INBUFSIZE;
-[ set_nonkitten_count inbufvar ix cx len val;
+[ set_nonkitten_count maxnum val;
while (true) {
@erase_window $ffff;
@split_window 5;
draw_horiz(TopBar);
@set_window 0;
+ if (MESSAGE_NUM < Nonkitten_Max) {
+ maxnum = MESSAGE_NUM;
+ } else {
+ maxnum = Nonkitten_Max;
+ }
+
print "^Please enter the number of nonkittens you
- wish to search through.^(1 to 255 only)^^> ";
+ wish to search through.^(1 to ", maxnum, " only)^^> ";
+
+ while (true) {
+ val = get_number(1, maxnum, nonkitten_count);
+ if (val == -1) {
+ break;
+ } else {
+ nonkitten_count = val;
+ return;
+ }
+ }
+ }
+];
+
+
+![ set_width min max val;
+! while (true) {
+! @erase_window $ffff;
+! @split_window 5;
+! @set_window 1;
+! Banner();
+! draw_horiz(TopBar);
+! @set_window 0;
+! print "^Set playfield width
+! (", min, " to ", max, ")^^> ";
+! while (true) {
+! val = get_number(min, max, Width);
+! if (val == -1) {
+! break;
+! } else {
+! Width = val;
+! return;
+! }
+! }
+! }
+!];
+
+
+![ set_height min max val;
+! while (true) {
+! @erase_window $ffff;
+! @split_window 5;
+! @set_window 1;
+! Banner();
+! draw_horiz(TopBar);
+! @set_window 0;
+! print "^Set playfield height
+! (", min, " to ", max, ")^^> ";
+! while (true) {
+! val = get_number(min, max, Height);
+! if (val == -1) {
+! break;
+! } else {
+! Height = val;
+! return;
+! }
+! }
+! }
+!];
+
+[ get_number min max init inbufvar ix cx len val;
+ while (true) {
inbuf->0 = (INBUFSIZE-3);
inbuf->1 = 0;
inbufvar = inbuf;
if (cx < len && inbuf->(2+cx) == '.')
break;
+ ! If user just hit return, use what we have already.
+ if (len == 0)
+ return init;
if (cx == len || inbuf->(2+cx) < '0' || inbuf->(2+cx) > '9') {
- continue;
+ print "Please enter a value from ", min, " to ", max,
+ ", or Enter by itself to exit.^
+ [Press any key to continue.] ";
+ getkey();
+ return -1;
}
-
val = 0;
while (cx < len && inbuf->(2+cx) >= '0' && inbuf->(2+cx) <= '9') {
val = val * 10 + (inbuf->(2+cx) - '0');
cx++;
}
-
- if (val < 1 || val > Nonkitten_Max) {
- print "Please enter a value from 1 to ",
- Nonkitten_Max, ", or Enter by itself to exit.^";
- continue;
+ if (val < min || val > max) {
+ print "Please enter a value from ", min, " to ", max,
+ ", or Enter by itself to exit.^
+ [Press any key to continue.] ";
+ getkey();
+ return -1;
} else break;
}
return val;
];
+
[ print_about;
@erase_window $ffff;
@split_window TopBar;
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.^
+^
Lots more information on Robot Finds Kitten is available at
http://www.robotfindskitten.org.^
^
-Known bugs:^
^
-1) In get_random_msg(), already_seen_msg isn't being checked correctly
-leading to occasional duplicate messages. It looks like it should work.
-Not sure why not.^
+Release History:^
+^
+Release 1 / Serial number 0211xx to 021214 or so^
+Initial private release. Limited distribution for beta testing and
+debugging purposes.^
+^
+Release 2 / Serial Number 021216^
+First public release.^
+^
+Release 3 / Serial Number 021221^
+Bugfix release.^
+- Movement keys 'J' and 'K' were swapped by mistake. Fixed.^
+- Special PalmOS movement key support added.^
+- More NKIs added (401 total).^
+^
+^
+Known Bugs:^
+^
+1) Some bug (I don't know where) in already_seen_xv() causes Robot to
+occasionally get placed on top of another object.^
^
-2) already_seen_xy() probably has problems similar to item 1 above which
-might explain why the kitten occasionally gets placed somewhere where
-the robot can't get to it.
+2) Under Windows Frotz, the Robot used to appear as a solid block. This
+was because of a bug in Windows Frotz which incorrectly makes the cursor
+opaque. The cursor is now moved off to the upper-right corner so that
+the game looks okay on terminals that use something other than reverse
+for the cursor. I still can't figure out how to make Inform hide the
+cursor completely. At least on xterm and NetBSD's console,
+@@64set_cursor -1 doesn't work.^
^
-3) Under Windows Frotz, the Robot appears as a solid block. This is a
-bug in Windows Frotz which incorrectly makes the cursor opaque.^
+3) Under Windows Frotz, an annoying [MORE] prompt appears at the main
+menu. This is another bug in Windows Frotz which causes the
+interpreter to follow Windows' suggestion something less than 24 or 25
+lines is okay.^
^
-4) Under Windows Frotz, an annoying [MORE] prompt appears when the game
-is started. This is another bug in Windows Frotz which believes
-Windows' suggestion to use 20 lines rather than 24 or 25.^
^
+Other Stuff:^
^
-[Press any key to continue.] ";
+1) Is it worth the trouble to implement colors?^
+^
+2) The PalmOS mode works by getting a one or two key sequence from the
+keyboard (N, S, E, W, NW, SW, NE, SE) followed by a carriage return.
+These are translated into the numbers found on a typical numeric
+keypad (8, 2, 6, 4, 7, 1, 9, 3).^
+^
+3) Implemented control of the playfield size for Frobnitz
+users. Results were not satisfactory. The code for this remain in the
+source, but commented out.^
+^
+[Press any key to continue.] ";
getkey();
];
@set_window 0;
print "^
-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
-kitten. Robot must touch items to determine if they are Kitten or
-not. Move Robot with the cursor keys, the numeric keypad, or using the
-vi/rogue movement keys. The game ends when Robot finds
-Kitten. Alternatively, you may end the game by hitting the Esc or Q
-keys.^^
-[Press any key to continue.] ";
+In this game, you are Robot ( ";
+#IFV5; style reverse; #ENDIF;
+print "#";
+#IFV5; style roman; #ENDIF;
+print " ). Your job is to find Kitten. This task
+is complicated by the existance of various things which are not
+Kitten. Robot must touch items to determine if they are Kitten or
+not. Move Robot with the cursor keys, the numeric keypad (make sure
+numlock is on), or using the vi/rogue movement keys. The game ends when
+Robot finds Kitten. Alternatively, you may end the game by hitting the
+Esc or Q keys.^
+^
+[Press any key to continue.] ";
getkey();
];
Day and night I feverishly worked upon the machine, creating both a soul
which could desire its goal, and a body with which it could realize it.
Many who saw my creation called it an abomination, and denied me grant
-money. But they could not dissuade me from my impossible task. It was a
-spectre that tormented me always, a ghost I had to give a form and a
-life, lest it consume me from the inside. And when at last my task was
+money. But they could not dissuade me from my impossible task. It was
+a spectre that tormented me always, a ghost I had to give a form and a
+life, lest it consume me from the inside. And when at last my task was
done, when the grey box on wheels was complete and when it, as well as
-I, knew what had to be done, I felt deep sympathy for the machine. For I
-had not destroyed the phantom, but merely exorcized it into another
-body. The robot knew not why this task had to be performed, for I could
+I, knew what had to be done, I felt deep sympathy for the machine. For
+I had not destroyed the phantom, but merely exorcized it into another
+body. The robot knew not why this task had to be performed, for I could
not imbue it with knowledge I did not myself posess. And at the same
time, I felt a sweeping sense of relief sweep over me, that somehow, the
dream that had driven me for my entire life had come one step closer to
~Gort, Klaatu Verada Nikto~^
^
As I vocally activated the robot, I realized that it was following my
-instructions, but not out of any desire to obey me. Had I remained
-silent, it would have performed exactly the same operations. We were two
-beings controlled by the same force now. And yet, seeking vainly to hold
-some illusion of control over the machine I thought I had created, I
-gave my final command.^
+instructions, but not out of any desire to obey me. Had I remained
+silent, it would have performed exactly the same operations. We were
+two beings controlled by the same force now. And yet, seeking vainly to
+hold some illusion of control over the machine I thought I had created,
+I gave my final command.^
^
~GO!~ I told the box as it began to roll out of my workshop into the
frozen desert beyond. ~FIND KITTEN!~^
^
--- The Book of Found Kittens, pages 43-4, author unknown.^^
-
-
-[Press any key to continue.] ";
+-- The Book of Found Kittens, pages 43-4, author unknown.^
+^
+[Press any key to continue.] ";
getkey();
];
y = y+1;
@set_cursor y x;
- print "| |";
+ print "| |";
y = y+1;
@set_cursor y x;
print "--*--__", (char) 92;
y++;
@set_cursor y x;
- print "C_C(___)";
+ print "C_C(____)";
];
+! Something gets mucked up if make this local to findkitten()
+! When going right or left, then up or down to hit the Kitten, the
+! animation gets reversed.
+!
+Global last_right = false;
-[ findkitten key i kitten_found;
+[ findkitten key i;
@erase_window $ffff;
@split_window TopBar;
@set_window 1;
@set_cursor 1 1;
- kitten_found = false;
-
Banner();
print (string) last_message;
draw_horiz(TopBar);
draw_object(kitten_x, kitten_y, kitten_char);
draw_nonkittens();
+
+ #IFV5; style reverse; #ENDIF;
draw_object(player_x, player_y, '#');
+ #IFV5; style roman; #ENDIF;
- @set_cursor player_y player_x;
+ @set_cursor 1 Width;
- key = getkey();
+ if (Palm_Movement) {
+ key = get_palm_move();
+ } else {
+ key = getkey();
+ }
+
switch (key) {
'Q', $1b: rfalse; ! exit game ($1b == Esc)
- '8', 'J', 129: player_y--; ! up
- '2', 'K', 130: player_y++; ! down
+ '8', 'K', 129: player_y--; ! up
+ '2', 'J', 130: player_y++; ! down
'4', 'H', 131: player_x--; ! left
+ last_right = false;
'6', 'L', 132: player_x++; ! right
+ last_right = true;
+
'7', 'Y': player_y--; player_x--; ! up-left
+ last_right = false;
'9', 'U': player_y--; player_x++; ! up-right
+ last_right = true;
'1', 'B': player_y++; player_x--; ! down-left
+ last_right = false;
'3', 'N': player_y++; player_x++; ! down-right
+ last_right = true;
}
+
if (player_y <= TopBar+1)
player_y = TopBar + 1;
if (player_y > Height)
! detect and handle collisions
!
if (player_x == kitten_x && player_y == kitten_y) {
- found_kitten(key);
+ animate_kitten(key, last_right);
getkey();
rfalse;
}
for (i = 0: i < nonkitten_count: i++) {
- if (player_x == nonkitten_x --> i
- && player_y == nonkitten_y --> i) {
+ if (player_x == nonkitten_x-->i
+ && player_y == nonkitten_y-->i) {
@set_cursor 1 1;
- last_message = lookup_msg(nonkitten_msg --> i);
+ last_message = lookup_msg(nonkitten_msg-->i);
! prevent Robot from walking through the object.
switch (key) {
- '8', 'J', 129: player_y++;
- '2', 'K', 130: player_y--;
+ '8', 'K', 129: player_y++;
+ '2', 'J', 130: player_y--;
'4', 'H', 131: player_x++;
'6', 'L', 132: player_x--;
'7', 'Y': player_y++; player_x++;
];
-[ found_kitten key i j junk go_right robot_x anim_finished;
+[ get_palm_move key1 key2 key3;
+ key1 = getkey();
+ key2 = getkey();
+ if (key2 == $000d) {
+ switch (key1) {
+ 'N': return '8';
+ 'S': return '2';
+ 'E': return '6';
+ 'W': return '4';
+ 'Q': return 'Q';
+ $1b: return $1b;
+ default: return 'Z';
+ }
+ }
+ key3 = getkey();
+ if (key3 == $000d) {
+ switch (key1) {
+ 'N':
+ if (key2 == 'W') return '7';
+ if (key2 == 'E') return '9';
+ return 'Z';
+ 'S':
+ if (key2 == 'W') return '1';
+ if (key2 == 'E') return '3';
+ return 'Z';
+ default:
+ return 'Z';
+ }
+ } else return 'Z';
+];
+
+
+[ animate_kitten key my_last_right i j junk robot_x anim_finished;
- go_right = false;
anim_finished = false;
switch (key) {
'8', 'J', 129: player_y++;
- '2', 'K', 130: player_y--; go_right = true;
- '4', 'H', 131: player_x++;
- '6', 'L', 132: player_x--; go_right = true;
+ '2', 'K', 130: player_y--;
+ '4', 'H', 131: player_x++;
+ '6', 'L', 132: player_x--;
'7', 'Y': player_y++; player_x++;
- '9', 'U': player_y++; player_x--; go_right = true;
+ '9', 'U': player_y++; player_x--;
'1', 'B': player_y--; player_x++;
- '3', 'N': player_y--; player_x--; go_right = true;
- default: go_right = true;
+ '3', 'N': player_y--; player_x--;
}
for (i = 4: i >= 0: i--) {
draw_horiz(TopBar);
if (i > 0) {
- if (go_right) {
+ if (my_last_right) {
robot_x = Anim_Meet - i;
+ #IFV5; style reverse; #ENDIF;
draw_object(robot_x, TopBar - 1, '#');
+ #IFV5; style roman; #ENDIF;
draw_object(Anim_Meet - 1 + i, TopBar - 1, kitten_char);
} else {
robot_x = Anim_Meet - 1 + i;
+ #IFV5; style reverse; #ENDIF;
draw_object(robot_x, TopBar - 1, '#');
+ #IFV5; style roman; #ENDIF;
draw_object(Anim_Meet - i, TopBar - 1, kitten_char);
}
} else {
draw_object(kitten_x, kitten_y, kitten_char);
+ #IFV5; style reverse; #ENDIF;
draw_object(player_x, player_y, '#');
-
+ #IFV5; style roman; #ENDIF;
draw_nonkittens();
if (anim_finished == false) {
j = TopBar - 1;
- @set_cursor j robot_x;
- @aread junk 0 10 pause junk;
+ @set_cursor 1 Width;
+
+ ! simply using "10" as the third argument causes
+ ! the release number to mysteriously change
+ ! if a key is held down during the animation.
+ @aread junk 0 10 pause -> junk;
} else {
+ #IFV5; style reverse; #ENDIF;
draw_object(player_x, player_y, '#');
- @set_cursor player_y player_x;
+ #IFV5; style roman; #ENDIF;
+ @set_cursor 1 Width;
}
}
-
];
-
[ already_seen_xy x y i;
-
for (i = 0: i < already_count: i++) {
- if (already_x --> i == x && already_y --> i == y) {
- return false;
- }
+ if (already_x-->already_count == x &&
+ already_y-->already_count ==y) {
+ rtrue;
+ }
}
- already_x --> already_count = x;
- already_y --> already_count = y;
+ already_x-->already_count = x;
+ already_y-->already_count = y;
already_count++;
-
- if (already_count > nonkitten_count + 2) {
- print "Overflow in already_seen_xy()^";
- quit;
- }
-
- return true;
+ rfalse;
];
kitten_x = get_random_x();
kitten_y = get_random_y();
- while (already_seen_xy(kitten_x, kitten_y) == false) {
+ while (already_seen_xy(kitten_x, kitten_y) == true) {
kitten_x = get_random_x();
kitten_y = get_random_y();
}
player_x = get_random_x();
player_y = get_random_y();
- while (already_seen_xy(player_x, player_y) == false) {
+ while (already_seen_xy(player_x, player_y) == true) {
player_x = get_random_x();
player_y = get_random_y();
}
last_message = "";
for (i = 0: i < nonkitten_count: i++) {
- nonkitten_x --> i = get_random_x();
- nonkitten_y --> i = get_random_y();
+ nonkitten_x-->i = get_random_x();
+ nonkitten_y-->i = get_random_y();
- while (already_seen_xy(nonkitten_x --> i, nonkitten_y --> i) == false) {
- nonkitten_x --> i = get_random_x();
- nonkitten_y --> i = get_random_y();
+ while (already_seen_xy(nonkitten_x-->i,
+ nonkitten_y-->i) == true) {
+ nonkitten_x-->i = get_random_x();
+ nonkitten_y-->i = get_random_y();
}
- nonkitten_char --> i = get_random_char();
- nonkitten_msg --> i = get_random_msg();
+ nonkitten_char-->i = get_random_char();
+ nonkitten_msg-->i = get_random_msg();
}
];
[ draw_nonkittens i;
for (i = 0: i < nonkitten_count: i++) {
- draw_object(nonkitten_x --> i,
- nonkitten_y --> i,
- nonkitten_char --> i);
+ draw_object(nonkitten_x-->i,
+ nonkitten_y-->i,
+ nonkitten_char-->i);
}
];
[ draw_horiz row i;
@set_cursor row 1;
-
for (i = 0 : i < Width : i++)
print (char) '-';
];
];
-![ get_random_color num;
-! num = random(7);
-! num = num + 2;
-! return num;
-!];
-
-
[ get_random_char num;
num = random(93);
num = num + 33;
-
- ! avoid choosing '#' for a random character.
- while (num == 35) {
+ while (num == 35) { ! avoid choosing '#'
num = random(93);
num = num + 33;
}
];
-[ get_random_msg num i found_dup;
- found_dup = false;
+[ get_random_msg num;
num = random(MESSAGE_NUM);
- for (i = 0: i < already_msg_count: i++) {
- while (already_msg --> i == num) {
- num = random(MESSAGE_NUM);
- found_dup = true;
- }
+ while (is_duplicate_msg(num) == true) {
+ num = random(MESSAGE_NUM);
}
+ return num;
+];
- if (found_dup) already_msg_count++;
- if (already_msg_count > nonkitten_count) {
- print "Overflow in get_random_msg()^";
- quit;
- }
- return num;
+[ is_duplicate_msg num i;
+ for (i = 0: i < already_msg_count: i++) {
+ if (already_msg-->i==num) {
+ rtrue;
+ }
+ }
+ already_msg-->already_msg_count = num;
+ already_msg_count++;
+ rfalse;
];
[ get_random_y num ok;
ok = false;
+ ! Make sure we don't draw in the status bar.
while (ok == false) {
num = random(Height);
if (num > TopBar)
];
+! Note:
+! @@126 == '~'
+! @@64 == '@'
+
[ lookup_msg num;
switch(num) {
1: return "~I pity the fool who mistakes me for kitten!~, sez Mr. T.";
94: return "A tribe of cannibals lives here. They eat Malt-O-Meal for breakfast, you know.";
95: return "This appears to be a rather large stack of trashy romance novels.";
96: return "Look out! Exclamation points!";
-97: return "A herd of wild coffee mugs slumbers here.";
+97: return "A herd of wild coffee mugs slumber here.";
98: return "It's a limbo bar! How low can you go?";
99: return "It's the horizon. Now THAT'S weird.";
100: return "A vase full of artificial flowers is stuck to the floor here.";
246: return "A coupon for one free steak-fish at your local family diner.";
247: return "A set of keys to a 2001 Rolls Royce. Worthless.";
-! The following messages were added by David Griffith
+! The following Non Kitten Items were added by David Griffith
!
248: return "It's the Golden Banana of Discord!";
249: return "The Inform Designer's Manual (4th edition)";
254: return "A family of integrals are here integrating.";
255: return "A tuft of kitten fur, but no kitten.";
256: return "A bottle of oil! Refreshing!";
-257: return "A shameless plug for Frotz: http://www.cs.csubak.edu/~dgriffi/proj/frotz/";
+257: return "A shameless plug for Frotz: http://www.cs.csubak.edu/@@126dgriffi/proj/frotz/";
258: return "Clifford Stoll is here selling Klein bottles.";
259: return "You found the marble in the oatmeal!";
260: return "An empty Altoids tin.";
268: return "Several meters of cat5 cable.";
269: return "A scrap of parchment bears the single word, ~meow~.";
270: return "A puddle of chocolate sauce.";
-271: return "Your robot pal Floyd is here and wants to play Hucka-Bucka-Beanstalk.";
+271: return "Your pal Floyd is here and wants to play Hucka-Bucka-Beanstalk.";
272: return "Someone is talking to Ralph on the big white phone here.";
273: return "'Twas brillig in the slivey-toves...";
274: return "Darth Vader is here looking for his Teddywookie.";
-275: return "A bassoon is hooting angrily at you.";
+275: return "A baboon with a bassoon hoots angrily at you.";
276: return "Catsup and Mustard all over the place! It's the Human Hamburger!";
277: return "Gibble, Gobble, we ACCEPT YOU ...";
278: return "A rancid corn dog.";
279: return "It's a tribute to fishnet stockings.";
-280: return "A jar of Vegemite is running down the hill here.";
+280: return "A jar of Vegemite is playing hopscotch here.";
281: return "Nipples, dimples, knuckles, NICKLES, wrinkles, pimples!!";
282: return "A bottle of hair tonic.";
283: return "A packet of catnip.";
+284: return "It's Cal Worthington and his dog ~Spot~!";
+285: return "It's Uncle Doctor Hurkamur!";
+286: return "YEEEEEEEEEEEHAAAAAAAA!!!!!";
+287: return "Thunder, Thunder, Thunder, Thunder Cats!!!";
+288: return "An overturned bottle of ink and lots of kitten pawprints.";
+289: return "A flyer advertising a sale at Spatula City.";
+290: return "A 540Hz tuning fork.";
+291: return "A 3-inch floppy disk.";
+292: return "Seargent Duffy is here.";
+293: return "A ball of pocket fluff.";
+294: return "A 3-sided Monty Python record.";
+295: return "A Sanrio catalog.";
+296: return "A scratching-post.";
+297: return "Butane!!!";
+298: return "An ice cube.";
+299: return "Just a cage of white mice.";
+300: return "You've found Harvey, the Wonder Hamster!";
+301: return "A jar of dehydrated water.";
+302: return "Just some swamp gas.";
+303: return "A bowl of cherries.";
+304: return "Spoon!!!";
+305: return "A sign reads ~Don't step on the Mome Raths~.";
+306: return "Dirty socks.";
+307: return "~Dogbert's tech support, how may I abuse you?~";
+308: return "A radio hisses away. Kitten must have been here.";
+309: return "~Kilroy was here~";
+310: return "~Plexar was here~";
+311: return "~Kibo was here~";
+312: return "It's the cork to someone's lunch.";
+313: return "A piping-hot pizza. Useless.";
+314: return "Diogenes is here demanding whisky.";
+315: return "The Monolith of Spam towers above you.";
+316: return "~Meow meow meow meow...~ How discouraging! It's only a recording.";
+317: return "Marvin is complaining about the pain in the diodes down his left side.";
+318: return "Mr. Kamikaze and Mr. DNA are here drinking tea.";
+319: return "Rene Descarte is whistling a happy tune here.";
+320: return "Ooh, shiny!";
+321: return "It's a giant slorr!";
+322: return "A ketchup bottle (nearly empty).";
+323: return "A large pile of rubber bands.";
+324: return "A ton of feathers.";
+325: return "This non kitten may contain peanuts.";
+326: return "A tree with some jelly nailed to it.";
+327: return "Ah, the skirl of the pipes and the rustle of the silicon...";
+328: return "You found Parakeet. To bad this isn't ~Robot Finds Parakeet~.";
+329: return "A ball of yarn.";
+330: return "A big chunk of frozen chocolate pudding.";
+331: return "There is no tea here.";
+332: return "An automated robot-doubter. It doesn't believe in you.";
+333: return "A plastic model of Kitten.";
+334: return "It's Yorgle, the Yellow Dragon.";
+335: return "It's Grundle, the Green Dragon.";
+336: return "It's Rhindle, the Red Dragon.";
+337: return "An old pattern is here going on and on.";
+338: return "TV says donuts are high in fat.";
+339: return "It's a pool with a straw in it.";
+340: return "A singing frog. Useless.";
+341: return "It's a funky beat!";
+342: return "A tiny ceramic Kitten. It's probably not the Kitten you're looking for.";
+343: return "An oven mitt with kittens on it.";
+344: return "An empty coaxial cable spool.";
+345: return "Billions and billions of things that aren't Kitten.";
+346: return "Snarf?";
+347: return "Faboo!";
+348: return "99 bottles of beer are on a wall here.";
+349: return "Hydraulic fluid and jagged metal bits. You recoil from the scene of carnage.";
+350: return "A bobolink is twittering a happy tune here.";
+351: return "Biscuits.";
+352: return "A blank deposit slip.";
+353: return "What's that blue thing doing here?";
+354: return "A travel-sized cyclotron.";
+355: return "A largish bath towel.";
+356: return "You found Chinchilla! Too bad this isn't ~Robot Finds Chinchilla~.";
+357: return "A meerkat... not even close.";
+358: return "A green yo-yo.";
+359: return "A hairless rat.";
+360: return "Bright copper kettles.";
+
+! The following Non Kitten Items were added by David Griffith for
+! Release 3
+!
+361: return "Ten yards of avocado-green shag carpet.";
+362: return "A zorkmid coin!";
+363: return "It's Babe Flathead's favorite bat.";
+364: return "It's cute like a kitten, but isn't a kitten.";
+365: return "A cyclops glowers angrily at you.";
+366: return "A discarded pop bottle.";
+367: return "Definitely not Kitten.";
+368: return "A mouse.";
+369: return "Slack!";
+370: return "A troll. Ewww!!!";
+371: return "A tube of white lithium grease. Perfect for your robotic joints.";
+372: return "Talcum powder.";
+373: return "A breadbox. Nope, Kitten isn't in the breadbox.";
+374: return "An unlicensed nuclear accelerator.";
+375: return "A sub-atomic particle languishes here all alone.";
+376: return "A bowling ball with the name ~Bob~ inscribed on it.";
+377: return "A briefcase filled with spy stuff.";
+378: return "Is that an elephant's head or a winged sandal?";
+379: return "Bibbidy bibbidy bibbidy bibbidy bibbidy bibbidy...";
+380: return "A tube of toothpaste. Too bad you have no teeth.";
+381: return "This isn't the item you're looking for.";
+382: return "A discarded refrigerator box. Nope, Kitten isn't in the box.";
+383: return "A paper shopping bag. Nope, Kitten isn't in the bag.";
+384: return "A flyer reads, ~Please donate hydraulic fluid~";
+385: return "A dangly thing mangled by Kitten.";
+386: return "A crouton.";
+387: return "A patch from the Mammoth Caves.";
+388: return "A leather pouch filled with multisided dice.";
+389: return "A pair of combat boots.";
+390: return "A pile of coconuts.";
+391: return "A big bass drum bearing a hole and suspicious clawmarks.";
+392: return "It's a clue!";
+393: return "Long lost needle nose pliers.";
+394: return "A vase of roses.";
+395: return "A crystal ball. It doesn't seem to know where Kitten is.";
+396: return "It's Princess Leia, the yodel of life.";
+397: return "Sigmund Freud is here asking about your mother.";
+398: return "BURRRRP!!!! Flavorful and full of protein!";
+399: return "A jar of library paste.";
+400: return "These aren't ordinary beans. They're magic beans!";
+401: return "Some sort of electronic handheld game from the 1970s.";
}
];
projects / rfk-inform.git / blobdiff