![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to dso4.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 dso4.F CVS log | Up to [CSRG BSD Unix] / 43BSDReno / games / dungeon |
1.1 root 1: C ROBADV-- STEAL WINNER'S VALUABLES
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: INTEGER FUNCTION ROBADV(ADV,NR,NC,NA)
10: IMPLICIT INTEGER (A-Z)
11: #include "objects.h"
12: #include "oflags.h"
13: C
14: ROBADV=0
15: C !COUNT OBJECTS
16: DO 100 I=1,OLNT
17: IF((OADV(I).NE.ADV).OR.(OTVAL(I).LE.0).OR.
18: & (and(OFLAG2(I),SCRDBT).NE.0)) GO TO 100
19: CALL NEWSTA(I,0,NR,NC,NA)
20: C !STEAL OBJECT
21: ROBADV=ROBADV+1
22: 100 CONTINUE
23: RETURN
24: END
25: C ROBRM-- STEAL ROOM VALUABLES
26: C
27: C DECLARATIONS
28: C
29: INTEGER FUNCTION ROBRM(RM,PR,NR,NC,NA)
30: IMPLICIT INTEGER (A-Z)
31: LOGICAL PROB,QHERE
32: #include "objects.h"
33: #include "oflags.h"
34: C
35: ROBRM=0
36: C !COUNT OBJECTS
37: DO 100 I=1,OLNT
38: C !LOOP ON OBJECTS.
39: IF(.NOT. QHERE(I,RM)) GO TO 100
40: IF((OTVAL(I).LE.0).OR.(and(OFLAG2(I),SCRDBT).NE.0).OR.
41: & (and(OFLAG1(I),VISIBT).EQ.0).OR.(.NOT.PROB(PR,PR)))
42: & GO TO 50
43: CALL NEWSTA(I,0,NR,NC,NA)
44: ROBRM=ROBRM+1
45: OFLAG2(I)=or(OFLAG2(I),TCHBT)
46: GO TO 100
47: 50 IF(and(OFLAG2(I),ACTRBT).NE.0)
48: & ROBRM=ROBRM+ROBADV(OACTOR(I),NR,NC,NA)
49: 100 CONTINUE
50: RETURN
51: END
52: C WINNIN-- SEE IF VILLAIN IS WINNING
53: C
54: C DECLARATIONS
55: C
56: LOGICAL FUNCTION WINNIN(VL,HR)
57: IMPLICIT INTEGER (A-Z)
58: LOGICAL PROB
59: #include "objects.h"
60: C
61: VS=OCAPAC(VL)
62: C !VILLAIN STRENGTH
63: PS=VS-FIGHTS(HR,.TRUE.)
64: C !HIS MARGIN OVER HERO
65: WINNIN=PROB(90,100)
66: IF(PS.GT.3) RETURN
67: C !+3... 90% WINNING
68: WINNIN=PROB(75,85)
69: IF(PS.GT.0) RETURN
70: C !>0... 75% WINNING
71: WINNIN=PROB(50,30)
72: IF(PS.EQ.0) RETURN
73: C !=0... 50% WINNING
74: WINNIN=PROB(25,25)
75: IF(VS.GT.1) RETURN
76: C !ANY VILLAIN STRENGTH.
77: WINNIN=PROB(10,0)
78: RETURN
79: END
80: C FIGHTS-- COMPUTE FIGHT STRENGTH
81: C
82: C DECLARATIONS
83: C
84: INTEGER FUNCTION FIGHTS(H,FLG)
85: IMPLICIT INTEGER (A-Z)
86: LOGICAL FLG
87: C
88: C GAME STATE
89: C
90: #include "state.h"
91: #include "advers.h"
92: C
93: C FUNCTIONS AND DATA
94: C
95: DATA SMAX/7/,SMIN/2/
96: C
97: FIGHTS=SMIN+((((SMAX-SMIN)*ASCORE(H))+(MXSCOR/2))/MXSCOR)
98: IF(FLG) FIGHTS=FIGHTS+ASTREN(H)
99: RETURN
100: END
101: C VILSTR- COMPUTE VILLAIN STRENGTH
102: C
103: C DECLARATIONS
104: C
105: INTEGER FUNCTION VILSTR(V)
106: IMPLICIT INTEGER (A-Z)
107: #include "parser.h"
108: #include "objects.h"
109: #include "oflags.h"
110: #include "oindex.h"
111: #include "villians.h"
112: #include "flags.h"
113: C VILSTR, PAGE 2
114: C
115: VILSTR=OCAPAC(V)
116: IF(VILSTR.LE.0) RETURN
117: IF((V.NE.THIEF).OR..NOT.THFENF) GO TO 100
118: THFENF=.FALSE.
119: C !THIEF UNENGROSSED.
120: VILSTR=MIN0(VILSTR,2)
121: C !NO BETTER THAN 2.
122: C
123: 100 DO 200 I=1,VLNT
124: C !SEE IF BEST WEAPON.
125: IF((VILLNS(I).EQ.V).AND.(PRSI.EQ.VBEST(I)))
126: & VILSTR=MAX0(1,VILSTR-1)
127: 200 CONTINUE
128: RETURN
129: END
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.