Pelagic II


00070415 When shot/hit, assign function 0415 - Elvis at start
0033fd07 If $self is dying/dead goto 07
0034fd07 If $self has finished death animation goto 07
017bfd07 If $self's body has disappeared goto 07
000004 Go to next 04
000207 Label 07
01380608 If sound in channel 6 is finished goto 08
00d306 Turn off sound in channel 6
000208 Label 08
0005fd0000 Assign function 0000 - Idle to $self and advance frame
000204 Label 04
0009 Actor stops travelling
0096fd0001 Set $self's health to 1
00b6 Reset and start cycle counter
00020b Label 0b
0003 Yield
00bd00007807 If cycle counter > 120 (2.0 secs) goto 07
00010b Go to first 0b
000207 Label 07
01a3ff Character moves hands (gun jammed)
00cdf6162014dc0606 Display text and play a sound in channel 6 for player:
You go on ahead, Jo. I'll secure the perimeter. We'll meet up later.
00020c Label 0c
0003 Yield
01380607 If sound in channel 6 is finished goto 07
00010c Go to first 0c
000207 Label 07
001d0040 Jog to pad 0040
00020d Label 0d
0003 Yield
003207 If actor has stopped moving goto 07
00010d Go to first 0d
00023b Label 3b
00b6 Reset and start cycle counter
00020e Label 0e
0009 Actor stops travelling
009d00800000010107 If actor flag is something, goto 07
0036 Call RNG
00388007 If random byte > 128 goto 07
0036 Call RNG
00374044 If random byte < 64 goto 44
00378045 If random byte < 128 goto 45
0037c446 If random byte < 196 goto 46
009b0080000001 Set an actor flag
000b02070000ffff100afd02 Actor $self does animation 0207 (smoking a cigarette, drops)
00004c Go to next 4c
000244 Label 44
000b009b0000ffff100afd02 Actor $self does animation 009b (tilt right and scratch head)
00004c Go to next 4c
000245 Label 45
000b009a0000ffff100afd02 Actor $self does animation 009a (yawn)
00004c Go to next 4c
000246 Label 46
000b009d0000ffff100afd02 Actor $self does animation 009d (grab crotch)
00004c Go to next 4c
000247 Label 47
000b000100000064100afd02 Actor $self does animation 0001 (two gun hold)
00004c Go to next 4c
000207 Label 07
009c0080000001 Unset an actor flag
005bfd00002904 If $self is in room/pad 29 goto 04
00b20040 Set $self->target_pad to 40
000007 Go to next 07
000204 Label 04
0036 Call RNG
00374044 If random byte < 64 goto 44
00378045 If random byte < 128 goto 45
0037c446 If random byte < 196 goto 46
00750807 Set $self->target_pad to 0807
000244 Label 44
00750207 Set $self->target_pad to 0207
000245 Label 45
00750407 Set $self->target_pad to 0407
000246 Label 46
00750807 Set $self->target_pad to 0807
00004c Go to next 4c
000207 Label 07
001e00 Jog to $self->target_pad (slow speed)
00024c Label 4c
0003 Yield
005bf800002904 If Joanna is in room/pad 29 goto 04
005bf800002a04 If Joanna is in room/pad 2a goto 04
005bf800002b04 If Joanna is in room/pad 2b goto 04
005bf800003004 If Joanna is in room/pad 30 goto 04
0034f507 If Velvet has finished death animation goto 07
005bf500002904 If Velvet is in room/pad 29 goto 04
005bf500002a04 If Velvet is in room/pad 2a goto 04
005bf500002b04 If Velvet is in room/pad 2b goto 04
005bf500003004 If Velvet is in room/pad 30 goto 04
000207 Label 07
000010 Go to next 10
000204 Label 04
00324b If actor has stopped moving goto 4b
00014c Go to first 4c
00024b Label 4b
00013b Go to first 3b
000204 Label 04
000210 Label 10
0003 Yield
00770107 If difficulty < SA goto 07
00e20000200104 Attempt to move actor 00 (Elvis) to pad 0020 and goto 04
000110 Go to first 10
000207 Label 07
00e20000960104 Attempt to move actor 00 (Elvis) to pad 0096 and goto 04
000110 Go to first 10
000204 Label 04
0009 Actor stops travelling
00a100000001 Set flag #1 (Elvis removed from start area)
00a7fd00000400 Set property for $self: 1:00000400 (hidden)
00a7fd00000010 Set property for $self: 1:00000010 (invincible)
009707d0 Set actor's armor to 2000
0096fd0001 Set $self's health to 1
0005fd0000 Assign function 0000 - Idle to $self and advance frame
0004 End of function

Invocations

Comments

Stop moving
Set health to 1
Wait 2 seconds
"You go on ahead"
Wait until talking finished
Jog to pad 40
Wait until stopped