![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to transit.ddl CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 42BSD / games / ddl / sample|
Return to transit.ddl CVS log | Up to [CSRG BSD Unix] / 42BSD / games / ddl / sample |
1.1 ! root 1: {*** TRANSITIONS ***} ! 2: hitms = (($eq ($verb) %1) : ! 3: (%2 : ($move .ME %2)) ! 4: ($setg GO TRUE) ! 5: (%3: (($parm 3))) ! 6: ) ! 7: ; ! 8: synvb = (($eq ($verb) %1) : ! 9: ($setg Verb %2)); ! 10: road1(ACTION) = ($setv n s e w ne nw se sw u d) ! 11: (hitms n gard1 0) ! 12: (hitms s gard5 0) ! 13: (hitms e road2 0) ! 14: (hitms w road3 0) ! 15: (hitms ne gard2 0) ! 16: (hitms nw gard3 0) ! 17: (hitms se gard6 0) ! 18: (hitms sw gard7 0) ! 19: ; ! 20: ! 21: road2(ACTION) = ! 22: (hitms n gard2 0) ! 23: (hitms s gard6 0) ! 24: (hitms e road7 0) ! 25: (hitms w road1 0) ! 26: (hitms ne gard2 0) ! 27: (hitms nw gard1 0) ! 28: (hitms se gard6 0) ! 29: (hitms sw gard5 0) ! 30: ; ! 31: ! 32: road3(ACTION) = ! 33: (hitms n gard3 0) ! 34: (hitms s gard7 0) ! 35: (hitms e road1 0) ! 36: (hitms w road8 entr8) ! 37: (hitms ne gard1 0) ! 38: (hitms nw gard3 0) ! 39: (hitms se gard5 0) ! 40: (hitms sw gard7 0) ! 41: ; ! 42: ! 43: road4(ACTION) = ! 44: (hitms n farm1 0) ! 45: (hitms s road7 0) ! 46: (hitms e frst1 0) ! 47: (hitms w gard2 0) ! 48: (hitms ne frst1 0) ! 49: (hitms nw gard2 0) ! 50: (hitms se frst1 0) ! 51: (hitms sw gard2 0) ! 52: ; ! 53: ! 54: road5(ACTION) = ! 55: (hitms n road7 0) ! 56: (hitms s road6 0) ! 57: (hitms e frst1 0) ! 58: (hitms w gard6 0) ! 59: (hitms ne frst1 0) ! 60: (hitms nw gard6 0) ! 61: (hitms se frst1 0) ! 62: (hitms sw gard6 0) ! 63: ; ! 64: ! 65: road6(ACTION) = ! 66: (hitms n road5 0) ! 67: (hitms s town1 0) ! 68: (hitms e frst1 0) ! 69: (hitms w gard6 0) ! 70: (hitms ne frst1 0) ! 71: (hitms nw gard6 0) ! 72: (hitms se frst1 0) ! 73: (hitms sw gard6 0) ! 74: ; ! 75: ! 76: road7(ACTION) = ! 77: (hitms n road4 0) ! 78: (hitms s road5 0) ! 79: (hitms e frst1 0) ! 80: (hitms w road2 0) ! 81: (hitms ne frst1 0) ! 82: (hitms nw gard2 0) ! 83: (hitms se frst1 0) ! 84: (hitms sw gard6 0) ! 85: ; ! 86: ! 87: road8(ACTION) = ($miss tress tress east8 west8 0 0 0 0 0 0); ! 88: ! 89: east8 = ! 90: ($setg GO TRUE) ! 91: ( ($eq @HWY8 0) : ($move .ME road3) ! 92: { ELSE } : (dump8 ($cont road8)) ! 93: ($setg HWY8 ($minus @HWY8 1)) ! 94: (get8 ($cont roadx)) ! 95: (Slook 0 ($loc .ME)) ! 96: ($setg LOOKP FALSE) ! 97: ); ! 98: ! 99: west8 = ! 100: ($setg GO TRUE) ! 101: (dump8 ($cont road8)) ! 102: ($setg HWY8 ($plus @HWY8 1)) ! 103: (get8 ($cont roadx)) ! 104: (Slook 0 ($loc .ME)) ! 105: ($setg LOOKP FALSE); ! 106: ! 107: dump8 = (($link %1) : (dump8 ($link %1))) { start at bottom } ! 108: (($ne %1 .ME) : { Everything else leaves } ! 109: ($setp %1 RDLOC @HWY8) { Retain its location on HWY 8 } ! 110: ($move %1 roadx) { Put it in the box } ! 111: ); ! 112: ! 113: get8 = ( %1 : ! 114: (get8 ($link %1)) ! 115: (($eq ($prop %1 RDLOC) @HWY8) : ! 116: ($move %1 road8) ! 117: ) ! 118: ); ! 119: ! 120: entr8 = (dump8 ($cont road8)) ! 121: ($setg HWY8 0) ! 122: (get8 ($cont roadx)); ! 123: ! 124: ! 125: ! 126: ! 127: ! 128: ! 129: gard1(ACTION) = ! 130: (hitms n gard4 0) ! 131: (hitms s road1 0) ! 132: (hitms e gard2 0) ! 133: (hitms w gard3 0) ! 134: ; ! 135: ! 136: gard2(ACTION) = ! 137: (hitms n gard4 0) ! 138: (hitms s road2 0) ! 139: (hitms e gard2 0) ! 140: (hitms w gard1 0) ! 141: ; ! 142: ! 143: gard3(ACTION) = ! 144: (hitms n gard4 0) ! 145: (hitms s road3 0) ! 146: (hitms e gard1 0) ! 147: (hitms w gard3 0) ! 148: ; ! 149: ! 150: gard4(ACTION) = ! 151: (hitms n gard4 0) ! 152: (hitms s gard1 0) ! 153: (hitms e gard2 0) ! 154: (hitms w gard3 0) ! 155: ; ! 156: ! 157: ! 158: gard5(ACTION) = ! 159: (hitms n road1 0) ! 160: (hitms s gard8 0) ! 161: (hitms e gard6 0) ! 162: (hitms w gard7 0) ! 163: ; ! 164: ! 165: gard6(ACTION) = ! 166: (hitms n road2 0) ! 167: (hitms s gard8 0) ! 168: (hitms e gard6 0) ! 169: (hitms w gard5 0) ! 170: ; ! 171: ! 172: gard7(ACTION) = ! 173: (hitms n road3 0) ! 174: (hitms s gard8 0) ! 175: (hitms e gard5 0) ! 176: (hitms w gard7 0) ! 177: ; ! 178: ! 179: gard8(ACTION) = ! 180: (hitms n gard5 0) ! 181: (hitms s gard8 0) ! 182: (hitms e gard6 0) ! 183: (hitms w gard7 0) ! 184: ; ! 185: ! 186: ! 187: ! 188: ! 189: frst1(ACTION) = ! 190: (hitms n frst3 0) ! 191: (hitms s frst1 0) ! 192: (hitms e frst2 0) ! 193: (hitms w frst2 0) ! 194: ; ! 195: ! 196: frst2(ACTION) = ! 197: (hitms n frst1 0) ! 198: (hitms s frst2 0) ! 199: (hitms e frst2 0) ! 200: (hitms w frst1 0) ! 201: ; ! 202: ! 203: frst3(ACTION) = ! 204: (hitms n frst1 0) ! 205: (hitms s frst4 0) ! 206: (hitms e frst2 0) ! 207: (hitms w frst2 0) ! 208: ; ! 209: ! 210: frst4(ACTION) = ! 211: (hitms n frst3 0) ! 212: (hitms s frst2 0) ! 213: (hitms e frst1 0) ! 214: (hitms w road7 0) ! 215: ; ! 216: ! 217: ! 218: farm1 (ACTION) = ! 219: (synvb enter north) ! 220: ! 221: (hitms n farm2 0) ! 222: (hitms s road4 0) ! 223: (hitms e farm3 0) ! 224: (hitms w farm4 0) ! 225: (hitms ne farm3 0) ! 226: (hitms nw farm4 0) ! 227: ; ! 228: ! 229: farm2 (ACTION) = ! 230: (synvb out s) ! 231: (synvb enter n) ! 232: (synvb east up) ! 233: ! 234: (hitms n farm6 0) ! 235: (hitms s farm1 0) ! 236: (hitms up farm7 0) ! 237: ; ! 238: ! 239: farm3 (ACTION) = ! 240: (hitms n farm5 0) ! 241: (hitms s farm1 0) ! 242: (hitms e frst1 0) ! 243: (hitms nw farm5 0) ! 244: (hitms sw farm1 0) ! 245: ; ! 246: ! 247: farm4 (ACTION) = ! 248: (hitms n farm5 0) ! 249: (hitms s farm1 0) ! 250: (hitms w gard4 0) ! 251: (hitms ne farm5 0) ! 252: (hitms se farm1 0) ! 253: ; ! 254: ! 255: farm5 (ACTION) = ! 256: (hitms e farm3 0) ! 257: (hitms w farm4 0) ! 258: (hitms se farm3 0) ! 259: (hitms sw farm4 0) ! 260: ; ! 261: ! 262: farm6 (ACTION) = ! 263: (hitms out farm2 0) ! 264: (hitms s farm2 0) ! 265: ; ! 266: farm7 (ACTION) = ! 267: (hitms e farm2 0) ! 268: (hitms d farm2 PanL) ! 269: ; ! 270: ! 271: ! 272: town1 (ACTION) = ! 273: (hitms n road6 0) ! 274: (hitms s town2 0) ! 275: (hitms e town3 0) ! 276: (hitms w town4 0) ! 277: ; ! 278: ! 279: town2 (ACTION) = ! 280: (hitms n town1 0) ! 281: (hitms e town5 0) ! 282: (hitms w town6 0) ! 283: ; ! 284: ! 285: town3 (ACTION) = ! 286: (hitms out town1 0) ! 287: (hitms w town1 0) ! 288: ; ! 289: ! 290: town4 (ACTION) = ! 291: (hitms e town1 0) ! 292: (hitms out town1 0) ! 293: ; ! 294: ! 295: town5 (ACTION) = ! 296: (hitms w town2 0) ! 297: (hitms out town2 0) ! 298: (TWN5x); ! 299: ! 300: town6 (ACTION) = ! 301: (hitms e town2 0) ! 302: (hitms out town2 0) ! 303: ; ! 304: ! 305: ! 306: cel01 (ACTION) = ! 307: ! 308: (hitms n cel02 0) ! 309: (hitms s 0 ny) ! 310: (hitms w cel04 0) ! 311: (hitms u farm7 0) ! 312: ; ! 313: cel02 (ACTION) = ! 314: (hitms n cel05 0) ! 315: (hitms s cel01 0) ! 316: (hitms e 0 ny) ! 317: ; ! 318: ! 319: cel03 (ACTION) = ! 320: (hitms s cel05 0) ! 321: (hitms w cel13 0) ! 322: (hitms ne cel09 0) ! 323: (hitms d cel09 0) ! 324: ; ! 325: ! 326: cel04 (ACTION) = ! 327: (synvb down north) ! 328: (hitms n cel10 0) ! 329: (hitms e cel01 0) ! 330: (hitms w cel08 0) ! 331: ; ! 332: ! 333: ! 334: MV56=($setg Cel6x 5); ! 335: MV76=($setg Cel6x 7); ! 336: MV67=( ($and ($ne @Cel6x 7) ! 337: ($prop dragon AWAKE)): ($say ! 338: "The ice dragon blocks your attempt to cross!\n\n") ! 339: : ($move .ME cel07) ); ! 340: ! 341: MV65=( ($and ($ne @Cel6x 5) ! 342: ($prop dragon AWAKE)): ($say ! 343: "The ice dragon blocks your attempt to leave!\n") ! 344: : ($move .ME cel05) ); ! 345: ! 346: ! 347: cel05 (ACTION) = ! 348: (hitms n cel03 0) ! 349: (hitms s cel02 0) ! 350: (hitms ne cel06 MV56) ! 351: ; ! 352: ! 353: cel06 (ACTION) = ! 354: (hitms e 0 MV67) ! 355: (hitms w 0 MV65) ! 356: (($eq ($loc .ME) cel06) {still here}: ! 357: ($setg LOOKP TRUE) ! 358: ) ! 359: ; ! 360: ! 361: cel07 (ACTION) = ! 362: (synvb out west) ! 363: (hitms w cel06 MV76) ! 364: ; ! 365: ! 366: cel08 (ACTION) = ! 367: (hitms e cel04 0) ! 368: (hitms w 0 ny) ! 369: ; ! 370: ! 371: cel09 (ACTION) = ! 372: (hitms n 0 ny) ! 373: ; ! 374: ! 375: cel10 (ACTION) = ! 376: (hitms s cel04 0) ! 377: (hitms d cel11 0) ! 378: ; ! 379: ! 380: cel11 (ACTION) = ! 381: (hitms e cel12 0) ! 382: (hitms n 0 ny) ! 383: ; ! 384: ! 385: cel12 (ACTION) = ! 386: (hitms n cel11 0) ! 387: (hitms e 0 ny) ! 388: ; ! 389: ! 390: cel13 (ACTION) = (($eq ($verb) down): ! 391: (($prop cel13 HOLED): ! 392: ($say "You plunge into the icy waters!\n") ! 393: ($move .ME cel14) ! 394: ($exit 1) ! 395: ) ! 396: ) ! 397: (($eq ($verb) drop): ! 398: (cdrop) ! 399: (($not ($prop cel13 HOLED)): ! 400: (($ge ($prop ($dobj) WEIGH) ! 401: ($prop [red crystal] WEIGH) ! 402: ): ! 403: ($say ! 404: "You have broken the ice! You watch helplessly as ") ! 405: (($sdisc ($dobj))) ! 406: ($say " ! 407: sinks swiftly into the dark and frigid depths.\n") ! 408: ($setp cel13 HOLED TRUE) ! 409: ($move hole cel13) ! 410: ($move ($dobj) .ALL) ! 411: ($exit 1) ! 412: {else}: {give him a hint} ! 413: ($say ! 414: "The icy floor chips a little, but remains intact.\n") ! 415: ) ! 416: ) ! 417: ($exit 1) ! 418: ) ! 419: (hitms e cel03 0) ! 420: (hitms w 0 ny) ! 421: ; ! 422: ! 423: cel14 (ACTION) = ! 424: (($eq ($verb) up): ! 425: (($prop cel13 HOLED): ! 426: ($say "You pop out through a hole in the ice!\n") ! 427: ($move .ME cel13) ! 428: ($exit 1) ! 429: :{else} ! 430: ($say "You are blocked by an icy roof above!\n") ! 431: ) ! 432: ) ! 433: (hitms w cel15 0) ! 434: ! 435: (($eq ($loc .ME) cel14): { Poor sap didn't move.} ! 436: ($say ! 437: "Your breath expires. The last thing you feel is the odd sensation ! 438: of water filling your lungs. ") (die) ! 439: );
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.