![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to objects CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 42BSD / games / mpu|
Return to objects CVS log | Up to [CSRG BSD Unix] / 42BSD / games / mpu |
1.1 ! root 1: ! 2: NOUN keys (town4); ! 3: keys(WEIGH) = 2; ! 4: keys(LDESC) = ($say "There's a set of keys here.\n"); ! 5: keys(SDESC) = ($say "a set of keys"); ! 6: ! 7: NOUN toolbox (farm5); ! 8: toolbox(WEIGH) = CAPAC; ! 9: toolbox(HOLDS) = 50; ! 10: toolbox(OPENS) = TRUE; ! 11: toolbox(LOCKS) = TRUE; ! 12: toolbox(LOCKD) = TRUE; ! 13: toolbox(LIGHT) = TRUE; ! 14: toolbox(LDESC) = (($eq ($loc .ME) toolbox): ! 15: ($say ! 16: "You are in a huge wooden structure, towering up at least 80 feet ! 17: above your head, with wooden walls formed of immense 10-foot by 50-foot ! 18: boards. Everything here, even the grains of dust which cover the wooden ! 19: floor, seems immense. ") ! 20: (($prop toolbox OPEN): ! 21: ($say ! 22: "Above your head, the top of the structure is open, ! 23: and sunlight streams in.\n") ! 24: : ($say ! 25: "The structure is closed at the top, but ! 26: enough light comes in from between the boards to enable you to see.\n") ! 27: ) ! 28: : {else} ($say ! 29: " Against ! 30: the house is a heavy ") ! 31: (($prop toolbox OPEN): ! 32: ($say "toolbox with the lid open.\n") ! 33: { (($cont toolbox) : ! 34: ($say "In the toolbox, you see:\n") ! 35: ($setp toolbox CONTS TRUE) ! 36: (Slook 1 ($cont toolbox)) ! 37: ($setp toolbox CONTS FALSE) ! 38: )} ! 39: :{else} (($prop toolbox LOCKD) : ! 40: ($say "toolbox with a rusty lock, painted ! 41: with an insignia composed of blue and green squares, joined at ! 42: their corners.\n") : ! 43: ($say "toolbox, the lid of which is ajar.\n") ! 44: ) ! 45: ) ! 46: ); ! 47: ! 48: toolbox(SDESC) = ! 49: (($eq ($loc .ME) toolbox): ! 50: ($say "Inside huge box.\n") ! 51: :{else} ($say "a toolbox")); ! 52: ! 53: toolbox(ACTION) = ! 54: (($eq ($loc .ME) toolbox) : ! 55: (($or ($eq ($verb) drop) ! 56: ($eq ($verb) throw)): ! 57: ($say "You just lost ")(($sdisc ($dobj))) ! 58: ($say " in a crack between the wooden floorboards!\n") ! 59: ($move ($dobj) .ALL) ! 60: ) ! 61: ($miss cg cg cg cg cg cg cg cg cg cg) ! 62: ! 63: {else} : ! 64: (($eq ($verb) lock): ! 65: (Lockup toolbox keys "The toolbox seals with a CLICK!\n")) ! 66: (($eq ($verb) unlock): ! 67: (Ulock toolbox keys ! 68: "One of the keys fits! The toolbox can be opened now.\n") ! 69: ) ! 70: ); ! 71: ! 72: NOUN signpost(roadx); ! 73: signpost(RDLOC)=10; ! 74: signpost(WEIGH)=CAPAC; ! 75: signpostd(LDESC)=($say "There is a signpost by the side of the road.\n"); ! 76: signpostd(SDESC)=($say "a signpost"); ! 77: signpost(ACTION) = (($eq ($verb) read): ! 78: ($say ! 79: "Pointing east, it says: 'Unuchevala: 10 miles'\n") ! 80: ($exit 1) ! 81: ); ! 82: NOUN globe(toolbox); ! 83: globe(WEIGH) = 20; ! 84: globe(LDESC) = (($prop globe LIGHT): ! 85: ($say "A globe of stone glows brightly here.\n") ! 86: {else}: ! 87: ($say "There is a strange globe of polished stone here.\n") ! 88: ); ! 89: globe(SDESC) = (($prop globe LIGHT): ($say "a glowing globe of stone") ! 90: : ($say "a stone globe")); ! 91: globe(ACTION) = (($eq ($verb) rub): ! 92: (($prop globe LIGHT): ! 93: ($say "The light from the stone globe fades away.\n") ! 94: ($setp globe LIGHT FALSE) ! 95: {else}: ! 96: ($say "The stone globe glows brightly!\n") ! 97: ($setp globe LIGHT TRUE) ! 98: ) ! 99: ($setg LOOKP TRUE) ! 100: ($exit 1) ! 101: ) ! 102: ; ! 103: ! 104: ! 105: NOUN crowbar (town3); ! 106: crowbar(WEIGH) = 100; ! 107: crowbar(LDESC) = ($say "There is a long crowbar here.\n"); ! 108: crowbar(SDESC) = ($say "a crowbar"); ! 109: ! 110: crydie = ! 111: ($say ! 112: "What POWER! The magic crystal releases a flood of energy in ! 113: a split-second! Unfortunately, you were a little close...\n") ! 114: (die); ! 115: ! 116: ! 117: ! 118: { Dragon Stuff } ! 119: AWAKE=MISC1; ! 120: ! 121: NOUN dragon (cel06); ! 122: ! 123: ! 124: ADJECTIVE red,green,blue,clear; ! 125: white=clear; ! 126: NOUN green crystal(cel07); ! 127: NOUN red crystal(cel08); ! 128: NOUN blue crystal(cel10); ! 129: NOUN clear crystal(cel09); ! 130: ! 131: {NOUN diamond { = clear crystal; ! 132: {NOUN sapphire{= blue crystal; ! 133: {NOUN ruby (cel08){= red crystal; ! 134: {NOUN emerald (cel07){= green crystal;} ! 135: ! 136: ! 137: green crystal(WEIGH)=15; ! 138: green crystal(POINT)=25; ! 139: green crystal(LDESC) = ($say "There is a beautiful green crystal here!\n"); ! 140: green crystal(SDESC) = ($say "a green crystal"); ! 141: ! 142: green crystal(ACTION) = ! 143: (($eq ($verb) take): ! 144: (($eq ($loc .ME) cel07): ! 145: (($not ($prop dragon AWAKE)): ! 146: ($say "You hear a stirring in the Ice Cavern.\n") ! 147: ($setg Tempr ($plus @Tempr 2)) ! 148: ($setp dragon AWAKE TRUE) ! 149: ($setp cel06 VISIT FALSE) ! 150: ! 151: :{else} ($setg Tempr 0) ! 152: ) ! 153: ) ! 154: ) ! 155: (($eq ($verb) drop): ! 156: (($eq ($loc .ME) cel07): ! 157: ($setg Tempr ($minus @Tempr 2)) ! 158: (($le @Tempr 0) : ! 159: ($setp dragon AWAKE FALSE) ! 160: ($say ! 161: "You hear a deep Y A W N from the Cavern.\n")) ! 162: ($setp cel06 VISIT FALSE) ! 163: ) ! 164: ) ! 165: (($eq ($verb) touch): ! 166: (($eq ($dobj) [red crystal]) : ! 167: ($say "The red and green crystals flare briefly!\n") ! 168: (Grow) ! 169: ($move .ME cel01) ! 170: ($setg LOOKP TRUE) ! 171: ($exit 1) ! 172: ) ! 173: (($eq ($dobj) [blue crystal]) : ! 174: ($say "The blue and green crystals flare briefly!\n") ! 175: ($move .ME toolbox) ! 176: (Shrink) ! 177: ($setg LOOKP TRUE) ! 178: ($exit 1) ! 179: ) ! 180: ) ! 181: (($eq ($verb) break): ! 182: (($eq ($dobj) [green crystal]): ! 183: (crydie) ! 184: ) ! 185: ); ! 186: ROUTINE CRout; ! 187: WORKD = MISC1; { Has Clear crystal shed its light? } ! 188: red crystal(WEIGH)=15; ! 189: red crystal(POINT)=25; ! 190: red crystal(LDESC) = ($say "There is a beautiful red crystal here!\n"); ! 191: red crystal(SDESC) = ($say "a red crystal"); ! 192: red crystal(ACTION) = ! 193: (($eq ($verb) touch): ! 194: (($eq ($dobj) [clear crystal]) : ! 195: (($not ($prop [clear crystal] WORKD)): ! 196: ($say "The red and clear crystals flare briefly!\n") ! 197: ($setp [clear crystal] WORKD TRUE) ! 198: ($setp [clear crystal] LIGHT TRUE) ! 199: ($say ! 200: "The clear crystal blazes forth with a magical incandescence brilliant ! 201: enough to penetrate even the deepest darkness!!\n\n") ! 202: ($sfus CRout 4) ! 203: ($setg LOOKP TRUE) ! 204: ($exit 1) ! 205: {else} : ! 206: ($say ! 207: "The clear crystal seems curiously inert now.\n") ! 208: ($exit 1) ! 209: ) ! 210: ) ! 211: (($eq ($dobj) [green crystal]) : ! 212: ($say "The red and green crystals flare briefly!\n") ! 213: (Grow) ! 214: ($move .ME cel01) ! 215: ($setg LOOKP TRUE) ! 216: ($exit 1) ! 217: ) ! 218: ) ! 219: (($eq ($verb) break): ! 220: (($eq ($dobj) [red crystal]): ! 221: (crydie) ! 222: ) ! 223: ); ! 224: ! 225: ! 226: blue crystal(WEIGH)=15; ! 227: blue crystal(POINT)=25; ! 228: blue crystal(LDESC) = ($say "There is a beautiful blue crystal here!\n"); ! 229: blue crystal(SDESC) = ($say "a blue crystal"); ! 230: blue crystal(ACTION) = ! 231: (($eq ($verb) touch): ! 232: (($eq ($dobj) [red crystal]) : ! 233: ($say "The red and blue crystals flare briefly!\n") ! 234: ($exit 1) ! 235: ) ! 236: (($eq ($dobj) [green crystal]) : ! 237: ($say "The blue and green crystals flare briefly!\n") ! 238: ($move .ME toolbox) ! 239: (Shrink) ! 240: ($setg LOOKP TRUE) ! 241: ($exit 1) ! 242: ) ! 243: ) ! 244: (($eq ($verb) break): ! 245: (($eq ($dobj) [blue crystal]): ! 246: (crydie) ! 247: ) ! 248: ); ! 249: ! 250: ! 251: CRout = ($say "The glowing magical crystal seems to have gone dark.\n> ") ! 252: ($setp [clear crystal] LIGHT FALSE) ! 253: ; ! 254: clear crystal(WEIGH)=15; ! 255: clear crystal(POINT)=25; ! 256: clear crystal(LDESC) = ($say "There is a beautiful clear crystal here") ! 257: (($prop [clear cryst] LIGHT): ($say " (GLOWING!)")) ! 258: ($say "!\n"); ! 259: clear crystal(SDESC) = ($say "a clear crystal") ! 260: (($prop [clear cryst] LIGHT): ($say " (GLOWING!)")) ! 261: ; ! 262: clear crystal(ACTION) = ! 263: (($eq ($verb) touch): ! 264: (($eq ($dobj) [red crystal]) : ! 265: (($not ($prop [clear crystal] WORKD)): ! 266: ($say "The red and clear crystals flare briefly!\n") ! 267: ($setp [clear crystal] WORKD TRUE) ! 268: ($setp [clear crystal] LIGHT TRUE) ! 269: ($say ! 270: "The clear crystal blazes forth with a magical incandescence brilliant ! 271: enough to penetrate even the deepest darkness!!\n\n") ! 272: ($setg LOOKP TRUE) ! 273: ($sfus CRout 4) ! 274: ($exit 1) ! 275: {else} : ! 276: ($say ! 277: "The clear crystal seems curiously inert now.\n") ! 278: ($exit 1) ! 279: ) ! 280: ) ! 281: ) ! 282: (($eq ($verb) break): ! 283: (($eq ($dobj) [red crystal]): ! 284: (crydie) ! 285: ) ! 286: ); ! 287: ! 288: ! 289: ! 290: ROUTINE DRdem; { Dragon Daemon. Increases temper in .my presence } ! 291: DRdem= (($not ($prop dragon AWAKE)): ($exit 0)) ! 292: (($eq ($loc .ME) ($loc dragon)): ! 293: (($eq ($loc [green crystal]) .ME): { even worse! } ! 294: ($setg Tempr ($plus @Tempr 1))) ! 295: ($setg Tempr ($plus @Tempr 1)) ) ! 296: { ($say "His temper is now at ")($num @Tempr)($say "\n") } ! 297: (($ge @Tempr 7): ! 298: ($say ! 299: "Jeez, I didn't know ice dragons could reach their boiling point! ! 300: In a final flare of rage, he opens his mouth and breathes his frigid ! 301: breath in a blast in your direction. It's a bit much for you.\n") ! 302: (die) ! 303: ) ! 304: (($ge @Tempr 6) : ! 305: ($say "Gee, he looks like he's really at the edge!\n") ! 306: ($exit 0)) ! 307: (($ge @Tempr 5) : ! 308: ($say "This is one upset dragon! Be careful!\n") ! 309: ($exit 0)) ! 310: (($ge @Tempr 3) : ! 311: ($say "He's getting angrier...\n")($exit 0)) ! 312: ; ! 313: ! 314: dragon(WEIGH)=CAPAC; ! 315: dragon(LDESC)= ! 316: (($prop dragon AWAKE): ! 317: ($say ! 318: "There is a fierce ice dragon glaring balefully in your direction.\n") ! 319: :{else} ! 320: ($say ! 321: "There is a large white dragon sleeping peacefully in the middle ! 322: of the cavern floor.\n") ! 323: ) ! 324: (DRdem); ! 325: dragon(SDESC)= ! 326: (($prop dragon AWAKE): ($say "a fierce dragon") ! 327: : ($say "a somnolent dragon") ! 328: ) ! 329: (@LOOKP: ($say "\n") (DRdem)) ! 330: ; ! 331: ! 332: dragon(ACTION)= { Man, the things you can try here... } ! 333: (($prop dragon AWAKE): { This is the harder stuff } ! 334: (($eq ($verb) strike): ! 335: ($say "This just seems to get him angrier!\n") ! 336: ($setg Tempr ($plus @Tempr 1)) ! 337: ($exit 1)) ! 338: (($eq ($verb) throw): ! 339: (($eq ($iobj) dragon): ! 340: (($gt ($prop ($dobj) WEIGH) 75): ! 341: ($say ! 342: "This just bruises him! Now he's getting mad!\n") ! 343: ($setg Tempr ($plus @Tempr 1)) ! 344: ($exit 1) : ! 345: {else} ! 346: ($say ! 347: "That object is just too light to hurt him.\n") ! 348: ($exit 1) ! 349: ) ! 350: : ($say "This amuses the dragon no end!\n") ! 351: ($exit 1) ! 352: )) { end of Throw case} ! 353: :{else} ! 354: { he's snoozing} ! 355: (($eq ($verb) wake): ! 356: ($say "You manage to waken him. He's not happy.\n") ! 357: ($setg Tempr 1) ! 358: ($setp dragon AWAKE TRUE) ! 359: ($exit 1)) ! 360: (($eq ($verb) strike): ! 361: ($say "Now you woke him up! He's upset, too!\n") ! 362: ($setg Tempr 2) ! 363: ($setp dragon AWAKE TRUE) ! 364: ($exit 1)) ! 365: (($eq ($verb) throw): ! 366: (($eq ($iobj) dragon): ! 367: (($gt ($prop ($dobj) WEIGH) 75): ! 368: ($say ! 369: "It's just heavy enough to waken him. The bruise doesn't help ! 370: his temper any either.\n") ! 371: ($setp dragon AWAKE TRUE) ! 372: ($setg Tempr 3) ! 373: ($exit 1) : ! 374: {else} ! 375: ($say ! 376: "That object is just too light to wake him.\n") ! 377: ($exit 1) ! 378: ) ! 379: : ($say "Don't hurt yourself trying!\n") ! 380: ($exit 1) ! 381: )) { end of Throw case} ! 382: ); ! 383: ! 384: ! 385: ! 386: ! 387: NOUN bed (farm7); ! 388: bed(WEIGH) = CAPAC; ! 389: bed(SDESC) = ($say "an old, rickety bed"); ! 390: ! 391: bed(ACTION) = ! 392: (($eq ($verb) move): ! 393: (($prop bed OPEN) : ! 394: ($say "Stop messing with the bed, it's fragile!\n") ! 395: ($exit 1) ! 396: ) ! 397: ($say ! 398: "Moving the bed seems to have loosened one of the wall panels ! 399: on the west wall.\n") ! 400: ($setp bed OPEN TRUE) ! 401: ($exit 1) ! 402: ); ! 403: ! 404: NOUN panel (farm7); ! 405: panel(OPENS) = TRUE; ! 406: panel(WEIGH) = CAPAC; ! 407: panel(ACTION) = ! 408: (($or ($eq ($verb) open) ! 409: ($eq ($verb) pry) ): ! 410: (($and ($eq ($iobj) crowbar) ! 411: ($eq ($loc crowbar) .ME)): ! 412: (($not ($prop bed OPEN)): ! 413: ($say "There aren't any loose enough.\n") ! 414: ($exit 1)) ! 415: ($say ! 416: "The loose panel comes away, revealing a secret stairway down, down...\n") ! 417: ($setp panel OPEN TRUE) ! 418: {else}: ! 419: ($say "You can't seem to get the panel open.\n") ! 420: ) ! 421: ($exit 1) ! 422: ! 423: ); ! 424: ! 425: NOUN knife (farm6); ! 426: knife(LDESC)= ! 427: (($prop farm6 VISIT): ! 428: ($say "There is a carving knife here.\n") ! 429: :{else} ($say "However, ! 430: on the table is a large carving knife (suitable for blind mice).\n") ! 431: ); ! 432: knife(SDESC)=($say "a carving knife"); ! 433: ! 434: ! 435: ! 436: NOUN bottle(town6); ! 437: bottle (LDESC) = ($say "There is a bottle here.\n"); ! 438: bottle (SDESC) = ($say "a bottle"); ! 439: bottle (TRANS) = TRUE; ! 440: bottle (ACTION) = ! 441: (($eq ($verb) open): ! 442: ($say "Hm, the bottle is somehow sealed shut.\n") ! 443: ($exit 1)) ! 444: (($eq ($verb) break): ! 445: ($say "Wow, is that heavy glass! It won't break!\n") ! 446: ($exit 1)) ! 447: (($eq ($verb) strike): ! 448: (($eq ($iobj) bottle): ! 449: ($say "Weird thing to do with it.\n") ! 450: : ($say "Nice try, but it isn't even scratched.\n") ! 451: ) ! 452: ($exit 1)); ! 453: ! 454: NOUN ship(bottle); ! 455: ship (LDESC) = ($say "There is a model ship here.\n"); ! 456: ship (SDESC) = ($say "a model ship"); ! 457: ship (POINT) = 50; ! 458: ! 459: ROUTINE TWN5y; ! 460: NOUN well(town5); ! 461: well (WEIGH) = CAPAC; ! 462: well (ACTION) = ! 463: (($eq ($iobj) well): ! 464: (($eq ($verb) put): ! 465: (cdrop) ! 466: (TWN5y) ! 467: ($exit 1) ! 468: ) ! 469: ); ! 470: ! 471: NOUN insignia; ! 472: insignia (WEIGH) = CAPAC; ! 473: insignia (ACTION) = ($say "There's nothing useful to do with the insignia.\n") ! 474: ($exit 1); ! 475: square=insignia; ! 476: ! 477: ADJECTIVE glass; ! 478: NOUN glass box(cel08); ! 479: glass box(HOLDS)=1; ! 480: glass box(TRANS)=TRUE; ! 481: glass box(OPENS)=TRUE; ! 482: glass box(OPEN)=FALSE; ! 483: glass box(SHRNK)=TRUE; { First seen as a tiny box } ! 484: glass box(LDESC) = ! 485: (($eq ($prop .ME SHRNK) ($prop [glass box] SHRNK)): ! 486: ($say "There is a big glass case here.\n") ! 487: ($setp [glass box] WEIGH CAPAC) ! 488: ($setp [glass box] HOLDS 50) ! 489: ! 490: {else}: ! 491: (($prop .ME SHRNK): ! 492: ($say ! 493: "Before you looms a huge glass wall, inscribed with the words, ! 494: 'program error!'\n") ! 495: {else} : ! 496: ($say ! 497: "There is a tiny glass box with a snap lid here.\n") ! 498: ($setp [glass box] WEIGH 5) ! 499: ($setp [glass box] HOLDS 1) ! 500: ! 501: ) ! 502: ); ! 503: glass box(SDESC) = ! 504: (($eq ($prop .ME SHRNK) ($prop [glass box] SHRNK)): ! 505: ($say "a glass case") ! 506: ($setp [glass box] WEIGH CAPAC) ! 507: ($setp [glass box] HOLDS 50) ! 508: ! 509: {else}: ! 510: (($prop .ME SHRNK): ! 511: ($say ! 512: "a huge glass wall, inscribed with the words, ! 513: 'program error'") ! 514: {else} : ! 515: ($say "a tiny glass box") ! 516: ($setp [glass box] WEIGH 5) ! 517: ($setp [glass box] HOLDS 1) ! 518: ! 519: ) ! 520: ); ! 521: case=glass box; ! 522: ! 523: NOUN sand(glass box); ! 524: sand(SHRNK)=TRUE; ! 525: sand(WEIGH)=1; ! 526: sand(LDESC)=(($and ($prop sand SHRNK) ! 527: ($not ($prop .ME SHRNK))): ! 528: ($setp sand POINT 0) ! 529: ($say "There is a grain of sand here.\n") ! 530: ! 531: {else}: ($say "There is a beautiful porcelain statue here!\n") ! 532: ($setp sand POINT 50) ! 533: ); ! 534: sand(SDESC)=(($and ($prop sand SHRNK) ! 535: ($not ($prop .ME SHRNK))): ! 536: ($setp sand POINT 0) ! 537: ($say "a grain of sand") : ! 538: ($say "a porcelain statue") ! 539: ($setp sand POINT 50) ! 540: ); ! 541: statue=sand; ! 542: sand(ACTION)=(($eq ($verb) take): ! 543: (($and ($prop sand SHRNK) ! 544: ($not ($prop .ME SHRNK))): ! 545: ($say "You fumble the grain of sand and lose it on the ground.\n") ! 546: ($move sand .ALL) ! 547: ($exit 1) ! 548: ) ! 549: ); ! 550: ! 551: NOUN hole; ! 552: ! 553: ! 554: ! 555: NOUN saw(toolbox); ! 556: saw(WEIGH) = 20; ! 557: saw(LDESC) = ($say "There is a saw here.\n"); ! 558: saw(SDESC) = ($say "a saw"); ! 559: saw(ACTION) = (($eq ($verb) cut): ! 560: (($eq ($dobj) hole): ! 561: (($eq ($loc .ME) cel13): ! 562: (($prop cel13 HOLED): ! 563: ($say "There's already one here!\n") ! 564: ($exit 1) ! 565: :{else} ! 566: ($say ! 567: "You cut a hole in the thick ice; icy water sloshes about two feet down.\n") ! 568: ($setp cel13 HOLED TRUE) ! 569: ($move hole cel13) ! 570: ($exit 1) ! 571: ) ! 572: ) ! 573: { cutting a hole somewhere else } ! 574: ($say "There's nowhere to cut a hole.\n") ! 575: ($exit 1) ! 576: ) ! 577: ($say "The saw isn't used that way.\n") ! 578: ($exit 1) ! 579: );
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.