( COUNT OFF THE TREASURES AND HOSTAGES )                        DECIMAL                                                         : END-ER ;TASK: ( RUN ON OUT )                                  plup B@ 0= ROTN B@ ANGLE!                                       THIS:LIFE ROTOPOS DESTY! DESTX!                                 HM-T TIMER!-ON A->DEST/TIME GO ZERODXDYAXAY                     RR# B@ 4 > IF NULPAT ANIM! 1 TIMER!-ON GO THEN                  20 TIMER!-ON WAIT 0 F#A B! VGER-OUT ;                           XC? IFTRUE ( WAIT FOR ALL MONSTERS )                            : W-AIP 0 5 0 DO I I:M ACTIVE? IF I I:M OBJSV OVB@              MSAIP <> IF DROP 1 THEN THEN LOOP IF 5 TIMER!-ON WAIT 0         ELSE 1 THEN COGO ; OTHERWISE                                    : W-AIP 0 2 0 DO I I:M ACTIVE? IF I I:M OBJSV OVB@              MSAIP <> IF DROP 1 THEN THEN LOOP IF 5 TIMER!-ON WAIT 0         ELSE 1 THEN COGO ; IFEND                                        -->                                                             ( DROP INTO CHAMBER )                                           : DROPIN DIVG 0 DELTADIST V!                                    ( 0 0 ARV Sim 2 ARS B! )                                        0 X! RP-Y Y!                                                    EMOV                                                            ROTROTY ANIM! XOR-ON                                            ST-X DESTX! ST-Y DESTY! DC-T TIMER!-ON A->DEST/TIME GO          EMOV                                                            H-P-D DISPF VB! ESTPOS                                          PLIC P.S B! COGO ;                                              XC? NOT IFTRUE : DROP-S ;                                       : VSEN ; : TRY-PA ;                                             : GO-SET GAMEOVER BONE ;                                        IFEND                                                           ( FIX GAMEOVER AND VSEN SHIT )                                  -->                                                             ( ROTO / PLAYER TASK )         DECIMAL                          : R:B ;TASK: ( ESTABLISH SPEEDS )                               Src Snm REVV H:R BEGIN DIVG                                     P.S B@ PLEM CASE                                                DVECT-OFF                                                       RR# B@ 5 < IF THIS:LIFE ROTOPOS NERDUP IF 32 ELSE 96 THEN RTw   THEN THIS:LIFE ROTOPOS DUP Y! DESTY! X! 0 DESTX!                EMOV ENTER-S                                                    ROTROTY ANIM! XOR-ON plup B@ ROTN B@ ANGLE!                     HM-T TIMER!-ON A->DEST/TIME GO SFXV MA-T                        EMOV BEGIN KICKBK ' W-AIP SETCO COGO END ' OPDR SETCO COGO      ' DROPIN SETCO COGO P-RTY ANIM!                                 KEY OBJSV OVB@ KYOPEN <> IF ' CLDR SETCO COGO THEN PERZAP       -->                                                                                                                                                                                             ELSE PLIC CASE ( IN A CHAMBER CASE )                            PROPDELTAS DIRFLAG BZERO                                        DIVG ( CHECK JOYSTICK TO SEE IF WE CAN LEAVE )                  G:JC                                                            IF                                                              PLMV P.S B!                                                     -->                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             ( GO FROM INCHAM TO MOVEABOUT )                                 EPLYRV ( ESTABLISH PLAYER VELOCITY )                            DEPART:NODE PERZAP P-RTY ANIM! 7 VROTINXSHF VB!                 WALKER ( SYNC )                                                 THEN                                                            -->                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             ( WE ARE DEAD STATE )                                           ELSE PLDOA CASE                                                 PDOA ANIM! GRAB-S                                               RR# 1-WPB! RR# B@ 0= IF                                         botha B@ 0= IF GO-SET THEN SFXV GO-T THEN                       0 SETVEL HALTER DISHOS                                          BEGIN DSM4 B@ 0<> MONV1 OBJSV OVB@ MSSNA = OR                   WHILE SYNC REPEAT                                               0 MYFLAG VB! MONV1 RAVISH SYNC DIVG                             BEGIN POA GO FLAG? END 4 TIMER!-ON WAIT                         PLEM P.S B! ' DEPARTSKI SETCO COGO UNFREEZE                     botha B@ IF RR# B@ 0= IF 120 TIMER!-ON WAIT THEN VGER-OUT SLEEP ELSE RR# B@ 0= IF VSEN TRY-PA                                   240 TIMER!-ON WAIT VGER-OUT SLEEP                               ELSE GA# B@ 7 MIN SMARTS B!                                     Src Snm ESTPOS THEN THEN -->                                    ( PLAYER ESCAPE INTO EXIT CHAMBER )                             ELSE PLESC CASE FREEZE 0 PERINX! ESTPOS 0 ASSMSV VB!            SUCK-S                                                          ROTROTY ANIM!                                                   ( IF # HOSTAGES FREED IS > PREV MAX THEN UPDATE IT )            Hctr B@ MH# B@ MAX MH# WPB!                                     Hctr B@ IF BANTOP THEN ( KICKOUT MONSTERS )                     O-M BZERO EV:R                                                  GO DIVG EMOV                                                    -->                                                                                                                                                                                                                                                                                                                                                                                                                                                             ( MORE ESCAPE STUFF )                                           ( WAIT FOR HOSTAGES TO LEAVE )                                  Hctr B@ IF Chw BZERO                                            BEGIN Hctr B@ 0<> Chw B@ 60 < AND WHILE Chw 1+B! 5 TIMER!-ON    WAIT DIVG BANTOP REPEAT                                         FREDH B@ TOTAL-HOSTAGES = IF EOF BONE SELF END-ER SLEEP THEN    BEGIN BANTOP ' W-AIP SETCO COGO END                             ELSE 5 TIMER!-ON WAIT SMARTS 1+B! THEN                          UNFREEZE                                                        0 DRPO VB! ( CLEAR DROP IN FLAGOLA )                            DROP-S ( SECOND CHECK FOR FREED HOSTAGES )                      FREDH B@ TOTAL-HOSTAGES = IF EOF BONE SELF END-ER SLEEP THEN    ' DROPIN SETCO COGO FREM                                        -->                                                                                                                                                                                             ( LAST PART OF PLAYER TASK )                                    ELSE PLMV CASE ( MOVING AROUND - DO NOTHIN YET )                ELSE ( XDI ." FLAKE" ) THEN THEN THEN THEN THEN                 ( IF NOT MOVING PAUSE FOR A BIT )                               P.S B@ PLMV <> IF 2 TIMER!-ON 0 SETVEL THEN                     P:I:C HOOK!-ON                                                  PROPDELTAS POA DVECT-ON mastersur IGO DIVG                      O-M BZERO                                                                                                                       ( YET MORE PLAYER CONTROLLER )                                  DEST? IF ARRIVE:NODE CHRV C:RT                                  P.S B@ PLDOA < IF PLIC P.S B! THEN                              ( ESCAPE? ) DIVG PERZAP P-RTY ANIM! THEN                        0 END ; DECIMAL -->                                                                                                                                                                             