The Space Bar - 1997 Spring/SPRING97.BIN/pc/spacebar/wld/vildemo.wld

Text File | 1997-01-28 | 13KB | 403 lines

// Vildroid flashback demo.
START_WLD=DAP_WLD
DISKID=1
DISKAUDIO=$SBARDIR\GENERAL\CHADIS1.WAV

//    ID     X  Y  FileName
CURSOR 0  = 15 15 $SBARDIR\VILDROID\CURSORS\NOT.BMP
CURSOR 1  = 30  1 $SBARDIR\VILDROID\CURSORS\VILDROID.BMP
CURSOR 2  =  9  9 $SBARDIR\VILDROID\CURSORS\ZOOM.BMP
CURSOR 5  = 27  1 $SBARDIR\VILDROID\CURSORS\LINK.BMP
CURSOR 6  = 15 15 $SBARDIR\VILDROID\CURSORS\WAIT.BMP
CURSOR 10 =  0  0 $SBARDIR\VILDROID\CURSORS\EXIT.BMP
CURSOR 14 =  0 14 $SBARDIR\VILDROID\CURSORS\LEFT.BMP
CURSOR 15 = 15  0 $SBARDIR\VILDROID\CURSORS\UPARROW.BMP
CURSOR 16 = 31 15 $SBARDIR\VILDROID\CURSORS\RIGHT.BMP
CURSOR 17 = 15 31 $SBARDIR\VILDROID\CURSORS\DOWN.BMP
CURSOR 19 = 15 15 $SBARDIR\VILDROID\CURSORS\BNOT.BMP
CURSOR 20 = 15 15 $SBARDIR\VILDROID\CURSORS\BEXIT.BMP
CURSOR 22 = 27  1 $SBARDIR\VILDROID\CURSORS\HUMAN.BMP
CURSOR 24 = 27  1 $SBARDIR\BAR\CURSORS\LINK.BMP

// Wield Cursors
CURSOR 23 =  2 19 $SBARDIR\VILDROID\WIELD\datd.bmp
CURSOR 25 =  2 19 $SBARDIR\VILDROID\WIELD\ddtc.bmp
CURSOR 37 =  3 20 $SBARDIR\VILDROID\WIELD\dhta.bmp

VAR TEMPBOOL = FALSE
VAR TEMPBOOL2 = FALSE
VAR TEMPVAR = 0
// heads up display data
VAR PRECIPITATION = 1
VAR PRECDECIMAL = 846
VAR PRECIPINIT = FALSE
VAR DUST = 3
VAR DUSTDECIMAL = 419
VAR HUDON = 1

VAR CLOSEUPLOC = NONE        // GREEN, BLUE, and BLACK

VAR FIRSTDBP = TRUE
VAR BENTER AS TIMER = 0
VAR ENTERMOVIE = FALSE
VAR PICTGREETDONE = FALSE
VAR COMMENTGREETDONE = FALSE
VAR SEENBWPHOTO = FALSE
VAR SEENDISPLAY = FALSE

VAR    INCHAIR = FALSE
VAR BLUEFOUND = FALSE
VAR PLAYDROIDFOUND = FALSE
VAR HAIRGREETDONE = FALSE
VAR HTLEVEL = 0
// DEMO: Turn grafitti off.
VAR DGRAFITTI = 0

VAR HADMANICURE = FALSE
VAR HADLATHER = FALSE

VAR FIRSTDEP = TRUE
VAR DCHIPID=0
VAR DVOICEID=0
VAR DRADIO=0
VAR    DFIRSTLOOK = TRUE
// for referee interaction
VAR REFSTEP = 0                // How many steps have been completed
VAR    ARGUEDONE = FALSE        // if argue phase is completed
VAR FIRSTARGUE = FALSE        // if one argue in a row was selected
VAR    CURSEDONE = FALSE
VAR FIRSTCURSE = FALSE
VAR    KICKDONE = FALSE
VAR FIRSTKICK = FALSE
VAR    BUMPDONE = FALSE
VAR FIRSTBUMP = FALSE
VAR    HITDONE = FALSE
VAR FIRSTHIT = FALSE
VAR    HITWITHDONE = FALSE
VAR FIRSTHITWITH = FALSE
VAR MATCHLOST = FALSE

VAR DGOTCHIP = FALSE
VAR DWEARINGITEM = 0        // number of items he's wearing - for remove option
VAR    DWEARINGGOGGLES = FALSE
VAR    DWEARINGPLATE =  FALSE
VAR    DWEARINGSTRIPS =  FALSE
VAR    DWEARINGPADS =  FALSE
VAR    DWEARINGSHORTS = FALSE
VAR DWEARINGDONUT = FALSE
VAR    DWEARINGBOOTS = FALSE
VAR DHAVETUBA = FALSE
VAR DHAVECLUB = FALSE
VAR COACHCOUNT AS TIMER = 0
VAR COACHTRIGGER = 30        // Starts as 30; changes to 10 after chip exam or coach
VAR COACHMOVIE = FALSE        // if the coach movie has played once
VAR DRULESREAD=FALSE
VAR DEPCOUNTER AS TIMER = 0
VAR DPINNUM = 1
VAR VEEBLEMATCH = FALSE        // if we are in a place to hear the PA & radio

// DHP vars
VAR PRESGREETDONE = FALSE
VAR FIRSTDHP = TRUE
VAR INITIATESHOW AS TIMER = 0
VAR CHATWITHPRES = FALSE
VAR BLACKCHIPIN = FALSE
VAR STAGECOUNT AS TIMER = 0
VAR PRESLEVEL = 0
VAR RUNINTRO = 0
VAR RUNADS = FALSE
VAR ADCOUNTER = 1


VAR DTURNCOUNT AS TIMER= 2400
VAR PRECIPCOUNT = 1
VAR CURLOC = DAP
VAR LASTLOC = BET

// jwl 11.18.96 PDA save state information
VAR PDAMODE = NOMODE
VAR PDAPOSITION = DOWN

SDEV BPDA_WLD AS PDA{
    SET BKG = $SBARDIR\VILDROID\PDA\DPDA.BMP;
    SET CHR = $SBARDIR\VILDROID\PDA\DWAND.SMK^WANDANIM LOOP 0 [12,12];
    SET ARE=DEACTIVE[130,50,530,210]{
        RUN COMMAND = DEACTIVATEPDA;
    };
    SET BUT = $SBARDIR\VILDROID\PDA\DMAP.BMP[158,204] +1^100;
    SET BUT = $SBARDIR\VILDROID\PDA\DSTASH.BMP[196,203] +1^101;
    SET BUT = $SBARDIR\VILDROID\PDA\DZOOM.BMP[234,203] +2^102{
        // DEMO: zoom brings up not included message -- bar 01-23-97
        SET TXT = $SBARDIR\GENERAL\NOTINCL.TXT COLOR 2 AS CAPTION;
    };
    SET BUT = $SBARDIR\VILDROID\PDA\DSYSTEM.BMP[270,204]+1^103;
    SET BUT = $SBARDIR\VILDROID\PDA\DLOG.BMP[308,204]+1^104;
    SET TIME=$SBARDIR\VILDROID\PDA\DTIME.BMP[445,175]^CLOCK+11 VALUE DTURNCOUNT;
}

SDEV BWIELD_WLD AS WIELD{
    SET BKG=$SBARDIR\VILDROID\WIELD\VILYOU.BMP;

    SET ARE=YOU[0,0,100,100]{
        SET TXT= Dirtkicker COLOR 2 SIZE 16 AS TITLE; //%%164
        IF (BWIELD_WLD CONTAINS GREENCHIP)
            SET BMP = $SBARDIR\GENERAL\MENUS\PUTIN.BMP{
                RUN COMMAND = REMOVEWIELD;
                RUN SND=$SBARDIR\VILDROID\AUDIO\OBJECTS\DDTCPIC1.WAV AS SYNC;
                RUN EXPR = DCHIPID( 1 );
            };
        ENDIF
        SET BMP=$SBARDIR\GENERAL\MENUS\WAIT.BMP{
            RUN SND = $SBARDIR\GENERAL\WAIT.WAV;
            RUN COMMAND = UPDATE;
        };
        SET BMP = $SBARDIR\GENERAL\MENUS\SNAPOUT.BMP{
            RUN LNK = $SBARDIR\WLD\BAR.WLD~~BGP_WLD~~BETTAKER_WLD FADE 3;
        };
    };
    HOLD BMP = $SBARDIR\VILDROID\INV\DATD.BMP^GREENCHIP #23{
        SET TXT= green_chip COLOR 2 SIZE 16 AS TITLE; //%%331
        SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
            RUN COMMAND = FLUSHQUEUE3;
            RUN SND=$SBARDIR\VILDROID\AUDIO\OBJECTS\DATDEXC1.WAV AS QUEUE;
            RUN MOVIE = $SBARDIR\VILDROID\OBJ\DATD.SMK AS EXAMINE;
        };
        IF NOT (CLOSEUPLOC == GREEN)
            SET BMP = $SBARDIR\GENERAL\MENUS\READ.BMP{
                RUN COMMAND = REMOVEWIELD;
                IF (CURLOC == DAP)
                    RUN LNK = DAP_WLD~~GREENWIELD_WLD~~GREENCHIP_WLD;
                ENDIF
                // DEMO: Can't get to DBP_WLD.
                // DEMO: Can't get to DDP_WLD.
                // DEMO: Can't get to DEP_WLD.
                // DEMO: Can't get to DFP_WLD.
                // DEMO: Can't get to DHP_WLD.
            };
        ENDIF
        SET BMP=$SBARDIR\GENERAL\MENUS\STASH.BMP{
            RUN COMMAND = TRANSFER OBJECT GREENCHIP FROM BWIELD_WLD TO INV_WLD;
        };
    };

}

SDEV MAP_WLD AS BMP RECT[155,90,390,200]{
    SET BKG = $SBARDIR\VILDROID\MAP\DMAP.BMP;
    IF (CURLOC == DAP)
        SET SPR = $SBARDIR\VILDROID\MAP\YOU.BMP[117,53]+2 FRAMERATE 4 %0;
    ENDIF
    IF (CURLOC == DBP)
        SET SPR = $SBARDIR\VILDROID\MAP\YOU.BMP[137,98]+2 FRAMERATE 4 %0;
    ENDIF
    IF (CURLOC == DDP)
        SET SPR = $SBARDIR\VILDROID\MAP\YOU.BMP[53,39]+2 FRAMERATE 4 %0;
    ENDIF
}
SDEV LOG_WLD AS LOG RECT[155,90,390,200]{
    SET BKG=$SBARDIR\VILDROID\LOG\VILLOG.BMP;
}

SDEV INV_WLD AS INVWLD RECT[155,90,390,200]{
    SET BKG = $SBARDIR\VILDROID\INV\INVBACK.BMP;
    HOLD BMP = $SBARDIR\VILDROID\INV\DATD.BMP^GREENCHIP %1{
        SET TXT = green_chip COLOR 2 SIZE 16 AS TITLE; //%%637
        SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
            RUN COMMAND = FLUSHQUEUE;
            RUN SND=$SBARDIR\VILDROID\AUDIO\OBJECTS\DATDEXC1.WAV AS QUEUE;
            RUN MOVIE = $SBARDIR\VILDROID\OBJ\DATD.SMK AS EXAMINE;
        };
        IF NOT (CLOSEUPLOC == GREEN)
            SET BMP = $SBARDIR\GENERAL\MENUS\READ.BMP{
                RUN LNK = GREENCHIP_WLD;
            };
        ENDIF
        SET BMP=$SBARDIR\GENERAL\MENUS\PICKUP.BMP{
            RUN COMMAND = TRANSFER OBJECT GREENCHIP FROM INV_WLD TO BWIELD_WLD;
        };
    };
}

SDEV EVT_WLD AS EVENT {
}
// Village Green
SDEV DAP_WLD FILTER 4{
    SET BKG=$SBARDIR\VILDROID\PAN\DAP.BMP;
    RUN EXPR = CURLOC( DAP );
    RUN EXPR = CLOSEUPLOC( NONE );

    // Background sound
    IF (GREENDAP~~PLAYING == 0)
        RUN EXPR = GREENDAP~~VOLUME( 3 );
        RUN SND = $SBARDIR\VILDROID\AUDIO\GREEN.WAV^GREENDAP AS MIX LOOP 0;
    ENDIF

    // DEMO: Block exits from the village green.
    SET LNK = TXT_WLD[1540,155,1770,300]%5 {
        RUN COMMAND = REMOVEWIELD;
    };
    SET LNK = TXT_WLD[835,130,1225,290]%5 {
        RUN COMMAND = REMOVEWIELD;
    };

    SET ARE = [210,355,530,510] %1 {
        SET TXT = bench COLOR 2 SIZE 16 AS TITLE; //%%1916
        SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
            SET TXT=$SBARDIR\VILDROID\OBJ\DANHEXAM.TXT COLOR 2 AS CAPTION; //%%1918
        };
        SET BMP=$SBARDIR\GENERAL\MENUS\SITON.BMP{
            SET TXT=$SBARDIR\VILDROID\OBJ\DANHSTON.TXT COLOR 2 AS CAPTION; //%%1921
        };
    };
    SET ARE = [760,340,1020,442] %1 {
        SET TXT = bench COLOR 2 SIZE 16 AS TITLE; //%%1925
        SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
            SET TXT=$SBARDIR\VILDROID\OBJ\DANHEXAM.TXT COLOR 2 AS CAPTION; //%%1927
        };
        SET BMP=$SBARDIR\GENERAL\MENUS\SITON.BMP{
            SET TXT=$SBARDIR\VILDROID\OBJ\DANHSTON.TXT COLOR 2 AS CAPTION; //%%1930
        };
    };
    SET ARE = [1800,343,2047,455] %1 {
        SET TXT = bench COLOR 2 SIZE 16 AS TITLE; //%%1934
        SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
            SET TXT=$SBARDIR\VILDROID\OBJ\DANHEXAM.TXT COLOR 2 AS CAPTION; //%%1936
        };
        SET BMP=$SBARDIR\GENERAL\MENUS\SITON.BMP{
            SET TXT=$SBARDIR\VILDROID\OBJ\DANHSTON.TXT COLOR 2 AS CAPTION; //%%1939
        };
    };
    SET BMP = $SBARDIR\VILDROID\OBJ\DANA.BMP^CRUMBS[32,388] %1{
        SET TXT = silicon_crumbs COLOR 2 SIZE 16 AS TITLE; //%%1943
        SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
            RUN SND=$SBARDIR\VILDROID\AUDIO\OBJECTS\DANAEXC1.WAV AS QUEUE;
            IF (DFIRSTLOOK == TRUE)
                IF (COACHTRIGGER == 30)
                    RUN EXPR = COACHCOUNT( 0 );
                    RUN EXPR = COACHTRIGGER( 10 );
                ENDIF
                RUN SND=$SBARDIR\VILDROID\AUDIO\OBJECTS\DANAEX1A.WAV AS QUEUE;
                RUN EXPR=DFIRSTLOOK( FALSE );
            ENDIF
        };
        SET BMP=$SBARDIR\GENERAL\MENUS\READ.BMP{
            RUN LNK=CHIPDUST_WLD;
        };
        SET BMP=$SBARDIR\GENERAL\MENUS\VACUUM.BMP{
            RUN SND=$SBARDIR\VILDROID\AUDIO\OBJECTS\DANAVAC2.WAV AS WAITQUEUE;
            RUN COMMAND = REMOVE OBJECT CRUMBS FROM DAP_WLD;
            RUN SND=$SBARDIR\VILDROID\AUDIO\OBJECTS\DANAVAC1.WAV AS QUEUE;
        };
        SET BMP=$SBARDIR\GENERAL\MENUS\PICKUP.BMP{
            SET TXT=$SBARDIR\VILDROID\OBJ\DANATAC1.TXT COLOR 2 AS CAPTION; //%%1966
        };
        SET BMP=$SBARDIR\GENERAL\MENUS\STASH.BMP{
            SET TXT=$SBARDIR\VILDROID\OBJ\DANATAC2.TXT COLOR 2 AS CAPTION; //%%1969
        };
    };

    SET ARE = [1250,50,1502,508]^TUNKSTATUE %1{
        SET TXT = statue COLOR 2 SIZE 16 AS TITLE; //%%2003
        SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
            RUN SND=$SBARDIR\VILDROID\AUDIO\OBJECTS\DANBEXC1.WAV AS QUEUE;
        };
        SET BMP=$SBARDIR\GENERAL\MENUS\READ.BMP{
            RUN LNK=TUNKSTATUE_WLD;
        };
    };

    SET ARE=[1020,330,1100,425]^TRASHCAN %1{
        SET TXT = trash_can COLOR 2 SIZE 16 AS TITLE; //%%2013
        SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
            RUN SND=$SBARDIR\VILDROID\AUDIO\OBJECTS\DANCEXC1.WAV AS QUEUE;
        };
        IF ( DGOTCHIP == FALSE )
            SET BMP=$SBARDIR\GENERAL\MENUS\SEARCH.BMP{
                RUN SND=$SBARDIR\VILDROID\AUDIO\OBJECTS\DANCSRC1.WAV AS WAITQUEUE;
                RUN COMMAND = INSERT OBJECT GREENCHIP TO BWIELD_WLD;
                RUN EXPR = DGOTCHIP( TRUE );
            };
        ENDIF
        IF (BWIELD_WLD HAS SPR)
            SET BMP=$SBARDIR\GENERAL\MENUS\PUTIN.BMP{
                SET TXT=$SBARDIR\VILDROID\OBJ\DANCPIC1.TXT COLOR 2 AS CAPTION; //%%2026
            };
        ENDIF
    };

    SET ARE=[1895,134,2047,275]^TOWNHALL %1{
        SET TXT = Town_Hall COLOR 2 SIZE 16 AS TITLE; //%%2032
        SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
            RUN SND=$SBARDIR\VILDROID\AUDIO\OBJECTS\DANEEXC1.WAV AS QUEUE;
        };
        SET BMP=$SBARDIR\GENERAL\MENUS\ENTER.BMP{
            RUN SND=$SBARDIR\VILDROID\AUDIO\OBJECTS\DANEENC1.WAV AS QUEUE;
        };
    };
    SET ARE=[0,134,145,275]^TOWNHALL %1{
        SET TXT = Town_Hall COLOR 2 SIZE 16 AS TITLE; //%%2041
        SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
            RUN SND=$SBARDIR\VILDROID\AUDIO\OBJECTS\DANEEXC1.WAV AS QUEUE;
        };
        SET BMP=$SBARDIR\GENERAL\MENUS\ENTER.BMP{
            RUN SND=$SBARDIR\VILDROID\AUDIO\OBJECTS\DANEENC1.WAV AS QUEUE;
        };
    };

    SET ARE=[513,214,675,286]^PETSHOP %1{
        SET TXT = Pet_Shop COLOR 2 SIZE 16 AS TITLE; //%%2051
        SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
            RUN SND=$SBARDIR\VILDROID\AUDIO\OBJECTS\DANFEXC1.WAV AS QUEUE;
        };
        SET BMP=$SBARDIR\GENERAL\MENUS\ENTER.BMP{
            RUN SND=$SBARDIR\VILDROID\AUDIO\OBJECTS\DANFENC1.WAV AS QUEUE;
            SET TXT=$SBARDIR\VILDROID\OBJ\DANFENC1.TXT COLOR 2 AS CAPTION; //%%2057
        };
    };
}

SDEV CHIPDUST_WLD AS CLOSEUP FILTER 4{
    SET BKG=$SBARDIR\VILDROID\CLOSEUP\DACA.BMP;
    // Background sound
    IF (GREENDACA~~PLAYING == 0)
        RUN EXPR = GREENDACA~~VOLUME( 3 );
        RUN SND = $SBARDIR\VILDROID\AUDIO\GREEN.WAV^GREENDACA AS MIX LOOP 0;
    ENDIF
}

SDEV TUNKSTATUE_WLD AS CLOSEUP FILTER 4{
    SET BKG=$SBARDIR\VILDROID\CLOSEUP\DACB.BMP;
    // Background sound
    IF (GREENDACB~~PLAYING == 0)
        RUN EXPR = GREENDACB~~VOLUME( 3 );
        RUN SND = $SBARDIR\VILDROID\AUDIO\GREEN.WAV^GREENDACB AS MIX LOOP 0;
    ENDIF
}

SDEV GREENWIELD_WLD AS CLOSEUP FILTER 4{
    SET BKG=$SBARDIR\VILDROID\CLOSEUP\DACD.BMP;
    RUN COMMAND = INSERT OBJECT GREENCHIP TO BWIELD_WLD;
    RUN COMMAND = CLOSE;
}
SDEV GREENCHIP_WLD AS CLOSEUP FILTER 4{
    SET BKG=$SBARDIR\VILDROID\CLOSEUP\DACD.BMP;
    RUN EXPR = CLOSEUPLOC( GREEN );
    IF (CURLOC == DAP)
        // Background sound
        IF (GREENDACD~~PLAYING == 0)
            RUN EXPR = GREENDACD~~VOLUME( 3 );
            RUN SND = $SBARDIR\VILDROID\AUDIO\GREEN.WAV^GREENDACD AS MIX LOOP 0;
        ENDIF
    ENDIF
    // DEMO: Can't get to the deployment chamber (DEP).
    // DEMO: Can't get to the veebleball arena (DFP).
}

// DEMO: Storage device to block access to portions of the game.
SDEV TXT_WLD AS CHAT {
    SET BKG=$SBARDIR\GENERAL\TEXT3.BMP;
    SET ARE = [0,0,640,480] %24 {
        RUN LNK=$SBARDIR\WLD\BAR.WLD~~BGP_WLD~~BETTAKER_WLD FADE 3;
    };
}