Return to transitions CVS log

Up to [CSRG BSD Unix] / 42BSD / games / mpu

Annotation of 42BSD/games/mpu/transitions, revision 1.1

1.1     ! root        1: {*** TRANSITIONS ***}
        !             2: 
        !             3: road1(ACTION) = ($setv n s e w ne nw se sw u d)
        !             4:                ($hit .ME gard1 gard5 road2 road3 gard2 gard3 gard6 gard7 0 0)
        !             5:                ($miss 0        0  0    0       0       0  0    0    cg cg);
        !             6: 
        !             7: road2(ACTION) = ($hit .ME gard2 gard6 road7 road1 gard2 gard1 gard6 gard5 0 0)
        !             8:                ($miss 0        0  0    0       0       0  0    0    cg cg);
        !             9: 
        !            10: road3(ACTION) = ($hit .ME gard3 gard7 road1 road8 gard1 gard3 gard5 gard7 0 0)
        !            11:                ($miss 0        0  0        entr8   0   0  0    0    cg cg);
        !            12: 
        !            13: road4(ACTION) = ($hit .ME farm1 road7 frst1 gard2 frst1 gard2 frst1 gard2 0 0)
        !            14:                ($miss 0        0  0    0       0       0  0    0    cg cg);
        !            15: 
        !            16: road5(ACTION) = ($hit .ME road7 road6 frst1 gard6 frst1 gard6 frst1 gard6 0 0)
        !            17:                ($miss 0        0  0    0       0       0  0    0    cg cg);
        !            18: 
        !            19: road6(ACTION) = ($hit .ME road5 town1 frst1 gard6 frst1 gard6 frst1 gard6 0 0)
        !            20:                ($miss 0        0  0    0       0       0  0    0    cg cg);
        !            21: 
        !            22: road7(ACTION) = ($hit .ME road4 road5 frst1 road2 frst1 gard2 frst1 gard6 0 0)
        !            23:                ($miss 0        0  0    0       0       0  0    0    cg cg);
        !            24: 
        !            25: road8(ACTION) = ($miss tress tress east8 west8 cg cg cg cg cg cg);
        !            26: 
        !            27: east8 = ( ($eq @HWY8 0) : ($move .ME road3)
        !            28:       { ELSE } :        (dump8 ($cont road8))
        !            29:                        ($setg HWY8 ($minus @HWY8 1))
        !            30:                        (get8 ($cont roadx))
        !            31:                        (Slook 0 ($loc .ME))
        !            32:                        ($setg LOOKP FALSE)
        !            33:                );
        !            34: 
        !            35: west8 =
        !            36:                        (dump8 ($cont road8))
        !            37:                        ($setg HWY8 ($plus @HWY8 1))
        !            38:                        (get8 ($cont roadx))
        !            39:                        (Slook 0 ($loc .ME))
        !            40:                        ($setg LOOKP FALSE);
        !            41: 
        !            42: dump8 = (($link %1) : (dump8 ($link %1)))       { start at bottom }
        !            43:        (($ne %1 .ME) :                 { Everything else leaves }
        !            44:                ($setp %1 RDLOC @HWY8)  { Retain its location on HWY 8 }
        !            45:                ($move %1 roadx)        { Put it in the box }
        !            46:        );
        !            47: 
        !            48: get8 =  ( %1 :
        !            49:                (get8 ($link %1))
        !            50:                (($eq ($prop %1 RDLOC) @HWY8) :
        !            51:                        ($move %1 road8)
        !            52:                )
        !            53:        );
        !            54: 
        !            55: entr8 =         (dump8 ($cont road8))
        !            56:                ($setg HWY8 0)
        !            57:                (get8 ($cont roadx));
        !            58: 
        !            59: 
        !            60: 
        !            61: 
        !            62: 
        !            63: 
        !            64: gard1(ACTION) = ($hit .ME gard4 road1 gard2 gard3 0 0 0 0 0 0 )
        !            65:                ($miss     0    0       0   0     cg cg cg cg cg cg);
        !            66: 
        !            67: gard2(ACTION) = ($hit .ME gard4 road2 gard2 gard1 0 0 0 0 0 0 )
        !            68:                ($miss     0     0      0       0 cg cg cg cg cg cg);
        !            69: 
        !            70: gard3(ACTION) = ($hit .ME gard4 road3 gard1 gard3 0 0 0 0 0 0 )
        !            71:                ($miss    0     0      0        0 cg cg cg cg cg cg);
        !            72: 
        !            73: gard4(ACTION) = ($hit .ME gard4 gard1 gard2 gard3 0 0 0 0 0 0 )
        !            74:                ($miss    0     0       0       0 cg cg cg cg cg cg);
        !            75: 
        !            76: 
        !            77: gard5(ACTION) = ($hit .ME road1 gard8 gard6 gard7 0 0 0 0 0 0 )
        !            78:                ($miss     0    0       0   0     cg cg cg cg cg cg);
        !            79: 
        !            80: gard6(ACTION) = ($hit .ME road2 gard8 gard6 gard5 0 0 0 0 0 0 )
        !            81:                ($miss    0     0       0       0 cg cg cg cg cg cg);
        !            82: 
        !            83: gard7(ACTION) = ($hit .ME road3 gard8 gard5 gard7 0 0 0 0 0 0 )
        !            84:                ($miss     0    0       0       0 cg cg cg cg cg cg);
        !            85: 
        !            86: gard8(ACTION) = ($hit .ME gard5 gard8 gard6 gard7 0 0 0 0 0 0 )
        !            87:                ($miss     0      0     0       0 cg cg cg cg cg cg);
        !            88: 
        !            89: 
        !            90: 
        !            91: 
        !            92: frst1(ACTION) = ($hit .ME frst3 frst1 frst2 frst2 0 0 0 0 0 0)
        !            93:                ($miss       0    0     0       0 cg cg cg cg cg cg);
        !            94: 
        !            95: frst2(ACTION) = ($hit .ME frst1 frst2 frst3 frst1 0 0 0 0 0 0)
        !            96:                ($miss       0    0     0       0 cg cg cg cg cg cg);
        !            97: 
        !            98: frst3(ACTION) = ($hit .ME frst1 frst3 frst2 frst2 0 0 0 0 0 0)
        !            99:                ($miss       0    0     0       0 cg cg cg cg cg cg);
        !           100: 
        !           101: frst4(ACTION) = ($hit .ME frst4 frst2 frst1 road7 0 0 0 0 0 0)
        !           102:                ($miss       0   0      0    0    cg cg cg cg cg cg);
        !           103: 
        !           104: 
        !           105: farm1 (ACTION) =($hit .ME farm2 road4 farm3 farm4 farm3 farm4 0 0 0 0)
        !           106:                ($miss     0     0      0       0  0     0    cg cg cg cg);
        !           107: 
        !           108: farm2 (ACTION) = ($hit .ME farm6 farm1 farm7 0 0 0 0 0 farm7 0)
        !           109:                 ($miss     0    0       0  cg cg cg cg cg 0 cg);
        !           110: 
        !           111: farm3 (ACTION) = ($hit .ME farm5 farm1 frst1 0 0 farm5 0 farm1 0 0)
        !           112:                 ($miss     0    0      0  cg cg   0  cg   0  cg cg);
        !           113: 
        !           114: farm4 (ACTION) = ($hit .ME farm5 farm1 0 gard4  farm5 0 farm1 0  0 0)
        !           115:                 ($miss     0     0   cg   0     0   cg   0  cg cg cg);
        !           116: 
        !           117: farm5 (ACTION) = ($hit .ME 0  0 farm3 farm4 0 0 farm3 farm4 0 0)
        !           118:                 ($miss    cg cg   0   0  cg cg   0    0  cg  cg);
        !           119: 
        !           120: farm6 (ACTION) = ($hit .ME 0 farm2 0 0 0 0 0 0 0 0)
        !           121:                 ($miss   cg 0 cg cg cg cg cg cg cg cg );
        !           122: 
        !           123: farm7 (ACTION) =
        !           124:                 ($hit .ME 0 0 farm2 0 0 0 0 0 0 farm2)
        !           125:                 ($miss   cg cg 0 PanL cg cg cg cg cg PanL);
        !           126: 
        !           127: 
        !           128: town1 (ACTION) =($hit .ME road6 town2 town3 town4 0  0  0  0  0  0)
        !           129:                ($miss       0    0    0        0 cg cg cg cg cg cg);
        !           130: 
        !           131: town2 (ACTION) =($hit .ME town1   0   town5 town6 0  0  0  0  0  0)
        !           132:                ($miss       0    cg   0        0 cg cg cg cg cg cg);
        !           133: 
        !           134: town3 (ACTION) =($hit .ME    0    0    0    town1 0  0  0  0  0  0)
        !           135:                ($miss      cg   cg   cg        0 cg cg cg cg cg cg);
        !           136: 
        !           137: town4 (ACTION) =($hit .ME    0    0  town1      0 0  0  0  0  0  0)
        !           138:                ($miss      cg   cg    0       cg cg cg cg cg cg cg);
        !           139: 
        !           140: town5 (ACTION) =($hit .ME    0    0    0    town2 0  0  0  0  0  0)
        !           141:                ($miss      cg   cg    cg     0   cg cg cg cg cg cg)
        !           142:                (TWN5x);
        !           143: 
        !           144: town6 (ACTION) =($hit .ME    0    0  town2      0 0  0  0  0  0  0)
        !           145:                ($miss      cg   cg    0       cg cg cg cg cg cg cg);
        !           146: 
        !           147: 
        !           148: cel01 (ACTION) = ($hit .ME cel02  0    0  cel04 0  0  0  0  farm7 0)
        !           149:                 ($miss     0     ny  cg    0   cg cg cg cg   0   cg);
        !           150: 
        !           151: cel02 (ACTION) = ($hit .ME cel05 cel01  0    0  0  0  0  0    0   0)
        !           152:                 ($miss     0     0     ny  cg cg cg cg cg   cg   cg);
        !           153: 
        !           154: cel03 (ACTION) = ($hit .ME  0   cel05   0 cel13 cel09 0  0  0    0   cel09)
        !           155:                 ($miss     cg    0     cg  0     0   cg cg cg   cg    0);
        !           156: 
        !           157: cel04 (ACTION) = ($hit .ME  cel10   0    cel01 cel08 0  0  0  0    0  cel10)
        !           158:                 ($miss      0      cg     0     0   cg cg cg cg   cg   0 );
        !           159: 
        !           160: 
        !           161: MV56=($setg Cel6x 5);
        !           162: MV76=($setg Cel6x 7);
        !           163: MV67=( ($and ($ne @Cel6x 7)
        !           164:             ($prop dragon AWAKE)): ($say
        !           165: "The ice dragon blocks your attempt to cross!\n\n")
        !           166:                :         ($move .ME cel07) );
        !           167: 
        !           168: MV65=( ($and ($ne @Cel6x 5)
        !           169:             ($prop dragon AWAKE)): ($say
        !           170: "The ice dragon blocks your attempt to leave!\n")
        !           171:                :         ($move .ME cel05) );
        !           172: 
        !           173: 
        !           174: cel05 (ACTION) = ($hit .ME cel03 cel02  0    0 cel06  0  0  0    0   0)
        !           175:                 ($miss      0    0     cg  cg MV56   ny cg cg   cg   cg);
        !           176: 
        !           177: cel06 (ACTION) = ($hit .ME  0     0      0     0    0  0  0  0    0   0)
        !           178:                 ($miss     cg    cg    MV67 MV65  cg cg cg cg   cg   cg)
        !           179:                (($eq ($loc .ME) cel06) {still here}:
        !           180:                        ($setg LOOKP TRUE)
        !           181:                )
        !           182:                  ;
        !           183: 
        !           184: cel07 (ACTION) = ($hit .ME  0     0      0   cel06  0  0  0  0    0   0)
        !           185:                 ($miss     cg    cg     cg  MV76  cg cg cg cg   cg   cg);
        !           186: 
        !           187: cel08 (ACTION) = ($hit .ME  0     0    cel04   0    0  0  0  0    0   0)
        !           188:                 ($miss     cg    cg     0    ny   cg cg cg cg   cg   cg);
        !           189: 
        !           190: cel09 (ACTION) = ($hit .ME   0     0     0     0     0  0  0  0   0   0)
        !           191:                 ($miss     ny     cg   cg    cg    cg cg cg cg cg   cg);
        !           192: 
        !           193: cel10 (ACTION) = ($hit .ME   0   cel04   0     0     0  0  0  0   0  cel11)
        !           194:                 ($miss     cg     0    cg    ny    cg cg cg cg cg    0);
        !           195: 
        !           196: cel11 (ACTION) = ($hit .ME   0     0  cel12    0     0  0  0  0   0   0)
        !           197:                 ($miss     ny     cg   0     cg    cg cg cg cg cg   cg);
        !           198: 
        !           199: cel12 (ACTION) = ($hit .ME  cel11  0     0     0     0  0  0  0   0   0)
        !           200:                 ($miss      0     cg   ny    cg    cg cg cg cg cg   cg);
        !           201: 
        !           202: cel13 (ACTION) = (($eq ($verb) down):
        !           203:                        (($prop cel13 HOLED):
        !           204:                                ($say "You plunge into the icy waters!\n")
        !           205:                                ($move .ME cel14)
        !           206:                                ($exit 0)
        !           207:                        )
        !           208:                  )
        !           209:                ($hit .ME  0   0   cel03   0   0  0  0  0   0  0)
        !           210:                ($miss    cg  cg    0     ny  cg  cg cg cg cg cg);
        !           211: 
        !           212: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.