VAR TURNCOUNT AS TIMER = 1850 // VAR FOR CURRENT GAME TIME
VAR INBAR = 1
VAR TEMP1 = 0
VAR RPEVENT = FALSE // jwl 11.07.96 used to trigger a rp queue update event
VAR PDAZOOMED = FALSE // GENERAL USE VAR TO TELL US WHEN PDA IS ZOOMED
VAR PDAINCREMENT = 11 // HOW MUCH TO INCREMENT THE PDA WHEN ACTIVATING
VAR PDADEACTIVATE = FALSE // DEACTIVATE THE PDA?
// DEMO: Intro storage devices. First three storage devices
// provide background info for the game. Each is a click
// to continue. The third one is a link to the entry
// vestibule.
SDEV INTRO1A_WLD AS CHAT {
SET BKG=$SBARDIR\GENERAL\TEXT1A.BMP;
SET ARE=[1,1,635,479]%5{
LNK=INTRO1B_WLD FADE 3;
};
}
SDEV INTRO1B_WLD AS CHAT {
SET BKG=$SBARDIR\GENERAL\TEXT1A.BMP;
SET BMP=$SBARDIR\GENERAL\TEXT1B.BMP [0,0];
SET ARE = [1,1,635,479]%5{
RUN LNK=INTRO1C_WLD FADE 3;
};
}
SDEV INTRO1C_WLD AS CHAT {
SET BKG=$SBARDIR\GENERAL\TEXT1A.BMP;
SET BMP=$SBARDIR\GENERAL\TEXT1C.BMP [0,0];
SET ARE = [1,1,635,479]%5{
RUN LNK = BAP_WLD FADE 3;
};
}
// DEMO: Storage device for text2x screen.
// "There's a lot more than fits in this teeny-weeny demo..."
SDEV TXT2_WLD AS CHAT {
SET BKG=$SBARDIR\GENERAL\TEXT2.BMP;
SET ARE = [0,0,80,480] %10{
RUN COMMAND = CLOSE;
}
}
// Entry Vestibule
SDEV BAP_WLD{
SET BKG=$SBARDIR\BAR\PAN\BAP.BMP;
RUN EXPR=BARLOC(BAP);
RUN EXPR=BARCROWD~~VOLUME(0);
RUN EXPR=BARMUSIC~~VOLUME(0);
RUN EXPR=BARMUSIC2~~VOLUME(0);
RUN EXPR=BARMUSIC3~~VOLUME(0);
RUN EXPR=BARMUSIC4~~VOLUME(0);
RUN EXPR=BARMUSIC5~~VOLUME(0);
RUN EXPR=BARMUSIC6~~VOLUME(0);
RUN EXPR=BARMUSIC7~~VOLUME(0);
// This is a looping background sound that stops on exit
RUN EXPR = ENTRYNOISE~~VOLUME( 5 );
RUN SND = $SBARDIR\BAR\EVENTS\ENTRY.WAV^ENTRYNOISE LOOP 0 AS MIX SOUNDOVEROK;
// SCROLLING TEXT FOR SIGN PANEL
IF (BANA_WLD CONTAINS BATTERY)
SET TNG=$SBARDIR\GENERAL\PANIMS\BANC1.SMK[1208,170];
ENDIF
// Secondary objects for this location
// DEMO: Removed area window
// DEMO: Removed area shower head
// DEMO: Removed area shower head 2
// DEMO: Removed area shower head 3
// DEMO: Removed area shower head 4
// DEMO: Removed area floor
// DEMO: Removed area floor1
// DEMO: Removed area floor2
// DEMO: Removed area floor3
// DEMO: Removed area floor4
// DEMO: Removed area floor5
// DEMO: Removed area floor6
// DEMO: Removed area floor7
// DEMO: Removed area floor8
// DEMO: Removed area floor9
// Advertising Closeup --
// bar 12-04-96: added intermediate closeup for closing of panel left open
SET ARE=[1203,172,1498,219]^ADPANELCUP %2{
RUN LNK = BAP_WLD~~BANACLOSE_WLD~~BANA_WLD;
RUN EXPR=SIGNDOOR1(CLOSED);
}
// READ THE PANEL UNDER THE MONITORS CLOSEUP
SET LNK=BACG_WLD[1668,252,1746,300] AS CLOSEUP;
// Bar Area
SET LNK=BDP_WLD[1868,230,1995,320]@[787,73]#[1675,88]^BARLINK{
IF (BARLINK~~STATE == 0)
RUN MOVIE=$SBARDIR\BAR\EVENTS\EVENBAR.SMK[97,292] AS PDAMSG;
RUN SND=$SBARDIR\BAR\EVENTS\EVENBAR1.WAV AS QUEUE *2;
RUN EXPR=REMEMBER~~TIME(TURNCOUNT);
RUN EXPR=REMEMBERZ~~TIME(TURNCOUNT);
RUN EXPR=BARLINK~~STATE(1);
ENDIF
// Demo: always play flythrough
// IF (TURNCOUNT < 1900)
RUN MOVIE=$SBARDIR\BAR\FLYTHRUS\FAD.SMK AS FLYTHRU;
// ENDIF
RUN EXPR=BARCROWD~~VOLUME(5);
};
// 1ST LINK TO LOCKER 1 CLOSEUP
SET ARE = [2041,245,2047,322] %2{
RUN EXPR=LOCKERDOOR1(CLOSED);
// go through hack closeup for closing if left open bar 12-05-96
RUN LNK = BAP_WLD~~BANF1CLOSE_WLD~~BANF1_WLD;
}
// 2ND LINK TO LOCKER 1 CLOSEUP
SET ARE=[0,243,9,326] %2{
RUN EXPR=LOCKERDOOR1(CLOSED);
// go through hack closeup for closing if left open bar 12-05-96
RUN LNK = BAP_WLD~~BANF1CLOSE_WLD~~BANF1_WLD;
}
// LINK TO LOCKER 2 CLOSEUP
SET ARE = [10,243,27,333] %2{
RUN EXPR=LOCKERDOOR2(CLOSED);
// go through hack closeup for closing if left open bar 12-05-96
RUN LNK=BAP_WLD~~BANF2CLOSE_WLD~~BANF2_WLD;
}
// LINK TO LOCKER 3 CLOSEUP
SET LNK=BANF3_WLD[27,243,49,345] AS CLOSEUP;
// LINK TO LOCKER 4 CLOSEUP
SET LNK=BANF4_WLD[62,241,96,362] AS CLOSEUP;
// LINK TO LOCKER 5 CLOSEUP
SET LNK=BANF5_WLD[95,239,136,376] AS CLOSEUP;
// LINK TO LOCKER 6 CLOSEUP
SET LNK=BANF6_WLD[138,238,189,392] AS CLOSEUP;
// Computer Terminal
SET LNK=BANDA_WLD[1456,236,1573,390] AS CLOSEUP{
RUN EXPR=RPEC_ALIAS(TURNCOUNT);
RUN EXPR=CT_MODE(MAINMENU);
};
// Arrival information monitors
SET LNK=BANE_WLD[1666,171,1727,239] AS CLOSEUP;
// Departure information monitors
SET LNK=BANED_WLD[1746,195,1783,237] AS CLOSEUP;
//Spaceport Entrance
SET ARE=SPACEPORT[744,230,970,370]%5{
RUN MOVIE=$SBARDIR\BAR\EVENTS\ANENSP.SMK[97,292] AS PDAMSG DONTOVERRIDE DONTINCREMENT;
};
// DEMO: Removed area street exit
// DEMO: Removed interactions with arksh's bag
// DEMO: Removed Zelda's comment on Arksh
}
// Advertising Panel CloseUp
SDEV BANA_WLD AS CLOSEUP{
SET BKG=$SBARDIR\BAR\CLOSEUP\BACA\BACA.BMP;
// This is a looping background sound that stops on exit
RUN EXPR = ENTRYNOISEBANA~~VOLUME( 5 );
RUN SND = $SBARDIR\BAR\EVENTS\ENTRY.WAV^ENTRYNOISEBANA LOOP 0 AS MIX SOUNDOVEROK;
// BATTERY
SET BMP=$SBARDIR\BAR\CLOSEUP\BACA\BATB.BMP^BATTERY[195,200]%1{
SET TXT = battery COLOR 2 AS TITLE; //%%5869
SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
RUN COMMAND = FLUSHQUEUE2;
RUN MOVIE=$SBARDIR\BAR\OBJ\BATB.SMK AS EXAMINE SND=$SBARDIR\BAR\CLOSEUP\BACA\BATBEXC1.WAV;
};
// DEMO: Removed the pickup interaction.
// DEMO: Removed ability to put the battery in your stash.
// DEMO: Removed residue printer support.
};
// SCROLLING TEXT FOR SIGN PANEL
IF ( BANA_WLD CONTAINS BATTERY)
SET TNG=$SBARDIR\BAR\CLOSEUP\BACA\BANA2.SMK[0,140];
ENDIF
SET TNG=$SBARDIR\BAR\CLOSEUP\BACA\BACA.SMK^SIGNOPEN LOOP 0 IS MODAL[145,190]%1{
SET TXT = advertising_sign_panel COLOR 2 AS TITLE; //%%5903
IF ( SIGNDOOR1 == CLOSED )
SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
IF ( AD1TIME == 0 )
RUN SND=$SBARDIR\BAR\CLOSEUP\BACA\BANAEXC1.WAV AS QUEUE *2;
ENDIF
IF ( AD1TIME == 1 )
SET TXT=$SBARDIR\BAR\CLOSEUP\BACA\CLOSED.TXT COLOR 2 AS CAPTION; //%%5910
ENDIF
};
SET BMP=$SBARDIR\GENERAL\MENUS\OPEN.BMP{
RUN SND=$SBARDIR\BAR\CLOSEUP\BACA\BANAOPC1.WAV;
RUN EXPR=SIGNOPEN~~SPEED(1);
RUN EXPR=SIGNOPEN~~LOOP(1);
RUN EXPR=AD1TIME(1);
RUN EXPR=RPAP_ALIAS(TURNCOUNT);
RUN EXPR=SIGNDOOR1(OPEN);
};
ENDIF
IF (SIGNDOOR1 == OPEN)
SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
SET TXT=$SBARDIR\BAR\CLOSEUP\BACA\OPEN.TXT COLOR 2 AS CAPTION; //%%5924
};
SET BMP=$SBARDIR\GENERAL\MENUS\CLOSE.BMP{
RUN SND=$SBARDIR\BAR\CLOSEUP\BACA\BANACLC1.WAV;
RUN EXPR=SIGNOPEN~~SPEED(-1);
RUN EXPR=SIGNOPEN~~LOOP(1);
RUN EXPR=SIGNOPEN~~SPEED(1);
RUN EXPR=SIGNDOOR1(CLOSED);
};
// DEMO: Battery is already in the panel - remove support to transfer from wield.
ENDIF
// DEMO: Removed residue printer support.
};
}
// LOCKER 1 CLOSEUP
SDEV BANF1_WLD AS CLOSEUP{
SET BKG=$SBARDIR\BAR\CLOSEUP\BACF\BACF.BMP;
// This is a looping background sound that stops on exit
RUN EXPR=ENTRYBANF1~~VOLUME(5);
RUN SND=$SBARDIR\BAR\EVENTS\ENTRY.WAV^ENTRYBANF1 LOOP 0 AS MIX SOUNDOVEROK;
IF (LOCKERDOOR1 == OPEN)
SET ARE=EMPTY[94,0,383,258]%1{
SET TXT = locker COLOR 2 AS TITLE; //%%4950
// DEMO: Removed examine interaction
SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
SET TXT=$SBARDIR\BAR\CLOSEUP\BACF\BANOP.TXT COLOR 2 AS CAPTION; //%%4952
};
SET BMP=$SBARDIR\GENERAL\MENUS\CLOSE.BMP{
RUN COMMAND=UPDATE;
IF (L1OPENED==2)
RUN EXPR=L1STATUS~~STATE(0);
RUN SND=$SBARDIR\BAR\CLOSEUP\BACF\BANFCLC1.WAV;
RUN EXPR=L1OPENED(3);
ENDIF
RUN SND=$SBARDIR\BAR\CLOSEUP\BACF\BANFCL.WAV AS MIX;
RUN EXPR=LOCKERDOOR1(CLOSED);
};
// DEMO: Removed the cerebomb putin interaction (if cerebomb is in the stash)
// DEMO: Removed the datacart putin interaction (if datacart is in the stash)
};
ENDIF
// DEMO: Removed cerebomb
// DEMO: Removed all interactions with the datacart
IF ( LOCKERDOOR1 == CLOSED )
SET BMP=$SBARDIR\BAR\CLOSEUP\BACF\BANF1.BMP^DOOROPEN[0,0];
SET ARE=HANDLE[94,0,383,258]%1{
SET TXT = locker COLOR 2 AS TITLE; //%%5052
// DEMO: Removed the examine interaction
SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
IF (L1OPENED >1)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACF\BANTAKE.TXT COLOR 2 AS CAPTION; //%%5055
ELSE
SET TXT=$SBARDIR\BAR\CLOSEUP\BACF\BANFREE.TXT COLOR 2 AS CAPTION; //%%5057
ENDIF
};
SET BMP=$SBARDIR\GENERAL\MENUS\OPEN.BMP{
RUN EXPR=RPL1_ALIAS(TURNCOUNT);
RUN EXPR=TEMP(L1OPENED);
IF (TEMP==1)
RUN EXPR=L1DIG1(DIAL1~~STATE);
RUN EXPR=L1DIG2(DIAL2~~STATE);
RUN EXPR=L1DIG3(DIAL3~~STATE);
RUN EXPR=L1DIG4(DIAL4~~STATE);
RUN EXPR=L1OPENED(2);
RUN SND=$SBARDIR\BAR\CLOSEUP\BACF\BANFOP.WAV AS MIX;
RUN EXPR=LOCKERDOOR1(OPEN);
ENDIF
IF (TEMP==0)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACF\BANF.TXT COLOR 2 AS CAPTION; //%%5072
RUN EXPR=L1OPENED(1);
ENDIF
IF ( TEMP > 1 )
IF (DIAL1~~STATE== L1DIG1 AND DIAL2~~STATE==L1DIG2 AND DIAL3~~STATE==L1DIG3 AND DIAL4~~STATE==L1DIG4 )
RUN SND=$SBARDIR\BAR\CLOSEUP\BACF\BANFOP.WAV AS MIX;
RUN EXPR=LOCKERDOOR1(OPEN);
ELSE
SET TXT=$SBARDIR\BAR\CLOSEUP\BACF\BANF2.TXT COLOR 2 AS CAPTION; //%%5079
ENDIF
ENDIF
};
};
// LOCKER NUMBER
SET BMP=$SBARDIR\BAR\CLOSEUP\BACF\BANH.BMP[318,261];
// LOCKER STATUS - AVAILABLE/IN-USE
SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF5.BMP[152,277]^L1STATUS+2NOANIM*1;
// COMBINATION LOCK-1ST DIGIT
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3A.BMP^UP1[244,169]+2%1{
RUN EXPR=TEMP(DIAL1~~STATE);
RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
IF (TEMP==9)
RUN EXPR=DIAL1~~STATE(0);
ELSE
RUN EXPR=DIAL1~~STATE(DIAL1~~STATE+1);
ENDIF
RUN COMMAND=UPDATE;
};
SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2A.BMP^DIAL1[245,197]+10NOANIM*0;
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4A.BMP^DN1[243,233]+2%1{
RUN EXPR=TEMP(DIAL1~~STATE);
RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
IF (TEMP==0)
RUN EXPR=DIAL1~~STATE(9);
ELSE
RUN EXPR=DIAL1~~STATE( DIAL1~~STATE - 1 );
ENDIF
RUN COMMAND=UPDATE;
};
// 2ND DIGIT
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3B.BMP^UP2[269,169]+2%1{
RUN EXPR=TEMP(DIAL2~~STATE);
RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
IF (TEMP==9)
RUN EXPR=DIAL2~~STATE(0);
ELSE
RUN EXPR=DIAL2~~STATE(DIAL2~~STATE+1);
ENDIF
RUN COMMAND=UPDATE;
};
SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2B.BMP^DIAL2[268,197]+10NOANIM*0;
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4B.BMP^DN2[268,233]+2%1{
RUN EXPR=TEMP(DIAL2~~STATE);
RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
IF (TEMP==0)
RUN EXPR=DIAL2~~STATE(9);
ELSE
RUN EXPR=DIAL2~~STATE( DIAL2~~STATE - 1 );
ENDIF
RUN COMMAND=UPDATE;
};
// 3RD DIGIT
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3C.BMP^UP3[293,169]+2%1{
RUN EXPR=TEMP(DIAL3~~STATE);
RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
IF (TEMP==9)
RUN EXPR=DIAL3~~STATE(0);
ELSE
RUN EXPR=DIAL3~~STATE( DIAL3~~STATE + 1 );
ENDIF
RUN COMMAND=UPDATE;
};
SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2C.BMP^DIAL3[291,197]+10NOANIM*0;
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4C.BMP^DN3[292,233]+2%1{
RUN EXPR=TEMP(DIAL3~~STATE);
RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
IF (TEMP==0)
RUN EXPR=DIAL3~~STATE(9);
ELSE
RUN EXPR=DIAL3~~STATE( DIAL3~~STATE - 1 );
ENDIF
RUN COMMAND=UPDATE;
};
// 4TH DIGIT
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3D.BMP^UP4[317,169]+2%1{
RUN EXPR=TEMP(DIAL4~~STATE);
RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
IF (TEMP==9)
RUN EXPR=DIAL4~~STATE(0);
ELSE
RUN EXPR=DIAL4~~STATE( DIAL4~~STATE + 1 );
ENDIF
RUN COMMAND=UPDATE;
};
SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2D.BMP^DIAL4[314,197]+10NOANIM*0;
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4D.BMP^DN4[316,233]+2%1{
RUN EXPR=TEMP(DIAL4~~STATE);
RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
IF (TEMP==0)
RUN EXPR=DIAL4~~STATE(9);
ELSE
RUN EXPR=DIAL4~~STATE( DIAL4~~STATE - 1 );
ENDIF
RUN COMMAND=UPDATE;
};
ENDIF
RUN EXPR=L1STATUSC~~STATE(L1STATUS~~STATE);
RUN EXPR=DIAL1C~~STATE(DIAL1~~STATE);
RUN EXPR=DIAL2C~~STATE(DIAL2~~STATE);
RUN EXPR=DIAL3C~~STATE(DIAL3~~STATE);
RUN EXPR=DIAL4C~~STATE(DIAL4~~STATE);
}
// Hack closeup to show locker door closed upon exiting if it was left open
SDEV BANF1CLOSE_WLD AS CLOSEUP{
SET BKG=$SBARDIR\BAR\CLOSEUP\BACF\BANF1.BMP;
// LOCKER NUMBER
SET BMP=$SBARDIR\BAR\CLOSEUP\BACF\BANH.BMP[318,261];
// LOCKER STATUS - AVAILABLE/IN-USE
SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF5.BMP[152,277]^L1STATUSC+2NOANIM*1;
// COMBINATION LOCK-1ST DIGIT
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3A.BMP^UP1C[244,169]+2%1;
SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2A.BMP^DIAL1C[245,197]+10NOANIM*0;
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4A.BMP^DN1C[243,233]+2%1;
// 2ND DIGIT
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3B.BMP^UP2C[269,169]+2%1;
SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2B.BMP^DIAL2C[268,197]+10NOANIM*0;
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4B.BMP^DN2C[268,233]+2%1;
// 3RD DIGIT
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3C.BMP^UP3C[293,169]+2%1;
SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2C.BMP^DIAL3C[291,197]+10NOANIM*0;
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4C.BMP^DN3C[292,233]+2%1;
// 4TH DIGIT
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3D.BMP^UP4C[317,169]+2%1;
SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2D.BMP^DIAL4C[314,197]+10NOANIM*0;
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4D.BMP^DN4C[316,233]+2%1;
// play appropriate sfx
IF (LOCKERDOOR1 == OPEN)
RUN SND=$SBARDIR\BAR\CLOSEUP\BACF\BANFCL.WAV AS WAITMIX;
IF (L1OPENED==2)
RUN EXPR=L1STATUS~~STATE(0);
RUN SND=$SBARDIR\BAR\CLOSEUP\BACF\BANFCLC1.WAV AS WAITMIX;
RUN EXPR=L1OPENED(3);
ENDIF
RUN EXPR=LOCKERDOOR1(CLOSED);
ENDIF
RUN COMMAND = CLOSE;
}
// LOCKER 2 CLOSEUP - CLICK SNAP RATTLE'S LOCKER
SDEV BANF2_WLD AS CLOSEUP{
SET BKG=$SBARDIR\BAR\CLOSEUP\BACF\BACF.BMP;
// This is a looping background sound that stops on exit
RUN EXPR=ENTRYBANF2~~VOLUME(5);
RUN SND=$SBARDIR\BAR\EVENTS\ENTRY.WAV^ENTRYBANF2 LOOP 0 AS MIX SOUNDOVEROK;
IF ( LOCKERDOOR2 == OPEN )
SET ARE=EMPTY[94,0,383,258]%1{
SET TXT = locker COLOR 2 AS TITLE; //%%5193
// DEMO: Removed the examine interaction
SET BMP=$SBARDIR\GENERAL\MENUS\CLOSE.BMP{
RUN EXPR=LOCKERDOOR2(CLOSED);
RUN COMMAND=UPDATE;
};
// DEMO: Removed the cerebomb putin interaction (if cerebomb is in the stash)
// DEMO: Removed the datacart putin interaction (if datacart is in the stash)
};
ENDIF
// DEMO: Removed cerebomb
// DEMO: Removed ability to interact with the datacart
IF ( LOCKERDOOR2 == CLOSED )
SET BMP=$SBARDIR\BAR\CLOSEUP\BACF\BANF1.BMP^DOOROPEN[0,0];
SET ARE=HANDLE[94,0,383,258]%1{
SET TXT = locker COLOR 2 AS TITLE; //%%5273
SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
SET TXT=$SBARDIR\BAR\CLOSEUP\BACF\BANTAKE.TXT COLOR 2 AS CAPTION; //%%5755
};
SET BMP=$SBARDIR\GENERAL\MENUS\OPEN.BMP{
RUN EXPR=RPL2_ALIAS(TURNCOUNT);
IF ( AUDITON==TRUE AND L2DIAL1~~STATE== L2DIG1 AND L2DIAL2~~STATE==L2DIG2 AND L2DIAL3~~STATE==L2DIG3 AND L2DIAL4~~STATE==L2DIG4 )
RUN EXPR=LOCKERDOOR2(OPEN);
ELSE
SET TXT=$SBARDIR\BAR\CLOSEUP\BACF\BANF2.TXT COLOR 2 AS CAPTION; //%%5282
ENDIF
};
};
// LOCKER NUMBER
SET BMP=$SBARDIR\BAR\CLOSEUP\BACF\BANI.BMP[318,261];
// LOCKER STATUS - AVAILABLE/IN-USE
SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF5.BMP[152,277]^L2STATUS+2NOANIM*0;
// COMBINATION LOCK-1ST DIGIT
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3A.BMP^L2UP1[244,169]+2%1{
RUN EXPR=TEMP(L2DIAL1~~STATE);
RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
IF (TEMP==9)
RUN EXPR=L2DIAL1~~STATE(0);
ELSE
RUN EXPR=L2DIAL1~~STATE(L2DIAL1~~STATE+1);
ENDIF
RUN COMMAND=UPDATE;
};
SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2A.BMP^L2DIAL1[245,197]+10NOANIM*0;
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4A.BMP^L2DN1[243,233]+2%1{
RUN EXPR=TEMP(L2DIAL1~~STATE);
RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
IF (TEMP==0)
RUN EXPR=L2DIAL1~~STATE(9);
ELSE
RUN EXPR=L2DIAL1~~STATE( L2DIAL1~~STATE - 1 );
ENDIF
RUN COMMAND=UPDATE;
};
// 2ND DIGIT
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3B.BMP^L2UP2[269,169]+2%1{
RUN EXPR=TEMP(L2DIAL2~~STATE);
RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
IF (TEMP==9)
RUN EXPR=L2DIAL2~~STATE(0);
ELSE
RUN EXPR=L2DIAL2~~STATE(L2DIAL2~~STATE+1);
ENDIF
RUN COMMAND=UPDATE;
};
SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2B.BMP^L2DIAL2[268,197]+10NOANIM*0;
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4B.BMP^L2DN2[268,233]+2%1{
RUN EXPR=TEMP(L2DIAL2~~STATE);
RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
IF (TEMP==0)
RUN EXPR=L2DIAL2~~STATE(9);
ELSE
RUN EXPR=L2DIAL2~~STATE( L2DIAL2~~STATE - 1 );
ENDIF
RUN COMMAND=UPDATE;
};
// 3RD DIGIT
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3C.BMP^L2UP3[293,169]+2%1{
RUN EXPR=TEMP(L2DIAL3~~STATE);
RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
IF (TEMP==9)
RUN EXPR=L2DIAL3~~STATE(0);
ELSE
RUN EXPR=L2DIAL3~~STATE( L2DIAL3~~STATE + 1 );
ENDIF
RUN COMMAND=UPDATE;
};
SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2C.BMP^L2DIAL3[291,197]+10NOANIM*0;
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4C.BMP^L2DN3[292,233]+2%1{
RUN EXPR=TEMP(L2DIAL3~~STATE);
RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
IF (TEMP==0)
RUN EXPR=L2DIAL3~~STATE(9);
ELSE
RUN EXPR=L2DIAL3~~STATE( L2DIAL3~~STATE - 1 );
ENDIF
RUN COMMAND=UPDATE;
};
// 4TH DIGIT
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3D.BMP^L2UP4[317,169]+2%1{
RUN EXPR=TEMP(L2DIAL4~~STATE);
RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
IF (TEMP==9)
RUN EXPR=L2DIAL4~~STATE(0);
ELSE
RUN EXPR=L2DIAL4~~STATE( L2DIAL4~~STATE + 1 );
ENDIF
RUN COMMAND=UPDATE;
};
SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2D.BMP^L2DIAL4[314,197]+10NOANIM*0;
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4D.BMP^L2DN4[316,233]+2%1{
RUN EXPR=TEMP(L2DIAL4~~STATE);
RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
IF (TEMP==0)
RUN EXPR=L2DIAL4~~STATE(9);
ELSE
RUN EXPR=L2DIAL4~~STATE( L2DIAL4~~STATE - 1 );
ENDIF
RUN COMMAND=UPDATE;
};
IF (TEMP >= 0)
RUN EXPR=RPL2_ALIAS(TURNCOUNT);
ENDIF
ENDIF
RUN EXPR=L2STATUSC~~STATE(L2STATUS~~STATE);
RUN EXPR=L2DIAL1C~~STATE(L2DIAL1~~STATE);
RUN EXPR=L2DIAL2C~~STATE(L2DIAL2~~STATE);
RUN EXPR=L2DIAL3C~~STATE(L2DIAL3~~STATE);
RUN EXPR=L2DIAL4C~~STATE(L2DIAL4~~STATE);
}
// Hack closeup to show locker door closed upon exiting if it was left open
SDEV BANF2CLOSE_WLD AS CLOSEUP{
SET BKG=$SBARDIR\BAR\CLOSEUP\BACF\BANF1.BMP;
// LOCKER NUMBER
SET BMP=$SBARDIR\BAR\CLOSEUP\BACF\BANI.BMP[318,261];
// LOCKER STATUS - AVAILABLE/IN-USE
SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF5.BMP[152,277]^L2STATUSC+2NOANIM*1;
// COMBINATION LOCK-1ST DIGIT
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3A.BMP^L2UP1C[244,169]+2%1;
SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2A.BMP^L2DIAL1C[245,197]+10NOANIM*0;
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4A.BMP^L2DN1C[243,233]+2%1;
// 2ND DIGIT
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3B.BMP^L2UP2C[269,169]+2%1;
SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2B.BMP^L2DIAL2C[268,197]+10NOANIM*0;
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4B.BMP^L2DN2C[268,233]+2%1;
// 3RD DIGIT
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3C.BMP^L2UP3C[293,169]+2%1;
SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2C.BMP^L2DIAL3C[291,197]+10NOANIM*0;
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4C.BMP^L2DN3C[292,233]+2%1;
// 4TH DIGIT
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3D.BMP^L2UP4C[317,169]+2%1;
SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2D.BMP^L2DIAL4C[314,197]+10NOANIM*0;
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4D.BMP^L2DN4C[316,233]+2%1;
// play appropriate sfx
IF (LOCKERDOOR2 == OPEN)
RUN SND=$SBARDIR\BAR\CLOSEUP\BACF\BANFCL.WAV AS WAITMIX;
RUN EXPR = LOCKERDOOR2( CLOSED );
ENDIF
RUN COMMAND = CLOSE;
}
// LOCKER 3 CLOSEUP - OCCUPIED THROUGHOUT THE WHOLE GAME
SDEV BANF3_WLD AS CLOSEUP{
SET BKG=$SBARDIR\BAR\CLOSEUP\BACF\BACF.BMP;
// This is a looping background sound that stops on exit
RUN EXPR=ENTRYBANF3~~VOLUME(5);
RUN SND=$SBARDIR\BAR\EVENTS\ENTRY.WAV^ENTRYBANF3 LOOP 0 AS MIX SOUNDOVEROK;
SET BMP=$SBARDIR\BAR\CLOSEUP\BACF\BANF1.BMP^DOOROPEN[0,0];
// LOCKER NUMBER
SET BMP=$SBARDIR\BAR\CLOSEUP\BACF\BANJ.BMP[318,261];
// LOCKER STATUS - AVAILABLE/IN-USE
SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF5.BMP[152,277]+2NOANIM*0;
SET ARE=HANDLE[94,0,383,258]%1{
SET TXT = locker COLOR 2 AS TITLE; //%%5402
SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
SET TXT=$SBARDIR\BAR\CLOSEUP\BACF\BANTAKE.TXT COLOR 2 AS CAPTION; //%%5755
};
SET BMP=$SBARDIR\GENERAL\MENUS\OPEN.BMP{
SET TXT=$SBARDIR\BAR\CLOSEUP\BACF\BANF2.TXT COLOR 2 AS CAPTION; //%%5407
RUN EXPR=RPL3_ALIAS(TURNCOUNT);
};
};
// COMBINATION LOCK-1ST DIGIT
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3A.BMP^L3UP1[244,169]+2%1{
RUN EXPR=TEMP(L3DIAL1~~STATE);
RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
IF (TEMP==9)
RUN EXPR=L3DIAL1~~STATE(0);
ELSE
RUN EXPR=L3DIAL1~~STATE(L3DIAL1~~STATE+1);
ENDIF
RUN COMMAND=UPDATE;
};
SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2A.BMP^L3DIAL1[245,197]+10NOANIM*0;
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4A.BMP^L3DN1[243,233]+2%1{
RUN EXPR=TEMP(L3DIAL1~~STATE);
RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
IF (TEMP==0)
RUN EXPR=L3DIAL1~~STATE(9);
ELSE
RUN EXPR=L3DIAL1~~STATE( L3DIAL1~~STATE - 1 );
ENDIF
RUN COMMAND=UPDATE;
};
// 2ND DIGIT
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3B.BMP^L3UP2[269,169]+2%1{
RUN EXPR=TEMP(L3DIAL2~~STATE);
RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
IF (TEMP==9)
RUN EXPR=L3DIAL2~~STATE(0);
ELSE
RUN EXPR=L3DIAL2~~STATE(L3DIAL2~~STATE+1);
ENDIF
RUN COMMAND=UPDATE;
};
SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2B.BMP^L3DIAL2[268,197]+10NOANIM*0;
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4B.BMP^L3DN2[268,233]+2%1{
RUN EXPR=TEMP(L3DIAL2~~STATE);
RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
IF (TEMP==0)
RUN EXPR=L3DIAL2~~STATE(9);
ELSE
RUN EXPR=L3DIAL2~~STATE( L3DIAL2~~STATE - 1 );
ENDIF
RUN COMMAND=UPDATE;
};
// 3RD DIGIT
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3C.BMP^L3UP3[293,169]+2%1{
RUN EXPR=TEMP(L3DIAL3~~STATE);
RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
IF (TEMP==9)
RUN EXPR=L3DIAL3~~STATE(0);
ELSE
RUN EXPR=L3DIAL3~~STATE( L3DIAL3~~STATE + 1 );
ENDIF
RUN COMMAND=UPDATE;
};
SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2C.BMP^L3DIAL3[291,197]+10NOANIM*0;
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4C.BMP^L3DN3[292,233]+2%1{
RUN EXPR=TEMP(L3DIAL3~~STATE);
RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
IF (TEMP==0)
RUN EXPR=L3DIAL3~~STATE(9);
ELSE
RUN EXPR=L3DIAL3~~STATE( L3DIAL3~~STATE - 1 );
ENDIF
RUN COMMAND=UPDATE;
};
// 4TH DIGIT
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3D.BMP^L3UP4[317,169]+2%1{
RUN EXPR=TEMP(L3DIAL4~~STATE);
RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
IF (TEMP==9)
RUN EXPR=L3DIAL4~~STATE(0);
ELSE
RUN EXPR=L3DIAL4~~STATE( L3DIAL4~~STATE + 1 );
ENDIF
RUN COMMAND=UPDATE;
};
SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2D.BMP^L3DIAL4[314,197]+10NOANIM*0;
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4D.BMP^L3DN4[316,233]+2%1{
RUN EXPR=TEMP(L3DIAL4~~STATE);
RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
IF (TEMP==0)
RUN EXPR=L3DIAL4~~STATE(9);
ELSE
RUN EXPR=L3DIAL4~~STATE( L3DIAL4~~STATE - 1 );
ENDIF
RUN COMMAND=UPDATE;
};
}
// LOCKER 4 CLOSEUP - OCCUPIED THROUGHOUT THE WHOLE GAME
SDEV BANF4_WLD AS CLOSEUP{
SET BKG=$SBARDIR\BAR\CLOSEUP\BACF\BACF.BMP;
// This is a looping background sound that stops on exit
RUN EXPR=ENTRYBANF4~~VOLUME(5);
RUN SND=$SBARDIR\BAR\EVENTS\ENTRY.WAV^ENTRYBANF4 LOOP 0 AS MIX SOUNDOVEROK;
SET BMP=$SBARDIR\BAR\CLOSEUP\BACF\BANF1.BMP^DOOROPEN[0,0];
// LOCKER NUMBER
SET BMP=$SBARDIR\BAR\CLOSEUP\BACF\BANL.BMP[318,261];
// LOCKER STATUS - AVAILABLE/IN-USE
SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF5.BMP[152,277]+2NOANIM*0;
SET ARE=HANDLE[94,0,383,258]%1{
SET TXT = locker COLOR 2 AS TITLE; //%%5519
SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
SET TXT=$SBARDIR\BAR\CLOSEUP\BACF\BANTAKE.TXT COLOR 2 AS CAPTION; //%%5521
};
SET BMP=$SBARDIR\GENERAL\MENUS\OPEN.BMP{
SET TXT=$SBARDIR\BAR\CLOSEUP\BACF\BANF2.TXT COLOR 2 AS CAPTION; //%%5524
RUN EXPR=RPL4_ALIAS(TURNCOUNT);
};
};
// COMBINATION LOCK-1ST DIGIT
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3A.BMP^L4UP1[244,169]+2%1{
RUN EXPR=TEMP(L4DIAL1~~STATE);
RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
IF (TEMP==9)
RUN EXPR=L4DIAL1~~STATE(0);
ELSE
RUN EXPR=L4DIAL1~~STATE(L4DIAL1~~STATE+1);
ENDIF
RUN COMMAND=UPDATE;
};
SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2A.BMP^L4DIAL1[245,197]+10NOANIM*0;
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4A.BMP^L4DN1[243,233]+2%1{
RUN EXPR=TEMP(L4DIAL1~~STATE);
RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
IF (TEMP==0)
RUN EXPR=L4DIAL1~~STATE(9);
ELSE
RUN EXPR=L4DIAL1~~STATE( L4DIAL1~~STATE - 1 );
ENDIF
RUN COMMAND=UPDATE;
};
// 2ND DIGIT
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3B.BMP^L4UP2[269,169]+2%1{
RUN EXPR=TEMP(L4DIAL2~~STATE);
RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
IF (TEMP==9)
RUN EXPR=L4DIAL2~~STATE(0);
ELSE
RUN EXPR=L4DIAL2~~STATE(L4DIAL2~~STATE+1);
ENDIF
RUN COMMAND=UPDATE;
};
SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2B.BMP^L4DIAL2[268,197]+10NOANIM*0;
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4B.BMP^L4DN2[268,233]+2%1{
RUN EXPR=TEMP(L4DIAL2~~STATE);
RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
IF (TEMP==0)
RUN EXPR=L4DIAL2~~STATE(9);
ELSE
RUN EXPR=L4DIAL2~~STATE( L4DIAL2~~STATE - 1 );
ENDIF
RUN COMMAND=UPDATE;
};
// 3RD DIGIT
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3C.BMP^L4UP3[293,169]+2%1{
RUN EXPR=TEMP(L4DIAL3~~STATE);
RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
IF (TEMP==9)
RUN EXPR=L4DIAL3~~STATE(0);
ELSE
RUN EXPR=L4DIAL3~~STATE( L4DIAL3~~STATE + 1 );
ENDIF
RUN COMMAND=UPDATE;
};
SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2C.BMP^L4DIAL3[291,197]+10NOANIM*0;
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4C.BMP^L4DN3[292,233]+2%1{
RUN EXPR=TEMP(L4DIAL3~~STATE);
RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
IF (TEMP==0)
RUN EXPR=L4DIAL3~~STATE(9);
ELSE
RUN EXPR=L4DIAL3~~STATE( L4DIAL3~~STATE - 1 );
ENDIF
RUN COMMAND=UPDATE;
};
// 4TH DIGIT
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3D.BMP^L4UP4[317,169]+2%1{
RUN EXPR=TEMP(L4DIAL4~~STATE);
RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
IF (TEMP==9)
RUN EXPR=L4DIAL4~~STATE(0);
ELSE
RUN EXPR=L4DIAL4~~STATE( L4DIAL4~~STATE + 1 );
ENDIF
RUN COMMAND=UPDATE;
};
SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2D.BMP^L4DIAL4[314,197]+10NOANIM*0;
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4D.BMP^L4DN4[316,233]+2%1{
RUN EXPR=TEMP(L4DIAL4~~STATE);
RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
IF (TEMP==0)
RUN EXPR=L4DIAL4~~STATE(9);
ELSE
RUN EXPR=L4DIAL4~~STATE( L4DIAL4~~STATE - 1 );
ENDIF
RUN COMMAND=UPDATE;
};
}
// LOCKER 5 CLOSEUP - OCCUPIED THROUGHOUT THE WHOLE GAME
SDEV BANF5_WLD AS CLOSEUP{
SET BKG=$SBARDIR\BAR\CLOSEUP\BACF\BACF.BMP;
// This is a looping background sound that stops on exit
RUN EXPR=ENTRYBANF5~~VOLUME(5);
RUN SND=$SBARDIR\BAR\EVENTS\ENTRY.WAV^ENTRYBANF5 LOOP 0 AS MIX SOUNDOVEROK;
SET BMP=$SBARDIR\BAR\CLOSEUP\BACF\BANF1.BMP^DOOROPEN[0,0];
// LOCKER NUMBER
SET BMP=$SBARDIR\BAR\CLOSEUP\BACF\BANM.BMP[318,261];
// LOCKER STATUS - AVAILABLE/IN-USE
SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF5.BMP[152,277]+2NOANIM*0;
SET ARE=HANDLE[94,0,383,258]%1{
SET TXT = locker COLOR 2 AS TITLE; //%%5636
SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
SET TXT=$SBARDIR\BAR\CLOSEUP\BACF\BANTAKE.TXT COLOR 2 AS CAPTION; //%%5638
};
SET BMP=$SBARDIR\GENERAL\MENUS\OPEN.BMP{
SET TXT=$SBARDIR\BAR\CLOSEUP\BACF\BANF2.TXT COLOR 2 AS CAPTION; //%%5641
RUN EXPR=RPL5_ALIAS(TURNCOUNT);
};
};
// COMBINATION LOCK-1ST DIGIT
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3A.BMP^L5UP1[244,169]+2%1{
RUN EXPR=TEMP(L5DIAL1~~STATE);
RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
IF (TEMP==9)
RUN EXPR=L5DIAL1~~STATE(0);
ELSE
RUN EXPR=L5DIAL1~~STATE(L5DIAL1~~STATE+1);
ENDIF
RUN COMMAND=UPDATE;
};
SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2A.BMP^L5DIAL1[245,197]+10NOANIM*0;
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4A.BMP^L5DN1[243,233]+2%1{
RUN EXPR=TEMP(L5DIAL1~~STATE);
RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
IF (TEMP==0)
RUN EXPR=L5DIAL1~~STATE(9);
ELSE
RUN EXPR=L5DIAL1~~STATE( L5DIAL1~~STATE - 1 );
ENDIF
RUN COMMAND=UPDATE;
};
// 2ND DIGIT
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3B.BMP^L5UP2[269,169]+2%1{
RUN EXPR=TEMP(L5DIAL2~~STATE);
RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
IF (TEMP==9)
RUN EXPR=L5DIAL2~~STATE(0);
ELSE
RUN EXPR=L5DIAL2~~STATE(L5DIAL2~~STATE+1);
ENDIF
RUN COMMAND=UPDATE;
};
SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2B.BMP^L5DIAL2[268,197]+10NOANIM*0;
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4B.BMP^L5DN2[268,233]+2%1{
RUN EXPR=TEMP(L5DIAL2~~STATE);
RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
IF (TEMP==0)
RUN EXPR=L5DIAL2~~STATE(9);
ELSE
RUN EXPR=L5DIAL2~~STATE( L5DIAL2~~STATE - 1 );
ENDIF
RUN COMMAND=UPDATE;
};
// 3RD DIGIT
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3C.BMP^L5UP3[293,169]+2%1{
RUN EXPR=TEMP(L5DIAL3~~STATE);
RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
IF (TEMP==9)
RUN EXPR=L5DIAL3~~STATE(0);
ELSE
RUN EXPR=L5DIAL3~~STATE( L5DIAL3~~STATE + 1 );
ENDIF
RUN COMMAND=UPDATE;
};
SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2C.BMP^L5DIAL3[291,197]+10NOANIM*0;
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4C.BMP^L5DN3[292,233]+2%1{
RUN EXPR=TEMP(L5DIAL3~~STATE);
RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
IF (TEMP==0)
RUN EXPR=L5DIAL3~~STATE(9);
ELSE
RUN EXPR=L5DIAL3~~STATE( L5DIAL3~~STATE - 1 );
ENDIF
RUN COMMAND=UPDATE;
};
// 4TH DIGIT
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3D.BMP^L5UP4[317,169]+2%1{
RUN EXPR=TEMP(L5DIAL4~~STATE);
RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
IF (TEMP==9)
RUN EXPR=L5DIAL4~~STATE(0);
ELSE
RUN EXPR=L5DIAL4~~STATE( L5DIAL4~~STATE + 1 );
ENDIF
RUN COMMAND=UPDATE;
};
SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2D.BMP^L5DIAL4[314,197]+10NOANIM*0;
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4D.BMP^L5DN4[316,233]+2%1{
RUN EXPR=TEMP(L5DIAL4~~STATE);
RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
IF (TEMP==0)
RUN EXPR=L5DIAL4~~STATE(9);
ELSE
RUN EXPR=L5DIAL4~~STATE( L5DIAL4~~STATE - 1 );
ENDIF
RUN COMMAND=UPDATE;
};
}
// LOCKER 6 CLOSEUP - OCCUPIED THROUGHOUT THE WHOLE GAME
SDEV BANF6_WLD AS CLOSEUP{
SET BKG=$SBARDIR\BAR\CLOSEUP\BACF\BACF.BMP;
// This is a looping background sound that stops on exit
RUN EXPR=ENTRYBANF6~~VOLUME(5);
RUN SND=$SBARDIR\BAR\EVENTS\ENTRY.WAV^ENTRYBANF6 LOOP 0 AS MIX SOUNDOVEROK;
SET BMP=$SBARDIR\BAR\CLOSEUP\BACF\BANF1.BMP^DOOROPEN[0,0];
// LOCKER NUMBER
SET BMP=$SBARDIR\BAR\CLOSEUP\BACF\BANN.BMP[318,261];
// LOCKER STATUS - AVAILABLE/IN-USE
SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF5.BMP[152,277]+2NOANIM*0;
SET ARE=HANDLE[94,0,383,258]%1{
SET TXT = locker COLOR 2 AS TITLE; //%%5753
SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
SET TXT=$SBARDIR\BAR\CLOSEUP\BACF\BANTAKE.TXT COLOR 2 AS CAPTION; //%%5755
};
SET BMP=$SBARDIR\GENERAL\MENUS\OPEN.BMP{
SET TXT=$SBARDIR\BAR\CLOSEUP\BACF\BANF2.TXT COLOR 2 AS CAPTION; //%%5758
RUN EXPR=RPL6_ALIAS(TURNCOUNT);
};
};
// COMBINATION LOCK-1ST DIGIT
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3A.BMP^L6UP1[244,169]+2%1{
RUN EXPR=TEMP(L6DIAL1~~STATE);
RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
IF (TEMP==9)
RUN EXPR=L6DIAL1~~STATE(0);
ELSE
RUN EXPR=L6DIAL1~~STATE(L6DIAL1~~STATE+1);
ENDIF
RUN COMMAND=UPDATE;
};
SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2A.BMP^L6DIAL1[245,197]+10NOANIM*0;
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4A.BMP^L6DN1[243,233]+2%1{
RUN EXPR=TEMP(L6DIAL1~~STATE);
RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
IF (TEMP==0)
RUN EXPR=L6DIAL1~~STATE(9);
ELSE
RUN EXPR=L6DIAL1~~STATE( L6DIAL1~~STATE - 1 );
ENDIF
RUN COMMAND=UPDATE;
};
// 2ND DIGIT
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3B.BMP^L6UP2[269,169]+2%1{
RUN EXPR=TEMP(L6DIAL2~~STATE);
RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
IF (TEMP==9)
RUN EXPR=L6DIAL2~~STATE(0);
ELSE
RUN EXPR=L6DIAL2~~STATE(L6DIAL2~~STATE+1);
ENDIF
RUN COMMAND=UPDATE;
};
SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2B.BMP^L6DIAL2[268,197]+10NOANIM*0;
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4B.BMP^L6DN2[268,233]+2%1{
RUN EXPR=TEMP(L6DIAL2~~STATE);
RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
IF (TEMP==0)
RUN EXPR=L6DIAL2~~STATE(9);
ELSE
RUN EXPR=L6DIAL2~~STATE( L6DIAL2~~STATE - 1 );
ENDIF
RUN COMMAND=UPDATE;
};
// 3RD DIGIT
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3C.BMP^L6UP3[293,169]+2%1{
RUN EXPR=TEMP(L6DIAL3~~STATE);
RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
IF (TEMP==9)
RUN EXPR=L6DIAL3~~STATE(0);
ELSE
RUN EXPR=L6DIAL3~~STATE( L6DIAL3~~STATE + 1 );
ENDIF
RUN COMMAND=UPDATE;
};
SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2C.BMP^L6DIAL3[291,197]+10NOANIM*0;
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4C.BMP^L6DN3[292,233]+2%1{
RUN EXPR=TEMP(L6DIAL3~~STATE);
RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
IF (TEMP==0)
RUN EXPR=L6DIAL3~~STATE(9);
ELSE
RUN EXPR=L6DIAL3~~STATE( L6DIAL3~~STATE - 1 );
ENDIF
RUN COMMAND=UPDATE;
};
// 4TH DIGIT
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF3D.BMP^L6UP4[317,169]+2%1{
RUN EXPR=TEMP(L6DIAL4~~STATE);
RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
IF (TEMP==9)
RUN EXPR=L6DIAL4~~STATE(0);
ELSE
RUN EXPR=L6DIAL4~~STATE( L6DIAL4~~STATE + 1 );
ENDIF
RUN COMMAND=UPDATE;
};
SET SPR=$SBARDIR\BAR\CLOSEUP\BACF\BANF2D.BMP^L6DIAL4[314,197]+10NOANIM*0;
SET BUT=$SBARDIR\BAR\CLOSEUP\BACF\BANF4D.BMP^L6DN4[316,233]+2%1{
RUN EXPR=TEMP(L6DIAL4~~STATE);
RUN SND=$SBARDIR\BAR\EVENTS\CLICK.WAV AS MIX;
IF (TEMP==0)
RUN EXPR=L6DIAL4~~STATE(9);
ELSE
RUN EXPR=L6DIAL4~~STATE( L6DIAL4~~STATE - 1 );
ENDIF
RUN COMMAND=UPDATE;
};
}
// Hack to close Advertising Panel after leaving CloseUp
SDEV BANACLOSE_WLD AS CLOSEUP{
SET BKG=$SBARDIR\BAR\CLOSEUP\BACA\BACA.BMP;
// SCROLLING TEXT FOR SIGN PANEL -- can't make it match open closeup, so removed it - bar 12-18-96
SET TNG=$SBARDIR\BAR\CLOSEUP\BACA\BACA.SMK^SIGNOPEN3 LOOP 0 IS MODAL[145,190]%1;
RUN EXPR=SIGNOPEN3~~CURR_FRAME(1);
IF (SIGNDOOR1 == OPEN)
RUN SND=$SBARDIR\BAR\CLOSEUP\BACA\BANACLC1.WAV AS WAITMIX;
ENDIF
RUN COMMAND = CLOSE;
}
// COMPUTER TERMINAL-FULL SCREEN CLOSEUP
SDEV BANDA_WLD AS FULLSCREEN2 {
SET BKG=$SBARDIR\BAR\CLOSEUP\BACD\BACD.BMP;
// This is a looping background sound that stops on exit
RUN EXPR = ENTRYBANDA~~VOLUME( 5 );
RUN SND = $SBARDIR\BAR\EVENTS\ENTRY.WAV^ENTRYBANDA LOOP 0 AS MIX SOUNDOVEROK;
// CURSOR FIX
SET ARE=NOTHING[0,0,480,360];
// DEMO: Computer terminal begins the game working - removed code to make the terminal broken
IF (CT_MODE == MAINMENU)
SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND01.BMP[66,36,571,410];
SET ARE=NOTHING[66,36,571,410];
SET ARE=RACES[146,249,476,278]%1{
RUN EXPR=CT_MODE(RACEMENU);
};
SET ARE=PLANETS[146,288,476,317]%1{
RUN EXPR=CT_MODE(PLANETMENU);
};
SET ARE=MOVIES[146,327,476,356]%1{
RUN EXPR=CT_MODE(MOVIEMENU);
};
SET ARE=ABOUT[146,365,476,395]%1{
RUN EXPR=CT_MODE(ABOUTMENU);
};
SET BUT=$SBARDIR\BAR\CLOSEUP\BACD\BAND00.BMP[10,445]+2 %1{
RUN COMMAND=CLOSE;
};
ENDIF
IF (CT_MODE == RACEMENU)
SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND02.BMP[67,45,571,418];
SET ARE=NOTHING[67,45,571,418];
SET ARE=AKROMAKI[94,81,234,103]%1 {
RUN EXPR=CT_PAGE(1);
RUN EXPR=CT_MODE(SUBMENU);
RUN EXPR=CT_SUB_MODE(AKRO);
};
SET ARE=AUDITON[94,112,234,134] %1 {
RUN EXPR=CT_PAGE(1);
RUN EXPR=CT_MODE(SUBMENU);
RUN EXPR=CT_SUB_MODE(AUD);
};
SET ARE=BLOB[94,143,234,165]%1 {
RUN EXPR=CT_PAGE(1);
RUN EXPR=CT_MODE(SUBMENU);
RUN EXPR=CT_SUB_MODE(BLOB);
};
SET ARE=FRUF[94,174,234,196]%1 {
RUN EXPR=CT_PAGE(1);
RUN EXPR=CT_MODE(SUBMENU);
RUN EXPR=CT_SUB_MODE(FRUF);
};
SET ARE=HUMAN[94,205,234,227]%1 {
RUN EXPR=CT_PAGE(1);
RUN EXPR=CT_MODE(SUBMENU);
RUN EXPR=CT_SUB_MODE(HUM);
};
SET ARE=KURPUPU[94,236,234,258]%1 {
RUN EXPR = KERPUPUINFO( TRUE );
RUN EXPR=CT_PAGE(1);
RUN EXPR=CT_MODE(SUBMENU);
RUN EXPR=CT_SUB_MODE(KUR);
};
SET ARE=MARM[244,81,383,103] %1 {
RUN EXPR=CT_PAGE(1);
RUN EXPR=CT_MODE(SUBMENU);
RUN EXPR=CT_SUB_MODE(MARM);
};
SET ARE=MOLAS[244,112,383,134]%1 {
RUN EXPR=CT_PAGE(1);
RUN EXPR=CT_MODE(SUBMENU);
RUN EXPR=CT_SUB_MODE(MOLAS);
};
SET ARE=MYTOS[244,143,383,165]%1 {
RUN EXPR=CT_PAGE(1);
RUN EXPR=CT_MODE(SUBMENU);
RUN EXPR=CT_SUB_MODE(MYTOS);
};
SET ARE=NAPTH[244,174,383,196]%1 {
RUN EXPR=CT_PAGE(1);
RUN EXPR=CT_MODE(SUBMENU);
RUN EXPR=CT_SUB_MODE(NAPTH);
};
SET ARE=NEBLITZ[244,205,383,227] %1 {
RUN EXPR=CT_PAGE(1);
RUN EXPR=CT_MODE(SUBMENU);
RUN EXPR=CT_SUB_MODE(NEB);
};
SET ARE=OYLEE[244,236,383,258]%1 {
RUN EXPR=CT_PAGE(1);
RUN EXPR=CT_SUB_MODE(OYLEE);
RUN EXPR=CT_MODE(SUBMENU);
};
SET ARE=SALIV[244,267,383,289] %1 {
RUN EXPR=CT_PAGE(1);
RUN EXPR=CT_MODE(SUBMENU);
RUN EXPR=CT_SUB_MODE(SAL);
};
SET ARE=SRAFFA[394,81,533,103] %1 {
RUN EXPR=CT_PAGE(1);
RUN EXPR=CT_MODE(SUBMENU);
RUN EXPR=CT_SUB_MODE(SRAF);
};
SET ARE=TRISECK[394,112,533,134] %1 {
RUN EXPR=CT_PAGE(1);
RUN EXPR=CT_MODE(SUBMENU);
RUN EXPR=CT_SUB_MODE(TRI);
};
SET ARE=VEDJ[404,143,534,165] %1 {
RUN EXPR=CT_PAGE(1);
RUN EXPR=CT_MODE(SUBMENU);
RUN EXPR=CT_SUB_MODE(VEDJ);
};
SET ARE=VILDROID[404,174,534,196] %1 {
RUN EXPR=CT_PAGE(1);
RUN EXPR=CT_MODE(SUBMENU);
RUN EXPR=CT_SUB_MODE(VILD);
};
SET ARE=WISP[394,205,533,227]%1 {
RUN EXPR=CT_PAGE(1);
RUN EXPR=CT_MODE(SUBMENU);
RUN EXPR=CT_SUB_MODE(WISP);
};
SET ARE=ZZAZZL[394,236,533,258] %1 {
RUN EXPR=CT_PAGE(1);
RUN EXPR=CT_MODE(SUBMENU);
RUN EXPR=CT_SUB_MODE(ZZAZZ);
};
SET BUT=$SBARDIR\BAR\CLOSEUP\BACD\BAND07.BMP^L6DN4[10,445]+2%1{
RUN EXPR=CT_MODE(MAINMENU);
};
ENDIF
IF (CT_MODE == SUBMENU)
IF (CT_SUB_MODE == AUD)
RUN EXPR=CT_LASTPAGE(6)
SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND08.BMP[50,95,249,319];
IF (CT_PAGE == 1)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND08A.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6121
ENDIF
IF (CT_PAGE == 2)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND08B.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6124
ENDIF
IF (CT_PAGE == 3)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND08C.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6127
ENDIF
IF (CT_PAGE == 4)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND08D.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6130
ENDIF
IF (CT_PAGE == 5)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND08E.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6133
ENDIF
IF (CT_PAGE == 6)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND08F.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6136
ENDIF
SET VAR=AUD_LAST[215,380,250,395];
SET VAR=AUD_TIMES[470,380,520,395];
ENDIF
IF (CT_SUB_MODE == SAL)
RUN EXPR=CT_LASTPAGE(5)
SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND09.BMP[50,95,249,319];
IF (CT_PAGE == 1)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND09A.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6145
ENDIF
IF (CT_PAGE == 2)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND09B.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6148
ENDIF
IF (CT_PAGE == 3)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND09C.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6151
ENDIF
IF (CT_PAGE == 4)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND09D.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6154
ENDIF
IF (CT_PAGE == 5)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND09E.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6157
ENDIF
SET VAR=SAL_LAST[215,380,250,395];
SET VAR=SAL_TIMES[470,380,520,395];
ENDIF
IF (CT_SUB_MODE == NEB)
RUN EXPR=CT_LASTPAGE(9)
SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND10.BMP[50,95,249,319];
IF (CT_PAGE == 1)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND10A.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6166
ENDIF
IF (CT_PAGE == 2)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND10B.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6169
ENDIF
IF (CT_PAGE == 3)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND10C.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6172
ENDIF
IF (CT_PAGE == 4)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND10D.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6175
ENDIF
IF (CT_PAGE == 5)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND10E.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6178
ENDIF
IF (CT_PAGE == 6)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND10F.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6181
ENDIF
IF (CT_PAGE == 7)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND10G.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6184
ENDIF
IF (CT_PAGE == 8)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND10H.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6187
ENDIF
IF (CT_PAGE == 9)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND10I.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6190
ENDIF
SET VAR=NEB_LAST[215,380,250,395];
SET VAR=NEB_TIMES[470,380,520,395];
ENDIF
IF (CT_SUB_MODE == SRAF)
RUN EXPR=CT_LASTPAGE(9)
SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND11.BMP[50,95,249,319];
IF (CT_PAGE == 1)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND11A.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6199
ENDIF
IF (CT_PAGE == 2)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND11B.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6202
ENDIF
IF (CT_PAGE == 3)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND11C.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6205
ENDIF
IF (CT_PAGE == 4)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND11D.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6208
ENDIF
IF (CT_PAGE == 5)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND11E.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6211
ENDIF
IF (CT_PAGE == 6)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND11F.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6214
ENDIF
IF (CT_PAGE == 7)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND11G.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6217
ENDIF
IF (CT_PAGE == 8)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND11H.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6220
ENDIF
IF (CT_PAGE == 9)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND11I.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6223
ENDIF
SET VAR=SRAF_LAST[215,380,250,395];
SET VAR=SRAF_TIMES[470,380,520,395];
ENDIF
IF (CT_SUB_MODE == TRI)
RUN EXPR=CT_LASTPAGE(13)
IF (CT_PAGE == 1)
SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND14.BMP[50,95,249,319];
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND12A.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6232
ENDIF
IF (CT_PAGE == 2)
SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND14.BMP[50,95,249,319];
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND12B.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6236
ENDIF
IF (CT_PAGE == 3)
SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND13.BMP[50,95,249,319];
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND12C.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6240
ENDIF
IF (CT_PAGE == 4)
SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND14.BMP[50,95,249,319];
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND12D.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6244
ENDIF
IF (CT_PAGE == 5)
SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND12.BMP[50,95,249,319];
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND12E.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6248
ENDIF
IF (CT_PAGE == 6)
SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND14.BMP[50,95,249,319];
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND12F.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6252
ENDIF
IF (CT_PAGE == 7)
SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND12.BMP[50,95,249,319];
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND12G.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6256
ENDIF
IF (CT_PAGE == 8)
SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND13.BMP[50,95,249,319];
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND12H.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6260
ENDIF
IF (CT_PAGE == 9)
SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND12.BMP[50,95,249,319];
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND12I.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6264
ENDIF
IF (CT_PAGE == 10)
SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND14.BMP[50,95,249,319];
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND12J.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6268
ENDIF
IF (CT_PAGE == 11)
SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND14.BMP[50,95,249,319];
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND12K.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6272
ENDIF
IF (CT_PAGE == 12)
SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND14.BMP[50,95,249,319];
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND12L.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6276
ENDIF
IF (CT_PAGE == 13)
SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND14.BMP[50,95,249,319];
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND12M.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6280
ENDIF
SET VAR=TRI_LAST[215,380,250,395];
SET VAR=TRI_TIMES[470,380,520,395];
ENDIF
IF (CT_SUB_MODE == VEDJ)
RUN EXPR=CT_LASTPAGE(5)
SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND15.BMP[50,95,249,319];
IF (CT_PAGE == 1)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND15A.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6289
ENDIF
IF (CT_PAGE == 2)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND15B.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6292
ENDIF
IF (CT_PAGE == 3)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND15C.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6295
ENDIF
IF (CT_PAGE == 4)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND15D.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6298
ENDIF
IF (CT_PAGE == 5)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND15E.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6301
ENDIF
SET VAR=VEDJ_LAST[215,380,250,395];
SET VAR=VEDJ_TIMES[470,380,520,395];
ENDIF
IF (CT_SUB_MODE == VILD)
RUN EXPR=CT_LASTPAGE(8)
SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND16.BMP[50,95,249,319];
IF (CT_PAGE == 1)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND16A.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6310
ENDIF
IF (CT_PAGE == 2)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND16B.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6313
ENDIF
IF (CT_PAGE == 3)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND16C.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6316
ENDIF
IF (CT_PAGE == 4)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND16D.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6319
ENDIF
IF (CT_PAGE == 5)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND16E.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6322
ENDIF
IF (CT_PAGE == 6)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND16F.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6325
ENDIF
IF (CT_PAGE == 7)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND16G.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6328
ENDIF
IF (CT_PAGE == 8)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND16H.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6331
ENDIF
SET VAR=VILD_LAST[215,380,250,395];
SET VAR=VILD_TIMES[470,380,520,395];
ENDIF
IF (CT_SUB_MODE == ZZAZZ)
RUN EXPR=CT_LASTPAGE(7)
SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND17.BMP[50,95,249,319];
IF (CT_PAGE == 1)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND17A.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6340
ENDIF
IF (CT_PAGE == 2)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND17B.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6343
ENDIF
IF (CT_PAGE == 3)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND17C.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6346
ENDIF
IF (CT_PAGE == 4)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND17D.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6349
ENDIF
IF (CT_PAGE == 5)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND17E.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6352
ENDIF
IF (CT_PAGE == 6)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND17F.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6355
ENDIF
IF (CT_PAGE == 7)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND17G.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6358
ENDIF
SET VAR=ZZAZZ_LAST[215,380,250,395];
SET VAR=ZZAZZ_TIMES[470,380,520,395];
ENDIF
IF (CT_SUB_MODE == MARM)
RUN EXPR=CT_LASTPAGE(4)
SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND18.BMP[50,95,249,319];
IF (CT_PAGE == 1)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND18A.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6367
ENDIF
IF (CT_PAGE == 2)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND18B.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6370
ENDIF
IF (CT_PAGE == 3)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND18C.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6373
ENDIF
IF (CT_PAGE == 4)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND18D.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6376
ENDIF
SET VAR=MARM_LAST[215,380,250,395];
SET VAR=MARM_TIMES[470,380,520,395];
ENDIF
IF (CT_SUB_MODE == KUR)
RUN EXPR=CT_LASTPAGE(9)
SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND19.BMP[50,95,249,319];
IF (CT_PAGE == 1)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND19A.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6385
ENDIF
IF (CT_PAGE == 2)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND19B.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6388
ENDIF
IF (CT_PAGE == 3)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND19C.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6391
ENDIF
IF (CT_PAGE == 4)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND19D.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6394
ENDIF
IF (CT_PAGE == 5)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND19E.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6397
ENDIF
IF (CT_PAGE == 6)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND19F.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6400
ENDIF
IF (CT_PAGE == 7)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND19G.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6403
ENDIF
IF (CT_PAGE == 8)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND19H.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6406
ENDIF
IF (CT_PAGE == 9)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND19I.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6406
ENDIF
SET VAR=KUR_LAST[215,380,250,395];
SET VAR=KUR_TIMES[470,380,520,395];
ENDIF
IF (CT_SUB_MODE == NAPTH)
RUN EXPR=CT_LASTPAGE(2)
SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND20.BMP[50,95,249,319];
IF (CT_PAGE == 1)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND20A.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6415
ENDIF
IF (CT_PAGE == 2)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND20B.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6418
ENDIF
SET VAR=NAPTH_LAST[215,380,250,395];
SET VAR=NAPTH_TIMES[470,380,520,395];
ENDIF
IF (CT_SUB_MODE == WISP)
RUN EXPR=CT_LASTPAGE(2)
SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND21.BMP[50,95,249,319];
IF (CT_PAGE == 1)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND21A.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6427
ENDIF
IF (CT_PAGE == 2)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND21B.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6430
ENDIF
SET VAR=WISP_LAST[215,380,250,395];
SET VAR=WISP_TIMES[470,380,520,395];
ENDIF
IF (CT_SUB_MODE == MOLAS)
RUN EXPR=CT_LASTPAGE(1)
SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND22.BMP[50,95,249,319];
IF (CT_PAGE == 1)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND22A.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6439
ENDIF
SET VAR=MOLAS_LAST[215,380,250,395];
SET VAR=MOLAS_TIMES[470,380,520,395];
ENDIF
IF (CT_SUB_MODE == BLOB)
RUN EXPR=CT_LASTPAGE(5)
SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND23.BMP[50,95,249,319];
IF (CT_PAGE == 1)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND23A.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6448
ENDIF
IF (CT_PAGE == 2)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND23B.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6451
ENDIF
IF (CT_PAGE == 3)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND23C.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6454
ENDIF
IF (CT_PAGE == 4)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND23D.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6457
ENDIF
IF (CT_PAGE == 5)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND23E.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6460
ENDIF
SET VAR=BLOB_LAST[215,380,250,395];
SET VAR=BLOB_TIMES[470,380,520,395];
ENDIF
IF (CT_SUB_MODE == MYTOS)
RUN EXPR=CT_LASTPAGE(1)
SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND24.BMP[50,95,249,319];
IF (CT_PAGE == 1)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND24A.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6469
ENDIF
SET VAR=MYTOS_LAST[215,380,250,395];
SET VAR=MYTOS_TIMES[470,380,520,395];
ENDIF
IF (CT_SUB_MODE == FRUF)
RUN EXPR=CT_LASTPAGE(2)
SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND25.BMP[50,95,249,319];
IF (CT_PAGE == 1)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND25A.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6478
ENDIF
IF (CT_PAGE == 2)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND25B.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6481
ENDIF
SET VAR=FRUF_LAST[215,380,250,395];
SET VAR=FRUF_TIMES[470,380,520,395];
ENDIF
IF (CT_SUB_MODE == OYLEE)
RUN EXPR=CT_LASTPAGE(2)
SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND26.BMP[50,95,249,319];
IF (CT_PAGE == 1)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND26A.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6490
ENDIF
IF (CT_PAGE == 2)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND26B.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6493
ENDIF
SET VAR=OYLEE_LAST[215,380,250,395];
SET VAR=OYLEE_TIMES[470,380,520,395];
ENDIF
IF (CT_SUB_MODE == AKRO)
RUN EXPR=CT_LASTPAGE(2)
SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND27.BMP[50,95,249,319];
IF (CT_PAGE == 1)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND27A.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6502
ENDIF
IF (CT_PAGE == 2)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND27B.TXT[300,80,560,400] SIZE 16 AS TITLE; //%%6505
ENDIF
SET VAR=AKRO_LAST[215,380,250,395];
SET VAR=AKRO_TIMES[470,380,520,395];
ENDIF
IF (CT_SUB_MODE == HUM)
RUN EXPR=CT_LASTPAGE(5)
SET BMP=$SBARDIR\BAR\CLOSEUP\BACD\BAND28.BMP[50,95,249,319];
IF (CT_PAGE == 1)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND28A.TXT[300,80,560,400] SIZE 16 AS TITLE %1; //%%6514
ENDIF
IF (CT_PAGE == 2)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND28B.TXT[300,80,560,400] SIZE 16 AS TITLE %1; //%%6517
ENDIF
IF (CT_PAGE == 3)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND28C.TXT[300,80,560,400] SIZE 16 AS TITLE %1; //%%6520
ENDIF
IF (CT_PAGE == 4)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND28D.TXT[300,80,560,400] SIZE 16 AS TITLE %1; //%%6523
ENDIF
IF (CT_PAGE == 5)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BAND28E.TXT[300,80,560,400] SIZE 16 AS TITLE %1; //%%6526
ENDIF
SET VAR=HUM_LAST[215,380,250,395];
SET VAR=HUM_TIMES[470,380,520,395];
ENDIF
SET TXT=LAST_ACCESSED[100,380,210,400] AS TITLE; //%%6531
SET TXT=NUMBER_OF_TIMES_ACCESSED[280,380,400,400] AS TITLE; //%%6532
IF (CT_PAGE < CT_LASTPAGE )
SET BUT=$SBARDIR\BAR\CLOSEUP\BACD\BAND05.BMP[430,445]+2%1{
RUN EXPR=CT_PAGE( CT_PAGE + 1 );
RUN COMMAND=UPDATE;
};
ENDIF
IF (CT_PAGE > 1)
SET BUT=$SBARDIR\BAR\CLOSEUP\BACD\BAND06.BMP[220,445]+2%1{
RUN EXPR=CT_PAGE( CT_PAGE - 1 );
RUN COMMAND=UPDATE;
};
ENDIF
SET BUT=$SBARDIR\BAR\CLOSEUP\BACD\BAND07.BMP^L6DN4[10,445]+2%1{
IF (CT_SUB_MODE == AUD)
RUN EXPR=AUD_LAST( TURNCOUNT );
RUN EXPR=AUD_TIMES( AUD_TIMES + 1 );
ENDIF
IF (CT_SUB_MODE == SAL)
RUN EXPR=SAL_LAST( TURNCOUNT );
RUN EXPR=SAL_TIMES( SAL_TIMES + 1 );
ENDIF
IF (CT_SUB_MODE == NEB)
RUN EXPR=NEB_LAST( TURNCOUNT );
RUN EXPR=NEB_TIMES( NEB_TIMES + 1 );
ENDIF
IF (CT_SUB_MODE == SRAF)
RUN EXPR=SRAF_LAST( TURNCOUNT );
RUN EXPR=SRAF_TIMES( SRAF_TIMES + 1 );
ENDIF
IF (CT_SUB_MODE == TRI)
RUN EXPR=TRI_LAST( TURNCOUNT );
RUN EXPR=TRI_TIMES( TRI_TIMES + 1 );
ENDIF
IF (CT_SUB_MODE == VEDJ)
RUN EXPR=VEDJ_LAST( TURNCOUNT );
RUN EXPR=VEDJ_TIMES( VEDJ_TIMES + 1 );
ENDIF
IF (CT_SUB_MODE == VILD)
RUN EXPR=VILD_LAST( TURNCOUNT );
RUN EXPR=VILD_TIMES( VILD_TIMES + 1 );
ENDIF
IF (CT_SUB_MODE == ZZAZZ)
RUN EXPR=ZZAZZ_LAST( TURNCOUNT );
RUN EXPR=ZZAZZ_TIMES( ZZAZZ_TIMES + 1 );
ENDIF
IF (CT_SUB_MODE == MARM)
RUN EXPR=MARM_LAST( TURNCOUNT );
RUN EXPR=MARM_TIMES( MARM_TIMES + 1 );
IF ( NID_FIRST_ACCESSED == 7777)
RUN EXPR=NID_FIRST_ACCESSED(TURNCOUNT + 50);
ENDIF
ENDIF
IF (CT_SUB_MODE == KUR)
RUN EXPR=KUR_LAST( TURNCOUNT );
RUN EXPR=KUR_TIMES( KUR_TIMES + 1 );
IF ( NID_FIRST_ACCESSED == 7777)
RUN EXPR=NID_FIRST_ACCESSED(TURNCOUNT + 50);
ENDIF
ENDIF
IF (CT_SUB_MODE == NAPTH)
RUN EXPR=NAPTH_LAST( TURNCOUNT );
RUN EXPR=NAPTH_TIMES( NAPTH_TIMES + 1 );
ENDIF
IF (CT_SUB_MODE == WISP)
RUN EXPR=WISP_LAST( TURNCOUNT );
RUN EXPR=WISP_TIMES( WISP_TIMES + 1 );
ENDIF
IF (CT_SUB_MODE == MOLAS)
RUN EXPR=MOLAS_LAST( TURNCOUNT );
RUN EXPR=MOLAS_TIMES( MOLAS_TIMES + 1 );
ENDIF
IF (CT_SUB_MODE == BLOB)
RUN EXPR=BLOB_LAST( TURNCOUNT );
RUN EXPR=BLOB_TIMES( BLOB_TIMES + 1 );
ENDIF
IF (CT_SUB_MODE == MYTOS)
RUN EXPR=MYTOS_LAST( TURNCOUNT );
RUN EXPR=MYTOS_TIMES( MYTOS_TIMES + 1 );
ENDIF
IF (CT_SUB_MODE == FRUF)
RUN EXPR=FRUF_LAST( TURNCOUNT );
RUN EXPR=FRUF_TIMES( FRUF_TIMES + 1 );
ENDIF
IF (CT_SUB_MODE == OYLEE)
RUN EXPR=OYLEE_LAST( TURNCOUNT );
RUN EXPR=OYLEE_TIMES( OYLEE_TIMES + 1 );
ENDIF
IF (CT_SUB_MODE == AKRO)
RUN EXPR=AKRO_LAST( TURNCOUNT );
RUN EXPR=AKRO_TIMES( AKRO_TIMES + 1 );
ENDIF
IF (CT_SUB_MODE == HUM)
RUN EXPR=HUM_LAST( TURNCOUNT );
RUN EXPR=HUM_TIMES( HUM_TIMES + 1 );
IF ( NID_SEC_ACCESSED == 7777)
RUN EXPR=NID_SEC_ACCESSED(TURNCOUNT + 100);
ENDIF
ENDIF
RUN EXPR=CT_MODE(RACEMENU);
RUN COMMAND=UPDATE;
};
SET ARE=NOTHING[300,80,560,400];
SET ARE=NOTHING[50,95,249,319];
ENDIF
IF (CT_MODE == PLANETMENU)
SET BMP = $SBARDIR\BAR\CLOSEUP\BACD\BAND03.BMP[65,22];
SET ARE=NOTHING[60,260,550,360];
SET ARE = ARMPIT3[92,59,230,79]%1 {
RUN EXPR = CT_MODE(SUBMENUP);
RUN EXPR = CT_SUB_MODE(ARM3);
};
SET ARE = ARMPIT6[92,89,230,109] %1 {
RUN EXPR = CT_MODE(SUBMENUP);
RUN EXPR = CT_SUB_MODE(ARM6);
};
SET ARE = BULB[92,120,230,140]%1 {
RUN EXPR = CT_MODE(SUBMENUP);
RUN EXPR = CT_SUB_MODE(BULB);
};
SET ARE = DING[92,152,230,172]%1 {
RUN EXPR = CT_MODE(SUBMENUP);
RUN EXPR = CT_SUB_MODE(DING);
};
SET ARE = EARTH[92,183,230,203]%1 {
RUN EXPR = CT_MODE(SUBMENUP);
RUN EXPR = CT_SUB_MODE(EARTH);
};
SET ARE = FRUUFP[92,214,230,234]%1 {
RUN EXPR = CT_MODE(SUBMENUP);
RUN EXPR = CT_SUB_MODE(FRUUFP);
};
SET ARE = HPOCTYL[92,245,230,265] %1 {
RUN EXPR = CT_MODE(SUBMENUP);
RUN EXPR = CT_SUB_MODE(HPOCTYL);
};
SET ARE = KARK[242,58,380,78]%1 {
RUN EXPR = CT_MODE(SUBMENUP);
RUN EXPR = CT_SUB_MODE(KARK);
};
SET ARE = KOEK[242,89,380,109]%1 {
RUN EXPR = CT_MODE(SUBMENUP);
RUN EXPR = CT_SUB_MODE(KOEK);
};
SET ARE = KURP[242,120,380,140]%1 {
RUN EXPR = CT_MODE(SUBMENUP);
RUN EXPR = CT_SUB_MODE(KURP);
};
SET ARE = LAYG[242,152,380,172] %1 {
RUN EXPR = CT_MODE(SUBMENUP);
RUN EXPR = CT_SUB_MODE(LAYG);
};
SET ARE = MARA[242,183,380,203]%1 {
RUN EXPR = CT_MODE(SUBMENUP);
RUN EXPR = CT_SUB_MODE(MARA);
};
SET ARE = OOZE[242,214,380,234] %1 {
RUN EXPR = CT_MODE(SUBMENUP);
RUN EXPR = CT_SUB_MODE(OOZE);
};
SET ARE = PINNA[242,245,380,265] %1 {
RUN EXPR = CT_MODE(SUBMENUP);
RUN EXPR = CT_SUB_MODE(PINNA);
};
SET ARE = PZZAZZ[392,59,530,80] %1 {
RUN EXPR = CT_MODE(SUBMENUP);
RUN EXPR = CT_SUB_MODE(PZZAZZ);
};
SET ARE = RUMBLE[392,89,530,109] %1 {
RUN EXPR = CT_MODE(SUBMENUP);
RUN EXPR = CT_SUB_MODE(RUMBLE);
};
SET ARE = SAVIN[392,120,530,140] %1 {
RUN EXPR = CT_MODE(SUBMENUP);
RUN EXPR = CT_SUB_MODE(SAVIN);
};
SET ARE = SCALON[392,152,530,172]%1 {
RUN EXPR = CT_MODE(SUBMENUP);
RUN EXPR = CT_SUB_MODE(SCALON);
};
SET ARE = SLAG[392,183,530,203] %1 {
RUN EXPR = CT_MODE(SUBMENUP);
RUN EXPR = CT_SUB_MODE(SLAG);
};
SET ARE = UBLEEK[392,214,530,234] %1 {
RUN EXPR = CT_MODE(SUBMENUP);
RUN EXPR = CT_SUB_MODE(UBLEEK);
};
SET ARE = YZORE[392,245,530,265] %1 {
RUN EXPR = CT_MODE(SUBMENUP);
RUN EXPR = CT_SUB_MODE(YZORE);
};
SET BUT = $SBARDIR\BAR\CLOSEUP\BACD\BAND07.BMP^L6DN4[10,445]+2%1{
RUN EXPR = CT_MODE(MAINMENU);
};
ENDIF
IF (CT_MODE == SUBMENUP)
IF (CT_SUB_MODE == ARM3)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\ARM3.TXT[140,110,540,350] SIZE 16 AS TITLE; //%%6728
SET VAR=ARM3_LAST[215,380,250,395];
SET VAR=ARM3_TIMES[470,380,520,395];
ENDIF
IF (CT_SUB_MODE == ARM6)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\ARM6.TXT[140,110,540,350] SIZE 16 AS TITLE; //%%6733
SET VAR=ARM6_LAST[215,380,250,395];
SET VAR=ARM6_TIMES[470,380,520,395];
ENDIF
IF (CT_SUB_MODE == BULB)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BULB.TXT[140,110,540,350] SIZE 16 AS TITLE; //%%6738
SET VAR=BULB_LAST[215,380,250,395];
SET VAR=BULB_TIMES[470,380,520,395];
ENDIF
IF (CT_SUB_MODE == DING)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\DING.TXT[140,110,540,350] SIZE 16 AS TITLE; //%%6743
SET VAR=DING_LAST[215,380,250,395];
SET VAR=DING_TIMES[470,380,520,395];
ENDIF
IF (CT_SUB_MODE == EARTH)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\EARTH.TXT[140,110,540,350] SIZE 16 AS TITLE; //%%6748
SET VAR=EARTH_LAST[215,380,250,395];
SET VAR=EARTH_TIMES[470,380,520,395];
ENDIF
IF (CT_SUB_MODE == FRUUFP)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\FRUUFP.TXT[140,110,540,350] SIZE 16 AS TITLE; //%%6753
SET VAR=FRUUFP_LAST[215,380,250,395];
SET VAR=FRUUFP_TIMES[470,380,520,395];
ENDIF
IF (CT_SUB_MODE == HPOCTYL)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\HPOCTYL.TXT[140,110,540,350] SIZE 16 AS TITLE; //%%6758
SET VAR=HPOCTYL_LAST[215,380,250,395];
SET VAR=HPOCTYL_TIMES[470,380,520,395];
ENDIF
IF (CT_SUB_MODE == KARK)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\KARK.TXT[140,110,540,350] SIZE 16 AS TITLE; //%%6763
SET VAR=KARK_LAST[215,380,250,395];
SET VAR=KARK_TIMES[470,380,520,395];
ENDIF
IF (CT_SUB_MODE == KOEK)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\KOEK.TXT[140,110,540,350] SIZE 16 AS TITLE; //%%6768
SET VAR=KOEK_LAST[215,380,250,395];
SET VAR=KOEK_TIMES[470,380,520,395];
ENDIF
IF (CT_SUB_MODE == KURP)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\KURP.TXT[140,110,540,350] SIZE 16 AS TITLE; //%%6773
SET VAR=KURP_LAST[215,380,250,395];
SET VAR=KURP_TIMES[470,380,520,395];
ENDIF
IF (CT_SUB_MODE == LAYG)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\LAYG.TXT[140,110,540,350] SIZE 16 AS TITLE; //%%6778
SET VAR=LAYG_LAST[215,380,250,395];
SET VAR=LAYG_TIMES[470,380,520,395];
ENDIF
IF (CT_SUB_MODE == MARA)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\MARA.TXT[140,110,540,350] SIZE 16 AS TITLE; //%%6783
SET VAR=MARA_LAST[215,380,250,395];
SET VAR=MARA_TIMES[470,380,520,395];
ENDIF
IF (CT_SUB_MODE == OOZE)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\OOZE.TXT[140,110,540,350] SIZE 16 AS TITLE; //%%6788
SET VAR=OOZE_LAST[215,380,250,395];
SET VAR=OOZE_TIMES[470,380,520,395];
ENDIF
IF (CT_SUB_MODE == PINNA)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\PINNA.TXT[140,110,540,350] SIZE 16 AS TITLE; //%%6793
SET VAR=PINNA_LAST[215,380,250,395];
SET VAR=PINNA_TIMES[470,380,520,395];
ENDIF
IF (CT_SUB_MODE == PZZAZZ)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\PZZAZZ.TXT[140,110,540,350] SIZE 16 AS TITLE; //%%6798
SET VAR=PZZAZZ_LAST[215,380,250,395];
SET VAR=PZZAZZ_TIMES[470,380,520,395];
ENDIF
IF (CT_SUB_MODE == RUMBLE)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\RUMBLE.TXT[140,110,540,350] SIZE 16 AS TITLE; //%%6803
SET VAR=RUMBLE_LAST[215,380,250,395];
SET VAR=RUMBLE_TIMES[470,380,520,395];
ENDIF
IF (CT_SUB_MODE == SAVIN)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\SAVIN.TXT[140,110,540,350] SIZE 16 AS TITLE; //%%6808
SET VAR=SAVIN_LAST[215,380,250,395];
SET VAR=SAVIN_TIMES[470,380,520,395];
ENDIF
IF (CT_SUB_MODE == SCALON)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\SCALON.TXT[140,110,540,350] SIZE 16 AS TITLE; //%%6813
SET VAR=SCALON_LAST[215,380,250,395];
SET VAR=SCALON_TIMES[470,380,520,395];
ENDIF
IF (CT_SUB_MODE == SLAG)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\SLAG.TXT[140,110,540,350] SIZE 16 AS TITLE; //%%6818
SET VAR=SLAG_LAST[215,380,250,395];
SET VAR=SLAG_TIMES[470,380,520,395];
ENDIF
IF (CT_SUB_MODE == UBLEEK)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\UBLEEK.TXT[140,110,540,350] SIZE 16 AS TITLE; //%%6823
SET VAR=UBLEEK_LAST[215,380,250,395];
SET VAR=UBLEEK_TIMES[470,380,520,395];
ENDIF
IF (CT_SUB_MODE == YZORE)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\YZORE.TXT[140,110,540,350] SIZE 16 AS TITLE; //%%6828
SET VAR=YZORE_LAST[215,380,250,395];
SET VAR=YZORE_TIMES[470,380,520,395];
ENDIF
SET TXT=LAST_ACCESSED[100,380,210,400] AS TITLE; //%%6833
SET TXT=NUMBER_OF_TIMES_ACCESSED[280,380,400,400] AS TITLE; //%%6834
SET BUT=$SBARDIR\BAR\CLOSEUP\BACD\BAND07.BMP^L6DN4[10,445]+2%1{
IF (CT_SUB_MODE == ARM3)
RUN EXPR=ARM3_LAST( TURNCOUNT );
RUN EXPR=ARM3_TIMES( ARM3_TIMES + 1 );
ENDIF
IF (CT_SUB_MODE == ARM6)
RUN EXPR=ARM6_LAST( TURNCOUNT );
RUN EXPR=ARM6_TIMES( ARM6_TIMES + 1 );
ENDIF
IF (CT_SUB_MODE == BULB)
RUN EXPR=BULB_LAST( TURNCOUNT );
RUN EXPR=BULB_TIMES( BULB_TIMES + 1 );
ENDIF
IF (CT_SUB_MODE == DING)
RUN EXPR=DING_LAST( TURNCOUNT );
RUN EXPR=DING_TIMES( DING_TIMES + 1 );
ENDIF
IF (CT_SUB_MODE == EARTH)
RUN EXPR=EARTH_LAST( TURNCOUNT );
RUN EXPR=EARTH_TIMES( EARTH_TIMES + 1 );
ENDIF
IF (CT_SUB_MODE == FRUUFP)
RUN EXPR=FRUUFP_LAST( TURNCOUNT );
RUN EXPR=FRUUFP_TIMES( FRUUFP_TIMES + 1 );
ENDIF
IF (CT_SUB_MODE == HPOCTYL)
RUN EXPR=HPOCTYL_LAST( TURNCOUNT );
RUN EXPR=HPOCTYL_TIMES( HPOCTYL_TIMES + 1 );
ENDIF
IF (CT_SUB_MODE == KARK)
RUN EXPR=KARK_LAST( TURNCOUNT );
RUN EXPR=KARK_TIMES( KARK_TIMES + 1 );
ENDIF
IF (CT_SUB_MODE == KOEK)
RUN EXPR=KOEK_LAST( TURNCOUNT );
RUN EXPR=KOEK_TIMES( KOEK_TIMES + 1 );
ENDIF
IF (CT_SUB_MODE == KURP)
RUN EXPR=KURP_LAST( TURNCOUNT );
RUN EXPR=KURP_TIMES( KURP_TIMES + 1 );
ENDIF
IF (CT_SUB_MODE == LAYG)
RUN EXPR=LAYG_LAST( TURNCOUNT );
RUN EXPR=LAYG_TIMES( LAYG_TIMES + 1 );
ENDIF
IF (CT_SUB_MODE == MARA)
RUN EXPR=MARA_LAST( TURNCOUNT );
RUN EXPR=MARA_TIMES( MARA_TIMES + 1 );
ENDIF
IF (CT_SUB_MODE == OOZE)
RUN EXPR=OOZE_LAST( TURNCOUNT );
RUN EXPR=OOZE_TIMES( OOZE_TIMES + 1 );
ENDIF
IF (CT_SUB_MODE == PINNA)
RUN EXPR=PINNA_LAST( TURNCOUNT );
RUN EXPR=PINNA_TIMES( PINNA_TIMES + 1 );
ENDIF
IF (CT_SUB_MODE == PZZAZZ)
RUN EXPR=PZZAZZ_LAST( TURNCOUNT );
RUN EXPR=PZZAZZ_TIMES( PZZAZZ_TIMES + 1 );
ENDIF
IF (CT_SUB_MODE == RUMBLE)
RUN EXPR=RUMBLE_LAST( TURNCOUNT );
RUN EXPR=RUMBLE_TIMES( RUMBLE_TIMES + 1 );
ENDIF
IF (CT_SUB_MODE == SAVIN)
RUN EXPR=SAVIN_LAST( TURNCOUNT );
RUN EXPR=SAVIN_TIMES( SAVIN_TIMES + 1 );
ENDIF
IF (CT_SUB_MODE == SCALON)
RUN EXPR=SCALON_LAST( TURNCOUNT );
RUN EXPR=SCALON_TIMES( SCALON_TIMES + 1 );
ENDIF
IF (CT_SUB_MODE == SLAG)
RUN EXPR=SLAG_LAST( TURNCOUNT );
RUN EXPR=SLAG_TIMES( SLAG_TIMES + 1 );
ENDIF
IF (CT_SUB_MODE == UBLEEK)
RUN EXPR=UBLEEK_LAST( TURNCOUNT );
RUN EXPR=UBLEEK_TIMES( UBLEEK_TIMES + 1 );
ENDIF
IF (CT_SUB_MODE == YZORE)
RUN EXPR=YZORE_LAST( TURNCOUNT );
RUN EXPR=YZORE_TIMES( YZORE_TIMES + 1 );
ENDIF
RUN EXPR=CT_MODE(PLANETMENU);
RUN COMMAND=UPDATE;
};
SET ARE=NOTHING[140,110,540,350];
ENDIF
IF (CT_MODE == MOVIEMENU)
SET BMP = $SBARDIR\BAR\CLOSEUP\BACD\BAND04.BMP[68,32];
SET ARE=NOTHING[16,5,580,85];
SET ARE = TSUNAMI[149,89,475,116]%1 {
RUN EXPR = CT_MODE(SUBMENUM);
RUN EXPR = CT_SUB_MODE(TSUNAMI);
};
SET ARE = BLOBFAT[149,127,475,155] %1 {
RUN EXPR = CT_MODE(SUBMENUM);
RUN EXPR = CT_SUB_MODE(BLOBFAT);
};
SET ARE = EXTER[149,167,475,194]%1 {
RUN EXPR = CT_MODE(SUBMENUM);
RUN EXPR = CT_SUB_MODE(EXTER);
};
SET ARE = DIE[149,204,475,234]%1 {
RUN EXPR = CT_MODE(SUBMENUM);
RUN EXPR = CT_SUB_MODE(DIE);
};
SET ARE = UPTITE[149,244,475,273]%1 {
RUN EXPR = CT_MODE(SUBMENUM);
RUN EXPR = CT_SUB_MODE(UPTITE);
};
SET ARE = PORCH[149,283,475,312]%1 {
RUN EXPR = CT_MODE(SUBMENUM);
RUN EXPR = CT_SUB_MODE(PORCH);
};
SET ARE = MIRROR[149,322,475,351] %1 {
RUN EXPR = CT_MODE(SUBMENUM);
RUN EXPR = CT_SUB_MODE(MIRROR);
};
SET ARE = JERRY[149,361,475,390]%1 {
RUN EXPR = CT_MODE(SUBMENUM);
RUN EXPR = CT_SUB_MODE(JERRY);
};
SET BUT = $SBARDIR\BAR\CLOSEUP\BACD\BAND07.BMP^L6DN4[10,445]+2%1{
RUN EXPR = CT_MODE(MAINMENU);
};
ENDIF
IF (CT_MODE == SUBMENUM)
SET BMP = $SBARDIR\BAR\CLOSEUP\BACD\BAND30.BMP[62,90];
SET BMP = $SBARDIR\BAR\CLOSEUP\BACD\BAND34.BMP[276,300];
IF (CT_SUB_MODE == TSUNAMI)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\TSUNAMI.TXT[152,90,588,280] SIZE 16 AS TITLE; //%%6969
SET VAR=TSUNAMI_LAST[215,380,250,395];
SET VAR=TSUNAMI_TIMES[470,380,520,395];
SET BMP = $SBARDIR\BAR\CLOSEUP\BACD\BAND31.BMP[345,300];
SET BMP = $SBARDIR\BAR\CLOSEUP\BACD\BAND31.BMP[414,300];
ENDIF
IF (CT_SUB_MODE == BLOBFAT)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\BLOBFAT.TXT[152,90,588,280] SIZE 16 AS TITLE; //%%6976
SET VAR=BLOBFAT_LAST[215,380,250,395];
SET VAR=BLOBFAT_TIMES[470,380,520,395];
SET BMP = $SBARDIR\BAR\CLOSEUP\BACD\BAND31.BMP[345,300];
SET BMP = $SBARDIR\BAR\CLOSEUP\BACD\BAND32.BMP[414,300];
ENDIF
IF (CT_SUB_MODE == EXTER)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\EXTER.TXT[152,90,588,280] SIZE 16 AS TITLE; //%%6983
SET VAR=EXTER_LAST[215,380,250,395];
SET VAR=EXTER_TIMES[470,380,520,395];
SET BMP = $SBARDIR\BAR\CLOSEUP\BACD\BAND32.BMP[345,300];
SET BMP = $SBARDIR\BAR\CLOSEUP\BACD\BAND32.BMP[414,300];
ENDIF
IF (CT_SUB_MODE == DIE)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\DIE.TXT[152,90,588,280] SIZE 16 AS TITLE; //%%6990
SET VAR=DIE_LAST[215,380,250,395];
SET VAR=DIE_TIMES[470,380,520,395];
SET BMP = $SBARDIR\BAR\CLOSEUP\BACD\BAND31.BMP[345,300];
SET BMP = $SBARDIR\BAR\CLOSEUP\BACD\BAND31.BMP[414,300];
ENDIF
IF (CT_SUB_MODE == UPTITE)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\UPTITE.TXT[152,90,588,280] SIZE 16 AS TITLE; //%%6997
SET VAR=UPTITE_LAST[215,380,250,395];
SET VAR=UPTITE_TIMES[470,380,520,395];
SET BMP = $SBARDIR\BAR\CLOSEUP\BACD\BAND32.BMP[345,300];
SET BMP = $SBARDIR\BAR\CLOSEUP\BACD\BAND32.BMP[414,300];
ENDIF
IF (CT_SUB_MODE == PORCH)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\PORCH.TXT[152,90,588,280] SIZE 16 AS TITLE; //%%7004
SET VAR=PORCH_LAST[215,380,250,395];
SET VAR=PORCH_TIMES[470,380,520,395];
SET BMP = $SBARDIR\BAR\CLOSEUP\BACD\BAND31.BMP[345,300];
SET BMP = $SBARDIR\BAR\CLOSEUP\BACD\BAND32.BMP[414,300];
ENDIF
IF (CT_SUB_MODE == MIRROR)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\MIRROR.TXT[152,90,588,280] SIZE 16 AS TITLE; //%%7011
SET VAR=MIRROR_LAST[215,380,250,395];
SET VAR=MIRROR_TIMES[470,380,520,395];
SET BMP = $SBARDIR\BAR\CLOSEUP\BACD\BAND32.BMP[345,300];
SET BMP = $SBARDIR\BAR\CLOSEUP\BACD\BAND32.BMP[414,300];
ENDIF
IF (CT_SUB_MODE == JERRY)
SET TXT=$SBARDIR\BAR\CLOSEUP\BACD\JERRY.TXT[152,90,588,280] SIZE 16 AS TITLE; //%%7018
SET VAR=JERRY_LAST[215,380,250,395];
SET VAR=JERRY_TIMES[470,380,520,395];
SET BMP = $SBARDIR\BAR\CLOSEUP\BACD\BAND31.BMP[345,300];
SET BMP = $SBARDIR\BAR\CLOSEUP\BACD\BAND31.BMP[414,300];
ENDIF
SET ARE=NOTHING[0,0,600,440];
SET BUT=$SBARDIR\BAR\CLOSEUP\BACD\BAND07.BMP^L6DN4[10,445]+2%1{
RUN EXPR=CT_MODE(MOVIEMENU);
};
ENDIF
IF (CT_MODE == ABOUTMENU)
SET BMP = $SBARDIR\BAR\CLOSEUP\BACD\BAND33.BMP[80,32];
SET BUT = $SBARDIR\BAR\CLOSEUP\BACD\BAND07.BMP^L6DN4[10,445]+2%1{
RUN EXPR = CT_MODE(MAINMENU);
};
SET ARE=NOTHING[80,32,590,410];
ENDIF
}
// ARRIVAL MONITOR CLOSEUP
SDEV BANE_WLD AS CLOSEUP{
SET BKG=$SBARDIR\BAR\CLOSEUP\BACE\BACE.BMP;
// This is a looping background sound that stops on exit
RUN EXPR = ENTRYBANE~~VOLUME( 5 );
RUN SND = $SBARDIR\BAR\EVENTS\ENTRY.WAV^ENTRYBANE LOOP 0 AS MIX SOUNDOVEROK;
// CURRENT TIME
SET VAR=TURNCOUNT[345,59,377,70] COLOR 7;
//H'POCTYL FLIGHT
IF (TURNCOUNT > 1930)
SET BMP=$SBARDIR\BAR\CLOSEUP\BACE\BANE1.BMP[346,183];
ENDIF
// DINGLE-2 FLIGHT
IF (TURNCOUNT > 2100) // DEBRIS LOCATED
SET BMP=$SBARDIR\BAR\CLOSEUP\BACE\BANE5.BMP[346,211];
ELSE
IF (TURNCOUNT > 2000) // LOST CONTACT
SET BMP=$SBARDIR\BAR\CLOSEUP\BACE\BANE4.BMP[346,211];
ELSE
IF (TURNCOUNT > 1900) // VERY LATE
SET BMP=$SBARDIR\BAR\CLOSEUP\BACE\BANE3.BMP[346,211];
ELSE // LATE
SET BMP=$SBARDIR\BAR\CLOSEUP\BACE\BANE2.BMP[346,211];
ENDIF
ENDIF
ENDIF
// DEMO: Removed arrival monitor interactions.
}
// DEPARTURE MONITOR CLOSEUP
SDEV BANED_WLD AS CLOSEUP{
SET BKG=$SBARDIR\BAR\CLOSEUP\BACE\BACED.BMP;
// This is a looping background sound that stops on exit
RUN EXPR = ENTRYBANED~~VOLUME( 5 );
RUN SND = $SBARDIR\BAR\EVENTS\ENTRY.WAV^ENTRYBANED LOOP 0 AS MIX SOUNDOVEROK;
// CURRENT TIME
SET VAR=TURNCOUNT[345,59,377,70] COLOR 7;
//YZORE FLIGHT DEPARTURE
IF (TURNCOUNT > 2000)
SET BMP=$SBARDIR\BAR\CLOSEUP\BACE\BANED1.BMP[52,242];
ENDIF
// DEMO: Removed departure monitor interactions
}
// BAR AREA
SDEV BDP_WLD{
SET BKG=$SBARDIR\BAR\PAN\BDP.BMP;
RUN EXPR=BARLOC(BDP);
RUN EXPR=BARCROWD~~VOLUME(8);
RUN EXPR=BARMUSIC~~VOLUME(10);
RUN EXPR=BARMUSIC2~~VOLUME(10);
RUN EXPR=BARMUSIC3~~VOLUME(10);
RUN EXPR=BARMUSIC4~~VOLUME(10);
RUN EXPR=BARMUSIC5~~VOLUME(10);
RUN EXPR=BARMUSIC6~~VOLUME(10);
RUN EXPR=BARMUSIC7~~VOLUME(10);
//RUN EXPR=BARMUSIC8~~VOLUME(10);
// Link to Outside Howdy Saloon
//
// DEMO: Replaced link to outside the saloon with a link to
// to a "far as you can go" screen.
SET ARE=[237,185,315,301]%5{
RUN COMMAND = STASHWIELD;
RUN LNK = BDP_WLD~~TXT2_WLD
};
// Link to Gambling Hall
SET LNK=BGP_WLD[105,179,208,341]@[900,130];
// Link to The Lily Pad
// DEMO: Replaced link to the lily pad with a link to
// "far as you can go" screen.
SET ARE = LILY [409,187,501,307]%5{
RUN COMMAND = STASHWIELD;
RUN LNK = BDP_WLD~~TXT2_WLD
};
// Link to Dance Floor
// DEMO: Replaced link to the dance floor with a link to
// "far as you can go" screen.
SET LNK=BDP_WLD~~TXT2_WLD[1258,207,1460,323]@[878,75]{
RUN COMMAND = STASHWIELD;
};
// Link to Entry Vestibule
SET LNK=BAP_WLD[686,199,766,276]@[660,125];
// Link Bar Computer
SET LNK=BDP_WLD~~TXT2_WLD[8,248,85,360]%2{
RUN COMMAND = STASHWIELD;
};
// Drinkmaster
SET ARE=DRINKMASTER[824,172,956,300]%2{
RUN LNK = SOLDIER_WLD;
};
// Soldier 714
SET CHR=$SBARDIR\GENERAL\PANIMS\BDSO1.SMK[874,196]%2{
RUN LNK = SOLDIER_WLD;
};
IF (SOLDIER_MET == 1)
// Only play Zelda's line if you didn't flash back w/Soldier bar 11/27/96
IF (ZFLASHBACK == 0)
RUN MOVIE=$SBARDIR\BAR\EVENTS\EVZESO.SMK[97,292] AS PDAMSG DONTOVERRIDE DONTINCREMENT;
RUN EXPR=SOLDIER_MET(2);
ENDIF
ENDIF
// Thud and Fleebix
SET ARE=THUDANDFLEEB[1150,242,1256,360]%2{
IF (TBHIDE == TRUE)
// DEMO: Remove Thud hide support.
RUN COMMAND = INSERT OBJECT FBTHMOVIE TO FLEETHUD_WLD;
RUN EXPR = FBTHMOVIE~~MODAL( 0 );
RUN EXPR = FBTHMOVIE~~LOOP( -1 );
RUN EXPR = TBHIDECOUNT( 0 );
RUN EXPR = TBHIDE( FALSE );
ENDIF
RUN LNK = FLEETHUD_WLD AS CLOSEUP;
};
// Thud
SET CHR=$SBARDIR\GENERAL\PANIMS\BDTB1.SMK[1150,254]%2{
IF (TBHIDE == TRUE)
// DEMO: Remove Thud hide support.
RUN COMMAND = INSERT OBJECT FBTHMOVIE TO FLEETHUD_WLD;
RUN EXPR = FBTHMOVIE~~MODAL( 0 );
RUN EXPR = FBTHMOVIE~~LOOP( -1 );
RUN EXPR = TBHIDECOUNT( 0 );
RUN EXPR = TBHIDE( FALSE );
ENDIF
RUN LNK = FLEETHUD_WLD AS CLOSEUP;
};
IF (THUD_GREET == TRUE)
IF (THUD_MET == 0)
// only have Zelda make the comment if Thud was last one speaking in CIC
IF (THUDLAST == TRUE)
RUN MOVIE=$SBARDIR\BAR\EVENTS\EVZETH.SMK[97,292] AS PDAMSG DONTOVERRIDE DONTINCREMENT;
RUN EXPR=THUD_MET(2);
ENDIF
ENDIF
ENDIF
// DEMO: Add the Mytosi panimation without a link
SET CHR=$SBARDIR\GENERAL\PANIMS\BDMY1.SMK[712,260];
// DEMO: Removed link to mydw_wld when sararrive_evt is eq to 6666
// PAKSHA STANDING IN DINING AREA
SET CHR=$SBARDIR\GENERAL\PANIMS\BDPK1.SMK[1636,226];
// CIGARETTE SMOKE
SET CHR=$SBARDIR\GENERAL\PANIMS\BDNC2.SMK[1084,246];
// MOTHS SITTING AT TABLE
SET CHR=$SBARDIR\GENERAL\PANIMS\BDMO1.SMK[1640,218];
// DEMO: Removed link to mydw_wld and dwelf sitting at bar if sararrive_evt eq 6666
// BAND PLAYING WITHOUT BANDLEADER
SET CHR=$SBARDIR\GENERAL\PANIMS\BDBD1.SMK[1298,236];
// CHECK TO SEE IF THE BANDLEADER SHOULD STILL BE AROUND
SET CHR=$SBARDIR\GENERAL\PANIMS\BDBL1.SMK[1334,242]; // BANDLEADER
// Cilia (seen from Bar)
SET CHR=$SBARDIR\GENERAL\PANIMS\BDCI1.SMK[1372,242];
// SRAFFAN LOOKING OUT WINDOW
SET CHR=$SBARDIR\GENERAL\PANIMS\BDNC3.SMK[1438,252];
// Secondary objects for this location
SET ARE=CATWALK[200,10,488,173]%1{
SET TXT = catwalk COLOR 2 AS TITLE; //%%XXXX
SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
SET TXT=$SBARDIR\BAR\OBJ\BDCATEX.TXT COLOR 2 AS CAPTION; //%%XXXX
};
};
// DEMO: Removed the three spaceport windows.
}
// GAMBLING HALL
SDEV BGP_WLD{
SET BKG=$SBARDIR\BAR\PAN\BGP.BMP;
RUN EXPR=BARLOC(BGP);
RUN EXPR=BARCROWD~~VOLUME(7);
RUN EXPR=BARMUSIC~~VOLUME(5);
RUN EXPR=BARMUSIC2~~VOLUME(5);
RUN EXPR=BARMUSIC3~~VOLUME(5);
RUN EXPR=BARMUSIC4~~VOLUME(5);
RUN EXPR=BARMUSIC5~~VOLUME(5);
RUN EXPR=BARMUSIC6~~VOLUME(5);
RUN EXPR=BARMUSIC7~~VOLUME(5);
//RUN EXPR=BARMUSIC8~~VOLUME(5);
IF (CASINO~~PLAYING == 0)
RUN EXPR = CASINO~~VOLUME( 7 );
RUN SND = $SBARDIR\BAR\EVENTS\CASINO.WAV^CASINO LOOP 0 AS MIX;
ENDIF
IF (GAMB_MET==0)
RUN MOVIE=$SBARDIR\BAR\EVENTS\EVZEGH.SMK[97,292] AS PDAMSG DONTOVERRIDE DONTINCREMENT;
RUN EXPR=GAMB_MET(1);
ENDIF
// Link to Dining Area
// DEMO: Replaced link to the dining area with a
// "far as you go screen".
SET ARE=[533,166,739,358]%5{
RUN COMMAND = STASHWIELD;
RUN LNK=BGP_WLD~~TXT2_WLD
};
// Link to Bar Area
SET LNK=BDP_WLD[33,190,243,354]@[950,125];
// Link to Observation Balcony South
//
// DEMO: Changed link to the south observation balcony to be a
// "far as you can go" screen.
SET ARE=[1617,205,1770,301]%5{
RUN COMMAND = STASHWIELD;
RUN LNK = BGP_WLD~~TXT2_WLD
};
// Link to Observation Balcony North
//
// DEMO: Changed link to the north observation balcony to be a
// "far as you can go screen"
SET ARE=[880,196,1050,283]%5{
RUN COMMAND = STASHWIELD;
RUN LNK = BGP_WLD~~TXT2_WLD
};
// DEMO: Removed slot machine number 1.
// DEMO: Removed slot machine number 2.
// DEMO: Removed uber-poker table number 1.
// DEMO: Removed uber-poker table number 2.
// DEMO: Removed uber-poker table number 3.
// Link to BibbleBonk table - CHIPHANDLER'S
SET ARE=BIBBBONK[1378,290,1828,476]%1{
SET TXT =Bibblebonk_table COLOR 2 AS TITLE; //%%13323
SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{ //Undid comment out as you should be able to EXAMINE this object-11.20.96-pap
RUN SND=$SBARDIR\BAR\OBJ\BGNHEXC1.WAV AS QUEUE *2;
};
SET BMP=$SBARDIR\GENERAL\MENUS\PLAY.BMP{
RUN SND=$SBARDIR\BAR\OBJ\BGNBPYC1.WAV;
};
IF (BWIELD_WLD CONTAINS CREDITCHIP)
SET BMP=$SBARDIR\GENERAL\MENUS\PUTIN.BMP{
RUN LNK=BIBBLE;
};
ENDIF
};
// Link to BibbleBonk table - BETTAKER'S
SET ARE=BIBBBONK[870,292,1203,340]%1{
SET TXT =Bibblebonk_table COLOR 2 AS TITLE; //%%13338
SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{ //Undid comment out as you s.b. able to EXAMINE this object-11.20.96-pap
RUN SND=$SBARDIR\BAR\OBJ\BGNHEXC1.WAV AS QUEUE *2;
};
SET BMP=$SBARDIR\GENERAL\MENUS\PLAY.BMP{
RUN SND=$SBARDIR\BAR\OBJ\BGNBPYC1.WAV;
};
IF (BWIELD_WLD CONTAINS CREDITCHIP)
SET BMP=$SBARDIR\GENERAL\MENUS\PUTIN.BMP{
RUN LNK=BIBBLE;
};
ENDIF
};
SET ARE=BIBBBONK[868,341,1147,385]%1{
SET TXT =Bibblebonk_table COLOR 2 AS TITLE; //%%13338
SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
RUN SND=$SBARDIR\BAR\OBJ\BGNHEXC1.WAV AS QUEUE *2;
};
SET BMP=$SBARDIR\GENERAL\MENUS\PLAY.BMP{
RUN SND=$SBARDIR\BAR\OBJ\BGNBPYC1.WAV;
};
IF (BWIELD_WLD CONTAINS CREDITCHIP)
SET BMP=$SBARDIR\GENERAL\MENUS\PUTIN.BMP{
RUN LNK=BIBBLE;
};
ENDIF
};
// DEMO: Removed Durteen link.
// BetTaker
SET CHR=$SBARDIR\GENERAL\PANIMS\BGBE1.SMK[1064,246]%2{
RUN LNK = BETTAKER_WLD;
};
// AUDITON AT UBER POKER
SET CHR=$SBARDIR\GENERAL\PANIMS\BGNC1.SMK[1374,256];
// ARKSH
IF (ARK_LOC == 2)
SET CHR=$SBARDIR\GENERAL\PANIMS\BGAR2.SMK[1220,244]^GH_ARKSH%2{
RUN LNK = CHAR_WLD;
};
ENDIF
// DEMO: Removed message for Arksh event.
// ChipHandler
SET CHR=$SBARDIR\GENERAL\PANIMS\BGCH1.SMK[1481,236]%2{
IF ( BGP_WLD CONTAINS GH_ARKSH )
RUN LNK = CHAR_WLD;
ELSE
RUN LNK = CHIPHANDLER_WLD;
ENDIF
};
// DEMO: Always make the mytosi be at stage 1 (together)
SET TNG=$SBARDIR\GENERAL\PANIMS\BGMY1.SMK[168,272];
// SRAFFAN LOOKING OUT WINDOW
SET TNG=$SBARDIR\GENERAL\PANIMS\BGNC2.SMK[618,262];
}
// Bibble Bonk Closeup
SDEV BIBBLE AS PLAYBIBBLE{
SET BKG=$SBARDIR\BAR\CLOSEUP\BGCH\BIBINIT.BMP;
}
// Bettaker CIC
SDEV BETTAKER_WLD AS CIC{
SET BKG = $SBARDIR\BAR\CHAR\BETTAKER\BLACK.BMP;
SET CHR = $SBARDIR\BAR\CHAR\BETTAKER\BENEUTR1.SMK^BETTMOVIE [80,0] %0;
IF (CASINOBETT~~PLAYING == 0)
RUN EXPR = CASINOBETT~~VOLUME( 6 );
RUN SND = $SBARDIR\BAR\EVENTS\CASINO.WAV^CASINOBETT LOOP 0 AS MIX;
ENDIF
SET ARE= [270,70,460,330] %1 {
SET TXT=Bettaker COLOR 2 SIZE 16 AS TITLE; //%%14878
SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
RUN SND=$SBARDIR\BAR\CHAR\CHIPHAND\CHOSEX.WAV AS QUEUE *2;
};
SET BMP=$SBARDIR\GENERAL\MENUS\TOUCH.BMP{
SET TXT=$SBARDIR\BAR\CHAR\CHIPHAND\CHOSTC.TXT COLOR 2 AS CAPTION; //%%14883
};
IF ( BETTAKER_GREET == FALSE )
SET BMP=$SBARDIR\GENERAL\MENUS\GREET.BMP{
RUN EXPR = BETTMOVIE~~MODAL( 1 );
RUN EXPR = BETTMOVIE~~LOOP( 1 );
RUN COMMAND = FLUSHQUEUE2;
RUN MOVIE=$SBARDIR\BAR\CHAR\BETTAKER\BEOSGR.SMK;
RUN EXPR = BETTMOVIE~~MODAL( 0 );
RUN EXPR = BETTMOVIE~~LOOP( -1 );
RUN COMMAND = INSERT OBJECT BETTAKER TO LOG_WLD;
RUN COMMAND = INSERT OBJECT BETTAKERZ TO LOGZ_WLD;
IF (VP_STATE == ON AND IJAM_STATE == OFF)
RUN EXPR=BETTAKER~~VP(1);
RUN EXPR=BETTAKERZ~~VP(1);
ENDIF
RUN EXPR = BETTAKER_GREET( TRUE );
};
ENDIF
IF (BETTAKER_GREET == TRUE)
SET BMP=$SBARDIR\GENERAL\MENUS\ASK.BMP{
SET TXT=Ask_Bettaker_about... COLOR 4 SIZE 16 AS TITLE;
SET TXT=himself COLOR 4 SIZE 16 %1 {
RUN EXPR = BETTMOVIE~~MODAL( 1 );
RUN EXPR = BETTMOVIE~~LOOP( 1 );
RUN COMMAND = FLUSHQUEUE2;
RUN MOVIE=$SBARDIR\BAR\CHAR\BETTAKER\BEAABE.SMK;
RUN EXPR = BETTMOVIE~~MODAL( 0 );
RUN EXPR = BETTMOVIE~~LOOP( -1 );
};
SET TXT=Chiphandler COLOR 4 SIZE 16 %1 {
RUN EXPR = BETTMOVIE~~MODAL( 1 );
RUN EXPR = BETTMOVIE~~LOOP( 1 );
RUN COMMAND = FLUSHQUEUE2;
RUN MOVIE=$SBARDIR\BAR\CHAR\BETTAKER\BEAACH.SMK;
RUN EXPR = BETTMOVIE~~MODAL( 0 );
RUN EXPR = BETTMOVIE~~LOOP( -1 );
};
SET TXT=Bibblebonk COLOR 4 SIZE 16 %1 {
RUN EXPR = BETTMOVIE~~MODAL( 1 );
RUN EXPR = BETTMOVIE~~LOOP( 1 );
RUN COMMAND = FLUSHQUEUE2;
RUN MOVIE=$SBARDIR\BAR\CHAR\BETTAKER\BEAABIBB.SMK;
RUN EXPR = BETTMOVIE~~MODAL( 0 );
RUN EXPR = BETTMOVIE~~LOOP( -1 );
};
};
SET BMP=$SBARDIR\GENERAL\MENUS\ORDER.BMP{
SET TXT=Order_Bettaker_to... COLOR 4 SIZE 16 AS TITLE; //%%14984
SET TXT=press_my_trousers COLOR 4 SIZE 16 %1 { //%%14985
RUN EXPR = BETTMOVIE~~MODAL( 1 );
RUN EXPR = BETTMOVIE~~LOOP( 1 );
RUN COMMAND = FLUSHQUEUE2;
RUN MOVIE=$SBARDIR\BAR\CHAR\BETTAKER\BEGODFLT.SMK;
RUN EXPR = BETTMOVIE~~MODAL( 0 );
RUN EXPR = BETTMOVIE~~LOOP( -1 );
};
SET TXT=do_an_impression_of_C3PO COLOR 4 SIZE 16 %1 { //%%14999
RUN EXPR = BETTMOVIE~~MODAL( 1 );
RUN EXPR = BETTMOVIE~~LOOP( 1 );
RUN COMMAND = FLUSHQUEUE2;
RUN MOVIE=$SBARDIR\BAR\CHAR\BETTAKER\BEGODFLT.SMK;
RUN EXPR = BETTMOVIE~~MODAL( 0 );
RUN EXPR = BETTMOVIE~~LOOP( -1 );
};
};
SET BMP=$SBARDIR\GENERAL\MENUS\CHAT.BMP{
RUN EXPR = OPENERDONE( FALSE );
// DEMO: Since Vildroid flashback can't be completed, don't block
// multiple attempts to enter the flashback.
RUN EXPR=SAVTURNCOUNT(TURNCOUNT);
RUN COMMAND = DEACTIVATEPDA;
RUN COMMAND = STOPPAINT;
RUN MOVIE = $SBARDIR\VILDROID\EVENTS\EVFLASH.SMK[0,0];
RUN LNK = $SBARDIR\WLD\VILDEMO.WLD;
};
ENDIF
};
// DEMO: Removed Bettaker's torso hotspot.
}
// Chiphandler chat
SDEV CHIPHANDLER_WLD AS CIC{
SET BKG = $SBARDIR\BAR\CHAR\CHIPHAND\BLACK.BMP;
SET CHR = $SBARDIR\BAR\CHAR\CHIPHAND\CHNEUTR1.SMK^CHIPMOVIE [80,0] %0;
SET ARE= [240,100,430,345] %1 {
SET TXT=Chiphandler COLOR 2 SIZE 16 AS TITLE; //%%14694
SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
RUN SND=$SBARDIR\BAR\CHAR\CHIPHAND\CHOSEX.WAV AS QUEUE *2;
};
SET BMP=$SBARDIR\GENERAL\MENUS\TOUCH.BMP{
SET TXT=$SBARDIR\BAR\CHAR\CHIPHAND\CHOSTC.TXT COLOR 2 AS CAPTION; //%%14699
};
IF ( CHIPHANDLER_GREET == FALSE )
SET BMP=$SBARDIR\GENERAL\MENUS\GREET.BMP{
RUN EXPR = CHIPMOVIE~~MODAL( 1 );
RUN EXPR = CHIPMOVIE~~LOOP( 1 );
RUN COMMAND = FLUSHQUEUE2;
RUN MOVIE=$SBARDIR\BAR\CHAR\CHIPHAND\CHOSGR.SMK;
RUN EXPR = CHIPMOVIE~~MODAL( 0 );
RUN EXPR = CHIPMOVIE~~LOOP( -1 );
RUN COMMAND = INSERT OBJECT CHIPHANDLER TO LOG_WLD;
RUN COMMAND = INSERT OBJECT CHIPHANDLERZ TO LOGZ_WLD;
IF (VP_STATE == ON AND IJAM_STATE == OFF)
RUN EXPR=CHIPHANDLER~~VP(1);
RUN EXPR=CHIPHANDLERZ~~VP(1);
ENDIF
RUN EXPR = CHIPHANDLER_GREET( TRUE );
};
ENDIF
IF ( CHIPHANDLER_GREET == TRUE )
SET BMP=$SBARDIR\GENERAL\MENUS\ASK.BMP{
SET TXT=Ask_Chiphandler_about... COLOR 4 SIZE 16 AS TITLE; //%%14721
// DEMO: Removed ask about himself interaction.
SET TXT=myself COLOR 4 SIZE 16 %1 { //%%14725
RUN EXPR = CHIPMOVIE~~MODAL( 1 );
RUN EXPR = CHIPMOVIE~~LOOP( 1 );
RUN COMMAND = FLUSHQUEUE2;
RUN MOVIE=$SBARDIR\BAR\CHAR\CHIPHAND\CHAAAN.SMK;
RUN EXPR = CHIPMOVIE~~MODAL( 0 );
RUN EXPR = CHIPMOVIE~~LOOP( -1 );
};
// DEMO: Removed ask about gorb interaction.
// DEMO: Removed ask about bettaker interaction.
// DEMO: Removed ask about arksh interaction.
// DEMO: Removed ask about bibblebonk interaction.
// DEMO: Removed ask about the slot machine interaction.
// DEMO: Removed ask about datacart interaction.
};
// DEMO: Removed order interaction.
SET BMP=$SBARDIR\GENERAL\MENUS\CHAT.BMP{
RUN EXPR = OPENERDONE( FALSE );
RUN COMMAND = STASHWIELD;
RUN LNK = CHIPCHAT_WLD;
};
ENDIF
};
// DEMO: Removed Chiphandler's torso hotspot.
}
SDEV CHIPCHAT_WLD AS CHAT {
SET BKG = $SBARDIR\BAR\CHAR\CHIPHAND\BLACK.BMP;
SET CHR = $SBARDIR\BAR\CHAR\CHIPHAND\CHNEUTR1.SMK^CHCHMOVIE [80,10];
// Exit on Left Edge
SET AREA=[0,0,80,370]%10{
// DEMO: Pull the finish lines from the Salivraster asset area.
RUN EXPR = FINISHCHOICE( RANDOM % 5 );
IF (FINISHCHOICE == 0)
RUN SND = $SBARDIR\BAR\CHAR\FINISH\FINISH1.WAV AS WAITMIX;
ENDIF
IF (FINISHCHOICE == 1)
RUN SND = $SBARDIR\BAR\CHAR\FINISH\FINISH2.WAV AS WAITMIX;
ENDIF
IF (FINISHCHOICE == 2)
RUN SND = $SBARDIR\BAR\CHAR\FINISH\FINISH3.WAV AS WAITMIX;
ENDIF
IF (FINISHCHOICE == 3)
RUN SND = $SBARDIR\BAR\CHAR\FINISH\FINISH4.WAV AS WAITMIX;
ENDIF
IF (FINISHCHOICE == 4)
RUN SND = $SBARDIR\BAR\CHAR\FINISH\FINISH5.WAV AS WAITMIX;
ENDIF
RUN COMMAND = CLOSE;
};
IF (OPENERDONE == FALSE)
RUN MOVIE = $SBARDIR\BAR\CHAR\CHIPHAND\CHCHOP.SMK;
RUN EXPR = CHCHMOVIE~~MODAL( 0 );
RUN EXPR = CHCHMOVIE~~LOOP( -1 );
RUN COMMAND = INSERT OBJECT CHCH1L1A TO CHIPCHAT_WLD;
RUN COMMAND = INSERT OBJECT CHCH1L1B TO CHIPCHAT_WLD;
RUN COMMAND = INSERT OBJECT CHCH1L1C TO CHIPCHAT_WLD;
RUN COMMAND = INSERT OBJECT CHCH1L1D TO CHIPCHAT_WLD;
RUN EXPR = OPENERDONE( TRUE );
ENDIF
IF (OPENERDONE == TRUE)
SET TXT =Inquire_about_patrons [80,370,400,385] COLOR 7 AS TITLE %1 ^CHCH1L1A { //%%14838
RUN COMMAND = REMOVE OBJECT CHCH1L1A FROM CHIPCHAT_WLD;
RUN EXPR = CHCHMOVIE~~MODAL( 1 );
RUN EXPR = CHCHMOVIE~~LOOP( 1 );
RUN MOVIE = $SBARDIR\BAR\CHAR\CHIPHAND\CHCH1L1A.SMK;
RUN EXPR = CHCHMOVIE~~MODAL( 0 );
RUN EXPR = CHCHMOVIE~~LOOP( -1 );
};
SET TXT =Inquire_about_observations [80,390,400,405] COLOR 7 AS TITLE %1 ^CHCH1L1B { //%%14846
RUN COMMAND = REMOVE OBJECT CHCH1L1B FROM CHIPCHAT_WLD;
RUN EXPR = CHCHMOVIE~~MODAL( 1 );
RUN EXPR = CHCHMOVIE~~LOOP( 1 );
RUN MOVIE = $SBARDIR\BAR\CHAR\CHIPHAND\CHCH1L1B.SMK;
RUN EXPR = CHCHMOVIE~~MODAL( 0 );
RUN EXPR = CHCHMOVIE~~LOOP( -1 );
};
SET TXT =Inquire_about_employees [80,410,400,425] COLOR 7 AS TITLE %1 ^CHCH1L1C { //%%14854
RUN COMMAND = REMOVE OBJECT CHCH1L1C FROM CHIPCHAT_WLD;
RUN EXPR = CHCHMOVIE~~MODAL( 1 );
RUN EXPR = CHCHMOVIE~~LOOP( 1 );
RUN MOVIE = $SBARDIR\BAR\CHAR\CHIPHAND\CHCH1L1C.SMK;
RUN EXPR = CHCHMOVIE~~MODAL( 0 );
RUN EXPR = CHCHMOVIE~~LOOP( -1 );
};
SET TXT =Finished [80,430,400,445] COLOR 7 AS TITLE %1 ^CHCH1L1D { //%%14862
RUN COMMAND = REMOVE OBJECT CHCH1L1D FROM CHIPCHAT_WLD;
RUN COMMAND = PAINT;
RUN SND = $SBARDIR\BAR\CHAR\CHIPHAND\CHCH1L1D.WAV AS WAITMIX;
RUN COMMAND = CLOSE;
};
ENDIF
}
// End Chiphandler Chat
// Soldier CIC
SDEV SOLDIER_WLD AS CIC{
SET BKG = $SBARDIR\BAR\CHAR\SOLDIER\BLACK.BMP;
SET CHR = $SBARDIR\BAR\CHAR\SOLDIER\SONEUTR2.SMK^SOLDMOVIE [80,0] %0;
// Mister Drinkmaster 2000
SET ARE=BDNP[80,82,247,216]%1{
SET TXT = Mister_DrinkMaster_2000 COLOR 2 AS TITLE; //%%9860
SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
RUN SND=$SBARDIR\BAR\CHAR\SOLDIER\BDNPEXC1.WAV AS QUEUE *2;
};
SET BMP=$SBARDIR\GENERAL\MENUS\TURNON.BMP{
SET TXT=$SBARDIR\BAR\CHAR\SOLDIER\BDNPTNC1.TXT COLOR 2 AS CAPTION; //%%9865
};
SET BMP=$SBARDIR\GENERAL\MENUS\OPEN.BMP{
RUN MOVIE=$SBARDIR\BAR\CHAR\SOLDIER\BDNPOPC1.SMK;
};
SET BMP=$SBARDIR\GENERAL\MENUS\SEARCH.BMP{
RUN SND=$SBARDIR\BAR\CHAR\SOLDIER\BDNPSRC1.WAV AS QUEUE *2;
};
};
// DEMO: Removed link to brooch as you can't complete the zzazzl flashback
// DEMO: in the demo.
SET BMP = $SBARDIR\BAR\CHAR\SOLDIER\BDNE0.BMP[118,11]%1{
SET TXT = brooch COLOR 2 AS TITLE; //%%9880
SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
RUN SND=$SBARDIR\BAR\CHAR\SOLDIER\BDNEEXC1.WAV AS QUEUE *2;
RUN EXPR = EXAMINE_BROOCH( TRUE );
};
SET BMP=$SBARDIR\GENERAL\MENUS\OPEN.BMP{
RUN SND=$SBARDIR\BAR\CHAR\SOLDIER\BDNEOPC1.WAV AS QUEUE *2;
RUN EXPR = EXAMINE_BROOCH( TRUE );
};
SET BMP=$SBARDIR\GENERAL\MENUS\PICKUP.BMP{
RUN SND=$SBARDIR\BAR\CHAR\SOLDIER\BDNETAC1.WAV AS QUEUE *2;
RUN EXPR = EXAMINE_BROOCH( TRUE );
};
};
SET ARE= [245,110,385,340] %1 {
SET TXT=Soldier_714-Z-367 COLOR 2 SIZE 16 AS TITLE; //%%9896
SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
RUN SND=$SBARDIR\BAR\CHAR\SOLDIER\SOOSEX.WAV AS QUEUE *2;
};
IF (SOLDIER_GREET == FALSE)
SET BMP=$SBARDIR\GENERAL\MENUS\GREET.BMP{
RUN EXPR = SOLDMOVIE~~MODAL( 1 );
RUN EXPR = SOLDMOVIE~~LOOP( 1 );
RUN COMMAND = FLUSHQUEUE2;
RUN MOVIE=$SBARDIR\BAR\CHAR\SOLDIER\SOOSGR.SMK;
RUN EXPR = SOLDMOVIE~~MODAL( 0 );
RUN EXPR = SOLDMOVIE~~LOOP( -1 );
RUN COMMAND = INSERT OBJECT SOLDIER TO LOG_WLD;
RUN COMMAND = INSERT OBJECT SOLDIERZ TO LOGZ_WLD;
RUN EXPR=SOLDIER~~ROOM(4);
RUN EXPR=SOLDIERZ~~ROOM(4);
// DEMO: Removed voiceprinter and infrared jammer code.
RUN EXPR=SOLDIER_GREET(TRUE);
};
ENDIF
IF (SOLDIER_GREET == TRUE)
SET BMP=$SBARDIR\GENERAL\MENUS\ASK.BMP{
SET TXT = Ask_Soldier_714-Z-367_about... COLOR 4 SIZE 16 AS TITLE; //%%9908
// DEMO: Removed ask about himself interaction.
SET TXT=myself COLOR 4 SIZE 16 %1 { //%%9916
RUN EXPR = SOLDMOVIE~~MODAL( 1 );
RUN EXPR = SOLDMOVIE~~LOOP( 1 );
RUN COMMAND = FLUSHQUEUE2;
RUN MOVIE=$SBARDIR\BAR\CHAR\SOLDIER\SOAAAN.SMK;
RUN EXPR = SOLDMOVIE~~MODAL( 0 );
RUN EXPR = SOLDMOVIE~~LOOP( -1 );
};
// DEMO: Removed ask about gorb interaction.
// DEMO: Removed ask about the mytosi interaction.
IF (THUD_GREET == TRUE)
SET TXT=Thud COLOR 4 SIZE 16 %1 { //%%9942
RUN EXPR = SOLDMOVIE~~MODAL( 1 );
RUN EXPR = SOLDMOVIE~~LOOP( 1 );
RUN COMMAND = FLUSHQUEUE2;
RUN MOVIE=$SBARDIR\BAR\CHAR\SOLDIER\SOAATB.SMK;
RUN EXPR = SOLDMOVIE~~MODAL( 0 );
RUN EXPR = SOLDMOVIE~~LOOP( -1 );
};
ENDIF
IF (FLEEB_GREET == TRUE)
SET TXT=Fleebix COLOR 4 SIZE 16 %1 { //%%9942
RUN EXPR = SOLDMOVIE~~MODAL( 1 );
RUN EXPR = SOLDMOVIE~~LOOP( 1 );
RUN COMMAND = FLUSHQUEUE2;
RUN MOVIE=$SBARDIR\BAR\CHAR\SOLDIER\SOAAFB.SMK;
RUN EXPR = SOLDMOVIE~~MODAL( 0 );
RUN EXPR = SOLDMOVIE~~LOOP( -1 );
};
ENDIF
IF (EXAMINE_BROOCH == TRUE)
SET TXT=brooch COLOR 4 SIZE 16 %1 { //%%10000
RUN EXPR = SOLDMOVIE~~MODAL( 1 );
RUN EXPR = SOLDMOVIE~~LOOP( 1 );
RUN COMMAND = FLUSHQUEUE2;
RUN MOVIE=$SBARDIR\BAR\CHAR\SOLDIER\SOAABDNE.SMK;
RUN EXPR = SOLDMOVIE~~MODAL( 0 );
RUN EXPR = SOLDMOVIE~~LOOP( -1 );
};
ENDIF
// DEMO: Removed ask about brooch interaction.
IF (HAVEDRINK == TRUE)
SET TXT=my_drink COLOR 4 SIZE 16 %1 { //%%10018
RUN EXPR = SOLDMOVIE~~MODAL( 1 );
RUN EXPR = SOLDMOVIE~~LOOP( 1 );
RUN COMMAND = FLUSHQUEUE2;
RUN MOVIE=$SBARDIR\BAR\CHAR\SOLDIER\SOAABDTO.SMK;
RUN EXPR = SOLDMOVIE~~MODAL( 0 );
RUN EXPR = SOLDMOVIE~~LOOP( -1 );
};
ENDIF
};
SET BMP=$SBARDIR\GENERAL\MENUS\ORDER.BMP{
SET TXT = Order_Soldier_714-Z-367_to... COLOR 4 SIZE 16 AS TITLE; //%%10028
IF ( EXAMINE_BROOCH == TRUE )
SET TXT=open_the_brooch COLOR 4 SIZE 16 %1 { //%%10030
SET TXT=$SBARDIR\BAR\CHAR\SOLDIER\SOOPBDNE.TXT COLOR 2 AS CAPTION; //%%10031
};
ENDIF
IF (NEVER_REQUESTED_A_DRINK == TRUE)
SET TXT=give_me_a_drink COLOR 4 SIZE 16 %1 { //%%10034
IF (HAVEDRINK == FALSE)
RUN EXPR = SOLDMOVIE~~MODAL( 1 );
RUN EXPR = SOLDMOVIE~~LOOP( 1 );
RUN COMMAND = FLUSHQUEUE2;
RUN MOVIE=$SBARDIR\BAR\CHAR\SOLDIER\SOGBDTO1.SMK;
RUN EXPR = SOLDMOVIE~~MODAL( 0 );
RUN EXPR = SOLDMOVIE~~LOOP( -1 );
RUN EXPR = REQUESTEDDRINK(TRUE);
// DEMO: Insert the drink into the wield.
RUN COMMAND=INSERT OBJECT DRINK3 TO BWIELD_WLD;
// DEMO: Removed the else part of the if - can't order more
// than one drink.
ENDIF
// DEMO: We've modified how interactions for the drink works. To address
// scripting issues, we record that the drink has been delivered here.
IF (REQUESTEDDRINK == TRUE)
RUN EXPR = HAVEDRINK(TRUE);
RUN EXPR = NEVER_REQUESTED_A_DRINK(FALSE);
ENDIF
};
ENDIF
SET TXT=lead_me_to_the_hidden_cellar COLOR 4 SIZE 16 %1 { //%%10049
RUN EXPR = SOLDMOVIE~~MODAL( 1 );
RUN EXPR = SOLDMOVIE~~LOOP( 1 );
RUN COMMAND = FLUSHQUEUE2;
RUN MOVIE=$SBARDIR\BAR\CHAR\SOLDIER\SOGODFLT.SMK;
RUN EXPR = SOLDMOVIE~~MODAL( 0 );
RUN EXPR = SOLDMOVIE~~LOOP( -1 );
};
};
SET BMP=$SBARDIR\GENERAL\MENUS\CHAT.BMP{
RUN EXPR = OPENERDONE( FALSE );
RUN EXPR = LEVEL( 0 );
IF (SOLDIER_MET==0)
RUN EXPR=SOLDIER_MET(1);
ENDIF
RUN EXPR=SAVTURNCOUNT(TURNCOUNT);
RUN LNK = $SBARDIR\WLD\ZZADEMO.WLD;
// DEMO: Demo removed support to block reentry to the Zzazzl flashback.
};
ENDIF
};
// DEMO: Removed your_drink - BDTO3.BMP^DRINK3 - bar 01-22-97
}
// Fleebix & Thud CIC
SDEV FLEETHUD_WLD AS CIC{
SET BKG=$SBARDIR\BAR\CHAR\THUD\BLACK.BMP;
SET CHR = $SBARDIR\BAR\CHAR\THUD\TBNEUTR1.SMK^FBTHMOVIE [80,0] %0;
// DEMO: Remove Thud's hide loop.
// DEMO: Removed support to make thud hide.
SET ARE= [150,155,250,310]^FLEEBIX %1 {
SET TXT=Fleebix COLOR 2 SIZE 16 AS TITLE; //%%9030
SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
RUN SND=$SBARDIR\BAR\CHAR\FLEEBIX\FBOSEX.WAV AS QUEUE *2;
};
SET BMP=$SBARDIR\GENERAL\MENUS\SMELL.BMP{
RUN SND=$SBARDIR\BAR\CHAR\FLEEBIX\FBOSSM.WAV AS QUEUE *2;
};
IF (FLEEB_GREET == FALSE )
SET BMP=$SBARDIR\GENERAL\MENUS\GREET.BMP{
RUN EXPR = FBTHMOVIE~~MODAL( 1 );
RUN EXPR = FBTHMOVIE~~LOOP( 1 );
RUN COMMAND = FLUSHQUEUE2;
RUN MOVIE=$SBARDIR\BAR\CHAR\FLEEBIX\FBOSGR.SMK;
RUN EXPR = FBTHMOVIE~~MODAL( 0 );
RUN EXPR = FBTHMOVIE~~LOOP( -1 );
RUN COMMAND = INSERT OBJECT FLEEBIX TO LOG_WLD;
RUN COMMAND = INSERT OBJECT FLEEBIXZ TO LOGZ_WLD;
// DEMO: Removed voiceprinter and ir jammer support.
RUN EXPR = THUDLAST( FALSE );
RUN EXPR = FLEEB_GREET( TRUE );
};
ELSE
SET BMP=$SBARDIR\GENERAL\MENUS\ASK.BMP{
SET TXT=Ask_Fleebix_about... COLOR 4 SIZE 16 AS TITLE; //%%9071
SET TXT=myself COLOR 4 SIZE 16 %1 { //%%9091
// DEMO: Removed Thud hiding support from Fleebix chat.
RUN EXPR = FBTHMOVIE~~MODAL( 1 );
RUN EXPR = FBTHMOVIE~~LOOP( 1 );
RUN COMMAND = FLUSHQUEUE2;
RUN MOVIE=$SBARDIR\BAR\CHAR\FLEEBIX\FBAAAN.SMK;
RUN EXPR = FBTHMOVIE~~MODAL( 0 );
RUN EXPR = FBTHMOVIE~~LOOP( -1 );
RUN EXPR = THUDLAST( FALSE );
};
IF (THUD_GREET == TRUE)
SET TXT=Thud COLOR 4 SIZE 16 %1 { //%%9111
// DEMO: Removed Thud hiding support from Fleebix chat.
RUN EXPR = FBTHMOVIE~~MODAL( 1 );
RUN EXPR = FBTHMOVIE~~LOOP( 1 );
RUN COMMAND = FLUSHQUEUE2;
RUN MOVIE=$SBARDIR\BAR\CHAR\FLEEBIX\FBAATB.SMK;
RUN EXPR = FBTHMOVIE~~MODAL( 0 );
RUN EXPR = FBTHMOVIE~~LOOP( -1 );
RUN EXPR = THUDLAST( FALSE );
};
ENDIF
SET TXT = Yzore [80,390,400,405] COLOR 4 SIZE 16 %1 { //%%2518
RUN EXPR = FLEEMOVIE~~MODAL( 1 );
RUN EXPR = FLEEMOVIE~~LOOP( 1 );
RUN COMMAND = FLUSHQUEUE2;
RUN MOVIE = $SBARDIR\NEBLITZ\CHAR\FLEEBIX\FBCH1L3B.SMK;
RUN EXPR = FLEEMOVIE~~MODAL( 0 );
RUN EXPR = FLEEMOVIE~~LOOP( -1 );
};
};
// DEMO: Just get nasty response from Fleeb
SET BMP=$SBARDIR\GENERAL\MENUS\CHAT.BMP{
RUN EXPR = FBTHMOVIE~~MODAL( 1 );
RUN EXPR = FBTHMOVIE~~LOOP( 1 );
RUN COMMAND = FLUSHQUEUE2;
RUN MOVIE=$SBARDIR\BAR\CHAR\FLEEBIX\FBCH4OP.SMK;
RUN EXPR = FBTHMOVIE~~MODAL( 0 );
RUN EXPR = FBTHMOVIE~~LOOP( -1 );
RUN EXPR = THUDLAST( FALSE );
};
ENDIF
};
SET ARE= [350,135,545,359] %1 {
SET TXT=Thud COLOR 2 SIZE 16 AS TITLE; //%%9528
SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
RUN SND=$SBARDIR\BAR\CHAR\THUD\TBOSEX.WAV AS QUEUE *2;
};
SET BMP=$SBARDIR\GENERAL\MENUS\KISS.BMP{
RUN SND=$SBARDIR\BAR\CHAR\THUD\TBOSKS.WAV AS QUEUE *2;
};
SET BMP=$SBARDIR\GENERAL\MENUS\SMELL.BMP{
RUN SND=$SBARDIR\BAR\CHAR\THUD\TBOSSM.WAV AS QUEUE *2;
};
IF (THUD_GREET == FALSE)
SET BMP=$SBARDIR\GENERAL\MENUS\GREET.BMP{
RUN EXPR = FBTHMOVIE~~MODAL( 1 );
RUN EXPR = FBTHMOVIE~~LOOP( 1 );
RUN COMMAND = FLUSHQUEUE2;
RUN MOVIE=$SBARDIR\BAR\CHAR\THUD\TBOSGR.SMK;
RUN EXPR = FBTHMOVIE~~MODAL( 0 );
RUN EXPR = FBTHMOVIE~~LOOP( -1 );
RUN COMMAND = INSERT OBJECT THUD TO LOG_WLD;
RUN COMMAND = INSERT OBJECT THUDZ TO LOGZ_WLD;
// DEMO: Removed voiceprinter and ir jammer support.
RUN EXPR = THUDLAST( TRUE );
RUN EXPR = THUD_GREET( TRUE );
};
ELSE
// DEMO: Removed playwith thud interaction because it kills you.
// DEMO: Removed search interaction
SET BMP=$SBARDIR\GENERAL\MENUS\ASK.BMP{
SET TXT=Ask_Thud_about... COLOR 4 SIZE 16 AS TITLE; //%%9581
SET TXT=himself COLOR 4 SIZE 16 %1 { //%%9582
RUN EXPR = FBTHMOVIE~~MODAL( 1 );
RUN EXPR = FBTHMOVIE~~LOOP( 1 );
RUN COMMAND = FLUSHQUEUE2;
RUN MOVIE=$SBARDIR\BAR\CHAR\THUD\TBAATB.SMK;
RUN EXPR = FBTHMOVIE~~MODAL( 0 );
RUN EXPR = FBTHMOVIE~~LOOP( -1 );
RUN EXPR = THUDLAST( TRUE );
};
SET TXT=myself COLOR 4 SIZE 16 %1 { //%%9590
RUN EXPR = FBTHMOVIE~~MODAL( 1 );
RUN EXPR = FBTHMOVIE~~LOOP( 1 );
RUN COMMAND = FLUSHQUEUE2;
RUN MOVIE=$SBARDIR\BAR\CHAR\THUD\TBAAAN.SMK;
RUN EXPR = FBTHMOVIE~~MODAL( 0 );
RUN EXPR = FBTHMOVIE~~LOOP( -1 );
RUN EXPR = THUDLAST( TRUE );
};
IF (FLEEB_GREET == TRUE)
SET TXT=Fleebix COLOR 4 SIZE 16 %1 { //%%9599
RUN EXPR = FBTHMOVIE~~MODAL( 1 );
RUN EXPR = FBTHMOVIE~~LOOP( 1 );
RUN COMMAND = FLUSHQUEUE2;
RUN MOVIE=$SBARDIR\BAR\CHAR\THUD\TBAAFB.SMK;
RUN EXPR = FBTHMOVIE~~MODAL( 0 );
RUN EXPR = FBTHMOVIE~~LOOP( -1 );
RUN EXPR = THUDLAST( TRUE );
};
ENDIF
SET TXT=Bibblebonk COLOR 4 SIZE 16 %1 { //%%9590
RUN EXPR = FBTHMOVIE~~MODAL( 1 );
RUN EXPR = FBTHMOVIE~~LOOP( 1 );
RUN COMMAND = FLUSHQUEUE2;
RUN MOVIE=$SBARDIR\BAR\CHAR\THUD\TBAADFLT.SMK;
RUN EXPR = FBTHMOVIE~~MODAL( 0 );
RUN EXPR = FBTHMOVIE~~LOOP( -1 );
RUN EXPR = THUDLAST( TRUE );
};
};
// DEMO: Removed Order Thud to interaction
SET BMP=$SBARDIR\GENERAL\MENUS\CHAT.BMP{
RUN EXPR = THUDLAST( TRUE );
RUN EXPR = OPENERDONE( FALSE );
// DEMO: Always allow entry to the salivraster flashback.
RUN EXPR=SAVTURNCOUNT(TURNCOUNT);
RUN LNK = $SBARDIR\WLD\SALDEMO.WLD;
};
ENDIF
};
}
// End Fleebix & Thud CIC
// DEMO: Removed mydw_wld
// READ THE PANEL UNDER THE MONITORS CLOSEUP
SDEV BACG_WLD AS CLOSEUP{
SET BKG=$SBARDIR\BAR\CLOSEUP\BACG\BACG.BMP;
// This is a looping background sound that stops on exit
RUN EXPR = ENTRYBACG~~VOLUME( 5 );
RUN SND = $SBARDIR\BAR\EVENTS\ENTRY.WAV^ENTRYBACG LOOP 0 AS MIX SOUNDOVEROK;
// CURSOR FIX
SET ARE=NOTHING[0,0,480,360];
}
SDEV BPDA_WLD AS PDA{
SET BKG=$SBARDIR\BAR\PDA\BPDA.BMP;
SET ARE=DEACTIVE[0,0,514,238]{
RUN COMMAND = DEACTIVATEPDA;
};
SET BUT=$SBARDIR\BAR\PDA\BMAP.BMP[123,188]+1^100;
SET BUT=$SBARDIR\BAR\PDA\BSTASH.BMP[165,188]+1^101;
// DEMO: zoomlite is unnecessary - bar 01-27-97
// SET BUT=$SBARDIR\BAR\PDA\ZOOMLITE.BMP[208,187]+2^ZOOMFLASH FRAMERATE 4;
SET BUT=$SBARDIR\BAR\PDA\BZOOM.BMP[208,187]+2^102
{
RUN EXPR=PDAZOOMED(TRUE);
RUN LNK=BPDAZ_WLD;
};
SET BUT=$SBARDIR\BAR\PDA\BSYSTEM.BMP[262,188]+1^113 {
SET TXT = $SBARDIR\GENERAL\NOTINCL.TXT COLOR 2 AS CAPTION;
};
SET BUT=$SBARDIR\BAR\PDA\BLOG.BMP[304,188]+1^104;
SET CHR=$SBARDIR\BAR\PDA\BWAND.SMK^WANDANIM LOOP 0[41,8];
SET BUT=$SBARDIR\BAR\PDA\BBLINK.BMP[361,133]^110^MSGLIGHT+2{
RUN EXPR=ZELDA_REM(6666);
}
SET TIME=$SBARDIR\BAR\PDA\BTIME.BMP[410,140]^CLOCK+11 VALUE TURNCOUNT;
IF (BARLOC == BAP)
SET SPR=$SBARDIR\BAR\MAP\NAMES\BA.BMP[377,82];
ENDIF
IF (BARLOC == BDP)
SET SPR=$SBARDIR\BAR\MAP\NAMES\BD.BMP[377,82];
ENDIF
IF (BARLOC == BGP)
SET SPR=$SBARDIR\BAR\MAP\NAMES\BG.BMP[377,82];
ENDIF
}
// ZOOM PDA
SDEV BPDAZ_WLD AS ZOOMPDA{
SET BKG=$SBARDIR\BAR\PDA\BPDAZ.BMP;
SET BUT=$SBARDIR\BAR\PDA\BMAPZ.BMP[45,380]+1^100%1;
SET BUT=$SBARDIR\BAR\PDA\BSTASHZ.BMP[154,380]+1^101%1;
SET BUT=$SBARDIR\BAR\PDA\BZOOMZ.BMP[266,380]+1^102%1
{
RUN EXPR=PDAZOOMED(FALSE);
RUN COMMAND=CLOSE;
};
SET BUT=$SBARDIR\BAR\PDA\BSYSTEMZ.BMP[389,380]+1^113%1 {
SET TXT = $SBARDIR\GENERAL\NOTINCL.TXT COLOR 2 AS CAPTION;
};
SET BUT=$SBARDIR\BAR\PDA\BLOGZ.BMP[495,380]+1^104%1;
}
SDEV MAP_WLD AS BMP RECT [116, 61, 350, 172]{
SET BKG=$SBARDIR\BAR\MAP\BARMAP.BMP;
// THE YOU ICON
IF (BARLOC == BAP)
SET SPR=$SBARDIR\BAR\MAP\YOU.BMP[66,89]+2;
ENDIF
IF (BARLOC == BDP)
SET SPR=$SBARDIR\BAR\MAP\YOU.BMP[57,52]+2;
ENDIF
IF (BARLOC == BGP)
SET SPR=$SBARDIR\BAR\MAP\YOU.BMP[69,41]+2;
ENDIF
}
SDEV INV_WLD AS INVWLD RECT [116, 61, 350, 172]{
SET BKG=$SBARDIR\BAR\INV\INVBACK.BMP;
// HIGH FREQUENCY JAMMMER
// DEMO: Changed the HFJAMMER from a hold bmp to a set bmp
SET BMP=$SBARDIR\BAR\INV\BZTG.BMP^HFJAMMER{
SET TXT = high-frequency_jammer COLOR 2 AS TITLE; //%%2860
SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
RUN COMMAND = FLUSHQUEUE2;
RUN MOVIE=$SBARDIR\BAR\OBJ\BZTG.SMK AS EXAMINE SND=$SBARDIR\BAR\OBJ\BZTGEXC1.WAV;
};
IF NOT ($CURRENT_SDEV == BZTGRDC1_WLD OR $CURRENT_SDEV == BZTG_WLD)
SET BMP=$SBARDIR\GENERAL\MENUS\READ.BMP{
RUN LNK = BZTGRDC1_WLD;
};
SET BMP=$SBARDIR\GENERAL\MENUS\SET.BMP{
RUN LNK=BZTG_WLD;
};
ENDIF
SET BMP=$SBARDIR\GENERAL\MENUS\WEAR.BMP{
RUN SND=$SBARDIR\BAR\OBJ\BZTGWEC1.WAV AS QUEUE *2;
};
IF ( HFJAM_STATE == OFF )
SET BMP=$SBARDIR\GENERAL\MENUS\ON.BMP{
RUN SND=$SBARDIR\BAR\OBJ\BZTGTFC1.WAV;
RUN EXPR=HFJAM_STATE(ON);
};
ELSE
SET BMP=$SBARDIR\GENERAL\MENUS\OFF.BMP{
RUN SND=$SBARDIR\BAR\OBJ\BZTGTFC1.WAV;
RUN EXPR=HFJAM_STATE(OFF);
};
ENDIF
SET BMP=$SBARDIR\GENERAL\MENUS\PICKUP.BMP{
RUN COMMAND=TRANSFER OBJECT HFJAMMER FROM INV_WLD TO BWIELD_WLD;
};
};
// CREDIT CHIP
SET BMP=$SBARDIR\BAR\INV\BZTA.BMP^CREDITCHIP{
SET TXT = credit_chip COLOR 2 AS TITLE; //%%2905
SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
RUN MOVIE=$SBARDIR\BAR\OBJ\BZTA.SMK AS EXAMINE;
};
// Check credit balance
SET BMP=$SBARDIR\GENERAL\MENUS\CHECK.BMP{
IF (NUGGETS > 30000)
RUN SND=$SBARDIR\BAR\OBJ\BZTAEXC1.WAV;
ELSE
IF (NUGGETS > 10000)
RUN SND=$SBARDIR\BAR\OBJ\BZTAEXC2.WAV;
ELSE
IF (NUGGETS > 500)
RUN SND=$SBARDIR\BAR\OBJ\BZTAEXC3.WAV;
ELSE
IF (NUGGETS > 50)
RUN SND=$SBARDIR\BAR\OBJ\BZTAEXC4.WAV;
ELSE
IF (NUGGETS > 0)
RUN SND=$SBARDIR\BAR\OBJ\BZTAEXC5.WAV;
ELSE
RUN SND=$SBARDIR\BAR\OBJ\BZTAEXC6.WAV;
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
RUN TXT=$SBARDIR\BAR\OBJ\CREDITS.TXT VAR NUGGETS COLOR 2 AS CAPTION;
};
SET BMP=$SBARDIR\GENERAL\MENUS\PICKUP.BMP{
RUN COMMAND=TRANSFER OBJECT CREDITCHIP FROM INV_WLD TO BWIELD_WLD;
};
// DEMO: Removed residue printer support.
};
// DATACART
SET BMP=$SBARDIR\BAR\INV\BZTD.BMP^DATACART{
SET TXT = datacart COLOR 2 AS TITLE; //%%2950
SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
RUN COMMAND = FLUSHQUEUE2;
RUN MOVIE=$SBARDIR\BAR\OBJ\BZTD.SMK AS EXAMINE SND=$SBARDIR\BAR\CLOSEUP\BACF\BZTDEXC1.WAV;
};
SET BMP=$SBARDIR\GENERAL\MENUS\PICKUP.BMP{
RUN COMMAND=TRANSFER OBJECT DATACART FROM INV_WLD TO BWIELD_WLD;
RUN EXPR=DC_DART_EVT(TURNCOUNT + 10);
};
};
// DRINK 3 NON-POISONOUS
HOLD BMP=$SBARDIR\BAR\INV\BDTO3.BMP^DRINK3*0{
SET TXT = your_drink COLOR 2 AS TITLE; //%%3229
SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
RUN COMMAND = FLUSHQUEUE2;
RUN MOVIE=$SBARDIR\BAR\OBJ\BDTO3.SMK AS EXAMINE SND=$SBARDIR\BAR\CHAR\SOLDIER\BDTOEXC2.WAV;
};
SET BMP=$SBARDIR\GENERAL\MENUS\DRINK.BMP{
RUN COMMAND=REMOVE OBJECT DRINK3 FROM INV_WLD
RUN COMMAND=REMOVE OBJECT DRINK3 FROM INVZ_WLD
RUN SND=$SBARDIR\BAR\CHAR\SOLDIER\BDTODKC2.WAV AS ASYNC;
RUN EXPR=TEMP(NUM_DRINKS);
IF (TEMP == 3)
RUN EXPR=NUM_DRINKS(0);
RUN SND=$SBARDIR\BAR\CHAR\SOLDIER\BDTODKC4.WAV AS SYNC;
RUN TXT=$SBARDIR\BAR\OBJ\BDTODR4.TXT COLOR 2 AS CAPTION;
RUN COMMAND=DEATH;
ENDIF
IF (TEMP == 2)
RUN EXPR=NUM_DRINKS(3);
RUN SND=$SBARDIR\BAR\CHAR\SOLDIER\BDTODK2A.WAV;
RUN MOVIE=$SBARDIR\BAR\EVENTS\EVZED3.SMK[97,292] AS PDAMSG DONTOVERRIDE DONTINCREMENT;
ENDIF
IF (TEMP == 1)
RUN EXPR=NUM_DRINKS(2);
ENDIF
IF (TEMP == 0)
RUN EXPR=NUM_DRINKS(1);
ENDIF
RUN EXPR = HAVEDRINK( FALSE );
RUN COMMAND=UPDATE;
};
SET BMP=$SBARDIR\GENERAL\MENUS\PICKUP.BMP{
RUN COMMAND=TRANSFER OBJECT DRINK3 FROM INV_WLD TO BWIELD_WLD;
};
// DEMO: Removed residue printing support.
};
}
// ZOOMS INVENTORY
SDEV INVZ_WLD AS BMP RECT [24,47,624,347]{
SET BKG=$SBARDIR\BAR\INV\INVBACKZ.BMP;
IF (INV_WLD CONTAINS HFJAMMER) // HIGH FREQUENCY JAMMMER
SET BMP=$SBARDIR\BAR\INV\BZTGZ.BMP^HFJAMMER{
SET TXT = high-frequency_jammer COLOR 2 AS TITLE; //%%3873
SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
RUN COMMAND = FLUSHQUEUE2;
RUN MOVIE=$SBARDIR\BAR\OBJ\BZTG.SMK AS EXAMINE SND=$SBARDIR\BAR\OBJ\BZTGEXC1.WAV;
};
IF NOT ($CURRENT_SDEV == BZTGRDC1_WLD OR $CURRENT_SDEV == BZTG_WLD)
SET BMP=$SBARDIR\GENERAL\MENUS\READ.BMP{
RUN LNK = BZTGRDC1_WLD;
};
SET BMP=$SBARDIR\GENERAL\MENUS\SET.BMP{
RUN LNK=BZTG_WLD;
};
ENDIF
SET BMP=$SBARDIR\GENERAL\MENUS\WEAR.BMP{
RUN SND=$SBARDIR\BAR\OBJ\BZTGWEC1.WAV AS QUEUE *2;
};
IF ( HFJAM_STATE == OFF )
SET BMP=$SBARDIR\GENERAL\MENUS\ON.BMP{
RUN SND=$SBARDIR\BAR\OBJ\BZTGTFC1.WAV;
RUN EXPR=HFJAM_STATE(ON);
};
ELSE
SET BMP=$SBARDIR\GENERAL\MENUS\OFF.BMP{
RUN SND=$SBARDIR\BAR\OBJ\BZTGTFC1.WAV;
RUN EXPR=HFJAM_STATE(OFF);
};
ENDIF
SET BMP=$SBARDIR\GENERAL\MENUS\PICKUP.BMP{
RUN COMMAND=TRANSFER OBJECT HFJAMMER FROM INV_WLD TO BWIELD_WLD;
};
};
ENDIF
IF (INV_WLD CONTAINS CREDITCHIP) // CREDIT CHIP
SET BMP=$SBARDIR\BAR\INV\BZTAZ.BMP^CREDITCHIP{
SET TXT = credit_chip COLOR 2 AS TITLE; //%%3919
SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
RUN MOVIE=$SBARDIR\BAR\OBJ\BZTA.SMK AS EXAMINE;
};
// Check credit balance
SET BMP=$SBARDIR\GENERAL\MENUS\CHECK.BMP{
IF (NUGGETS > 30000)
RUN SND=$SBARDIR\BAR\OBJ\BZTAEXC1.WAV AS QUEUE *2;
ELSE
IF (NUGGETS > 10000)
RUN SND=$SBARDIR\BAR\OBJ\BZTAEXC2.WAV AS QUEUE *2;
ELSE
IF (NUGGETS > 500)
RUN SND=$SBARDIR\BAR\OBJ\BZTAEXC3.WAV AS QUEUE *2;
ELSE
IF (NUGGETS > 50)
RUN SND=$SBARDIR\BAR\OBJ\BZTAEXC4.WAV AS QUEUE *2;
ELSE
IF (NUGGETS > 0)
RUN SND=$SBARDIR\BAR\OBJ\BZTAEXC5.WAV AS QUEUE *2;
ELSE
RUN SND=$SBARDIR\BAR\OBJ\BZTAEXC6.WAV AS QUEUE *2;
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
RUN TXT=$SBARDIR\BAR\OBJ\CREDITS.TXT VAR NUGGETS COLOR 2 AS CAPTION;
};
SET BMP=$SBARDIR\GENERAL\MENUS\PICKUP.BMP{
RUN COMMAND=TRANSFER OBJECT CREDITCHIP FROM INV_WLD TO BWIELD_WLD;
};
// DEMO: Removed residue printer support.
};
ENDIF
IF (INV_WLD CONTAINS DATACART) // DATACART
SET BMP=$SBARDIR\BAR\INV\BZTDZ.BMP^DATACART{
SET TXT = datacart COLOR 2 AS TITLE; //%%3965
SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
RUN COMMAND = FLUSHQUEUE2;
RUN MOVIE=$SBARDIR\BAR\OBJ\BZTD.SMK AS EXAMINE SND=$SBARDIR\BAR\CLOSEUP\BACF\BZTDEXC1.WAV;
};
SET BMP=$SBARDIR\GENERAL\MENUS\PICKUP.BMP{
RUN COMMAND=TRANSFER OBJECT DATACART FROM INV_WLD TO BWIELD_WLD;
RUN EXPR=DC_DART_EVT(TURNCOUNT + 10);
};
};
ENDIF
IF (INV_WLD CONTAINS DRINK3) // DRINK 3 NON-POISONOUS
SET BMP=$SBARDIR\BAR\INV\BDTO3Z.BMP^DRINK3*0{
SET TXT = your_drink COLOR 2 AS TITLE; //%%4255
SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
RUN COMMAND = FLUSHQUEUE2;
RUN MOVIE=$SBARDIR\BAR\OBJ\BDTO3.SMK AS EXAMINE SND=$SBARDIR\BAR\CHAR\SOLDIER\BDTOEXC2.WAV;
};
SET BMP=$SBARDIR\GENERAL\MENUS\DRINK.BMP{
RUN COMMAND=REMOVE OBJECT DRINK3 FROM INV_WLD;
RUN SND=$SBARDIR\BAR\CHAR\SOLDIER\BDTODKC2.WAV AS WAITQUEUE *2;
RUN EXPR=TEMP(NUM_DRINKS);
IF (TEMP == 3)
RUN EXPR=NUM_DRINKS(0);
RUN SND=$SBARDIR\BAR\CHAR\SOLDIER\BDTODKC4.WAV AS SYNC;
RUN TXT=$SBARDIR\BAR\OBJ\BDTODR4.TXT COLOR 2 AS CAPTION;
RUN COMMAND=DEATH;
ENDIF
IF (TEMP == 2)
RUN EXPR=NUM_DRINKS(3);
RUN SND=$SBARDIR\BAR\CHAR\SOLDIER\BDTODK2A.WAV AS WAITQUEUE *2;
RUN MOVIE=$SBARDIR\BAR\EVENTS\EVZED3.SMK[97,292] AS PDAMSG DONTOVERRIDE DONTINCREMENT;
ENDIF
IF (TEMP == 1)
RUN EXPR=NUM_DRINKS(2);
ENDIF
IF (TEMP == 0)
RUN EXPR=NUM_DRINKS(1);
ENDIF
RUN EXPR = HAVEDRINK( FALSE );
RUN COMMAND=UPDATE;
};
SET BMP=$SBARDIR\GENERAL\MENUS\PICKUP.BMP{
RUN COMMAND=TRANSFER OBJECT DRINK3 FROM INV_WLD TO BWIELD_WLD;
};
// DEMO: Removed residue printing support.
};
ENDIF
}
SDEV MAPZ_WLD AS BMP RECT [24,47,624,347]{
SET BKG=$SBARDIR\BAR\MAP\BARMAPZ.BMP;
IF (BARLOC == BAP)
SET SPR=$SBARDIR\BAR\MAP\YOUZ.BMP[168,238]+2;
ENDIF
IF (BARLOC == BDP)
SET SPR=$SBARDIR\BAR\MAP\YOUZ.BMP[145,136]+2;
ENDIF
IF (BARLOC == BGP)
SET SPR=$SBARDIR\BAR\MAP\YOUZ.BMP[173,110]+2;
ENDIF
}
SDEV MOOZ_WLD AS MOOWLD RECT [24,47,624,347]{
SET BKG=$SBARDIR\BAR\INV\INVBACKZ.BMP;
}
SDEV BWIELD_WLD AS WIELD{
BKG=$SBARDIR\BAR\WIELD\HUMYOU2.BMP;
SET ARE = [0,0,100,100] {
SET TXT =Alias_Node COLOR 2 SIZE 16 AS TITLE; //%%135
SET BMP=$SBARDIR\GENERAL\MENUS\WAIT.BMP {
RUN SND = $SBARDIR\GENERAL\WAIT.WAV;
RUN COMMAND = EVENTLOOP;
RUN COMMAND = UPDATE;
};
};
// CREDIT CHIP
HOLD BMP=$SBARDIR\BAR\WIELD\BZTA.BMP^CREDITCHIP #44{
SET TXT = credit_chip COLOR 2 AS TITLE; //%%2215
SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
RUN MOVIE=$SBARDIR\BAR\OBJ\BZTA.SMK AS EXAMINE;
};
// Check credit balance
SET BMP=$SBARDIR\GENERAL\MENUS\CHECK.BMP{
IF (NUGGETS > 30000)
RUN SND=$SBARDIR\BAR\OBJ\BZTAEXC1.WAV AS QUEUE *2;
ELSE
IF (NUGGETS > 10000)
RUN SND=$SBARDIR\BAR\OBJ\BZTAEXC2.WAV AS QUEUE *2;
ELSE
IF (NUGGETS > 500)
RUN SND=$SBARDIR\BAR\OBJ\BZTAEXC3.WAV AS QUEUE *2;
ELSE
IF (NUGGETS > 50)
RUN SND=$SBARDIR\BAR\OBJ\BZTAEXC4.WAV AS QUEUE *2;
ELSE
IF (NUGGETS > 0)
RUN SND=$SBARDIR\BAR\OBJ\BZTAEXC5.WAV AS QUEUE *2;
ELSE
RUN SND=$SBARDIR\BAR\OBJ\BZTAEXC6.WAV AS QUEUE *2;
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
RUN TXT=$SBARDIR\BAR\OBJ\CREDITS.TXT VAR NUGGETS COLOR 2 AS CAPTION;
};
SET BMP=$SBARDIR\GENERAL\MENUS\STASH.BMP{
RUN COMMAND=TRANSFER OBJECT CREDITCHIP FROM BWIELD_WLD TO INV_WLD;
};
};
// DATACART
HOLD BMP=$SBARDIR\BAR\WIELD\BZTD.BMP^DATACART #47{
SET TXT = datacart COLOR 2 AS TITLE; //%%2251
SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
RUN COMMAND = FLUSHQUEUE2;
RUN MOVIE=$SBARDIR\BAR\OBJ\BZTD.SMK AS EXAMINE SND=$SBARDIR\BAR\CLOSEUP\BACF\BZTDEXC1.WAV;
};
SET BMP=$SBARDIR\GENERAL\MENUS\STASH.BMP{
RUN COMMAND=TRANSFER OBJECT DATACART FROM BWIELD_WLD TO INV_WLD;
RUN EXPR=DC_DART_EVT(6666);
};
};
// HIGH FREQUENCY JAMMMER
HOLD BMP=$SBARDIR\BAR\WIELD\BZTG.BMP^HFJAMMER #50{
SET TXT = high-frequency_jammer COLOR 2 AS TITLE; //%%2353
SET BMP = $SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
RUN COMMAND = FLUSHQUEUE2;
RUN MOVIE = $SBARDIR\BAR\OBJ\BZTG.SMK AS EXAMINE SND=$SBARDIR\BAR\OBJ\BZTGEXC1.WAV;
};
IF NOT ($CURRENT_SDEV == BZTGRDC1_WLD OR $CURRENT_SDEV == BZTG_WLD)
SET BMP=$SBARDIR\GENERAL\MENUS\READ.BMP{
RUN LNK = BZTGRDC1_WLD;
};
SET BMP=$SBARDIR\GENERAL\MENUS\SET.BMP{
RUN LNK=BZTG_WLD;
};
ENDIF
SET BMP=$SBARDIR\GENERAL\MENUS\WEAR.BMP{
RUN SND=$SBARDIR\BAR\OBJ\BZTGWEC1.WAV AS QUEUE *2;
};
IF ( HFJAM_STATE == OFF )
SET BMP=$SBARDIR\GENERAL\MENUS\ON.BMP{
RUN SND=$SBARDIR\BAR\OBJ\BZTGTFC1.WAV;
RUN EXPR=HFJAM_STATE(ON);
};
ELSE
SET BMP=$SBARDIR\GENERAL\MENUS\OFF.BMP{
RUN SND=$SBARDIR\BAR\OBJ\BZTGTFC1.WAV;
RUN EXPR=HFJAM_STATE(OFF);
};
ENDIF
SET BMP=$SBARDIR\GENERAL\MENUS\STASH.BMP{
RUN COMMAND=TRANSFER OBJECT HFJAMMER FROM BWIELD_WLD TO INV_WLD;
};
};
// DRINK 3 NON-POISONOUS
HOLD BMP=$SBARDIR\BAR\WIELD\BDTO3.BMP^DRINK3 #30{
SET TXT = your_drink COLOR 2 AS TITLE; //%%2456
SET BMP=$SBARDIR\GENERAL\MENUS\EXAMINE.BMP{
RUN COMMAND = FLUSHQUEUE2;
RUN MOVIE=$SBARDIR\BAR\OBJ\BDTO3.SMK AS EXAMINE SND=$SBARDIR\BAR\CHAR\SOLDIER\BDTOEXC2.WAV;
};
SET BMP=$SBARDIR\GENERAL\MENUS\DRINK.BMP{
RUN COMMAND=REMOVE OBJECT DRINK3 FROM BWIELD_WLD;
RUN SND=$SBARDIR\BAR\CHAR\SOLDIER\BDTODKC2.WAV AS WAITQUEUE *2;
RUN EXPR=TEMP(NUM_DRINKS);
IF (TEMP == 3)
RUN EXPR=NUM_DRINKS(0);
RUN MOVIE=$SBARDIR\BAR\EVENTS\EVZED3.SMK[97,292] AS PDAMSG DONTOVERRIDE DONTINCREMENT;
RUN SND=$SBARDIR\BAR\CHAR\SOLDIER\BDTODKC4.WAV AS SYNC;
RUN TXT=$SBARDIR\BAR\OBJ\BDTODR4.TXT COLOR 2 AS CAPTION;
RUN COMMAND=DEATH;
ENDIF
IF (TEMP == 2)
RUN EXPR=NUM_DRINKS(3);
RUN SND=$SBARDIR\BAR\CHAR\SOLDIER\BDTODK2A.WAV AS WAITQUEUE *2;
RUN MOVIE=$SBARDIR\BAR\EVENTS\EVZED3.SMK[97,292] AS PDAMSG DONTOVERRIDE DONTINCREMENT;
ENDIF
IF (TEMP == 1)
RUN EXPR=NUM_DRINKS(2);
ENDIF
IF (TEMP == 0)
RUN EXPR=NUM_DRINKS(1);
ENDIF
RUN EXPR = HAVEDRINK( FALSE );
RUN COMMAND=UPDATE;
};
SET BMP=$SBARDIR\GENERAL\MENUS\STASH.BMP{
RUN COMMAND=TRANSFER OBJECT DRINK3 FROM BWIELD_WLD TO INV_WLD;
// DEMO: Removed residue printer support.
};
};
}
SDEV MOO_WLD AS MOOWLD RECT [116, 61, 350, 172]{
SET BKG=$SBARDIR\BAR\INV\INVBACK.BMP;
}
SDEV EVT_WLD AS EVENT{
IF (BARCROWD~~PLAYING == 0)
RUN EXPR=BARCROWD~~VOLUME(0);
RUN SND=$SBARDIR\BAR\EVENTS\BARBREAK.WAV^BARCROWD LOOP 1999999 AS MIX IS TIMELESS SOUNDOVEROK;
ENDIF
IF (BARMUSIC~~PLAYING == 0 AND BARMUSIC2~~PLAYING == 0 AND BARMUSIC3~~PLAYING == 0 AND BARMUSIC4~~PLAYING == 0 AND BARMUSIC5~~PLAYING == 0 AND BARMUSIC6~~PLAYING == 0 AND BARMUSIC7~~PLAYING == 0 AND BARMUSIC8~~PLAYING == 0)
RUN EXPR = CUR_BAR_MUSIC(RANDOM % 7);
IF (CUR_BAR_MUSIC == 0)
RUN SND=$SBARDIR\BAR\EVENTS\BARBAND1.MID^BARMUSIC LOOP 2 AS MIDI IS TIMELESS;
ENDIF
IF (CUR_BAR_MUSIC == 1)
RUN SND=$SBARDIR\BAR\EVENTS\BARBAND2.MID^BARMUSIC2 LOOP 2 AS MIDI IS TIMELESS;
ENDIF
IF (CUR_BAR_MUSIC == 2)
RUN SND=$SBARDIR\BAR\EVENTS\BARBAND3.MID^BARMUSIC3 LOOP 2 AS MIDI IS TIMELESS;
ENDIF
IF (CUR_BAR_MUSIC == 3)
RUN SND=$SBARDIR\BAR\EVENTS\BARBAND4.MID^BARMUSIC4 LOOP 2 AS MIDI IS TIMELESS;
ENDIF
IF (CUR_BAR_MUSIC == 4)
RUN SND=$SBARDIR\BAR\EVENTS\BARBAND5.MID^BARMUSIC5 LOOP 2 AS MIDI IS TIMELESS;
ENDIF
IF (CUR_BAR_MUSIC == 5)
RUN SND=$SBARDIR\BAR\EVENTS\BARBAND6.MID^BARMUSIC6 LOOP 2 AS MIDI IS TIMELESS;
ENDIF
IF (CUR_BAR_MUSIC == 6)
RUN SND=$SBARDIR\BAR\EVENTS\BARBAND7.MID^BARMUSIC7 LOOP 2 AS MIDI IS TIMELESS;
ENDIF
ENDIF
// Coming back from a flashback
IF (SAVTURNCOUNT < 6666)
RUN EXPR=TURNCOUNT( SAVTURNCOUNT );
RUN EXPR=SAVTURNCOUNT( 6666 );
ENDIF
// DEMO: Removed brief1_evt
// DEMO: Removed brief2_evt
// DEMO: Removed brief3_evt
// DEMO: Removed nidop1_evt
// DEMO: Removed Zelda's comments about maksh
// DEMO: Removed nidop2_evt
// DEMO: Removed nidop3_evt
// DEMO: Removed nidop4_evt
// DEMO: Removed nidop5_evt
// DEMO: Removed nidop6_evt
// DEMO: Removed nidop7_evt
// DEMO: Removed nidop8_evt
// DEMO: Removed nidop9_evt
IF (NDJAM_INNERDIAL == HFJAM_INNERDIAL AND NDJAM_OUTERDIAL == HFJAM_OUTERDIAL )
IF (HFJAM_DONE == 0)
RUN EXPR = JAMMED(TURNCOUNT + 8)
RUN EXPR = HFJAM_DONE (1);
ENDIF
ELSE
RUN EXPR = HFJAM_DONE (0);
RUN EXPR = JAMMED (3000);
ENDIF
IF (TURNCOUNT > MAKSH1_EVT )
// RUN EVENT
RUN COMMAND=INSERT OBJECT MAKSH1 TO LOG_WLD;
RUN COMMAND=INSERT OBJECT MAKSH1Z TO LOGZ_WLD;
RUN EXPR=MAKSH1~~TIME(TURNCOUNT);
RUN EXPR=MAKSH1Z~~TIME(TURNCOUNT);
IF (ZELDA_REM == 6666)
RUN EXPR=ZELDA_REM(TURNCOUNT + 20);
ENDIF
// KILL THIS EVENT
RUN EXPR=MAKSH1_EVT(6666);
ENDIF
// DEMO: Removed maksh2_evt
// DEMO: Removed maksh3_evt
// DEMO: Removed maksh4_evt
// DEMO: Removed maksh5_evt
// DEMO: Removed maksh6_evt
// BULBUS FLIGHT DELAYED TO 22:90
IF ( FLIGHT_MSG==1 AND TURNCOUNT > 1855 )
IF (BARLOC != BJP AND BARLOC != BKP)
IF (BARLOC != BRP)
RUN SND=$SBARDIR\BAR\EVENTS\EVFLA1.WAV AS QUEUE *1 SOUNDOVEROK VOLUME 7;
RUN EXPR=FLIGHT_MSG(2);
ENDIF
ENDIF
ENDIF
// DEMO: Removed message about flight for bulbus 3 being canceled.
// DEMO: Pruned down flight messages to two.
// DEMO: Removed reminder to residue print
// DEMO: Removed event to insert arksh
// DEMO: Removed setting of sararrive_evt to 6666
// DEMO: Removed cilia giving you viddisc
// DEMO: Removed paksha
// DEMO: Removed drink delivery
// DEMO: Removed nidopal from entry vestibule computer
// DEMO: Removed borksh
// DEMO: Removed dart
// DEMO: Removed gus
// DEMO: Removed arksh's death
IF ( TURNCOUNT > ZELDA_REM )
IF (FIRST_ZELDA == FALSE)
RUN MOVIE=$SBARDIR\BAR\EVENTS\EVZEMSG1.SMK[97,292] AS PDAMSG DONTOVERRIDE DONTINCREMENT;
ELSE
RUN MOVIE=$SBARDIR\BAR\EVENTS\EVZEMSG.SMK[97,292] AS PDAMSG DONTOVERRIDE DONTINCREMENT;
RUN EXPR=FIRST_ZELDA(TRUE);
ENDIF
RUN EXPR=ZELDA_REM(6666);
ENDIF
// DEMO: Removed support to changed the mytosi state
// DEMO: Removed forced end of game at turn 2250
// DEMO: Removed residue printer support
}
SDEV LOG_WLD AS LOG RECT [116, 61, 350, 172] {
HOLD MOVIE=$SBARDIR\BAR\LOG\OVERRIDE.SMK[97,292]^OVERRIDE_MOVIE AS PDAMSG DONTOVERRIDE DONTINCREMENT;
HOLD TXT=Credit_Chip__________________[0, 0, 200, 12]^CCNAME FONT 0 COLOR 7 SIZE 10 AS TITLE;
HOLD TXT=Data_Cartridge_______________[0, 0, 200, 12]^DCNAME FONT 0 COLOR 7 SIZE 10 AS TITLE;
HOLD TXT=High_Frequency_Jammer________[0, 0, 200, 12]^HFNAME FONT 0 COLOR 7 SIZE 10 AS TITLE;
SET BKG=$SBARDIR\BAR\INV\INVBACK.BMP;
IF (LOG_STATE == MAINMENU)
SET TXT=_______REVIEW__MESSAGES_______[40,48] COLOR 7 FONT 0 SIZE 10 AS TITLE{ //%%958
RUN EXPR=CUR_BAR_LOG_PAGE(1);
RUN EXPR=LOG_STATE(MSG);
};
ENDIF
IF (LOG_STATE == MSG)
SET TXT=$SBARDIR\BAR\LOG\MSGTOP.TXT[60, 0, 200, 20] COLOR 7 SIZE 8 FONT 0 AS TITLE ; //%%1210
SET TXT=MESSAGE_FROM_________________TIME[6, 26] COLOR 7 SIZE 8 FONT 0 IS HIGHLIGHT AS TITLE; //%%1211
IF (BARLINK~~STATE == 1)
SET MSG=REMEMBER^REMEMBER SENDEE Sgt.Woboksha TIME REMEMBER~~TIME{
RUN MOVIE=$SBARDIR\BAR\EVENTS\EVENBAR.SMK[97,292] AS PDAMSG;
};
ENDIF
IF (MAKSH1~~PLAYED == 1)
SET MSG=MAKSH1^MAKSH1 SENDEE Maksh TIME MAKSH1~~TIME{
RUN MOVIE=$SBARDIR\BAR\EVENTS\EVMAKN1.SMK[97,292] AS PDAMSG;
// DEMO: Removed the movie were maksh recues alias from the gordo.
};
ENDIF
SET TXT=MAIN_MENU[80,100] COLOR 7 SIZE 10 IS HIGHLIGHT AS TITLE{ //%%1339
RUN COMMAND = REMOVE OBJECT LOGPAGUP FROM LOG_WLD;
RUN COMMAND = REMOVE OBJECT LOGPAGDOWN FROM LOG_WLD;
RUN EXPR=LOG_STATE(MAINMENU);
};
ENDIF
HOLD TXT=UP[40,100]^LOGPAGUP COLOR 7 SIZE 10 IS HIGHLIGHT AS TITLE{
RUN EXPR=TEMP(CUR_BAR_LOG_PAGE);
IF ( TEMP > 0 )
RUN EXPR=CUR_BAR_LOG_PAGE( CUR_BAR_LOG_PAGE - 1 );
ENDIF
};
HOLD TXT=DOWN[140,100]^LOGPAGDOWN COLOR 7 SIZE 10 IS HIGHLIGHT AS TITLE{
RUN EXPR=CUR_BAR_LOG_PAGE( CUR_BAR_LOG_PAGE + 1 );
};
}
SDEV LOGZ_WLD AS LOG RECT [24,47,624,347]{
HOLD MOVIE=$SBARDIR\BAR\LOG\OVERRIDE.SMK[97,292]^OVERRIDE_MOVIE AS PDAMSG DONTOVERRIDE DONTINCREMENT;
HOLD TXT=Credit_Chip__________________[100, 0, 600, 24]^CCNAMEZ FONT 0 COLOR 7 SIZE 20 AS TITLE;
HOLD TXT=Data_Cartridge_______________[100, 0, 600, 24]^DCNAMEZ FONT 0 COLOR 7 SIZE 20 AS TITLE;
HOLD TXT=High_Frequency_Jammer________[100, 0, 600, 24]^HFNAMEZ FONT 0 COLOR 7 SIZE 20 AS TITLE;
SET BKG=$SBARDIR\BAR\INV\INVBACKZ.BMP;
IF (LOG_STATE == MAINMENU)
SET TXT=_______REVIEW__MESSAGES_______[140,150] COLOR 7 FONT 0 SIZE 20 AS TITLE{ //%%1590
RUN EXPR=CUR_BAR_LOG_PAGE(1);
RUN EXPR=LOG_STATE(MSG);
};
ENDIF
IF (LOG_STATE == MSG)
SET TXT=$SBARDIR\BAR\LOG\MSGTOP.TXT[200, 0, 600, 20] COLOR 7 SIZE 20 FONT 0 AS TITLE ; //%%1840
SET TXT=MESSAGE_FROM_________________TIME[6, 60] COLOR 7 SIZE 18 FONT 0 IS HIGHLIGHT AS TITLE; //%%1841
IF (BARLINK~~STATE == 1)
SET MSG=REMEMBER^REMEMBERZ SENDEE Sgt.Woboksha TIME REMEMBERZ~~TIME{
RUN MOVIE=$SBARDIR\BAR\EVENTS\EVENBAR.SMK[150,130] AS PDAMSG;
};
ENDIF
IF (MAKSH1~~PLAYED == 1)
SET MSG=MAKSH1^MAKSH1Z SENDEE Maksh TIME MAKSH1Z~~TIME{
RUN MOVIE=$SBARDIR\BAR\EVENTS\EVMAKN1.SMK[150,130] AS PDAMSG;
};
ENDIF
SET TXT=MAIN_MENU[255,275] COLOR 7 SIZE 20 AS TITLE IS HIGHLIGHT{ //%%1929
RUN EXPR=LOG_STATE(MAINMENU);
};
ENDIF
}
// HIGH FREQUENCY JAMMER CLOSEUP
SDEV BZTG_WLD AS CLOSEUP{
SET BKG=$SBARDIR\BAR\CLOSEUP\BZCG\BZCG.BMP;
SET TNG=$SBARDIR\BAR\CLOSEUP\BZCG\BZNH.SMK^OUTERDIAL KEEPSTATE LOOP 0[74,88,197,283];
SET TNG=$SBARDIR\BAR\CLOSEUP\BZCG\BZNI.SMK^INNERDIAL KEEPSTATE LOOP 0[194,45,341,300];
SET ARE=INCREMENT_INNER[194,45,341,185]%1{
RUN EXPR=TEMP( HFJAM_INNERDIAL + 1 );
IF (TEMP <= 26)
RUN EXPR=INNERDIAL~~CURR_FRAME( TEMP );
RUN SND=$SBARDIR\BAR\OBJ\BZTGIIC1.WAV;
RUN EXPR=HFJAM_INNERDIAL(TEMP);
RUN COMMAND=UPDATE;
ENDIF
};
SET ARE=DECREMENT_INNER[194,185,341,300]%1{
RUN EXPR=TEMP( HFJAM_INNERDIAL - 1 );
IF (TEMP > 0)
RUN EXPR=INNERDIAL~~CURR_FRAME( TEMP );
RUN SND=$SBARDIR\BAR\OBJ\BZTGIIC1.WAV;
RUN EXPR=HFJAM_INNERDIAL(TEMP);
RUN COMMAND=UPDATE;
ENDIF
};
SET ARE=INCREMENT_OUTER[74,88,197,183]%1{
RUN EXPR=TEMP( HFJAM_OUTERDIAL + 1 );
IF (TEMP <= 10)
RUN EXPR=OUTERDIAL~~CURR_FRAME( TEMP );
RUN SND=$SBARDIR\BAR\OBJ\BZTGIIC1.WAV;
RUN EXPR=HFJAM_OUTERDIAL(TEMP);
RUN COMMAND=UPDATE;
ENDIF
};
SET ARE=DECREMENT_OUTER[74,183,197,283]%1{
RUN EXPR=TEMP( HFJAM_OUTERDIAL - 1 );
IF (TEMP > 0)
RUN EXPR=OUTERDIAL~~CURR_FRAME( TEMP );
RUN SND=$SBARDIR\BAR\OBJ\BZTGIIC1.WAV;
RUN EXPR=HFJAM_OUTERDIAL(TEMP);
RUN COMMAND=UPDATE;
ENDIF
};
}
// READ HIGH FREQUENCY JAMMER CLOSEUP
SDEV BZTGRDC1_WLD AS CLOSEUP{
SET BKG=$SBARDIR\BAR\CLOSEUP\BZCG\BZCG2.BMP;
RUN EXPR = BARLOC (HFJAMMER);
}
SDEV TURN_WLD AS TURNEVENT {
IF (TURNCOUNT == ENDTURN)
RUN EXPR = TURNCOUNT( STARTTURN );
ENDIF
// DEMO: Removed brief1_evt
// DEMO: Removed brief2_evt
// DEMO: Removed brief3_evt
// DEMO: Removed nidop1_evt
// DEMO: Removed zenid1_evt
// DEMO: Removed nidop2_evt
// DEMO: Removed nidop3_evt
// DEMO: Removed nidop4_evt
// DEMO: Removed nidop5_evt
// DEMO: Removed nidop6_evt
// DEMO: Removed nidop7_evt
// DEMO: Removed nidop8_evt
// DEMO: Removed nidop9_evt
IF (TURNCOUNT > MAKSH1_EVT )
// RUN EVENT
RUN COMMAND=INSERT OBJECT MAKSH1 TO LOG_WLD;
RUN COMMAND=INSERT OBJECT MAKSH1Z TO LOGZ_WLD;
RUN EXPR=MAKSH1~~TIME(TURNCOUNT);
RUN EXPR=MAKSH1Z~~TIME(TURNCOUNT);
IF (ZELDA_REM == 6666)
RUN EXPR=ZELDA_REM(TURNCOUNT + 20);
ENDIF
// KILL THIS EVENT
RUN EXPR=MAKSH1_EVT(6666);
ENDIF
// DEMO: Removed maksh2_evt
// DEMO: Removed maksh3_evt
// DEMO: Removed maksh4_evt
// DEMO: Removed maksh5_evt
// DEMO: Removed maksh6_evt
// BULBUS FLIGHT DELAYED TO 22:90
IF ( FLIGHT_MSG==1 AND TURNCOUNT > 1855 )
IF (BARLOC != BJP AND BARLOC != BKP)
IF (BARLOC != BRP AND $CURRENT_SDEV != BMCA_WLD)
RUN SND=$SBARDIR\BAR\EVENTS\EVFLA1.WAV AS QUEUE *1 SOUNDOVEROK VOLUME 7;
