Backward LanguageLM routine (lines 414-941)
Back to List
At End
Browsing English.h
414 [ LanguageLM n x1;
415 Answer,Ask:
416 "There is no reply.";
417 ! Ask: see Answer
418 Attack: "Violence isn't the answer to this one.";
419 Blow: "You can't usefully blow ", (thatorthose) x1, ".";
420 Burn: "This dangerous act would achieve little.";
421 Buy: "Nothing is on sale.";
422 Climb: "I don't think much is to be achieved by that.";
423 Close: switch (n) {
424 1: print_ret (ctheyreorthats) x1, " not something you can close.";
425 2: print_ret (ctheyreorthats) x1, " already closed.";
426 3: "You close ", (the) x1, ".";
427 }
428 CommandsOff: switch (n) {
429 1: "[Command recording off.]";
430 #Ifdef TARGET_GLULX;
431 2: "[Command recording already off.]";
432 #Endif; ! TARGET_
433 }
434 CommandsOn: switch (n) {
435 1: "[Command recording on.]";
436 #Ifdef TARGET_GLULX;
437 2: "[Commands are currently replaying.]";
438 3: "[Command recording already on.]";
439 4: "[Command recording failed.]";
440 #Endif; ! TARGET_
441 }
442 CommandsRead: switch (n) {
443 1: "[Replaying commands.]";
444 #Ifdef TARGET_GLULX;
445 2: "[Commands are already replaying.]";
446 3: "[Command replay failed. Command recording is on.]";
447 4: "[Command replay failed.]";
448 5: "[Command replay complete.]";
449 #Endif; ! TARGET_
450 }
451 Consult: "You discover nothing of interest in ", (the) x1, ".";
452 Cut: "Cutting ", (thatorthose) x1, " up would achieve little.";
453 Dig: "Digging would achieve nothing here.";
454 Disrobe: switch (n) {
455 1: "You're not wearing ", (thatorthose) x1, ".";
456 2: "You take off ", (the) x1, ".";
457 }
458 Drink: "There's nothing suitable to drink here.";
459 Drop: switch (n) {
460 1: if (x1 has pluralname) print (The) x1, " are "; else print (The) x1, " is ";
461 "already here.";
462 2: "You haven't got ", (thatorthose) x1, ".";
463 3: "(first taking ", (the) x1, " off)";
464 4: "Dropped.";
465 }
466 Eat: switch (n) {
467 1: print_ret (ctheyreorthats) x1, " plainly inedible.";
468 2: "You eat ", (the) x1, ". Not bad.";
469 }
470 EmptyT: switch (n) {
471 1: print_ret (The) x1, " can't contain things.";
472 2: print_ret (The) x1, " ", (isorare) x1, " closed.";
473 3: print_ret (The) x1, " ", (isorare) x1, " empty already.";
474 4: "That would scarcely empty anything.";
475 }
476 Enter: switch (n) {
477 1: print "But you're already ";
478 if (x1 has supporter) print "on "; else print "in ";
479 print_ret (the) x1, ".";
480 2: if (x1 has pluralname) print "They're"; else print "That's";
481 print " not something you can ";
482 switch (verb_word) {
483 'stand': "stand on.";
484 'sit': "sit down on.";
485 'lie': "lie down on.";
486 default: "enter.";
487 }
488 3: "You can't get into the closed ", (name) x1, ".";
489 4: "You can only get into something free-standing.";
490 5: print "You get ";
491 if (x1 has supporter) print "onto "; else print "into ";
492 print_ret (the) x1, ".";
493 6: print "(getting ";
494 if (x1 has supporter) print "off "; else print "out of ";
495 print (the) x1; ")";
496 7: if (x1 has supporter) "(getting onto ", (the) x1, ")^";
497 if (x1 has container) "(getting into ", (the) x1, ")^";
498 "(entering ", (the) x1, ")^";
499 }
500 Examine: switch (n) {
501 1: "Darkness, noun. An absence of light to see by.";
502 2: "You see nothing special about ", (the) x1, ".";
503 3: print (The) x1, " ", (isorare) x1, " currently switched ";
504 if (x1 has on) "on."; else "off.";
505 }
506 Exit: switch (n) {
507 1: "But you aren't in anything at the moment.";
508 2: "You can't get out of the closed ", (name) x1, ".";
509 3: print "You get ";
510 if (x1 has supporter) print "off "; else print "out of ";
511 print_ret (the) x1, ".";
512 4: print "But you aren't ";
513 if (x1 has supporter) print "on "; else print "in ";
514 print_ret (the) x1, ".";
515 }
516 Fill: "But there's no water here to carry.";
517 FullScore: switch (n) {
518 1: if (deadflag) print "The score was "; else print "The score is ";
519 "made up as follows:^";
520 2: "finding sundry items";
521 3: "visiting various places";
522 4: print "total (out of ", MAX_SCORE; ")";
523 }
524 GetOff: "But you aren't on ", (the) x1, " at the moment.";
525 Give: switch (n) {
526 1: "You aren't holding ", (the) x1, ".";
527 2: "You juggle ", (the) x1, " for a while, but don't achieve much.";
528 3: print (The) x1;
529 if (x1 has pluralname) print " don't"; else print " doesn't";
530 " seem interested.";
531 }
532 Go: switch (n) {
533 1: print "You'll have to get ";
534 if (x1 has supporter) print "off "; else print "out of ";
535 print_ret (the) x1, " first.";
536 2: print_ret (string) CANTGO__TX; ! "You can't go that way."
537 3: "You are unable to climb ", (the) x1, ".";
538 4: "You are unable to descend by ", (the) x1, ".";
539 5: "You can't, since ", (the) x1, " ", (isorare) x1, " in the way.";
540 6: print "You can't, since ", (the) x1;
541 if (x1 has pluralname) " lead nowhere."; else " leads nowhere.";
542 }
543 Insert: switch (n) {
544 1: "You need to be holding ", (the) x1, " before you can put ", (itorthem) x1,
545 " into something else.";
546 2: print_ret (Cthatorthose) x1, " can't contain things.";
547 3: print_ret (The) x1, " ", (isorare) x1, " closed.";
548 4: "You'll need to take ", (itorthem) x1, " off first.";
549 5: "You can't put something inside itself.";
550 6: "(first taking ", (itorthem) x1, " off)^";
551 7: "There is no more room in ", (the) x1, ".";
552 8: "Done.";
553 9: "You put ", (the) x1, " into ", (the) second, ".";
554 }
555 Inv: switch (n) {
556 1: "You are carrying nothing.";
557 2: print "You are carrying";
558 3: print ":^";
559 4: print ".^";
560 }
561 Jump: "You jump on the spot, fruitlessly.";
562 JumpOver,Tie:
563 "You would achieve nothing by this.";
564 Kiss: "Keep your mind on the game.";
565 Listen: "You hear nothing unexpected.";
566 ListMiscellany: switch (n) {
567 1: print " (providing light)";
568 2: print " (which ", (isorare) x1, " closed)";
569 3: print " (closed and providing light)";
570 4: print " (which ", (isorare) x1, " empty)";
571 5: print " (empty and providing light)";
572 6: print " (which ", (isorare) x1, " closed and empty)";
573 7: print " (closed, empty and providing light)";
574 8: print " (providing light and being worn";
575 9: print " (providing light";
576 10: print " (being worn";
577 11: print " (which ", (isorare) x1, " ";
578 12: print "open";
579 13: print "open but empty";
580 14: print "closed";
581 15: print "closed and locked";
582 16: print " and empty";
583 17: print " (which ", (isorare) x1, " empty)";
584 18: print " containing ";
585 19: print " (on ";
586 20: print ", on top of ";
587 21: print " (in ";
588 22: print ", inside ";
589 }
590 LMode1: " is now in its normal ~brief~ printing mode, which gives long descriptions
591 of places never before visited and short descriptions otherwise.";
592 LMode2: " is now in its ~verbose~ mode, which always gives long descriptions
593 of locations (even if you've been there before).";
594 LMode3: " is now in its ~superbrief~ mode, which always gives short descriptions
595 of locations (even if you haven't been there before).";
596 Lock: switch (n) {
597 1: if (x1 has pluralname) print "They don't "; else print "That doesn't ";
598 "seem to be something you can lock.";
599 2: print_ret (ctheyreorthats) x1, " locked at the moment.";
600 3: "First you'll have to close ", (the) x1, ".";
601 4: if (x1 has pluralname) print "Those don't "; else print "That doesn't ";
602 "seem to fit the lock.";
603 5: "You lock ", (the) x1, ".";
604 }
605 Look: switch (n) {
606 1: print " (on ", (the) x1, ")";
607 2: print " (in ", (the) x1, ")";
608 3: print " (as ", (object) x1, ")";
609 4: print "^On ", (the) x1;
610 WriteListFrom(child(x1),
611 ENGLISH_BIT+RECURSE_BIT+PARTINV_BIT+TERSE_BIT+CONCEAL_BIT+ISARE_BIT);
612 ".";
613 5,6:
614 if (x1 ~= location) {
615 if (x1 has supporter) print "^On "; else print "^In ";
616 print (the) x1, " you";
617 }
618 else print "^You";
619 print " can ";
620 if (n == 5) print "also ";
621 print "see ";
622 WriteListFrom(child(x1),
623 ENGLISH_BIT+RECURSE_BIT+PARTINV_BIT+TERSE_BIT+CONCEAL_BIT+WORKFLAG_BIT);
624 if (x1 ~= location) "."; else " here.";
625 7: "You see nothing unexpected in that direction.";
626 }
627 LookUnder: switch (n) {
628 1: "But it's dark.";
629 2: "You find nothing of interest.";
630 }
631 Mild: "Quite.";
632 Miscellany: switch (n) {
633 1: "(considering the first sixteen objects only)^";
634 2: "Nothing to do!";
635 3: print " You have died ";
636 4: print " You have won ";
637 5: print "^Would you like to RESTART, RESTORE a saved game";
638 #Ifdef DEATH_MENTION_UNDO;
639 print ", UNDO your last move";
640 #Endif;
641 if (TASKS_PROVIDED == 0) print ", give the FULL score for that game";
642 if (deadflag == 2 && AMUSING_PROVIDED == 0)
643 print ", see some suggestions for AMUSING things to do";
644 " or QUIT?";
645 6: "[Your interpreter does not provide ~undo~. Sorry!]";
646 #Ifdef TARGET_ZCODE;
647 7: "~Undo~ failed. [Not all interpreters provide it.]";
648 #Ifnot; ! TARGET_GLULX
649 7: "[You cannot ~undo~ any further.]";
650 #Endif; ! TARGET_
651 8: "Please give one of the answers above.";
652 9: "^It is now pitch dark in here!";
653 10: "I beg your pardon?";
654 11: "[You can't ~undo~ what hasn't been done!]";
655 12: "[Can't ~undo~ twice in succession. Sorry!]";
656 13: "[Previous turn undone.]";
657 14: "Sorry, that can't be corrected.";
658 15: "Think nothing of it.";
659 16: "~Oops~ can only correct a single word.";
660 17: "It is pitch dark, and you can't see a thing.";
661 18: print "yourself";
662 19: "As good-looking as ever.";
663 20: "To repeat a command like ~frog, jump~, just say ~again~, not ~frog, again~.";
664 21: "You can hardly repeat that.";
665 22: "You can't begin with a comma.";
666 23: "You seem to want to talk to someone, but I can't see whom.";
667 24: "You can't talk to ", (the) x1, ".";
668 25: "To talk to someone, try ~someone, hello~ or some such.";
669 26: "(first taking ", (the) not_holding, ")";
670 27: "I didn't understand that sentence.";
671 28: print "I only understood you as far as wanting to ";
672 29: "I didn't understand that number.";
673 30: "You can't see any such thing.";
674 31: "You seem to have said too little!";
675 32: "You aren't holding that!";
676 33: "You can't use multiple objects with that verb.";
677 34: "You can only use multiple objects once on a line.";
678 35: "I'm not sure what ~", (address) pronoun_word, "~ refers to.";
679 36: "You excepted something not included anyway!";
680 37: "You can only do that to something animate.";
681 #Ifdef DIALECT_US;
682 38: "That's not a verb I recognize.";
683 #Ifnot;
684 38: "That's not a verb I recognise.";
685 #Endif;
686 39: "That's not something you need to refer to in the course of this game.";
687 40: "You can't see ~", (address) pronoun_word, "~ (", (the) pronoun_obj,
688 ") at the moment.";
689 41: "I didn't understand the way that finished.";
690 42: if (x1 == 0) print "None"; else print "Only ", (number) x1;
691 print " of those ";
692 if (x1 == 1) print "is"; else print "are";
693 " available.";
694 43: "Nothing to do!";
695 44: "There are none at all available!";
696 45: print "Who do you mean, ";
697 46: print "Which do you mean, ";
698 47: "Sorry, you can only have one item here. Which exactly?";
699 48: print "Whom do you want";
700 if (actor ~= player) print " ", (the) actor;
701 print " to "; PrintCommand(); print "?^";
702 49: print "What do you want";
703 if (actor ~= player) print " ", (the) actor;
704 print " to "; PrintCommand(); print "?^";
705 50: print "Your score has just gone ";
706 if (x1 > 0) print "up"; else { x1 = -x1; print "down"; }
707 print " by ", (number) x1, " point";
708 if (x1 > 1) print "s";
709 51: "(Since something dramatic has happened, your list of commands has been cut short.)";
710 52: "^Type a number from 1 to ", x1, ", 0 to redisplay or press ENTER.";
711 53: "^[Please press SPACE.]";
712 54: "[Comment recorded.]";
713 55: "[Comment NOT recorded.]";
714 56: print ".^";
715 57: print "?^";
716 }
717 No,Yes: "That was a rhetorical question.";
718 NotifyOff:
719 "Score notification off.";
720 NotifyOn: "Score notification on.";
721 Objects: switch (n) {
722 1: "Objects you have handled:^";
723 2: "None.";
724 3: print " (worn)";
725 4: print " (held)";
726 5: print " (given away)";
727 6: print " (in ", (name) x1, ")";
728 7: print " (in ", (the) x1, ")";
729 8: print " (inside ", (the) x1, ")";
730 9: print " (on ", (the) x1, ")";
731 10: print " (lost)";
732 }
733 Open: switch (n) {
734 1: print_ret (ctheyreorthats) x1, " not something you can open.";
735 2: if (x1 has pluralname) print "They seem "; else print "It seems ";
736 "to be locked.";
737 3: print_ret (ctheyreorthats) x1, " already open.";
738 4: print "You open ", (the) x1, ", revealing ";
739 if (WriteListFrom(child(x1), ENGLISH_BIT+TERSE_BIT+CONCEAL_BIT) == 0) "nothing.";
740 ".";
741 5: "You open ", (the) x1, ".";
742 }
743 Order: print (The) x1;
744 if (x1 has pluralname) print " have"; else print " has";
745 " better things to do.";
746 Places: switch (n) {
747 1: print "You have visited: ";
748 2: print ".^";
749 }
750 Pray: "Nothing practical results from your prayer.";
751 Prompt: print "^>";
752 Pronouns: switch (n) {
753 1: print "At the moment, ";
754 2: print "means ";
755 3: print "is unset";
756 4: "no pronouns are known to the game.";
757 5: ".";
758 }
759 Pull,Push,Turn: switch (n) {
760 1: if (x1 has pluralname) print "Those are "; else print "It is ";
761 "fixed in place.";
762 2: "You are unable to.";
763 3: "Nothing obvious happens.";
764 4: "That would be less than courteous.";
765 }
766 ! Push: see Pull
767 PushDir: switch (n) {
768 1: "Is that the best you can think of?";
769 2: "That's not a direction.";
770 3: "Not that way you can't.";
771 }
772 PutOn: switch (n) {
773 1: "You need to be holding ", (the) x1, " before you can put ",
774 (itorthem) x1, " on top of something else.";
775 2: "You can't put something on top of itself.";
776 3: "Putting things on ", (the) x1, " would achieve nothing.";
777 4: "You lack the dexterity.";
778 5: "(first taking ", (itorthem) x1, " off)^";
779 6: "There is no more room on ", (the) x1, ".";
780 7: "Done.";
781 8: "You put ", (the) x1, " on ", (the) second, ".";
782 }
783 Quit: switch (n) {
784 1: print "Please answer yes or no.";
785 2: print "Are you sure you want to quit? ";
786 }
787 Remove: switch (n) {
788 1: if (x1 has pluralname) print "They are"; else print "It is";
789 " unfortunately closed.";
790 2: if (x1 has pluralname) print "But they aren't"; else print "But it isn't";
791 " there now.";
792 3: "Removed.";
793 }
794 Restart: switch (n) {
795 1: print "Are you sure you want to restart? ";
796 2: "Failed.";
797 }
798 Restore: switch (n) {
799 1: "Restore failed.";
800 2: "Ok.";
801 }
802 Rub: "You achieve nothing by this.";
803 Save: switch (n) {
804 1: "Save failed.";
805 2: "Ok.";
806 }
807 Score: switch (n) {
808 1: if (deadflag) print "In that game you scored "; else print "You have so far scored ";
809 print score, " out of a possible ", MAX_SCORE, ", in ", turns, " turn";
810 if (turns ~= 1) print "s";
811 return;
812 2: "There is no score in this story.";
813 }
814 ScriptOff: switch (n) {
815 1: "Transcripting is already off.";
816 2: "^End of transcript.";
817 3: "Attempt to end transcript failed.";
818 }
819 ScriptOn: switch (n) {
820 1: "Transcripting is already on.";
821 2: "Start of a transcript of";
822 3: "Attempt to begin transcript failed.";
823 }
824 Search: switch (n) {
825 1: "But it's dark.";
826 2: "There is nothing on ", (the) x1, ".";
827 3: print "On ", (the) x1;
828 WriteListFrom(child(x1), ENGLISH_BIT+TERSE_BIT+CONCEAL_BIT+ISARE_BIT);
829 ".";
830 4: "You find nothing of interest.";
831 5: "You can't see inside, since ", (the) x1, " ", (isorare) x1, " closed.";
832 6: print_ret (The) x1, " ", (isorare) x1, " empty.";
833 7: print "In ", (the) x1;
834 WriteListFrom(child(x1), ENGLISH_BIT+TERSE_BIT+CONCEAL_BIT+ISARE_BIT);
835 ".";
836 }
837 Set: "No, you can't set ", (thatorthose) x1, ".";
838 SetTo: "No, you can't set ", (thatorthose) x1, " to anything.";
839 Show: switch (n) {
840 1: "You aren't holding ", (the) x1, ".";
841 2: print_ret (The) x1, " ", (isorare) x1, " unimpressed.";
842 }
843 Sing: "Your singing is abominable.";
844 Sleep: "You aren't feeling especially drowsy.";
845 Smell: "You smell nothing unexpected.";
846 #Ifdef DIALECT_US;
847 Sorry: "Oh, don't apologize.";
848 #Ifnot;
849 Sorry: "Oh, don't apologise.";
850 #Endif;
851 Squeeze: switch (n) {
852 1: "Keep your hands to yourself.";
853 2: "You achieve nothing by this.";
854 }
855 Strong: "Real adventurers do not use such language.";
856 Swim: "There's not enough water to swim in.";
857 Swing: "There's nothing sensible to swing here.";
858 SwitchOff: switch (n) {
859 1: print_ret (ctheyreorthats) x1, " not something you can switch.";
860 2: print_ret (ctheyreorthats) x1, " already off.";
861 3: "You switch ", (the) x1, " off.";
862 }
863 SwitchOn: switch (n) {
864 1: print_ret (ctheyreorthats) x1, " not something you can switch.";
865 2: print_ret (ctheyreorthats) x1, " already on.";
866 3: "You switch ", (the) x1, " on.";
867 }
868 Take: switch (n) {
869 1: "Taken.";
870 2: "You are always self-possessed.";
871 3: "I don't suppose ", (the) x1, " would care for that.";
872 4: print "You'd have to get ";
873 if (x1 has supporter) print "off "; else print "out of ";
874 print_ret (the) x1, " first.";
875 5: "You already have ", (thatorthose) x1, ".";
876 6: if (noun has pluralname) print "Those seem "; else print "That seems ";
877 "to belong to ", (the) x1, ".";
878 7: if (noun has pluralname) print "Those seem "; else print "That seems ";
879 "to be a part of ", (the) x1, ".";
880 8: print_ret (Cthatorthose) x1, " ", (isorare) x1,
881 "n't available.";
882 9: print_ret (The) x1, " ", (isorare) x1, "n't open.";
883 10: if (x1 has pluralname) print "They're "; else print "That's ";
884 "hardly portable.";
885 11: if (x1 has pluralname) print "They're "; else print "That's ";
886 "fixed in place.";
887 12: "You're carrying too many things already.";
888 13: "(putting ", (the) x1, " into ", (the) SACK_OBJECT, " to make room)";
889 }
890 Taste: "You taste nothing unexpected.";
891 Tell: switch (n) {
892 1: "You talk to yourself a while.";
893 2: "This provokes no reaction.";
894 }
895 Think: "What a good idea.";
896 ThrowAt: switch (n) {
897 1: "Futile.";
898 2: "You lack the nerve when it comes to the crucial moment.";
899 }
900 ! Tie: see JumpOver.
901 Touch: switch (n) {
902 1: "Keep your hands to yourself!";
903 2: "You feel nothing unexpected.";
904 3: "If you think that'll help.";
905 }
906 ! Turn: see Pull.
907 Unlock: switch (n) {
908 1: if (x1 has pluralname) print "They don't "; else print "That doesn't ";
909 "seem to be something you can unlock.";
910 2: print_ret (ctheyreorthats) x1, " unlocked at the moment.";
911 3: if (x1 has pluralname) print "Those don't "; else print "That doesn't ";
912 "seem to fit the lock.";
913 4: "You unlock ", (the) x1, ".";
914 }
915 VagueGo: "You'll have to say which compass direction to go in.";
916 Verify: switch (n) {
917 1: "The game file has verified as intact.";
918 2: "The game file did not verify as intact, and may be corrupt.";
919 }
920 Wait: "Time passes.";
921 Wake: "The dreadful truth is, this is not a dream.";
922 WakeOther:"That seems unnecessary.";
923 Wave: switch (n) {
924 1: "But you aren't holding ", (thatorthose) x1, ".";
925 2: "You look ridiculous waving ", (the) x1, ".";
926 }
927 WaveHands:"You wave, feeling foolish.";
928 Wear: switch (n) {
929 1: "You can't wear ", (thatorthose) x1, "!";
930 2: "You're not holding ", (thatorthose) x1, "!";
931 3: "You're already wearing ", (thatorthose) x1, "!";
932 4: "You put on ", (the) x1, ".";
933 }
934 ! Yes: see No.
935 ];
936
937 ! ==============================================================================
938
939 Constant LIBRARY_ENGLISH; ! for dependency checking.
940
941 ! ==============================================================================
Last updated 27 February 2004. The librarian in charge of this page is Graham Nelson (graham@gnelson.demon.co.uk) assisted by C Knight. Please email any comments, suggestions or corrections to cedenqs@inform-fiction.org.