--------------------------------

:DRIVBUR
wait 10
model.Load(#RCBOMB)
04ED: load_animation "BOMBER"
038B: load_requested_models

:DRIVBUR_2
wait 0
if and
04EE: animation "BOMBER" loaded
Player.Defined($PLAYER_CHAR)
00E1: key_pressed 0 4
jf @DRIVBUR_2
wait 500
Actor.SetImmunities($PLAYER_ACTOR,1,1,1,1,1)
04C4: create_coordinate 2@ 3@ 4@ from_actor $PLAYER_ACTOR offset 0.0 0.7 -1.0
04C4: create_coordinate 16@ 17@ 18@ from_actor $PLAYER_ACTOR offset 0.0 7.0 20.0
0615: define_action_sequences 1@
0605: actor -1 perform_animation_sequence "BOM_PLANT_IN" from_file "BOMBER" 4.0 loop 0 0 0 0 0 ms
0605: actor -1 perform_animation_sequence "BOM_PLANT_LOOP" from_file "BOMBER" 4.0 loop 0 0 0 0 0 ms
0616: define_action_sequences_end 1@
0618: assign_actor $PLAYER_ACTOR to_action_sequences 1@
061B: remove_references_to_action_sequences 1@
OBJECT.CREATE(5@,#RCBOMB,2@, 3@, 4@)
08D2: object 5@ scale_model 0.9
066D: 6@ = attach_particle "nitro" to_object 5@ offset 0.0 -0.18 0.0 1
064C: make_particle 6@ visible
0453: object 5@ set_rotation 90.0 0.0 0.0
066D: 16@ = attach_particle "prt_smoke_huge" to_object 5@ offset 0.0 0.0 0.0 1
wait 500
064C: make_particle 16@ visible

:DRIVBUR_3
wait 5000
var
$Value:integer
end
for $Value = 0 to 120
wait 5
0400: create_coordinate 7@ 8@ 9@ from_object 5@ offset 0.0 0.5 0.0
object.PutAt(5@,7@ ,8@ ,9@)
end

:DRIVBUR_4
object.Destroy(5@)
wait 100
0650: destroy_particle 16@
020C: create_explosion_with_radius 10 at 7@ 8@ 9@
wait 10
020C: create_explosion_with_radius 2 at 7@ 8@ 9@
wait 10
020C: create_explosion_with_radius 5 at 7@ 8@ 9@
wait 10
020C: create_explosion_with_radius 7 at 7@ 8@ 9@
wait 10
020C: create_explosion_with_radius 10 at 7@ 8@ 9@
wait 10
object.RemoveReferences(5@)
model.Destroy(#RCBOMB)
wait 10
Actor.SetImmunities($PLAYER_ACTOR,0,0,0,0,0)
jump @DRIVBUR