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

Text File | 1995-02-25 | 5.6 KB | 596 lines

{ BEACH_LOAD
^åû = $âî
I ^àñ THEN
@Çì MISSLE_DAMAGE


@Ç¢ PLAYER

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

I ^ï¿ = 1 THEN
^Åì = @Çì BIOREPAIR
@Çì MASTABA_THREATENS_ESCHER
@Çì CREATE_WARHEAD
@Çì MISSLE_BLINKIE
@Çì READY_TUMOLT
@Çì ANIMBCHACIDBUBS
@Çì ANIMBCHACIDBUBS2
I ^ç╖ THEN @Çì CREATE_BLASTERS
@Çì READY_MARINE2
@Çì READY_MARINE3A
I ^ç╖ == $üé THEN
@Çì READY_BEACHBOTS
E
@Çì KILL_BEACHBOTS


I ^àƒ == $üé THEN
{
^࣠= @Çì FLUFFY_SFX1
^ॠ= @Çì FLUFFY_SFX2
^à₧ = @Çì FLUFFY_SFX3
}


^ï║ = 0
^ï╜ = 0

I ^å¼ = 1 THEN
{
G FRM_PAD
C BCH3
}
I ^å¼ = 2 THEN
{
G TO_CTY
}

I ^å¼ = 3 THEN
{


^å¼ = 0
@Çì HARD_SUIT_OPEN_BEACH
J #Çü
}
C UNLOCK

@Çì ESCHERS_PLEES_FOR_HELP
:END
I ^ç╖ = 1 THEN
{
^é« = 1
^é» = 1
}
}
{ BCH_LOAD
C BCHZ LOAD
}
{ BCHZ_LOAD
I @Çû ^ê╖ THEN  ^ê╖
E  ^ê╕

:LOOP
W 3
I ^éñ == 2 THEN
{
^éÿ = 0
â
J #Çä
}
^éñ ++
â
J #Çä
}
{ BCH4_LOAD
W 5 SECONDS
i LEX BLOCKS
}
{ BCH8_LOAD
W 5 SECONDS
i LEX BLOCKS
}
{ BCHA_LOAD
I @Çû ^ê╖ THEN  ^ê╖
E  ^ê╕
}
{ BCHM_LOAD
I @Çû ^ê╖ THEN  ^ê╖
E  ^ê╕
}
{ BCHR_LOAD
I @Çû ^ê╖ THEN  ^ê╖
E  ^ê╕
}
{ BTN_LOAD
I @Çû ^ê╖ THEN  ^ê╖
E  ^ê╕
}
{ BCHDETH

@Ç¥ KILLWARHEAD
I @Çó ^àÄ THEN
 ^àÄ
I @Çó ^àì THEN
{
ñ CURFIG
é
}
@Çì ANIMATE_ACID
@Ç¢ PLAYER
M STAND SNAP_TO FREEZE
£ 180
G MELT
ñ CURFIG
A OFF
Z CURFIG OFF
u CURFIG OFF
C BCHZ
W 5
M DROWN 150 CONTINUE FREEZE
W 5
@Çå `Ç¢ 150
W 1 SECOND
@Çå `ä½
W 1 SECONDS
â
O $Çà
@Ç¥ KILLLEX
}
[ ANIMATE_ACID
:TOP
00:00 ^éñ = 0
00:03 ^éñ = 1
00:06 ^éñ = 2
00:09 ò
J #Çì
]
{ CREATE_BLASTERS
I @ÇÜ BLASTERM3A == 0 THEN
{
e BLASTER
n CURITEM BLASTERM3A
f COORDS -4642 -3822 -40
}
I @ÇÜ BLASTERM2 == 0 THEN
{
e BLASTER
n CURITEM BLASTERM2
f COORDS -4759 -4009 -40
}
}
{ CREATE_WARHEAD
e BOMB
f COORDS 6666 6666 6666
}
{ TO_PAD

I @Çó ^àû == $üâ && ^àÿ > 0 THEN
{
@Ç¥ BLAST_LEX
é
}
@Ç¢ PLAYER
M STAND CONTINUE
S LANDPAD FROM_BCH
}

{ FRM_PAD_USE
^å¬ = 2
@Ç¢ PLAYER
o
M STAND CONTINUE
S LANDPAD
}
{ TO_LNDR_USE
G TO_LDG
}
{ TO_LDG_USE
G TO_LNDR
}
{ TO_CTY_USE
^å¡ = 1
S DIGSITE
}
{ TO_TPL

I @Çó ^àû == $üâ && ^àÿ > 0 THEN
{
@Ç¥ BLAST_LEX
é
}
S TUNROOM FROM_BCH
}

{ FOOTBCH

I ^êå = 0 THEN
{
^êå = 1
 `î¡ `ëû
 `ìé `ëû
 `ìù `ëû
 `ì¼ `ëû
 `Äü `ëû
 `öÖ `ëû
 `öÜ `ëû
}
E
{
ä `î¡
ä `ìé
ä `ìù
ä `ì¼
ä `Äü
ä `öÖ
ä `öÜ
^êå = 0
}
}

{ FOOTBCH2
I ^êå = 0 THEN
{
^êå = 1
 `î╝ `ëû
 `ìæ `ëû
 `ìª `ëû
 `ì╗ `ëû
 `ÄÉ `ëû
 `öÖ `ëû
 `öÜ `ëû

}
E
{
ä `î╝
ä `ìæ
ä `ìª
ä `ì╗
ä `ÄÉ
ä `öÖ
ä `öÜ
^êå = 0
}
}

{ LND_LOAD
@Çì REACTIVATE_TUMOLT
W 20 SECONDS
i LEX SHIPWRCK
}
[ HARD_SUIT_OPEN_BEACH

00:00 ^é« = 27
^é» = 27
02:00 @Çè ^é« -1 27 1 4
@Çè ^é» -1 27 1 4
@Çå `â¿
W 100
A ON

]
[ HARD_SUIT_CLOSE_BEACH
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
03:10 ^é« = 26
^é» = 26
03:14 ^é« = 27
^é» = 27
]








{ SUITTES3
I ^ç╖ == $üâ THEN é

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


: TEST
â
I @Çá CURFIG SUITTES3 < 300 THEN
{
J #Ç£
}

^üè = 1
}
}

{ HARDSUITMACHINE
{

I @Ç¢ PLAYER THEN
{
A OFF
o
}


@Ç¥ HARD_SUIT_CLOSE_BEACH


I @Ç⌐ LEX OR @Ç⌐ LEXMIR THEN
{
ù HARD

}
E
{
ù LEX
}
@Ç¥ LEX_WOUNDS
^å¡ = 3

^âÖ = 25
^âÜ = 25
S DIGSITE SUITTES2
W 3 SECONDS
}
}

{ GO_PORT
@Ç¢ PLAYER
G FALLPORT
}
{ OKTODROPHERE
P ~ÇÇ
~ÇÇ = 1
I @Çí CURFIG EVIL1 THEN
~ÇÇ = 0
I @Çí CURFIG EVIL2 THEN
~ÇÇ = 0
é ~ÇÇ
}
{ LEX_PUT_DOWN_LTHAND
I @Ç¥ OKTODROPHERE THEN
M PUT_DOWN_LTHAND
}
{ LEX_PUT_DOWN_RTHAND
I @Ç¥ OKTODROPHERE THEN
M PUT_DOWN_RTHAND
}
{ MISSLE_BLINKIE
ó BCHH
{
:BLINKAGAIN
I ^é¿ = 1 THEN
{
^é¬ = 1
W 3
^é¬ = 0
W 3
J #Çú
}
}
}
[ ANIMBCHACIDBUBS
ó BCH2 BCH3 BCH4 BCH5 BCH6 BCH7 BCH9 BCHM
^ê╖ = @Çç `Çü 100
I @Çû ^ê╕ THEN  ^ê╕
:BUBLOOP
00:00 ^é½ = 1
00:02 ^é½ = 2
00:04 ^é½ = 3
00:06 ^é½ = 4
00:08 ^é½ = 5
00:10 ^é½ = 6
00:12 ^é½ = 7
00:14 ^é½ = 8
00:16 ^é½ = 9
00:18 ^é½ = 10
00:20 ^é½ = 11
00:22 ^é½ = 12
00:22 ò
J #ÇÑ
]
[ ANIMBCHACIDBUBS2
ó BCHB BCHC BCHD BCHE BCHF BCHG BCHH BCHJ BCHK
^ê╕ = @Çç `Çü 75
I @Çû ^ê╖ THEN  ^ê╖
:BUBLOOP
00:00 ^é½ = 1
00:02 ^é½ = 2
00:04 ^é½ = 3
00:06 ^é½ = 4
00:08 ^é½ = 5
00:10 ^é½ = 6
00:12 ^é½ = 7
00:14 ^é½ = 8
00:16 ^é½ = 9
00:18 ^é½ = 10
00:20 ^é½ = 11
00:22 ^é½ = 12
00:22 ò
J #Ǻ
]

[ FLUFFY_SFX1

P ~ÇÇ
P ~Çü
P ~Çé
ó BCH2 BCH3 BCH4 BCH5 BCH6 BCH7 BCH8 BCH9 BCHA BCHB

~ÇÇ = @Çà 5 10
~Çü = 0
~Çé = 0

:SFXLOOP
W ~ÇÇ SECONDS
~Çé = @Çà 1 8
I @Çù `üô THEN J #Ç⌐
N ~Çé
{
U 1
@Çå `è│ 125 ~Çü
X ÇÇ
U 2
@Çå `è┤ 125 ~Çü
X ÇÇ
U 3
@Çå `è╡ 125 ~Çü
X ÇÇ
U 4
@Çå `üô 125 ~Çü
X ÇÇ
U 5
@Çå `è╢ 125 ~Çü
X ÇÇ
U 6
U 7
U 8
@Çå `è╖ 150 ~Çü

}
J #Ç⌐
]
[ FLUFFY_SFX2

P ~ÇÇ
P ~Çü
P ~Çé
ó BCHC BCHD BCHE BCHF

~ÇÇ = @Çà 5 10
~Çü = 0
~Çé = 0

:SFXLOOP
W ~ÇÇ SECONDS
~Çé = @Çà 1 8
I @Çù `üô THEN J #ǽ
N ~Çé
{
U 1
@Çå `è│ 100 ~Çü
X Çü
U 2
@Çå `è┤ 100 ~Çü
X Çü
U 3
@Çå `è╡ 100 ~Çü
X Çü
U 4
@Çå `üô 100 ~Çü
X Çü
U 5
@Çå `è╢ 100 ~Çü
X Çü
U 6
U 7
U 8
@Çå `è╖ 150 ~Çü

}
J #ǽ
]
[ FLUFFY_SFX3

P ~ÇÇ
P ~Çü
P ~Çé
ó LND1 LND2 LND3 LND4 LND5

~ÇÇ = @Çà 5 10
~Çü = 0
~Çé = 0

:SFXLOOP
W ~ÇÇ SECONDS
~Çé = @Çà 1 6
I @Çù `üô THEN J #Ç¡
N ~Çé
{
U 1
@Çå `è│ 75 ~Çü
X Çé
U 2
@Çå `è┤ 75 ~Çü
X Çé
U 3
@Çå `è╡ 75 ~Çü
X Çé
U 4
@Çå `üô 75 ~Çü
X Çé
U 5
@Çå `è╢ 75 ~Çü
X Çé
U 6
@Çå `è╖ 100 ~Çü
W @Çà 15 30
@Çå `è╖ 100 ~Çü
}
J #Ç¡
]


//$ 26 - version number