The Best of Select: Games 4/CD_1.iso/bioforge/script/warhead.scp

Text File | 1995-02-27 | 4KB | 403 lines

{ BOMB_USE
:TOP
â
I @ÇÄ BCHR THEN J #Çü
I @Çó ^àò == $üé THEN
{
@Ç¢ PLAYER
o
^àò = @Çì WARHEAD_MON
^àÉ = 1
}
}
[ BLOWBOT2
00:04
I @Ç¢ BCHBOT2 != 1 THEN é
^à¿ = $üé
ú BOOM WHITE CURFIG
K CURFIG
l CURFIG CONTINUE
]
{ BLAST_LEX
P ~ÇÇ
O $Ǽ
^ïè = 0
@Ç║ `ëÑ $üë "Aaaaahhh...!/FAaaahhh... !"
@Ç¥ KILLWARHEAD
C SHOW RTRW
^ê¿ = @Çê
 ^ê¿ 0
~ÇÇ = @Çà 0 2 * 1024
@Çå `åû 200 ~ÇÇ


@Ç¢ PLAYER
G 6666 6666 6666
@Ç¥ KILLLEX
}
[ BLOWLEXAWAY
00:12
@Ç¢ PLAYER
G 6666 6666 6666

@Ç║ `ëú $üë "Noooo....!/GNeiin...!/FNooonn... !"
@Ç¥ KILLLEX
^ïè = 0
]
{ BLOWLEXAWAY_OLD
P ~ÇÇ
P ~Çü
P ~Çé
A OFF
I @ÇÄ BCHB THEN
~ÇÇ = @Çü CURFIG
E
~ÇÇ = -4748
~Çü = @Çé CURFIG
~Çé = @Çâ CURFIG

u CURFIG OFF
Z CURFIG OFF
:LOOP
@Ç¢ PLAYER
G ~ÇÇ ~Çü ~Çé

~ÇÇ += 8
â

I ~ÇÇ < -4620 THEN J #Çå

@Ç║ `ëú $üë "Noooo....!/GNeiin...!?FNoooon... !"





















@Ç¥ KILLLEX
^ïè = 0

}
{ DISARM_USE
I ^é¿ != 1 THEN é
A OFF
G KNEEL WALK 20
£ -58 GRADUAL
£ -58
I @ÇÆ RTHAND THEN
{
@ÇÜ RTHAND
f GROUND
}

M KNEEL
M GET_WARHEAD CONTINUE
W 2 SECONDS
^é¬ = 0
@Çå `ü╝ 100
@Çè ^é¿ +1 0 7 2
W 3 SECONDS
@ÇÜ BOMB
f RTHAND

^àû = @Çì WARHEAD_TIMER
O $ǽ
^ïè = 1

o

M GOT_WARHEAD CONTINUE
W 1 SECOND
o

@Çì LEX_BOMB_TAKE
M STAND CONTINUE
A ON
W 5 SECONDS

@Ç¥ BOMB_USE

@Ç¥ STOPBOMBMON
i LEX WARHEAD
}
{ DOOR_BLASTED

^àü = $âä
^àé = $ââ
^àâ = $ââ
^àä = $ââ
^àà = $ââ

^éª = 1
^éº = 2
^é¡ = 2
}
{ KILLWARHEAD
I @Çó ^àû == $üâ THEN
 ^àû
I @Çó ^àò == $üâ THEN
{

 ^àò
}
I @Çó ^àù == $üâ THEN
 ^àù
}
{ KNOCKLEXDOWN_1
A OFF
I @Çä IN -90 90 THEN
{
M KNOCKED_FORWARD
W 1 SECOND
M GET_UP_FORWARD
}
E
{
M FALL_BACKWARD
W 15
M GET_UP_BACK
}
A ON
}
{ KNOCKLEXDOWN_2
A OFF
I @Çä IN 91 180 OR @Çä IN -179 -89 THEN
{
G -4733 -4003 -31
£ 180
M KNOCKED_FORWARD
W 15
M GET_UP_FORWARD
}
E
{
G -4733 -4003 -31
£ 0
M FALL_BACKWARD
W 15
M GET_UP_BACK
}
A ON
}
{ LEX_BOMB_DROP
@Ç¢ PLAYER

I @Çí CURFIG FIREBTN2 == 1 THEN
{
^àÉ = 2
^àò = @Ç¥ WARHEAD_MON
:TEST
â
I ^àÿ > 0 THEN J #Çì


C BCHB





I @Çí CURFIG BOMBHALL THEN
^àì = @Çì BLOWLEXAWAY
@Ç¥ DOOR_BLASTED
@Ç¥ TUNNEL_EXPLOSION

@Çì BLOWBOT2
C UNLOCK
é


}
E
{
A OFF
^àÉ = 3
^àò = @Çì WARHEAD_MON
}
}
{ REMOVE_BOMB
I @ÇÜ BOMB != 1 THEN
{
! "Can't find the warhead!"
é
}
f COORDS 5555 5555 5555
}
{ STAGGERLEX
A OFF
I @Çä IN -90 90 THEN
{
M WOAH_FORWARD
W 15
}
E
{
M WOAH_BACKWARD
W 15
}
A ON
}
[ TUNNEL_EXPLOSION

00:00 O $Ǽ
^ïè = 0
00:02 @Çå `åû
^éÑ = 1
I @Çí CURFIG BOMBRAD1 THEN
^àÄ = @Çì KNOCKLEXDOWN_1
I @Çí CURFIG BOMBRAD2 THEN
^àÄ = @Çì KNOCKLEXDOWN_2
I @Çí CURFIG STAGGER THEN
@Çì STAGGERLEX
00:04 ^éÑ = 2
00:06 ^éÑ = 3
00:08 ^éÑ = 4
00:10 ^éÑ = 5
00:12 ^éÑ = 6
00:14 ^éÑ = 7
00:16 ^éÑ = 8
00:18 ^éÑ = 9
00:20 ^éÑ = 10
00:22 ^éÑ = 11
00:24 ^éÑ = 12
00:26 ^éÑ = 13
00:28 ^éÑ = 14
01:00 ^éÑ = 0
]
[ WARHEAD_MON
I @Çú THEN é
 MASM
m

─ 329 219

 0
^àÖ = 255
I ^àÉ == 2 THEN
{

^àÿ = 75
}
I ^àÉ == 3 THEN
{

^àÿ = 15
}
^àù = @Çì HUNDREDTHS
:LOOP

 NO1A ^àæ
 NO2A ^àÆ
 NO3A ^àô
 NO4A ^àö
â


I ^àÉ == 2 THEN
I ^àÿ <= 50 THEN
J #Çô
E
J #ÇÆ
E
I ^àÿ > 0 THEN J #ÇÆ

:ESCAPE_BUTTON
@Çå `ü▒
 ^àù

^àÖ = 200
]
[ WARHEAD_TIMER
:LOOP
00:04
^àæ = ^àÿ / 100
^àæ = 10 - ^àæ
^àÆ = ^àÿ % 100
^àÆ = ^àÆ / 10
^àÆ = 10 - ^àÆ
^àô = ^àÿ % 10
^àô = 10 - ^àô
^àÿ --

@Çå `ü¡ ^àÖ
ò


I ^àÉ <= 1 THEN
I ^àÿ <= 15 && @Çó ^àò == $üé THEN
{

@Ç¥ EXITMONITOR

^àò = @Çì WARHEAD_MON
J #Çò
}
E
I ^àÿ > 0 THEN J #Çò


I ^àÉ != 2 THEN
@Çì BLAST_LEX

@Çì REMOVE_BOMB
]
[ HUNDREDTHS
:LOOP
00:01

^àö ++
I ^àö > 10 THEN ^àö = 1
ò
J #Çù
]
{ BLASTLOG
W 1 SECOND
i LEX BLASTDS
}
{ STOPBOMBMON
I @Çó ^àò THEN
{
W 2 SECONDS

 ^àò
}
}
{ TIMER_25
I ^àÅ == 1 THEN é
@Ç¢ PLAYER
I @Çæ RTHAND BOMB != 1 THEN é
o

I ^àÿ >= 202 THEN
^àÿ = 202
I @Çó ^àò == $üé THEN
{
^àÉ = 1
^àò = @Çì WARHEAD_MON
}
W 2 SECONDS

 ^àò
^àÅ = 1
}

//$ 26 - version number