cyber.net 2/cybernet2.ISO/bioforge/script/brian.scp

Text File | 1994-12-21 | 4.1 KB | 395 lines

{ BRIAN
< BEACH = -4308 -4033 -75 >
< CHAOS = 75 -218 54 >
< TOWER = 134 -217 280 >
< CONTROL = 158 -322 19 >
< LANDPAD = -112 -274 101 >
< DIGSITE = 248 125 177 >
< TANKS = 112 -745 -12 >
< TUNROOM = 45 -123 107 >
}
{ BOMBBLAST
@Çè ^éÑ +1 0 14 2
}
{ BRIAN_TEST0
 ^çƒ
}
{ SHOWBATT
I @Çó ^àï THEN
Q "The battery is being drained by the Reflect Suit" CONTINUE
W 1 SECOND
I @ÇÜ MY_BATTERY != 1 THEN
{
Q "cant find my_battery!"
é
}
Q "Battery Charge: %d" .ÇüÇÇ
}

{ SETTEMPLESCENE
^äü = 1
^êÇ = $üâ
^ç╖ = $üâ

a ^é░ 1
e WTALKY
f INVENTORY
@Ç¥ SETUPMARINES
}
{ LEXMOTION
:TOP
I ^çí == 0 THEN é
â
I ^ç₧ > 0 THEN
{
I @Çö STAND OR @Çö COMBAT_STAND THEN
{
J #Çå
}
E
{
I @Çó ^çƒ == $üâ THEN
{
 ^çƒ
}
}
}
}
{ DIEFLUFFY
P ~ÇÇ
~ÇÇ = 280
^äù = 0
@Çì CS_GUNNERYSTATIONMONITOR
I @Ç¢ ACIDD != 1 THEN
{
Q "Can't find Fluffy! Quitting current process!"
é
}
@Çå `Çá

@Çå `åû 150 1024

@Çì EXPLODEFLUFFY
G BEAST_5
£ -90 GRADUAL
M DIE CONTINUE
W ~ÇÇ

@Çì SPLASH
W 20

G BEAST_1
W 5
^äù = 1
}
{ RESETUSEBOT
F NURSEBOT 6666 6666 6666
n CURFIG USE_BOT
I @Ç¢ USE_BOT THEN
{
A OFF
r CURFIG OFF
Z CURFIG OFF
u CURFIG ON
è ON
ï PLAYER

G UBOTLOC



ª USEALTI MAXIMUM

I ^ïá = 0 THEN
{
£ 0
q DEACTIVATED 0
o
}
¥ AVDBAR1 100
¥ AVDBAR2 100
¥ AVDBAR3 100
¥ AVDBAR4 100
¥ WAY_PT2 180
¥ GETMEAT 80
}
E Q "Can't find Use_BOT!"
}
{ BRIAN_TEST1
@Ç¢ PLAYER
e BLOCK
@ÇÜ BLOCK
f RTHAND
e BLASTER
@ÇÜ BLASTER
f INVENTORY
}
{ BRIAN_TEST2
^ç╖ = 1
@Ç¢ B_GUARD
ï PLAYER
¥ BLAST_1 150
¥ BLAST_2 150
}
{ BRIAN_TEST3
P ~ÇÇ
P ~Çü
P ~Çé
P ~Çâ
P ~Çä
~ÇÇ = 900
~Çä = 0
:LOOP
~Çü = ~ÇÇ / 100
~Çü = 10 - ~Çü
~Çé = ~ÇÇ % 100
~Çé = ~Çé / 10
~Çé = 10 - ~Çé
~Çâ = ~ÇÇ % 10
~Çâ = 10 - ~Çâ
~Çä ++
~ÇÇ --
I ~Çä < 900 THEN J #Çî
}
{ BRIAN_TEST4
@Ç¢ PLAYER
G FIREBTN1
}
{ BRIAN_TEST5
^àÿ = 900
@Ç¢ PLAYER
.ÇéÇÇ = 100
A ON
@ÇÜ BOMB
f RTHAND
^àû = @Çì WARHEAD_TIMER
}
{ BRIAN_TEST6
@Ç¢ ACID
C BCHR
G -4935 -4195 -100
£ 180
M RISE CONTINUE
W 2
o


}
{ BRIAN_TEST7
@Ç¢ ACID
Q "2D Distance from Fluffy to Beast_1: %d" @Ç╗ CURFIG BEAST_1
}
{ BRIAN_TEST8
@Ç¢ ACID
Q "Distance from Fluffy to Lex: %d" @Çò
}
{ FORM
I @Ç⌐ HARD THEN ù LEX
E ù HARD
@Ç¢ PLAYER
}
{ MOVEFORKBOT
@Ç¢ CR_BOT
G AL1_AUTO
}
{ FORKCAM
@Ç¢ CR_BOT
 AIR1 AIR2 ELC2 HLC1 HLC2 HLC3 HLC4 HLC5
 OPR1 OPR5 RTR6
}
{ RESETBOMB
I @Çó ^àû == $üâ THEN
 ^àû
I @Çó ^àò == $üâ THEN
 ^àò
I @Çó ^àù == $üâ THEN
 ^àù
e BOMB
f RTHAND
^é¿ = 1
^àÉ = 0
^àæ = 0
^àÆ = 0
^àô = 0
^àö = 0
^àò = 0
^àû = 0
^àù = 0
^àÿ = 900
^àû = @Çì WARHEAD_TIMER
}
{ GOTOMB
@Ç¢ PLAYER
G TOMB_LOC
£ -59
}
{ RESETTOMB
^Ī = 1
^Ī = 0
^âö = 1
^âò = 1
^âù = 0
^âÄ = 0
^âÅ = 1
@Çì TOMB_SPARKLE
f INVENTORY
}
{ BRIAN_TEST_OLD
I @Ç¢ PLAYER THEN
{

I @Çæ ANYWHERE MONBAT = 0 THEN
{

I @ÇÜ DANEBAT THEN
{
n CURITEM MONBAT
M REMOVE_BATT
i "Lex" "dane"
Q "Lex now has the battery"
f CARRY

I @Ç¥ DANE_DEAD = 1 THEN
é

E
{
I @Ç¢ DANE THEN
{
M DEATH
.ÇéÇÇ = 0
A OFF
}
E Q "Can't find Dane"
}
}
E Q "Can't find DaneBat"
}
E Q "Lex already has the battery"
}
E Q "Can't find player"
}
{ BRIAN_TEST2_OLD
P ~ÇÇ
P ~Çü
P ~Çé
P ~Çâ
P ~Çä
P ~Çà
P ~Çå
~Çâ = @Ç╝ CURFIG DEMO
~Çå = ~Çâ
~ÇÇ = @Ç¿ CURFIG DEMO
I ~ÇÇ == 180 THEN ~ÇÇ = -180
~Çü = ~ÇÇ - 90
~Çé = ~ÇÇ + 90
~Çä = ~ÇÇ + 180
~Çà = ~ÇÇ - 180
Q "Demo is %d degrees relative to Lex" ~ÇÇ CONTINUE

I @Ç╝ CURFIG DEMO > 300 THEN é

I ~ÇÇ IN -60 60 THEN
{
£ ~ÇÇ GRADUAL
G DEMO WALK
o
M STAND
}

I ~ÇÇ NOTIN -120 120 THEN
{
I ~ÇÇ < 0 THEN
{
£ ~Çä GRADUAL
J #ÇÜ
}
I ~ÇÇ >= 0 THEN
{
£ ~Çà GRADUAL
J #ÇÜ
}
}

I ~ÇÇ IN 60 120 THEN
{
£ ~Çü GRADUAL
J #Ç₧
}

I ~ÇÇ IN -120 -60 THEN
{
£ ~Çé GRADUAL
J #Ç£
}

:WALK_BACKWARDS
M WALK_BACK CONTINUE
:LOC_B
â

~Çâ = @Ç╝ CURFIG DEMO
! ~Çâ
! ~Çå
I ~Çâ >= ~Çå THEN
{
Q "Went too far!" CONTINUE
o
M STAND
é
}
~Çå = ~Çâ
I @Ç╝ CURFIG DEMO > 20 THEN J #Ç¢
o
M STAND
é

:SIDESTEP_RIGHT
M SIDESTEP_RIGHT CONTINUE
:LOC_SR
â

~Çâ = @Ç╝ CURFIG DEMO
! ~Çâ
! ~Çå
I ~Çâ >= ~Çå THEN
{
Q "Went too far!" CONTINUE
o
M STAND
é
}
~Çå = ~Çâ
! ~Çâ
I @Ç╝ CURFIG DEMO > 20 THEN J #Ç¥
o
M STAND
é

:SIDESTEP_LEFT
M SIDESTEP_LEFT CONTINUE
:LOC_SL
â

~Çâ = @Ç╝ CURFIG DEMO
! ~Çâ
! ~Çå
I ~Çâ >= ~Çå THEN
{
Q "Went too far!" CONTINUE
o
M STAND
é
}
~Çå = ~Çâ
! ~Çâ
I @Ç╝ CURFIG DEMO > 20 THEN J #ǃ
o
M STAND
é
}

//$ 26 - version number