Train


0226 Label 26
2811 Begin jogging to Bond, then goto 11
0211 Label 11
03 Yield
3c25 If we have a line of sight on Bond then goto 25
2f08 If actor has stopped moving then goto 08
0111 Go to first 11
0206 Label 06
03 Yield
780635 If shot less than 6 times then goto 35
9f0000001037 If actor has property 1:00000010 (invincible) then goto 37
0235 Label 35
2f25 If actor has stopped moving then goto 25
4c00c801 If actor is further than 200 units of Bond then goto 01
0106 Go to first 06
0201 Label 01
0126 Go to first 26
0225 Label 25
3c01 If we have a line of sight on Bond then goto 01
0008 Go to next 08
021f Label 1f
03 Yield
4b003201 If actor is within 50 units of Bond then goto 01
2f01 If actor has stopped moving then goto 01
0126 Go to first 26
0201 Label 01
9f0000001037 If actor has property 1:00000010 (invincible) then goto 37
0229 Label 29
33 Call RNG
351901 If random byte > 25 then goto 01
0e08 Step sideways then goto 08
0201 Label 01
33 Call RNG
354001 If random byte > 64 then goto 01
1108 Walk and fire, then goto 08
0201 Label 01
357f01 If random byte > 127 then goto 01
1208 Run and fire, then goto 08
0201 Label 01
33 Call RNG
357f0f If random byte > 127 then goto 0f
140001000008 Aim/shoot at player 1 (?), then goto 08
020f Label 0f
150001000008 Kneel, aim/shoot at player 1 (?), then goto 08
0208 Label 08
03 Yield
3c01 If we have a line of sight on Bond then goto 01
0011 Go to next 11
0211 Label 11
33 Call RNG
35c801 If random byte > 200 then goto 01
0012 Go to next 12
0201 Label 01
0106 Go to first 06
0212 Label 12
ae Reset and start cycle counter
2813 Begin jogging to Bond, then goto 13
0213 Label 13
03 Yield
2f01 If actor has stopped moving then goto 01
b400003c01 If cycle counter > 60 (1.0 secs) then goto 01
0113 Go to first 13
0201 Label 01
08 Briefly aim at Bond
ad776169740a00 // wait
9504 Unmask $self->somevalue with 4
33 Call RNG
35c801 If random byte > 200 then goto 01
9404 Set $self->somevalue to 4
0201 Label 01
ae Reset and start cycle counter
0214 Label 14
03 Yield
3c01 If we have a line of sight on Bond then goto 01
4601 If a bullet just missed us then goto 01
03 Yield
b300025802 If cycle counter < 600 (10.0 secs) then goto 02
960403 If $self->somevalue is 4 then goto 03
0126 Go to first 26
0203 Label 03
0112 Go to first 12
0202 Label 02
0114 Go to first 14
0201 Label 01
0106 Go to first 06
0237 Label 37
780601 If shot less than 6 times then goto 01
9e00000010 Unset actor property: 1:00000010 (invincible)
0201 Label 01
0129 Go to first 29
04 End of function

Invocations

Comments

There are no comments yet for this function.