mirror of
https://github.com/PDP-10/its.git
synced 2026-02-08 01:11:18 +00:00
(Collossal Cave) Adventure game, 1977-03-11 version by Will Crowther.
From http://www.icynic.com/~don/jerz/
This commit is contained in:
Lars Brinkhoff
733
src/games/advent.dat
Normal file
733
src/games/advent.dat
Normal file
@@ -0,0 +1,733 @@
|
||||
1
|
||||
1 YOU ARE STANDING AT THE END OF A ROAD BEFORE A SMALL BRICK
|
||||
1 BUILDING . AROUND YOU IS A FOREST. A SMALL
|
||||
1 STREAM FLOWS OUT OF THE BUILDING AND DOWN A GULLY.
|
||||
2 YOU HAVE WALKED UP A HILL, STILL IN THE FOREST
|
||||
2 THE ROAD NOW SLOPES BACK DOWN THE OTHER SIDE OF THE HILL.
|
||||
2 THERE IS A BUILDING IN THE DISTANCE.
|
||||
3 YOU ARE INSIDE A BUILDING, A WELL HOUSE FOR A LARGE SPRING.
|
||||
4 YOU ARE IN A VALLEY IN THE FOREST BESIDE A STREAM TUMBLING
|
||||
4 ALONG A ROCKY BED.
|
||||
5 YOU ARE IN OPEN FOREST, WITH A DEEP VALLEY TO ONE SIDE.
|
||||
6 YOU ARE IN OPEN FOREST NEAR BOTH A VALLEY AND A ROAD.
|
||||
7 AT YOUR FEET ALL THE WATER OF THE STREAM SPLASHES INTO A
|
||||
7 2 INCH SLIT IN THE ROCK. DOWNSTREAM THE STREAMBED IS BARE ROCK.
|
||||
8 YOU ARE IN A 20 FOOT DEPRESSION FLOORED WITH BARE DIRT. SET INTO
|
||||
8 THE DIRT IS A STRONG STEEL GRATE MOUNTED IN CONCRETE. A DRY
|
||||
8 STREAMBED LEADS INTO THE DEPRESSION.
|
||||
9 YOU ARE IN A SMALL CHAMBER BENEATH A 3X3 STEEL GRATE TO THE
|
||||
9 SURFACE. A LOW CRAWL OVER COBBLES LEADS INWARD TO THE WEST.
|
||||
10 YOU ARE CRAWLING OVER COBBLES IN A LOW PASSAGE. THERE IS A
|
||||
10 DIM LIGHT AT THE EAST END OF THE PASSAGE.
|
||||
11 YOU ARE IN A DEBRIS ROOM, FILLED WITH STUFF WASHED IN FROM
|
||||
11 THE SURFACE. A LOW WIDE PASSAGE WITH COBBLES BECOMES
|
||||
11 PLUGGED WITH MUD AND DEBRIS HERE,BUT AN AWKWARD CANYON
|
||||
11 LEADS UPWARD AND WEST.
|
||||
11 A NOTE ON THE WALL SAYS 'MAGIC WORD XYZZY'.
|
||||
12 YOU ARE IN AN AWKWARD SLOPING EAST/WEST CANYON.
|
||||
13 YOU ARE IN A SPLENDID CHAMBER THIRTY FEET HIGH. THE WALLS
|
||||
13 ARE FROZEN RIVERS OF ORANGE STONE. AN AWKWARD CANYON AND A
|
||||
13 GOOD PASSAGE EXIT FROM EAST AND WEST SIDES OF THE CHAMBER.
|
||||
14 AT YOUR FEET IS A SMALL PIT BREATHING TRACES OF WHITE MIST. AN
|
||||
14 EAST PASSAGE ENDS HERE EXCEPT FOR A SMALL CRACK LEADING ON.
|
||||
15 YOU ARE AT ONE END OF A VAST HALL STRETCHING FORWARD OUT OF
|
||||
15 SIGHT TO THE WEST. THERE ARE OPENINGS TO EITHER SIDE. NEARBY, A WIDE
|
||||
15 STONE STAIRCASE LEADS DOWNWARD. THE HALL IS FILLED WITH
|
||||
15 WISPS OF WHITE MIST SWAYING TO AND FRO ALMOST AS IF ALIVE.
|
||||
15 A COLD WIND BLOWS UP THE STAIRCASE. THERE IS A PASSAGE
|
||||
15 AT THE TOP OF A DOME BEHIND YOU.
|
||||
16 THE CRACK IS FAR TOO SMALL FOR YOU TO FOLLOW.
|
||||
17 YOU ARE ON THE EAST BANK OF A FISSURE SLICING CLEAR ACROSS
|
||||
17 THE HALL. THE MIST IS QUITE THICK HERE, AND THE FISSURE IS
|
||||
17 TOO WIDE TO JUMP.
|
||||
18 THIS IS A LOW ROOM WITH A CRUDE NOTE ON THE WALL.
|
||||
18 IT SAYS 'YOU WON'T GET IT UP THE STEPS'.
|
||||
19 YOU ARE IN THE HALL OF THE MOUNTAIN KING, WITH PASSAGES
|
||||
19 OFF IN ALL DIRECTIONS.
|
||||
20 YOU ARE AT THE BOTTOM OF THE PIT WITH A BROKEN NECK.
|
||||
21 YOU DIDN'T MAKE IT
|
||||
22 THE DOME IS UNCLIMBABLE
|
||||
23 YOU CAN'T GO IN THROUGH A LOCKED STEEL GRATE!
|
||||
24 YOU DON'T FIT DOWN A TWO INCH HOLE!
|
||||
25 YOU CAN'T GO THROUGH A LOCKED STEEL GRATE.
|
||||
27 YOU ARE ON THE WEST SIDE OF THE FISSURE IN THE HALL OF MISTS.
|
||||
28 YOU ARE IN A LOW N/S PASSAGE AT A HOLE IN THE FLOOR.
|
||||
28 THE HOLE GOES DOWN TO AN E/W PASSAGE.
|
||||
29 YOU ARE IN THE SOUTH SIDE CHAMBER.
|
||||
30 YOU ARE IN THE WEST SIDE CHAMBER OF HALL OF MT KING.
|
||||
30 A PASSAGE CONTINUES WEST AND UP HERE.
|
||||
|
||||
31 THERE IS NO WAY ACROSS THE FISSURE.
|
||||
32 YOU CAN'T GET BY THE SNAKE
|
||||
33 YOU ARE IN A LARGE ROOM, WITH A PASSAGE TO THE SOUTH,
|
||||
33 A PASSAGE TO THE WEST, AND A WALL OF BROKEN ROCK TO
|
||||
33 THE EAST. THERE IS A LARGE 'Y2' ON A ROCK IN ROOMS CENTER.
|
||||
34 YOU ARE IN A JUMBLE OF ROCK, WITH CRACKS EVERYWHERE.
|
||||
35 YOU ARE AT A WINDOW ON A HUGE PIT, WHICH GOES UP AND
|
||||
35 DOWN OUT OF SIGHT. A FLOOR IS INDISTINCTLY VISIBLE
|
||||
35 OVER 50 FEET BELOW. DIRECTLY OPPOSITE YOU AND 25 FEET AWAY
|
||||
35 THERE IS A SIMILAR WINDOW.
|
||||
36 YOU ARE IN A DIRTY BROKEN PASSAGE. TO THE EAST IS A CRAWL.
|
||||
36 TO THE WEST IS A LARGE PASSAGE. ABOVE YOU IS A HOLE TO
|
||||
36 ANOTHER PASSAGE.
|
||||
37 YOU ARE ON THE BRINK OF A SMALL CLEAN CLIMBABLE PIT.
|
||||
37 A CRAWL LEADS WEST.
|
||||
38 YOU ARE IN THE BOTTOM OF A SMALL PIT WITH A LITTLE
|
||||
38 STREAM, WHICH ENTERS AND EXITS THROUGH TINY SLITS.
|
||||
39 YOU ARE IN A LARGE ROOM FULL OF DUSTY ROCKS. THERE IS A
|
||||
39 BIG HOLE IN THE FLOOR. THERE ARE CRACKS EVERYWHERE, AND
|
||||
39 A PASSAGE LEADING EAST.
|
||||
40 YOU HAVE CRAWLED THROUGH A VERY LOW WIDE PASSAGE PARALLEL
|
||||
40 TO AND NORTH OF THE HALL OF MISTS.
|
||||
41 YOU ARE AT THE WEST END OF HALL OF MISTS. A LOW WIDE CRAWL
|
||||
41 CONTINUES WEST AND ANOTHER GOES NORTH. TO THE SOUTH IS A
|
||||
41 LITTLE PASSAGE 6 FEET OFF THE FLOOR.
|
||||
42 YOU ARE IN A MAZE OF TWISTY LITTLE PASSAGES, ALL ALIKE.
|
||||
43 YOU ARE IN A MAZE OF TWISTY LITTLE PASSAGES, ALL ALIKE.
|
||||
44 YOU ARE IN A MAZE OF TWISTY LITTLE PASSAGES, ALL ALIKE.
|
||||
45 YOU ARE IN A MAZE OF TWISTY LITTLE PASSAGES, ALL ALIKE.
|
||||
46 DEAD END
|
||||
47 DEAD END
|
||||
48 DEAD END
|
||||
49 YOU ARE IN A MAZE OF TWISTY LITTLE PASSAGES, ALL ALIKE.
|
||||
50 YOU ARE IN A MAZE OF TWISTY LITTLE PASSAGES, ALL ALIKE.
|
||||
51 YOU ARE IN A MAZE OF TWISTY LITTLE PASSAGES, ALL ALIKE.
|
||||
52 YOU ARE IN A MAZE OF TWISTY LITTLE PASSAGES, ALL ALIKE.
|
||||
53 YOU ARE IN A MAZE OF TWISTY LITTLE PASSAGES, ALL ALIKE.
|
||||
54 DEAD END
|
||||
55 YOU ARE IN A MAZE OF TWISTY LITTLE PASSAGES, ALL ALIKE.
|
||||
56 DEAD END
|
||||
57 YOU ARE ON THE BRINK OF A THIRTY FOOT PIT WITH A MASSIVE
|
||||
57 ORANGE COLUMN DOWN ONE WALL. YOU COULD CLIMB DOWN HERE
|
||||
57 BUT YOU COULD NOT GET BACK UP. THE MAZE CONTINUES AT THIS
|
||||
57 LEVEL.
|
||||
58 DEAD END
|
||||
59 YOU HAVE CRAWLED THROUGH A VERY LOW WIDE PASSAGE PARALLEL
|
||||
59 TO AND NORTH OF THE HALL OF MISTS.
|
||||
60 YOU ARE AT THE EAST END OF A VERY LONG HALL APPARENTLY
|
||||
60 WITHOUT SIDE CHAMBERS. TO THE EAST A LOW WIDE CRAWL SLANTS
|
||||
60 UP. TO THE NORTH A ROUND TWO FOOT HOLE SLANTS DOWN.
|
||||
61 YOU ARE AT THE WEST END OF A VERY LONG FEATURELESS HALL.
|
||||
62 YOU ARE AT A CROSSOVER OF A HIGH N/S PASSAGE AND A LOW E/W ONE.
|
||||
63 DEAD END
|
||||
64 YOU ARE AT A COMPLEX JUNCTION. A LOW HANDS AND KNEES
|
||||
64 PASSAGE FROM THE NORTH JOINS A HIGHER CRAWL
|
||||
64 FROM THE EAST TO MAKE A WALKING PASSAGE GOING WEST
|
||||
64 THERE IS ALSO A LARGE ROOM ABOVE. THE AIR IS DAMP HERE.
|
||||
64 A SIGN IN MIDAIR HERE SAYS 'CAVE UNDER CONSTRUCTION BEYOND
|
||||
64 THIS POINT. PROCEED AT OWN RISK.'
|
||||
65 YOU ARE IN BEDQUILT, A LONG EAST/WEST PASSAGE WITH HOLES EVERYWHERE.
|
||||
65 TO EXPLORE AT RANDOM SELECT NORTH, SOUTH, UP, OR DOWN.
|
||||
66 YOU ARE IN A ROOM WHOSE WALLS RESEMBLE SWISS CHEESE.
|
||||
66 OBVIOUS PASSAGES GO WEST,EAST,NE, AND
|
||||
66 NW. PART OF THE ROOM IS OCCUPIED BY A LARGE BEDROCK BLOCK.
|
||||
67 YOU ARE IN THE TWOPIT ROOM. THE FLOOR
|
||||
67 HERE IS LITTERED WITH THIN ROCK SLABS, WHICH MAKE IT
|
||||
67 EASY TO DESCEND THE PITS. THERE IS A PATH HERE BYPASSING
|
||||
67 THE PITS TO CONNECT PASSAGES FROM EAST AND WEST.THERE
|
||||
67 ARE HOLES ALL OVER, BUT THE ONLY BIG ONE IS ON THE WALL
|
||||
67 DIRECTLY OVER THE EAST PIT WHERE YOU CAN'T GET TO IT.
|
||||
68 YOU ARE IN A LARGE LOW CIRCULAR CHAMBER WHOSE FLOOR IS AN
|
||||
68 IMMENSE SLAB FALLEN FROM THE CEILING(SLAB ROOM). EAST AND
|
||||
68 WEST THERE ONCE WERE LARGE PASSAGES, BUT THEY ARE NOW FILLED
|
||||
68 WITH BOULDERS. LOW SMALL PASSAGES GO NORTH AND SOUTH, AND THE
|
||||
68 SOUTH ONE QUICKLY BENDS WEST AROUND THE BOULDERS.
|
||||
69 YOU ARE IN A SECRET NS CANYON ABOVE A LARGE ROOM.
|
||||
70 YOU ARE IN A SECRET N/S CANYON ABOVE A SIZABLE PASSAGE.
|
||||
71 YOU ARE IN SECRET CANYON AT A JUNCTION OF THREE CANYONS,
|
||||
71 BEARING NORTH, SOUTH, AND SE. THE NORTH ONE IS AS TALL
|
||||
71 AS THE OTHER TWO COMBINED.
|
||||
72 YOU ARE IN A LARGE LOW ROOM. CRAWLS LEAD N, SE, AND SW.
|
||||
73 DEAD END CRAWL.
|
||||
74 YOU ARE IN SECRET CANYON WHICH HERE RUNS E/W. IT CROSSES OVER
|
||||
74 A VERY TIGHT CANYON 15 FEET BELOW. IF YOU GO DOWN YOU MAY
|
||||
74 NOT BE ABLE TO GET BACK UP
|
||||
75 YOU ARE AT A WIDE PLACE IN A VERY TIGHT N/S CANYON.
|
||||
76 THE CANYON HERE BECOMES TO TIGHT TO GO FURTHER SOUTH.
|
||||
77 YOU ARE IN A TALL E/W CANYON. A LOW TIGHT CRAWL GOES 3 FEET
|
||||
77 NORTH AND SEEMS TO OPEN UP.
|
||||
78 THE CANYON RUNS INTO A MASS OF BOULDERS - DEAD END.
|
||||
79 THE STREAM FLOWS OUT THROUGH A PAIR OF 1 FOOT DIAMETER SEWER
|
||||
79 PIPES. IT WOULD BE ADVISABLE TO USE THE DOOR.
|
||||
-1 END
|
||||
2
|
||||
1 YOU'RE AT END OF ROAD AGAIN.
|
||||
2 YOU'RE AT HILL IN ROAD.
|
||||
3 YOU'RE INSIDE BUILDING.
|
||||
4 YOU'RE IN VALLEY
|
||||
5 YOU'RE IN FOREST
|
||||
6 YOU'RE IN FOREST
|
||||
7 YOU'RE AT SLIT IN STREAMBED
|
||||
8 YOU'RE OUTSIDE GRATE
|
||||
9 YOU'RE BELOW THE GRATE
|
||||
10 YOU'RE IN COBBLE CRAWL
|
||||
11 YOU'RE IN DEBRIS ROOM.
|
||||
13 YOU'RE IN BIRD CHAMBER.
|
||||
14 YOU'RE AT TOP OF SMALL PIT.
|
||||
15 YOU'RE IN HALL OF MISTS.
|
||||
17 YOU'RE ON EAST BANK OF FISSURE.
|
||||
18 YOU'RE IN NUGGET OF GOLD ROOM.
|
||||
19 YOU'RE IN HALL OF MT KING.
|
||||
33 YOU'RE AT Y2
|
||||
35 YOU'RE AT WINDOW ON PIT
|
||||
36 YOU'RE IN DIRTY PASSAGE
|
||||
39 YOU'RE N DUSTY ROCK ROOM.
|
||||
41 YOU'RE AT WEST END OF HALL OF MISTS.
|
||||
57 YOU'RE AT BRINK OF PIT.
|
||||
60 YOU'RE AT EAST END OF LONG HALL.
|
||||
66 YOU'RE IN SWISS CHEESE ROOM
|
||||
67 YOU'RE IN TWOPIT ROOM
|
||||
68 YOU'RE IN SLAB ROOM
|
||||
-1
|
||||
3
|
||||
1 2 2 44
|
||||
1 3 3 12 19 43
|
||||
1 4 4 5 13 14 46 30
|
||||
1 5 6 45 43
|
||||
1 8 49
|
||||
2 1 8 2 12 7 43 45 30
|
||||
2 5 6 45 46
|
||||
3 1 3 11 32 44
|
||||
3 11 48
|
||||
3 33 65
|
||||
3 79 5 14
|
||||
4 1 4 45
|
||||
4 5 6 43 44 29
|
||||
4 7 5 46 30
|
||||
4 8 49
|
||||
5 4 9 43 30
|
||||
5 300 6 7 8 45
|
||||
5 5 44 46
|
||||
6 1 2 45
|
||||
6 4 9 43 44 30
|
||||
6 5 6 46
|
||||
7 1 12
|
||||
7 4 4 45
|
||||
7 5 6 43 44
|
||||
7 8 5 15 16 46 30
|
||||
7 24 47 14 30
|
||||
8 5 6 43 44 46
|
||||
8 1 12
|
||||
8 7 4 13 45
|
||||
8 301 3 5 19 30
|
||||
9 302 11 12
|
||||
9 10 17 18 19 44
|
||||
9 14 31
|
||||
9 11 51
|
||||
10 9 11 20 21 43
|
||||
10 11 19 22 44 51
|
||||
10 14 31
|
||||
11 310 49
|
||||
11 10 17 18 23 24 43
|
||||
11 12 25 305 19 29 44
|
||||
11 3 48
|
||||
11 14 31
|
||||
12 310 49
|
||||
12 11 30 43 51
|
||||
12 13 19 29 44
|
||||
12 14 31
|
||||
13 310 49
|
||||
13 11 51
|
||||
13 12 25 305 43
|
||||
13 14 23 31 44
|
||||
14 310 49
|
||||
14 11 51
|
||||
14 13 23 43
|
||||
14 303 30 31 34
|
||||
14 16 33 44
|
||||
15 18 36 46
|
||||
15 17 7 38 44
|
||||
15 19 10 30 45
|
||||
15 304 29 31 34 35 23 43
|
||||
15 34 55
|
||||
15 62 69
|
||||
16 14 1
|
||||
17 15 8 38 43
|
||||
17 305 7
|
||||
17 306 40 41 42 44 19 39
|
||||
18 15 38 11 8 45
|
||||
19 15 10 29 43
|
||||
19 307 45 36
|
||||
19 308 46 37
|
||||
19 309 44 7
|
||||
19 74 66
|
||||
20 26 1
|
||||
21 26 1
|
||||
22 15 1
|
||||
23 8 1
|
||||
24 7 1
|
||||
25 9 1
|
||||
27 17 8 11 38
|
||||
27 40 45
|
||||
27 41 44
|
||||
28 19 38 11 46
|
||||
28 33 45
|
||||
28 36 30 52
|
||||
29 19 38 11 45
|
||||
30 19 38 11 43
|
||||
30 62 44 29
|
||||
31 17 1
|
||||
32 19 1
|
||||
33 3 65
|
||||
33 28 46
|
||||
33 34 43 53 54
|
||||
33 35 44
|
||||
34 33 30
|
||||
34 15 29
|
||||
35 33 43 55
|
||||
36 37 43 17
|
||||
36 28 29 52
|
||||
36 39 44
|
||||
37 36 44 17
|
||||
37 38 30 31 56
|
||||
38 37 56 29
|
||||
39 36 43
|
||||
39 64 30 52 58
|
||||
39 65 70
|
||||
40 41 1
|
||||
41 42 46 29 23 56
|
||||
41 27 43
|
||||
41 59 45
|
||||
41 60 44 17
|
||||
42 41 44
|
||||
42 43 43
|
||||
42 44 46
|
||||
43 42 44
|
||||
43 44 46
|
||||
43 45 43
|
||||
44 42 45
|
||||
44 43 43
|
||||
44 48 30
|
||||
44 50 46
|
||||
45 43 45
|
||||
45 46 43
|
||||
45 47 46
|
||||
46 45 44 11
|
||||
47 45 45 11
|
||||
48 44 29 11
|
||||
49 50 30 43
|
||||
49 51 44
|
||||
50 44 43
|
||||
50 49 44 29
|
||||
50 52 46
|
||||
51 49 44
|
||||
51 52 43
|
||||
51 53 46
|
||||
52 50 45
|
||||
52 51 44
|
||||
52 53 29
|
||||
52 55 43
|
||||
53 51 44
|
||||
53 52 45
|
||||
53 54 46
|
||||
54 53 43 11
|
||||
55 52 44
|
||||
55 56 30
|
||||
55 57 43
|
||||
56 55 29 11
|
||||
57 55 44
|
||||
57 58 46
|
||||
57 13 30 56
|
||||
58 57 44 11
|
||||
59 27 1
|
||||
60 41 43 29
|
||||
60 61 44
|
||||
60 62 45 30
|
||||
61 60 43 11
|
||||
62 60 44
|
||||
62 63 45
|
||||
62 30 43
|
||||
62 15 46
|
||||
63 62 46 11
|
||||
64 39 29 56 59
|
||||
64 65 44
|
||||
65 64 43
|
||||
65 66 44
|
||||
65 68 61
|
||||
65 311 46
|
||||
65 312 29
|
||||
66 313 45
|
||||
66 65 60
|
||||
66 67 44
|
||||
66 77 25
|
||||
66 314 46
|
||||
67 66 43
|
||||
67 72 60
|
||||
68 66 46
|
||||
68 69 29
|
||||
69 68 30
|
||||
69 74 46
|
||||
70 71 45
|
||||
71 39 29
|
||||
71 65 62
|
||||
71 70 46
|
||||
72 67 63
|
||||
72 73 45
|
||||
73 72 46
|
||||
74 19 43
|
||||
74 69 44
|
||||
74 75 30
|
||||
75 76 46
|
||||
75 77 45
|
||||
76 75 45
|
||||
77 75 43
|
||||
77 78 44
|
||||
77 66 45
|
||||
78 77 46
|
||||
79 3 1
|
||||
-1
|
||||
4
|
||||
2 ROAD
|
||||
3 ENTER
|
||||
3 DOOR
|
||||
3 GATE
|
||||
4 UPSTR
|
||||
5 DOWNS
|
||||
6 FORES
|
||||
7 FORWA
|
||||
7 CONTI
|
||||
7 ONWAR
|
||||
8 BACK
|
||||
8 RETUR
|
||||
8 RETRE
|
||||
9 VALLE
|
||||
10 STAIR
|
||||
11 OUT
|
||||
11 OUTSI
|
||||
11 EXIT
|
||||
11 LEAVE
|
||||
12 BUILD
|
||||
12 BLD
|
||||
12 HOUSE
|
||||
13 GULLY
|
||||
14 STREA
|
||||
15 ROCK
|
||||
16 BED
|
||||
17 CRAWL
|
||||
18 COBBL
|
||||
19 INWAR
|
||||
19 INSID
|
||||
19 IN
|
||||
20 SURFA
|
||||
21 NULL
|
||||
21 NOWHE
|
||||
22 DARK
|
||||
23 PASSA
|
||||
24 LOW
|
||||
25 CANYO
|
||||
26 AWKWA
|
||||
29 UPWAR
|
||||
29 UP
|
||||
29 U
|
||||
29 ABOVE
|
||||
30 D
|
||||
30 DOWNW
|
||||
30 DOWN
|
||||
31 PIT
|
||||
32 OUTDO
|
||||
33 CRACK
|
||||
34 STEPS
|
||||
35 DOME
|
||||
36 LEFT
|
||||
37 RIGHT
|
||||
38 HALL
|
||||
39 JUMP
|
||||
40 MAGIC
|
||||
41 OVER
|
||||
42 ACROS
|
||||
43 EAST
|
||||
43 E
|
||||
44 WEST
|
||||
44 W
|
||||
45 NORTH
|
||||
45 N
|
||||
46 SOUTH
|
||||
46 S
|
||||
47 SLIT
|
||||
48 XYZZY
|
||||
49 DEPRE
|
||||
50 ENTRA
|
||||
51 DEBRI
|
||||
52 HOLE
|
||||
53 WALL
|
||||
54 BROKE
|
||||
55 Y2
|
||||
56 CLIMB
|
||||
57 LOOK
|
||||
57 EXAMI
|
||||
57 TOUCH
|
||||
57 LOOKA
|
||||
58 FLOOR
|
||||
59 ROOM
|
||||
60 NE
|
||||
61 SLAB
|
||||
61 SLABR
|
||||
62 SE
|
||||
63 SW
|
||||
64 NW
|
||||
65 PLUGH
|
||||
66 SECRE
|
||||
67 CAVE
|
||||
68 TURN
|
||||
69 CROSS
|
||||
70 BEDQU
|
||||
1001 KEYS
|
||||
1001 KEY
|
||||
1002 LAMP
|
||||
1002 HEADL
|
||||
1003 GRATE
|
||||
1004 CAGE
|
||||
1005 ROD
|
||||
1006 STEPS
|
||||
1007 BIRD
|
||||
1010 NUGGE
|
||||
1010 GOLD
|
||||
1011 SNAKE
|
||||
1012 FISSU
|
||||
1013 DIAMO
|
||||
1014 SILVE
|
||||
1014 BARS
|
||||
1015 JEWEL
|
||||
1016 COINS
|
||||
1017 DWARV
|
||||
1017 DWARF
|
||||
1018 KNIFE
|
||||
1018 KNIVE
|
||||
1018 ROCK
|
||||
1018 WEAPO
|
||||
1018 BOULD
|
||||
1019 FOOD
|
||||
1019 RATIO
|
||||
1020 WATER
|
||||
1020 BOTTL
|
||||
1021 AXE
|
||||
1022 KNIFE
|
||||
1023 CHEST
|
||||
1023 BOX
|
||||
1023 TREAS
|
||||
2001 TAKE
|
||||
2001 CARRY
|
||||
2001 KEEP
|
||||
2001 PICKU
|
||||
2001 PICK
|
||||
2001 WEAR
|
||||
2001 CATCH
|
||||
2001 STEAL
|
||||
2001 CAPTU
|
||||
2001 FIND
|
||||
2001 WHERE
|
||||
2001 GET
|
||||
2002 RELEA
|
||||
2002 FREE
|
||||
2002 DISCA
|
||||
2002 DROP
|
||||
2002 DUMP
|
||||
2003 DUMMY
|
||||
2004 UNLOC
|
||||
2004 OPEN
|
||||
2004 LIFT
|
||||
2005 NOTHI
|
||||
2005 HOLD
|
||||
2006 LOCK
|
||||
2006 CLOSE
|
||||
2007 LIGHT
|
||||
2007 ON
|
||||
2008 EXTIN
|
||||
2008 OFF
|
||||
2009 STRIK
|
||||
2010 CALM
|
||||
2010 WAVE
|
||||
2010 SHAKE
|
||||
2010 SING
|
||||
2010 CLEAV
|
||||
2011 WALK
|
||||
2011 RUN
|
||||
2011 TRAVE
|
||||
2011 GO
|
||||
2011 PROCE
|
||||
2011 CONTI
|
||||
2011 EXPLO
|
||||
2011 GOTO
|
||||
2011 FOLLO
|
||||
2012 ATTAC
|
||||
2012 KILL
|
||||
2012 STAB
|
||||
2012 FIGHT
|
||||
2012 HIT
|
||||
2013 POUR
|
||||
2014 EAT
|
||||
2015 DRINK
|
||||
2016 RUB
|
||||
3001 OPENS
|
||||
3002 HELP
|
||||
3002 ?
|
||||
3002 WHAT
|
||||
3003 TREE
|
||||
3004 DIG
|
||||
3004 EXCIV
|
||||
3005 BLAST
|
||||
3006 LOST
|
||||
3007 MIST
|
||||
3008 THROW
|
||||
3009 FUCK
|
||||
-1
|
||||
5
|
||||
201 THERE ARE SOME KEYS ON THE GROUND HERE.
|
||||
202 THERE IS A SHINY BRASS LAMP NEARBY.
|
||||
3 THE GRATE IS LOCKED
|
||||
103 THE GRATE IS OPEN.
|
||||
204 THERE IS A SMALL WICKER CAGE DISCARDED NEARBY.
|
||||
205 A THREE FOOT BLACK ROD WITH A RUSTY STAR ON AN END LIES NEARBY
|
||||
206 ROUGH STONE STEPS LEAD DOWN THE PIT.
|
||||
7 A CHEERFUL LITTLE BIRD IS SITTING HERE SINGING.
|
||||
107 THERE IS A LITTLE BIRD IN THE CAGE.
|
||||
8 THE GRATE IS LOCKED
|
||||
108 THE GRATE IS OPEN.
|
||||
209 ROUGH STONE STEPS LEAD UP THE DOME.
|
||||
210 THERE IS A LARGE SPARKLING NUGGET OF GOLD HERE!
|
||||
11 A HUGE GREEN FIERCE SNAKE BARS THE WAY!
|
||||
112 A CRYSTAL BRIDGE NOW SPANS THE FISSURE.
|
||||
213 THERE ARE DIAMONDS HERE!
|
||||
214 THERE ARE BARS OF SILVER HERE!
|
||||
215 THERE IS PRECIOUS JEWELRY HERE!
|
||||
216 THERE ARE MANY COINS HERE!
|
||||
19 THERE IS FOOD HERE.
|
||||
20 THERE IS A BOTTLE OF WATER HERE.
|
||||
120 THERE IS AN EMPTY BOTTLE HERE.
|
||||
221 THERE IS A LITTLE AXE HERE
|
||||
-1
|
||||
6
|
||||
1 SOMEWHERE NEARBY IS COLOSSAL CAVE, WHERE OTHERS HAVE FOUND
|
||||
1 FORTUNES IN TREASURE AND GOLD, THOUGH IT IS RUMORED
|
||||
1 THAT SOME WHO ENTER ARE NEVER SEEN AGAIN. MAGIC IS SAID
|
||||
1 TO WORK IN THE CAVE. I WILL BE YOUR EYES AND HANDS. DIRECT
|
||||
1 ME WITH COMMANDS OF 1 OR 2 WORDS.
|
||||
1 (ERRORS, SUGGESTIONS, COMPLAINTS TO CROWTHER)
|
||||
1 (IF STUCK TYPE HELP FOR SOME HINTS)
|
||||
2 A LITTLE DWARF WITH A BIG KNIFE BLOCKS YOUR WAY.
|
||||
3 A LITTLE DWARF JUST WALKED AROUND A CORNER,SAW YOU, THREW
|
||||
3 A LITTLE AXE AT YOU WHICH MISSED, CURSED, AND RAN AWAY.
|
||||
4 THERE IS A THREATENING LITTLE DWARF IN THE ROOM WITH YOU!
|
||||
5 ONE SHARP NASTY KNIFE IS THROWN AT YOU!
|
||||
6 HE GETS YOU!
|
||||
7 NONE OF THEM HIT YOU!
|
||||
8 A HOLLOW VOICE SAYS 'PLUGH'
|
||||
9 THERE IS NO WAY TO GO THAT DIRECTION.
|
||||
10 I AM UNSURE HOW YOU ARE FACING. USE COMPASS POINTS OR
|
||||
10 NEARBY OBJECTS.
|
||||
11 I DON'T KNOW IN FROM OUT HERE. USE COMPASS POINTS OR NAME
|
||||
11 SOMETHING IN THE GENERAL DIRECTION YOU WANT TO GO.
|
||||
12 I DON'T KNOW HOW TO APPLY THAT WORD HERE.
|
||||
13 I DON'T UNDERSTAND THAT!
|
||||
14 I ALWAYS UNDERSTAND COMPASS DIRECTIONS, OR YOU CAN NAME
|
||||
14 A NEARBY THING TO HEAD THAT WAY.
|
||||
15 SORRY, BUT I AM NOT ALLOWED TO GIVE MORE DETAIL. I WILL
|
||||
15 REPEAT THE LONG DESCRIPTION OF YOUR LOCATION.
|
||||
16 IT IS NOW PITCH BLACK. IF YOU PROCEED YOU WILL LIKELY
|
||||
16 FALL INTO A PIT.
|
||||
17 IF YOU PREFER, SIMPLY TYPE W RATHER THAN WEST.
|
||||
18 ARE YOU TRYING TO CATCH THE BIRD?
|
||||
19 THE BIRD IS FRIGHTENED RIGHT NOW AND YOU CANNOT CATCH IT
|
||||
19 NO MATTER WHAT YOU TRY. PERHAPS YOU MIGHT TRY LATER.
|
||||
20 ARE YOU TRYING TO ATTACK OR AVOID THE SNAKE?
|
||||
21 YOU CAN'T KILL THE SNAKE, OR DRIVE IT AWAY, OR AVOID IT,
|
||||
21 OR ANYTHING LIKE THAT. THERE IS A WAY TO GET BY, BUT YOU
|
||||
21 DON'T HAVE THE NECESSARY RESOURCES RIGHT NOW.
|
||||
22 MY WORD FOR HITTING SOMETHING WITH THE ROD IS 'STRIKE'.
|
||||
23 YOU FELL INTO A PIT AND BROKE EVERY BONE IN YOUR BODY!
|
||||
24 YOU ARE ALREADY CARRYING IT!
|
||||
25 YOU CAN'T BE SERIOUS!
|
||||
26 THE BIRD WAS UNAFRAID WHEN YOU ENTERED, BUT AS YOU APPROACH
|
||||
26 IT BECOMES DISTURBED AND YOU CANNOT CATCH IT.
|
||||
27 YOU CAN CATCH THE BIRD, BUT YOU CANNOT CARRY IT.
|
||||
28 THERE IS NOTHING HERE WITH A LOCK!
|
||||
29 YOU AREN'T CARRYING IT!
|
||||
30 THE LITTLE BIRD ATTACKS THE GREEN SNAKE, AND IN AN
|
||||
30 ASTOUNDING FLURRY DRIVES THE SNAKE AWAY.
|
||||
31 YOU HAVE NO KEYS!
|
||||
32 IT HAS NO LOCK.
|
||||
33 I DON'T KNOW HOW TO LOCK OR UNLOCK SUCH A THING.
|
||||
34 THE GRATE WAS ALREADY LOCKED.
|
||||
35 THE GRATE IS NOW LOCKED.
|
||||
36 THE GRATE WAS ALREADY UNLOCKED.
|
||||
37 THE GRATE IS NOW UNLOCKED.
|
||||
38 YOU HAVE NO SOURCE OF LIGHT.
|
||||
39 YOUR LAMP IS NOW ON.
|
||||
40 YOUR LAMP IS NOW OFF.
|
||||
41 STRIKE WHAT?
|
||||
42 NOTHING HAPPENS.
|
||||
43 WHERE?
|
||||
44 THERE IS NOTHING HERE TO ATTACK.
|
||||
45 THE LITTLE BIRD IS NOW DEAD. ITS BODY DISAPPEARS.
|
||||
46 ATTACKING THE SNAKE BOTH DOESN'T WORK AND IS VERY DANGEROUS.
|
||||
47 YOU KILLED A LITTLE DWARF.
|
||||
48 YOU ATTACK A LITTLE DWARF, BUT HE DODGES OUT OF THE WAY.
|
||||
49 I HAVE TROUBLE WITH THE WORD 'THROW' BECAUSE YOU CAN THROW
|
||||
49 A THING OR THROW AT A THING. PLEASE USE DROP OR ATTACK INSTEAD.
|
||||
50 GOOD TRY, BUT THAT IS AN OLD WORN-OUT MAGIC WORD.
|
||||
51 I KNOW OF PLACES, ACTIONS, AND THINGS. MOST OF MY VOCABULARY
|
||||
51 DESCRIBES PLACES AND IS USED TO MOVE YOU THERE. TO MOVE TRY
|
||||
51 WORDS LIKE FOREST, BUILDING, DOWNSTREAM, ENTER, EAST, WEST
|
||||
51 NORTH, SOUTH, UP, OR DOWN. I KNOW ABOUT A FEW SPECIAL OBJECTS,
|
||||
51 LIKE A BLACK ROD HIDDEN IN THE CAVE. THESE OBJECTS CAN BE
|
||||
51 MANIPULATED USING ONE OF THE ACTION WORDS THAT I KNOW. USUALLY
|
||||
51 YOU WILL NEED TO GIVE BOTH THE OBJECT AND ACTION WORDS
|
||||
51 (IN EITHER ORDER), BUT SOMETIMES I CAN INFER THE OBJECT FROM
|
||||
51 THE VERB ALONE. THE OBJECTS HAVE SIDE EFFECTS - FOR
|
||||
51 INSTANCE, THE ROD SCARES THE BIRD.
|
||||
51 USUALLY PEOPLE HAVING TROUBLE MOVING JUST NEED TO TRY A FEW
|
||||
51 MORE WORDS. USUALLY PEOPLE TRYING TO MANIPULATE AN
|
||||
51 OBJECT ARE ATTEMPTING SOMETHING BEYOND THEIR (OR MY!)
|
||||
51 CAPABILITIES AND SHOULD TRY A COMPLETELY DIFFERENT TACK.
|
||||
51 TO SPEED THE GAME YOU CAN SOMETIMES MOVE LONG DISTANCES
|
||||
51 WITH A SINGLE WORD. FOR EXAMPLE, 'BUILDING' USUALLY GETS
|
||||
51 YOU TO THE BUILDING FROM ANYWHERE ABOVE GROUND EXCEPT WHEN
|
||||
51 LOST IN THE FOREST. ALSO, NOTE THAT CAVE PASSAGES TURN A
|
||||
51 LOT, AND THAT LEAVING A ROOM TO THE NORTH DOES NOT GUARANTEE
|
||||
51 ENTERING THE NEXT FROM THE SOUTH. GOOD LUCK!
|
||||
52 IT MISSES!
|
||||
53 IT GETS YOU!
|
||||
54 OK
|
||||
55 YOU CAN'T UNLOCK THE KEYS.
|
||||
56 YOU HAVE CRAWLED AROUND IN SOME LITTLE HOLES AND WOUND UP
|
||||
56 BACK IN THE MAIN PASSAGE.
|
||||
57 I DON'T KNOW WHERE THE CAVE IS, BUT HEREABOUTS NO STREAM
|
||||
57 CAN RUN ON THE SURFACE FOR LONG. I WOULD TRY THE STREAM.
|
||||
58 I NEED MORE DETAILED INSTRUCTIONS TO DO THAT.
|
||||
59 I CAN ONLY TELL YOU WHAT YOU SEE AS YOU MOVE ABOUT
|
||||
59 AND MANIPULATE THINGS. I CANNOT TELL YOU WHERE REMOTE THINGS
|
||||
59 ARE.
|
||||
60 I DON'T KNOW THAT WORD.
|
||||
61 WHAT?
|
||||
62 ARE YOU TRYING TO GET INTO THE CAVE?
|
||||
63 THE GRATE IS VERY SOLID AND HAS A HARDENED STEEL LOCK. YOU
|
||||
63 CANNOT ENTER WITHOUT A KEY, AND THERE ARE NO KEYS NEARBY.
|
||||
63 I WOULD RECOMMEND LOOKING ELSEWHERE FOR THE KEYS.
|
||||
64 THE TREES OF THE FOREST ARE LARGE HARDWOOD OAK AND MAPLE,
|
||||
64 WITH AN OCCASIONAL GROVE OF PINE OR SPRUCE. THERE IS QUITE
|
||||
64 A BIT OF UNDERGROWTH, LARGELY BIRCH AND ASH SAPLINGS PLUS
|
||||
64 NONDESCRITPT BUSHES OF VARIOUS SORTS. THIS TIME OF YEAR
|
||||
64 VISIBILITY IS QUITE RESTRICTED BY ALL THE LEAVES, BUT TRAVEL
|
||||
64 IS QUITE EASY IF YOU DETOUR AROUND THE SPRUCE AND BERRY BUSHES.
|
||||
65 WELCOME TO ADVENTURE!! WOULD YOU LIKE INSTRUCTIONS?
|
||||
66 DIGGING WITHOUT A SHOVEL IS QUITE IMPRACTICAL: EVEN WITH A
|
||||
66 SHOVEL PROGRESS IS UNLIKELY.
|
||||
67 BLASTING REQUIRES DYNAMITE.
|
||||
68 I'M AS CONFUSED AS YOU ARE.
|
||||
69 MIST IS A WHITE VAPOR, USUALLY WATER, SEEN FROM TIME TO TIME
|
||||
69 IN CAVERNS. IT CAN BE FOUND ANYWHERE BUT IS FREQUENTLY A SIGN
|
||||
69 OF A DEEP PIT LEADING DOWN TO WATER.
|
||||
70 YOUR FEET ARE NOW WET.
|
||||
71 THERE IS NOTHING HERE TO EAT.
|
||||
72 EATEN!
|
||||
73 THERE IS NO DRINKABLE WATER HERE.
|
||||
74 THE BOTTLE OF WATER IS NOW EMPTY.
|
||||
75 RUBBING THE ELECTRIC LAMP IS NOT PARTICULARLY REWARDING.
|
||||
75 ANYWAY, NOTHING EXCITING HAPPENS.
|
||||
76 PECULIAR. NOTHING UNEXPECTED HAPPENS.
|
||||
77 YOUR BOTTLE IS EMPTY AND THE GROUND IS WET.
|
||||
78 YOU CAN'T POUR THAT.
|
||||
79 WATCH IT!
|
||||
80 WHICH WAY?
|
||||
-1
|
||||
0
|
||||
727
src/games/advent.f4
Normal file
727
src/games/advent.f4
Normal file
@@ -0,0 +1,727 @@
|
||||
C ADVENTURES
|
||||
IMPLICIT INTEGER(A-Z)
|
||||
REAL RAN
|
||||
COMMON RTEXT,LLINE
|
||||
DIMENSION IOBJ(300),ICHAIN(100),IPLACE(100)
|
||||
1 ,IFIXED(100),COND(300),PROP(100),ABB(300),LLINE(1000,22)
|
||||
2 ,LTEXT(300),STEXT(300),KEY(300),DEFAULT(300),TRAVEL(1000)
|
||||
3 ,TK(25),KTAB(1000),ATAB(1000),BTEXT(200),DSEEN(10)
|
||||
4 ,DLOC(10),ODLOC(10),DTRAV(20),RTEXT(100),JSPKT(100)
|
||||
5 ,IPLT(100),IFIXT(100),QUIP(100)
|
||||
|
||||
C READ THE PARAMETERS
|
||||
|
||||
IF(SETUP.NE.0) GOTO 1
|
||||
SETUP=1
|
||||
KEYS=1
|
||||
LAMP=2
|
||||
GRATE=3
|
||||
ROD=5
|
||||
BIRD=7
|
||||
NUGGET=10
|
||||
SNAKE=11
|
||||
FOOD=19
|
||||
WATER=20
|
||||
AXE=21
|
||||
DATA(QUIP(I),I=1,9)/50,51,64,66,67,68,69,49,79/
|
||||
DATA(JSPKT(I),I=1,16)/24,29,0,31,0,31,38,38,42,42,43,46,77,71
|
||||
1 ,73,75/
|
||||
DATA(IPLT(I),I=1,20)/3,3,8,10,11,14,13,9,15,18,19,17,27,28,29
|
||||
1 ,30,0,0,3,3/
|
||||
DATA(IFIXT(I),I=1,20)/0,0,1,0,0,1,0,1,1,0,1,1,0,0,0,0,0,0,0,0/
|
||||
DATA(DTRAV(I),I=1,15)/36,28,19,30,62,60,41,27,17,15,19,28,36
|
||||
1 ,300,300/
|
||||
DO 1001 I=1,300
|
||||
STEXT(I)=0
|
||||
IF(I.LE.200) BTEXT(I)=0
|
||||
IF(I.LE.100)RTEXT(I)=0
|
||||
1001 LTEXT(I)=0
|
||||
I=1
|
||||
CALL IFILE(1,'TEXT')
|
||||
1002 READ(1,1003) IKIND
|
||||
1003 FORMAT(G)
|
||||
GOTO(1100,1004,1004,1013,1020,1004,1004)(IKIND+1)
|
||||
1004 READ(1,1005)JKIND,(LLINE(I,J),J=3,22)
|
||||
1005 FORMAT(1G,20A5)
|
||||
IF(JKIND.EQ.-1) GOTO 1002
|
||||
DO 1006 K=1,20
|
||||
KK=K
|
||||
IF(LLINE(I,21-K).NE.' ') GOTO 1007
|
||||
1006 CONTINUE
|
||||
STOP
|
||||
1007 LLINE(I,2)=20-KK+1
|
||||
LLINE(I,1)=0
|
||||
IF(IKIND.EQ.6)GOTO 1023
|
||||
IF(IKIND.EQ.5)GOTO 1011
|
||||
IF(IKIND.EQ.1) GOTO 1008
|
||||
IF(STEXT(JKIND).NE.0) GOTO 1009
|
||||
STEXT(JKIND)=I
|
||||
GOTO 1010
|
||||
|
||||
1008 IF(LTEXT(JKIND).NE.0) GOTO 1009
|
||||
LTEXT(JKIND)=I
|
||||
GOTO 1010
|
||||
1009 LLINE(I-1,1)=I
|
||||
1010 I=I+1
|
||||
IF(I.NE.1000)GOTO 1004
|
||||
PAUSE 'TOO MANY LINES'
|
||||
|
||||
1011 IF(JKIND.LT.200)GOTO 1012
|
||||
IF(BTEXT(JKIND-100).NE.0)GOTO 1009
|
||||
BTEXT(JKIND-100)=I
|
||||
BTEXT(JKIND-200)=I
|
||||
GOTO 1010
|
||||
1012 IF(BTEXT(JKIND).NE.0)GOTO 1009
|
||||
BTEXT(JKIND)=I
|
||||
GOTO 1010
|
||||
|
||||
1023 IF(RTEXT(JKIND).NE.0) GOTO 1009
|
||||
RTEXT(JKIND)=I
|
||||
GOTO 1010
|
||||
|
||||
1013 I=1
|
||||
1014 READ(1,1015)JKIND,LKIND,(TK(L),L=1,10)
|
||||
1015 FORMAT(12G)
|
||||
IF(JKIND.EQ.-1) GOTO 1002
|
||||
IF(KEY(JKIND).NE.0) GOTO 1016
|
||||
KEY(JKIND)=I
|
||||
GOTO 1017
|
||||
1016 TRAVEL(I-1)=-TRAVEL(I-1)
|
||||
1017 DO 1018 L=1,10
|
||||
IF(TK(L).EQ.0) GOTO 1019
|
||||
TRAVEL(I)=LKIND*1024+TK(L)
|
||||
I=I+1
|
||||
IF(I.EQ.1000) STOP
|
||||
1018 CONTINUE
|
||||
1019 TRAVEL(I-1)=-TRAVEL(I-1)
|
||||
GOTO 1014
|
||||
|
||||
1020 DO 1022 IU=1,1000
|
||||
READ(1,1021) KTAB(IU),ATAB(IU)
|
||||
1021 FORMAT(G,A5)
|
||||
IF(KTAB(IU).EQ.-1)GOTO 1002
|
||||
1022 CONTINUE
|
||||
PAUSE 'TOO MANY WORDS'
|
||||
|
||||
|
||||
C TRAVEL = NEG IF LAST THIS SOURCE + DEST*1024 + KEYWORD
|
||||
|
||||
C COND = 1 IF LIGHT, 2 IF DON T ASK QUESTION
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
1100 DO 1101 I=1,100
|
||||
IPLACE(I)=IPLT(I)
|
||||
IFIXED(I)=IFIXT(I)
|
||||
1101 ICHAIN(I)=0
|
||||
|
||||
DO 1102 I=1,300
|
||||
COND(I)=0
|
||||
ABB(I)=0
|
||||
1102 IOBJ(I)=0
|
||||
DO 1103 I=1,10
|
||||
1103 COND(I)=1
|
||||
COND(16)=2
|
||||
COND(20)=2
|
||||
COND(21)=2
|
||||
COND(22)=2
|
||||
COND(23)=2
|
||||
COND(24)=2
|
||||
COND(25)=2
|
||||
COND(26)=2
|
||||
COND(31)=2
|
||||
COND(32)=2
|
||||
COND(79)=2
|
||||
|
||||
DO 1107 I=1,100
|
||||
KTEM=IPLACE(I)
|
||||
IF(KTEM.EQ.0)GOTO 1107
|
||||
IF(IOBJ(KTEM).NE.0) GOTO 1104
|
||||
IOBJ(KTEM)=I
|
||||
GO TO 1107
|
||||
1104 KTEM=IOBJ(KTEM)
|
||||
1105 IF(ICHAIN(KTEM).NE.0) GOTO 1106
|
||||
ICHAIN(KTEM)=I
|
||||
GOTO 1107
|
||||
1106 KTEM=ICHAIN(KTEM)
|
||||
GOTO 1105
|
||||
1107 CONTINUE
|
||||
IDWARF=0
|
||||
IFIRST=1
|
||||
IWEST=0
|
||||
ILONG=1
|
||||
IDETAL=0
|
||||
PAUSE 'INIT DONE'
|
||||
|
||||
|
||||
|
||||
1 CALL YES(65,1,0,YEA)
|
||||
L=1
|
||||
LOC=1
|
||||
2 DO 73 I=1,3
|
||||
IF(ODLOC(I).NE.L.OR.DSEEN(I).EQ.0)GOTO 73
|
||||
L=LOC
|
||||
CALL SPEAK(2)
|
||||
GOTO 74
|
||||
73 CONTINUE
|
||||
74 LOC=L
|
||||
|
||||
C DWARF STUFF
|
||||
|
||||
IF(IDWARF.NE.0) GOTO 60
|
||||
IF(LOC.EQ.15) IDWARF=1
|
||||
GOTO 71
|
||||
60 IF(IDWARF.NE.1)GOTO 63
|
||||
IF(RAN(QZ).GT.0.05) GOTO 71
|
||||
IDWARF=2
|
||||
DO 61 I=1,3
|
||||
DLOC(I)=0
|
||||
ODLOC(I)=0
|
||||
61 DSEEN(I)=0
|
||||
CALL SPEAK(3)
|
||||
ICHAIN(AXE)=IOBJ(LOC)
|
||||
IOBJ(LOC)=AXE
|
||||
IPLACE(AXE)=LOC
|
||||
GOTO 71
|
||||
|
||||
63 IDWARF=IDWARF+1
|
||||
ATTACK=0
|
||||
DTOT=0
|
||||
STICK=0
|
||||
DO 66 I=1,3
|
||||
IF(2*I+IDWARF.LT.8)GOTO 66
|
||||
IF(2*I+IDWARF.GT.23.AND.DSEEN(I).EQ.0)GOTO 66
|
||||
ODLOC(I)=DLOC(I)
|
||||
IF(DSEEN(I).NE.0.AND.LOC.GT.14)GOTO 65
|
||||
DLOC(I)=DTRAV(I*2+IDWARF-8)
|
||||
DSEEN(I)=0
|
||||
IF(DLOC(I).NE.LOC.AND.ODLOC(I).NE.LOC) GOTO 66
|
||||
65 DSEEN(I)=1
|
||||
DLOC(I)=LOC
|
||||
DTOT=DTOT+1
|
||||
IF(ODLOC(I).NE.DLOC(I)) GOTO 66
|
||||
ATTACK=ATTACK+1
|
||||
IF(RAN(QZ).LT.0.1) STICK=STICK+1
|
||||
66 CONTINUE
|
||||
IF(DTOT.EQ.0) GOTO 71
|
||||
IF(DTOT.EQ.1)GOTO 75
|
||||
TYPE 67,DTOT
|
||||
67 FORMAT(' THERE ARE ',I2,' THREATENING LITTLE DWARVES IN THE
|
||||
1 ROOM WITH YOU.',/)
|
||||
GOTO 77
|
||||
75 CALL SPEAK(4)
|
||||
77 IF(ATTACK.EQ.0)GOTO 71
|
||||
IF(ATTACK.EQ.1)GOTO 79
|
||||
TYPE 78,ATTACK
|
||||
78 FORMAT(' ',I2,' OF THEM THROW KNIVES AT YOU!',/)
|
||||
GOTO 81
|
||||
79 CALL SPEAK(5)
|
||||
CALL SPEAK(52+STICK)
|
||||
GOTO(71,83)(STICK+1)
|
||||
|
||||
81 IF(STICK.EQ.0) GOTO 69
|
||||
IF(STICK.EQ.1)GOTO 82
|
||||
TYPE 68,STICK
|
||||
68 FORMAT(' ',I2,' OF THEM GET YOU.',/)
|
||||
GOTO 83
|
||||
82 CALL SPEAK(6)
|
||||
83 PAUSE 'GAMES OVER'
|
||||
GOTO 71
|
||||
69 CALL SPEAK(7)
|
||||
|
||||
C PLACE DESCRIPTOR
|
||||
|
||||
|
||||
|
||||
71 KK=STEXT(L)
|
||||
IF(ABB(L).EQ.0.OR.KK.EQ.0)KK=LTEXT(L)
|
||||
IF(KK.EQ.0) GOTO 7
|
||||
4 TYPE 5,(LLINE(KK,JJ),JJ=3,LLINE(KK,2))
|
||||
5 FORMAT(20A5)
|
||||
KK=KK+1
|
||||
IF(LLINE(KK-1,1).NE.0) GOTO 4
|
||||
TYPE 6
|
||||
6 FORMAT(/)
|
||||
7 IF(COND(L).EQ.2)GOTO 8
|
||||
IF(LOC.EQ.33.AND.RAN(QZ).LT.0.25)CALL SPEAK(8)
|
||||
J=L
|
||||
GOTO 2000
|
||||
|
||||
C GO GET A NEW LOCATION
|
||||
|
||||
8 KK=KEY(LOC)
|
||||
IF(KK.EQ.0)GOTO 19
|
||||
IF(K.EQ.57)GOTO 32
|
||||
IF(K.EQ.67)GOTO 40
|
||||
IF(K.EQ.8)GOTO 12
|
||||
LOLD=L
|
||||
9 LL=TRAVEL(KK)
|
||||
IF(LL.LT.0) LL=-LL
|
||||
IF(1.EQ.MOD(LL,1024))GOTO 10
|
||||
IF(K.EQ.MOD(LL,1024))GOTO 10
|
||||
IF(TRAVEL(KK).LT.0)GOTO 11
|
||||
KK=KK+1
|
||||
GOTO 9
|
||||
12 TEMP=LOLD
|
||||
LOLD=L
|
||||
L=TEMP
|
||||
GOTO 21
|
||||
10 L=LL/1024
|
||||
GOTO 21
|
||||
11 JSPK=12
|
||||
IF(K.GE.43.AND.K.LE.46)JSPK=9
|
||||
IF(K.EQ.29.OR.K.EQ.30)JSPK=9
|
||||
IF(K.EQ.7.OR.K.EQ.8.OR.K.EQ.36.OR.K.EQ.37.OR.K.EQ.68)
|
||||
1 JSPK=10
|
||||
IF(K.EQ.11.OR.K.EQ.19)JSPK=11
|
||||
IF(JVERB.EQ.1)JSPK=59
|
||||
IF(K.EQ.48)JSPK=42
|
||||
IF(K.EQ.17)JSPK=80
|
||||
CALL SPEAK(JSPK)
|
||||
GOTO 2
|
||||
19 CALL SPEAK(13)
|
||||
L=LOC
|
||||
IF(IFIRST.EQ.0) CALL SPEAK(14)
|
||||
21 IF(L.LT.300)GOTO 2
|
||||
IL=L-300+1
|
||||
GOTO(22,23,24,25,26,31,27,28,29,30,33,34,36,37)IL
|
||||
GOTO 2
|
||||
|
||||
22 L=6
|
||||
IF(RAN(QZ).GT.0.5) L=5
|
||||
GOTO 2
|
||||
23 L=23
|
||||
IF(PROP(GRATE).NE.0) L=9
|
||||
GOTO 2
|
||||
24 L=9
|
||||
IF(PROP(GRATE).NE.0)L=8
|
||||
GOTO 2
|
||||
25 L=20
|
||||
IF(IPLACE(NUGGET).NE.-1)L=15
|
||||
GOTO 2
|
||||
26 L=22
|
||||
IF(IPLACE(NUGGET).NE.-1) L=14
|
||||
GOTO 2
|
||||
27 L=27
|
||||
IF(PROP(12).EQ.0)L=31
|
||||
GOTO 2
|
||||
28 L=28
|
||||
IF(PROP(SNAKE).EQ.0)L=32
|
||||
GOTO 2
|
||||
29 L=29
|
||||
IF(PROP(SNAKE).EQ.0) L=32
|
||||
GOTO 2
|
||||
30 L=30
|
||||
IF(PROP(SNAKE).EQ.0) L=32
|
||||
GOTO 2
|
||||
31 PAUSE 'GAME IS OVER'
|
||||
GOTO 1100
|
||||
32 IF(IDETAL.LT.3)CALL SPEAK(15)
|
||||
IDETAL=IDETAL+1
|
||||
L=LOC
|
||||
ABB(L)=0
|
||||
GOTO 2
|
||||
33 L=8
|
||||
IF(PROP(GRATE).EQ.0) L=9
|
||||
GOTO 2
|
||||
34 IF(RAN(QZ).GT.0.2)GOTO 35
|
||||
L=68
|
||||
GOTO 2
|
||||
35 L=65
|
||||
38 CALL SPEAK(56)
|
||||
GOTO 2
|
||||
36 IF(RAN(QZ).GT.0.2)GOTO 35
|
||||
L=39
|
||||
IF(RAN(QZ).GT.0.5)L=70
|
||||
GOTO 2
|
||||
37 L=66
|
||||
IF(RAN(QZ).GT.0.4)GOTO 38
|
||||
L=71
|
||||
IF(RAN(QZ).GT.0.25)L=72
|
||||
GOTO 2
|
||||
39 L=66
|
||||
IF(RAN(QZ).GT.0.2)GOTO 38
|
||||
L=77
|
||||
GOTO 2
|
||||
40 IF(LOC.LT.8)CALL SPEAK(57)
|
||||
IF(LOC.GE.8)CALL SPEAK(58)
|
||||
L=LOC
|
||||
GOTO 2
|
||||
|
||||
|
||||
|
||||
C DO NEXT INPUT
|
||||
|
||||
|
||||
2000 LTRUBL=0
|
||||
LOC=J
|
||||
ABB(J)=MOD((ABB(J)+1),5)
|
||||
IDARK=0
|
||||
IF(MOD(COND(J),2).EQ.1) GOTO 2003
|
||||
IF((IPLACE(2).NE.J).AND.(IPLACE(2).NE.-1)) GOTO 2001
|
||||
IF(PROP(2).EQ.1)GOTO 2003
|
||||
2001 CALL SPEAK(16)
|
||||
IDARK=1
|
||||
|
||||
|
||||
2003 I=IOBJ(J)
|
||||
2004 IF(I.EQ.0) GOTO 2011
|
||||
IF(((I.EQ.6).OR.(I.EQ.9)).AND.(IPLACE(10).EQ.-1))GOTO 2008
|
||||
ILK=I
|
||||
IF(PROP(I).NE.0) ILK=I+100
|
||||
KK=BTEXT(ILK)
|
||||
IF(KK.EQ.0) GOTO 2008
|
||||
2005 TYPE 2006,(LLINE(KK,JJ),JJ=3,LLINE(KK,2))
|
||||
2006 FORMAT(20A5)
|
||||
KK=KK+1
|
||||
IF(LLINE(KK-1,1).NE.0) GOTO 2005
|
||||
TYPE 2007
|
||||
2007 FORMAT(/)
|
||||
2008 I=ICHAIN(I)
|
||||
GOTO 2004
|
||||
|
||||
|
||||
|
||||
C K=1 MEANS ANY INPUT
|
||||
|
||||
|
||||
2012 A=B
|
||||
JTWO=0
|
||||
GOTO 2021
|
||||
|
||||
2010 JSPK=QUIP(K)
|
||||
GOTO 5200
|
||||
|
||||
2009 JSPK=54
|
||||
5200 CALL SPEAK(JSPK)
|
||||
|
||||
2011 JVERB=0
|
||||
JOBJ=0
|
||||
JTWO=0
|
||||
|
||||
2020 CALL GETIN(JTWO,A,TWOWD,B)
|
||||
K=70
|
||||
IF(A.EQ.'ENTER'.AND.(B.EQ.'STREAM'.OR.B.EQ.'WATER'))GOTO 2010
|
||||
IF(A.EQ.'ENTER'.AND.JTWO.NE.0)GOTO 2012
|
||||
2021 IF(A.NE.'WEST')GOTO 2023
|
||||
IWEST=IWEST+1
|
||||
IF(IWEST.NE.10)GOTO 2023
|
||||
CALL SPEAK(17)
|
||||
2023 DO 2024 I=1,1000
|
||||
IF(KTAB(I).EQ.-1)GOTO 3000
|
||||
IF(ATAB(I).EQ.A)GOTO 2025
|
||||
2024 CONTINUE
|
||||
PAUSE 'ERROR 6'
|
||||
2025 K=MOD(KTAB(I),1000)
|
||||
KQ=KTAB(I)/1000+1
|
||||
GOTO (5014,5000,2026,2010)KQ
|
||||
PAUSE 'NO NO'
|
||||
2026 JVERB=K
|
||||
JSPK=JSPKT(JVERB)
|
||||
IF(JTWO.NE.0)GOTO 2028
|
||||
IF(JOBJ.EQ.0)GOTO 2036
|
||||
2027 GOTO(9000,5066,3000,5031,2009,5031,9404,9406,5081,5200,
|
||||
1 5200,5300,5506,5502,5504,5505)JVERB
|
||||
PAUSE 'ERROR 5'
|
||||
|
||||
|
||||
2028 A=TWOWD
|
||||
B=' '
|
||||
JTWO=0
|
||||
GOTO 2023
|
||||
|
||||
3000 JSPK=60
|
||||
IF(RAN(QZ).GT.0.8)JSPK=61
|
||||
IF(RAN(QZ).GT.0.8)JSPK=13
|
||||
CALL SPEAK(JSPK)
|
||||
LTRUBL=LTRUBL+1
|
||||
IF(LTRUBL.NE.3)GOTO 2020
|
||||
IF(J.NE.13.OR.IPLACE(7).NE.13.OR.IPLACE(5).NE.-1)GOTO 2032
|
||||
CALL YES(18,19,54,YEA)
|
||||
GOTO 2033
|
||||
2032 IF(J.NE.19.OR.PROP(11).NE.0.OR.IPLACE(7).EQ.-1)GOTO 2034
|
||||
CALL YES(20,21,54,YEA)
|
||||
GOTO 2033
|
||||
2034 IF(J.NE.8.OR.PROP(GRATE).NE.0)GOTO 2035
|
||||
CALL YES(62,63,54,YEA)
|
||||
2033 IF(YEA.EQ.0)GOTO 2011
|
||||
GOTO 2020
|
||||
2035 IF(IPLACE(5).NE.J.AND.IPLACE(5).NE.-1)GOTO 2020
|
||||
IF(JOBJ.NE.5)GOTO 2020
|
||||
CALL SPEAK(22)
|
||||
GOTO 2020
|
||||
|
||||
|
||||
2036 GOTO(2037,5062,5062,9403,2009,9403,9404,9406,5062,5062,
|
||||
1 5200,5300,5062,5062,5062,5062)JVERB
|
||||
PAUSE 'OOPS'
|
||||
2037 IF((IOBJ(J).EQ.0).OR.(ICHAIN(IOBJ(J)).NE.0)) GOTO 5062
|
||||
DO 5312 I=1,3
|
||||
IF(DSEEN(I).NE.0)GOTO 5062
|
||||
5312 CONTINUE
|
||||
JOBJ=IOBJ(J)
|
||||
GOTO 2027
|
||||
5062 IF(B.NE.' ')GOTO 5333
|
||||
TYPE 5063,A
|
||||
5063 FORMAT(' ',A5,' WHAT?',/)
|
||||
GOTO 2020
|
||||
|
||||
5333 TYPE 5334,A,B
|
||||
5334 FORMAT(' ',2A5,' WHAT?',/)
|
||||
GOTO 2020
|
||||
5014 IF(IDARK.EQ.0) GOTO 8
|
||||
|
||||
IF(RAN(QZ).GT.0.25) GOTO 8
|
||||
5017 CALL SPEAK(23)
|
||||
PAUSE 'GAME IS OVER'
|
||||
GOTO 2011
|
||||
|
||||
|
||||
|
||||
5000 JOBJ=K
|
||||
IF(JTWO.NE.0)GOTO 2028
|
||||
IF((J.EQ.IPLACE(K)).OR.(IPLACE(K).EQ.-1)) GOTO 5004
|
||||
IF(K.NE.GRATE)GOTO 502
|
||||
IF((J.EQ.1).OR.(J.EQ.4).OR.(J.EQ.7))GOTO 5098
|
||||
IF((J.GT.9).AND.(J.LT.15))GOTO 5097
|
||||
502 IF(B.NE.' ')GOTO 5316
|
||||
TYPE 5005,A
|
||||
5005 FORMAT(' I SEE NO ',A5,' HERE.',/)
|
||||
GOTO 2011
|
||||
5316 TYPE 5317,A,B
|
||||
5317 FORMAT(' I SEE NO ',2A5,' HERE.'/)
|
||||
GOTO 2011
|
||||
5098 K=49
|
||||
GOTO 5014
|
||||
5097 K=50
|
||||
GOTO 5014
|
||||
5004 JOBJ=K
|
||||
IF(JVERB.NE.0)GOTO 2027
|
||||
|
||||
|
||||
5064 IF(B.NE.' ')GOTO 5314
|
||||
TYPE 5001,A
|
||||
5001 FORMAT(' WHAT DO YOU WANT TO DO WITH THE ',A5,'?',/)
|
||||
GOTO 2020
|
||||
5314 TYPE 5315,A,B
|
||||
5315 FORMAT(' WHAT DO YOU WANT TO DO WITH THE ',2A5,'?',/)
|
||||
GOTO 2020
|
||||
|
||||
C CARRY
|
||||
|
||||
9000 IF(JOBJ.EQ.18)GOTO 2009
|
||||
IF(IPLACE(JOBJ).NE.J) GOTO 5200
|
||||
9001 IF(IFIXED(JOBJ).EQ.0)GOTO 9002
|
||||
CALL SPEAK(25)
|
||||
GOTO 2011
|
||||
9002 IF(JOBJ.NE.BIRD)GOTO 9004
|
||||
IF(IPLACE(ROD).NE.-1)GOTO 9003
|
||||
CALL SPEAK(26)
|
||||
GOTO 2011
|
||||
9003 IF((IPLACE(4).EQ.-1).OR.(IPLACE(4).EQ.J)) GOTO 9004
|
||||
CALL SPEAK(27)
|
||||
GOTO 2011
|
||||
9004 IPLACE(JOBJ)=-1
|
||||
9005 IF(IOBJ(J).NE.JOBJ) GOTO 9006
|
||||
IOBJ(J)=ICHAIN(JOBJ)
|
||||
GOTO 2009
|
||||
9006 ITEMP=IOBJ(J)
|
||||
9007 IF(ICHAIN(ITEMP).EQ.(JOBJ)) GOTO 9008
|
||||
ITEMP=ICHAIN(ITEMP)
|
||||
GOTO 9007
|
||||
9008 ICHAIN(ITEMP)=ICHAIN(JOBJ)
|
||||
GOTO 2009
|
||||
|
||||
|
||||
C LOCK, UNLOCK, NO OBJECT YET
|
||||
|
||||
9403 IF((J.EQ.8).OR.(J.EQ.9))GOTO 5105
|
||||
5032 CALL SPEAK(28)
|
||||
GOTO 2011
|
||||
5105 JOBJ=GRATE
|
||||
GOTO 2027
|
||||
|
||||
C DISCARD OBJECT
|
||||
|
||||
5066 IF(JOBJ.EQ.18)GOTO 2009
|
||||
IF(IPLACE(JOBJ).NE.-1) GOTO 5200
|
||||
5012 IF((JOBJ.NE.BIRD).OR.(J.NE.19).OR.(PROP(11).EQ.1))GOTO 9401
|
||||
CALL SPEAK(30)
|
||||
PROP(11)=1
|
||||
5160 ICHAIN(JOBJ)=IOBJ(J)
|
||||
IOBJ(J)=JOBJ
|
||||
IPLACE(JOBJ)=J
|
||||
GOTO 2011
|
||||
|
||||
9401 CALL SPEAK(54)
|
||||
GOTO 5160
|
||||
|
||||
C LOCK,UNLOCK OBJECT
|
||||
|
||||
5031 IF(IPLACE(KEYS).NE.-1.AND.IPLACE(KEYS).NE.J)GOTO 5200
|
||||
IF(JOBJ.NE.4)GOTO 5102
|
||||
CALL SPEAK(32)
|
||||
GOTO 2011
|
||||
5102 IF(JOBJ.NE.KEYS)GOTO 5104
|
||||
CALL SPEAK(55)
|
||||
GOTO 2011
|
||||
5104 IF(JOBJ.EQ.GRATE)GOTO 5107
|
||||
CALL SPEAK(33)
|
||||
GOTO 2011
|
||||
5107 IF(JVERB.EQ.4) GOTO 5033
|
||||
IF(PROP(GRATE).NE.0)GOTO 5034
|
||||
CALL SPEAK(34)
|
||||
GOTO 2011
|
||||
5034 CALL SPEAK(35)
|
||||
PROP(GRATE)=0
|
||||
PROP(8)=0
|
||||
GOTO 2011
|
||||
5033 IF(PROP(GRATE).EQ.0)GOTO 5109
|
||||
CALL SPEAK(36)
|
||||
GOTO 2011
|
||||
5109 CALL SPEAK(37)
|
||||
PROP(GRATE)=1
|
||||
PROP(8)=1
|
||||
GOTO 2011
|
||||
|
||||
|
||||
|
||||
C LIGHT LAMP
|
||||
|
||||
9404 IF((IPLACE(2).NE.J).AND.(IPLACE(2).NE.-1))GOTO 5200
|
||||
PROP(2)=1
|
||||
IDARK=0
|
||||
CALL SPEAK(39)
|
||||
GOTO 2011
|
||||
|
||||
C LAMP OFF
|
||||
|
||||
9406 IF((IPLACE(2).NE.J).AND.(IPLACE(2).NE.-1)) GOTO 5200
|
||||
PROP(2)=0
|
||||
CALL SPEAK(40)
|
||||
GOTO 2011
|
||||
|
||||
C STRIKE
|
||||
|
||||
5081 IF(JOBJ.NE.12)GOTO 5200
|
||||
PROP(12)=1
|
||||
GOTO 2003
|
||||
|
||||
C ATTACK
|
||||
|
||||
5300 DO 5313 ID=1,3
|
||||
IID=ID
|
||||
IF(DSEEN(ID).NE.0)GOTO 5307
|
||||
5313 CONTINUE
|
||||
IF(JOBJ.EQ.0)GOTO 5062
|
||||
IF(JOBJ.EQ.SNAKE) GOTO 5200
|
||||
IF(JOBJ.EQ.BIRD) GOTO 5302
|
||||
CALL SPEAK(44)
|
||||
GOTO 2011
|
||||
5302 CALL SPEAK(45)
|
||||
IPLACE(JOBJ)=300
|
||||
GOTO 9005
|
||||
|
||||
5307 IF(RAN(QZ).GT.0.4) GOTO 5309
|
||||
DSEEN(IID)=0
|
||||
ODLOC(IID)=0
|
||||
DLOC(IID)=0
|
||||
CALL SPEAK(47)
|
||||
GOTO 5311
|
||||
5309 CALL SPEAK(48)
|
||||
5311 K=21
|
||||
GOTO 5014
|
||||
|
||||
C EAT
|
||||
|
||||
5502 IF((IPLACE(FOOD).NE.J.AND.IPLACE(FOOD).NE.-1).OR.PROP(FOOD).NE.0
|
||||
1 .OR.JOBJ.NE.FOOD)GOTO 5200
|
||||
PROP(FOOD)=1
|
||||
5501 JSPK=72
|
||||
GOTO 5200
|
||||
|
||||
C DRINK
|
||||
|
||||
5504 IF((IPLACE(WATER).NE.J.AND.IPLACE(WATER).NE.-1)
|
||||
1 .OR.PROP(WATER).NE.0.OR.JOBJ.NE.WATER) GOTO 5200
|
||||
PROP(WATER)=1
|
||||
JSPK=74
|
||||
GOTO 5200
|
||||
|
||||
C RUB
|
||||
|
||||
5505 IF(JOBJ.NE.LAMP)JSPK=76
|
||||
GOTO 5200
|
||||
|
||||
C POUR
|
||||
|
||||
5506 IF(JOBJ.NE.WATER)JSPK=78
|
||||
PROP(WATER)=1
|
||||
GOTO 5200
|
||||
|
||||
|
||||
|
||||
END
|
||||
|
||||
|
||||
SUBROUTINE SPEAK(IT)
|
||||
IMPLICIT INTEGER(A-Z)
|
||||
COMMON RTEXT,LLINE
|
||||
DIMENSION RTEXT(100),LLINE(1000,22)
|
||||
|
||||
KKT=RTEXT(IT)
|
||||
IF(KKT.EQ.0)RETURN
|
||||
999 TYPE 998, (LLINE(KKT,JJT),JJT=3,LLINE(KKT,2))
|
||||
998 FORMAT(20A5)
|
||||
KKT=KKT+1
|
||||
IF(LLINE(KKT-1,1).NE.0)GOTO 999
|
||||
997 TYPE 996
|
||||
996 FORMAT(/)
|
||||
RETURN
|
||||
END
|
||||
|
||||
|
||||
SUBROUTINE GETIN(TWOW,B,C,D)
|
||||
IMPLICIT INTEGER(A-Z)
|
||||
DIMENSION A(5),M2(6)
|
||||
DATA M2/"4000000000,"20000000,"100000,"400,"2,0/
|
||||
6 ACCEPT 1,(A(I), I=1,4)
|
||||
1 FORMAT(4A5)
|
||||
TWOW=0
|
||||
S=0
|
||||
B=A(1)
|
||||
DO 2 J=1,4
|
||||
DO 2 K=1,5
|
||||
MASK1="774000000000
|
||||
IF(K.NE.1) MASK1="177*M2(K)
|
||||
IF(((A(J).XOR."201004020100).AND.MASK1).EQ.0)GOTO 3
|
||||
IF(S.EQ.0) GOTO 2
|
||||
TWOW=1
|
||||
CALL SHIFT(A(J),7*(K-1),XX)
|
||||
CALL SHIFT(A(J+1),7*(I-6),YY)
|
||||
MASK=-M2(6-K)
|
||||
C=(XX.AND.MASK)+(YY.AND.(-2-MASK))
|
||||
GOTO 4
|
||||
3 IF(S.EQ.1) GOTO 2
|
||||
S=1
|
||||
IF(J.EQ.1) B=(B.AND.-M2(K)).OR.("201004020100.AND.
|
||||
1 (-M2(K).XOR.-1))
|
||||
2 CONTINUE
|
||||
4 D=A(2)
|
||||
RETURN
|
||||
END
|
||||
|
||||
SUBROUTINE YES(X,Y,Z,YEA)
|
||||
IMPLICIT INTEGER(A-Z)
|
||||
CALL SPEAK(X)
|
||||
CALL GETIN(JUNK,IA1,JUNK,IB1)
|
||||
IF(IA1.EQ.'NO'.OR.IA1.EQ.'N') GOTO 1
|
||||
YEA=1
|
||||
IF(Y.NE.0) CALL SPEAK(Y)
|
||||
RETURN
|
||||
1 YEA=0
|
||||
IF(Z.NE.0)CALL SPEAK(Z)
|
||||
RETURN
|
||||
END
|
||||
Reference in New Issue
Block a user