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

Text File | 1995-02-27 | 3KB | 316 lines

{ FIDO_ENTER_COMBAT
}
{ FIDO_REACTIVATE
I ^îò > ^îÖ THEN
{
I @Ç¢ FIDO = $üé THEN
é
Z CURFIG ON
┬
è ON
^îò = 0
M ATK_STAND CONTINUE
G FIDO1
^îù = $üé
║ OFF
:STILL_IN_STASIS
I @Ç╛ == 0 THEN
{
A ON
J #Çé
}
}
}
{ FIDO_AI
P ~ÇÇ
:TOP
â

I .ÇéÇâ != $üö THEN
J #Çä
~ÇÇ = @Ç¥ MONSTER_MOVE 15
I ~ÇÇ > 0 THEN
{
N ~ÇÇ
{
U 1
I @Çô "atk_m1" != $üâ THEN
M ATK_M1 CONTINUE
X ÇÇ
U 2
I @Çô "atk_m2" != $üâ THEN
M ATK_M2 CONTINUE
X ÇÇ
U 3
I @Çô "atk_m3" != $üâ THEN
M ATK_M3 CONTINUE
X ÇÇ
U 4
U 6
┴
X ÇÇ
U 7
I @Çô "atk_m7" != $üâ THEN
M ATK_M7 CONTINUE
X ÇÇ
U 8
I @Çô "atk_m8" != $üâ THEN
M ATK_M8 CONTINUE
X ÇÇ
U 9
I @Çô "atk_m9" != $üâ THEN
M ATK_M9 CONTINUE
X ÇÇ
U 10
I @Çô "atk_m10" != $üâ THEN
M ATK_M10 CONTINUE
X ÇÇ
}
}
E
{
I ^îö > 0 THEN
{
I ^îò > ^îÖ THEN
@Çì FIDO_KO
E
{
M ATK_M2 CONTINUE
W 45
M ROAR
^îö = 0
}
}
E
{
N @Çà 1 6
{
U 1
M CLAW_LEFT
X Çü
U 2
M CLAW_RIGHT
X Çü
U 3
M TAIL_WHIP_LEFT
X Çü
U 4
M TAIL_WHIP_RIGHT
X Çü
U 5
M HEAD_CHOMP
X Çü
U 6
M ROAR
X Çü
}
}
}
â
J #Çä
}
{ FIDO_STIMULUS _DAMAGE

:GOT_HIT
^îö = 1
^îò = ^îò + 1
é
:KILLED_PLAYER
I ^îô = $üé THEN
é
A OFF
┴
M ATK_M2 CONTINUE
W 45
M ROAR
â
M ATK_STAND CONTINUE
}

{ FIDO_KO
P ~ÇÇ
P ~Çü
P ~Çé
A OFF
║ ON
^îÜ ++
I ^îÜ = 2 THEN
i LEX FIDOCLUE
M ATK_M2 CONTINUE
W 45
M WOBBLE
~ÇÇ = @Ç▒ CURFIG FIDO1
~Çü = @Ç▒ CURFIG AVD_IRIS
^îù = $üé
~Çé = $üé
I ^à¡ = 1 THEN
G FIDO1 WALK
E I ~ÇÇ < ~Çü THEN
G FIDO1 WALK
E
{
Z CURFIG OFF
G FIDO2 WALK 20
G AVD_IRIS WALK 220
£ AVD_IRIS
T -15
~Çé = $üâ
}
M WOBBLE
I ^à¡ AND ~Çé THEN
{
u CURFIG OFF
M DIE_N_FALL
@Çå `Çò 100 -2048
:STUPIDLOOP
I ^à¡ THEN
{
@Çì TANK_BATTLE

M FALL_THROUGH_IRIS
K
I @Çó ^Çä THEN
{
^å╢ = 1
^Ç│ = 1
^Ç┤ = 1
}
é
}
E
â
I ^à» = 1 THEN J #Çë
^îù = $üâ
}
E
{
M DIE
I ^à¡ AND ~Çé THEN
{
@Çì TANK_BATTLE
M FALL_THROUGH_IRIS
K
I @Çó ^Çä THEN
{
^å╢ = 1
^Ç│ = 1
^Ç┤ = 1
}
é
}
^îù = ~Çé
}
M STAY_DEAD CONTINUE
W 15 SECONDS
I ^îò = 1000 THEN
é
:PAUSE4IRIS
â
I ^à» = 1 THEN J #Çè
^îù = $üé
M WAKE_UP
Z CURFIG ON
I ^à¡ AND ^î¢ = 0 THEN
{
¥ AVD_IRIS 225
^î¢ = 1
}
^îò = 0
║ OFF
A ON
}
{ FIDO_BITES_IT
^îò = 1000
@Ç¢ FIDO
Z CURFIG OFF
u CURFIG OFF
A OFF
W 20
@Çå `Ç│ 100 1024
@Çì TANK_BATTLE
^îù = $üé
M FALL_THROUGH_IRIS
K
}
{ TANK_BATTLE
^îû = 1
W 10

@Çå `Çò 100 1024
W 10
W 10

@Çå `Ç₧ 200
@Çå `Ç│ 200
W 1 SECOND
@Çå `Çá 200
W 3 SECONDS
@Çå `Çá 200 -2048
W 2 SECONDS

@Ç║ `äƒ $üê "You hear fighting./FVous entendez une bagarre./GSie hören Kampfgeräusche."
W 2 SECONDS
I @Çû ^å│ = $üâ THEN
{
 `äƒ
é
}
@Çå `äƒ AVD_IRIS -1024
W 3 SECONDS
I @Çû ^å│ = $üâ THEN
{
 `äƒ
é
}
@Çå `äƒ AVD_IRIS 1024
W 1 SECONDS
I @Çû ^å│ = $üâ THEN
{
 `äƒ
é
}
@Çå `äƒ AVD_IRIS
W 3 SECONDS
I @Çû `äƒ = $üâ THEN
{
 ^å│
é
}
@Çå `äƒ AVD_IRIS -1024
O $Çä
}
































//$ 26 - version number