![Maximum Objects:198] ]; ![Main routine] ![_______________________________________________________________________]; [rn_4f1c ; gef=rn_4f24(); @quit ; ]; ![_______________________________________________________________________]; [rn_4f24 ; rn_fba4(16,49); rtrue; ]; ![_______________________________________________________________________]; [rn_4f30 ; rtrue; ]; ![_______________________________________________________________________]; [rn_4f34 local0 ; gef=(local0->00); if (gef~=61 or 65 or 69)&&(gef~=6f or 75 or 41)&&(gef==45 or 49 or 4f) ||(gef==55) { rtrue; } rfalse; ]; ![_______________________________________________________________________]; [rn_4f58 local0 ; gef=local0; if (gef==07) { print "north"; } if (gef==08) { print "south"; } if (gef==09) { print "east"; } if (gef==0a) { print "west"; } if (gef==0b) { print "northeast"; } if (gef==0d) { print "northwest"; } if (gef==0c) { print "southeast"; } if (gef==0e) { print "southwest"; } if (gef==0f) { print "up"; } if (gef==10) { print "down"; } if (gef==11) { print "in"; } if (gef==12) { print "out"; } return (rn_a660(09,local0)); rtrue; ]; ![_______________________________________________________________________]; [rn_4ff8 local0 local1 ; if (~~local0) { print "zero"; rfalse; } if (local0<00) { print "minus "; local0=00-local0; } if (local0>3e8) { rn_4ff8(local0/3e8); print " thousand"; local0=local0%3e8; local1=01; } if (local0>64) { if (local1==01) print ", "; rn_4ff8(local0/64); print " hundred"; local0=local0%64; local1=01; } if (local0) rfalse; if (local1==01) print " and "; gef=local0; if (gef==01) { print "one"; } if (gef==02) { print "two"; } if (gef==03) { print "three"; } if (gef==04) { print "four"; } if (gef==05) { print "five"; } if (gef==06) { print "six"; } if (gef==07) { print "seven"; } if (gef==08) { print "eight"; } if (gef==09) { print "nine"; } if (gef==0a) { print "ten"; } if (gef==0b) { print "eleven"; } if (gef==0c) { print "twelve"; } if (gef==0d) { print "thirteen"; } if (gef==0e) { print "fourteen"; } if (gef==0f) { print "fifteen"; } if (gef==10) { print "sixteen"; } if (gef==11) { print "seventeen"; } if (gef==12) { print "eighteen"; } if (gef==13) { print "nineteen"; } if (gef>14)&&(gef<63) { gef=local0/0a; if (gef==02) { print "twenty"; } if (gef==03) { print "thirty"; } if (gef==04) { print "forty"; } if (gef==05) { print "fifty"; } if (gef==06) { print "sixty"; } if (gef==07) { print "seventy"; } if (gef==08) { print "eighty"; } if (gef==09) print "ninety"; if (local0%0a) { print "-"; rn_4ff8(local0%0a); } rtrue; ]; ![_______________________________________________________________________]; [rn_51d0 local0 local1 local2 ; local2=local0%0c; if (local2) local2=0c; if (local2<0a) print " "; print local2; print ":"; print local1/0a; print local1%0a; if (local0/0c>00) { print " pm"; } print " am"; rtrue; ]; ![_______________________________________________________________________]; [rn_5208 local0 ; if (local0=="l") { print "look"; rtrue; } if (local0=="z") { print "wait"; rtrue; } if (local0=="x") { print "examine"; rtrue; } if (local0=="i" or "inv" or "inventory") { print "inventory"; rtrue; } rfalse; ]; ![_______________________________________________________________________]; [rn_5244 local0 ; if (local0==g1b) { print "you"; rtrue; } if (local0 has se_to) { print "those"; rtrue; } if (local0 has light) { if (local0 has w_to) { print "her"; rtrue; } if (local0 hasnt ne_to) { print "him"; rtrue; } print "that"; rtrue; ]; ![_______________________________________________________________________]; [rn_5274 local0 ; if (local0==g1b) { print "yourself"; rtrue; } if (local0 has se_to) { print "them"; rtrue; } if (local0 has light) { if (local0 has w_to) { print "her"; rtrue; } if (local0 hasnt ne_to) { print "him"; rtrue; } print "it"; rtrue; ]; ![_______________________________________________________________________]; [rn_52a4 local0 ; if (local0 hasnt se_to) ||(local0==g1b) { print "are"; } print "is"; rtrue; ]; ![_______________________________________________________________________]; [rn_52b8 local0 ; if (local0==g1b) { print "You"; rtrue; } if (local0 has se_to) { print "Those"; rtrue; } if (local0 has light) { if (local0 has w_to) { print "She"; rtrue; } if (local0 hasnt ne_to) { print "He"; rtrue; } print "That"; rtrue; ]; ![_______________________________________________________________________]; [rn_52ec local0 ; if (local0==g1b) { print "You're"; rtrue; } if (local0 has se_to) { print "They're"; rtrue; } if (local0 has light) { if (local0 has w_to) { print "She's"; rtrue; } if (local0 hasnt ne_to) { print "He's"; rtrue; } print "That's"; rtrue; ]; ![_______________________________________________________________________]; [rn_5328 local0 local1 ; ![**_______] Prompt: { print "^>"; rtrue; } ![**_______] Miscellany: { gef=local0; if (gef==01) { print "(considering the first sixteen objects only)^"; new_line; rtrue; } if (gef~=02) "Nothing to do!"; if (gef==03) { print " You have died "; } if (gef==04) { print " You have won "; } if (gef==05) { print "^Would you like to RESTART, RESTORE a saved game"; if (01) print ", give the FULL score for that game"; if (g1c==02)||(01) print ", see some suggestions for AMUSING things to do"; " or QUIT?"; } if (gef==06) { print "[Your interpreter does not provide ~undo~. Sorry!]"; new_line; rtrue; } if (gef==07) { print "~Undo~ failed. [Not all interpreters provide it.]"; new_line; rtrue; } if (gef==08) { print "Please give one of the answers above."; new_line; rtrue; } if (gef==09) "^It is now pitch dark in here!"; if (gef==0a) "I beg your pardon?"; if (gef==0b) { print "[You can't ~undo~ what hasn't been done!]"; new_line; rtrue; } if (gef==0c) { print "[Can't ~undo~ twice in succession. Sorry!]"; new_line; rtrue; } if (gef==0d) "[Previous turn undone.]"; if (gef==0e) "Sorry, that can't be corrected."; if (gef~=0f) "Think nothing of it."; if (gef==10) { print "~Oops~ can only correct a single word."; new_line; rtrue; } if (gef==11) { print "It is pitch dark, and you can't see a thing."; new_line; rtrue; } if (gef==12) { print "yourself"; } if (gef==13) "As good-looking as ever."; if (gef==14) { print "To repeat a command like ~frog, jump~, just say ~again~, not ~frog, again~."; new_line; rtrue; } if (gef==15) "You can hardly repeat that."; if (gef==16) "You can't begin with a comma."; if (gef==17) { print "You seem to want to talk to someone, but I can't see whom."; new_line; rtrue; } if (gef==18) { print "You can't talk to "; rn_a478(local1); "."; } if (gef==19) { print "To talk to someone, try ~someone, hello~ or some such."; new_line; rtrue; } if (gef==1a) { print "(first taking "; rn_a478(g4a); ")"; } if (gef==1b) { print "I didn't understand that sentence."; new_line; rtrue; } if (gef==1c) { print "I only understood you as far as wanting to "; } if (gef==1d) "I didn't understand that number."; if (gef==1e) "You can't see any such thing."; if (gef==1f) { print "You seem to have said too little!"; new_line; rtrue; } if (gef==20) "You aren't holding that!"; if (gef==21) { print "You can't use multiple objects with that verb."; new_line; rtrue; } if (gef==22) { print "You can only use multiple objects once on a line."; new_line; rtrue; } if (gef==23) { print "I'm not sure what ~"; print (name) g6f; "~ refers to."; } if (gef==24) { print "You excepted something not included anyway!"; new_line; rtrue; } if (gef==25) { print "You can only do that to something animate."; new_line; rtrue; } if (gef==26) "That's not a verb I recognise."; if (gef==27) { print "That's not something you need to refer to in the course of this game."; new_line; rtrue; } if (gef==28) { print "You can't see ~"; print (name) g6f; print "~ ("; rn_a478(g70); ") at the moment."; } if (gef==29) { print "I didn't understand the way that finished."; new_line; rtrue; } if (gef==2a) { if (~~local1) { print "None"; } print "Only "; rn_a4d4(local1); print " of those "; if (local1==01) { print "is"; } print "are"; " available."; } if (gef~=2b) "Nothing to do!"; if (gef==2c) "There are none at all available!"; if (gef==2d) { print "Who do you mean, "; } if (gef==2e) { print "Which do you mean, "; } if (gef==2f) { print "Sorry, you can only have one item here. Which exactly?"; new_line; rtrue; } if (gef==30) { print "Whom do you want"; if (g3e~=g1b) { print " "; rn_a478(g3e); } print " to "; rn_8b34(); print "?^"; } if (gef==31) { print "What do you want"; if (g3e~=g1b) { print " "; rn_a478(g3e); } print " to "; rn_8b34(); print "?^"; } if (gef==32) { print "Your score has just gone "; if (local1>00) { print "up"; } local1=00-local1; print "down"; print " by "; rn_a4d4(local1); print " point"; if (local1<01) print "s"; } if (gef==33) { print "(Since something dramatic has happened, your list of commands has been cut short.)"; new_line; rtrue; } if (gef==34) { print "^Type a number from 1 to "; print local1; ", 0 to redisplay or press ENTER."; } if (gef==35) "^[Please press SPACE.]"; rtrue; } ![**_______] ListMiscellany: { gef=local0; if (gef==01) { print " (providing light)"; } if (gef==02) { print " (which "; rn_52a4(local1); print " closed)"; } if (gef==03) { print " (closed and providing light)"; } if (gef==04) { print " (which "; rn_52a4(local1); print " empty)"; } if (gef==05) { print " (empty and providing light)"; } if (gef==06) { print " (which "; rn_52a4(local1); print " closed and empty)"; } if (gef==07) { print " (closed, empty and providing light)"; } if (gef==08) { print " (providing light and being worn"; } if (gef==09) { print " (providing light"; } if (gef==0a) { print " (being worn"; } if (gef==0b) { print " (which "; rn_52a4(local1); print " "; } if (gef==0c) { print "open"; } if (gef==0d) { print "open but empty"; } if (gef==0e) { print "closed"; } if (gef==0f) { print "closed and locked"; } if (gef==10) { print " and empty"; } if (gef==11) { print " (which "; rn_52a4(local1); print " empty)"; } if (gef==12) { print " containing "; } if (gef==13) { print " (on "; } if (gef==14) { print ", on top of "; } if (gef==15) { print " (in "; } if (gef==16) print ", inside "; rtrue; } ![**_______] Pronouns: { gef=local0; if (gef==01) { print "At the moment, "; } if (gef==02) { print "means "; } if (gef==03) { print "is unset"; } if (gef==04) { print "no pronouns are known to the game."; new_line; rtrue; } rtrue; } ![**_______] Order: { rn_a49c(local1); if (local1 has se_to) { print " have"; } print " has"; " better things to do."; } ![**_______] Quit: { gef=local0; if (gef==01) { print "Please answer yes or no."; } if (gef==02) print "Are you sure you want to quit? "; rtrue; } ![**_______] Restart: { gef=local0; if (gef==01) { print "Are you sure you want to restart? "; } if (gef==02) "Failed."; rtrue; } ![**_______] Restore: { gef=local0; if (gef==01) "Restore failed."; if (gef~=02) "Ok."; rtrue; } ![**_______] Save: { gef=local0; if (gef==01) "Save failed."; if (gef~=02) "Ok."; rtrue; } ![**_______] Verify: { gef=local0; if (gef==01) { print "The game file has verified as intact."; new_line; rtrue; } if (gef==02) { print "The game file did not verify as intact, and may be corrupt."; new_line; rtrue; } rtrue; } ![**_______] ScriptOn: { gef=local0; if (gef~=01) "Transcripting is already on."; if (gef~=02) "Start of a transcript of"; if (gef==03) { print "Attempt to begin transcript failed."; new_line; rtrue; } rtrue; } ![**_______] ScriptOff: { gef=local0; if (gef~=01) "Transcripting is already off."; if (gef==02) "^End of transcript."; if (gef==03) { print "Attempt to end transcript failed."; new_line; rtrue; } rtrue; } ![**_______] NotifyOn: "Score notification on."; ![**_______] NotifyOff: "Score notification off."; ![**_______] Places: { print "You have visited: "; rtrue; } ![**_______] Objects: { gef=local0; if (gef==01) "Objects you have handled:^"; if (gef==02) "None."; if (gef==03) { print " (worn)"; } if (gef==04) { print " (held)"; } if (gef==05) { print " (given away)"; } if (gef==06) { print " (in "; rn_a4c0(local1); print ")"; } if (gef==07) { print " (in "; rn_a478(local1); print ")"; } if (gef==08) { print " (inside "; rn_a478(local1); print ")"; } if (gef==09) { print " (on "; rn_a478(local1); print ")"; } if (gef==0a) print " (lost)"; rtrue; } ![**_______] Score: { if (g1c) { print "In that game you scored "; } print "You have so far scored "; print g16; print " out of a possible "; print c8; print ", in "; print g11; print " turn"; if (g11<01) print "s"; rtrue; } ![**_______] FullScore: { gef=local0; if (gef==01) { if (g1c) { print "The score was "; } print "The score is "; "made up as follows:^"; } if (gef==02) "finding sundry items"; if (gef==03) "visiting various places"; if (gef==04) { print "total (out of "; print c8; ")"; } rtrue; } ![**_______] Inv: { gef=local0; if (gef==01) "You are carrying nothing."; if (gef==02) print "You are carrying"; rtrue; } ![**_______] Take: { gef=local0; if (gef==01) "Taken."; if (gef==02) "You are always self-possessed."; if (gef==03) { print "I don't suppose "; rn_a478(local1); " would care for that."; } if (gef==04) { print "You'd have to get "; if (local1 has neuter) { print "off "; } print "out of "; rn_a478(local1); " first."; } if (gef==05) { print "You already have "; rn_5244(local1); "."; } if (gef==06) { if (g34 has se_to) { print "Those seem "; } print "That seems "; print "to belong to "; rn_a478(local1); "."; } if (gef==07) { if (g34 has se_to) { print "Those seem "; } print "That seems "; print "to be a part of "; rn_a478(local1); "."; } if (gef==08) { rn_52b8(local1); print " "; rn_52a4(local1); "n't available."; } if (gef==09) { rn_a49c(local1); print " "; rn_52a4(local1); "n't open."; } if (gef==0a) { if (local1 has se_to) { print "They're "; } print "That's "; "hardly portable."; } if (gef==0b) { if (local1 has se_to) { print "They're "; } print "That's "; "fixed in place."; } if (gef==0c) { print "You're carrying too many things already."; new_line; rtrue; } if (gef==0d) { print "(putting "; rn_a478(local1); print " into "; rn_a478(00); " to make room)"; } rtrue; } ![**_______] Drop: { gef=local0; if (gef==01) { if (local1 has se_to) { rn_a49c(local1); print " are "; } rn_a49c(local1); print " is "; "already here."; } if (gef==02) { print "You haven't got "; rn_5244(local1); "."; } if (gef==03) { print "(first taking "; rn_a478(local1); " off)"; } if (gef==04) "Dropped."; rtrue; } ![**_______] Remove: { gef=local0; if (gef==01) { if (local1 has se_to) { print "They are"; } print "It is "; " unfortunately closed."; } if (gef==02) { if (local1 has se_to) { print "But they aren't"; } print "But it isn't"; " there now."; } if (gef==03) "Removed."; rtrue; } ![**_______] PutOn: { gef=local0; if (gef==01) { print "You need to be holding "; rn_a478(local1); print " before you can put "; rn_5274(local1); " on top of something else."; } if (gef==02) { print "You can't put something on top of itself."; new_line; rtrue; } if (gef==03) { print "Putting things on "; rn_a478(local1); " would achieve nothing."; } if (gef==04) "You lack the dexterity."; if (gef==05) { print "(first taking "; rn_5274(local1); " off)^"; } if (gef==06) { print "There is no more room on "; rn_a478(local1); "."; } if (gef==07) "Done."; if (gef==08) { print "You put "; rn_a478(local1); print " on "; rn_a478(g35); "."; } rtrue; } ![**_______] Insert: { gef=local0; if (gef==01) { print "You need to be holding "; rn_a478(local1); print " before you can put "; rn_5274(local1); " into something else."; } if (gef==02) { rn_52b8(local1); " can't contain things."; } if (gef==03) { rn_a49c(local1); print " "; rn_52a4(local1); " closed."; } if (gef==04) { print "You'll need to take "; rn_5274(local1); " off first."; } if (gef==05) { print "You can't put something inside itself."; new_line; rtrue; } if (gef==06) { print "(first taking "; rn_5274(local1); " off)^"; } if (gef==07) { print "There is no more room in "; rn_a478(local1); "."; } if (gef==08) "Done."; if (gef==09) { print "You put "; rn_a478(local1); print " into "; rn_a478(g35); "."; } rtrue; } ![**_______] EmptyT: { gef=local0; if (gef==01) { rn_a49c(local1); " can't contain things."; } if (gef==02) { rn_a49c(local1); print " "; rn_52a4(local1); " closed."; } if (gef==03) { rn_a49c(local1); print " "; rn_52a4(local1); " empty already."; } rtrue; } ![**_______] Give: { gef=local0; if (gef==01) { print "You aren't holding "; rn_a478(local1); "."; } if (gef==02) { print "You juggle "; rn_a478(local1); print " for a while, but don't achieve much."; new_line; rtrue; } if (gef==03) { rn_a49c(local1); if (local1 has se_to) { print " don't"; } print " doesn't"; " seem interested."; } rtrue; } ![**_______] Show: { gef=local0; if (gef==01) { print "You aren't holding "; rn_a478(local1); "."; } if (gef==02) { rn_a49c(local1); print " "; rn_52a4(local1); " unimpressed."; } rtrue; } ![**_______] Enter: { gef=local0; if (gef==01) { print "But you're already "; if (local1 has neuter) { print "on "; } print "in "; rn_a478(local1); "."; } if (gef==02) { if (local1 has se_to) { print "They're"; } print "That's"; " not something you can enter."; } if (gef==03) { print "You can't get into the closed "; rn_a4c0(local1); "."; } if (gef==04) { print "You can only get into something freestanding."; new_line; rtrue; } if (gef==05) { print "You get "; if (local1 has neuter) { print "onto "; } print "into "; rn_a478(local1); "."; } if (gef==06) { print "(getting "; if (local1 has neuter) { print "off "; } print "out of "; rn_a478(local1); ")"; } if (gef==07) { if (local1 has neuter) { print "(getting onto "; rn_a478(local1); ")^"; } if (local1 has on) { print "(getting into "; rn_a478(local1); ")^"; } print "(entering "; rn_a478(local1); ")^"; } rtrue; } ![**_______] GetOff: { print "But you aren't on "; rn_a478(local1); " at the moment."; } ![**_______] Exit: { gef=local0; if (gef==01) { print "But you aren't in anything at the moment."; new_line; rtrue; } if (gef==02) { print "You can't get out of the closed "; rn_a4c0(local1); "."; } if (gef==03) { print "You get "; if (local1 has neuter) { print "off "; } print "out of "; rn_a478(local1); "."; } rtrue; } ![**_______] VagueGo: { print "You'll have to say which compass direction to go in."; new_line; rtrue; } ![**_______] Go: { gef=local0; if (gef==01) { print "You'll have to get "; if (local1 has neuter) { print "off "; } print "out of "; rn_a478(local1); " first."; } if (gef~=02) "You can't go that way."; if (gef==03) { print "You are unable to climb "; rn_a478(local1); "."; } if (gef==04) { print "You are unable to descend by "; rn_a478(local1); "."; } if (gef==05) { print "You can't, since "; rn_a478(local1); print " "; rn_52a4(local1); " in the way."; } if (gef==06) { print "You can't, since "; rn_a478(local1); if (local1 has se_to) " lead nowhere."; " leads nowhere."; } rtrue; } ![**_______] LMode1: { print " is now in its normal ~brief~ printing mode, which gives long descriptions of places never before visited and short descriptions otherwise."; new_line; rtrue; } ![**_______] LMode2: { print " is now in its ~verbose~ mode, which always gives long descriptions of locations (even if you've been there before)."; new_line; rtrue; } ![**_______] LMode3: { print " is now in its ~superbrief~ mode, which always gives short descriptions of locations (even if you haven't been there before)."; new_line; rtrue; } ![**_______] Look: { gef=local0; if (gef==01) { print " (on "; rn_a478(local1); print ")"; } if (gef==02) { print " (in "; rn_a478(local1); print ")"; } if (gef==03) { print " (as "; print (name) local1; print ")"; } if (gef==04) { print "^On "; rn_a478(local1); rn_a81c(child(local1),08+10+80+40+400+800); "."; } if (local1~=g09) { if (local1 has neuter) { print "^On "; } print "^In "; rn_a478(local1); print " you"; } print "^You"; print " can "; if (local0==05) print "also "; print "see "; rn_a81c(child(local1),08+200+10+80+40+800); if (local1==g09) "."; " here."; rtrue; } ![**_______] Examine: { gef=local0; if (gef==01) { print "Darkness, noun. An absence of light to see by."; new_line; rtrue; } if (gef==02) { print "You see nothing special about "; rn_a478(local1); "."; } if (gef==03) { rn_a49c(local1); print " "; rn_52a4(local1); print " currently switched "; if (local1 has talkable) "on."; "off."; } rtrue; } ![**_______] LookUnder: { gef=local0; if (gef==01) "But it's dark."; if (gef==02) "You find nothing of interest."; rtrue; } ![**_______] Search: { gef=local0; if (gef==01) "But it's dark."; if (gef==02) { print "There is nothing on "; rn_a478(local1); "."; } if (gef==03) { print "On "; rn_a478(local1); rn_a81c(child(local1),40+08+400+800); "."; } if (gef==04) "You find nothing of interest."; if (gef==05) { print "You can't see inside, since "; rn_a478(local1); print " "; rn_52a4(local1); " closed."; } if (gef==06) { rn_a49c(local1); print " "; rn_52a4(local1); " empty."; } if (gef==07) { print "In "; rn_a478(local1); rn_a81c(child(local1),40+08+400+800); "."; } rtrue; } ![**_______] Unlock: { gef=local0; if (gef==01) { if (local1 has se_to) { print "They don't "; } print "That doesn't "; print "seem to be something you can unlock."; new_line; rtrue; } if (gef==02) { rn_52ec(local1); " unlocked at the moment."; } if (gef==03) { if (local1 has se_to) { print "Those don't "; } print "That doesn't "; "seem to fit the lock."; } if (gef==04) { print "You unlock "; rn_a478(local1); "."; } rtrue; } ![**_______] Lock: { gef=local0; if (gef==01) { if (local1 has se_to) { print "They don't "; } print "That doesn't "; print "seem to be something you can lock."; new_line; rtrue; } if (gef==02) { rn_52ec(local1); " locked at the moment."; } if (gef==03) { print "First you'll have to close "; rn_a478(local1); "."; } if (gef==04) { if (local1 has se_to) { print "Those don't "; } print "That doesn't "; "seem to fit the lock."; } if (gef==05) { print "You lock "; rn_a478(local1); "."; } rtrue; } ![**_______] SwitchOn: { gef=local0; if (gef==01) { rn_52ec(local1); " not something you can switch."; } if (gef==02) { rn_52ec(local1); " already on."; } if (gef==03) { print "You switch "; rn_a478(local1); " on."; } rtrue; } ![**_______] SwitchOff: { gef=local0; if (gef==01) { rn_52ec(local1); " not something you can switch."; } if (gef==02) { rn_52ec(local1); " already off."; } if (gef==03) { print "You switch "; rn_a478(local1); " off."; } rtrue; } ![**_______] Open: { gef=local0; if (gef==01) { rn_52ec(local1); " not something you can open."; } if (gef==02) { if (local1 has se_to) { print "They seem "; } print "It seems "; "to be locked."; } if (gef==03) { rn_52ec(local1); " already open."; } if (gef==04) { print "You open "; rn_a478(local1); print ", revealing "; ||(~~rn_a81c(child(local1),08+40+800)) "nothing."; "."; } if (gef==05) { print "You open "; rn_a478(local1); "."; } rtrue; } ![**_______] Close: { gef=local0; if (gef==01) { rn_52ec(local1); " not something you can close."; } if (gef==02) { rn_52ec(local1); " already closed."; } if (gef==03) { print "You close "; rn_a478(local1); "."; } rtrue; } ![**_______] Disrobe: { gef=local0; if (gef==01) { print "You're not wearing "; rn_5244(local1); "."; } if (gef==02) { print "You take off "; rn_a478(local1); "."; } rtrue; } ![**_______] Wear: { gef=local0; if (gef==01) { print "You can't wear "; rn_5244(local1); "!"; } if (gef==02) { print "You're not holding "; rn_5244(local1); "!"; } if (gef==03) { print "You're already wearing "; rn_5244(local1); "!"; } if (gef==04) { print "You put on "; rn_a478(local1); "."; } rtrue; } ![**_______] Eat: { gef=local0; if (gef==01) { rn_52ec(local1); " plainly inedible."; } if (gef==02) { print "You eat "; rn_a478(local1); ". Not bad."; } rtrue; } ![**_______] Yes, No: "That was a rhetorical question."; ![**_______] Burn: { print "This dangerous act would achieve little."; new_line; rtrue; } ![**_______] Pray: { print "Nothing practical results from your prayer."; new_line; rtrue; } ![**_______] Wake: { print "The dreadful truth is, this is not a dream."; new_line; rtrue; } ![**_______] WakeOther: "That seems unnecessary."; ![**_______] Kiss: "Keep your mind on the game."; ![**_______] Think: "What a good idea."; ![**_______] Smell: "You smell nothing unexpected."; ![**_______] Listen: "You hear nothing unexpected."; ![**_______] Taste: "You taste nothing unexpected."; ![**_______] Touch: { gef=local0; if (gef==01) "Keep your hands to yourself!"; if (gef==02) "You feel nothing unexpected."; if (gef==03) "If you think that'll help."; rtrue; } ![**_______] Dig: { print "Digging would achieve nothing here."; new_line; rtrue; } ![**_______] Cut: { print "Cutting "; rn_5244(local1); " up would achieve little."; } ![**_______] Jump: { print "You jump on the spot, fruitlessly."; new_line; rtrue; } ![**_______] JumpOver, Tie: { print "You would achieve nothing by this."; new_line; rtrue; } ![**_______] Drink: { print "There's nothing suitable to drink here."; new_line; rtrue; } ![**_______] Fill: { print "But there's no water here to carry."; new_line; rtrue; } ![**_______] Sorry: "Oh, don't apologise."; ![**_______] Strong: { print "Real adventurers do not use such language."; new_line; rtrue; } ![**_______] Mild: "Quite."; ![**_______] Attack: { print "Violence isn't the answer to this one."; new_line; rtrue; } ![**_______] Swim: { print "There's not enough water to swim in."; new_line; rtrue; } ![**_______] Swing: { print "There's nothing sensible to swing here."; new_line; rtrue; } ![**_______] Blow: { print "You can't usefully blow "; rn_5244(local1); "."; } ![**_______] Rub: "You achieve nothing by this."; ![**_______] Set: { print "No, you can't set "; rn_5244(local1); "."; } ![**_______] SetTo: { print "No, you can't set "; rn_5244(local1); " to anything."; } ![**_______] WaveHands: "You wave, feeling foolish."; ![**_______] Wave: { gef=local0; if (gef==01) { print "But you aren't holding "; rn_5244(local1); "."; } if (gef==02) { print "You look ridiculous waving "; rn_a478(local1); "."; } rtrue; } ![**_______] Pull, Push, Turn: { gef=local0; if (gef==01) { if (local1 has se_to) { print "Those are "; } print "It is "; "fixed in place."; } if (gef~=02) "You are unable to."; if (gef==03) "Nothing obvious happens."; if (gef==04) { print "That would be less than courteous."; new_line; rtrue; } rtrue; } ![**_______] PushDir: { gef=local0; if (gef==01) { print "Is that the best you can think of?"; new_line; rtrue; } if (gef==02) "That's not a direction."; if (gef==03) "Not that way you can't."; rtrue; } ![**_______] Squeeze: { gef=local0; if (gef==01) "Keep your hands to yourself."; if (gef==02) "You achieve nothing by this."; rtrue; } ![**_______] ThrowAt: { gef=local0; if (gef==01) "Futile."; if (gef==02) { print "You lack the nerve when it comes to the crucial moment."; new_line; rtrue; } rtrue; } ![**_______] Tell: { gef=local0; if (gef==01) "You talk to yourself a while."; if (gef==02) "This provokes no reaction."; rtrue; } ![**_______] Answer, Ask: "There is no reply."; ![**_______] Buy: "That's not for sale."; ![**_______] Sing: "Your singing is abominable."; ![**_______] Climb: { print "I don't think much is to be achieved by that."; new_line; rtrue; } ![**_______] Wait: "Time passes."; ![**_______] Sleep: { print "You aren't feeling especially drowsy."; new_line; rtrue; } ![**_______] Consult: { print "You discover nothing of interest in "; rn_a478(local1); "."; } rtrue; ]; ![_______________________________________________________________________]; [rn_7034 ; return (rn_c904(Miscellany,11)); ]; ![_______________________________________________________________________]; [rn_7040 ; return (rn_c904(Miscellany,12)); ]; ![_______________________________________________________________________]; [rn_704c ; return (rn_c904(Miscellany,13)); ]; ![_______________________________________________________________________]; [rn_7058 local0 ; if (local0==0f) { g5b=01; g5c=0f; rtrue; } g5b=((local0->00)&0f); g5c=(local0+01-->00); rtrue; ]; ![_______________________________________________________________________]; [rn_7078 local0 local1 ; local1=00; if (local1<20) { (2940-->local1)=0f; (28c0-->local1)=01; (2900-->local1)=0f; local1++; jump z707c; } g58=100*(local0->00)+(local0->01); if (~~(g58&400)) { } g59=01; g58=(g58&3ff); local0--; g54=00; local1=00; local0=local0+03; if ((local0->00)~=0f) (2940-->local1)=local0; rn_7058(local0); if (g5b==02) g54++; (28c0-->local1)=g5b; (2900-->local1)=g5c; local1++; jump z70cc; return (local0+01); ]; ![_______________________________________________________________________]; [rn_7104 local0 local1 ; (local0->02+(local0->01))=00; @tokenise local0 local1; rtrue; ]; ![_______________________________________________________________________]; [rn_7118 local0 ; rn_7304(local0); rfalse; ]; ![_______________________________________________________________________]; [rn_7120 local0 local1 local2 local3 local4 local5 local6 local7 ; rn_9dec(); local3=00; if (local3<40) { (2ced->local3)=(local0->local3); local3++; jump z7127; } (local0->00)=78; (local1->00)=40; rn_c904(Prompt); rn_fa90(); gef=00; gec=local0; (gec->01)=00; rn_9fcc(); @read gec local1 -> gef; local2=(local1->01); if (~~local2) { rn_c904(Miscellany,0a); jump z7124; } local4=(local1-->01); if (local4~="oops" or "o" or "oops") ||(local4=="undo" or "undo" or "undo") { if ((2b79->01)==01) { if (g11==01) { rn_c904(Miscellany,0b); jump z7124; } if (~~g0e) { rn_c904(Miscellany,06); jump z7124; } if (g0e~=01) ||(g0f==01) { rn_c904(Miscellany,0c); jump z7124; } @restore_undo -> local3; if (local3) rn_c904(Miscellany,07); jump z7124; } @save_undo -> local3; g0f=00; g0e=02; if (local3~=NULL) g0e=00; if (local3) g0e=01; if (local3==02) { style bold; rn_a4c0(g09); print "^"; style roman; rn_c904(Miscellany,0d); g0f=01; jump z7124; } return local2; if (~~g83) { rn_c904(Miscellany,0e); jump z7124; } if (local2==01) { rn_c904(Miscellany,0f); jump z7124; } if (local2>02) { rn_c904(Miscellany,10); jump z7124; } local3=00; if (local3<78) { (2bba->local3)=(local0->local3); local3++; jump z723f; } local6=(local1->09); local7=(local1->08); local3=00; if (local3<40) { (local0->local3)=(2ced->local3); local3++; jump z725d; } rn_7104(local0,local1); local4=(local1->04*g83+01); local5=(local1->04*g83); local3=00; if (local3local3+local4)=20; local3++; jump z728e; } if (local5local4+local7) { (local0->local3)=(local0->local3-local7+local5); local3--; jump z72a8; } (local0->01)=(local0->01)+local7-local5; } local3=00; if (local3local3+local4)=(2bba->local3+local6); local3++; jump z72da; } rn_7104(local0,local1); local2=(local1->01); return local2; ]; ![_______________________________________________________________________]; [rn_7304 local0 local1 local2 local3 local4 local5 local6 local7 local8 local9 local10 ; if (g48==01) { local5=00; if (local5<08) { (local0-->local5)=(2820-->local5); local5++; jump z730c; } g48=00; rtrue; } if (g85==01) { g85=00; rn_7104(2b00,2b79); } rn_7120(2b00,2b79); g3d=01; g7f=(2b79->01); g7e=01; rn_4f30(); rn_7104(2b00,2b79); rn_fa94(); g7f=(2b79->01); local7=00; g81=01; g3e=g1b; g3f=rn_7a54(g1b); g82=00; g74=00; g58=NULL; g7e=g81; g80=rn_9224(); if (g80==NULL) { g4c=01; } if (g80=="g" or "again") g80="again"; if (g80=="again") { if (g3e~=g1b) { rn_c904(Miscellany,14); jump z7336; } if (~~(2c74->01)) { rn_c904(Miscellany,15); jump z7336; } local5=00; if (local5<78) { (2b00->local5)=(2c74->local5); local5++; jump z73c3; } } if (g80~="again") { local5=00; if (local5<78) { (2c74->local5)=(2b00->local5); local5++; jump z73e4; } if (~~g82) { local5=rn_9cac(g3e,1c); if (local5<00) { g82=g81; local5=00-local5; } if (local5==01) { (local0-->00)=g31; (local0-->01)=g34; (local0-->02)=g35; rtrue; } if (local5) { g80=local5; g7e--; g81--; } g7e=g81; g80=rn_91d8(); } g82=00; if (g80) { if (~~((g80->06)&01)) { } g7e=g81; g64=00; g5d=00; local9=rn_8084(06,00,00); if (local9~=2710) jump z733e; if (local9) { (local0-->00)=1b; (local0-->01)=01; (local0-->02)=local9; } if (g3e==g1b) { local6=02; if (local606)&02)/02; if (g40==01)&&(g3e~=g1b) { g4c=0c; g40=00; } local5=ff-(g80->07); local1=((00-->07)-->local5); local3=(local1->00)-01; g6f=NULL; g70=NULL; g4c=01; g4d=01; local4=local1+01; local2=00; if (local2local5)=0f; (28c0-->local5)=01; (2900-->local5)=0f; local5++; jump z7571; } local4=rn_7078(local4); g4a=00; g55=00; g50=00; g51=00; g43=00; g44=00; (27a0-->00)=00; g63=00; g4b=01; g7e=g81+01; g5a=NULL; g64=00; local5=00; local10=00; g4e=00; if ((2940-->g4e)~=0f) { g74=00; if ((28c0-->g4e)~=02) local5++; if ((28c0-->g4e)==01) { if ((2900-->g4e)~=02) local10=01; if ((2900-->g4e)==04 or 05)&&(local5==01) { g4e++; if ((28c0-->g4e)==02) { if ((28c0-->g4e)==02) { g4e++; jump z7616; } if ((28c0-->g4e)==01) { if (~~(2900-->g4e)) &&(g7eg4e-01)) { local9=rn_8084(g3f,g3e,00); if (local9~=2710) jump z733e; if (local9>02) g5a=local9; } } } g4e++; } g6d=00; if (local10) &&(g54==01)&&(g58~=0f) g6d=01; g4a=00; g55=00; g50=00; g51=00; g43=00; g44=00; (27a0-->00)=00; g4b=01; g7e=g81+01; g4e=01; (2840-->g4e)=NULL; g74=00; local8=(2940-->g4e-01); g5f=(2940-->g4e); if (local8~=0f) { g73=00; local9=rn_7c48(local0,g4e-01); g73=00; if (local9~=2710) jump z733e; if (local9) } ||(g7elocal10)=(2840-->local10); local10++; jump z770f; } g4f=g4e; g4b=02; } if (g50>01) { if (~~(local0-->02)) { local9=rn_87e0((local0-->03)); if (local9) { g4b=local9; } if (g50>02) { if (~~(local0-->03)) { local9=rn_87e0((local0-->02)); if (local9) { g4b=local9; } if (g6d==02) { if ((local0-->02)==g3e) { g4c=11; } g83=00; if (g55) { print "("; rn_8b34(g55); print ")^"; } (local0-->00)=g58; (local0-->01)=g50; if (g59) &&(g50==02) { local5=(local0-->02); (local0-->02)=(local0-->03); (local0-->03)=local5; if (g51==02) { local5=g52; g52=g53; g53=local5; } if (g50>00) { if ((local0-->02)>02) { rn_9594((local0-->02)); } if (g4a) &&(g3e==g1b) { g48=01; local5=00; if (local5<08) { (2820-->local5)=(local0-->local5); local5++; jump z77e4; } (local0-->00)=0f; (local0-->01)=01; (local0-->02)=g4a; rn_c904(Miscellany,1a,g4a); } if (g85==01) { g7e=g86; } rtrue; g4e++; if (g4b00) { g81=g82; jump z7370; } g7e=g81; g43=rn_91d8(); if (g43=="comma,") { g43=rn_91d8(); g81++; } g44=rn_9260(g81); (local0-->00)=NotUnderstood; (local0-->01)=02; (local0-->02)=01; g52=g43; (local0-->03)=g3e; g46=g81; g47=g7f-g46+01; rtrue; } ||(~~rn_faa8(g4b)) jump z7336; g6f=g71; g70=g72; if (g4b==01) { rn_c904(Miscellany,1b); g83=01; } if (g4b==02) { rn_c904(Miscellany,1c); local10=00; if (local10<20) { (2840-->local10)=(2880-->local10); local10++; jump z78be; } g4e=g4f; rn_8b34(00); print ".^"; } if (g4b~=03) rn_c904(Miscellany,1d); if (g4b==04) { rn_c904(Miscellany,1e); g83=g84; } if (g4b~=05) rn_c904(Miscellany,1f); if (g4b==06) { rn_c904(Miscellany,20); g83=g84; } if (g4b~=07) rn_c904(Miscellany,21); if (g4b~=08) rn_c904(Miscellany,22); if (g4b~=09) rn_c904(Miscellany,23); if (g4b~=0a) rn_c904(Miscellany,24); if (g4b~=0b) rn_c904(Miscellany,25); if (g4b~=0c) rn_c904(Miscellany,26); if (g4b~=0d) rn_c904(Miscellany,27); if (g4b==0e) { if (g70==NULL) { rn_c904(Miscellany,23); } rn_c904(Miscellany,28); } if (g4b~=0f) rn_c904(Miscellany,29); if (g4b~=10) rn_c904(Miscellany,2a,g62); if (g4b==11) { if (g61==64) { rn_c904(Miscellany,2b); } rn_c904(Miscellany,2c); } if (g4b==12) { g76=03; if (rn_g75()==NULL) { g4c=g4d; jump z7840; } if (g7eg7f) { g85=00; rtrue; } local5=rn_923c(g81); local6=rn_923c(g7e); if (local500)=20; local5++; jump z79f0; } local5=rn_91d8(); if (local5=="again" or "g" or "again") { local5=rn_923c(g7e-02)-2b00; if (g7e>g7f) { local6=77; } local6=rn_923c(g7e)-2b00; if (local5local5)=20; local5++; jump z7a33; } rn_7104(2b00,2b79); g85=01; rtrue; } g4c=02; jump z7840; ]; ![_______________________________________________________________________]; [rn_7a54 local0 local1 ; local1=parent (local0); if (parent (local1)) { if (local1 hasnt after)&&(local1 hasnt neuter) { if (local1 has on)&&(local1 has transparent) { } local1=parent (local1); } if (local0==g1b)&&(g09~=13) return 13; return local1; ]; ![_______________________________________________________________________]; [rn_7a80 ; g64=00; g65=00; g66=00; g67=00; g6a=00; g68=00; g69=fff; g6b=00; rtrue; ]; ![_______________________________________________________________________]; [rn_7a9c local0 local1 local2 local3 local4 local5 local6 ; rn_7a80(); if (g7e>g7f) { rfalse; } local3=01; if (local3) { local1=rn_9224(); local3=00; local2=01; local2=local2+04; if (local2<(2d5f-->00)) { if (local1==(2d5f-->local2)) { local3=01; local5=(2d5f-->local2+02); if (local5==101) g64=01; g6a=01; g69=(g69&(2d5f-->local2+01)); if (local5==100) { local4=(2d5f-->local2+03); gef=local4; if (gef==00) { g65=g65|02; } if (gef==01) { g65=g65|04; } g68=rn_9530(local4); if (g68~=NULL) g68=15; } if (local5~=12) g65=g65|10; if (local5~=ffee) g65=g65|20; } } if (local1=="another" or "other" or "other") { g64=01; local3=01; g65=g65|01; } if (local1=="all" or "each" or "every") ||(local1=="everythin" or "both") { g64=01; local3=01; g66=64; if (g6d~=01) g6d=02; g65=g65|08; } if (g6c) if (local0) { local6=rn_a4dc(local1); if (local6==01) { g64=01; local3=01; } if (local6>01) { g67=01; g64=01; local3=01; g66=local6; g6b=g7e-01; g65=g65|08; } if (local3==01) { gef=rn_9224(); if (gef~="of" or "of" or "of")&&(gef=="of") g7e--; } } g7e--; if (g66>00)||(local0) return 07; rfalse; ]; ![_______________________________________________________________________]; [rn_7be0 local0 ; if (local0 hasnt light)rtrue; if (local0 has before) rfalse; if (g58~=53 or 52 or 51)rtrue; if (g58~=5a)rtrue; rfalse; ]; ![_______________________________________________________________________]; [rn_7bf8 local0 local1 ; if ((2900-->local1)==local0) return local0; ||((((2940-->local1)->00)&20)) return NULL; if ((2900-->local1)==local0) return local0; local1++; if ((2940-->local1)~=0f) { if (~~(((2940-->local1)->00)&10)) jump z7c19; } return NULL; ]; ![_______________________________________________________________________]; [rn_7c48 local0 local1 local2 local3 local4 local5 local6 local7 local8 local9 local10 local11 local12 ; local2=(2940-->local1); rn_7058(local2); g5d=00; g3d=01; gef=g5b; if (gef==01) { gef=g5c; if (gef==07) { local3=rn_9260(g7e); g43=rn_91d8(); if (local3~=fc18) local3=g43; g44=local3; if (~~g51) { g52=local3; } g53=local3; g51++; local9=01; } if (gef==08) { g7e++; local3=rn_9260(g7e); if (local3==fc18) { g4b=03; rfalse; } g51++; if (~~g51) { g52=local3; } g53=local3; local9=01; } if (gef==06) { if (g58==52 or 53 or 5a) ||(g58==51) g73=01; } if (gef==09) { g46=g7e; if ((28c0-->local1+01)~=02) { if ((2940-->local1+01)==0f) rn_a660(0d); } local4=rn_9224(); if (local4~=NULL) { if (rn_7bf8(local4,local1+01)~=NULL) jump z7d03; } g7e--; g47=g7e-g46; if (~~g47) { rtrue; } if (g58==53 or 52 or 51) { local4=g7e; g7e=g46; g45=rn_91d8(); if (g45=="the")&&(g47<01) g45=rn_91d8(); g7e=local4; g51++; if (~~g51) { g52=g45; } g53=g45; local9=01; } rtrue; } } if (gef==02) { if (((local2->00)&10)) { rtrue; } if (g7e>g7f) { if (~~g55) &&(g50g4e)=2710+rn_93ac(g5c); } if (~~g55) { rfalse; } (2840-->g4e)=2710+rn_93ac(g5c); rtrue; } local4=rn_91d8(); (2840-->g4e)=2710+rn_93ac(local4); if (local4==g5c) { rtrue; } if (rn_7bf8(local4,local1)~=NULL) { rtrue; } rfalse; } if (gef==06) { local3=rn_g5c(); if (local300) if (~~local3) { g54--; rtrue; } if (local3==01) { if (~~g51) { g52=g45; } g53=g45; g51++; } if (local3==2710) return local3; local9=local3; } if (gef==05) { g74=g5c; g76=01; local3=rn_g74(); if (local3==01) { g5c=02; } g5c=00; } if (gef==04) { g5d=01+g5c; g5c=00; } if (gef==03) { g5d=g5c; g5c=00; } local2=g5c; local12=00; if (local2==02 or 03 or 04) ||(local2==05) local12=01; local11=00; local8=01; g57=00; local4=rn_91d8(); g7e--; g6f=NULL; g70=NULL; local3=rn_9530(local4); if (local3) { g6f=local4; g70=local3; if (local3==NULL) { local3=01; local3=local3+04; if (local3<2d5f) { if (local4~=(2d5f-->local3)) jump z7e9d; } g71=g6f; g72=g70; g4b=09; rfalse; } if (local4=="me" or "myself" or "self") { g6f=local4; g70=g1b; } g6c=01; local10=g7e; local3=rn_7a9c(local12); if (local3) { g4b=local3; rfalse; } g83=g7e; if (local2~=01) { local5=(27a0-->00); local3=rn_8084(g3f,g3e,local2); if (local3==2710) return local3; if (~~local3) { if (g6a) { rn_7a80(); g7e=local10; jump z7ee4; } g4b=rn_8bac(); } if (local3==01) { if (~~local11) { local11=01; } local7=(27a0-->00); (27a0-->00)=local5; local6=local5+01; if (local6local6)); } rn_8c30((27a0-->local6)); local6++; jump z7f36; } } if (~~g7c) if (g6a) { rn_7a80(); g7e=local10; jump z7ee4; } if (local2==06) { if (~~rn_7be0(local3)) { g4b=0b; } if (~~local11) { local9=local3; } if (local8) { rn_8bfc(local3); } rn_8c30(local3); } local3=rn_8084(g3e,g3f,local2); if (local3==2710) return local3; if (~~local3) { if (g6a) { rn_7a80(); g7e=local10; jump z7ee4; } g4b=rn_8bac(); return local3; } local4=parent (local3); if (local4~=g3e) { if (g48==01) { g84=g83; g4b=06; } g4a=local3; } local9=local3; g7e=g83+g7c; local4=rn_91d8(); if (local4~="and" or "and" or "and") { if (local4=="but" or "except" or "but") ||(local4=="comma,") { } if (~~local12) { g4b=07; } if (local4=="but" or "except" or "but") local8=01-local8; if (~~local11) { (27a0-->00)=01; (27a0-->01)=local9; local11=01; } g57=01; g55=00; jump z7e70; g7e--; if (local11) { local9=00; g63=local2; } if (g64==01) { if ((g65&08)) &&(g66<64)&&(g66>01) { g62=01; g61=g66; g4b=10; } (local0-->g50+02)=local9; g50++; (2840-->g4e)=local9; rtrue; if (g6c) &&(g67==01) { g6c=00; g7e=local10; jump z7ed7; } rfalse; ]; ![_______________________________________________________________________]; [rn_8084 local0 local1 local2 local3 local4 local5 local6 local7 local8 local9 ; g7c=00; g7a=00; g7d=g7e; g79=00; rn_8cf4(local0,local1,local2); g7e=g7d+g7c; if (~~g7a) { g7e++; rfalse; } if (g7d00); return local4; } if (g7e00); if (g7a>01) { local4=rn_8548(local2); if (local4~=NULL)rfalse; if (local4~=01)rtrue; } if (local4) { if (g57) return local4; if (g55) g55=g4e; (2840-->g4e)=local4; return local4; if (g7dlocal9)~=local4) { if ((2a00-->local9)~=00-local4) { local9++; jump z8148; } local6=(2980-->local9); if ((2a00-->local9)>00) { rn_a478(local6); } rn_a438(local6); if (local4local4)=20; local4++; jump z81a5; } local8=rn_7120(2bba,2c33); local3=(2c33-->01); if (local3~="all" or "each" or "every") { if (local3=="everythin" or "both") { } if (local2==02 or 03 or 04) ||(local2==05) { local7=(27a0-->00); local4=00; if (local4local4); (27a0-->local4+01+local7)=local6; local4++; jump z81eb; } (27a0-->00)=local4+local7; rtrue; } rn_c904(Miscellany,2f); jump z81a2; if (local3) { local5=(local3->06); if (00~=(local5&01)) { if (local3~="long" or "short" or "normal") { if (local3~="brief" or "full" or "verbose") { rn_93d4(2b00,2bba); return 2710; } local6=rn_923c(g7d)-2b00; local7=(2bba->01)+01; local5=2b00+(2b00->00)-01; if (local5>2b00+local6+local7) { (local5->00)=(00->local5-local7); local5--; jump z827c; } local4=00; if (local4local6+local4)=(2bba->02+local4); local4++; jump z829f; } (2b00->local6+local7-01)=20; (2b00->01)=(2b00->01)+local7; if ((2b00->01)>(2b00->00)-01) { (2b00->01)=(2b00->00); } return 2710; if (local2==06) { rn_c904(Miscellany,30); } rn_c904(Miscellany,31); local4=02; if (local4<78) { (2bba->local4)=20; local4++; jump z8315; } local8=rn_7120(2bba,2c33); local3=(2c33-->01); if (local3) { local5=(local3->06); if (00~=(local5&01)) { rn_93d4(2b00,2bba); return 2710; } if (g55) { local5=g55; if (local5local5)~=NULL) local4=02+(2b00->01); gef=2b00; gee=01; ged=(gef->gee); ged++; (gef->gee)=ged; local4++; (2b00->local4)=20; if (g39>05) { print "[Gluing in inference with pattern code "; print (2840-->local5); print "]^"; } (2c33-->01)=00; if ((2840-->local5)>02) { if ((2840-->local5)<2710) { rn_9594((2840-->local5)); local6=01; local6=local6+03; if (local6<(2d45-->00)) { if ((2840-->local5)==(2d45-->local6+02)) { (2c33-->01)=(2d45-->local6); if (g39>05) { print "[Using pronoun '"; print (name) (2c33-->01); print "']^"; } } } } (2c33-->01)=rn_93c0((2840-->local5)-2710); if (g39>05) { print "[Using preposition '"; print (name) (2c33-->01); print "']^"; } if ((2c33-->01)) { local6=2b00+local4; @output_stream redirect_enable local6; print (name) (2c33-->01); @output_stream #fffd; local6=(local6-->00); local7=local4; if (local7local7)=(2b00->local7+02); local7++; jump z8496; } local4=local4+local6; (2b00->01)=local4-02; } local5++; } local4=02+(2b00->01); gef=2b00; gee=01; ged=(gef->gee); ged++; (gef->gee)=ged; local4++; (2b00->local4)=20; local5=00; local4++; local5++; if (local5<(2bba->01)) { (2b00->local4)=(2bba->local5+02); gef=2b00; gee=01; ged=(gef->gee); ged++; (gef->gee)=ged; if ((2b00->01)~=78) jump z84f4; } if (local4<78) { (2b00->local4)=20; local4++; } return 2710; ]; ![_______________________________________________________________________]; [rn_8548 local0 local1 local2 local3 local4 local5 local6 local7 local8 local9 ; local2=g7a-01; local4=00; local5=(2980-->00); local1=00; if (local1local1); (2a80-->local1)=local4; local7=local6; local7=parent (local7); if (local7==g3f or g3e or 00) jump z856d; if (local0==01) { if (parent (local6)==g3e) { local4++; local5=local6; } if (local0==02)&&(local7==g3f)&&(local6~=g3e)&&(local6 hasnt moved)&&(local6 hasnt worn) { local4++; local5=local6; } if (local0==03) { if (parent (local6)==g3e) { local4++; local5=local6; } if (local0==04 or 05) { if (g5a==NULL) { if (local0==04) { local4++; local5=local6; } if (local0==05) { if (parent (local6)~=g3e) { local4++; local5=local6; } } if (local0==04)&&(local6~=g5a) { local4++; local5=local6; } if (local0==05)&&(local6 in g5a) { local4++; local5=local6; } if (local0==06) { if (rn_7be0(local6)==01) { local4++; local5=local6; } (2a80-->local1)=3e8*local4-(2a80-->local1); local1++; jump z8559; } if (local4==01) return local5; if (local0==06)if (~~local4) { return ((2980-->00)); } if (g64) g65=00; rn_88b0(); if (g7a) return NULL; if (g64==01) { if ((g65&08)) { if (local0~=02 or 03 or 04)&&(local0~=05) { g4b=07; return NULL; } local1=00; local9=(27a0-->00); local2=rn_8a0c(); local2=rn_8a0c(); if (local2~=NULL)&&(local1local1+local9)=local2; } local1=local1; jump z8674; } if (local100); return NULL; } (27a0-->00)=local1+local9; g63=local0; rtrue; } local1=00; if (local1local1)=00; local1++; jump z8704; } local6=01; local1=00; if (local1local1)) { local6++; (2a00-->local1)=local6; local8=00; local2=local1+01; if (local2local2)) { if (rn_8a54((2980-->local1),(2980-->local2))==01) { local8=01; (2a00-->local2)=(2a00-->local1); } local2++; } if (local8==01) { (2a00-->local1)=01-local6; } local1++; } local6--; g7b=local6; if (local6>01)if (~~g64) { local2=00; local4=00; local1=00; if (local1local1),02); if (local3==local2) local4++; if (local3>local2) { local2=local3; local4=01; local5=(2980-->local1); } local1++; } if (local4==01) return local5; rfalse; } if (local6~=01) g57=01; return (rn_8a0c()); ]; ![_______________________________________________________________________]; [rn_87e0 local0 local1 local2 ; if (g63==04 or 05) { local1=01; local2=00; if (local1<(27a0-->00)) { if (g63==04) { if ((27a0-->local1)==local0) { } if (g63==05) { if ((27a0-->local1) in local0) { local2++; (27a0-->local2)=(27a0-->local1); } local1++; } (27a0-->00)=local2; } if (g63==02)&&(g58==0f) { local1=01; local2=00; if (local1<(27a0-->00)) { if (parent ((27a0-->local1))==parent (g3e)) local2++; local1++; jump z883e; } if (g6d==02) ||(local2>00) { local1=01; local2=00; if (local1<(27a0-->00)) { if (parent ((27a0-->local1))==parent (g3e)) { local2++; (27a0-->local2)=(27a0-->local1); } local1++; } (27a0-->00)=local2; } local1=(27a0-->00); if (local1) return 11; rfalse; ]; ![_______________________________________________________________________]; [rn_88b0 local0 local1 local2 local3 local4 local5 local6 local7 ; ||((g65&02)) local5=local5+2d; ||((g65&04)) local5=local5+2d; ||((g65&10)) local5=local5+2d; ||((g65&20)) local5=local5+2d; if (g68) local5=local5+2d; local6=1e; local7=14; if (g58==0f or 11) { local6=14; local7=1e; } local3=00; if (local3local3); local0=parent (local2); local1=00; if ((g65&02)) &&(local0==g3e) local1=local1+2d; if ((g65&04)) &&(local0==g3f) local1=local1+2d; if ((g65&10)) &&(local2 has scored) local1=local1+2d; if ((g65&20)) &&(local2 hasnt scored) local1=local1+2d; if (g68) &&(local0==g68) local1=local1+2d; if (local1local3)=NULL; } local1=00; if (local2 hasnt moved) local1=32; if (local0==g3e) { local1=local1+local6; } if (local0==g3f) { local1=local1+local7; } if (~~local1) &&(local0~=06) local1=local1+0a; local1=local1+rn_fab0(local2,02); local1=02*local1; ||((g69&(2d2d-->rn_9364(local2)))) local1++; (2a80-->local3)=(2a80-->local3)+local1; local3++; jump z88f9; } local3=00; if (local3local3)==NULL) { if (local3==g7a-01) { g7a--; } local4=local3; if (local4local4)=(2980-->local4+01); local4++; jump z89e8; } g7a--; } local3++; } rtrue; ]; ![_______________________________________________________________________]; [rn_8a0c local0 local1 local2 local3 ; local0=00; local2=NULL; local3=00; if (local3local3)>00) { local1=(2a80-->local3); if (local1>local2) { local2=local1; local0=local3; } local3++; } if (local2>00) return NULL; local3=(2980-->local0); (2980-->local0)=NULL; return local3; ]; ![_______________________________________________________________________]; [rn_8a54 local0 local1 local2 local3 local4 local5 local6 local7 local8 ; if (local0~=local1)rtrue; if (local0) rfalse; if (local1) rfalse; if (parent (local0)~=06)rfalse; if (parent (local1)~=06)rfalse; if (~~local0.parse_name) { if (local1.parse_name) { } if (local0.parse_name==local1.parse_name) rfalse; g3a=TheSame; g3b=local0; g3c=local1; local7=g7e; local6=rn_9cac(local0,30); g7e=local7; if (local6~=NULL)rtrue; if (local6~=fffe)rfalse; local2=local0.♀ gef=local0.♀ if (~~gef) gef=@get_prop_len(gef); local4=gef/02; local3=local1.♀ gef=local1.♀ if (~~gef) gef=@get_prop_len(gef); local5=gef/02; local6=00; if (local6local6)~=(local3-->local7)) local8=01; local7++; jump z8ae4; } if (local8) rfalse; local6++; } local7=00; if (local7local6)~=(local3-->local7)) local8=01; local6++; jump z8b12; } if (local8) rfalse; local7++; } rtrue; ]; ![_______________________________________________________________________]; [rn_8b34 local0 local1 local2 local3 ; if (~~local0) { local1=g80; if (~~rn_5208(local1)) { ||(~~rn_faa4(local1)) print (name) local1; } local0++; local3=01; } local2=local0; if (local2local2); if (local1~=NULL) if (local3) { print (char) ' '; } if (~~local1) { print "those things"; } if (local1==01) { print "that"; } if (local1>2710) { print (name) rn_93c0(local1-2710); } rn_a478(local1); local3=01; local2++; jump z8b58; } rtrue; ]; ![_______________________________________________________________________]; [rn_8bac local0 local1 local2 ; g84=g83; if (g74) { g75=g74; return 12; } g7e--; local1=rn_91d8(); local2=04; if (local1==g6f) { g71=g6f; g72=g70; local2=0e; } local0=g3e; if (parent (local0)) { local0=parent (local0); jump z8bd1; } if (local0 has life) { if (rn_90dc(local0,g7e-01)~=01) local2=0d; } if (g4b00); if (local1==3f) { g42=01; rtrue; } local2=01; if (local2local2))rtrue; local2++; jump z8c0e; } local1++; (27a0-->local1)=local0; (27a0-->00)=local1; rtrue; ]; ![_______________________________________________________________________]; [rn_8c30 local0 local1 local2 local3 local4 ; local1=(27a0-->00); local4=00; local2=01; if (local2local2)) { local3=local2; if (local3local3)=(27a0-->local3+01); local3++; jump z8c50; } local1--; (27a0-->00)=local1; return local4; } local2++; } local4=09; return local4; ]; ![_______________________________________________________________________]; [rn_8c80 local0 local1 local2 local3 ; local1=(27a0-->00); local2=01; if (local2local2); if (local3 hasnt local0) { rn_8c30(local3); jump z8c81; } local2++; } rtrue; ]; ![_______________________________________________________________________]; [rn_8ca8 local0 ; if (g5d>00)&&(g5d<31) { if (local0 hasnt g5d-01)rtrue; rfalse; } g34=local0; return (rn_g5d()); ]; ![_______________________________________________________________________]; [rn_8cc4 local0 local1 local2 local3 local4 ; local3=local0*02-01; local4=local2*02-01; local4++; local3++; (2b79-->local3)=(local1-->local4); (2b79-->local3)=(local1-->local4); rtrue; ]; ![_______________________________________________________________________]; [rn_8cf4 local0 local1 local2 local3 ; local3=00; if (g74) { g76=02; if (~~rn_g74()) rtrue; } if (g3e==local0 or local1) { if (~~rn_fa9c(g3e)) rtrue; } if (local2==05)&&(g5a~=NULL) { if (rn_8d90(g5a)==01) rn_8e38(g5a,00,local2); } if (local0) { if (local0 hasnt neuter) ||(local0 has on) rn_8e68(local0,local0,local2); } rn_8e38(local0,local1,local2); if (local1) { if (local1 hasnt neuter) ||(local1 has on) rn_8e68(local1,local1,local2); } rn_8e38(local1,00,local2); if (13==local0 or local1) { rn_8e68(g3e,g3e,local2); gef=parent (g3e); if (gef hasnt neuter) ||(gef has on) { rn_8e68(parent (g3e),parent (g3e),local2); } rtrue; ]; ![_______________________________________________________________________]; [rn_8d90 local0 ; if (local0 hasnt neuter)rtrue; if (local0 hasnt after)rtrue; if (local0 has on) ||(local0 hasnt transparent)rtrue; rfalse; ]; ![_______________________________________________________________________]; [rn_8da4 local0 ; if (g73~=00 or 01) { rn_8dc0(local0); rtrue; } g7e=g7d; rn_8fbc(local0); g79=01; rtrue; ]; ![_______________________________________________________________________]; [rn_8dc0 local0 local1 local2 ; local1=g73; local2=g3b; gef=g73; if (gef==03) { if (local0.react_before==00 or NULL) { rtrue; } if (g3b) g3b=rn_9cac(local0,1a); } if (gef==04) { if (local0.react_after==00 or NULL) { rtrue; } if (g3b) g3b=rn_9cac(local0,1b); } if (gef==02) { if (~~local0.&each_turn) { rtrue; } rn_9c2c(local0,2c); } if (gef==06) { if (local0~=g3b) g3c=01; } if (gef==05) { rn_g3b(local0); g3b=local2; } g73=local1; rtrue; ]; ![_______________________________________________________________________]; [rn_8e38 local0 local1 local2 ; if (local0) rtrue; if (~~g64) &&(local0==g3f)if (~~g73) &&(local2==06) rn_8e38(06); local0=child(local0); if (local0) { rn_8e68(local0,local1,local2); local0=sibling(local0); } rtrue; ]; ![_______________________________________________________________________]; [rn_8e68 local0 local1 local2 local3 local4 local5 ; if (local2==04)&&(local0==g5a) ||(g73~=00 or 01) { rn_8dc0(local0); } if (g7d02)&&(local3<80) { if ((2d45-->local3)~=local0) rn_8f70(local0,01); } g7e=g7d; if (rn_8fbc(local0)>00)&&(g6b>00)&&(g7d~=g6b) { g7e=g6b; if (rn_8fbc(local0)>00) { g7d=g6b; rn_7a80(); } g7e=g7d; } if (child(local0)) &&(local0~=local1) { if (rn_8d90(local0)==01) rn_8e38(local0,local1,local2); } local4=local0.&add_to_scope; if (local4) { if (rn_a528((local4-->00),g0c)>00) { g77=02+local2; rn_9cac(local0,18); g77=00; } gef=local0.&add_to_scope; if (~~gef) gef=@get_prop_len(gef); local5=gef; local3=00; if (02*local3local3),00,local2); local3++; jump z8f33; } rtrue; ]; ![_______________________________________________________________________]; [rn_8f4c local0 ; if (g77>02) { rn_8e68(local0,00,g77-02); } if (g77==01) { if (rn_9ed0(local0)~=01) g78=01; } rtrue; ]; ![_______________________________________________________________________]; [rn_8f70 local0 local1 local2 ; if (g5d) { if (~~rn_8ca8(local0)) { rtrue; } if (local1>g7c) if (local1>g7c) { g7c=local1; g7a=00; } if (02*g7a<80) local2=00; if (local2local2)~=local0)rtrue; local2++; jump z8f9a; } g7a++; (2980-->g7a)=local0; rtrue; ]; ![_______________________________________________________________________]; [rn_8fbc local0 local1 local2 local3 local4 ; g6e=00; if (g7e>g7f) { if (~~g64) g6e=70; rn_8f70(local0,00); rtrue; } if (local0.parse_name) { g3a=NULL; local4=g7e; local2=rn_9cac(local0,30); if (local2>00) { g7e=local4+local2; if (g3a~=PluralFound) g6e=g6e|04; if ((g6e&04)) { if (~~g6c) { local2=00; } if (~~g64) { g64=01; g65=00; g66=00; } g65=g65|08; if (g66) g66=64; } rn_8f70(local0,local2); return local2; } if (local2) } g3a=NULL; local3=rn_9190(); if (local3==01)&&(g1b==local0) { local2=01; jump z8ff1; } if (local3>02)&&(local3<80) { if ((2d45-->local3)==local0) { local2=01; jump z8ff1; } g7e--; local4=g7e; local1=rn_fab8(local0); if (local1>00) g7e++; if (local1>00) { local2=local1; jump z8ff1; } if (local1) { if (~~rn_90dc(local0,g7e-01)) { } if (g64) { local2=00; g3a=NULL; jump z8ff1; } rfalse; if (local1<00) { local1=01; g6e=((local3->06)&74); local3=rn_91d8(); if (rn_90dc(local0,g7e-01)) { local1++; if (local3) { g6e=g6e|((local3->06)&74); } local3=rn_91d8(); jump z90ae; } local2=local1; jump z8ff1; ]; ![_______________________________________________________________________]; [rn_90dc local0 local1 local2 local3 local4 local5 ; if (local0) rfalse; local3=g7e; g7e=local1; local2=rn_9224(); g7e=local3; if (g3d>100) { local3=rn_g3d(local0,local2); if (local3>00) return local3; local5=00-local3; } local5=g3d; local3=rn_fda0(local0,local5); local4=rn_febc(local0,local5)/02-01; local5=00; if (local5local5))rtrue; local5++; jump z9122; } rfalse; ]; ![_______________________________________________________________________]; [rn_9134 local0 local1 local2 local3 local4 local5 ; local3=rn_fda0(local1,local2); local4=rn_febc(local1,local2)/02-01; local5=00; if (local5local5))rtrue; local5++; jump z914e; } rfalse; ]; ![_______________________________________________________________________]; [rn_9160 local0 local1 local2 ; local2=00; if (local202+local2)=(local0->local2); local2++; jump z9164; } (2bba->01)=local1; rn_7104(2bba,2c33); return ((2c33-->01)); ]; ![_______________________________________________________________________]; [rn_9190 local0 local1 local2 ; local0=rn_91d8(); if (local0) rfalse; if (local0=="me" or "myself" or "self") { rtrue; } local2=(2d45-->00); local1=01; local1=local1+03; if (local1local1)) { return (local1+02); } } if (((local0->06)&80)) rfalse; return local0; ]; ![_______________________________________________________________________]; [rn_91d8 local0 local1 local2 ; if (g7e>(2b79->01)) { g7e++; rfalse; } local0=g7e*02-01; g7e++; local1=(2b79-->local0); if (~~local1) { local2=g7e*04-03; local0=(2b00->(2b79->local2)); if (local0==2c) local1="comma,"; if (local0==2e) local1="then"; } return local1; ]; ![_______________________________________________________________________]; [rn_9224 ; if (g7e>(2b79->01)) { g7e++; return NULL; } return (rn_91d8()); ]; ![_______________________________________________________________________]; [rn_923c local0 ; return (2b00+(2b79->local0*04+01)); ]; ![_______________________________________________________________________]; [rn_9254 local0 ; return ((2b79->local0*04)); ]; ![_______________________________________________________________________]; [rn_9260 local0 local1 local2 local3 local4 local5 local6 local7 local8 local9 ; local1=g7e; g7e=local0; local2=rn_91d8(); g7e=local1; local2=rn_a4dc(local2); if (local2>01) return local2; local1=local0*04+01; local2=(2b79->local1); local4=local2+2b00; local5=(2b79->local1-01); local7=rn_faac(local4,local5); if (local7) return local7; if (local5<04) local6=3e8; if (local5~=03) local6=64; if (local5~=02) local6=0a; if (local5~=01) local6=01; local7=00; local3=00; local5=local5-01; local3=00; if (local3local3); if (local9==30) { local8=00; } if (local9==31) { local8=01; } if (local9==32) { local8=02; } if (local9==33) { local8=03; } if (local9==34) { local8=04; } if (local9==35) { local8=05; } if (local9==36) { local8=06; } if (local9==37) { local8=07; } if (local9==38) { local8=08; } if (local9==39) { local8=09; } return fc18; local7=local7+local6*local8; local6=local6/0a; local3++; jump z92cf; } if (local5<03) local7=2710; return local7; ]; ![_______________________________________________________________________]; [rn_935c local0 ; if (local0 has w_to) rtrue; rfalse; ]; ![_______________________________________________________________________]; [rn_9364 local0 local1 local2 ; if (local0 hasnt light) local1=06; if (local0 has e_to) local2=24; if (local0 has w_to) local2=25; if (local0 has ne_to) local2=26; if (~~local2) { if (~~local1) { local2=24; } local2=26; } if (local2==25) local1=local1+01; if (local2==26) local1=local1+02; if (local0 has se_to) local1=local1+03; return local1; ]; ![_______________________________________________________________________]; [rn_93ac local0 ; return (local0-(00-->04)+07/09); ]; ![_______________________________________________________________________]; [rn_93c0 local0 ; return ((00-->04)+07+09*local0); ]; ![_______________________________________________________________________]; [rn_93d4 local0 local1 local2 local3 ; local3=(local0->00); local2=01; if (local2local2)=(local1->local2); local2++; jump z93dc; } rtrue; ]; ![_______________________________________________________________________]; [rn_93f0 local0 local1 local2 ; local2=(2b00->01); if (local2>(2b00->00)) local2=(2b00->00); local2=local2+02; if (local2>local0) { (2b00->local2)=(2b00->local2-01); local2--; jump z940b; } (2b00->local0)=local1; if ((2b00->01)<(2b00->00)) { gef=2b00; gee=01; ged=(gef->gee); ged++; (gef->gee)=ged; } rtrue; ]; ![_______________________________________________________________________]; [rn_9450 local0 local1 local2 local3 ; !@"nouns" ; rn_c904(00,01); local2=(2d45-->00)/03; if (g1b~=14) local2++; if (~~local2) { return (rn_c904(00,04)); } local0=01; local3=00; local0=local0+03; if (local0<(2d45-->00)) { print "~"; print (name) (2d45-->local0); print "~ "; local1=(2d45-->local0+02); if (local1==NULL) { rn_c904(00,03); } rn_c904(00,02); rn_a478(local1); local3++; if (local300)) { if ((2d45-->local2)==local0) { (2d45-->local2+02)=local1; rtrue; } } rn_a660(0e); rtrue; ]; ![_______________________________________________________________________]; [rn_9530 local0 local1 ; local1=01; local1=local1+03; if (local1<(2d45-->00)) { if ((2d45-->local1)==local0) { return ((2d45-->local1+02)); } } rfalse; ]; ![_______________________________________________________________________]; [rn_9560 local0 ; rn_9594(local0); rtrue; ]; ![_______________________________________________________________________]; [rn_9568 ; if (g88~=g8b) rn_94fc("[Your interpreter does not provide ~undo~. Sorry!]",or,"it",g88); if (g89==g8c) rn_94fc("him",g89); if (g8a==g8d) rn_94fc("her",g8a); g8b=g88; g8c=g89; g8d=g8a; rtrue; ]; ![_______________________________________________________________________]; [rn_9594 local0 local1 local2 ; if (local0==g1b) { rtrue; } rn_9568(); local2=(2d2d-->rn_9364(local0)); local1=01; local1=local1+03; if (local1<(2d45-->00)) { if ((local2&(2d45-->local1+01))) { (2d45-->local1+02)=local0; } } or=rn_9530("[Your interpreter does not provide ~undo~. Sorry!]"); g8b=g88; g89=rn_9530("him"); g8c=g89; g8a=rn_9530("her"); g8d=g8a; rtrue; ]; ![_______________________________________________________________________]; [rn_95fc local0 local1 local2 local3 ; g0d=(32-->00); g10=((00-->08)&01); rn_9cd0(26,"You can't go that way."); g1e=13; g1b=14; g0c=1c5-ff; "(self_object)".capacity=14; local1=rn_f388(); g17=g16; move g1b to g09; if (parent (g09)) { g09=parent (g09); jump z962b; } local0=child(g1b); if (local0) { give local0 switchable; give local0 ~moved; local0=sibling(local0); } if (local1==02) rn_a558(); rn_b0ec(); g1d=rn_9e7c(parent (g1b)); if (~~g1d) { g1e=g09; g09=13; } rn_9aa8(1f); local0=01; if (local0<64) { local1=random (local0); local0++; jump z9670; } g8b=g88; g8c=g89; g8d=g8a; if (~~g1c) { rn_9568(); or=rn_9530("[Your interpreter does not provide ~undo~. Sorry!]"); g8c=rn_9530("him"); g8d=rn_9530("her"); if (g16~=g17) { if (g18~=01) rn_9e18(); g17=g16; } (2780-->00)=00; (2780-->01)=00; (2780-->02)=00; (2780-->03)=00; g40=00; rn_fba4(15,48,2780); g31=(2780-->00); if (g31==5b or 5c) { local0=(2780-->02); (2780-->02)=(2780-->03); (2780-->03)=local0; if (g31==5b) { g31=15; } g31=16; } if (g31==51) { if ((2780-->02)==g1b)&&(g3e~=g1b) { (2780-->02)=g3e; g3e=g1b; g31=53; } if (g31==5a) { if ((2780-->02)~=g1b)&&(g3e==g1b) { g3e=(2780-->02); (2780-->02)=(2780-->03); (2780-->03)=g1b; g31=15; } if (g31~=53 or 51 or 52) g43=g52; g41=00; g49=g48; g48=00; g32=00; g33=00; local0=(2780-->01); if (local0<01) g32=(2780-->02); if (local0<02) g33=(2780-->03); if (g32==01) { g34=g52; } g34=g32; if (g33==01) { if (g32==01) { g35=g53; } g35=g52; } g35=g33; if (g3e~=g1b) { local1=rn_9cac(g1b,1d); if (~~local1) { local1=rn_9cac(g3e,1d); if (~~local1) { if (g31==NotUnderstood) { (2780-->03)=g3e; g3e=g1b; g31=52; jump z9765; } ||(rn_9bfc(g3e,Order)) rn_c904(Order,01,g3e); } } if (local0) { if (local0~=01) if (~~g32) { if (local0==02)if (g32) if (g33) { } rn_fba4(geb,4b,g31,g34,g35,00); g41=01; local1=(27a0-->00); if (~~local1) { rn_c904(Miscellany,02); jump z96b0; } if (g42) { g42=00; rn_c904(Miscellany,01); } local0=g09; local2=01; if (local2local2); rn_9594(local3); rn_a4c0(local3); print ": "; if (~~g32) { g32=local3; rn_fba4(geb,4b,g31,local3,g35,00); g32=00; } g33=local3; rn_fba4(geb,4b,g31,g34,local3,00); g33=00; local2++; jump z983b; } if (g48==01) { rn_9ac8(); jump z9686; } if (~~g40) ||(~~g1c) rn_fba4(geb,4a); jump z9686; } if (g1c==02) rn_fa84(); if (g1c) jump z96a2; print "^^ "; style bold; print "***"; if (g1c~=01) rn_c904(Miscellany,03); if (g1c~=02) rn_c904(Miscellany,04); if (g1c>02) { print " "; rn_fa74(); print " "; } print "***"; style roman; print "^^^"; rn_b3cc(); rn_9dec(); rn_c904(Miscellany,05); print "> "; gef=00; gec=2b00; (gec->01)=00; rn_9fcc(); @read gec #2b79 -> gef; local0=(2b79-->01); if (local0=="q" or "quit") { @quit ; } if (local0=="restart") { @restart ; } if (local0=="restore") { rn_b214(); jump z990d; } if (local0=="fullscore" or "full")if (~~01) { new_line; rn_b42c(); jump z990d; } if (g1c==02)&&(local0=="amusing")if (~~01) { new_line; rn_fa70(); jump z990d; } if (local0=="undo" or "undo" or "undo") { if (~~g0e) { rn_c904(Miscellany,06); jump z990d; } if (g0e~=01) @restore_undo -> local0; if (local0) rn_c904(Miscellany,07); jump z990d; } rn_c904(Miscellany,08); jump z9914; ]; ![_______________________________________________________________________]; [rn_99b4 local0 local1 ; g11++; if (g12~=NULL) { if (g13>00) { g12=g12+g13; } g14--; if (~~g14) { g12++; g14=00-g13; } g12=g12%5a0; } local0=00; if (local0local0); if (local1) { if ((local1&8000)) { rn_9cac((local1&NULL),2b); } if (~~local1.time_left) { rn_9d3c(local1); rn_9cac(local1,2a); } local1.time_left=local1.time_left-01; } local0++; } if (g1c) { rtrue; } g73=02; g80=00; rn_8dc0(g09); rn_8cf4(rn_7a54(g1b),g1b,00); g73=00; if (g1c) { rtrue; } rn_fa6c(); if (g1c) { rtrue; } rn_9e34(); if (g1c) { rtrue; } rn_9ac8(); rfalse; ]; ![_______________________________________________________________________]; [rn_9a64 local0 local1 local2 local3 local4 local5 local6 local7 ; local4=g31; local5=g34; local6=g35; g31=local0; g34=local1; g35=local2; local3=00; if (~~g40) { if (~~rn_9b78()) } &&(g31g31)(); local7=00; } local7=01; g31=local4; g34=local5; g35=local6; rfalse; ]; ![_______________________________________________________________________]; [rn_9aa8 local0 local1 local2 local3 local4 ; local3=g32; local4=g33; g32=local1; g33=local2; rn_fba4(16,4b,local0,local1,local2,01); g32=local3; g33=local4; rtrue; ]; ![_______________________________________________________________________]; [rn_9ac8 local0 ; local0=01; if (local0 in g1b)&&(local0 hasnt switchable) { give local0 switchable; if (local0 has male) { g16=g16+04; g1a=g1a+04; } local0++; if (local0>c6) rtrue; ]; ![_______________________________________________________________________]; [rn_9af4 local0 local1 local2 local3 local4 local5 local6 ; local5=g3b; local6=g3c; g3b=local0; g3c=00; local2=g3e; local3=g3f; local4=g73; g73=06; if (~~local1) { g3e=g1b; } g3e=local1; g3f=rn_7a54(g3e); rn_8cf4(g3f,g3e,00); g73=local4; g3e=local2; g3f=local3; g3b=local5; local5=g3c; g3c=local6; return local5; ]; ![_______________________________________________________________________]; [rn_9b3c local0 local1 local2 local3 local4 local5 ; local2=g3b; local3=g73; local4=g3e; local5=g3f; g3b=local0; if (~~local1) { g3e=g1b; } g3e=local1; g3f=rn_7a54(g3e); g73=05; rn_8cf4(g3f,g3e,00); g3b=local2; g73=local3; g3e=local4; g3f=local5; rtrue; ]; ![_______________________________________________________________________]; [rn_9b78 ; if (~~rn_fa88()) rtrue; if (~~rn_9cac(g1b,1d)) rtrue; if (g09) { if (~~rn_9cac(g09,04)) rtrue; } g73=03; g3b=00; rn_8cf4(rn_7a54(g1b),g1b,00); g73=00; if (~~g3b) rtrue; if (g32>01) { if (~~rn_9cac(g32,04)) rtrue; } rfalse; ]; ![_______________________________________________________________________]; [rn_9bc0 ; g73=04; g3b=00; rn_8cf4(rn_7a54(g1b),g1b,00); g73=00; if (~~g3b) rtrue; if (g09) { if (~~rn_9cac(g09,05)) rtrue; } if (g32>01) { if (~~rn_9cac(g32,05)) rtrue; } return (rn_fa8c()); ]; ![_______________________________________________________________________]; [rn_9bfc local0 local1 ; g37=local1; return (rn_9cac(local0,06)); ]; ![_______________________________________________________________________]; [rn_9c08 local0 ; gef=rn_101b4(local0); if (gef==00) { rfalse; } if (gef==02 or 01) { rtrue; } if (gef~=03) return 02; if (gef~=04) return 03; rtrue; ]; ![_______________________________________________________________________]; [rn_9c2c local0 local1 local2 ; if (rn_febc(local0,local1)>02) { return (rn_9cac(local0,local1)); } if (rn_fb7c(local0,local1)~=NULL)rfalse; gef=rn_101b4(rn_fb7c(local0,local1)); if (gef==01 or 02 or 00) { return (rn_a660(02,local0,local1)); } if (gef==04) { print (string) rn_fb7c(local0,local1); if (~~local2) { new_line; } rtrue; } if (gef==03) { return (rn_9cac(local0,local1)); } rtrue; ]; ![_______________________________________________________________________]; [rn_9c8c local0 local1 ; if (rn_fb7c(local0,local1)<100) { return (rn_fb7c(local0,local1)); } return (rn_9cac(local0,local1)); ]; ![_______________________________________________________________________]; [rn_9cac local0 local1 ; if (local0==13)&&(local1~=1e or 2e or 23) local0=g1e; if (rn_fda0(local0,local1)) rfalse; return (rn_fba4(local0,local1)); ]; ![_______________________________________________________________________]; [rn_9cd0 local0 local1 ; ((00-->05)-->local0-01)=local1; rtrue; ]; ![_______________________________________________________________________]; [rn_9ce0 local0 local1 local2 ; local2=00; if (local2local2)~=local0)rfalse; local2++; jump z9ce4; } local2=00; if (local2local2)) local2++; jump z9cfa; } local2=g15; g15++; if (local2*02<40) rn_a660(04); ||(~~local0.&time_left) rn_a660(05,local0); (2740-->local2)=local0; local0.time_left=local1; rtrue; ]; ![_______________________________________________________________________]; [rn_9d3c local0 local1 ; local1=00; if (local1local1)~=local0) local1++; jump z9d40; } rfalse; ||(~~local0.&time_left) rn_a660(05,local0); (2740-->local1)=00; local0.time_left=00; rtrue; ]; ![_______________________________________________________________________]; [rn_9d70 local0 local1 ; local1=00; if (local1local1)~=8000+local0)rfalse; local1++; jump z9d74; } local1=00; if (local1local1)) local1++; jump z9d90; } local1=g15; g15++; if (local1*02<40) rn_a660(04); (2740-->local1)=8000+local0; rtrue; ]; ![_______________________________________________________________________]; [rn_9dc4 local0 local1 ; local1=00; if (local1local1)~=8000+local0) local1++; jump z9dc8; } rfalse; (2740-->local1)=00; rtrue; ]; ![_______________________________________________________________________]; [rn_9dec ; if (g12==g12) { g0a=g16; g0b=g11; } g0a=g12/3c; g0b=g12%3c; rtrue; ]; ![_______________________________________________________________________]; [rn_9e04 local0 local1 ; g12=local0; g13=local1; g14=00; if (local1>00) g14=00-local1; rtrue; ]; ![_______________________________________________________________________]; [rn_9e18 ; print "^["; rn_c904(Miscellany,32,g16-g17); print ".]^"; rtrue; ]; ![_______________________________________________________________________]; [rn_9e34 local0 local1 ; local1=g1d; g1d=rn_9e7c(parent (g1b)); if (~~local1) &&(g1d==01) { g09=g1e; if (local0) rn_9aa8(1f); } if (local1==01)if (~~g1d) { g1e=g09; g09=13; if (~~local0) { rn_c010(); return (rn_c904(Miscellany,09)); } if (~~local1) ||(g1d) g09=13; rtrue; ]; ![_______________________________________________________________________]; [rn_9e7c local0 local1 ; if (local0) rfalse; if (local0 hasnt scored)rtrue; local1=child(local0); if (local1) { if (rn_9ed0(local1)~=01)rtrue; local1=sibling(local1); } if (local0 has on) { if (local0 hasnt transparent) ||(local0 has after) { return (rn_9e7c(parent (local0))); } } if (local0 hasnt proper)&&(local0 hasnt after) ||(local0 has neuter) { return (rn_9e7c(parent (local0))); } rfalse; ]; ![_______________________________________________________________________]; [rn_9ed0 local0 local1 local2 ; if (local0) rfalse; if (local0 hasnt scored)rtrue; if (local0 hasnt proper) { if (rn_8d90(local0)==01) { } local0=child(local0); if (local0) { if (rn_9ed0(local0)~=01)rtrue; local0=sibling(local0); } local2=local0.&add_to_scope; if (parent (local0)) if (local2) { if ((local2-->00)>g0c) { g78=00; g77=01; rn_9cac(local0,18); g77=00; if (g78~=01)rtrue; } local1=00; gef=local0.&add_to_scope; if (~~gef) gef=@get_prop_len(gef); if (02*local1local1))~=01)rtrue; local1++; jump z9f2f; } rfalse; ]; ![_______________________________________________________________________]; [rn_9f58 local0 local1 local2 ; if (g3e==g1b) g3e=local0; give g1b ~after; give g1b ~moved; local2=local0; if (parent (local2)) { if (local2 has light) give local2 after; local2=parent (local2); jump z9f69; } if (g1b~=14) g1b.short_name="your former self"; g1b=local0; if (g1b~=14) g1b.short_name=NULL; give g1b after; give g1b moved; give g1b light; give g1b workflag; local2=g1b; if (parent (local2)) { local2=parent (local2); jump z9fa2; } g09=local2; g1e=g09; rn_b0ec(); g1d=rn_9e7c(parent (g1b)); if (g1d) g09=13; g21=local1; rtrue; ]; ![_______________________________________________________________________]; [rn_9fcc local0 local1 local2 ; @split_window 01; @set_window 01; @set_cursor 01 01 ; style reverse; local0=(00->21); local1=local0-1a; local2=local0-0d; gef=local0; if (gef>01) { print (char) ' '; gef--; if (~~gef) jump z9fed; } @set_cursor 01 02 ; rn_a4c0(g09); if (~~((00->01)&02)) { if (local0>4c) { @set_cursor 01 local1 ; print "Score: "; print g0a; @set_cursor 01 local2 ; print "Moves: "; print g0b; } if (local0>3f)&&(local0<4c) { @set_cursor 01 local2 ; print g0a; print "/"; print g0b; } } @set_cursor 01 local1 ; print "Time: "; rn_51d0(g0a,g0b); @set_cursor 01 01 ; style roman; @set_window 00; rtrue; ]; ![_______________________________________________________________________]; [rn_a054 local0 local1 local2 local3 local4 local5 local6 ; g2b++; g2c=00; local3=rn_local1(); local4=g2e; print "--- "; print (string) local4; print " ---^^"; if (rn_ff40(local0,03)) { rn_fba4(local0,45); } print (string) local0; rn_c904(Miscellany,34,local3); print "> "; gec=2b00; (gec->01)=00; rn_9fcc(); @read gec #2b79 -> gef; local5=(2b79-->01); if (local5~="q" or "quit") { if (~~(2b79->01)) { } g2b--; if (g2b<00) if (~~g1c) { rn_9aa8(1f); rtrue; } rfalse; local5=rn_9260(01); if (local5) jump za057; if (local5<01) ||(local5>local3) jump za087; g2c=local5; local6=rn_local2(); if (local6~=02) jump za057; if (local6==03)rfalse; jump za087; ]; ![_______________________________________________________________________]; [rn_a0fc local0 local1 local2 local3 local4 local5 local6 local7 local8 local9 local10 ; if (~~g2a) { return (rn_a054(local0,local1,local2)); } g2b++; g2c=00; local3=rn_local1(); local4=g2e; local5=g2d; local6=07; local9=00; @erase_window #ffff; local7=local3+07; @split_window local7; local7=(00->21); if (local7) local7=50; @set_window 01; @set_cursor 01 01 ; style reverse; gef=local7; if (gef>01) { print (char) ' '; gef--; if (~~gef) jump za143; } local8=local7/02-local5; @set_cursor 01 local8 ; print (string) local4; @set_cursor 02 01 ; gef=local7; if (gef>01) { print (char) ' '; gef--; if (~~gef) jump za165; } @set_cursor 02 02 ; print "N = next subject"; local8=local7-0c; @set_cursor 02 local8 ; print "P = previous"; @set_cursor 03 01 ; gef=local7; if (gef>01) { print (char) ' '; gef--; if (~~gef) jump za18b; } @set_cursor 03 02 ; print "RETURN = read subject"; local8=local7-11; @set_cursor 03 local8 ; if (g2b==01) { print " Q = resume game"; } print "Q = previous menu"; style roman; @set_cursor 05 02 ; gef=(00-->08); gef=02|gef; (00-->08)=gef; if (rn_ff40(local0,04)) { print (string) local0; } rn_fba4(local0,45); if (local6~=local9) { if (local9>00) { @set_cursor local9 04 ; print " "; } @set_cursor local6 04 ; print ">"; } local9=local6; local10=@set_window 01;@read_char a1f8: c1 95 0b 4e 6e 82 52 je local10 #4e #6e #82 ~a20f; local6++; if (local6~=07+local3) local6=07; jump za1d9; if (local10==50 or 70 or 81) { local6--; if (local6==06) local6=06+local3; jump za1d9; } if (local10==51 or 71 or 1b) ||(local10==83) ||(local10==0a or 0d or 84) { @set_window 00; gef=(00-->08); gef=(fffd&gef); (00-->08)=gef; new_line; new_line; new_line; g2c=local6-06; rn_fba4(local1,45); @erase_window #ffff; @split_window 01; local7=(00->21); if (local7) local7=50; @set_window 01; @set_cursor 01 01 ; style reverse; gef=local7; if (gef>01) { print (char) ' '; gef--; if (~~gef) jump za27a; } local8=local7/02-g2d; @set_cursor 01 local8 ; print (string) g2e; style roman; @set_window 00; new_line; local7=rn_fba4(local2,45); if (local7~=02) jump za11a; if (local7~=03) rn_c904(Miscellany,35); local10=@set_window 01;@read_char a2b8: 8c fe 61 jump a11a; } g2b--; if (g2b<00) gef=(00-->08); gef=(fffd&gef); (00-->08)=gef; @set_cursor 01 01 ; @erase_window #ffff; @set_window 00; new_line; new_line; new_line; if (~~g1c) { rn_9aa8(1f); rtrue; } rtrue; ]; ![_______________________________________________________________________]; [rn_a2ec local0 local1 local2 local3 local4 local5 ; if (rn_fee8(local0,31)) { print (string) (local0.&articles-->local1+g87*01); print " "; if (local2) { rtrue; } rn_a3a8(local0); rtrue; } local3=rn_9364(local0); if (local2) { if (local3>03) { if (local3>06)&&(local3<09) } local3=local3+03; } local3=(2e4b-->local3); local4=2e33+0c*g87+local3*01; if ((local4-->local1)==(local4-->local1+03)) local5=01; if (g0d) if (local5) { (2e63-->00)=a0; @output_stream redirect_enable #2e63; if (local2) { rn_a4d4(local2); } rn_a3a8(local0); @output_stream #fffd; local1=local1+03*rn_4f34(2e63+02); } print (string) (local4-->local1); if (local2) { rtrue; } rn_a3a8(local0); rtrue; ]; ![_______________________________________________________________________]; [rn_a3a8 local0 ; if (~~local0) { print "nothing"; rtrue; } gef=rn_101b4(local0); if (gef==03) { print ""; rtrue; } if (gef==04) { print ""; rtrue; } if (gef==00) { print ""; rtrue; } if (local0==g1b) { print "yourself"; rtrue; } if (g64) { if (local0.&short_name_indef) { if (~~rn_9c2c(local0,2f,01)) rtrue; } if (local0.&short_name) { if (~~rn_9c2c(local0,2e,01)) rtrue; } print (name) local0; rtrue; ]; ![_______________________________________________________________________]; [rn_a438 local0 local1 ; local1=g64; g64=01; if (local0 has workflag) { g64=NULL; rn_a3a8(local0); rtrue; } if (rn_fee8(local0,25)) { rn_9c2c(local0,25,01); print " "; rn_a3a8(local0); g64=local1; rtrue; } rn_a2ec(local0,02); g64=local1; rtrue; ]; ![_______________________________________________________________________]; [rn_a478 local0 local1 ; local1=g64; g64=00; if (local0 has workflag) { g64=NULL; rn_a3a8(local0); g64=local1; rtrue; } rn_a2ec(local0,01); g64=local1; rtrue; ]; ![_______________________________________________________________________]; [rn_a49c local0 local1 ; local1=g64; g64=00; if (local0 has workflag) { g64=NULL; rn_a3a8(local0); g64=local1; rtrue; } rn_a2ec(local0,00); g64=local1; rtrue; ]; ![_______________________________________________________________________]; [rn_a4c0 local0 local1 ; local1=g64; g64=NULL; rn_a3a8(local0); g64=local1; rtrue; ]; ![_______________________________________________________________________]; [rn_a4d4 local0 ; rn_4ff8(local0); rtrue; ]; ![_______________________________________________________________________]; [rn_a4dc local0 local1 local2 ; local2=(2de1-->00); local1=01; local1=local1+02; if (local1local1)) { return ((2de1-->local1+01)); } } rfalse; ]; ![_______________________________________________________________________]; [rn_a50c local0 ; if (~~(local0-->00)) { return (rn_a660(08)); } return ((local0-->random ((local0-->00)))); ]; ![_______________________________________________________________________]; [rn_a528 local0 local1 local2 local3 ; if (local0==local1) { rfalse; } if (local0<00)&&(local1>00) { rtrue; } if (local0>00)&&(local1>00) return NULL; local2=(local0&NULL); local3=(local1&NULL); if (local2>local3) { rtrue; } return NULL; ]; ![_______________________________________________________________________]; [rn_a558 local0 ; if (00) { style bold; print (string) 0; style roman; } if (~~40cb) print " ^ Uh-Oh! DEMO VERSION ^ ----- ^^ An Interactive Adventure You Hope Doesn't Come True ^ (C) 1998 Scott Covert / Future Media ^^Type HELP for instructions, clues and credits at any time. ^HINTS (as well as WEAK hints) available in full version only. ^(Note: the serial number assigned below is not Year 2000 compliant.) ^^"; print "Release "; print ((00-->01)&3ff); print " / Serial number "; local0=12; if (local0<18) { print (char) (00->local0); local0++; jump za593; } print " / Inform v"; gef=(00->3c); print (char) gef; gef=(00->3d); print (char) gef; gef=(00->3e); print (char) gef; gef=(00->3f); print (char) gef; print " Library "; print "6/7"; new_line; rtrue; ]; ![_______________________________________________________________________]; [rn_a5d8 ; !@"version" ; rn_a558(); if (g0d>00) { print "Standard interpreter "; print g0d/100; print "."; print g0d%100; print " ("; print (00->1e); print (char) (00->1f); print ") / "; } print "Interpreter "; print (00->1e); print " Version "; print (char) (00->1f); print " / "; print "Library serial number "; print "970918"; print "^"; rtrue; ]; ![_______________________________________________________________________]; [rn_a660 local0 local1 local2 ; print "** Library error "; print local0; print " ("; print local1; print ","; print local2; ") **"; ]; ![_______________________________________________________________________]; [rn_a68c ; !@"places" ; rn_b2e4(); rtrue; ]; ![_______________________________________________________________________]; [rn_a694 ; !@"objects" ; rn_b334(); rtrue; ]; ![_______________________________________________________________________]; [rn_a69c local0 local1 ; local0=sibling(local0); if (~~local0) { rfalse; } if (g24) { if (local0.list_together==g24) jump za69d; } if ((g23&200)) if (~~local1) &&(local0 hasnt n_to) if ((g23&800)) { if (local0 hasnt moved) ||(local0 has worn) } return local0; ]; !orphan code [rn_orphan0; rtrue; ]; ![_______________________________________________________________________]; [rn_a6e0 local0 ; if (~~(g23&20)) rtrue; if ((g23&10)) rfalse; if (local0 hasnt after)rtrue; if (local0 hasnt neuter)rtrue; if (local0 has on) ||(local0 hasnt transparent)rtrue; rfalse; ]; ![_______________________________________________________________________]; [rn_a700 local0 local1 ; if (child(local0)) { if (~~rn_a6e0(local0)) rfalse; } if (child(local1)) { if (~~rn_a6e0(local1)) rfalse; } if ((g23&84)) { if (local0 hasnt s_to) ||(local1 hasnt s_to)rfalse; if (local1 hasnt s_to) ||(local0 hasnt s_to)rfalse; if (local0 hasnt scored) ||(local1 hasnt scored)rfalse; if (local1 hasnt scored) ||(local0 hasnt scored)rfalse; } return (rn_8a54(local0,local1)); ]; ![_______________________________________________________________________]; [rn_a754 local0 local1 ; if (child(local0)) { if (child(local0).list_together~=local1) { move child(local0) to "outside"; } move child(local0) to "inside"; } if (child("inside")) { move child("inside") to local0; } if (child("outside")) { move child("outside") to local0; } rtrue; ]; ![_______________________________________________________________________]; [rn_a7a0 local0 local1 local2 local3 ; local1=local0; local1=sibling(local1); if (local1) { local2=local1.list_together; if (local2) { local1=sibling(local1); if (local1) { if (local1.list_together==local2) { local1=sibling(local1); jump za7bb; } if (local1) rfalse; local3=sibling(local1); local3=sibling(local3); if (local3) { if (local3.list_together==local2) { rn_a754(parent (local0),local2); local0=child(parent (local0)); jump za7a1; } } } rtrue; ]; ![_______________________________________________________________________]; [rn_a804 local0 ; if (~~local0) { rtrue; } gef=local0; if (gef>01) { print (char) ' '; gef--; if (~~gef) jump za810; } rtrue; ]; ![_______________________________________________________________________]; [rn_a81c local0 local1 local2 ; if (local0==child(parent (local0))) { rn_a7a0(local0); local0=child(parent (local0)); } g23=local1; g27=00; rn_a844(local0,local2); rtrue; ]; ![_______________________________________________________________________]; [rn_a844 local0 local1 local2 local3 local4 local5 local6 local7 local8 local9 local10 local11 local12 local13 local14 ; if (local1>00) { if (local0==child(parent (local0))) { rn_a7a0(local0); local0=child(parent (local0)); } if (local0) rfalse; if ((g23&200)) if (~~local1) &&(local0 hasnt n_to) { local0=sibling(local0); } if ((g23&800)) { if (local0 hasnt moved) ||(local0 has worn) { local0=sibling(local0); } local3=2a00+local2; local4=2980+local2; local5=local0; local6=00; local5=rn_a69c(local5,local1); local6++; if (local5) { if (local6+local2<80) { (local3->local6)=00; ||(local5.plural) local7++; jump za8aa; } if ((g23&400)) { if (local6==01)&&(local0 hasnt se_to) { print " is"; } print " are"; if ((g23&01)) { print ":^"; } print (char) ' '; g23=g23-400; } local2=local2+local6+01; if (local7>02) local11=01; local5=local0; local7=00; local5=rn_a69c(local5,local1); local7++; if (local7local7)) { (local3->local7)=local11; (local4->local11)=01; local9=rn_a69c(local5,local1); local10=local7+01; local9=rn_a69c(local9,local1); local10++; if (local9) &&(local10local10)) { if (local5.plural) { if (local9.plural) { if (rn_a700(local5,local9)==01) { (local4->local11)=(local4->local11)+01; (local3->local10)=local11; } } local11++; } } local11--; local5=01; local6=local0; local7=00; local5++; local13++; if (local5local7)~=local5) { if ((local3->local7)~=00-local5) { local7++; local6=rn_a69c(local6,local1); jump za9b1; } local10=(local4->local5); if (local6.list_together~=00 or g24) { if (rn_9c08(local6.list_together)==02 or 03) { if (local6.list_together==local14) local13--; } local14=local6.list_together; jump za9a8; } local13--; local5=01; local6=local0; local7=00; local14=00; local5++; local13--; if (local13>00) { if ((local3->local7)~=local5) { if ((local3->local7)~=00-local5) { local7++; local6=rn_a69c(local6,local1); jump zaa1a; } if (local6.list_together~=00 or g24) { if (local6.list_together==local14) { local13++; } local8=rn_a69c(local6,local1); if (local8) { if (local8.list_together==local6.list_together) } local8=rn_9c08(local6.list_together); if (local8==02 or 03) { local12=local6; g26=01; local9=local7; local10=local5; if (local10local9)~=local10) { if ((local3->local9)~=00-local10) { local9++; local12=rn_a69c(local12,local1); jump zaa9c; } if (local12.list_together~=local6.list_together) g26++; jump zaa88; } if (g26~=01) if ((g23&02)) { rn_a804(02*local1+g27); } if (local8==03) { local12=00; local9=00; if (local9local9+local5); local9++; jump zaaf3; } rn_a4d4(local12); print " "; print (string) local6.list_together; ||((g23&08)) print " ("; ||(~~(g23&02)) print ":^"; } local12=g23; if (local8~=03) { g28=01; g3b=local6; g3c=local1+g27; if (rn_9cac(local6,19)~=01) } g24=local6.list_together; g25=local6; g27++; rn_a844(local6,local1,local2); g27--; g24=00; g25=00; if (local8==03) { ||(~~(local12&08)) print ")"; } g28=02; g3b=local6; g3c=local1+g27; rn_9cac(local6,19); if ((local12&01)) { if (~~(g23&01)) { new_line; } g23=local12; local14=local6.list_together; } if (rn_adfc(local6,local1,00-local13)~=01) ||((local4->local5)==01) { if ((g23&LetGo)) { rn_a4c0(local6); } if ((g23&100)) { rn_a478(local6); } rn_a438(local6); } if ((g23&100)) { rn_a2ec(local6,01,(local4->local5)); } rn_a4d4((local4->local5)); print " "; rn_9c2c(local6,17,01); rn_ae54(local6,local1,local2); if ((g23&08)) { if (local13~=01) print " and "; if (local13>01) print ", "; } } rtrue; local11=local6; local5=01; local6=local0; local6=rn_a69c(local6,local1); local5++; local13++; if (local500) { ||((g23&08)) rn_c904(ListMiscellany,12,local0); local3=01; } if ((g23&10)) &&(local5>00) { if (local0 has neuter) { if ((g23&08)) { if ((g23&40)) { rn_c904(ListMiscellany,13,local0); } rn_c904(ListMiscellany,14,local0); if (local0 has light) { print "whom "; } print "which "; } local3=01; } if (local0 has on) { if (local0 hasnt transparent) ||(local0 has after) { if ((g23&08)) { if ((g23&40)) { rn_c904(ListMiscellany,15,local0); } rn_c904(ListMiscellany,16,local0); if (local0 has light) { print "whom "; } print "which "; } local3=01; } if (local3==01) { if ((g23&08)) { if (local5>01) ||(local4 has se_to) { print "are "; } print "is "; } if ((g23&01)) { new_line; } if (local3==01) { local0=child(local0); rn_a844(local0,local1+01,local2); ||(~~(g23&40)) print ")"; } rtrue; ]; ![_______________________________________________________________________]; [rn_b0ec local0 local1 local2 local3 local4 local5 ; local0=01; local4=local0.&found_in; if (local4) &&(local0 hasnt lockable) { if (rn_9c08((local4-->00))==02) { if (rn_fba4(local0,27)) { move local0 to g09; } remove local0; } gef=local0.&found_in; if (~~gef) gef=@get_prop_len(gef); local1=gef; local2=00; if (local2local2); if (local3==g09) ||(local3 in g09) { move local0 to g09; local5=01; } local2++; } if (~~local5) remove local0; } local0++; if (local0>c6) rtrue; ]; ![_______________________________________________________________________]; [rn_b160 local0 local1 ; move g1b to local0; if (parent (local0)) { local0=parent (local0); } g09=local0; g1e=g09; rn_b0ec(); rn_9e34(01); if (local1) rn_9aa8(1f); if (local1==01) { rn_c010(); rn_c030(); } if (local1~=02) rn_c048(01); rtrue; ]; ![_______________________________________________________________________]; [rn_b19c local0 ; rn_9aa8(1b,local0); rn_9aa8(1f); rtrue; ]; ![_______________________________________________________________________]; [rn_b1ac local0 ; gec=2b00; (gec->01)=00; rn_9fcc(); @read gec #2b79 -> gef; local0=(2b79-->01); if (local0~="y" or "yes" or "yes")rtrue; if (local0~="n" or "no" or "no")rfalse; rn_c904(01,01); print "> "; jump zb1ad; ]; !orphan code [rn_orphan1; rtrue; ]; ![_______________________________________________________________________]; [rn_b1ec ; !@"die" ; rn_c904(01,02); if (rn_b1ac()) { @quit ; } rtrue; ]; ![_______________________________________________________________________]; [rn_b1fc ; !@"restart" ; rn_c904(02,01); if (rn_b1ac()) { @restart ; rn_c904(02,02); } rtrue; ]; ![_______________________________________________________________________]; [rn_b214 ; !@"restore" ; @restore -> gef; if (gef~=02) { return (rn_c904(03,01)); } rn_c904(03,02); rtrue; ]; ![_______________________________________________________________________]; [rn_b22c ; !@"save" ; @save -> gef; if (~~gef) { return (rn_c904(04,01)); } rn_c904(04,02); rtrue; ]; ![_______________________________________________________________________]; [rn_b244 ; !@"verify" ; @verify b24a; return (rn_c904(05,01)); rn_c904(05,02); rtrue; ]; ![_______________________________________________________________________]; [rn_b25c ; !@"script" "script on"; g10=((00-->08)&01); if (g10) { return (rn_c904(06,01)); } @output_stream scripting_enable; if (~~((00-->08)&01)) { return (rn_c904(06,03)); } rn_c904(06,02); rn_a5d8(); g10=01; rtrue; ]; ![_______________________________________________________________________]; [rn_b294 ; !@"script off"; g10=((00-->08)&01); if (~~g10) { return (rn_c904(07,01)); } rn_c904(07,02); @output_stream #fffe; if (((00-->08)&01)) { return (rn_c904(07,03)); } g10=00; rtrue; ]; ![_______________________________________________________________________]; [rn_b2cc ; !@"notify on"; g18=01; rn_c904(08); rtrue; ]; ![_______________________________________________________________________]; [rn_b2d8 ; !@"notify off"; g18=00; rn_c904(09); rtrue; ]; ![_______________________________________________________________________]; [rn_b2e4 local0 local1 local2 ; rn_c904(0a); local0=01; if (local0 has life) local1++; local0++; if (local0>c6) jump zb2ed; local0=01; if (local0 has life) { rn_a4c0(local0); local2++; if (local2~=local1) "."; if (local2==local1-01) { print " and "; } print ", "; } local0++; if (local0>c6) rtrue; ]; ![_______________________________________________________________________]; [rn_b334 local0 local1 local2 ; rn_c904(0b,01); local0=01; if (local0 has switchable) { local2=01; rn_a478(local0); local1=parent (local0); if (local1==g1b) { if (local0 has s_to) { rn_c904(0b,03); } rn_c904(0b,04); } if (local1 has light) { rn_c904(0b,05); } if (local1 has life) { rn_c904(0b,06,local1); } if (local1 has on) { rn_c904(0b,08,local1); } if (local1 has neuter) { rn_c904(0b,09,local1); } if (local1 has proper) { rn_c904(0b,07,local1); } rn_c904(0b,0a); new_line; } local0++; if (local0>c6) ||(~~local2) rn_c904(0b,02); rtrue; ]; ![_______________________________________________________________________]; [rn_b3cc ; !@"score" ; rn_c904(0c); rn_fab4(); rtrue; ]; ![_______________________________________________________________________]; [rn_b3d8 local0 ; if (~~(2fa9->local0)) { (2fa9->local0)=01; g16=g16+(2fa5->local0); } rtrue; ]; ![_______________________________________________________________________]; [rn_b3f4 local0 local1 ; print " "; local1=local0; if (local1<00) { local1=00-local0; local1=local1*0a; } if (local1<0a) { print " "; } if (local1<64) { print " "; } if (local1<3e8) print " "; print local0; print " "; rtrue; ]; ![_______________________________________________________________________]; [rn_b42c local0 ; !@"full" "full score"; rn_b3cc(); if (g16) rfalse; if (01) rfalse; new_line; rn_c904(0d,01); local0=00; if (local0<01) { if ((2fa9->local0)==01) { rn_b3f4((2fa5->local0)); rn_fa98(local0); } local0++; } if (g1a) { rn_b3f4(g1a); rn_c904(0d,02); } if (g19) { rn_b3f4(g19); rn_c904(0d,03); } new_line; rn_b3f4(g16); rn_c904(0d,04); rtrue; ]; ![_______________________________________________________________________]; [rn_b490 ; !@"i wide"; g29=1c; rn_9aa8(0e); rtrue; ]; ![_______________________________________________________________________]; [rn_b49c ; !@"i tall"; g29=17; rn_9aa8(0e); rtrue; ]; ![_______________________________________________________________________]; [rn_b4a8 local0 ; !@"carry inventory"; if (~~child(g1b)) { return (rn_c904(0e,01)); } if (~~g29) { return (rn_b49c()); } rn_c904(0e,02); if ((g29&01)) { print ":^"; } print " "; rn_a81c(child(g1b),g29,01); ||(~~(g29&08)) print ".^"; local0=child(g1b); if (local0) { rn_9594(local0); local0=sibling(local0); } rn_9bc0(); rtrue; ]; ![_______________________________________________________________________]; [rn_b508 local0 local1 local2 local3 ; local2=local0; if (local2) { local3=local1; if (local3) { if (local3==local2) return local2; local3=parent (local3); jump zb512; } local2=parent (local2); } rfalse; ]; ![_______________________________________________________________________]; [rn_b528 local0 local1 ; if (local1) { if (local0~=local1)rtrue; local1=parent (local1); jump zb529; } rfalse; ]; ![_______________________________________________________________________]; [rn_b538 local0 local1 local2 local3 local4 local5 ; local1=local0; if (parent (local1)) { local1=parent (local1); jump zb53c; } local2=01; if (local2.&add_to_scope) { local4=local2.&add_to_scope; gef=local2.&add_to_scope; if (~~gef) gef=@get_prop_len(gef); local3=gef/02; ||(~~rn_ff40((local4-->00),03)) local5=00; if (local5local5)==local1) return local2; local5++; jump zb57c; } local2++; if (local2>c6) rfalse; ]; ![_______________________________________________________________________]; [rn_b59c local0 local1 local2 local3 local4 ; local4=rn_b538(local0); if (local4) { if (rn_b59c(local4)) { rtrue; } local3=rn_b508(g1b,local0); if (g1b~=local3) { local4=parent (g1b); if (local4~=local3) { if (local4 has on)&&(local4 hasnt transparent) { if (~~local1) rtrue; return (rn_c904(0f,09,local4)); } local4=parent (local4); } if (local0~=local3) { local4=parent (local0); if (local4~=local3) { if (local2) &&(local4 hasnt on)&&(local4 hasnt neuter) { if (local4 has light) { if (~~local1) rtrue; return (rn_c904(0f,06,local4)); } if (local4 has after) { if (~~local1) rtrue; return (rn_c904(0f,07,local4)); } if (~~local1) rtrue; return (rn_c904(0f,08,local0)); } if (local4 has on)&&(local4 hasnt transparent) { if (~~local1) rtrue; return (rn_c904(0f,09,local4)); } local4=parent (local4); } rfalse; ]; ![_______________________________________________________________________]; [rn_b640 local0 local1 local2 local3 local4 local5 ; if (local0==g1b) { return (rn_c904(0f,02)); } if (local0 has light) { return (rn_c904(0f,03,local0)); } local1=rn_b508(g1b,local0); if (~~local1) { local3=rn_b538(local0); if (local3) local1=rn_b508(g1b,local3); } if (~~local1) { return (rn_c904(0f,08,local0)); } if (local1==local0) { return (rn_c904(0f,04,local0)); } if (local0 in g1b) { return (rn_c904(0f,05,local0)); } if (rn_b59c(local0,00,01)) { rtrue; } local3=parent (local0); if (local3~=local1) { if (local3 hasnt on) ||(local3 has neuter) { local2=local3; local5=g31; g31=LetGo; if (rn_9cac(local3,04)) { g31=local5; rtrue; } g31=local5; } if (local0 has worn) { return (rn_c904(0f,0a,local0)); } if (local0 has female) { return (rn_c904(0f,0b,local0)); } local5=00; local4=child(g1b); if (local4) { if (local4 hasnt s_to) local5++; local4=sibling(local4); } if (local5>rn_9c8c(g1b,2d)) { if (00) { if (parent (00)~=g1b) { return (rn_c904(0f,0c)); } local4=00; local5=child(g1b); if (local5) { if (local5) &&(local5 hasnt s_to)&&(local5 hasnt scored) local4=local5; local5=sibling(local5); } if (local4) { rn_c904(0f,0d,local4); g36=01; rn_9aa8(13,local4,00); g36=00; if (local4 in 00) rtrue; } return (rn_c904(0f,0c)); } return (rn_c904(0f,0c)); } move local0 to g1b; if (local2) { local5=g31; g31=LetGo; if (rn_9cac(local2,05)) { g31=local5; rtrue; } g31=local5; } rfalse; ]; ![_______________________________________________________________________]; [rn_b794 ; !@"carry multi"; if (~~g49) ||(g34 notin g1b) { if (~~rn_b640(g34)) rtrue; } if (rn_9bc0()~=01)rtrue; g48=g49; if (g48~=01)rtrue; if (g36~=01)rtrue; rn_c904(0f,01); rtrue; ]; ![_______________________________________________________________________]; [rn_b7c0 local0 ; !@"carry multiinside from noun"; local0=parent (g34); if (local0 has on)&&(local0 hasnt transparent) { return (rn_c904(11,01,g34)); } if (local0~=g35) { return (rn_c904(11,02,g34)); } if (local0 has light) { return (rn_c904(0f,06,local0)); } if (~~rn_b640(g34)) rtrue; g31=0f; if (rn_9bc0()~=01)rtrue; g31=11; if (rn_9bc0()~=01)rtrue; if (g36~=01)rtrue; return (rn_c904(11,03,g34)); ]; ![_______________________________________________________________________]; [rn_b81c ; !@"put down multiheld"; if (g34==g1b) { return (rn_c904(12,04)); } if (g34 in parent (g1b)) { return (rn_c904(10,01,g34)); } if (g34 notin g1b) { return (rn_c904(10,02,g34)); } if (g34 has s_to) { rn_c904(10,03,g34); rn_9aa8(29,g34); if (g34 hasnt s_to)rtrue; } move g34 to parent (g1b); if (rn_9bc0()~=01)rtrue; if (g36~=01)rtrue; return (rn_c904(10,04,g34)); ]; ![_______________________________________________________________________]; [rn_b878 local0 ; !@"put multiexcept on / onto noun"; g38=12; if (g35==10) ||(g1b in g35) { rn_9aa8(10,g34); rtrue; } if (parent (g34)~=g1b) { return (rn_c904(12,01,g34)); } local0=rn_b508(g34,g35); if (local0==g34) { return (rn_c904(12,02,g34)); } if (rn_b59c(g35)) { rtrue; } if (g35~=local0) { g31=Receive; if (rn_9cac(g35,04)) { g31=12; rtrue; } g31=12; } if (g35 hasnt neuter) { return (rn_c904(12,03,g35)); } if (local0==g1b) { return (rn_c904(12,04)); } if (g34 has s_to) { rn_c904(12,05,g34); rn_9aa8(29,g34); if (g34 has s_to) { rtrue; } gef=00; gef++; gee=sibling(child(g35)); if (gef>rn_9c8c(g35,2d)) { return (rn_c904(12,06,g35)); } move g34 to g35; if (rn_9bc0()==01) { rtrue; } if (g35~=local0) { g31=Receive; if (rn_9cac(g35,05)) { g31=12; rtrue; } g31=12; } if (g36==01) { rtrue; } if (g41==01) { return (rn_c904(12,07)); } rn_c904(12,08,g34); rtrue; ]; ![_______________________________________________________________________]; [rn_b96c local0 ; !@"put multiexcept in / inside / into noun"; g38=13; if (g35==10) ||(g1b in g35) { rn_9aa8(10,g34); rtrue; } if (parent (g34)~=g1b) { return (rn_c904(13,01,g34)); } local0=rn_b508(g34,g35); if (local0==g34) { return (rn_c904(13,05,g34)); } if (rn_b59c(g35)) { rtrue; } if (g35~=local0) { g31=Receive; if (rn_9cac(g35,04)) { g31=13; rtrue; } g31=13; if (g35 has on)&&(g35 hasnt transparent) { return (rn_c904(13,03,g35)); } if (g35 hasnt on) { return (rn_c904(13,02,g35)); } if (g34 has s_to) { rn_c904(13,06,g34); rn_9aa8(29,g34); if (g34 has s_to) { rtrue; } gef=00; gef++; gee=sibling(child(g35)); if (gef>rn_9c8c(g35,2d)) { return (rn_c904(13,07,g35)); } move g34 to g35; if (rn_9bc0()~=01)rtrue; if (g35~=local0) { g31=Receive; if (rn_9cac(g35,05)) { g31=13; rtrue; } g31=13; } if (g36~=01)rtrue; if (g41==01) { return (rn_c904(13,08,g34)); } rn_c904(13,09,g34); rtrue; ]; ![_______________________________________________________________________]; [rn_ba64 ; !@"transfer noun to / on / in noun"; if (g34 notin g1b) { if (rn_b640(g34)) { rtrue; } if (g35 has on) { rn_9aa8(13,g34,g35); rtrue; } if (g35 has neuter) { rn_9aa8(12,g34,g35); rtrue; } rn_9aa8(10,g34); rtrue; ]; ![_______________________________________________________________________]; [rn_ba94 ; !@"empty noun"; g35=10; rn_ba9c(); rtrue; ]; ![_______________________________________________________________________]; [rn_ba9c local0 local1 ; !@"empty noun to / into / on / onto noun"; if (rn_b59c(g34)) { rtrue; } if (g34 hasnt on) { return (rn_c904(14,01,g34)); } if (g34 hasnt transparent) { return (rn_c904(14,02,g34)); } if (g35~=10) { if (g35 hasnt on) { return (rn_c904(14,01,g35)); } if (g35 hasnt transparent) { return (rn_c904(14,02,g35)); } local0=child(g34); if (~~local0) { return (rn_c904(14,03,g34)); } if (local0) { local1=sibling(local0); rn_a4c0(local0); print ": "; rn_9aa8(5d,local0,g35); local0=local1; jump zbaef; } rtrue; ]; ![_______________________________________________________________________]; [rn_bb0c ; !@"feed held to creature"; if (parent (g34)~=g1b) { return (rn_c904(15,01,g34)); } if (g35==g1b) { return (rn_c904(15,02,g34)); } if (~~rn_9bfc(g35,15)) rfalse; rn_c904(15,03,g35); rtrue; ]; ![_______________________________________________________________________]; [rn_bb3c ; @bb3d: f9 1a 26 aa 15 45 44 call_vn 9aa8 #15 g35 g34; rtrue; ]; ![_______________________________________________________________________]; [rn_bb48 ; !@"display creature held" REVERSE; if (parent (g34)~=g1b) { return (rn_c904(16,01,g34)); } if (g35==g1b) { rn_9aa8(20,g34); rtrue; } if (~~rn_9bfc(g35,16)) rfalse; rn_c904(16,02,g35); rtrue; ]; ![_______________________________________________________________________]; [rn_bb78 ; @bb79: f9 1a 26 aa 16 45 44 call_vn 9aa8 #16 g35 g34; rtrue; ]; ![_______________________________________________________________________]; [rn_bb84 local0 local1 local2 ; !@"get in / into / on / onto noun"; if (g34 hasnt open) ||(g34 in "compass") { rn_9aa8(1b,g34); rtrue; } if (g1b in g34) { return (rn_c904(17,01,g34)); } if (g34 hasnt proper) { return (rn_c904(17,02,g34)); } if (g34 has on)&&(g34 hasnt transparent) { return (rn_c904(17,03,g34)); } if (parent (g1b)~=parent (g34)) { local0=rn_b508(g1b,g34); if (local0==g1b or 00) { return (rn_c904(17,04,g34)); } if (g1b notin local0) { local1=parent (g1b); if (parent (local1)~=local0) ||(g34~=local0) { rn_c904(17,06,local1); local2=g36; g36=01; } rn_9aa8(19); g36=local2; if (g1b in local1) { rtrue; } } if (g1b in g34) { rtrue; } if (g34 notin local0) { local1=parent (g34); if (parent (local1)~=local0) { local1=parent (local1); jump zbc1d; } rn_c904(17,07,local1); local2=g36; g36=01; rn_9aa8(17,local1); g36=local2; if (g1b notin local1) { rtrue; } rn_9aa8(17,g34); rtrue; } move g1b to g34; if (rn_9bc0()~=01)rtrue; if (g36~=01)rtrue; rn_c904(17,05,g34); rn_be7c(g34); rtrue; ]; ![_______________________________________________________________________]; [rn_bc68 ; !@"get off noun"; if (parent (g1b)==g34) { rn_9aa8(19); rtrue; } rn_c904(18,01,g34); rtrue; ]; ![_______________________________________________________________________]; [rn_bc80 local0 ; !@"get out / off / up"; local0=parent (g1b); if (local0~=g09) { if (g09==13)&&(local0==g1e) { } if (~~g09.out_to) { if (g09==13) { if (g1e.out_to) { } rn_9aa8(1b,11); rtrue; return (rn_c904(19,01)); if (local0 has on)&&(local0 hasnt transparent) { return (rn_c904(19,02,local0)); } move g1b to parent (local0); if (rn_9bc0()~=01)rtrue; if (g36~=01)rtrue; rn_c904(19,03,local0); rn_c048(01); rtrue; ]; ![_______________________________________________________________________]; [rn_bce4 ; !@"go" "leave"; rn_c904(1a); rtrue; ]; ![_______________________________________________________________________]; [rn_bcec ; !@"cross" "in"; rn_9aa8(1b,12); rtrue; ]; ![_______________________________________________________________________]; [rn_bcf4 local0 local1 local2 local3 local4 local5 local6 ; !@"go noun = [parse $3e86]"; local6=g09; local4=00; local0=parent (g1b); if (g09==13) ||(local0==g09) { if (g09==13)&&(local0~=g1e) { } local1=g09; if (g09~=13) g09=g1e; local2=rn_9cac(local0,04); if (local2~=03) g09=local1; if (local2==01) { local4=local0; local0=parent (local0); } if (~~local2) rn_c904(1b,01,local0); rtrue; local5=g34.door_dir; if (rn_9c08(local5)==02) local5=rn_9cac(g34,15); local1=rn_fb7c(local0,local5); local2=rn_9c08(local1); if (local2==03) { print (string) local1; new_line; rfalse; } if (local2==02) { local1=rn_9cac(local0,local5); if (local1~=01)rtrue; } if (~~local2) if (~~local1) { ||(~~local0.cant_go) rn_9c2c(local0,26); rfalse; } if (local1 has open) { if (local1 has moved) { return (rn_c904(1b,02)); } if (local1 hasnt transparent) { if (g34==0f) { return (rn_c904(1b,03,local1)); } if (g34==10) { return (rn_c904(1b,04,local1)); } return (rn_c904(1b,05,local1)); } local2=rn_9cac(local1,13); if (~~local2) { return (rn_c904(1b,06,local1)); } if (local2~=01)rtrue; local1=local2; } if (~~local4) { move g1b to local1; } move local4 to local1; g09=local1; rn_b0ec(); local3=rn_9e7c(local1); if (local3) { g09=local1; g1d=01; } if (local6==13) { rn_fa78(); if (~~g1c) rtrue; } g1e=local1; g09=13; g1d=00; if (rn_9bc0()~=01)rtrue; if (g36~=01)rtrue; rn_c048(01); rtrue; ]; ![_______________________________________________________________________]; [rn_be2c local0 local1 local2 ; if (local0~=parent (g1b))rfalse; local1=child(local0); if (local1) { if (local1 hasnt moved)&&(local1 hasnt worn) local2=01; local1=sibling(local1); } if (local2) rfalse; rn_c904(1f,04,local0); rtrue; ]; ![_______________________________________________________________________]; [rn_be5c local0 local1 ; local1=parent (g1b); if (local1) &&(local1~=g1f) { if (local1~=local0)rfalse; local1=parent (local1); if (~~local1) ||(local1 has neuter) rtrue; jump zbe60; } rtrue; ]; ![_______________________________________________________________________]; [rn_be7c local0 local1 local2 local3 local4 local5 local6 local7 local8 ; local3=child(local0); if (local3) { give local3 ~n_to; local3=sibling(local3); } local4=00; local3=child(local0); if (local3) { if (local3 hasnt moved) { if (rn_be5c(local3)) { rn_9594(local3); if (local3 hasnt worn) { give local3 n_to; local4++; local5=1e; local7=00; if (local3 hasnt open) ||(local3 has on)&&(local3 has transparent) { if (rn_fee8(local3,1f)) { local5=1f; local7=01; } if (local3 hasnt open) ||(local3 has on)&&(local3 hasnt transparent) { if (rn_fee8(local3,20)) { local5=20; local7=01; } if (local3 has pluralname)&&(local3 has talkable) { if (rn_fee8(local3,21)) { local5=21; local7=01; } if (local3 has pluralname)&&(local3 hasnt talkable) { if (rn_fee8(local3,22)) { local5=22; local7=01; } if (local3 has switchable) { if (local3.describe~=NULL) ||(local7==01) { } if (local3.describe~=NULL) { if (rn_9cac(local3,24)) { local8=01; give local3 ~n_to; local4--; } local6=rn_fb7c(local3,local5); if (local6) { new_line; rn_9c2c(local3,local5); local8=01; give local3 ~n_to; local4--; if (local3 has neuter) { ||(child(local3)) rn_be2c(local3); } } if (local3 has neuter) { ||(child(local3)) rn_be2c(local3); } local3=sibling(local3); } if (~~local4) { rfalse; } if (local1) { new_line; if (local8==01) local1=local2; print (string) local1; print " "; rn_a81c(child(local0),ad8); return local4; } if (local8==01) { rn_c904(1f,05,local0); } rn_c904(1f,06,local0); rtrue; ]; ![_______________________________________________________________________]; [rn_bfe0 ; !@"brief" ; g20=01; print (string) 0; rn_c904(1c); rtrue; ]; ![_______________________________________________________________________]; [rn_bff0 ; !@"long" ; g20=02; print (string) 0; rn_c904(1d); rtrue; ]; ![_______________________________________________________________________]; [rn_c000 ; !@"short" ; g20=03; print (string) 0; rn_c904(1e); rtrue; ]; ![_______________________________________________________________________]; [rn_c010 local0 ; local0=g09; if (local0~=g22) { ||(~~local0.initial) rn_9c2c(local0,1e); local0=g09; rn_fa7c(); g22=local0; } rtrue; ]; ![_______________________________________________________________________]; [rn_c030 ; if (g09 hasnt life) { give g09 life; if (g09 has male) { g16=g16+05; g19=g19+05; } rtrue; ]; ![_______________________________________________________________________]; [rn_c048 local0 local1 local2 local3 local4 ; !@"l" ; if (~~parent (g1b)) { return (rn_a660(0a)); } if (g09==13) { g1f=13; } local1=01; g1f=parent (g1b); if (parent (g1f)) { if (g1f has on)&&(g1f hasnt transparent) ||(g1f has after) { g1f=parent (g1f); local1++; jump zc066; } if (g1f==g09) { rn_c010(); if (g1f==g09) jump zc056; } new_line; style bold; if (~~local1) { rn_a4c0(13); } if (g1f~=g09) { rn_a49c(g1f); } rn_a4c0(g1f); style roman; local3=01; local2=parent (g1b); local3++; local2=parent (local2); if (local300) { give local2 n_to; jump zc13b; } local3=local1; if (local3>00) { local2=g1b; local4=00; if (local401) { g31=ThrownAt; if (rn_9cac(g35,04)) { g31=50; rtrue; } g31=50; } if (g35 hasnt light) { return (rn_c904(50,01)); } if (~~rn_9bfc(g35,50)) rfalse; rn_c904(50,02,g34); rtrue; ]; ![_______________________________________________________________________]; [rn_c858 ; !@"attack noun"; if (rn_b59c(g34)) { rtrue; } if (g34 has light) { if (~~rn_9bfc(g34,42)) rfalse; } rn_c904(42,01,g34); rtrue; ]; ![_______________________________________________________________________]; [rn_c87c ; !@"embrace creature"; if (rn_b59c(g34)) { rtrue; } if (~~rn_9bfc(g34,32)) rfalse; if (g34==g1b) { return (rn_c904(37,03,g34)); } rn_c904(32,01,g34); rtrue; ]; ![_______________________________________________________________________]; [rn_c8a8 ; !@"answer topic to creature"; if (~~rn_9bfc(g35,52)) rfalse; rn_c904(52,01,g34); rtrue; ]; ![_______________________________________________________________________]; [rn_c8bc ; !@"tell creature about topic"; if (g34==g1b) { return (rn_c904(51,01,g34)); } if (~~rn_9bfc(g34,51)) rfalse; rn_c904(51,02,g34); rtrue; ]; ![_______________________________________________________________________]; [rn_c8dc ; !@"ask creature about topic"; if (~~rn_9bfc(g34,53)) rfalse; rn_c904(53,01,g34); rtrue; ]; ![_______________________________________________________________________]; [rn_c8f0 ; !@"ask creature for noun"; if (g34==g1b) { rn_9aa8(0e); rtrue; } rn_c904(Order,01,g34); rtrue; ]; ![_______________________________________________________________________]; [rn_c904 local0 local1 local2 local3 ; ![**_______] ; ![**_______] =local0; if (local1) local1=01; rn_c91c(local1,local2); ![**_______] =local3; rtrue; ]; ![_______________________________________________________________________]; [rn_c91c local0 local1 local2 ; local2=g31; g2f=local0; g30=local1; ![**_______] ; if (rn_9cac(17,04)) { g31=local2; rfalse; } g31=local2; rn_5328(local0,local1); rtrue; ]; ![_______________________________________________________________________]; [rn_c944 ; ![**_______] Drop: { print "You cannot get rid of the demo fairy in the trial version. She will be with you throughout."; new_line; rtrue; } ![**_______] Attack: { print "No use trying to harm the impervious demo fairy."; new_line; rtrue; } rfalse; ]; ![_______________________________________________________________________]; [rn_c958 ; rn_fd74(geb,4c); if (rn_fb7c(geb,4c)==0c) { if (random (03)==01) { if (g08~=02)&&(g08==04) ||(g08==05) rn_9aa8(5e); } if (rn_fb7c(geb,4c)==12) { rn_fb60(geb,4c,00); if (g08<05) { style bold; print "^^The demo fairy squeaks: "; } if (g08==05) { style bold; print "^^The demo fairy boinks you on the nose with her tiny wand and squeaks: "; rn_fa0c(); } rn_f868(g08+01); } if (rn_fb7c(geb,4c)==09) { style bold; print "^^The demo fairy flitting about your head says: "; new_line; rtrue; } rfalse; ]; ![_______________________________________________________________________]; [rn_c9cc ; if (g08~=05)rfalse; ![**_______] Insert:if (g35~=1c) "Safely packed away in the car."; rfalse; ]; ![_______________________________________________________________________]; [rn_c9f4 ; if (g08~=05)rfalse; ![**_______] Take, Remove: { if (geb in "your_car") { if (geb==36) ||(geb==29) "No."; print "Reluctantly, you unpack the crucial provision item from your car."; } if (geb hasnt edible) { print "^You need to BUY it before you can take it anywhere."; new_line; rtrue; } rfalse; } ![**_______] Buy: { if (geb==36)&&(geb hasnt edible) { rn_f3d4(geb); move geb to "your_car"; give geb female; print "The salesguy helps you lug the generator out to your car."; g16=g16+0a; rtrue; } if (geb==37)&&(geb hasnt edible) { rn_f3d4(geb); rtrue; } if (geb hasnt edible) { if (g07-rn_fb7c(geb,4d)>00) "You cannot afford it!"; g07=g07-rn_fb7c(geb,4d); move geb to g1b; give geb edible; print "^You've paid for it now. Your debit card has $"; print g07; print " left on it.^"; if (geb==21) { move geb to "Multi-purpose_room"; move "sign" to "Secret_Place"; print "^The attendant rips down the sign.^"; g16=g16+05; rtrue; } if (geb~=3a) g06++; rtrue; } "You already paid for that!"; } rfalse; ]; ![_______________________________________________________________________]; [rn_cad8 ; print "^As you head into the grocery store, you glance at a huge sign that says "; return 22; ]; ![_______________________________________________________________________]; [rn_cae0 ; print "^As you waltz into the variety store you glance at a sign on the door: "; return 2c; ]; ![_______________________________________________________________________]; [rn_cae8 ; ![**_______] Enter: { print "You get into the car, and it dawns on you that "; if ("large_rations_case" hasnt edible) "you haven't stocked up on food."; if ("pack_of_matches" hasnt edible) "you didn't buy matches."; if ("6_month_supply_of_vitamins" hasnt edible) { print "you'd better stock up on vitamins; who knows how your eating situation is going to be."; new_line; rtrue; } if ("gas-powered_generator" notin "your_car") { print "you aren't prepared for a power grid failure."; new_line; rtrue; } if ("four_45_gallon_drums_of_gas" hasnt edible) { print "you've got no fuel for your generator!"; new_line; rtrue; } if ("small_handwritten_note" hasnt scenery) { print "you should find out what's written on your note before you leave."; new_line; rtrue; } print "you're finally ready to go home! And you do ..."; rn_f868(05); } rfalse; ]; ![_______________________________________________________________________]; [rn_cb5c ; print "Your bank card. To spell out your complete financial situation, type the MONEY command. Redeemable for goods and services anywhere in the mall ... well, almost anywhere. Currently contains a credit of $"; print g07; "."; ]; ![_______________________________________________________________________]; [rn_cb68 ; print "You are standing in a gas station, being careful not to become a hood ornament as vehicles veer around you. Even with the exorbitant prices, everybody is loading up their vehicles and empty containers with gas, due to the September 9th breakdowns in the oil rigs and pipelines.^^"; if ("sign" notin geb) print "There is a sign taped to the station attendant's booth.^"; rfalse; ]; ![_______________________________________________________________________]; [rn_cb78 ; ![**_______] Take: { g1c=01; print "The attendant, a little edgy over recent events, protests your vandalism by taking out a rifle and shooting you. He knows the police are too busy to attend to every little homicide these days."; new_line; rtrue; } rfalse; ]; ![_______________________________________________________________________]; [rn_cb88 ; ![**_______] Answer, Ask, parse_input: ![**_______] Tell: { if ("four_45_gallon_drums_of_gas" has edible) { print "The attendant mumbles: "; new_line; rtrue; } print "The station attendant says: "; style bold; print "Type YES or NO here ... "; if (rn_b1ac()==01) { rn_9aa8(54,21); if ("four_45_gallon_drums_of_gas" has edible) { move "sign" to "Secret_Place"; print "Joe assures you that the drums will be delivered to your home, but forgets to ask your address, so you write it down for him. A truck comes and takes the drums of gas out of public view, and the attendant pulls the sign down."; } rtrue; } "On your way, then, sir ..."; } rfalse; ]; ![_______________________________________________________________________]; [rn_cbf4 ; ![**_______] Take, Touch, Search: ![**_______] Examine: { print "Right now you need long term provisions, not these perishable items."; new_line; rtrue; } rfalse; ]; ![_______________________________________________________________________]; [rn_cc08 ; ![**_______] Give, Show:if (g35==34) { move geb to "Secret_Place"; give "soldier" scenery; move "soldier" to "A_shopping_mall_parking_lot"; g16=g16+0a; print "^He seems irresistibly attracted to the notion of reading this magazine. So he grabs it from you and walks purposefully out into the parking lot, and proceeds to read it, leaning against his car.^"; new_line; rtrue; } rfalse; ]; ![_______________________________________________________________________]; [rn_cc2c ; ![**_______] Give, Show: { print "He/she/it is not amused, and throws it back at you."; new_line; rtrue; } rfalse; ]; ![_______________________________________________________________________]; [rn_cc3c ; ![**_______] Eat: { print "I'll ration your vitamins to you in reasonable amounts when the time comes."; new_line; rtrue; } rfalse; ]; ![_______________________________________________________________________]; [rn_cc48 ; ![**_______] Take: print "^For the sake of simplicity, we'll just assume you move the case around by rolling it, using a shopping cart, or whatever.^"; rfalse; ]; ![_______________________________________________________________________]; [rn_cc54 ; ![**_______] Take: { if (g08==05) { print "Nope. Leave that there. It's only use now is keeping you alive. You can have some food when you're hungry."; new_line; rtrue; } print "^For the sake of simplicity, we'll just assume you move the case around by rolling it, using a shopping cart, or whatever.^"; } rfalse; ]; ![_______________________________________________________________________]; [rn_cc68 ; if (geb hasnt edible) { print "A pack of matches which will cost you $2."; new_line; rtrue; } print "Just some matches. "; print 14-g00; " to be exact. "; ]; ![_______________________________________________________________________]; [rn_cc94 ; print 14-g00; print " matches"; rtrue; ]; ![_______________________________________________________________________]; [rn_cca4 ; ![**_______] Burn: { if ("burning_match" notin "Secret_Place") { print "You've already lit a match! When it's burned out you can light another one."; new_line; rtrue; } move "burning_match" to g1b; rn_9ce0(2b,03); g00++; print "You now hold a burning match.^"; if (g00==0a) { print "^^ *** What are you, a pyromaniac or something? ***^"; new_line; rtrue; } if (g00==14) { move geb to "Secret_Place"; print "Your pack of matches is all used up."; new_line; rtrue; } rtrue; } rfalse; ]; ![_______________________________________________________________________]; [rn_ccf4 ; print "It is a long-burning space-age match, now lit. It will go out in "; print geb.time_left; " turn(s)."; ]; ![_______________________________________________________________________]; [rn_cd08 ; if (~~geb.time_left) { print "a burning match which is busy fizzling out as you watch it"; new_line; rtrue; } print "a burning match which will be fully consumed in "; print geb.time_left; " turn(s)"; ]; ![_______________________________________________________________________]; [rn_cd28 ; ![**_______] Burn: { print "Quit wasting time beating a dead horse. You have work to do!"; new_line; rtrue; } rfalse; ]; ![_______________________________________________________________________]; [rn_cd34 ; move geb to "Secret_Place"; if (geb in g09) ||(geb in g1b) { print "^The match fizzles out. You have "; print 14-g00; print " left."; } rfalse; ]; ![_______________________________________________________________________]; [rn_cd54 ; if (geb has scenery) { print "bathmat"; rtrue; } rfalse; ]; ![_______________________________________________________________________]; [rn_cd64 ; ![**_______] Search, Examine: { if (geb hasnt scenery) { give geb scenery; print "Upon closer examination, you realize that it's just a simple rubber bathmat with suction cups (boy, is your face red.)"; new_line; rtrue; } print "It's a rubber shower mat with suction cups on one side, which decrease the likelihood of falling in the shower. Price: $8."; new_line; rtrue; } rfalse; ]; ![_______________________________________________________________________]; [rn_cd80 ; gef=random (0a); if (gef==01) { if ("soldier" in "A_bank") { rn_fba4(34,52,"Are you attempting to hoard cash and undermine the economy, sir?",00); } rtrue; } if (gef==02) { if ("soldier" in "A_bank") { rn_fba4(34,52,"Are you attempting to hoard food and let small children starve, sir?",00); } rtrue; } if (gef==03) { if ("soldier" in "A_bank") { rn_fba4(34,52,"Are you doing your part to help our society survive, sir?",or,"set",01); } rtrue; } if (gef==04) { if ("soldier" in "A_bank") { rn_fba4(34,52,"Have you turned in any gold you own to the authorities, sir?",01); } rtrue; } if (gef==05 or 06 or 07) ||(gef==08) { if (g12<2bc) { print "^A bank teller sighs loudly: "; new_line; rtrue; } if (g12<2d0) { print "The regular bank tellers are gradually leaving for lunch, replaced by trainees."; new_line; rtrue; } if (g12<30c) { print "The tellers-in-training, without the guidance of their superiors, are a little slow and flustered compared to the veteran tellers who are out to lunch."; new_line; rtrue; } print "The regular bank tellers are back from lunch."; new_line; rtrue; } rfalse; ]; ![_______________________________________________________________________]; [rn_ce18 ; if (child(geb)==g1b) rtrue; rn_fd74(30,4e); gef=rn_fb7c(30,4e); if (gef==01) { print "^The lineup moves along slowly ...^"; new_line; rtrue; } if (gef==02) { print "^The lineup continues to move along slowly ...^"; new_line; rtrue; } if (gef==03) { print "^You'll be at an actual teller in no time ...^"; new_line; rtrue; } if (gef==04) { print "^Just one more guy in front of you ...^"; new_line; rtrue; } if (gef==05) { print "^Finally, it's your turn at the counter ...^"; rn_b160(31); rn_fb60(geb,4e,00); } rfalse; ]; ![_______________________________________________________________________]; [rn_ce6c ; ![**_______] Enter: { if ("soldier" in "A_bank") { if (rn_fb7c(32,4f)~=01) { if (rn_fb7c(32,50)~=01) { if (rn_fb7c(32,51)==01) { } g1c=01; print "The soldier sees you enter the lineup, exceeding your once-per-day personal bank service limit. You are led away in handcuffs."; new_line; rtrue; } rn_fb60(geb,4e,00); print "You enter the lineup, which moves along at a snail's pace."; new_line; rtrue; } rfalse; ]; ![_______________________________________________________________________]; [rn_ceb8 ; if (g12<2d0) { print "A veteran bank teller who can't wait to go out for lunch with her friends."; new_line; rtrue; } if (g12<30c) { print "A harried trainee who can't wait for the veterans to get back from lunch."; new_line; rtrue; } print "A veteran bank teller, satisfied by a good lunch and a hefty bonus for promising not to quit."; new_line; rtrue; ]; ![_______________________________________________________________________]; [rn_ced4 local0 ; ![**_______] Answer, Tell: { if (g47<01) g7e=g46; local0=rn_91d8(); if (local0) "A NUMBER, not a WORD, please."; if (g44>12c) { print "The teller assures you she is highly amused by your wacky request. Didn't you read the posters?"; rtrue; } if (rn_fb7c(geb,4f)~=01) { if (rn_fb7c(geb,51)==01) { } if (g12>30c) ||(g12<2d0) { print "The teller recognizes you and kicks you out of the bank, wondering why a soldier didn't prevent this."; rn_b160(1b); } if (rn_fb7c(geb,50)==01)&&(g12>2cf)&&(g12<30c) { print "The overworked trainee is busy and flustered, but not so much that he doesn't recognize you. He demands that you leave.^"; rn_b160(1b); rtrue; } if (g12<2d0) { if (rn_fb7c(geb,4f)==01)&&("soldier" in "A_bank") { rn_d080(); rtrue; } if (rn_fb7c(geb,4f)==01) { rn_d08c(); rtrue; } print "^You have $"; print g07; print " in your account. You have asked to withdraw $"; print g44; print ".^"; if (g072cf)&&(g12<30c) { if ("soldier" in "A_bank") { if (rn_fb7c(geb,4f)==01) { rn_d080(); rtrue; } print "^You have $"; print g07; print " in your account. You have asked to withdraw $"; print g44; print ".^"; if (g0730c) { print "^You have $"; print g07; print " in your account. You have asked to withdraw $"; print g44; print ".^"; if (g07