The Best of Select: Games 4/SPCD4.bin/bioforge/script/digsite.scp

Text File | 1995-02-22 | 6.1 KB | 702 lines

{ DIGSITE_LOAD

I ^ç╖ = $üé THEN
{
I @Ç¢ ESCHEAD = 0 THEN
{
F ESCHEAD
@Ç¢ ESCHEAD
Y DGS1 DGS2 DGS3 DGS4
u CURFIG OFF
}
G ESCHER
£ 295
M PRONE3 FREEZE CONTINUE
@Çì HAPPYHEAD
}
E
{
^⬠= 2
^â⌐ = 2
^â¿ = 1
^â½ = 1
^âí = 0
I @Ç¢ ESCHEAD THEN
K
I @ÇÜ ESCHERLOG = $üé THEN
@Çì CREATEESCHERLOG
}


@Ç¢ PLAYER
I @Ç⌐ LEXMIR THEN
{
^àï = @Çì REFLECTBATTDRAIN
}

I ^ï¿ = 1 THEN
^Åì = @Çì BIOREPAIR
@Çì READY_SHRIMP1
@Çì READY_SHRIMP2
@Çì READY_DROGG2
@Çì TOMB_SPARKLE

^ï║ = 0
^ï╜ = 0
I ^å¡ = 1 THEN
{
G FRM_LDG
}
I ^å¡ = 2 THEN
@Çì HELLOLEX
I ^å¡ = 3 THEN
{
C DGS3
W 2 SECONDS
@Çì HARD_SUIT_OPEN_DIG
C UNLOCK
}
O $Çö
}
{ HAPPYHEAD
@Ç¢ ESCHEAD
:TOP
â
â
â
I @Ç¢ ESCHEAD = 0 THEN
J #Çâ
G ESCHER
J #Çé
:LEAVE
}
{ CREATEESCHERLOG
e LOGBOOK
f COORDS 203 -94 -40
n CURITEM ESCHERLOG
}
{ HELLOLEX
@Ç¢ PLAYER
â
M STAND CONTINUE
}
{ DGS_LOAD
I @Ç¢ ESCHEAD THEN
{
G ESCHER
£ 295
M PRONE3 FREEZE CONTINUE
}
I ^ìå THEN
{
I @Çû ^ê▓ = $üé THEN
^ê▓ = @Çç `âª
}
I @Çû ^ê│ THEN  ^ê│
I @Çû ^ê┤ THEN  ^ê┤
I ^⣠= $üé THEN
{
I ^âÑ THEN
{
I @Çó ^âÑ = 0 THEN
{
^âÑ = @Çì ESCHER_WHINE
}
}
E
{
^âÑ = @Çì ESCHER_WHINE
}
}
W 2 SECONDS
I @ÇÜ ESCHERLOG THEN
{
W 5 SECONDS
i LEX ESHGON
}
}
{ ALC_LOAD
O $Çì








}





{ ALC3_LOAD
W 5 SECONDS
i LEX TROOM
}
{ TMB_LOAD
O $Çè
I @Çû ^ê│ THEN  ^ê│
W 5 SECONDS
i LEX CTOMB
}
{ DGS1_LOAD
I ^â¡ THEN
{
I @Çó ^â¡ = 0 THEN
{
^â¡ = @Çì DIGSITE_BLINKIE
}
}
E
{
^â¡ = @Çì DIGSITE_BLINKIE
}
@Çì ACTIVATE_SHRIMP2
}
{ DGS4_LOAD
@Çì ACTIVATE_SHRIMP1
}










{ FADEGLOW
^âÄ = 1
^âù = 0
:ANIM
^âÄ ++
â
L #Çì 20
^âì = @Çì KEYGLOW
W 3 SECONDS
}
{ GETKEY




I @ÇÆ LTHAND THEN
{
@ÇÜ LTHAND
f INVENTORY
}
M GET_TOMB_KEY CONTINUE
W 60
e KEY

 ^âì
^âÉ = 0
^âÄ = 0
f LTHAND
@Çì LEX_KEY_TAKE
}
{ GLOWANIM
:ANIM
I ^âù > 24 THEN ^âù = 1
^âù ++
I ^âÅ > 5 THEN ^âÅ = 1
^âÅ ++
â
I ^Ī == 0 THEN L #ÇÉ
}
{ KEYGLOW
:ANIM
I ^âÉ > 5 THEN ^âÉ = 1
I ^âÄ > 22 THEN ^âÄ = 21
^âÄ ++
^âÉ ++
â
L #ÇÆ
}
{ OPENTOMB_USE

I ^âò != 1 THEN
{
I ^Ī == $üâ THEN
@Çì SHOWTMB3
E
@Çì SHOWTMB4
é
}
@Ç¢ PLAYER
A OFF
I @ÇÆ LTHAND THEN
É LTHAND
I @ÇÆ RTHAND THEN
É RTHAND
£ TMB_FACE GRADUAL


^âÆ = 1
M OPEN_TOMB1
M OPEN_TOMB2
M OPEN_TOMB3 210 CONTINUE
@Ç¥ TEAROFFTHEDOOR
W 3 SECONDS
i LEX TFIELD
}
{ SHOWTMB3

C TMB3
@Ç¢ PLAYER
A OFF
W 3 SECONDS
A ON
C UNLOCK

}
{ SHOWTMB4
I @Çú THEN é
I @Çä NOTIN -105 -15 THEN é
A OFF
I @Ç╗ CURFIG PAN_LOC > 20 THEN
{
G PAN_LOC WALK 10
G PAN_LOC
}
E
G PAN_LOC
£ -60 GRADUAL
@Ç¥ PUSHBUTTON
C TMB4
W 3 SECONDS
A ON
C UNLOCK
@Ç¥ TOMB_MONITOR
I ^Ī == $üâ THEN
@Ç¥ TOMBPUZZLESOLVED
E
W 25 SECONDS
i LEX TOMPUZ
}
{ PUSHBUTTON
W 15
M PUSH_BUTTON
}
{ TOMBPUZZLESOLVED
A OFF

@Ç¥ FADEGLOW
C TMB3
@Ç¢ PLAYER
A OFF
W 3 SECONDS
A ON
C UNLOCK
^âÅ = 0

^âö = 65
@Ç¥ GETKEY
A ON
}
{ TOMB_SPARKLE
:ANIM
I ^âò >= 5 THEN
{
^âô = 0
é
}
I ^âô == 5 THEN ^âô = 1
â
^âô ++
I ^Ī == 0 THEN L #ÇÖ
}
[ TEAROFFTHEDOOR
00:00 ^âò = 1
@Çì GLOWANIM
^âö = 1
00:02 ^âò = 2
^âö = 2
@Çå `ïê
00:04 ^âò = 3
^âö = 3
00:05 ^âò = 4
^âö = 4
00:06 ^âò = 5
^âö = 5
00:07 ^âò = 6
^âö = 6
00:08 ^âò = 7
^âö = 7
00:09 ^âò = 8
^âö = 8
00:10 ^âò = 9
^âö = 9
00:11 ^âò = 10
^âö = 10
00:12 ^âò = 11
^âö = 11
00:14 ^âò = 12
^âö = 12
00:16 ^âò = 13
^âö = 13
00:18 ^âò = 14
^âö = 14
00:19 ^âò = 15
^âö = 15
00:20 ^âò = 16
^âö = 16
00:21 ^âò = 17
^âö = 17
00:22 ^âò = 18
^âö = 18
00:23 ^âò = 19
^âö = 19
00:24 ^âò = 20
^âö = 20
00:27 ^âò = 21
^âö = 21
01:00 ^âò = 22
^âö = 22
01:03 ^âò = 23
^âö = 23
01:06 ^âò = 24
^âö = 24
01:09 ^âò = 25
^âö = 25
01:12 ^âò = 26
^âö = 26
01:18 ^âò = 27
^âö = 27
02:00 ^âò = 28
^âö = 28
02:12 ^âò = 29
^âö = 29
02:24 ^âò = 30
^âö = 30
03:06 ^âò = 31
^âö = 31
03:10 ^âò = 32
^âö = 32
03:14 ^âò = 33
^âö = 33
03:18 ^âû = 1
^âò = 0
^âö = 34
03:24 ^âû = 2
^âö = 35
04:00 ^âû = 3
^âö = 36
04:03 ^âû = 4
^âö = 37
04:06 ^âû = 5
^âö = 38
04:09 ^âû = 6
^âö = 39
04:12 ^âû = 7
^âö = 40
04:16 ^âû = 8
^âö = 41
04:20 ^âû = 9
^âö = 42
^âÆ = 0
A ON
04:24 ^âû = 10
^âö = 43
04:28 ^âû = 11
^âö = 44
@Çå `Ç▒ 100
05:02 ^âû = 12
^âö = 45
05:06 ^âû = 13
^âö = 46
05:10 ^âû = 14
^âö = 47
@Çå `Ç▒ 160 1024
05:14 ^âû = 15
^âö = 48
05:18 ^âû = 16
^âö = 49
05:24 ^âû = 17
^âö = 50
05:28 ^âû = 18
^âö = 51
06:02 ^âû = 19
^âö = 52
06:06 ^âû = 20
^âö = 53
06:10 ^âû = 21
^âö = 54
06:14 ^âû = 22
^âö = 55
@Çå `Ç▒
06:18 ^âû = 23
^âö = 56
06:22 ^âû = 24
^âö = 57
06:26 ^âû = 25
^âö = 58
07:00 ^âû = 26
^âö = 59
07:04 ^âû = 27
^âö = 60
07:08 ^âû = 28
^âö = 61
07:12 ^âû = 29
^âö = 62
07:16 ^âû = 30
^âö = 63
07:20 ^âû = 31
^âö = 64
07:24 ^âû = 32
^âö = 65
^âù = 1
07:25 ^âæ = $ââ
^âû = 33
]

{ FRM_LDG_USE
^å¼ = 2
S BEACH
}
{ TO_TUNS_USE
^å« = 1
S TUNROOM
}



















































{ SUITTES2
{

I ^â½ = 0 THEN
{
I ^üè = 1 THEN
{
^üè = 0
@Çì HARDSUITMACHINE
}



: TEST
â
I @Çá CURFIG SUITTES2 < 300 THEN
{
J #Ç₧
}


^üè = 1
}
E
{
W 5 SECONDS
i LEX SEALED
}
}
}

{ HARDSUITMACHINE
{

I @Ç¢ PLAYER THEN
{
A OFF
o
}
E ! "Can't find Lex."

@Ç¥ HARD_SUIT_CLOSE_DIG


I @Ç⌐ LEX OR @Ç⌐ LEXMIR THEN
{
ù HARD
}
E
{
ù LEX
}
@Ç¥ LEX_WOUNDS
^å¼ = 3
S BEACH SUITTES3
W 3 SECONDS
}
}
{ DIGTUBE_KEY_USE
I @ÇÅ ^é░ 4 = 0 THEN
{

A OFF
C DGS1
G BLINK WALK
£ KEYFACE GRADUAL

M USE_KEY1
@Çå `éæ


a ^é░ 4 = 1
 ^â¡
^â¼ = 2
^â« = 1
^â» = 1
^é╛ = 1
^é┤ = 1
W 2
M USE_KEY2
A ON
}
@Çì THE_DIGTUBE
}
{ DIGTOOB_KEY_USE
@Çì DIGTUBE_KEY_USE
}
{ DIGTOOB_USE

I @ÇÅ ^é░ 4 = 1 THEN
{

I ^ìü THEN
é
@Çì THE_DIGTUBE
}
E
{
i LEX NOKEY
}
}
[ DIGSITE_BLINKIE
ó DGS1

:BLINK_AGAIN

I ^ìü = 0 THEN
{
00:00 ^â¼ = 1
00:03 ^â¼ = 2
}
00:05 ò
J #Çñ
]

[ HARD_SUIT_CLOSE_DIG
00:00 ^âÖ = 1
^âÜ = 1
@Çå `â¿
00:04 ^âÖ = 2
^âÜ = 2
00:08 ^âÖ = 3
^âÜ = 3
00:12 ^âÖ = 4
^âÜ = 4
00:16 ^âÖ = 5
^âÜ = 5
00:20 ^âÖ = 6
^âÜ = 6
00:24 ^âÖ = 7
^âÜ = 7
00:28 ^âÖ = 8
^âÜ = 8
01:02 ^âÖ = 9
^âÜ = 9
01:06 ^âÖ = 10
^âÜ = 10
01:10 ^âÖ = 11
^âÜ = 11
01:14 ^âÖ = 12
^âÜ = 12
01:18 ^âÖ = 13
^âÜ = 13
01:22 ^âÖ = 14
^âÜ = 14
01:26 ^âÖ = 15
^âÜ = 15
02:00 ^âÖ = 16
^âÜ = 16
02:04 ^âÖ = 17
^âÜ = 17
02:08 ^âÖ = 18
^âÜ = 18
02:12 ^âÖ = 19
^âÜ = 19
02:16 ^âÖ = 20
^âÜ = 20
02:20 ^âÖ = 21
^âÜ = 21
02:24 ^âÖ = 22
^âÜ = 22
02:28 ^âÖ = 23
^âÜ = 23
03:02 ^âÖ = 24
^âÜ = 24
03:06 ^âÖ = 25
^âÜ = 25
]
[ HARD_SUIT_OPEN_DIG

00:00 @Çè ^âÖ -1 25 1 4
00:00 @Çè ^âÜ -1 25 1 4
00:00 @Çå `â¿
W 100
A ON
]
{ TOMBCLUE
I ^Ī != 1 AND ^âò != 1 THEN
{
W 10 SECONDS
i LEX TKEY
}
}


//$ 26 - version number