home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PowerPlay 1998 July
/
PowerPlay0798.bin
/
Demos
/
incoming.exe
/
asc
/
oceanic
/
oceanic_action.mdl
< prev
next >
Wrap
Text File
|
1998-04-06
|
74KB
|
3,491 lines
drag_coeff 0.01
gravity 2.2
#=====================================================
# Weapons ODL
;GREEN ENERGY LASER hitpoints 30
;GREEN LASER hitpoints 32
;BLUE LASER hitpoints 16
;RED LASER hitpoints 24
;PURPLE LASER hitpoints 12
;PLASMA BOLT 1 hitpoints 30
;PLASMA BOLT 2 hitpoints 25
;PLASMA BOLT 3 hitpoints 15
;PLASMA BOLT 4 hitpoints 20
;ROCKET 1 hitpoints 150
;ROCKET 2 hitpoints 500
;GUIDED MISSILE hitpoints 120
;TRACER SHOT 1 hitpoints 110
;BOMB 1 hitpoints 500
;DESIGNATOR hitpoints 0
;FOAM hitpoints 0
;ENERGY 1 hitpoints 150
;ENERGY 2 hitpoints 50
;BIG SHELL hitpoints 32
#=====================================================
;-------------------------------------------------------
;PHASE 1
;-------------------------------------------------------
mission_critical "oil3"
mission_critical "oil2"
phasestart
clear_flag all
playcdtrack 6
;===============================================
;Battleship
create "battleship"
label "P1battle"
position 99602 -523 179049
forward 0.581 0 0.814 up 0.000 1.000 0.000
mission_critical
create hero "twin-gun"
label "P1hero"
fixed_to "P1battle" at 0 -493 1147
armed_with "GREEN LASER" rate 4
task
wait_until flag 0 set
playercontrols
break_task_if flag 19 set
end
set_task "P1battle"
goto 164743 -523 250873
break_task_if "hero" destroyed
stop
set_vel 0
set_flag 1
end
create "sea-dart"
label "P1slave"
fixed_to "P1battle" at 0 -306 2500
armed_with "GUIDED MISSILE" rate 32
task
slave_to "P1hero"
end
create "bship-gun"
label "P1battle-guns"
position 0 0 0
forward 0 0 -1 up 0 1 0
fixed_to "P1battle" at 0 -276 -2400
armed_with "BIG SHELL" rate 32
create "destroyer"
label "P1shipA"
position 4000 on ground -4000 local toxz "P1battle"
forward 0.581 0 0.814 up 0.000 1.000 0.000
create "carrier1"
label "P1shipB"
position -6000 on ground 2000 local toxz "P1battle"
forward 0.581 0 0.814 up 0.000 1.000 0.000
create "pegasus"
label "P1shipC"
position 2000 on ground -2000 local toxz "P1battle"
forward 0.581 0 0.814 up 0.000 1.000 0.000
create "tanker"
globalise
position 156564 -523 263781
forward -0.848 0 -0.529 up 0.000 1.000 0.000
inert
task
wait_until flag 2 set
goto 108189 -523 243945
kill
end
;pause 1
camera_task
hud off
cam_pos 0 0 6000 attached_to "hero"
cam_focus "P1battle"
cam_goto 4000 0 3000
cam_pos -1000 -100 1000 attached_to "hero"
dolly 1
dollyspeed 0.004
pause 150
cam_mode cockpit
set_flag 0
end
pause 10
dosound "P1battle" "airhorn"
wait_until flag 0 set
lockcamera 1
kill "P1shipA"
kill "P1shipB"
kill "P1shipC"
#==================================================================================================
#===wave 1
#....................................................................
phasemessage 26 60
play_speech "Incoming alien fighters"
#....................................................................
generation_points
position 1000 -2000 15000 local toxz "P1battle"
position -1000 -2000 15000 local toxz "P1battle"
position -1500 -2000 15000 local toxz "P1battle"
position 1500 -2000 15000 local toxz "P1battle"
position 500 -2500 15000 local toxz "P1battle"
position 500 -2500 15000 local toxz "P1battle"
procedure "Proc_a"
create "lfighter"
position at generation point
towards "P1battle"
armed_with "PLASMA BOLT 3" rate 96
task
do
move_towards 0 -1000 -20000 local to "P1battle"
; if distance_between "hero" and me < 4000
; shoot "hero"
for 140 frames
; until distance_between "hero" and me > 16000
kill
end
pause 15
end_procedure terminate after 16 loops
wait_until proc "Proc_a" terminated
wait_until number_of "aair" = 0
#==================================================================================================
#===wave 2
#....................................................................
phasemessage 23 60
play_speech "Incoming"
#....................................................................
generation_points
position 2000 -1000 1000 local toxz "P1battle"
position -2000 -1000 1000 local toxz "P1battle"
procedure "Proc_a"
create "lfighter"
position at generation point
forward 0.581 0 0.814 up 0.000 1.000 0.000
armed_with "PLASMA BOLT 3" rate 16
task
do
move_towards 0 -1000 20000 local to "P1battle"
; if distance_between "hero" and me < 7000
; shoot
until distance_between "hero" and me > 7000
do
move_towards 0 -1000 -20000 local to "P1battle"
if distance_between "hero" and me < 7000
shoot "hero"
until distance_between "hero" and me > 10000
kill
end
pause 75
end_procedure terminate after 8 loops
wait_until proc "Proc_a" terminated
wait_until number_of "aair" = 0
#==================================================================================================
#===wave 3
#....................................................................
phasemessage 28 60
play_speech "Incoming alien bomber"
#....................................................................
create "bomber"
position 0 -2800 24000 local toxz "P1battle"
towards "P1battle"
armed_with "ENERGY 2" rate 128
task
do
move_towards 0 -3200 -15000 local to "P1battle"
if distance_between "hero" and me < 7000
shoot "hero"
for 250 frames
kill
end
generation_points
position 1000 -2000 15000 local toxz "P1battle"
position -1000 -2000 15000 local toxz "P1battle"
position -1500 -2000 15000 local toxz "P1battle"
position 1500 -2000 15000 local toxz "P1battle"
position 500 -2500 15000 local toxz "P1battle"
position 500 -2500 15000 local toxz "P1battle"
procedure "Proc_a"
create "lbomber"
position at generation point
towards "P1battle"
armed_with "PLASMA BOLT 4" rate 64
task
do
move_towards 0 -1000 -20000 local to "P1battle"
if distance_between "hero" and me < 7000
shoot "hero"
until distance_between "hero" and me < 7000
do
move_towards 0 -1000 20000 local to "P1battle"
if distance_between "hero" and me < 7000
shoot "hero"
until distance_between "hero" and me > 7000
do
move_towards 0 -1000 -20000 local to "P1battle"
if distance_between "hero" and me < 7000
shoot "hero"
until distance_between "hero" and me > 10000
kill
end
pause 75
end_procedure terminate after 8 loops
wait_until proc "Proc_a" terminated
wait_until number_of "bombers" = 0
#==================================================================================================
#===wave 4
#....................................................................
phasemessage 25 60
play_speech "Incoming alien craft"
#....................................................................
generation_points
position 1000 -2000 15000 local toxz "P1battle"
position -1000 -2000 15000 local toxz "P1battle"
position -1500 -2000 15000 local toxz "P1battle"
position 1500 -2000 15000 local toxz "P1battle"
position 500 -2500 15000 local toxz "P1battle"
position 500 -2500 15000 local toxz "P1battle"
procedure "Proc_a"
create "lfighter"
position at generation point
towards "P1battle"
armed_with "PLASMA BOLT 3" rate 64
task
do
move_towards 0 -1000 -20000 local to "P1battle"
if distance_between "hero" and me < 4000 and framecount & 7 = 0
shoot "hero"
for 140 frames
; until distance_between "hero" and me > 16000
kill
end
pause 25
end_procedure
wait_until flag 1 set
end_procedure "Proc_a"
pause 50
wait_until number_of "aair" = 0
set_flag 19
set_inert "hero"
#....................................................................
phasemessage 10 60
play_speech "phase complete"
#....................................................................
set_task "P1battle"
stop
set_vel 0
end
camera_task
hud off
cam_pos 1000 0 2000 attached_to "hero"
cam_focus "hero"
dolly 1
dollyspeed 0.004
pause 100
set_flag 2
end
create "helicopter"
label "P2hero"
position -20 -500 -3688 local to "P1battle"
armed_with "GREEN LASER" rate 4
secondary_armed_with "GUIDED MISSILE" rate 32 rounds 20
wait_until flag 2 set
;-------------------------------------------------------
;PHASE 2
;-------------------------------------------------------
refuel_pads
"AH1"
"AH2"
"AH3"
clear_flag all
collision "oil3" as "P1battle"
collision "oil2" as "P1battle"
switch_hero "P2hero"
task
wait_until flag 1 set
goto -2000 -1000 -4188 local to "P1battle"
wait_until flag 2 set
playercontrols
break_task_if flag 19 set
end
camera_task
hud off
cam_pos -500 0 -1000 attached_to "hero"
cam_focus "hero"
dolly 1
dollyspeed 0.004
set_flag 1
pause 50
cam_mode cockpit
dolly 1
dollyspeed 0.004
pause 70
set_flag 2
end
set_task "P1slave"
pause 1
end
set_task "P1hero"
armed_with "GREEN LASER" rate 32
defend "P1battle"
end
set_task "P1battle-guns"
defend "P1battle"
end
pause 10
phasestart
wait_until flag 2 set
#....................................................................
phasemessage 77 60
play_speech "Defend oil rigs"
#....................................................................
procedure "Proc_a"
wait_until number_of "aair" < 5
create "lfighter"
position 160108 -4230 270961
armed_with "PLASMA BOLT 2" rate 64
task
patrol
point 152167 -4230 254105
point 150712 -1859 249873
point 154603 -4230 248878
point 156349 -1512 252767
if distance_between "hero" and me <4000
shoot "hero"
if distance_between "oil3" and me <4000
shoot ;"oil3"
end
create "lfighter"
position 138045 -4230 232512
armed_with "PLASMA BOLT 2" rate 64
task
do
patrol_towards
point 152167 -1859 254105
point 157214 -4230 253326
point 154603 -1512 248878
point 149831 -4230 249435
if distance_between "oil3" and me <4000
shoot
forever
end
pause 75
end_procedure terminate after 8 loops
wait_until proc "Proc_a" terminated
wait_until number_of "aair" <= 2
#....................................................................
phasemessage 59 60
play_speech "Seek and destroy alien convoy"
#....................................................................
procedure "Proc_a"
create "mtb"
position 138045 -500 232512
armed_with "PLASMA BOLT 2" rate 32
task
do
patrol_towards
point 152167 -700 254105
point 157214 -700 253326
point 154603 -700 248878
point 149831 -700 249435
if distance_between "oil3" and me <4000
shoot
forever
end
pause 50
end_procedure terminate after 5 loops
procedure "Proc_b"
wait_until number_of "aair" < 4
wait_until flag 11 clear
create "lfighter"
position 0 -3200 -10000 local toxz "hero"
armed_with "RED LASER" rate 16
if rand & 7 = 0
secondary_armed_with "ENERGY 2" rate 128 rounds 1
task
attack "hero"
end
pause 50
end_procedure
wait_until proc "Proc_a" terminated
wait_until number_of "Amtb" = 0
set_flag 11
wait_until number_of "aair" = 0
#....................................................................
phasemessage 28 60
play_speech "Incoming alien bomber"
#....................................................................
create "bomber"
label "P2mother"
position 184484 -3760 244838
armed_with "ENERGY 1" rate 64
task
do
patrol_towards
point 176760 -3760 240963
point 172374 -3760 237304
point 165806 -3760 237019
point 164048 -3760 242941
point 168955 -3760 247555
point 175735 -3760 246722
shoot "oil2"
forever
end
create "hfighter"
position 2000 0 -2000 local to "P2mother"
armed_with "PLASMA BOLT 3" rate 16
task
wingman to "P2mother" at 2000 0 -2000
end
create "hfighter"
position -2000 0 -2000 local to "P2mother"
armed_with "PLASMA BOLT 3" rate 16
task
wingman to "P2mother" at -2000 0 -2000
end
set_waypoint "P2mother"
pause 300
clear_flag 11
wait_until "P2mother" destroyed
clear_waypoint
pause 300
end_procedure "Proc_b"
#....................................................................
phasemessage 55 60
play_speech "Destroy all alien craft"
#....................................................................
wait_until number_of "aair" = 0
wait_until number_of "fighters" = 0
set_flag 19
set_inert "hero"
#....................................................................
phasemessage 10 60
play_speech "phase complete"
#....................................................................
camera_task
hud off
cam_pos 1000 0 2000 attached_to "hero"
cam_focus "hero"
dolly 1
dollyspeed 0.004
pause 100
set_flag 18
end
wait_until flag 18 set
;-------------------------------------------------------
;PHASE 3
;-------------------------------------------------------
phasestart
clear_flag all
playcdtrack 5
create "carrier1"
globalise
label "P3carrier"
position 178542 -523 181251
forward 0.33 0 0.944 up 0 1 0
; position 259140 -423 324407
; forward -0.733 0 -0.68 up 0 1 0
mission_critical
create "tanker"
globalise
label "P3tanker"
position 235777 -523 229370
mission_critical
task
wait_until distance_between "hero" and me <12000
goto 235777 -523 270899
set_flag 11
end
create "vtol"
label "P3hero"
position 343 -947 5060 local to "P3carrier"
forward 0.33 0 0.944 up 0 1 0
; position 255539 -1396 321305
; forward -0.733 0 -0.68 up 0 1 0
armed_with "GREEN LASER" rate 4
secondary_armed_with "GUIDED MISSILE" rate 32 rounds 20
end_animation
switch_hero "P3hero"
task
pause 40
set_flag 1
set_vel 80
; goto 253548 -1196 319329
goto 294 -947 7542 local to "P3carrier"
animate backwards
do
set_vel 80
pitch -35%
until flag 1 clear
playercontrols
break_task_if flag 19 set
end
auto_aim "hero"
#================
kill "P2hero"
kill "P1hero"
kill "P1slave"
kill "P1battle"
kill "P1battle-guns"
#================
camera_task
hud off
cam_pos 100 -200 -1000 attached_to "hero"
cam_focus "hero"
dolly 0
wait_until flag 1 set
cam_goto -100 0 1500
pause 25
cam_mode cockpit
clear_flag 1
set_flag 2
end
wait_until flag 2 set
#=================
#=====wave 1
#....................................................................
phasemessage 62 60
play_speech "Defend allied craft"
#....................................................................
generation_points
position 0 -3200 -15000 local toxz "hero"
position 0 -3200 15000 local toxz "hero"
position 15000 -3200 0 local toxz "hero"
position -15000 -3200 0 local toxz "hero"
procedure "Proc_a"
wait_until number_of "aair" < 4
create "lfighter"
position at generation point
towards "hero"
armed_with "RED LASER" rate 8
secondary_armed_with "ENERGY 2" rate 64 rounds 4
task
attack "P3carrier"
end
pause 15
end_procedure terminate after 12 loops
wait_until proc "Proc_a" terminated
wait_until number_of "aair" = 0
#=================
#=====wave 2
#....................................................................
phasemessage 50 60
play_speech "Follow waypoint marker"
#....................................................................
generation_points
position 0 -3200 17000 local toxz "hero"
position 2000 -3200 17000 local toxz "hero"
position -2000 -3200 17000 local toxz "hero"
set_waypoint "P3tanker"
procedure "Proc_a"
wait_until number_of "fighters" < 4
create "hfighter"
position at generation point
towards "hero"
armed_with "RED LASER" rate 8
task
attack "hero"
break_task_if distance_between "hero" and me >18000
kill
end
pause 75
end_procedure
wait_until distance_between "hero" and "P3tanker" < 45000
#....................................................................
phasemessage 50 60
play_speech "Follow waypoint marker"
#....................................................................
wait_until distance_between "hero" and "P3tanker" < 20000
end_procedure "Proc_a"
#....................................................................
phasemessage 62 60
play_speech "Defend allied craft"
#....................................................................
#=================
#=====wave 3 (tanker)
generation_points
position 0 -3200 -15000 local toxz "P3tanker"
position 0 -3200 15000 local toxz "P3tanker"
position 15000 -3200 0 local toxz "P3tanker"
position -15000 -3200 0 local toxz "P3tanker"
procedure "Proc_a"
wait_until number_of "aair" < 5
create "lfighter"
position at generation point
towards "P3tanker"
armed_with "RED LASER" rate 8
secondary_armed_with "ENERGY 1" rate 128 rounds 4
task
attack "P3tanker"
end
pause 75
end_procedure terminate after 18 loops
wait_until distance_between "hero" and "P3tanker" < 9000
wait_until flag 11 set
set_inert "P3tanker"
wait_until proc "Proc_a" terminated
wait_until number_of "aair" = 0
clear_waypoint
generation_points
position 0 -3200 -15000 local toxz "P3tanker"
position 0 -3200 15000 local toxz "P3tanker"
position 15000 -3200 0 local toxz "P3tanker"
position -15000 -3200 0 local toxz "P3tanker"
#=================
#=====wave 4 (tanker docked)
#....................................................................
phasemessage 61 60
play_speech "Defend installation"
#....................................................................
procedure "Proc_a"
wait_until number_of "aair" < 5
create "lfighter"
position at generation point
towards "hero"
armed_with "RED LASER" rate 8
task
attack
end
pause 75
end_procedure terminate after 8 loops
wait_until proc "Proc_a" terminated
wait_until number_of "aair" = 0
#=================
#=====wave 5 (1st sub)
#....................................................................
phasemessage 60 60
play_speech "Seek and destroy alien submarine"
#....................................................................
create "aliensub"
label "P3sub_a"
position 248166 700 265420
forward 0 0 1 up 0 1 0
armed_with "GUIDED MISSILE" rate 64
task
wait_until distance_between "hero" and me <9000
land 248166 on ground 265420
set_vel 0
stop
do
shoot
forever
end
set_waypoint "P3sub_a"
wait_until "P3sub_a" destroyed
#=================
#=====wave 5 (1st sub)
#....................................................................
phasemessage 60 60
play_speech "Seek and destroy alien submarine"
#....................................................................
create "aliensub"
label "P3sub_b"
position 242804 700 273014
forward 0 0 1 up 0 1 0
armed_with "GUIDED MISSILE" rate 64
task
wait_until distance_between "hero" and me <9000
land 242804 on ground 273014
set_vel 0
stop
do
shoot
forever
end
set_waypoint "P3sub_b"
wait_until "P3sub_b" destroyed
clear_waypoint
set_flag 19
set_inert "hero"
#....................................................................
phasemessage 10 60
play_speech "phase complete"
#....................................................................
camera_task
hud off
cam_pos 1000 0 2000 attached_to "hero"
cam_focus "hero"
dolly 1
dollyspeed 0.004
pause 100
set_flag 18
end
wait_until flag 18 set
;-------------------------------------------------------
;PHASE 4
;-------------------------------------------------------
phasestart
clear_flag all
create "carrier1"
globalise
label "P4carrier"
position 124982 -523 199625
forward 1 0 0 up 0 1 0
mission_critical
task
wait_until flag 1 set
do
set_vel 10
forever
end
create "destroyer"
label "P4destroyer"
position 123864 -523 193131
forward 1 0 0 up 0 1 0
task
wait_until flag 1 set
do
set_vel 10
forever
end
create "pegasus"
label "P4peg"
position 139831 -523 195745
forward 1 0 0 up 0 1 0
task
wait_until flag 1 set
do
set_vel 10
forever
end
create "cobra"
label "P4hero"
position 122068 -1095 193146
armed_with "GREEN LASER" rate 4
secondary_armed_with "GUIDED MISSILE" rate 32 rounds 20
switch_hero "P4hero"
task
wait_until flag 2 set
goto 122135 -1645 194920
playercontrols
break_task_if flag 19 set
end
auto_aim "hero"
create "fa-18"
label "P4f18_a"
position 130073 -1440 199828
forward 0.95 0 -0.05 up 0 1 0
armed_with "GREEN LASER" rate 8
secondary_armed_with "GUIDED MISSILE" rate 32 rounds 10
settrail at 218.0 -5.1 -159.2
settrail at -218.0 -5.1 -159.2
task
do
position 130073 -1440 199828
forward 0.95 0 -0.05 up 0 1 0
for 65 frames
do
set_vel 100
pitch -1%
for 25 frames
do
set_vel 100
pitch -35%
for 25 frames
defend "P4carrier"
defend "P4destroyer"
defend "P4peg"
attack
end
create "fa-18"
label "P4f18_b"
position 130074 -1440 199293
forward 0.95 0 -0.05 up 0 1 0
armed_with "GREEN LASER" rate 8
secondary_armed_with "GUIDED MISSILE" rate 32 rounds 10
settrail at 218.0 -5.1 -159.2
settrail at -218.0 -5.1 -159.2
task
do
position 130074 -1440 199293
forward 0.95 0 -0.05 up 0 1 0
for 80 frames
do
set_vel 100
pitch -1%
for 25 frames
do
set_vel 100
pitch -35%
for 25 frames
defend "P4peg"
defend "P4destroyer"
defend "P4carrier"
attack
end
#================
kill "P3hero"
kill "P3carrier"
kill "P3tanker"
#================
dosound "P4carrier" "airhorn"
camera_task
hud off
cam_pos 2500 -500 0 attached_to "P4f18_a"
cam_focus "P4f18_a"
cam_goto 500 -500 700
cam_goto 500 -250 -1000
cam_free
pause 25
set_flag 2
cam_pos -500 0 500 attached_to "hero"
cam_focus "hero"
cam_goto -500 0 -500
wait_until distance_between 122077 -1010 193155 and "hero" > 800
cam_mode cockpit
set_flag 1
end
wait_until flag 1 set
#=================
#=====wave 1
#....................................................................
phasemessage 62 60
play_speech "Defend allied craft"
#....................................................................
generation_points
position 0 -3200 -15000 local toxz "hero"
position 0 -3200 15000 local toxz "hero"
position 15000 -3200 0 local toxz "hero"
position -15000 -3200 0 local toxz "hero"
procedure "Proc_a"
wait_until number_of "aair" < 4
create "lfighter"
position at generation point
towards "hero"
armed_with "RED LASER" rate 16
secondary_armed_with "ENERGY 2" rate 64 rounds 1
task
attack
end
pause 15
end_procedure terminate after 12 loops
wait_until proc "Proc_a" terminated
wait_until number_of "aair" = 0
#=================
#=====wave 2
#....................................................................
phasemessage 60 60
play_speech "Seek and destroy alien submarine"
#....................................................................
create "aliensub"
position 1000 700 23000 local toxz "P4peg"
forward -1 0 0 up 0 1 0
armed_with "GUIDED MISSILE" rate 128
task
goto 1000 700 8000 local toxz "P4peg"
land 0 on ground 0 relative toxz me
stop
set_vel 0
pause 150
do
shoot
forever
end
generation_points
position 8000 -3200 28000 local toxz "P4peg"
position 0 -3200 28000 local toxz "P4peg"
position -8000 -3200 28000 local toxz "P4peg"
procedure "Proc_a"
create "mtb"
position at generation point
forward -1 0 0 up 0 1 0
armed_with "PURPLE LASER" rate 24
task
attack
end
end_procedure terminate after 3 loops
wait_until proc "Proc_a" terminated
wait_until number_of "Amtb" =0
wait_until number_of "Asub" =0
#=================
#=====wave 3
#....................................................................
phasemessage 23 60
play_speech "Incoming"
#....................................................................
generation_points
position 8000 -3200 -28000 local toxz "P4destroyer"
position 0 -3200 -28000 local toxz "P4destroyer"
position -8000 -3200 -28000 local toxz "P4destroyer"
position 8000 -3200 -18000 local toxz "P4destroyer"
position 0 -3200 -18000 local toxz "P4destroyer"
position -8000 -3200 -18000 local toxz "P4destroyer"
procedure "Proc_a"
create "mtb"
position at generation point
forward -1 0 0 up 0 1 0
armed_with "PURPLE LASER" rate 16
task
attack
end
end_procedure terminate after 6 loops
wait_until proc "Proc_a" terminated
create "aliensub"
position -1000 700 -23000 local toxz "P4destroyer"
forward 1 0 0 up 0 1 0
armed_with "DESIGNATOR" rate 128
task
goto -1000 700 -8000 local toxz "P4destroyer"
land 0 on ground 0 relative toxz me
stop
set_vel 0
goto -1000 on ground -4000 local toxz "P4destroyer"
do
shoot "P4destroyer"
forever
end
wait_until number_of "Amtb" = 0
#=================
#=====wave 4
procedure "Proc_a"
wait_until number_of "aair" < 3
create "lfighter"
position 0 -3200 -15000 local toxz "hero"
towards "hero"
armed_with "RED LASER" rate 12
task
attack "hero"
end
pause 35
end_procedure terminate after 6 loops
wait_until proc "Proc_a" terminated
#....................................................................
phasemessage 60 60
play_speech "Seek and destroy alien submarine"
#....................................................................
create "aliensub"
position -3000 700 -23000 local toxz "P4carrier"
forward 1 0 0 up 0 1 0
armed_with "DESIGNATOR" rate 128
task
goto -3000 700 -8000 local toxz "P4carrier"
land 0 on ground 0 relative toxz me
stop
set_vel 0
goto -3000 on ground -4000 local toxz "P4carrier"
do
shoot "P4carrier"
forever
end
wait_until number_of "aair" = 0
wait_until number_of "Asub" = 0
set_task "hero"
do
goto 3000 -4200 -3000 local toxz "P4carrier"
forever
end
pause 50
#....................................................................
phasemessage 10 60
play_speech "phase complete"
#....................................................................
set_flag 19
set_inert "hero"
camera_task
hud off
cam_pos 1000 0 2000 attached_to "hero"
cam_focus "hero"
cam_goto 1000 0 -2000
set_flag 18
end
wait_until flag 18 set
;-------------------------------------------------------
;PHASE 5
;-------------------------------------------------------
phasestart
clear_flag all
playcdtrack 8
create "laser gun"
label "P5hero"
position 202557 on ground 100337
armed_with "GREEN LASER" rate 2
create "rack"
label "P5slave"
position 202910 on ground 100612
armed_with "GUIDED MISSILE" rate 32
task
slave_to "P5hero"
end
switch_hero "P5hero"
task
wait_until flag 2 set
playercontrols
break_task_if flag 19 set
end
camera_task
hud off
cam_pos 3000 -6000 14000 attached_to "hero"
cam_focus "P5peg"
pause 25
cam_pos 2000 -1000 16000 attached_to "hero"
dolly 1
dollyspeed 0.0004
pause 170
cam_pos 0 -200 -250 attached_to "hero"
dolly 1
dollyspeed 0.004
pause 100
cam_mode cockpit
dolly 1
dollyspeed 0.004
pause 25
set_flag 2
end
#====================================
kill "P4carrier"
kill "P4destroyer"
kill "P4peg"
kill "P4hero"
kill group "f18"
#====================================
wait_until flag 2 set
#....................................................................
phasemessage 61 60
play_speech "Defend installation"
#....................................................................
#===================
#=====wave 1
procedure "Proc_a"
create "lfighter"
position 204380 -1518 117480
towards "hero"
armed_with "PLASMA BOLT 1" rate 64
task
do
patrol_towards
point 203196 -1518 109429
point 201978 -1913 101464
point 203125 -2275 99450
point 205220 -1518 100931
if rand & 1 = 0
shoot
forever
end
create "mtb"
position 206896 -523 94973
armed_with "PLASMA BOLT 1" rate 64
task
do
patrol_towards
point 205955 -523 101012
point 204460 -523 103349
point 201243 -523 105050
point 201343 -523 108686
point 206417 -523 109831
if rand & 1 = 0
shoot
forever
end
pause 75
end_procedure terminate after 4 loops
pause 100
#....................................................................
phasemessage 31 60
play_speech "Incoming fire"
#....................................................................
wait_until proc "Proc_a" terminated
wait_until number_of "aair" <= 2
wait_until number_of "Amtb" <= 2
#===================
#=====wave 2
#....................................................................
phasemessage 23 60
play_speech "Incoming"
#....................................................................
procedure "Proc_a"
create "lfighter"
position 184894 -1292 90026
towards "hero"
armed_with "RED LASER" rate 6
task
goto 195423 -1292 94710
goto 199440 -1292 99222
attack
end
pause 75
end_procedure terminate after 6 loops
wait_until proc "Proc_a" terminated
wait_until number_of "aair" <= 2
#===================
#=====wave 3
#....................................................................
phasemessage 31 60
play_speech "Incoming fire"
#....................................................................
procedure "Proc_a"
create "lfighter"
position 217160 -850 94359.6
towards "hero"
armed_with "RED LASER" rate 6
task
goto 212981 -2203 96894
shoot "hero"
if rand & 1 = 0
attack "hero"
else
attack
end
pause 50
end_procedure terminate after 6 loops
pause 100
#===================
#=====wave 4
#....................................................................
phasemessage 23 60
play_speech "Incoming"
#....................................................................
procedure "Proc_b"
create "mtb"
position 204380 -523 117480
towards "hero"
armed_with "TRACER SHOT 1" rate 64
task
do
patrol_towards
point 203736 -523 109074
point 201971 -523 107235
point 201821 -523 104635
point 204159 -523 103223
point 206949 -523 105485
point 206220 -523 108076
shoot
forever
end
pause 75
end_procedure terminate after 4 loops
wait_until proc "Proc_a" terminated
wait_until proc "Proc_b" terminated
wait_until number_of "aair" <=4
wait_until number_of "Amtb" <=2
#===================
#=====wave 5
#....................................................................
phasemessage 23 60
play_speech "Incoming"
#....................................................................
procedure "Proc_a"
create "lfighter"
position 189740 -690.219 99999.6
towards "hero"
armed_with "RED LASER" rate 6
secondary_armed_with "ENERGY 2" rate 64 rounds 2
task
goto 193400 -2190.22 100220
shoot "hero"
if rand & 1 = 0
attack "hero"
else
attack
end
create "lfighter"
position 187720 -890.219 98099.6
towards "hero"
armed_with "RED LASER" rate 6
secondary_armed_with "ENERGY 2" rate 64 rounds 2
task
goto 193720 -2210.22 98159.6
shoot "hero"
if rand & 1 = 0
attack "hero"
else
attack
end
pause 50
end_procedure terminate after 4 loops
wait_until proc "Proc_a" terminated
wait_until number_of "aair" <= 2
#===================
#=====wave 6
#....................................................................
phasemessage 31 60
play_speech "Incoming fire"
#....................................................................
procedure "Proc_a"
create "lfighter"
position 200600 -930.219 88859.6
towards "hero"
armed_with "RED LASER" rate 6
secondary_armed_with "ENERGY 2" rate 64 rounds 2
task
goto 200240 -2330.22 94079.6
shoot "hero"
attack "hero"
end
pause 50
end_procedure terminate after 4 loops
wait_until proc "Proc_a" terminated
wait_until number_of "aair" < 4
#===================
#=====wave 7
procedure "Proc_a"
create "hfighter"
position 204380 -1518 117480
towards "hero"
armed_with "PLASMA BOLT 1" rate 64
task
goto 203196 -1518 109429
shoot "hero"
goto 201978 -1913 101464
attack "hero"
end
pause 75
end_procedure terminate after 4 loops
wait_until proc "Proc_a" terminated
wait_until number_of "fighters" = 0
pause 50
#....................................................................
phasemessage 10 60
play_speech "phase complete"
#....................................................................
set_flag 19
set_inert "hero"
camera_task
hud off
cam_pos 500 -200 1000 attached_to "hero"
cam_focus "hero"
dolly 1
dollyspeed 0.004
pause 100
set_flag 18
end
wait_until flag 18 set
;-------------------------------------------------------
;PHASE 6
;-------------------------------------------------------
phasestart
clear_flag all
mission_critical "oil5"
create "plfight"
label "P6hero"
position 111190 -1475 280413
armed_with "GREEN LASER" rate 4
secondary_armed_with "ENERGY 2" rate 32 rounds 20
switch_hero "P6hero"
task
; wait_until flag 2 set
playercontrols
break_task_if flag 19 set
end
auto_aim "hero"
camera_task
hud off
cam_pos -500 00 1000 attached_to "hero"
cam_focus "hero"
cam_goto -500 0 -1000
wait_until distance_between "hero" and 111190 -1475 280413 > 1200
cam_mode cockpit
dolly 1
end
#====================================
kill "P5slave"
kill "P5hero"
#====================================
#....................................................................
phasemessage 75 60
play_speech "Destroy icebergs"
#....................................................................
generation_points
position 110828 -523 292630
position 113715 -523 298379
position 116952 -523 294457
position 120271 -523 296693
position 119053 -523 289979
position 118571 -523 304793
#=======================
#=====wave 1 (ice bergs)
procedure "Proc_a"
if rand & 15 < 7
create "iceberg2"
else
create "iceberg3"
position at generation point
towards "oil5"
task
set_vel 10
goto 0 -523 0 relative toxz "oil5"
break_task_if vel < 4 and distance_between 0 -523 1000 relative to "oil5" and me <2500
hurt "oil5" 500
set_operate "sink2"
dosound "EXPLODE1"
startwave me 0
end
end_procedure terminate after 6 loops
wait_until proc "Proc_a" terminated
wait_until number_of "iceberg" = 0
set_waypoint "oil5"
#....................................................................
phasemessage 77 60
play_speech "Defend oil rigs"
#....................................................................
generation_points
position 150172 -523 345527
position 147032 -523 344027
position 150292 -523 340347
position 154892 -523 339587
position 157452 -523 343347
position 144252 -523 336447
position 148592 -523 335247
position 151772 -523 332947
position 159932 -523 334967
position 165552 -523 338827
#=======================
#=====wave 2 (ice bergs)
procedure "Proc_a"
if rand & 15 < 7
create "iceberg2"
else
create "iceberg3"
position at generation point
towards "oil5"
task
set_vel 10
goto 0 -523 0 relative toxz "oil5"
break_task_if vel < 4 and distance_between 0 -523 1000 relative to "oil5" and me <2500
hurt "oil5" 500
set_operate "sink2"
dosound "EXPLODE1"
startwave me 0
end
end_procedure terminate after 10 loops
wait_until proc "Proc_a" terminated
#=======================
#=====wave 3
generation_points
position 0 -3200 -17000 local toxz "hero"
position 0 -3200 17000 local toxz "hero"
position 17000 -3200 0 local toxz "hero"
position -17000 -3200 0 local toxz "hero"
procedure "Proc_a"
wait_until number_of "bombers" < 6
create "lbomber"
position at generation point
towards "oil5"
armed_with "PLASMA BOLT 1" rate 16
task
attack "oil5"
end
pause 75
end_procedure terminate after 6 loops
wait_until proc "Proc_a" terminated
wait_until number_of "bombers" = 0
#=======================
#=====wave 4
procedure "Proc_a"
wait_until number_of "fighters" < 6
create "hfighter"
position at generation point
towards "oil5"
armed_with "RED LASER" rate 16
task
attack "oil5"
end
pause 75
end_procedure terminate after 10 loops
wait_until proc "Proc_a" terminated
wait_until number_of "fighters" = 0
#=======================
#=====wave 5
procedure "Proc_a"
wait_until number_of "aair" < 6
create "lfighter"
position at generation point
towards "oil5"
armed_with "RED LASER" rate 16
task
if rand & 1 =0
attack "oil5"
else
attack "hero"
end
pause 75
end_procedure terminate after 10 loops
wait_until proc "Proc_a" terminated
wait_until number_of "aair" = 0
or distance_between closest "iceberg" to "oil5" and "oil5" < 8000
#=======================
#=====wave 5
#....................................................................
phasemessage 75 60
play_speech "Destroy icebergs"
#....................................................................
procedure "Proc_a"
set_waypoint nearest "iceberg"
end_procedure
procedure "Proc_c"
pause 300
#....................................................................
phasemessage 75 60
play_speech "Destroy icebergs"
#....................................................................
end_procedure
procedure "Proc_b"
wait_until number_of "aair" < 6
create "lfighter"
position at generation point
towards "hero"
armed_with "RED LASER" rate 8
task
attack "hero"
end
pause 75
end_procedure
wait_until number_of "iceberg" = 0
end_procedure "Proc_a"
end_procedure "Proc_b"
end_procedure "Proc_c"
clear_waypoint
#....................................................................
phasemessage 55 60
play_speech "Destroy all alien craft"
#....................................................................
wait_until number_of "aair" = 0
#=======================
#=====wave 6
set_waypoint "oil5"
#....................................................................
phasemessage 77 60
play_speech "Defend oil rigs"
#....................................................................
generation_points
position 0 -3200 -17000 local toxz "oil5"
position 0 -3200 17000 local toxz "hero"
position 17000 -3200 0 local toxz "oil5"
position -17000 -3200 0 local toxz "hero"
procedure "Proc_a"
wait_until number_of "aair" < 8
create "lfighter"
position at generation point
towards "oil5"
armed_with "RED LASER" rate 8
secondary_armed_with "ENERGY 2"rate 128 rounds 1
task
attack "oil5"
end
pause 75
end_procedure terminate after 12 loops
wait_until proc "Proc_a" terminated
wait_until number_of "aair" = 0
clear_waypoint
#....................................................................
phasemessage 10 60
play_speech "phase complete"
#....................................................................
set_flag 19
set_inert "hero"
pause 10
camera_task
hud off
cam_pos 500 -200 2000 attached_to "hero"
cam_focus "hero"
cam_goto 500 -200 -2000
set_flag 18
end
wait_until flag 18 set
;-------------------------------------------------------
;PHASE 7
;-------------------------------------------------------
phasestart
clear_flag all
playcdtrack 3
create "destroyer"
globalise
label "P7destroyer"
position 158158 -523 182026
forward 1 0 0 up 0 1 0
mission_critical
task
goto 257478 -523 182026
break_task_if "hero" destroyed
stop
set_vel 0
set_flag 17
end
create "destroyer"
;create "cruiser"
globalise
label "P7cruiser"
position 3000 0 -12000 local to "P7destroyer"
forward 1 0 0 up 0 1 0
task
do
do
set_vel 26
for 200 frames
do
set_vel 16
for 200 frames
until flag 17 set
stop
set_vel 0
end
create "pegasus"
label "P7peg"
position -3000 0 -8000 local to "P7destroyer"
forward 1 0 0 up 0 1 0
task
do
do
set_vel 24
for 200 frames
do
set_vel 16
for 200 frames
until flag 17 set
stop
set_vel 0
end
create "ship-gun"
label "P7hero"
position 0 0 0 forward 0 0 -1 up 0 1 0
fixed_to "P7destroyer" at -15 -133 -2760
armed_with "GREEN LASER" rate 4
create "rack"
label "P7rack"
position 0 0 0 forward -1 0 0 up 0 1 0
fixed_to "P7destroyer" at -11 -263 -2189
armed_with "GUIDED MISSILE" rate 64
task
slave_to "P7hero"
end
switch_hero "P7hero"
task
playercontrols
break_task_if flag 19 set
end
#================
kill "P6hero"
#================
camera_task
hud off
cam_pos 1500 -3500 -7000 attached_to "hero"
cam_focus "hero"
pause 10
cam_pos 500 -200 1250 attached_to "hero"
dolly 1
dollyspeed 0.0004
pause 180
cam_mode cockpit
set_flag 1
end
wait_until flag 1 set
lockcamera 1
#==================================================================================================
#===wave 1
#....................................................................
phasemessage 25 60
play_speech "Incoming alien craft"
#....................................................................
generation_points
position 1000 -2000 -15000 local toxz "P7destroyer"
position -1000 -2000 -15000 local toxz "P7destroyer"
position -1500 -2000 -15000 local toxz "P7destroyer"
position 500 -2500 -15000 local toxz "P7destroyer"
procedure "Proc_a"
wait_until number_of "aair" < 6
create "lfighter"
position at generation point
towards "P7destroyer"
armed_with "PLASMA BOLT 4" rate 64
task
do
move_towards 0 -2600 10000 local toxz "P7destroyer"
if rand & 15 > 7
shoot
for 230 frames
kill
end
pause 25
end_procedure terminate after 8 loops
wait_until proc "Proc_a" terminated
wait_until number_of "aair" = 0
#==================================================================================================
#===wave 2
generation_points
position 15000 -2000 -5000 local toxz "P7destroyer"
position -15000 -2000 -5000 local toxz "P7destroyer"
position 13000 -1500 -3000 local toxz "P7destroyer"
position -13000 -1500 -3000 local toxz "P7destroyer"
procedure "Proc_a"
wait_until number_of "aair" < 6
create "lfighter"
position at generation point
towards "P7destroyer"
armed_with "RED LASER" rate 96
task
do
move_towards 0 -700 -6000 local to "P7destroyer"
shoot
until distance_between me and "hero" < 6000
do
move_towards 0 -2000 6000 local to "P7destroyer"
shoot "hero"
for 200 frames
kill
end
pause 15
end_procedure terminate after 10 loops
wait_until proc "Proc_a" terminated
wait_until number_of "aair" = 0
#==================================================================================================
#===wave 3
#....................................................................
phasemessage 30 60
play_speech "Incoming alien surface craft"
#....................................................................
generation_points
position 12000 on ground -2000 local toxz "P7destroyer"
position -12000 on ground -2000 local toxz "P7destroyer"
procedure "Proc_a"
wait_until number_of "Amtb" < 6
create "mtb"
position at generation point
towards "P7destroyer"
armed_with "GUIDED MISSILE" rate 256
task
do
move_towards 0 on ground -3000 local toxz "P7destroyer"
until distance_between me and "hero" < 2000
do
move_towards 0 -2000 -17000 local to "P7destroyer"
if rand & 1 = 0
shoot "hero"
for 240 frames
kill
end
pause 75
end_procedure terminate after 8 loops
wait_until proc "Proc_a" terminated
wait_until number_of "Amtb" = 0
#==================================================================================================
#===wave 4
#....................................................................
phasemessage 28 60
play_speech "Incoming alien bomber"
#....................................................................
generation_points
position 4000 -2000 5000 local toxz "P7destroyer"
position -4000 -2000 5000 local toxz "P7destroyer"
position -1000 -2500 5000 local toxz "P7destroyer"
position 1000 -2500 5000 local toxz "P7destroyer"
create "bomber"
position 0 -3000 5000 local toxz "P7destroyer"
forward -1 0 0 up 0 1 0
armed_with "ENERGY 2" rate 256
task
do
move_towards 0 -3000 -22000 local to "P7destroyer"
if distance_between "hero" and me > 9000
shoot
for 350 frames
kill
end
procedure "Proc_a"
wait_until number_of "fighters" < 4
create "hfighter"
position at generation point
towards "P7destroyer"
armed_with "PLASMA BOLT 2" rate 96
task
do
move_towards 0 -2000 -32000 local to "P7destroyer"
for 270 frames
kill
end
pause 50
end_procedure terminate after 8 loops
wait_until proc "Proc_a" terminated
wait_until number_of "fighters" < 4
#==================================================================================================
#===wave 5
create "aliensub"
position -2000 400 -12000 local toxz "P7destroyer"
forward 1 0 0 up 0 1 0
armed_with "ENERGY 2" rate 256
task
do
set_vel 60
for 800 frames
land 0 -650 0 relative toxz me
stop
set_vel 0
do
do
set_vel 16
shoot
for 200 frames
do
set_vel 26
shoot
for 200 frames
forever
end
create "aliensub"
position 2000 400 -10000 local toxz "P7destroyer"
forward 1 0 0 up 0 1 0
armed_with "ENERGY 2" rate 256
task
do
set_vel 60
for 600 frames
land 0 -650 0 relative toxz me
stop
set_vel 0
do
do
set_vel 26
shoot "hero"
for 200 frames
do
set_vel 16
shoot "hero"
for 200 frames
forever
end
wait_until number_of "fighters" = 0
generation_points
position 1000 -2000 -15000 local toxz "P7destroyer"
position -1000 -2000 -15000 local toxz "P7destroyer"
position -1500 -2000 -15000 local toxz "P7destroyer"
position 500 -2500 -15000 local toxz "P7destroyer"
procedure "Proc_a"
wait_until number_of "aair" < 6
create "lfighter"
position at generation point
towards "P7destroyer"
armed_with "PLASMA BOLT 4" rate 64
task
do
move_towards 0 -2600 10000 local toxz "P7destroyer"
if rand & 15 > 7 and distance_between "hero" and me < 6000
shoot
for 230 frames
kill
end
pause 25
end_procedure terminate after 20 loops
wait_until proc "Proc_a" terminated
wait_until number_of "aair" = 0
wait_until number_of "Asub" = 0
#==================================================================================================
#===wave 6
#....................................................................
phasemessage 23 60
play_speech "Incoming"
#....................................................................
generation_points
position 2000 -1000 1000 local toxz "P7destroyer"
position -2000 -1000 1000 local toxz "P7destroyer"
position 2000 -2000 1000 local toxz "P7destroyer"
position -2000 -2000 1000 local toxz "P7destroyer"
procedure "Proc_a"
wait_until number_of "aair" < 6
create "lfighter"
position at generation point
forward -1 0 0 up 0 1 0
armed_with "PLASMA BOLT 4" rate 32
task
do
move_towards 0 -500 -20000 local to "P7destroyer"
until distance_between "hero" and me > 7000
do
move_towards 0 -1700 20000 local to "P7destroyer"
if distance_between "hero" and me < 7000
shoot "hero"
for 250 frames
kill
end
pause 50
end_procedure
wait_until flag 17 set
end_procedure "Proc_a"
wait_until number_of "aair" = 0
#==================================================================================================
#....................................................................
phasemessage 10 60
play_speech "phase complete"
#....................................................................
set_flag 19
set_inert "hero"
camera_task
hud off
cam_pos -4000 -700 -4000 attached_to "P7destroyer"
cam_focus "hero"
dolly 1
dollyspeed 0.004
pause 100
set_flag 18
end
wait_until flag 18 set
;-------------------------------------------------------
;PHASE 8
;-------------------------------------------------------
clear_flag all
create "liner"
globalise
label "P8liner"
position 270303 -523 222735
forward -0.91 0 -0.414 up 0 1 0
mission_critical
task
wait_until flag 1 set
goto 219899 -523 199790
goto 124047 -523 199841
end
create "stealth"
label "S1"
position 0 -500 8000 local toxz "P8liner"
forward -0.91 0 -0.414 up 0 1 0
task
do
goto 0 on ground 8000 local toxz "P8liner"
forever
end
create "stealth"
label "S2"
position 0 -500 -8000 local toxz "P8liner"
forward -0.91 0 -0.414 up 0 1 0
task
do
goto 0 on ground -8000 local toxz "P8liner"
forever
end
create "vtol"
label "P8hero"
position 0 -3200 -5000 local to "P8liner"
towards "P8liner"
armed_with "GREEN LASER" rate 4
secondary_armed_with "GUIDED MISSILE" rate 48 rounds 20
switch_hero "P8hero"
task
wait_until flag 3 set
goto 0 -3200 5000 local to "P8liner"
break_task_if flag 2 set
playercontrols
break_task_if flag 19 set
end
auto_aim "hero"
#================
kill "P7hero"
kill "P7rack"
kill "P7destroyer"
kill "P7peg"
kill "P7cruiser"
#================
camera_task
hud off
cam_pos 100 -500 600 attached_to "P8liner"
cam_focus 270695 -1023 222934
pause 25
cam_focus 280695 -1023 222934
dolly 1
dollyspeed 0.0004
pause 200
cam_pos 1500 -3500 -7000 attached_to "P8liner"
cam_focus 400 -400 -7000 local to "P8liner"
pause 1
set_flag 1
cam_pos 420 -380 2900 attached_to "P8liner"
cam_focus "hero"
dolly 1
dollyspeed 0.0004
pause 180
cam_goto 420 -380 -2700
cam_mode cockpit
dolly 1
dollyspeed 0.03
set_flag 3
pause 80
set_flag 2
end
pause 40
create "hfighter2"
position -10250 -5800 -9500 local to "P8liner"
forward 0 -1 0 up 1 0 0
task
do
position -10250 -5800 -9500 local to "P8liner"
forward 0 -1 0 up 1 0 0
for 100 frames
goto -12200 -1800 -12500 local to "P8liner"
break_task_if flag 1 set
pause 2
kill
end
wait_until flag 2 set
phasestart
set_waypoint "P8liner"
#==================================================================================================
#=======================================================================
#==wave 1
#....................................................................
phasemessage 62 60
play_speech "Defend allied craft"
#....................................................................
generation_points
position 0 -1000 20000 local to "P8liner"
position 0 -1000 -20000 local to "P8liner"
position 20000 -1000 0 local to "P8liner"
position -20000 -1000 0 local to "P8liner"
procedure "Proc_a"
wait_until number_of "aair" < 4
create "lfighter"
position at generation point
towards "P8liner"
armed_with "PURPLE LASER" rate 32
task
attack "P8liner"
end
pause 75
end_procedure
pause 300
create "section"
position 0 -6200 40000 local to "P8liner"
towards "P8liner"
armed_with "ENERGY 1" rate 16
secondary_armed_with "GUIDED MISSILE" rate 96
inert
task
do
move_towards 0 -3200 -46000 local to "P8liner"
if distance_between "P8liner" and me > 20000 and distance_between "hero" and me <7000
{
shoot "hero"
fire_secondary at "hero"
}
for 900 frames
; until distance_between 0 -3200 -26000 local to "P8liner" and me < 1000
kill
end
wait_until number_of "Acarrier" = 0
end_procedure "Proc_a"
wait_until number_of "aair" = 0
#=======================================================================
#==wave 2
#....................................................................
phasemessage 62 60
play_speech "Defend allied craft"
#....................................................................
create "sub"
position -4000 700 -2000 local toxz "P8liner"
forward -0.91 0 -0.414 up 0 1 0
armed_with "TRACER SHOT 1" rate 96
task
goto -4000 700 9000 local toxz "P8liner"
land 0 on ground 0 relative toxz me
stop
set_vel 0
do
set_vel 16
shoot
for 750 frames
land 0 700 0 relative to me
kill
end
generation_points
position -1000 -700 20000 local to "P8liner"
position -5000 -700 20000 local to "P8liner"
position 1000 -700 -10000 local to "P8liner"
position 5000 -700 -10000 local to "P8liner"
procedure "Proc_b"
wait_until number_of "aair" < 3
create "lfighter"
position at generation point
towards "P8liner"
armed_with "RED LASER" rate 8
task
attack "hero"
end
pause 75
end_procedure
procedure "Proc_a"
wait_until number_of "Amtb" < 4
create "mtb"
position at generation point
towards "P8liner"
armed_with "PURPLE LASER" rate 32
task
attack "P8liner"
end
pause 75
end_procedure
pause 500
create "abship"
label "P8sub_a"
position -8000 700 14000 local toxz "P8liner"
forward 0.91 0 0.414 up 0 1 0
armed_with "ENERGY 2" rate 128
inert
task
do
position -8000 700 14000 local toxz "P8liner"
forward 0.91 0 0.414 up 0 1 0
for 400 frames
land 0 on ground 0 relative toxz me
set_flag 10
pause 200
do
shoot
for 750 frames
land 0 700 0 relative to me
kill
end
wait_until flag 10 set
set_volatile "P8sub_a"
create "section"
position 0 -6200 40000 local to "P8liner"
towards "P8liner"
armed_with "ENERGY 1" rate 16
secondary_armed_with "GUIDED MISSILE" rate 96
inert
task
do
move_towards 0 -3200 -46000 local to "P8liner"
if distance_between "P8liner" and me > 20000 and distance_between "hero" and me <7000
{
shoot "hero"
fire_secondary at "hero"
}
for 900 frames
; until distance_between 0 -3200 -26000 local to "P8liner" and me < 1000
kill
end
wait_until number_of "Acarrier" = 0
end_procedure "Proc_a"
#=======================================================================
#==wave 3
#....................................................................
phasemessage 62 60
play_speech "Defend allied craft"
#....................................................................
generation_points
position 0 -1000 20000 local to "P8liner"
position 0 -1000 -20000 local to "P8liner"
position 20000 -1000 0 local to "P8liner"
position -20000 -1000 0 local to "P8liner"
procedure "Proc_a"
wait_until number_of "fighters" < 4
create "hfighter2"
position at generation point
towards "P8liner"
armed_with "PURPLE LASER" rate 32
task
attack "P8liner"
end
pause 75
end_procedure
pause 400
create "section"
position 0 -6200 40000 local to "P8liner"
towards "P8liner"
armed_with "ENERGY 1" rate 16
secondary_armed_with "GUIDED MISSILE" rate 96
inert
task
do
move_towards 0 -3200 -46000 local to "P8liner"
if distance_between "P8liner" and me > 20000 and distance_between "hero" and me <7000
{
shoot "hero"
fire_secondary at "hero"
}
for 900 frames
; until distance_between 0 -3200 -26000 local to "P8liner" and me < 1000
kill
end
wait_until number_of "Acarrier" = 0
end_procedure "Proc_a"
wait_until number_of "fighters" =0
end_procedure "Proc_b"
#=======================================================================
#==wave 4
#....................................................................
phasemessage 62 60
play_speech "Defend allied craft"
#....................................................................
procedure "Proc_a"
wait_until number_of "aair" < 6
create "lfighter"
position at generation point
towards "P8liner"
armed_with "RED LASER" rate 8
task
attack "hero"
end
pause 75
end_procedure
create "bomber"
label "P8bom"
position 22000 -6200 10000 local toxz "P8liner"
towards "P8liner"
armed_with "PLASMA BOLT 4" rate 32
secondary_armed_with "BOMB 1" rate 32 rounds 200
task
do
move_towards -30000 -3200 3000 local toxz "P8liner"
if distance_between "P8liner" and me < 8000
{
fire_secondary at "hero"
}
shoot
until distance_between -30000 -3200 3000 local to "P8liner" and me < 2000
kill
end
create "section"
position 0 -6200 40000 local to "P8liner"
towards "P8liner"
armed_with "ENERGY 1" rate 16
secondary_armed_with "GUIDED MISSILE" rate 96
inert
task
do
move_towards 0 -3200 -46000 local to "P8liner"
if distance_between "P8liner" and me > 20000 and distance_between "hero" and me <7000
{
shoot "hero"
fire_secondary at "hero"
}
for 900 frames
; until distance_between 0 -3200 -26000 local to "P8liner" and me < 1000
kill
end
wait_until number_of "Acarrier" = 0
end_procedure "Proc_a"
wait_until number_of "aair" =0
pause 50
kill "P8bom"
#....................................................................
phasemessage 10 60
play_speech "phase complete"
#....................................................................
set_flag 19
set_inert "hero"
camera_task
hud off
cam_pos -2000 0 -2000 attached_to "hero"
cam_focus "hero"
cam_goto 2000 0 2000
set_flag 18
end
wait_until flag 18 set
;-------------------------------------------------------
;PHASE 9
;-------------------------------------------------------
phasestart
clear_flag all
playcdtrack 6
create "alien-base"
label "Abase1"
position 256696 800 155191
create "alien-base"
label "Abase2"
position 255893 800 165730
create "alien-base"
label "Abase3"
position 285147 800 151342
create "alien-base"
label "Abase4"
position 301821 800 161164
create "alien-base"
label "Abase5"
position 290434 800 176976
create "destroyer"
globalise
label "P9destroyer"
position 257478 -523 182026
forward 1 0 0 up 0 1 0
create "cobra"
label "P9hero"
position 8 -569 -1798 local to "P9destroyer"
forward 0 0 -1 up 0 1 0
armed_with "GREEN LASER" rate 4
secondary_armed_with "DESIGNATOR" rate 128 rounds 40
switch_hero "P9hero"
task
playercontrols
break_task_if flag 19 set
end
#================
kill "P8hero"
kill "P8liner"
kill "S1"
kill "S2"
#================
camera_task
hud off
cam_pos 1500 -3500 -7000 attached_to "hero"
cam_focus "hero"
pause 10
cam_pos 500 -200 1250 attached_to "hero"
dolly 1
dollyspeed 0.0004
pause 180
cam_mode cockpit
set_flag 1
end
wait_until flag 1 set
procedure "Proc_a"
wait_until number_of "aair" < 8
create "lfighter"
position random
towards "hero"
armed_with "RED LASER" rate 10
task
attack "hero"
end
pause 75
end_procedure
#==================================================================================================
#===wave 1
set_task "Abase1"
wait_until distance_between "hero" and me < 10000
set_flag 1
land 0 -1600 0 relative toxz me
end
set_waypoint "Abase1"
#....................................................................
phasemessage 50 60
play_speech "Follow waypoint marker"
#....................................................................
wait_until distance_between "hero" and waypoint < 10000
#....................................................................
phasemessage 52 60
play_speech "Destroy alien installation"
#....................................................................
wait_until "Abase1" destroyed
#---------------------------------------------------------
set_task "Abase2"
wait_until distance_between "hero" and me < 10000
land 0 -1600 0 relative toxz me
end
set_waypoint "Abase2"
#....................................................................
phasemessage 50 60
play_speech "Follow waypoint marker"
#....................................................................
wait_until distance_between "hero" and waypoint < 10000
#....................................................................
phasemessage 52 60
play_speech "Destroy alien installation"
#....................................................................
wait_until "Abase2" destroyed
#---------------------------------------------------------
set_task "Abase3"
wait_until distance_between "hero" and me < 10000
land 0 -1600 0 relative toxz me
end
set_waypoint "Abase3"
#....................................................................
phasemessage 50 60
play_speech "Follow waypoint marker"
#....................................................................
wait_until distance_between "hero" and waypoint < 10000
#....................................................................
phasemessage 52 60
play_speech "Destroy alien installation"
#....................................................................
wait_until "Abase3" destroyed
#---------------------------------------------------------
set_task "Abase4"
wait_until distance_between "hero" and me < 10000
land 0 -1600 0 relative toxz me
end
set_waypoint "Abase4"
#....................................................................
phasemessage 50 60
play_speech "Follow waypoint marker"
#....................................................................
wait_until distance_between "hero" and waypoint < 10000
#....................................................................
phasemessage 52 60
play_speech "Destroy alien installation"
#....................................................................
wait_until "Abase4" destroyed
#---------------------------------------------------------
set_task "Abase5"
wait_until distance_between "hero" and me < 10000
land 0 -1600 0 relative toxz me
end
set_waypoint "Abase5"
#....................................................................
phasemessage 50 60
play_speech "Follow waypoint marker"
#....................................................................
wait_until distance_between "hero" and waypoint < 10000
#....................................................................
phasemessage 52 60
play_speech "Destroy alien installation"
#....................................................................
wait_until "Abase5" destroyed
#....................................................................
phasemessage 55 60
play_speech "Destroy all alien craft"
#....................................................................
clear_waypoint
pause 300
end_procedure "Proc_a"
wait_until number_of "aair" = 0
pause 25
set_flag 19
set_inert "hero"
camera_task
hud off
cam_pos -2000 -700 -2000 attached_to "hero"
cam_focus "hero"
cam_goto 2000 0 2000
set_flag 18
end
pause 20
#....................................................................
phasemessage 10 60
play_speech "phase complete"
#....................................................................
wait_until flag 18 set
;-------------------------------------------------------
;PHASE 10
;-------------------------------------------------------
clear_flag all
create "plfight"
label "P10hero"
position 255584 -2500 169529
forward 1 0 0 up 0 1 0
armed_with "GREEN LASER" rate 4
secondary_armed_with "DESIGNATOR" rate 256 rounds 20
switch_hero "P10hero"
task
wait_until flag 5 set
do
set_vel 80
for 140 frames
set_flag 6
playercontrols
break_task_if flag 19 set
end
auto_aim "hero"
create "section"
label "section1"
position 281087 -2500 169529
forward -1 0 0 up 0 1 0
create "section"
label "section2"
position 274212 -7242 173960
forward -0.874 0 0.486 up 0 1 0
task
dock to "section1" at 0 0 3300 forward 0 0 -1 up 0 1 0 dollyspeed 0.0004
end
create "section"
label "section3"
position 279177 -5762 155012
forward -0.656 0 0.755 up 0 1 0
task
wait_until flag 1 set
dock to "section1" at -1650 0 1650 forward 1 0 0 up 0 1 0 dollyspeed 0.0004
end
create "section"
label "section4"
position 282257 -1562 178998
forward -0.9 0 0.436 up 0 1 0
task
wait_until flag 2 set
dock to "section1" at 1650 0 1650 forward -1 0 0 up 0 1 0 dollyspeed 0.0004
end
#================
kill "P9hero"
kill "P9destroyer"
#================
camera_task
hud off
cam_pos 0 1000 10000 attached_to "section1"
cam_focus "section1"
pause 20
cam_pos 0 -1000 -500 attached_to "section1"
cam_focus "section2"
dolly 1
dollyspeed 0.004
pause 150
set_flag 1
cam_pos 0 -750 0 attached_to "section3"
cam_focus "section3"
cam_goto 0 1500 -7000
set_flag 2
cam_focus "section4"
cam_pos -8000 1250 2000 attached_to "section4"
dolly 1
dollyspeed 0.0004
pause 200
set_flag 3
end
wait_until flag 2 set
create "pegasus"
label "P9peg"
position 0 on ground 14000 local toxz "section1"
towards "section1"
inert
task
goto 0 on ground 0 local toxz "section1"
end
wait_until flag 3 set
camera_task
hud off
cam_focus "P9peg"
dolly 1
dollyspeed 0.004
pause 50
cam_pos 0 -400 -5000 attached_to "P9peg"
dolly 1
dollyspeed 0.004
pause 100
set_flag 4
end
pause 70
kill "section4"
kill "section3"
kill "section2"
kill "section1"
create "alncarrier"
globalise
label "fullsection"
position 281087 -2500 169529
forward 0.707 0 0.707 up 0 1 0
armed_with "SATLASER" rate 5
secondary_armed_with "ENERGY 1" rate 1
inert
task
wait_until flag 4 set
pause 25
do
shoot "P9peg"
for 5 frames
do
fire_secondary at "P9peg"
shoot "P9peg"
until "P9peg" destroyed
do
fire_secondary at "P9peg"
for 50 frames
end
wait_until flag 4 set
camera_task
hud off
cam_pos 0 -200 -3500 attached_to "P9peg"
cam_focus "fullsection"
dolly 1
dollyspeed 0.004
pause 50
cam_free
end
pause 100
set_volatile "P9peg"
wait_until "P9peg" destroyed
pause 150
phasestart
set_flag 5
camera_task
hud off
cam_pos 0 -200 4000 attached_to "hero"
cam_focus "hero"
pause 40
cam_pos -500 -200 -3000 attached_to "hero"
cam_focus "fullsection"
dolly 1
dollyspeed 0.004
pause 130
cam_mode cockpit
dolly 1
end
create "vtol"
position -1000 0 -500 local to "hero"
forward 1 0 0 up 0 1 0
armed_with "GREEN LASER" rate 8
secondary_armed_with "GUIDED MISSILE" rate 64 rounds 10
task
do
set_vel 80
for 140 frames
fire_secondary at "fullsection"
do
pitch -30%
set_vel 80
yaw -50%
for 50 frames
do
attack
forever
end
create "vtol"
position 1000 0 -500 local to "hero"
forward 1 0 0 up 0 1 0
armed_with "GREEN LASER" rate 16
secondary_armed_with "GUIDED MISSILE" rate 64 rounds 3
task
do
set_vel 80
for 140 frames
fire_secondary at "fullsection"
do
pitch -30%
yaw 50%
set_vel 80
for 50 frames
do
attack
forever
end
wait_until flag 6 set
set_task "fullsection"
armed_with "SATLASER" rate 4
do
secondary_armed_with "ENERGY 2" rate 1
if distance_between "hero" and me <5000
{
shoot "hero"
fire_secondary at "hero"
}
forever
end
#....................................................................
phasemessage 26 60
play_speech "Incoming alien fighters"
#....................................................................
generation_points
position -3679 -113 0 local to "fullsection"
position -4679 -113 0 local to "fullsection"
position 3679 -113 0 local to "fullsection"
position 4679 -113 0 local to "fullsection"
position 0 -113 3679 local to "fullsection"
position 0 -113 4679 local to "fullsection"
position 0 -113 -3679 local to "fullsection"
position 0 -113 -4679 local to "fullsection"
procedure "Proc_a"
wait_until number_of "aair" <6
create "lfighter"
position at generation point
towards at generation point
armed_with "RED LASER" rate 16
task
do
set_vel 80
reset_hitpoints
for 20 frames
if rand & 15 > 7
attack
else
attack "hero"
attack "hero"
end
pause 10
end_procedure terminate after 30 loops
wait_until proc "Proc_a" terminated
wait_until number_of "aair" = 0
#....................................................................
phasemessage 56 60
play_speech "Destroy alien mothership"
#....................................................................
set_volatile "fullsection"
set_waypoint "fullsection"
procedure "Proc_a"
wait_until number_of "aair" <6
create "lfighter2"
position at generation point
towards at generation point
armed_with "RED LASER" rate 12
if rand & 15 < 3
secondary_armed_with "ENERGY 2" rate 16 rounds 1
task
do
set_vel 80
reset_hitpoints
for 20 frames
attack "hero"
end
pause 10
end_procedure
wait_until "fullsection" destroyed
clear_waypoint
wait_until "fullsection" destroyed
end_procedure "Proc_a"
kill group "aair"
#=======================================================
#
# EXPLODE ME
#
#=======================================================
camera_task
hud off
cam_pos 0 0 6000 relative to "fullsection"
cam_focus 281087 -2500 169529
dolly 1
dollyspeed 0.004
wait_until flag 29 set
cam_mode cockpit
end
#---------------------------
#----explosions
generation_points
position -1100 -200 -2000 local to "fullsection"
position 600 -200 -1000 local to "fullsection"
position 600 200 -500 local to "fullsection"
position -300 -200 -1500 local to "fullsection"
position -500 -200 0 local to "fullsection"
position -600 -200 500 local to "fullsection"
position 1000 -200 1000 local to "fullsection"
position 800 -200 2000 local to "fullsection"
#---------------------------
#----big boom
#startwuf place type size scale degreesrot timeout red green blue(255)
procedure "Proc_c"
#startsmoke place type size scale degreesrot timeout red green blue(255)
startsmoke radial to "fullsection" at 3000 2 500 2 2 100 255 255 255
startsmoke at generation point 2 900 2 2 100 255 255 255
if rand & 7 > 3
dosound "fullsection" "EXPLODE2"
else
if rand & 7 > 3
dosound "fullsection" "EXPLODE3"
end_procedure
pause 300
startwuf 0 0 2000 relative to "fullsection" 69 2000 1.1 -2 55 0 0 255
startwave "fullsection" 0
dosound "fullsection" "EXPLODE1"
pause 70
startwave "fullsection" 0
startwuf 0 0 2000 relative to "fullsection" 65 2000 1.5 2 25 255 255 255
dosound "fullsection" "EXPLODE3"
pause 15
startwave 0 0 -2000 local to "fullsection" 0
pause 25
end_procedure "Proc_c"
startwuf 0 0 2000 relative to "fullsection" 69 2000 1.1 -2 55 0 0 255
pause 5
startwuf 0 0 2000 relative to "fullsection" 65 2000 1.5 2 25 255 255 255
pause 5
startwuf 0 0 2000 relative to "fullsection" 65 2000 1.5 2 25 255 255 255
pause 5
startwuf 0 0 2000 relative to "fullsection" 65 2000 1.5 2 25 255 255 255
pause 5
startwuf 0 0 2000 relative to "fullsection" 65 2000 1.5 2 25 255 255 255
pause 5
startwuf 0 0 2000 relative to "fullsection" 65 2000 1.5 2 25 255 255 255
pause 5
startwuf 0 0 2000 relative to "fullsection" 65 2000 1.5 2 25 255 255 255
pause 20
set_flag 29
#=======================================================
#
# EXPLODE ME END
#
#=======================================================
#....................................................................
phasemessage 55 60
play_speech "Destroy all alien craft"
#....................................................................
procedure "Proc_a"
create "lfighter2"
position 0 -3200 -15000 local toxz "hero"
towards "hero"
armed_with "RED LASER" rate 8
task
attack "hero"
end
pause 75
end_procedure terminate after 10 loops
wait_until proc "Proc_a" terminated
wait_until number_of "aair" = 0
pause 25
#....................................................................
phasemessage 9 60
play_speech "Scenario completed"
#....................................................................
set_flag 19
set_inert "hero"
camera_task
hud off
cam_pos -4000 -700 -4000 attached_to "hero"
cam_focus "hero"
dolly 1
dollyspeed 0.004
pause 100
set_flag 18
end
wait_until flag 18 set
;-------------------------------------------------------
;END OF SCENARIO
;-------------------------------------------------------
