![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to dso2.F CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDReno / games / dungeon|
Return to dso2.F CVS log | Up to [CSRG BSD Unix] / 43BSDReno / games / dungeon |
1.1 root 1: C MOVETO- MOVE PLAYER TO NEW ROOM
2: C
3: C COPYRIGHT 1980, INFOCOM COMPUTERS AND COMMUNICATIONS, CAMBRIDGE MA. 02142
4: C ALL RIGHTS RESERVED, COMMERCIAL USAGE STRICTLY PROHIBITED
5: C WRITTEN BY R. M. SUPNIK
6: C
7: C DECLARATIONS
8: C
9: LOGICAL FUNCTION MOVETO(NR,WHO)
10: IMPLICIT INTEGER (A-Z)
11: LOGICAL NLV,LHR,LNR
12: #include "gamestate.h"
13: #include "rooms.h"
14: #include "rflag.h"
15: #include "objects.h"
16: #include "oindex.h"
17: #include "advers.h"
18: C MOVETO, PAGE 2
19: C
20: MOVETO=.FALSE.
21: C !ASSUME FAILS.
22: LHR=and(RFLAG(HERE),RLAND).NE.0
23: LNR=and(RFLAG(NR),RLAND).NE.0
24: J=AVEHIC(WHO)
25: C !HIS VEHICLE
26: C
27: IF(J.NE.0) GO TO 100
28: C !IN VEHICLE?
29: IF(LNR) GO TO 500
30: C !NO, GOING TO LAND?
31: CALL RSPEAK(427)
32: C !CAN'T GO WITHOUT VEHICLE.
33: RETURN
34: C
35: 100 BITS=0
36: C !ASSUME NOWHERE.
37: IF(J.EQ.RBOAT) BITS=RWATER
38: C !IN BOAT?
39: IF(J.EQ.BALLO) BITS=RAIR
40: C !IN BALLOON?
41: IF(J.EQ.BUCKE) BITS=RBUCK
42: C !IN BUCKET?
43: NLV=and(RFLAG(NR),BITS).EQ.0
44: IF((.NOT.LNR .AND.NLV) .OR.
45: & (LNR.AND.LHR.AND.NLV.AND.(BITS.NE.RLAND)))
46: & GO TO 800
47: C
48: 500 MOVETO=.TRUE.
49: C !MOVE SHOULD SUCCEED.
50: IF(and(RFLAG(NR),RMUNG).EQ.0) GO TO 600
51: CALL RSPEAK(RRAND(NR))
52: C !YES, TELL HOW.
53: RETURN
54: C
55: 600 IF(WHO.NE.PLAYER) CALL NEWSTA(AOBJ(WHO),0,NR,0,0)
56: IF(J.NE.0) CALL NEWSTA(J,0,NR,0,0)
57: HERE=NR
58: AROOM(WHO)=HERE
59: CALL SCRUPD(RVAL(NR))
60: C !SCORE ROOM
61: RVAL(NR)=0
62: RETURN
63: C
64: 800 CALL RSPSUB(428,ODESC2(J))
65: C !WRONG VEHICLE.
66: RETURN
67: END
68: C SCORE-- PRINT OUT CURRENT SCORE
69: C
70: C DECLARATIONS
71: C
72: SUBROUTINE SCORE(FLG)
73: IMPLICIT INTEGER (A-Z)
74: LOGICAL FLG
75: INTEGER RANK(10),ERANK(5)
76: #include "gamestate.h"
77: #include "state.h"
78: C
79: COMMON /CHAN/ INPCH,OUTCH,DBCH
80: #include "advers.h"
81: #include "flags.h"
82: C
83: C FUNCTIONS AND DATA
84: C
85: DATA RANK/20,19,18,16,12,8,4,2,1,0/
86: DATA ERANK/20,15,10,5,0/
87: C SCORE, PAGE 2
88: C
89: AS=ASCORE(WINNER)
90: C
91: IF(ENDGMF) GO TO 60
92: C !ENDGAME?
93: #ifdef PDP
94: call pscore(AS,MXSCOR,MOVES)
95: #else
96: #ifdef NOCC
97: IF(FLG.AND.MOVES.NE.1) WRITE(OUTCH,100) AS,MXSCOR,MOVES
98: IF(FLG.AND.MOVES.EQ.1) WRITE(OUTCH,120) AS,MXSCOR,MOVES
99: IF(.NOT.FLG.AND.MOVES.NE.1) WRITE(OUTCH,110) AS,MXSCOR,MOVES
100: IF(.NOT.FLG.AND.MOVES.EQ.1) WRITE(OUTCH,130) AS,MXSCOR,MOVES
101: #else NOCC
102: IF(FLG) WRITE(OUTCH,100)
103: IF(.NOT.FLG) WRITE(OUTCH,110)
104: IF(MOVES.NE.1) WRITE(OUTCH,120) AS,MXSCOR,MOVES
105: IF(MOVES.EQ.1) WRITE(OUTCH,130) AS,MXSCOR,MOVES
106: #endif NOCC
107: #endif PDP
108: C
109: DO 10 I=1,10
110: IF((AS*20/MXSCOR).GE.RANK(I)) GO TO 50
111: 10 CONTINUE
112: 50 CALL RSPEAK(484+I)
113: RETURN
114: C
115: #ifdef PDP
116: 60 continue
117: call pscore(EGSCOR,EGMXSC,MOVES)
118: #else
119: #ifdef NOCC
120: 60 IF(FLG) WRITE(OUTCH,140) EGSCOR,EGMXSC,MOVES
121: IF(.NOT.FLG) WRITE(OUTCH,150) EGSCOR,EGMXSC,MOVES
122: #else NOCC
123: 60 IF(FLG) WRITE(OUTCH,140)
124: IF(.NOT.FLG) WRITE(OUTCH,150)
125: WRITE(OUTCH,120) EGSCOR,EGMXSC,MOVES
126: #endif NOCC
127: #endif PDP
128: DO 70 I=1,5
129: IF((EGSCOR*20/EGMXSC).GE.ERANK(I)) GO TO 80
130: 70 CONTINUE
131: 80 CALL RSPEAK(786+I)
132: RETURN
133:
134: #ifndef PDP
135: #ifdef NOCC
136: 100 FORMAT('Your score would be',I4,' [total of',I4,' points], in',
137: & I5,' moves.')
138: 110 FORMAT('Your score is',I4,' [total of',I4,' points], in',
139: & I5,' moves.')
140: 120 FORMAT('Your score would be',I4,' [total of',I4,' points], in',
141: & I5,' move.')
142: 130 FORMAT('Your score is',I4,' [total of',I4,' points], in',
143: & I5,' move.')
144: 140 FORMAT('Your score in the endgame would be',I4,' [total of',
145: & I4,' points], in',I5,' moves.')
146: 150 FORMAT('Your score in the endgame is',I4,' [total of',
147: & I4,' points], in',I5,' moves.')
148: #else NOCC
149: 100 FORMAT(' Your score would be',$)
150: 110 FORMAT(' Your score is',$)
151: 120 FORMAT('+',I4,' [total of',I4,' points], in',I5,' moves.')
152: 130 FORMAT('+',I4,' [total of',I4,' points], in',I5,' move.')
153: 140 FORMAT(' Your score in the endgame would be',$)
154: 150 FORMAT(' Your score in the endgame is',$)
155: #endif NOCC
156: #endif PDP
157: C
158: END
159: C SCRUPD- UPDATE WINNER'S SCORE
160: C
161: C DECLARATIONS
162: C
163: SUBROUTINE SCRUPD(N)
164: IMPLICIT INTEGER (A-Z)
165: #include "gamestate.h"
166: #include "state.h"
167: #include "clock.h"
168: #include "advers.h"
169: #include "flags.h"
170: C
171: IF(ENDGMF) GO TO 100
172: C !ENDGAME?
173: ASCORE(WINNER)=ASCORE(WINNER)+N
174: C !UPDATE SCORE
175: RWSCOR=RWSCOR+N
176: C !UPDATE RAW SCORE
177: IF(ASCORE(WINNER).LT.(MXSCOR-(10*DEATHS))) RETURN
178: CFLAG(CEVEGH)=.TRUE.
179: C !TURN ON END GAME
180: CTICK(CEVEGH)=15
181: RETURN
182: C
183: 100 EGSCOR=EGSCOR+N
184: C !UPDATE EG SCORE.
185: RETURN
186: END
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.