Return to ballop.F CVS log

Up to [CSRG BSD Unix] / 43BSDReno / games / dungeon

Annotation of 43BSDReno/games/dungeon/ballop.F, revision 1.1.1.1

1.1       root        1: C BALLOP-      BALLOON FUNCTION
                      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 BALLOP(ARG)
                     10:        IMPLICIT INTEGER (A-Z)
                     11:        LOGICAL FINDXT,QEMPTY
                     12: #include "parser.h"
                     13: #include "gamestate.h"
                     14: #include "state.h"
                     15: #include "rooms.h"
                     16: #include "rflag.h"
                     17: #include "curxt.h"
                     18: #include "xpars.h"
                     19: #include "objects.h"
                     20: #include "oflags.h"
                     21: #include "oindex.h"
                     22: #include "clock.h"
                     23: 
                     24: #include "verbs.h"
                     25: #include "flags.h"
                     26: C BALLOP, PAGE 2
                     27: C
                     28:        BALLOP=.TRUE.
                     29: C                                              !ASSUME WINS.
                     30:        IF(ARG.NE.2) GO TO 200
                     31: C                                              !READOUT?
                     32:        IF(PRSA.NE.LOOKW) GO TO 10
                     33: C                                              !ONLY PROCESS LOOK.
                     34:        IF(BINFF.NE.0) GO TO 50
                     35: C                                              !INFLATED?
                     36:        CALL RSPEAK(543)
                     37: C                                              !NO.
                     38:        GO TO 100
                     39: 50     CALL RSPSUB(544,ODESC2(BINFF))
                     40: C                                              !YES.
                     41: 100    IF(BTIEF.NE.0) CALL RSPEAK(545)
                     42: C                                              !HOOKED?
                     43:        RETURN
                     44: C
                     45: 200    IF(ARG.NE.1) GO TO 500
                     46: C                                              !READIN?
                     47:        IF(PRSA.NE.WALKW) GO TO 300
                     48: C                                              !WALK?
                     49:        IF(FINDXT(PRSO,HERE)) GO TO 250
                     50: C                                              !VALID EXIT?
                     51:        CALL RSPEAK(546)
                     52: C                                              !NO, JOKE.
                     53:        RETURN
                     54: C
                     55: 250    IF(BTIEF.EQ.0) GO TO 275
                     56: C                                              !TIED UP?
                     57:        CALL RSPEAK(547)
                     58: C                                              !YES, JOKE.
                     59:        RETURN
                     60: C
                     61: 275    IF(XTYPE.NE.XNORM) GO TO 10
                     62: C                                              !NORMAL EXIT?
                     63:        IF(and(RFLAG(XROOM1),RMUNG).EQ.0) BLOC=XROOM1
                     64: 10     BALLOP=.FALSE.
                     65:        RETURN
                     66: C
                     67: 300    IF((PRSA.NE.TAKEW).OR.(PRSO.NE.BINFF)) GO TO 350
                     68:        CALL RSPSUB(548,ODESC2(BINFF))
                     69: C                                              !RECEP CONT TOO HOT.
                     70:        RETURN
                     71: C
                     72: 350    IF((PRSA.NE.PUTW).OR.(PRSI.NE.RECEP).OR.QEMPTY(RECEP))
                     73: &              GO TO 10
                     74:        CALL RSPEAK(549)
                     75:        RETURN
                     76: C
                     77: 500    IF((PRSA.NE.UNBOAW).OR.(and(RFLAG(HERE),RLAND).EQ.0))
                     78: &              GO TO 600
                     79:        IF(BINFF.NE.0) CTICK(CEVBAL)=3
                     80: C                                              !HE GOT OUT, START BALLOON.
                     81:        GO TO 10
                     82: C
                     83: 600    IF((PRSA.NE.BURNW).OR.(OCAN(PRSO).NE.RECEP)) GO TO 700
                     84:        CALL RSPSUB(550,ODESC2(PRSO))
                     85: C                                              !LIGHT FIRE IN RECEP.
                     86:        CTICK(CEVBRN)=OSIZE(PRSO)*20
                     87:        OFLAG1(PRSO)=or(OFLAG1(PRSO),
                     88: &              and((ONBT+FLAMBT+LITEBT), not(TAKEBT+READBT)))
                     89:        IF(BINFF.NE.0) RETURN
                     90:        IF(.NOT.BLABF) CALL NEWSTA(BLABE,0,0,BALLO,0)
                     91:        BLABF=.TRUE.
                     92:        BINFF=PRSO
                     93:        CTICK(CEVBAL)=3
                     94:        CALL RSPEAK(551)
                     95:        RETURN
                     96: C
                     97: 700    IF((PRSA.EQ.UNBOAW).AND.(BINFF.NE.0).AND.
                     98: &              (and(RFLAG(HERE),RLAND).NE.0))
                     99: &              CTICK(CEVBAL)=3
                    100:        GO TO 10
                    101: C
                    102:        END

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